mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 09:52:24 +00:00
Support non-printables in string literals and tidy case alignment and constant literals.
This commit is contained in:
David Brown
parent
fe03130fe1
commit
58556457bc
32 changed files with 1125 additions and 1148 deletions
|
|
@ -31,7 +31,10 @@ MODULE OPC; (* copyright (c) J. Templ 12.7.95 / 3.7.96 *)
|
|||
DynTypExt = "__typ";
|
||||
TagExt = "__typ";
|
||||
Tab = 9X;
|
||||
Backslash = 5CX; (* Defined as hex to avoid confusing editor syntax parsing *)
|
||||
|
||||
(* The following are defined as hex to avoid confusing editor syntax highlighting *)
|
||||
Backslash = 5CX;
|
||||
DoubleQuote = 22X;
|
||||
|
||||
|
||||
VAR
|
||||
|
|
@ -542,9 +545,10 @@ MODULE OPC; (* copyright (c) J. Templ 12.7.95 / 3.7.96 *)
|
|||
BegStat; OPM.WriteString("__TDESC(");
|
||||
Andent(typ);
|
||||
Str1(", #", typ^.n + 1); Str1(", #) = {__TDFLDS(", NofPtrs(typ));
|
||||
OPM.Write('"');
|
||||
OPM.Write(DoubleQuote);
|
||||
IF typ^.strobj # NIL THEN OPM.WriteStringVar(typ^.strobj^.name) END ;
|
||||
Str1('", #), {', typ^.size);
|
||||
OPM.Write(DoubleQuote);
|
||||
Str1(', #), {', typ^.size);
|
||||
nofptrs := 0; PutPtrOffsets(typ, 0, nofptrs); Str1("#}}", -(nofptrs + 1) * OPM.LIntSize);
|
||||
EndStat
|
||||
END TDescDecl;
|
||||
|
|
@ -562,12 +566,11 @@ MODULE OPC; (* copyright (c) J. Templ 12.7.95 / 3.7.96 *)
|
|||
PROCEDURE Align*(VAR adr: LONGINT; base: LONGINT);
|
||||
BEGIN
|
||||
CASE base OF
|
||||
| 2: INC(adr, adr MOD 2)
|
||||
| 2: INC(adr, adr MOD 2)
|
||||
| 4: INC(adr, (-adr) MOD 4)
|
||||
| 8: INC(adr, (-adr) MOD 8)
|
||||
|16: INC(adr, (-adr) MOD 16)
|
||||
ELSE (*1*)
|
||||
(*OPM.LogWStr("unhandled case at OPC.Align, base = "); OPM.LogWNum(base, 0); OPM.LogWLn;*)
|
||||
| 16: INC(adr, (-adr) MOD 16)
|
||||
ELSE (*1*) (*OPM.LogWStr("unhandled case at OPC.Align, base = "); OPM.LogWNum(base, 0); OPM.LogWLn;*)
|
||||
END
|
||||
END Align;
|
||||
|
||||
|
|
@ -585,10 +588,9 @@ MODULE OPC; (* copyright (c) J. Templ 12.7.95 / 3.7.96 *)
|
|||
| OPM.Set: RETURN OPM.SetAlign
|
||||
| OPM.Pointer: RETURN OPM.PointerAlign
|
||||
| OPM.ProcTyp: RETURN OPM.ProcAlign
|
||||
| OPM.Comp:
|
||||
IF typ^.comp = OPM.Record THEN RETURN typ^.align MOD 10000H
|
||||
ELSE RETURN Base(typ^.BaseTyp)
|
||||
END
|
||||
| OPM.Comp: IF typ^.comp = OPM.Record THEN RETURN typ^.align MOD 10000H
|
||||
ELSE RETURN Base(typ^.BaseTyp)
|
||||
END
|
||||
ELSE OPM.LogWStr("unhandled case in OPC.Base, typ^form = "); OPM.LogWNum(typ^.form, 0); OPM.LogWLn;
|
||||
END
|
||||
END Base;
|
||||
|
|
@ -749,8 +751,8 @@ MODULE OPC; (* copyright (c) J. Templ 12.7.95 / 3.7.96 *)
|
|||
|
||||
PROCEDURE Include(name: ARRAY OF CHAR);
|
||||
BEGIN
|
||||
OPM.WriteString("#include "); OPM.Write('"'); OPM.WriteStringVar(name);
|
||||
OPM.WriteString(".h"); OPM.Write('"'); OPM.WriteLn
|
||||
OPM.WriteString("#include "); OPM.Write(DoubleQuote); OPM.WriteStringVar(name);
|
||||
OPM.WriteString(".h"); OPM.Write(DoubleQuote); OPM.WriteLn
|
||||
END Include;
|
||||
|
||||
PROCEDURE IncludeImports(obj: OPT.Object; vis: INTEGER);
|
||||
|
|
@ -821,14 +823,7 @@ MODULE OPC; (* copyright (c) J. Templ 12.7.95 / 3.7.96 *)
|
|||
| OPM.notcoloroutput: OPM.Write("f")
|
||||
| OPM.forcenewsym: OPM.Write("F")
|
||||
| OPM.verbose: OPM.Write("v")
|
||||
ELSE
|
||||
(* this else is necessary cause
|
||||
if someone defined a new option in OPM module
|
||||
and forgot to add it here then
|
||||
if option is passed this will
|
||||
generate __CASECHK and cause Halt,
|
||||
noch *)
|
||||
OPM.LogWStr ("( more options defined in OPM than checked in OPC.GenHeaderMsg, if you are a compiler developer, add them to OPC.GenHeaderMsg"); OPM.LogWLn;
|
||||
ELSE OPM.LogWStr ("( more options defined in OPM than checked in OPC.GenHeaderMsg, if you are a compiler developer, add them to OPC.GenHeaderMsg"); OPM.LogWLn;
|
||||
END
|
||||
END
|
||||
END;
|
||||
|
|
@ -1173,44 +1168,67 @@ MODULE OPC; (* copyright (c) J. Templ 12.7.95 / 3.7.96 *)
|
|||
PROCEDURE Cmp*(rel: INTEGER);
|
||||
BEGIN
|
||||
CASE rel OF
|
||||
OPM.eql :
|
||||
OPM.WriteString(" == ");
|
||||
| OPM.neq :
|
||||
OPM.WriteString(" != ");
|
||||
| OPM.lss :
|
||||
OPM.WriteString(" < ");
|
||||
| OPM.leq :
|
||||
OPM.WriteString(" <= ");
|
||||
| OPM.gtr :
|
||||
OPM.WriteString(" > ");
|
||||
| OPM.geq :
|
||||
OPM.WriteString(" >= ");
|
||||
ELSE
|
||||
OPM.LogWStr("unhandled case in OPC.Cmp, rel = "); OPM.LogWNum(rel, 0); OPM.LogWLn;
|
||||
| OPM.eql: OPM.WriteString(" == ")
|
||||
| OPM.neq: OPM.WriteString(" != ")
|
||||
| OPM.lss: OPM.WriteString(" < ")
|
||||
| OPM.leq: OPM.WriteString(" <= ")
|
||||
| OPM.gtr: OPM.WriteString(" > ")
|
||||
| OPM.geq: OPM.WriteString(" >= ")
|
||||
ELSE OPM.LogWStr("unhandled case in OPC.Cmp, rel = "); OPM.LogWNum(rel, 0); OPM.LogWLn;
|
||||
END;
|
||||
END Cmp;
|
||||
|
||||
PROCEDURE CharacterLiteral(c: LONGINT);
|
||||
BEGIN
|
||||
IF (c < 32) OR (c > 126) THEN
|
||||
OPM.WriteString("0x"); OPM.WriteHex(c)
|
||||
ELSE
|
||||
OPM.Write("'");
|
||||
IF (c = ORD(Backslash)) OR (c = ORD("'")) OR (c = ORD("?")) THEN
|
||||
OPM.Write(Backslash)
|
||||
END;
|
||||
OPM.Write(CHR(c));
|
||||
OPM.Write("'")
|
||||
END
|
||||
END CharacterLiteral;
|
||||
|
||||
PROCEDURE StringLiteral(s: ARRAY OF CHAR; l: LONGINT);
|
||||
VAR i: LONGINT; c: INTEGER;
|
||||
BEGIN
|
||||
OPM.Write(DoubleQuote);
|
||||
i := 0; WHILE i < l DO
|
||||
c := ORD(s[i]);
|
||||
IF (c < 32) OR (c > 126) THEN
|
||||
(* Encode binary character value using exactly 3 octal digits.
|
||||
Use octal in preference to hex as only the octal escape
|
||||
syntax ensures a subsequent character will not be absorbed
|
||||
into this literal. *)
|
||||
OPM.Write(Backslash);
|
||||
OPM.Write(CHR(ORD("0") + c DIV 64)); c := c MOD 64;
|
||||
OPM.Write(CHR(ORD("0") + c DIV 8)); c := c MOD 8;
|
||||
OPM.Write(CHR(ORD("0") + c))
|
||||
ELSE
|
||||
IF (c = ORD(Backslash)) OR (c = ORD(DoubleQuote)) OR (c = ORD("?")) THEN
|
||||
OPM.Write(Backslash)
|
||||
END;
|
||||
OPM.Write(CHR(c));
|
||||
END;
|
||||
INC(i);
|
||||
END;
|
||||
OPM.Write(DoubleQuote)
|
||||
END StringLiteral;
|
||||
|
||||
PROCEDURE Case*(caseVal: LONGINT; form: INTEGER);
|
||||
VAR
|
||||
ch: CHAR;
|
||||
BEGIN
|
||||
OPM.WriteString('case ');
|
||||
CASE form OF
|
||||
| OPM.Char :
|
||||
ch := CHR (caseVal);
|
||||
IF (ch >= " ") & (ch <= "~") THEN
|
||||
OPM.Write("'");
|
||||
IF (ch = Backslash) OR (ch = "?") OR (ch = "'") OR (ch = '"') THEN OPM.Write(Backslash); OPM.Write(ch);
|
||||
ELSE OPM.Write(ch);
|
||||
END;
|
||||
OPM.Write("'");
|
||||
ELSE
|
||||
OPM.WriteString("0x"); OPM.WriteHex (caseVal);
|
||||
END;
|
||||
| OPM.SInt, OPM.Int, OPM.LInt :
|
||||
OPM.WriteInt(caseVal);
|
||||
ELSE
|
||||
OPM.LogWStr("unhandled case in OPC.Case, form = "); OPM.LogWNum(form, 0); OPM.LogWLn;
|
||||
| OPM.Char: CharacterLiteral(caseVal)
|
||||
| OPM.SInt,
|
||||
OPM.Int,
|
||||
OPM.LInt: OPM.WriteInt(caseVal);
|
||||
ELSE OPM.LogWStr("unhandled case in OPC.Case, form = "); OPM.LogWNum(form, 0); OPM.LogWLn;
|
||||
END;
|
||||
OPM.WriteString(': ');
|
||||
END Case;
|
||||
|
|
@ -1242,58 +1260,36 @@ MODULE OPC; (* copyright (c) J. Templ 12.7.95 / 3.7.96 *)
|
|||
END Len;
|
||||
|
||||
PROCEDURE Constant* (con: OPT.Const; form: INTEGER);
|
||||
VAR i, len: INTEGER; ch: CHAR; s: SET;
|
||||
VAR i: INTEGER; s: SET;
|
||||
hex: LONGINT; skipLeading: BOOLEAN;
|
||||
BEGIN
|
||||
CASE form OF
|
||||
OPM.Byte:
|
||||
OPM.WriteInt(con^.intval)
|
||||
| OPM.Bool:
|
||||
OPM.WriteInt(con^.intval)
|
||||
| OPM.Char:
|
||||
ch := CHR(con^.intval);
|
||||
IF (ch >= " ") & (ch <= "~") THEN
|
||||
OPM.Write("'");
|
||||
IF (ch = Backslash) OR (ch = "?") OR (ch = "'") OR (ch = '"') THEN OPM.Write(Backslash) END ;
|
||||
OPM.Write(ch);
|
||||
OPM.Write("'")
|
||||
ELSE
|
||||
OPM.WriteString("0x"); OPM.WriteHex(con^.intval)
|
||||
END
|
||||
| OPM.SInt, OPM.Int, OPM.LInt:
|
||||
OPM.WriteInt(con^.intval)
|
||||
| OPM.Real:
|
||||
OPM.WriteReal(con^.realval, "f")
|
||||
| OPM.LReal:
|
||||
OPM.WriteReal(con^.realval, 0X)
|
||||
| OPM.Set:
|
||||
OPM.WriteString("0x");
|
||||
skipLeading := TRUE;
|
||||
s := con^.setval; i := MAX(SET) + 1;
|
||||
REPEAT
|
||||
hex := 0;
|
||||
REPEAT
|
||||
DEC(i); hex := 2 * hex;
|
||||
IF i IN s THEN INC(hex) END
|
||||
UNTIL i MOD 8 = 0;
|
||||
IF (hex # 0) OR ~skipLeading THEN
|
||||
OPM.WriteHex(hex);
|
||||
skipLeading := FALSE
|
||||
END
|
||||
UNTIL i = 0;
|
||||
IF skipLeading THEN OPM.Write("0") END
|
||||
| OPM.String:
|
||||
OPM.Write('"');
|
||||
len := SHORT(con^.intval2) - 1; i := 0;
|
||||
WHILE i < len DO ch := con^.ext^[i];
|
||||
IF (ch = Backslash) OR (ch = "?") OR (ch = "'") OR (ch = '"') THEN OPM.Write(Backslash) END ;
|
||||
OPM.Write(ch); INC(i)
|
||||
END ;
|
||||
OPM.Write('"')
|
||||
| OPM.NilTyp:
|
||||
OPM.WriteString('NIL');
|
||||
ELSE
|
||||
OPM.LogWStr("unhandled case in OPC.Constant, form = "); OPM.LogWNum(form, 0); OPM.LogWLn;
|
||||
| OPM.Byte: OPM.WriteInt(con^.intval)
|
||||
| OPM.Bool: OPM.WriteInt(con^.intval)
|
||||
| OPM.Char: CharacterLiteral(con.intval)
|
||||
| OPM.SInt,
|
||||
OPM.Int,
|
||||
OPM.LInt: OPM.WriteInt(con^.intval)
|
||||
| OPM.Real: OPM.WriteReal(con^.realval, "f")
|
||||
| OPM.LReal: OPM.WriteReal(con^.realval, 0X)
|
||||
| OPM.Set: OPM.WriteString("0x");
|
||||
skipLeading := TRUE;
|
||||
s := con^.setval; i := MAX(SET) + 1;
|
||||
REPEAT
|
||||
hex := 0;
|
||||
REPEAT
|
||||
DEC(i); hex := 2 * hex;
|
||||
IF i IN s THEN INC(hex) END
|
||||
UNTIL i MOD 8 = 0;
|
||||
IF (hex # 0) OR ~skipLeading THEN
|
||||
OPM.WriteHex(hex);
|
||||
skipLeading := FALSE
|
||||
END
|
||||
UNTIL i = 0;
|
||||
IF skipLeading THEN OPM.Write("0") END
|
||||
| OPM.String: StringLiteral(con.ext^, con.intval2-1)
|
||||
| OPM.NilTyp: OPM.WriteString('NIL');
|
||||
ELSE OPM.LogWStr("unhandled case in OPC.Constant, form = "); OPM.LogWNum(form, 0); OPM.LogWLn;
|
||||
END;
|
||||
END Constant;
|
||||
|
||||
|
|
|
|||
|
|
@ -217,53 +217,48 @@ MODULE OPV; (* J. Templ 16.2.95 / 3.7.96
|
|||
PROCEDURE Precedence (class, subclass, form, comp: INTEGER): INTEGER;
|
||||
BEGIN
|
||||
CASE class OF
|
||||
OPM.Nconst, OPM.Nvar, OPM.Nfield, OPM.Nindex, OPM.Nproc, OPM.Ncall:
|
||||
RETURN 10
|
||||
| OPM.Nguard: IF OPM.typchk IN OPM.opt THEN RETURN 10 ELSE RETURN 9 (*cast*) END
|
||||
| OPM.Nvarpar:
|
||||
IF comp IN {OPM.Array, OPM.DynArr} THEN RETURN 10 ELSE RETURN 9 END (* arrays don't need deref *)
|
||||
| OPM.Nderef:
|
||||
RETURN 9
|
||||
| OPM.Nmop:
|
||||
CASE subclass OF
|
||||
OPM.not, OPM.minus, OPM.adr, OPM.val, OPM.conv:
|
||||
RETURN 9
|
||||
| OPM.is, OPM.abs, OPM.cap, OPM.odd, OPM.cc:
|
||||
RETURN 10
|
||||
ELSE
|
||||
OPM.LogWStr("unhandled case in OPV.Precedence OPM.Nmop, subclass = "); OPM.LogWNum(subclass, 0); OPM.LogWLn;
|
||||
END
|
||||
| OPM.Ndop:
|
||||
CASE subclass OF
|
||||
OPM.times:
|
||||
IF form = OPM.Set THEN RETURN 4 ELSE RETURN 8 END
|
||||
| OPM.slash:
|
||||
IF form = OPM.Set THEN RETURN 3 ELSE RETURN 8 END
|
||||
| OPM.div, OPM.mod:
|
||||
RETURN 10 (* div/mod are replaced by functions *)
|
||||
| OPM.plus:
|
||||
IF form = OPM.Set THEN RETURN 2 ELSE RETURN 7 END
|
||||
| OPM.minus:
|
||||
IF form = OPM.Set THEN RETURN 4 ELSE RETURN 7 END
|
||||
| OPM.lss, OPM.leq, OPM.gtr, OPM.geq:
|
||||
RETURN 6
|
||||
| OPM.eql, OPM.neq:
|
||||
RETURN 5
|
||||
| OPM.and:
|
||||
RETURN 1
|
||||
| OPM.or:
|
||||
RETURN 0
|
||||
| OPM.len, OPM.in, OPM.ash, OPM.msk, OPM.bit, OPM.lsh, OPM.rot:
|
||||
RETURN 10
|
||||
ELSE
|
||||
OPM.LogWStr("unhandled case in OPV.Precedence OPM.Ndop, subclass = "); OPM.LogWNum(subclass, 0); OPM.LogWLn;
|
||||
END;
|
||||
| OPM.Nupto:
|
||||
RETURN 10
|
||||
| OPM.Ntype, OPM.Neguard: (* ignored anyway *)
|
||||
RETURN MaxPrec
|
||||
ELSE
|
||||
OPM.LogWStr("unhandled case in OPV.Precedence, class = "); OPM.LogWNum(class, 0); OPM.LogWLn;
|
||||
| OPM.Nconst,
|
||||
OPM.Nvar,
|
||||
OPM.Nfield,
|
||||
OPM.Nindex,
|
||||
OPM.Nproc,
|
||||
OPM.Ncall: RETURN 10
|
||||
| OPM.Nguard: IF OPM.typchk IN OPM.opt THEN RETURN 10 ELSE RETURN 9 (*cast*) END
|
||||
| OPM.Nvarpar: IF comp IN {OPM.Array, OPM.DynArr} THEN RETURN 10 ELSE RETURN 9 END (* arrays don't need deref *)
|
||||
| OPM.Nderef: RETURN 9
|
||||
| OPM.Nmop: CASE subclass OF
|
||||
| OPM.not, OPM.minus, OPM.adr, OPM.val, OPM.conv: RETURN 9
|
||||
| OPM.is, OPM.abs, OPM.cap, OPM.odd, OPM.cc: RETURN 10
|
||||
ELSE OPM.LogWStr("unhandled case in OPV.Precedence OPM.Nmop, subclass = "); OPM.LogWNum(subclass, 0); OPM.LogWLn;
|
||||
END
|
||||
| OPM.Ndop: CASE subclass OF
|
||||
| OPM.times: IF form = OPM.Set THEN RETURN 4 ELSE RETURN 8 END
|
||||
| OPM.slash: IF form = OPM.Set THEN RETURN 3 ELSE RETURN 8 END
|
||||
| OPM.div,
|
||||
OPM.mod: RETURN 10 (* div/mod are replaced by functions *)
|
||||
| OPM.plus: IF form = OPM.Set THEN RETURN 2 ELSE RETURN 7 END
|
||||
| OPM.minus: IF form = OPM.Set THEN RETURN 4 ELSE RETURN 7 END
|
||||
| OPM.lss,
|
||||
OPM.leq,
|
||||
OPM.gtr,
|
||||
OPM.geq: RETURN 6
|
||||
| OPM.eql,
|
||||
OPM.neq: RETURN 5
|
||||
| OPM.and: RETURN 1
|
||||
| OPM.or: RETURN 0
|
||||
| OPM.len,
|
||||
OPM.in,
|
||||
OPM.ash,
|
||||
OPM.msk,
|
||||
OPM.bit,
|
||||
OPM.lsh,
|
||||
OPM.rot: RETURN 10
|
||||
ELSE OPM.LogWStr("unhandled case in OPV.Precedence OPM.Ndop, subclass = "); OPM.LogWNum(subclass, 0); OPM.LogWLn;
|
||||
END;
|
||||
| OPM.Nupto: RETURN 10
|
||||
| OPM.Ntype,
|
||||
OPM.Neguard: (* ignored anyway *) RETURN MaxPrec
|
||||
ELSE OPM.LogWStr("unhandled case in OPV.Precedence, class = "); OPM.LogWNum(class, 0); OPM.LogWLn;
|
||||
END;
|
||||
END Precedence;
|
||||
|
||||
|
|
@ -302,9 +297,6 @@ MODULE OPV; (* J. Templ 16.2.95 / 3.7.96
|
|||
ELSIF form = OPM.LInt THEN
|
||||
IF from < OPM.LInt THEN OPM.WriteString("(LONGINT)") END ;
|
||||
Entier(n, 9)
|
||||
(*ELSIF form = Int64 THEN
|
||||
IF (from >= OPM.SInt) & (from <= OPM.LInt) OR (from >= Int8) & (from < Int64) THEN OPM.WriteString("(SYSTEM_INT64)") END;
|
||||
Entier(n, 9);*)
|
||||
ELSIF form = OPM.Int THEN
|
||||
IF from < OPM.Int THEN OPM.WriteString("(int)"); expr(n, 9)
|
||||
ELSE
|
||||
|
|
@ -372,90 +364,80 @@ MODULE OPV; (* J. Templ 16.2.95 / 3.7.96
|
|||
IF prec > designPrec THEN OPM.Write(OpenParen) END;
|
||||
IF prec = ProcTypeVar THEN OPM.Write(Deref) END; (* proc var calls must be dereferenced in K&R C *)
|
||||
CASE class OF
|
||||
OPM.Nproc:
|
||||
OPC.Ident(n^.obj)
|
||||
| OPM.Nvar:
|
||||
OPC.CompleteIdent(n^.obj)
|
||||
| OPM.Nvarpar:
|
||||
IF ~(comp IN {OPM.Array, OPM.DynArr}) THEN OPM.Write(Deref) END; (* deref var parameter *)
|
||||
OPC.CompleteIdent(n^.obj)
|
||||
| OPM.Nfield:
|
||||
IF n^.left^.class = OPM.Nderef THEN design(n^.left^.left, designPrec); OPM.WriteString("->")
|
||||
ELSE design(n^.left, designPrec); OPM.Write(".")
|
||||
END ;
|
||||
OPC.Ident(n^.obj)
|
||||
| OPM.Nderef:
|
||||
IF n^.typ^.comp = OPM.DynArr THEN design(n^.left, 10); OPM.WriteString("->data")
|
||||
ELSE OPM.Write(Deref); design(n^.left, designPrec)
|
||||
END
|
||||
| OPM.Nindex:
|
||||
d := n^.left;
|
||||
IF d^.typ^.comp = OPM.DynArr THEN dims := 0;
|
||||
WHILE d^.class = OPM.Nindex DO d := d^.left; INC(dims) END ;
|
||||
IF n^.typ^.comp = OPM.DynArr THEN OPM.Write("&") END ;
|
||||
design(d, designPrec);
|
||||
OPM.Write(OpenBracket);
|
||||
IF n^.typ^.comp = OPM.DynArr THEN OPM.Write("(") END ;
|
||||
i := dims; x := n;
|
||||
WHILE x # d DO (* apply Horner schema *)
|
||||
IF x^.left # d THEN Index(x, d, 7, i); OPM.WriteString(" + "); Len(d, i); OPM.WriteString(" * ("); DEC(i)
|
||||
ELSE Index(x, d, MinPrec, i)
|
||||
END ;
|
||||
x := x^.left
|
||||
END ;
|
||||
FOR i := 1 TO dims DO OPM.Write(")") END ;
|
||||
IF n^.typ^.comp = OPM.DynArr THEN
|
||||
(* element type is OPM.DynArr; finish Horner schema with virtual indices = 0*)
|
||||
OPM.Write(")");
|
||||
WHILE i < (d^.typ^.size - 4) DIV 4 DO
|
||||
OPM.WriteString(" * "); Len(d, i);
|
||||
INC(i)
|
||||
END
|
||||
END ;
|
||||
OPM.Write(CloseBracket)
|
||||
ELSE
|
||||
design(n^.left, designPrec);
|
||||
OPM.Write(OpenBracket);
|
||||
Index(n, n^.left, MinPrec, 0);
|
||||
OPM.Write(CloseBracket)
|
||||
END
|
||||
| OPM.Nguard:
|
||||
typ := n^.typ; obj := n^.left^.obj;
|
||||
IF OPM.typchk IN OPM.opt THEN
|
||||
IF typ^.comp = OPM.Record THEN OPM.WriteString(GuardRecFunc);
|
||||
IF obj^.mnolev # OPM.level THEN (*intermediate level var-par record*)
|
||||
OPM.WriteStringVar(obj^.scope^.name); OPM.WriteString("__curr->"); OPC.Ident(obj)
|
||||
ELSE (*local var-par record*)
|
||||
OPC.Ident(obj)
|
||||
END ;
|
||||
ELSE (*Pointer*)
|
||||
IF typ^.BaseTyp^.strobj = NIL THEN OPM.WriteString("__GUARDA(") ELSE OPM.WriteString(GuardPtrFunc) END ;
|
||||
expr(n^.left, MinPrec); typ := typ^.BaseTyp
|
||||
END ;
|
||||
OPM.WriteString(Comma);
|
||||
OPC.Andent(typ); OPM.WriteString(Comma);
|
||||
OPM.WriteInt(typ^.extlev); OPM.Write(")")
|
||||
ELSE
|
||||
IF typ^.comp = OPM.Record THEN (* do not cast record directly, cast pointer to record *)
|
||||
OPM.WriteString("*("); OPC.Ident(typ^.strobj); OPM.WriteString("*)"); OPC.CompleteIdent(obj)
|
||||
ELSE (*simply cast pointer*)
|
||||
OPM.Write("("); OPC.Ident(typ^.strobj); OPM.Write(")"); expr(n^.left, designPrec)
|
||||
END
|
||||
END
|
||||
| OPM.Neguard:
|
||||
IF OPM.typchk IN OPM.opt THEN
|
||||
IF n^.left^.class = OPM.Nvarpar THEN OPM.WriteString("__GUARDEQR(");
|
||||
OPC.CompleteIdent(n^.left^.obj); OPM.WriteString(Comma); TypeOf(n^.left);
|
||||
ELSE OPM.WriteString("__GUARDEQP("); expr(n^.left^.left, MinPrec)
|
||||
END ; (* __GUARDEQx includes deref *)
|
||||
OPM.WriteString(Comma); OPC.Ident(n^.left^.typ^.strobj); OPM.Write(")")
|
||||
ELSE
|
||||
expr(n^.left, MinPrec) (* always lhs of assignment *)
|
||||
END
|
||||
| OPM.Nmop:
|
||||
IF n^.subcl = OPM.val THEN design(n^.left, prec) END
|
||||
ELSE
|
||||
OPM.LogWStr("unhandled case in OPV.design, class = "); OPM.LogWNum(class, 0); OPM.LogWLn;
|
||||
| OPM.Nproc: OPC.Ident(n^.obj)
|
||||
| OPM.Nvar: OPC.CompleteIdent(n^.obj)
|
||||
| OPM.Nvarpar: IF ~(comp IN {OPM.Array, OPM.DynArr}) THEN OPM.Write(Deref) END; (* deref var parameter *)
|
||||
OPC.CompleteIdent(n^.obj)
|
||||
| OPM.Nfield: IF n^.left^.class = OPM.Nderef THEN design(n^.left^.left, designPrec); OPM.WriteString("->")
|
||||
ELSE design(n^.left, designPrec); OPM.Write(".")
|
||||
END ;
|
||||
OPC.Ident(n^.obj)
|
||||
| OPM.Nderef: IF n^.typ^.comp = OPM.DynArr THEN design(n^.left, 10); OPM.WriteString("->data")
|
||||
ELSE OPM.Write(Deref); design(n^.left, designPrec)
|
||||
END
|
||||
| OPM.Nindex: d := n^.left;
|
||||
IF d^.typ^.comp = OPM.DynArr THEN dims := 0;
|
||||
WHILE d^.class = OPM.Nindex DO d := d^.left; INC(dims) END ;
|
||||
IF n^.typ^.comp = OPM.DynArr THEN OPM.Write("&") END ;
|
||||
design(d, designPrec);
|
||||
OPM.Write(OpenBracket);
|
||||
IF n^.typ^.comp = OPM.DynArr THEN OPM.Write("(") END ;
|
||||
i := dims; x := n;
|
||||
WHILE x # d DO (* apply Horner schema *)
|
||||
IF x^.left # d THEN Index(x, d, 7, i); OPM.WriteString(" + "); Len(d, i); OPM.WriteString(" * ("); DEC(i)
|
||||
ELSE Index(x, d, MinPrec, i)
|
||||
END ;
|
||||
x := x^.left
|
||||
END ;
|
||||
FOR i := 1 TO dims DO OPM.Write(")") END ;
|
||||
IF n^.typ^.comp = OPM.DynArr THEN
|
||||
(* element type is OPM.DynArr; finish Horner schema with virtual indices = 0*)
|
||||
OPM.Write(")");
|
||||
WHILE i < (d^.typ^.size - 4) DIV 4 DO
|
||||
OPM.WriteString(" * "); Len(d, i);
|
||||
INC(i)
|
||||
END
|
||||
END ;
|
||||
OPM.Write(CloseBracket)
|
||||
ELSE
|
||||
design(n^.left, designPrec);
|
||||
OPM.Write(OpenBracket);
|
||||
Index(n, n^.left, MinPrec, 0);
|
||||
OPM.Write(CloseBracket)
|
||||
END
|
||||
| OPM.Nguard: typ := n^.typ; obj := n^.left^.obj;
|
||||
IF OPM.typchk IN OPM.opt THEN
|
||||
IF typ^.comp = OPM.Record THEN OPM.WriteString(GuardRecFunc);
|
||||
IF obj^.mnolev # OPM.level THEN (*intermediate level var-par record*)
|
||||
OPM.WriteStringVar(obj^.scope^.name); OPM.WriteString("__curr->"); OPC.Ident(obj)
|
||||
ELSE (*local var-par record*)
|
||||
OPC.Ident(obj)
|
||||
END ;
|
||||
ELSE (*Pointer*)
|
||||
IF typ^.BaseTyp^.strobj = NIL THEN OPM.WriteString("__GUARDA(") ELSE OPM.WriteString(GuardPtrFunc) END ;
|
||||
expr(n^.left, MinPrec); typ := typ^.BaseTyp
|
||||
END ;
|
||||
OPM.WriteString(Comma);
|
||||
OPC.Andent(typ); OPM.WriteString(Comma);
|
||||
OPM.WriteInt(typ^.extlev); OPM.Write(")")
|
||||
ELSE
|
||||
IF typ^.comp = OPM.Record THEN (* do not cast record directly, cast pointer to record *)
|
||||
OPM.WriteString("*("); OPC.Ident(typ^.strobj); OPM.WriteString("*)"); OPC.CompleteIdent(obj)
|
||||
ELSE (*simply cast pointer*)
|
||||
OPM.Write("("); OPC.Ident(typ^.strobj); OPM.Write(")"); expr(n^.left, designPrec)
|
||||
END
|
||||
END
|
||||
| OPM.Neguard: IF OPM.typchk IN OPM.opt THEN
|
||||
IF n^.left^.class = OPM.Nvarpar THEN OPM.WriteString("__GUARDEQR(");
|
||||
OPC.CompleteIdent(n^.left^.obj); OPM.WriteString(Comma); TypeOf(n^.left);
|
||||
ELSE OPM.WriteString("__GUARDEQP("); expr(n^.left^.left, MinPrec)
|
||||
END ; (* __GUARDEQx includes deref *)
|
||||
OPM.WriteString(Comma); OPC.Ident(n^.left^.typ^.strobj); OPM.Write(")")
|
||||
ELSE
|
||||
expr(n^.left, MinPrec) (* always lhs of assignment *)
|
||||
END
|
||||
| OPM.Nmop: IF n^.subcl = OPM.val THEN design(n^.left, prec) END
|
||||
ELSE OPM.LogWStr("unhandled case in OPV.design, class = "); OPM.LogWNum(class, 0); OPM.LogWLn;
|
||||
END ;
|
||||
IF prec > designPrec THEN OPM.Write(CloseParen) END
|
||||
END design;
|
||||
|
|
@ -484,8 +466,6 @@ MODULE OPV; (* J. Templ 16.2.95 / 3.7.96
|
|||
OPM.WriteString("(double)"); prec := 9
|
||||
ELSIF (form = OPM.LInt) & (n^.typ^.form < OPM.LInt) THEN (* integral promotion *)
|
||||
OPM.WriteString("(LONGINT)"); prec := 9
|
||||
(*ELSIF (form = Int64) & (n^.typ^.form < Int64) THEN
|
||||
OPM.WriteString("(SYSTEM_INT64)"); prec := 9;*)
|
||||
END
|
||||
END
|
||||
ELSIF ansi THEN
|
||||
|
|
@ -551,187 +531,162 @@ MODULE OPV; (* J. Templ 16.2.95 / 3.7.96
|
|||
OPM.Write(OpenParen);
|
||||
END;
|
||||
CASE class OF
|
||||
OPM.Nconst:
|
||||
OPC.Constant(n^.conval, form)
|
||||
| OPM.Nupto: (* n^.typ = OPT.settyp *)
|
||||
OPM.WriteString(SetRangeFunc); expr(l, MinPrec); OPM.WriteString(Comma); expr (r, MinPrec);
|
||||
OPM.Write(CloseParen)
|
||||
| OPM.Nmop:
|
||||
CASE subclass OF
|
||||
OPM.not:
|
||||
OPM.Write("!"); expr(l, exprPrec)
|
||||
| OPM.minus:
|
||||
IF form = OPM.Set THEN OPM.Write("~") ELSE OPM.Write("-"); END ;
|
||||
expr(l, exprPrec)
|
||||
| OPM.is:
|
||||
typ := n^.obj^.typ;
|
||||
IF l^.typ^.comp = OPM.Record THEN OPM.WriteString(IsFunc); OPC.TypeOf(l^.obj)
|
||||
ELSE OPM.WriteString(IsPFunc); expr(l, MinPrec); typ := typ^.BaseTyp
|
||||
END ;
|
||||
OPM.WriteString(Comma);
|
||||
OPC.Andent(typ); OPM.WriteString(Comma);
|
||||
OPM.WriteInt(typ^.extlev); OPM.Write(")")
|
||||
| OPM.conv:
|
||||
Convert(l, form, exprPrec)
|
||||
| OPM.abs:
|
||||
IF SideEffects(l) THEN
|
||||
IF l^.typ^.form < OPM.Real THEN
|
||||
IF l^.typ^.form < OPM.LInt THEN OPM.WriteString("(int)") END ;
|
||||
OPM.WriteString("__ABSF(")
|
||||
ELSE OPM.WriteString("__ABSFD(")
|
||||
| OPM.Nconst: OPC.Constant(n^.conval, form)
|
||||
| OPM.Nupto: (* n^.typ = OPT.settyp *)
|
||||
OPM.WriteString(SetRangeFunc); expr(l, MinPrec); OPM.WriteString(Comma); expr (r, MinPrec);
|
||||
OPM.Write(CloseParen)
|
||||
| OPM.Nmop:
|
||||
CASE subclass OF
|
||||
| OPM.not: OPM.Write("!"); expr(l, exprPrec)
|
||||
| OPM.minus: IF form = OPM.Set THEN OPM.Write("~") ELSE OPM.Write("-") END;
|
||||
expr(l, exprPrec)
|
||||
| OPM.is: typ := n^.obj^.typ;
|
||||
IF l^.typ^.comp = OPM.Record THEN OPM.WriteString(IsFunc); OPC.TypeOf(l^.obj)
|
||||
ELSE OPM.WriteString(IsPFunc); expr(l, MinPrec); typ := typ^.BaseTyp
|
||||
END ;
|
||||
OPM.WriteString(Comma);
|
||||
OPC.Andent(typ); OPM.WriteString(Comma);
|
||||
OPM.WriteInt(typ^.extlev); OPM.Write(")")
|
||||
| OPM.conv: Convert(l, form, exprPrec)
|
||||
| OPM.abs: IF SideEffects(l) THEN
|
||||
IF l^.typ^.form < OPM.Real THEN
|
||||
IF l^.typ^.form < OPM.LInt THEN OPM.WriteString("(int)") END ;
|
||||
OPM.WriteString("__ABSF(")
|
||||
ELSE OPM.WriteString("__ABSFD(")
|
||||
END
|
||||
ELSE OPM.WriteString("__ABS(")
|
||||
END ;
|
||||
expr(l, MinPrec); OPM.Write(CloseParen)
|
||||
| OPM.cap: OPM.WriteString("__CAP("); expr(l, MinPrec); OPM.Write(CloseParen)
|
||||
| OPM.odd: OPM.WriteString("__ODD("); expr(l, MinPrec); OPM.Write(CloseParen)
|
||||
| OPM.adr: OPM.WriteString("(LONGINT)(uintptr_t)"); (*SYSTEM*)
|
||||
IF l^.class = OPM.Nvarpar THEN OPC.CompleteIdent(l^.obj)
|
||||
ELSE
|
||||
IF (l^.typ^.form # OPM.String) & ~(l^.typ^.comp IN {OPM.Array, OPM.DynArr}) THEN OPM.Write("&") END ;
|
||||
expr(l, exprPrec)
|
||||
END
|
||||
| OPM.val: IF ~(l^.class IN {OPM.Nvar, OPM.Nvarpar, OPM.Nfield, OPM.Nindex}) (*SYSTEM*)
|
||||
OR (n^.typ^.form IN {OPM.LInt, OPM.Pointer, OPM.Set, OPM.ProcTyp})
|
||||
& (l^.typ^.form IN {OPM.LInt, OPM.Pointer, OPM.Set, OPM.ProcTyp})
|
||||
& (n^.typ^.size = l^.typ^.size)
|
||||
THEN
|
||||
OPM.Write(OpenParen); OPC.Ident(n^.typ^.strobj); OPM.Write(CloseParen);
|
||||
IF (n^.typ^.form IN {OPM.Pointer, OPM.ProcTyp}) OR (l^.typ^.form IN {OPM.Pointer, OPM.ProcTyp}) THEN
|
||||
OPM.WriteString("(uintptr_t)")
|
||||
END;
|
||||
expr(l, exprPrec)
|
||||
ELSE
|
||||
IF (n^.typ^.form IN {OPM.Pointer, OPM.ProcTyp}) OR (l^.typ^.form IN {OPM.Pointer, OPM.ProcTyp}) THEN
|
||||
OPM.WriteString("__VALP(");
|
||||
ELSE
|
||||
OPM.WriteString("__VAL(");
|
||||
END;
|
||||
OPC.Ident(n^.typ^.strobj); OPM.WriteString(Comma);
|
||||
expr(l, MinPrec); OPM.Write(CloseParen)
|
||||
END
|
||||
ELSE OPM.err(200)
|
||||
END
|
||||
ELSE OPM.WriteString("__ABS(")
|
||||
END ;
|
||||
expr(l, MinPrec); OPM.Write(CloseParen)
|
||||
| OPM.cap:
|
||||
OPM.WriteString("__CAP("); expr(l, MinPrec); OPM.Write(CloseParen)
|
||||
| OPM.odd:
|
||||
OPM.WriteString("__ODD("); expr(l, MinPrec); OPM.Write(CloseParen)
|
||||
| OPM.adr: (*SYSTEM*)
|
||||
OPM.WriteString("(LONGINT)(uintptr_t)");
|
||||
IF l^.class = OPM.Nvarpar THEN OPC.CompleteIdent(l^.obj)
|
||||
ELSE
|
||||
IF (l^.typ^.form # OPM.String) & ~(l^.typ^.comp IN {OPM.Array, OPM.DynArr}) THEN OPM.Write("&") END ;
|
||||
expr(l, exprPrec)
|
||||
END
|
||||
| OPM.val: (*SYSTEM*)
|
||||
IF ~(l^.class IN {OPM.Nvar, OPM.Nvarpar, OPM.Nfield, OPM.Nindex})
|
||||
OR (n^.typ^.form IN {OPM.LInt, OPM.Pointer, OPM.Set, OPM.ProcTyp})
|
||||
& (l^.typ^.form IN {OPM.LInt, OPM.Pointer, OPM.Set, OPM.ProcTyp})
|
||||
& (n^.typ^.size = l^.typ^.size)
|
||||
THEN
|
||||
OPM.Write(OpenParen); OPC.Ident(n^.typ^.strobj); OPM.Write(CloseParen);
|
||||
IF (n^.typ^.form IN {OPM.Pointer, OPM.ProcTyp}) OR (l^.typ^.form IN {OPM.Pointer, OPM.ProcTyp}) THEN
|
||||
OPM.WriteString("(uintptr_t)")
|
||||
END;
|
||||
expr(l, exprPrec)
|
||||
ELSE
|
||||
IF (n^.typ^.form IN {OPM.Pointer, OPM.ProcTyp}) OR (l^.typ^.form IN {OPM.Pointer, OPM.ProcTyp}) THEN
|
||||
OPM.WriteString("__VALP(");
|
||||
ELSE
|
||||
OPM.WriteString("__VAL(");
|
||||
END;
|
||||
OPC.Ident(n^.typ^.strobj); OPM.WriteString(Comma);
|
||||
expr(l, MinPrec); OPM.Write(CloseParen)
|
||||
END
|
||||
ELSE OPM.err(200)
|
||||
END
|
||||
| OPM.Ndop:
|
||||
CASE subclass OF
|
||||
OPM.len:
|
||||
Len(l, r^.conval^.intval)
|
||||
| OPM.in, OPM.ash, OPM.msk, OPM.bit, OPM.lsh, OPM.rot, OPM.div, OPM.mod:
|
||||
CASE subclass OF
|
||||
| OPM.in:
|
||||
OPM.WriteString("__IN(")
|
||||
| OPM.ash:
|
||||
IF r^.class = OPM.Nconst THEN
|
||||
IF r^.conval^.intval >= 0 THEN OPM.WriteString("__ASHL(")
|
||||
ELSE OPM.WriteString("__ASHR(")
|
||||
END
|
||||
ELSIF SideEffects(r) THEN OPM.WriteString("__ASHF(")
|
||||
ELSE OPM.WriteString("__ASH(")
|
||||
END
|
||||
| OPM.msk:
|
||||
OPM.WriteString("__MASK(");
|
||||
| OPM.bit:
|
||||
OPM.WriteString("__BIT(")
|
||||
| OPM.lsh:
|
||||
IF r^.class = OPM.Nconst THEN
|
||||
IF r^.conval^.intval >= 0 THEN OPM.WriteString("__LSHL(")
|
||||
ELSE OPM.WriteString("__LSHR(")
|
||||
END
|
||||
ELSE OPM.WriteString("__LSH(")
|
||||
END
|
||||
| OPM.rot:
|
||||
IF r^.class = OPM.Nconst THEN
|
||||
IF r^.conval^.intval >= 0 THEN OPM.WriteString("__ROTL(")
|
||||
ELSE OPM.WriteString("__ROTR(")
|
||||
END
|
||||
ELSE OPM.WriteString("__ROT(")
|
||||
END
|
||||
| OPM.div:
|
||||
IF SideEffects(n) THEN
|
||||
IF form < OPM.LInt THEN OPM.WriteString("(int)") END ;
|
||||
OPM.WriteString("__DIVF(")
|
||||
ELSE OPM.WriteString("__DIV(")
|
||||
END
|
||||
| OPM.mod:
|
||||
IF form < OPM.LInt THEN OPM.WriteString("(int)") END ;
|
||||
IF SideEffects(n) THEN OPM.WriteString("__MODF(")
|
||||
ELSE OPM.WriteString("__MOD(")
|
||||
END;
|
||||
ELSE
|
||||
OPM.LogWStr("unhandled case in OPV.expr, subclass = "); OPM.LogWNum(subclass, 0); OPM.LogWLn;
|
||||
END ;
|
||||
expr(l, MinPrec);
|
||||
OPM.WriteString(Comma);
|
||||
IF (subclass IN {OPM.ash, OPM.lsh, OPM.rot}) & (r^.class = OPM.Nconst) & (r^.conval^.intval < 0) THEN
|
||||
OPM.WriteInt(-r^.conval^.intval)
|
||||
ELSE expr(r, MinPrec)
|
||||
END ;
|
||||
IF subclass IN {OPM.lsh, OPM.rot} THEN OPM.WriteString(Comma); OPC.Ident(l^.typ^.strobj) END ;
|
||||
OPM.Write(CloseParen)
|
||||
| OPM.eql .. OPM.geq:
|
||||
IF l^.typ^.form IN {OPM.String, OPM.Comp} THEN
|
||||
OPM.WriteString("__STRCMP(");
|
||||
expr(l, MinPrec); OPM.WriteString(Comma); expr(r, MinPrec); OPM.Write(CloseParen);
|
||||
OPC.Cmp(subclass); OPM.Write("0")
|
||||
ELSE
|
||||
expr(l, exprPrec); OPC.Cmp(subclass);
|
||||
typ := l^.typ;
|
||||
IF (typ^.form = OPM.Pointer) & (r^.typ.form # OPM.NilTyp) & (r^.typ # typ) & (r^.typ # OPT.sysptrtyp) THEN
|
||||
OPM.WriteString("(void *) ")
|
||||
END ;
|
||||
expr(r, exprPrec)
|
||||
END
|
||||
ELSE
|
||||
IF (subclass = OPM.and) OR ((form = OPM.Set) & ((subclass = OPM.times) OR (subclass = OPM.minus))) THEN OPM.Write(OpenParen); END; (* to silence clang warnings; -- noch *)
|
||||
expr(l, exprPrec);
|
||||
CASE subclass OF
|
||||
OPM.times:
|
||||
IF form = OPM.Set THEN OPM.WriteString(" & ")
|
||||
ELSE OPM.WriteString(" * ")
|
||||
| OPM.Ndop: CASE subclass OF
|
||||
| OPM.len: Len(l, r^.conval^.intval)
|
||||
| OPM.in,
|
||||
OPM.ash,
|
||||
OPM.msk,
|
||||
OPM.bit,
|
||||
OPM.lsh,
|
||||
OPM.rot,
|
||||
OPM.div,
|
||||
OPM.mod: CASE subclass OF
|
||||
| OPM.in: OPM.WriteString("__IN(")
|
||||
| OPM.ash: IF r^.class = OPM.Nconst THEN
|
||||
IF r^.conval^.intval >= 0 THEN OPM.WriteString("__ASHL(")
|
||||
ELSE OPM.WriteString("__ASHR(")
|
||||
END
|
||||
ELSIF SideEffects(r) THEN OPM.WriteString("__ASHF(")
|
||||
ELSE OPM.WriteString("__ASH(")
|
||||
END
|
||||
| OPM.msk: OPM.WriteString("__MASK(");
|
||||
| OPM.bit: OPM.WriteString("__BIT(")
|
||||
| OPM.lsh: IF r^.class = OPM.Nconst THEN
|
||||
IF r^.conval^.intval >= 0 THEN OPM.WriteString("__LSHL(")
|
||||
ELSE OPM.WriteString("__LSHR(")
|
||||
END
|
||||
ELSE OPM.WriteString("__LSH(")
|
||||
END
|
||||
| OPM.rot: IF r^.class = OPM.Nconst THEN
|
||||
IF r^.conval^.intval >= 0 THEN OPM.WriteString("__ROTL(")
|
||||
ELSE OPM.WriteString("__ROTR(")
|
||||
END
|
||||
ELSE OPM.WriteString("__ROT(")
|
||||
END
|
||||
| OPM.div: IF SideEffects(n) THEN
|
||||
IF form < OPM.LInt THEN OPM.WriteString("(int)") END ;
|
||||
OPM.WriteString("__DIVF(")
|
||||
ELSE OPM.WriteString("__DIV(")
|
||||
END
|
||||
| OPM.mod: IF form < OPM.LInt THEN OPM.WriteString("(int)") END ;
|
||||
IF SideEffects(n) THEN OPM.WriteString("__MODF(")
|
||||
ELSE OPM.WriteString("__MOD(")
|
||||
END;
|
||||
ELSE OPM.LogWStr("unhandled case in OPV.expr, subclass = "); OPM.LogWNum(subclass, 0); OPM.LogWLn;
|
||||
END ;
|
||||
expr(l, MinPrec);
|
||||
OPM.WriteString(Comma);
|
||||
IF (subclass IN {OPM.ash, OPM.lsh, OPM.rot}) & (r^.class = OPM.Nconst) & (r^.conval^.intval < 0) THEN
|
||||
OPM.WriteInt(-r^.conval^.intval)
|
||||
ELSE expr(r, MinPrec)
|
||||
END ;
|
||||
IF subclass IN {OPM.lsh, OPM.rot} THEN OPM.WriteString(Comma); OPC.Ident(l^.typ^.strobj) END ;
|
||||
OPM.Write(CloseParen)
|
||||
| OPM.eql
|
||||
.. OPM.geq: IF l^.typ^.form IN {OPM.String, OPM.Comp} THEN
|
||||
OPM.WriteString("__STRCMP(");
|
||||
expr(l, MinPrec); OPM.WriteString(Comma); expr(r, MinPrec); OPM.Write(CloseParen);
|
||||
OPC.Cmp(subclass); OPM.Write("0")
|
||||
ELSE
|
||||
expr(l, exprPrec); OPC.Cmp(subclass);
|
||||
typ := l^.typ;
|
||||
IF (typ^.form = OPM.Pointer) & (r^.typ.form # OPM.NilTyp) & (r^.typ # typ) & (r^.typ # OPT.sysptrtyp) THEN
|
||||
OPM.WriteString("(void *) ")
|
||||
END ;
|
||||
expr(r, exprPrec)
|
||||
END
|
||||
ELSE IF (subclass = OPM.and) OR ((form = OPM.Set) & ((subclass = OPM.times) OR (subclass = OPM.minus))) THEN OPM.Write(OpenParen); END; (* to silence clang warnings; -- noch *)
|
||||
expr(l, exprPrec);
|
||||
CASE subclass OF
|
||||
| OPM.times: IF form = OPM.Set THEN OPM.WriteString(" & ")
|
||||
ELSE OPM.WriteString(" * ")
|
||||
END
|
||||
| OPM.slash: IF form = OPM.Set THEN OPM.WriteString(" ^ ")
|
||||
ELSE OPM.WriteString(" / ");
|
||||
IF (r^.obj = NIL) OR (r^.obj^.typ^.form IN OPM.intSet) THEN
|
||||
OPM.Write(OpenParen); OPC.Ident(n^.typ^.strobj); OPM.Write(CloseParen)
|
||||
END
|
||||
END
|
||||
| OPM.and: OPM.WriteString(" && ")
|
||||
| OPM.plus: IF form = OPM.Set THEN OPM.WriteString(" | ")
|
||||
ELSE OPM.WriteString(" + ")
|
||||
END
|
||||
| OPM.minus: IF form = OPM.Set THEN OPM.WriteString(" & ~")
|
||||
ELSE OPM.WriteString(" - ")
|
||||
END;
|
||||
| OPM.or: OPM.WriteString(" || ");
|
||||
ELSE OPM.LogWStr("unhandled case in OPV.expr, subclass = "); OPM.LogWNum(subclass, 0); OPM.LogWLn;
|
||||
END;
|
||||
expr(r, exprPrec);
|
||||
IF (subclass = OPM.and) OR ((form = OPM.Set) & ((subclass = OPM.times) OR (subclass = OPM.minus))) THEN OPM.Write(CloseParen) END; (* to silence clang warnings, -- noch*)
|
||||
END
|
||||
| OPM.slash:
|
||||
IF form = OPM.Set THEN OPM.WriteString(" ^ ")
|
||||
ELSE OPM.WriteString(" / ");
|
||||
IF (r^.obj = NIL) OR (r^.obj^.typ^.form IN OPM.intSet) THEN
|
||||
OPM.Write(OpenParen); OPC.Ident(n^.typ^.strobj); OPM.Write(CloseParen)
|
||||
END
|
||||
END
|
||||
| OPM.and:
|
||||
OPM.WriteString(" && ")
|
||||
| OPM.plus:
|
||||
IF form = OPM.Set THEN OPM.WriteString(" | ")
|
||||
ELSE OPM.WriteString(" + ")
|
||||
END
|
||||
| OPM.minus:
|
||||
IF form = OPM.Set THEN OPM.WriteString(" & ~")
|
||||
ELSE OPM.WriteString(" - ")
|
||||
END;
|
||||
| OPM.or:
|
||||
OPM.WriteString(" || ");
|
||||
ELSE
|
||||
OPM.LogWStr("unhandled case in OPV.expr, subclass = "); OPM.LogWNum(subclass, 0); OPM.LogWLn;
|
||||
END;
|
||||
expr(r, exprPrec);
|
||||
IF (subclass = OPM.and) OR ((form = OPM.Set) & ((subclass = OPM.times) OR (subclass = OPM.minus))) THEN OPM.Write(CloseParen) END; (* to silence clang warnings, -- noch*)
|
||||
END
|
||||
| OPM.Ncall:
|
||||
IF (l^.obj # NIL) & (l^.obj^.mode = OPM.TProc) THEN
|
||||
IF l^.subcl = OPM.super THEN proc := SuperProc(n)
|
||||
ELSE OPM.WriteString("__"); proc := OPC.BaseTProc(l^.obj)
|
||||
END ;
|
||||
OPC.Ident(proc);
|
||||
n^.obj := proc^.link
|
||||
ELSIF l^.class = OPM.Nproc THEN design(l, 10)
|
||||
ELSE design(l, ProcTypeVar)
|
||||
END ;
|
||||
ActualPar(r, n^.obj)
|
||||
ELSE
|
||||
design(n, prec); (* not exprPrec! *)
|
||||
END ;
|
||||
| OPM.Ncall: IF (l^.obj # NIL) & (l^.obj^.mode = OPM.TProc) THEN
|
||||
IF l^.subcl = OPM.super THEN proc := SuperProc(n)
|
||||
ELSE OPM.WriteString("__"); proc := OPC.BaseTProc(l^.obj)
|
||||
END ;
|
||||
OPC.Ident(proc);
|
||||
n^.obj := proc^.link
|
||||
ELSIF l^.class = OPM.Nproc THEN design(l, 10)
|
||||
ELSE design(l, ProcTypeVar)
|
||||
END ;
|
||||
ActualPar(r, n^.obj)
|
||||
ELSE design(n, prec); (* not exprPrec! *)
|
||||
END;
|
||||
IF (exprPrec <= prec) & (class IN {OPM.Nconst, OPM.Nupto, OPM.Nmop, OPM.Ndop, OPM.Ncall, OPM.Nguard}) THEN
|
||||
OPM.Write(CloseParen)
|
||||
END
|
||||
|
|
@ -863,161 +818,137 @@ MODULE OPV; (* J. Templ 16.2.95 / 3.7.96
|
|||
BEGIN
|
||||
WHILE (n # NIL) & OPM.noerr DO
|
||||
OPM.errpos := n^.conval^.intval;
|
||||
IF n^.class # OPM.Ninittd THEN OPC.BegStat; END;
|
||||
IF n^.class # OPM.Ninittd THEN OPC.BegStat END;
|
||||
CASE n^.class OF
|
||||
OPM.Nenter:
|
||||
IF n^.obj = NIL THEN (* enter module *)
|
||||
INC(OPM.level); stat(n^.left, outerProc); DEC(OPM.level);
|
||||
OPC.GenEnumPtrs(OPT.topScope^.scope);
|
||||
DefineTDescs(n^.right); OPC.EnterBody; InitTDescs(n^.right);
|
||||
OPM.WriteString("/* BEGIN */"); OPM.WriteLn;
|
||||
stat(n^.right, outerProc); OPC.ExitBody
|
||||
ELSE (* enter proc *)
|
||||
proc := n^.obj;
|
||||
OPC.TypeDefs(proc^.scope^.right, 0);
|
||||
IF ~proc^.scope^.leaf THEN OPC.DefineInter (proc) END ; (* define intermediate procedure scope *)
|
||||
INC(OPM.level); stat(n^.left, proc); DEC(OPM.level);
|
||||
OPC.EnterProc(proc); stat(n^.right, proc);
|
||||
OPC.ExitProc(proc, TRUE, ImplicitReturn(n^.right));
|
||||
END
|
||||
| OPM.Ninittd: (* done in enter module *)
|
||||
| OPM.Nassign:
|
||||
CASE n^.subcl OF
|
||||
OPM.assign:
|
||||
l := n^.left; r := n^.right;
|
||||
IF l^.typ^.comp = OPM.Array THEN (* includes string assignment but not COPY *)
|
||||
OPM.WriteString(MoveFunc);
|
||||
expr(r, MinPrec); OPM.WriteString(Comma); expr(l, MinPrec); OPM.WriteString(Comma);
|
||||
IF r^.typ = OPT.stringtyp THEN OPM.WriteInt(r^.conval^.intval2)
|
||||
ELSE OPM.WriteInt(r^.typ^.size)
|
||||
END ;
|
||||
OPM.Write(CloseParen)
|
||||
ELSE
|
||||
IF (l^.typ^.form = OPM.Pointer) & (l^.obj # NIL) & (l^.obj^.adr = 1) & (l^.obj^.mode = OPM.Var) THEN
|
||||
l^.obj^.adr := 0; design(l, MinPrec); l^.obj^.adr := 1; (* avoid cast of WITH-variable *)
|
||||
IF r^.typ^.form # OPM.NilTyp THEN OPM.WriteString(" = (void*)")
|
||||
ELSE OPM.WriteString(" = ")
|
||||
END
|
||||
ELSE
|
||||
design(l, MinPrec); OPM.WriteString(" = ")
|
||||
END ;
|
||||
IF l^.typ = r^.typ THEN expr(r, MinPrec)
|
||||
ELSIF (l^.typ^.form = OPM.Pointer) & (r^.typ^.form # OPM.NilTyp) & (l^.typ^.strobj # NIL) THEN
|
||||
OPM.Write("("); OPC.Ident(l^.typ^.strobj); OPM.Write(")"); expr(r, MinPrec)
|
||||
ELSIF l^.typ^.comp = OPM.Record THEN
|
||||
OPM.WriteString("*("); OPC.Andent(l^.typ); OPM.WriteString("*)&"); expr(r, 9)
|
||||
ELSE expr(r, MinPrec)
|
||||
END
|
||||
END
|
||||
| OPM.newfn:
|
||||
IF n^.left^.typ^.BaseTyp^.comp = OPM.Record THEN
|
||||
OPM.WriteString("__NEW("); design(n^.left, MinPrec); OPM.WriteString(", ");
|
||||
OPC.Andent(n^.left^.typ^.BaseTyp); OPM.WriteString(")")
|
||||
ELSIF n^.left^.typ^.BaseTyp^.comp IN {OPM.Array, OPM.DynArr} THEN
|
||||
NewArr(n^.left, n^.right)
|
||||
END
|
||||
| OPM.incfn, OPM.decfn:
|
||||
expr(n^.left, MinPrec); OPC.Increment(n^.subcl = OPM.decfn); expr(n^.right, MinPrec)
|
||||
| OPM.inclfn, OPM.exclfn:
|
||||
expr(n^.left, MinPrec); OPC.SetInclude(n^.subcl = OPM.exclfn); OPM.WriteString(SetOfFunc); expr(n^.right, MinPrec);
|
||||
OPM.Write(CloseParen)
|
||||
| OPM.copyfn:
|
||||
OPM.WriteString(CopyFunc);
|
||||
expr(n^.right, MinPrec); OPM.WriteString(Comma); expr(n^.left, MinPrec); OPM.WriteString(Comma);
|
||||
Len(n^.left, 0); OPM.Write(CloseParen)
|
||||
| (*SYSTEM*)OPM.movefn:
|
||||
OPM.WriteString(MoveFunc);
|
||||
expr(n^.right, MinPrec); OPM.WriteString(Comma); expr(n^.left, MinPrec); OPM.WriteString(Comma);
|
||||
expr(n^.right^.link, MinPrec);
|
||||
OPM.Write(CloseParen)
|
||||
| (*SYSTEM*)OPM.getfn:
|
||||
OPM.WriteString(GetFunc); expr(n^.right, MinPrec); OPM.WriteString(Comma); expr(n^.left, MinPrec);
|
||||
OPM.WriteString(Comma); OPC.Ident(n^.left^.typ^.strobj); OPM.Write(CloseParen)
|
||||
| (*SYSTEM*)OPM.putfn:
|
||||
OPM.WriteString(PutFunc); expr(n^.left, MinPrec); OPM.WriteString(Comma); expr(n^.right, MinPrec);
|
||||
OPM.WriteString(Comma); OPC.Ident(n^.right^.typ^.strobj); OPM.Write(CloseParen)
|
||||
| (*SYSTEM*)OPM.getrfn, OPM.putrfn: OPM.err(200)
|
||||
| (*SYSTEM*)OPM.sysnewfn:
|
||||
OPM.WriteString("__SYSNEW(");
|
||||
design(n^.left, MinPrec); OPM.WriteString(", ");
|
||||
expr(n^.right, MinPrec);
|
||||
OPM.Write(")")
|
||||
ELSE
|
||||
OPM.LogWStr("unhandled case in OPV.expr, n^.subcl = "); OPM.LogWNum(n^.subcl, 0); OPM.LogWLn;
|
||||
END
|
||||
| OPM.Ncall:
|
||||
IF (n^.left^.obj # NIL) & (n^.left^.obj^.mode = OPM.TProc) THEN
|
||||
IF n^.left^.subcl = OPM.super THEN proc := SuperProc(n)
|
||||
ELSE OPM.WriteString("__"); proc := OPC.BaseTProc(n^.left^.obj)
|
||||
END ;
|
||||
OPC.Ident(proc);
|
||||
n^.obj := proc^.link
|
||||
ELSIF n^.left^.class = OPM.Nproc THEN design(n^.left, 10)
|
||||
ELSE design(n^.left, ProcTypeVar)
|
||||
END ;
|
||||
ActualPar(n^.right, n^.obj)
|
||||
| OPM.Nifelse:
|
||||
IF n^.subcl # OPM.assertfn THEN IfStat(n, FALSE, outerProc)
|
||||
ELSIF assert THEN OPM.WriteString("__ASSERT("); expr(n^.left^.left^.left, MinPrec); OPM.WriteString(Comma);
|
||||
OPM.WriteInt(n^.left^.right^.right^.conval^.intval); OPM.Write(CloseParen); OPC.EndStat
|
||||
END
|
||||
| OPM.Ncase:
|
||||
INC(exit.level); CaseStat(n, outerProc); DEC(exit.level)
|
||||
| OPM.Nwhile:
|
||||
INC(exit.level); OPM.WriteString("while "); expr(n^.left, MaxPrec);
|
||||
OPM.Write(Blank); OPC.BegBlk; stat(n^.right, outerProc); OPC.EndBlk;
|
||||
DEC(exit.level)
|
||||
| OPM.Nrepeat:
|
||||
INC(exit.level); OPM.WriteString("do "); OPC.BegBlk; stat(n^.left, outerProc); OPC.EndBlk0;
|
||||
OPM.WriteString(" while (!"); expr(n^.right, 9); OPM.Write(CloseParen);
|
||||
DEC(exit.level)
|
||||
| OPM.Nloop:
|
||||
saved := exit; exit.level := 0; exit.label := -1;
|
||||
OPM.WriteString("for (;;) "); OPC.BegBlk; stat(n^.left, outerProc); OPC.EndBlk;
|
||||
IF exit.label # -1 THEN
|
||||
OPC.BegStat; OPM.WriteString("exit__"); OPM.WriteInt(exit.label); OPM.Write(":"); OPC.EndStat
|
||||
END ;
|
||||
exit := saved
|
||||
| OPM.Nexit:
|
||||
IF exit.level = 0 THEN OPM.WriteString(Break)
|
||||
ELSE
|
||||
IF exit.label = -1 THEN exit.label := nofExitLabels; INC(nofExitLabels) END ;
|
||||
OPM.WriteString("goto exit__"); OPM.WriteInt(exit.label)
|
||||
END
|
||||
| OPM.Nreturn:
|
||||
IF OPM.level = 0 THEN
|
||||
IF mainprog THEN OPM.WriteString("__FINI") ELSE OPM.WriteString("__ENDMOD") END
|
||||
ELSE
|
||||
IF n^.left # NIL THEN
|
||||
(* Make local copy of result before ExitProc deletes dynamic vars *)
|
||||
OPM.WriteString("_o_result = ");
|
||||
IF (n^.left^.typ^.form = OPM.Pointer) & (n^.obj^.typ # n^.left^.typ) THEN
|
||||
OPM.WriteString("(void*)"); expr(n^.left, 10)
|
||||
ELSE
|
||||
expr(n^.left, MinPrec)
|
||||
END;
|
||||
OPM.WriteString(";"); OPM.WriteLn; OPC.BegStat;
|
||||
OPC.ExitProc(outerProc, FALSE, FALSE);
|
||||
OPM.WriteString("return _o_result");
|
||||
ELSE
|
||||
OPM.WriteString("return");
|
||||
END
|
||||
END
|
||||
| OPM.Nwith:
|
||||
IfStat(n, n^.subcl = 0, outerProc)
|
||||
| OPM.Ntrap:
|
||||
OPC.Halt(n^.right^.conval^.intval)
|
||||
ELSE
|
||||
(* this else is necessary cause
|
||||
it can happen that
|
||||
n^.class is something which is not handled,
|
||||
like OPM.Nconst (7)
|
||||
which I actually experienced
|
||||
when compiling Texts0.OPM.Mod on raspberry pi
|
||||
it generates __CASECHK and cause Halt,
|
||||
noch *)
|
||||
OPM.LogWStr("unhandled case in OPV.expr, n^.class = "); OPM.LogWNum(n^.class, 0); OPM.LogWLn;
|
||||
END ;
|
||||
| OPM.Nenter: IF n^.obj = NIL THEN (* enter module *)
|
||||
INC(OPM.level); stat(n^.left, outerProc); DEC(OPM.level);
|
||||
OPC.GenEnumPtrs(OPT.topScope^.scope);
|
||||
DefineTDescs(n^.right); OPC.EnterBody; InitTDescs(n^.right);
|
||||
OPM.WriteString("/* BEGIN */"); OPM.WriteLn;
|
||||
stat(n^.right, outerProc); OPC.ExitBody
|
||||
ELSE (* enter proc *)
|
||||
proc := n^.obj;
|
||||
OPC.TypeDefs(proc^.scope^.right, 0);
|
||||
IF ~proc^.scope^.leaf THEN OPC.DefineInter (proc) END ; (* define intermediate procedure scope *)
|
||||
INC(OPM.level); stat(n^.left, proc); DEC(OPM.level);
|
||||
OPC.EnterProc(proc); stat(n^.right, proc);
|
||||
OPC.ExitProc(proc, TRUE, ImplicitReturn(n^.right));
|
||||
END
|
||||
| OPM.Ninittd: (* done in enter module *)
|
||||
| OPM.Nassign: CASE n^.subcl OF
|
||||
| OPM.assign: l := n^.left; r := n^.right;
|
||||
IF l^.typ^.comp = OPM.Array THEN (* includes string assignment but not COPY *)
|
||||
OPM.WriteString(MoveFunc);
|
||||
expr(r, MinPrec); OPM.WriteString(Comma); expr(l, MinPrec); OPM.WriteString(Comma);
|
||||
IF r^.typ = OPT.stringtyp THEN OPM.WriteInt(r^.conval^.intval2)
|
||||
ELSE OPM.WriteInt(r^.typ^.size)
|
||||
END ;
|
||||
OPM.Write(CloseParen)
|
||||
ELSE
|
||||
IF (l^.typ^.form = OPM.Pointer) & (l^.obj # NIL) & (l^.obj^.adr = 1) & (l^.obj^.mode = OPM.Var) THEN
|
||||
l^.obj^.adr := 0; design(l, MinPrec); l^.obj^.adr := 1; (* avoid cast of WITH-variable *)
|
||||
IF r^.typ^.form # OPM.NilTyp THEN OPM.WriteString(" = (void*)")
|
||||
ELSE OPM.WriteString(" = ")
|
||||
END
|
||||
ELSE
|
||||
design(l, MinPrec); OPM.WriteString(" = ")
|
||||
END ;
|
||||
IF l^.typ = r^.typ THEN expr(r, MinPrec)
|
||||
ELSIF (l^.typ^.form = OPM.Pointer) & (r^.typ^.form # OPM.NilTyp) & (l^.typ^.strobj # NIL) THEN
|
||||
OPM.Write("("); OPC.Ident(l^.typ^.strobj); OPM.Write(")"); expr(r, MinPrec)
|
||||
ELSIF l^.typ^.comp = OPM.Record THEN
|
||||
OPM.WriteString("*("); OPC.Andent(l^.typ); OPM.WriteString("*)&"); expr(r, 9)
|
||||
ELSE expr(r, MinPrec)
|
||||
END
|
||||
END
|
||||
| OPM.newfn: IF n^.left^.typ^.BaseTyp^.comp = OPM.Record THEN
|
||||
OPM.WriteString("__NEW("); design(n^.left, MinPrec); OPM.WriteString(", ");
|
||||
OPC.Andent(n^.left^.typ^.BaseTyp); OPM.WriteString(")")
|
||||
ELSIF n^.left^.typ^.BaseTyp^.comp IN {OPM.Array, OPM.DynArr} THEN
|
||||
NewArr(n^.left, n^.right)
|
||||
END
|
||||
| OPM.incfn,
|
||||
OPM.decfn: expr(n^.left, MinPrec); OPC.Increment(n^.subcl = OPM.decfn); expr(n^.right, MinPrec)
|
||||
| OPM.inclfn,
|
||||
OPM.exclfn: expr(n^.left, MinPrec); OPC.SetInclude(n^.subcl = OPM.exclfn); OPM.WriteString(SetOfFunc); expr(n^.right, MinPrec);
|
||||
OPM.Write(CloseParen)
|
||||
| OPM.copyfn: OPM.WriteString(CopyFunc);
|
||||
expr(n^.right, MinPrec); OPM.WriteString(Comma); expr(n^.left, MinPrec); OPM.WriteString(Comma);
|
||||
Len(n^.left, 0); OPM.Write(CloseParen)
|
||||
| OPM.movefn: (*SYSTEM*)
|
||||
OPM.WriteString(MoveFunc);
|
||||
expr(n^.right, MinPrec); OPM.WriteString(Comma); expr(n^.left, MinPrec); OPM.WriteString(Comma);
|
||||
expr(n^.right^.link, MinPrec);
|
||||
OPM.Write(CloseParen)
|
||||
| OPM.getfn: (*SYSTEM*)
|
||||
OPM.WriteString(GetFunc); expr(n^.right, MinPrec); OPM.WriteString(Comma); expr(n^.left, MinPrec);
|
||||
OPM.WriteString(Comma); OPC.Ident(n^.left^.typ^.strobj); OPM.Write(CloseParen)
|
||||
| OPM.putfn: (*SYSTEM*)
|
||||
OPM.WriteString(PutFunc); expr(n^.left, MinPrec); OPM.WriteString(Comma); expr(n^.right, MinPrec);
|
||||
OPM.WriteString(Comma); OPC.Ident(n^.right^.typ^.strobj); OPM.Write(CloseParen)
|
||||
| OPM.getrfn, (*SYSTEM*)
|
||||
OPM.putrfn: (*SYSTEM*) OPM.err(200)
|
||||
| OPM.sysnewfn: (*SYSTEM*)
|
||||
OPM.WriteString("__SYSNEW(");
|
||||
design(n^.left, MinPrec); OPM.WriteString(", ");
|
||||
expr(n^.right, MinPrec);
|
||||
OPM.Write(")")
|
||||
ELSE OPM.LogWStr("unhandled case in OPV.expr, n^.subcl = "); OPM.LogWNum(n^.subcl, 0); OPM.LogWLn;
|
||||
END
|
||||
| OPM.Ncall: IF (n^.left^.obj # NIL) & (n^.left^.obj^.mode = OPM.TProc) THEN
|
||||
IF n^.left^.subcl = OPM.super THEN proc := SuperProc(n)
|
||||
ELSE OPM.WriteString("__"); proc := OPC.BaseTProc(n^.left^.obj)
|
||||
END ;
|
||||
OPC.Ident(proc);
|
||||
n^.obj := proc^.link
|
||||
ELSIF n^.left^.class = OPM.Nproc THEN design(n^.left, 10)
|
||||
ELSE design(n^.left, ProcTypeVar)
|
||||
END ;
|
||||
ActualPar(n^.right, n^.obj)
|
||||
| OPM.Nifelse: IF n^.subcl # OPM.assertfn THEN IfStat(n, FALSE, outerProc)
|
||||
ELSIF assert THEN OPM.WriteString("__ASSERT("); expr(n^.left^.left^.left, MinPrec); OPM.WriteString(Comma);
|
||||
OPM.WriteInt(n^.left^.right^.right^.conval^.intval); OPM.Write(CloseParen); OPC.EndStat
|
||||
END
|
||||
| OPM.Ncase: INC(exit.level); CaseStat(n, outerProc); DEC(exit.level)
|
||||
| OPM.Nwhile: INC(exit.level); OPM.WriteString("while "); expr(n^.left, MaxPrec);
|
||||
OPM.Write(Blank); OPC.BegBlk; stat(n^.right, outerProc); OPC.EndBlk;
|
||||
DEC(exit.level)
|
||||
| OPM.Nrepeat: INC(exit.level); OPM.WriteString("do "); OPC.BegBlk; stat(n^.left, outerProc); OPC.EndBlk0;
|
||||
OPM.WriteString(" while (!"); expr(n^.right, 9); OPM.Write(CloseParen);
|
||||
DEC(exit.level)
|
||||
| OPM.Nloop: saved := exit; exit.level := 0; exit.label := -1;
|
||||
OPM.WriteString("for (;;) "); OPC.BegBlk; stat(n^.left, outerProc); OPC.EndBlk;
|
||||
IF exit.label # -1 THEN
|
||||
OPC.BegStat; OPM.WriteString("exit__"); OPM.WriteInt(exit.label); OPM.Write(":"); OPC.EndStat
|
||||
END ;
|
||||
exit := saved
|
||||
| OPM.Nexit: IF exit.level = 0 THEN OPM.WriteString(Break)
|
||||
ELSE
|
||||
IF exit.label = -1 THEN exit.label := nofExitLabels; INC(nofExitLabels) END ;
|
||||
OPM.WriteString("goto exit__"); OPM.WriteInt(exit.label)
|
||||
END
|
||||
| OPM.Nreturn: IF OPM.level = 0 THEN
|
||||
IF mainprog THEN OPM.WriteString("__FINI") ELSE OPM.WriteString("__ENDMOD") END
|
||||
ELSE
|
||||
IF n^.left # NIL THEN
|
||||
(* Make local copy of result before ExitProc deletes dynamic vars *)
|
||||
OPM.WriteString("_o_result = ");
|
||||
IF (n^.left^.typ^.form = OPM.Pointer) & (n^.obj^.typ # n^.left^.typ) THEN
|
||||
OPM.WriteString("(void*)"); expr(n^.left, 10)
|
||||
ELSE
|
||||
expr(n^.left, MinPrec)
|
||||
END;
|
||||
OPM.WriteString(";"); OPM.WriteLn; OPC.BegStat;
|
||||
OPC.ExitProc(outerProc, FALSE, FALSE);
|
||||
OPM.WriteString("return _o_result");
|
||||
ELSE
|
||||
OPM.WriteString("return");
|
||||
END
|
||||
END
|
||||
| OPM.Nwith: IfStat(n, n^.subcl = 0, outerProc)
|
||||
| OPM.Ntrap: OPC.Halt(n^.right^.conval^.intval)
|
||||
ELSE OPM.LogWStr("unhandled case in OPV.expr, n^.class = "); OPM.LogWNum(n^.class, 0); OPM.LogWLn;
|
||||
END;
|
||||
IF ~(n^.class IN {OPM.Nenter, OPM.Ninittd, OPM.Nifelse, OPM.Nwith, OPM.Ncase, OPM.Nwhile, OPM.Nloop}) THEN OPC.EndStat END ;
|
||||
n := n^.link
|
||||
END
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue