home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.ee.pdx.edu
/
2014.02.ftp.ee.pdx.edu.tar
/
ftp.ee.pdx.edu
/
pub
/
users
/
Harry
/
compilers
/
p6
/
tst
/
predefinedOK.out.bak
< prev
next >
Wrap
Text File
|
2005-11-18
|
10KB
|
278 lines
#1: ---------- Body ----------
lineNumber=6
typeDecls=
#2: ---------- TypeDecl ----------
lineNumber=6
id="MyArr"
compoundType=
#3: ---------- ArrayType ----------
lineNumber=6
elementType=
#4: ---------- TypeName ----------
lineNumber=6
id="integer"
myDef=NULL
------------------------------
------------------------------
------------------------------
#5: ---------- TypeDecl ----------
lineNumber=7
id="MyRec"
compoundType=
#6: ---------- RecordType ----------
lineNumber=7
fieldDecls=
#7: ---------- FieldDecl ----------
lineNumber=7
id="f"
typeName=
#8: ---------- TypeName ----------
lineNumber=7
id="integer"
myDef=NULL
------------------------------
------------------------------
------------------------------
------------------------------
procDecls=NULL
varDecls=
#9: ---------- VarDecl ----------
lineNumber=8
id="b"
typeName=
#10: ---------- TypeName ----------
lineNumber=8
id="boolean"
myDef=NULL
------------------------------
expr=
#11: ---------- BooleanConst ----------
lineNumber=8
iValue=0
------------------------------
lexLevel=0
------------------------------
#12: ---------- VarDecl ----------
lineNumber=9
id="r"
typeName=
#13: ---------- TypeName ----------
lineNumber=9
id="MyRec"
myDef=
***** This node was printed earlier (#6: RecordType) *****
------------------------------
expr=
#14: ---------- NilConst ----------
lineNumber=9
------------------------------
lexLevel=0
------------------------------
#15: ---------- VarDecl ----------
lineNumber=10
id="a"
typeName=
#16: ---------- TypeName ----------
lineNumber=10
id="MyArr"
myDef=
***** This node was printed earlier (#3: ArrayType) *****
------------------------------
expr=
#17: ---------- NilConst ----------
lineNumber=10
------------------------------
lexLevel=0
------------------------------
stmts=
#18: ---------- AssignStmt ----------
lineNumber=12
lValue=
#19: ---------- Variable ----------
lineNumber=12
id="b"
myDef=
***** This node was printed earlier (#9: VarDecl) *****
currentLevel=0
------------------------------
expr=
#20: ---------- BooleanConst ----------
lineNumber=12
iValue=1
------------------------------
------------------------------
#21: ---------- AssignStmt ----------
lineNumber=13
lValue=
#22: ---------- Variable ----------
lineNumber=13
id="b"
myDef=
***** This node was printed earlier (#9: VarDecl) *****
currentLevel=0
------------------------------
expr=
#23: ---------- BooleanConst ----------
lineNumber=13
iValue=0
------------------------------
------------------------------
#24: ---------- AssignStmt ----------
lineNumber=14
lValue=
#25: ---------- Variable ----------
lineNumber=14
id="b"
myDef=
***** This node was printed earlier (#9: VarDecl) *****
currentLevel=0
------------------------------
expr=
#26: ---------- BinaryOp ----------
lineNumber=14
op=OR
expr1=
#27: ---------- BooleanConst ----------
lineNumber=14
iValue=1
------------------------------
expr2=
#28: ---------- BinaryOp ----------
lineNumber=14
op=AND
expr1=
#29: ---------- BooleanConst ----------
lineNumber=14
iValue=0
------------------------------
expr2=
#30: ---------- UnaryOp ----------
lineNumber=14
op=NOT
expr=
#31: ---------- BooleanConst ----------
lineNumber=14
iValue=1
------------------------------
mode=INTEGER_MODE
------------------------------
mode=INTEGER_MODE
------------------------------
mode=INTEGER_MODE
------------------------------
------------------------------
#32: ---------- AssignStmt ----------
lineNumber=15
lValue=
#33: ---------- Variable ----------
lineNumber=15
id="r"
myDef=
***** This node was printed earlier (#12: VarDecl) *****
currentLevel=0
------------------------------
expr=
#34: ---------- NilConst ----------
lineNumber=15
------------------------------
------------------------------
#35: ---------- AssignStmt ----------
lineNumber=16
lValue=
#36: ---------- Variable ----------
lineNumber=16
id="a"
myDef=
***** This node was printed earlier (#15: VarDecl) *****
currentLevel=0
------------------------------
expr=
#37: ---------- NilConst ----------
lineNumber=16
------------------------------
------------------------------
#38: ---------- AssignStmt ----------
lineNumber=17
lValue=
#39: ---------- Variable ----------
lineNumber=17
id="b"
myDef=
***** This node was printed earlier (#9: VarDecl) *****
currentLevel=0
------------------------------
expr=
#40: ---------- BinaryOp ----------
lineNumber=17
op=EQUAL
expr1=
#41: ---------- NilConst ----------
lineNumber=17
------------------------------
expr2=
#42: ---------- ValueOf ----------
lineNumber=17
lValue=
#43: ---------- Variable ----------
lineNumber=17
id="r"
myDef=
***** This node was printed earlier (#12: VarDecl) *****
currentLevel=0
------------------------------
------------------------------
mode=INTEGER_MODE
------------------------------
------------------------------
#44: ---------- AssignStmt ----------
lineNumber=18
lValue=
#45: ---------- Variable ----------
lineNumber=18
id="b"
myDef=
***** This node was printed earlier (#9: VarDecl) *****
currentLevel=0
------------------------------
expr=
#46: ---------- BinaryOp ----------
lineNumber=18
op=EQUAL
expr1=
#47: ---------- ValueOf ----------
lineNumber=18
lValue=
#48: ---------- Variable ----------
lineNumber=18
id="a"
myDef=
***** This node was printed earlier (#15: VarDecl) *****
currentLevel=0
------------------------------
------------------------------
expr2=
#49: ---------- NilConst ----------
lineNumber=18
------------------------------
mode=INTEGER_MODE
------------------------------
------------------------------
------------------------------
PROGRAM IS
TYPE
MyArr IS ARRAY OF integer;
MyRec IS RECORD f: integer; END;
VAR
b: boolean := FALSE;
r: MyRec := NIL;
a: MyArr := NIL;
BEGIN
b := TRUE;
b := FALSE;
b := (TRUE OR (FALSE AND NOT TRUE));
r := NIL;
a := NIL;
b := (NIL = r);
b := (a = NIL);
END;