Code: Select all
WITH
ELSE
END;
Code: Select all
WITH
ELSE
END;
Code: Select all
END;
e := sym = else; pos := DevCPM.startpos;
IF x = NIL THEN err(130);END; (* add this line*)
IF e THEN DevCPS.Get(sym); StatSeq(s) ELSE s := NIL END ;
DevCPB.Construct(Nwith, x, s); CheckSym(end);
IF e THEN x.subcl := 1 END
ELSIF sym = exit THEN
.....
END
END StatSeq;