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
/
callOK.out.bak
< prev
next >
Wrap
Text File
|
2005-11-18
|
28KB
|
785 lines
#1: ---------- Body ----------
lineNumber=7
typeDecls=
#2: ---------- TypeDecl ----------
lineNumber=7
id="ARR"
compoundType=
#3: ---------- ArrayType ----------
lineNumber=7
elementType=
#4: ---------- TypeName ----------
lineNumber=7
id="ArrayOfInt"
myDef=
#5: ---------- ArrayType ----------
lineNumber=8
elementType=
#6: ---------- TypeName ----------
lineNumber=8
id="integer"
myDef=NULL
------------------------------
------------------------------
------------------------------
------------------------------
------------------------------
#7: ---------- TypeDecl ----------
lineNumber=8
id="ArrayOfInt"
compoundType=
***** This node was printed earlier (#5: ArrayType) *****
------------------------------
procDecls=
#8: ---------- ProcDecl ----------
lineNumber=11
id="f1"
lexLevel=1
formals=NULL
retType=
#9: ---------- TypeName ----------
lineNumber=11
id="integer"
myDef=NULL
------------------------------
body=
#10: ---------- Body ----------
lineNumber=12
typeDecls=NULL
procDecls=NULL
varDecls=NULL
stmts=
#11: ---------- ReturnStmt ----------
lineNumber=12
summary= 0
expr=
#12: ---------- IntegerConst ----------
lineNumber=12
iValue=0
------------------------------
myProc=
***** This node was printed earlier (#8: ProcDecl) *****
------------------------------
------------------------------
------------------------------
#13: ---------- ProcDecl ----------
lineNumber=13
id="f2"
lexLevel=1
formals=NULL
retType=NULL
body=
#14: ---------- Body ----------
lineNumber=14
typeDecls=NULL
procDecls=NULL
varDecls=NULL
stmts=
#15: ---------- ReturnStmt ----------
lineNumber=14
summary= NULL
expr=NULL
myProc=
***** This node was printed earlier (#13: ProcDecl) *****
------------------------------
------------------------------
------------------------------
#16: ---------- ProcDecl ----------
lineNumber=15
id="f3"
lexLevel=1
formals=
#17: ---------- Formal ----------
lineNumber=15
id="x"
typeName=
#18: ---------- TypeName ----------
lineNumber=15
id="real"
myDef=NULL
------------------------------
lexLevel=1
------------------------------
#19: ---------- Formal ----------
lineNumber=15
id="y"
typeName=
***** This node was printed earlier (#18: TypeName) *****
lexLevel=1
------------------------------
#20: ---------- Formal ----------
lineNumber=15
id="z"
typeName=
***** This node was printed earlier (#18: TypeName) *****
lexLevel=1
------------------------------
#21: ---------- Formal ----------
lineNumber=15
id="i"
typeName=
#22: ---------- TypeName ----------
lineNumber=15
id="integer"
myDef=NULL
------------------------------
lexLevel=1
------------------------------
#23: ---------- Formal ----------
lineNumber=15
id="j"
typeName=
***** This node was printed earlier (#22: TypeName) *****
lexLevel=1
------------------------------
#24: ---------- Formal ----------
lineNumber=15
id="k"
typeName=
***** This node was printed earlier (#22: TypeName) *****
lexLevel=1
------------------------------
retType=NULL
body=
#25: ---------- Body ----------
lineNumber=16
typeDecls=NULL
procDecls=NULL
varDecls=NULL
stmts=
#26: ---------- ReturnStmt ----------
lineNumber=16
summary= NULL
expr=NULL
myProc=
***** This node was printed earlier (#16: ProcDecl) *****
------------------------------
------------------------------
------------------------------
#27: ---------- ProcDecl ----------
lineNumber=17
id="f4"
lexLevel=1
formals=
#28: ---------- Formal ----------
lineNumber=17
id="x"
typeName=
#29: ---------- TypeName ----------
lineNumber=17
id="real"
myDef=NULL
------------------------------
lexLevel=1
------------------------------
#30: ---------- Formal ----------
lineNumber=17
id="y"
typeName=
***** This node was printed earlier (#29: TypeName) *****
lexLevel=1
------------------------------
#31: ---------- Formal ----------
lineNumber=17
id="z"
typeName=
***** This node was printed earlier (#29: TypeName) *****
lexLevel=1
------------------------------
#32: ---------- Formal ----------
lineNumber=17
id="i"
typeName=
#33: ---------- TypeName ----------
lineNumber=17
id="integer"
myDef=NULL
------------------------------
lexLevel=1
------------------------------
#34: ---------- Formal ----------
lineNumber=17
id="j"
typeName=
***** This node was printed earlier (#33: TypeName) *****
lexLevel=1
------------------------------
#35: ---------- Formal ----------
lineNumber=17
id="k"
typeName=
***** This node was printed earlier (#33: TypeName) *****
lexLevel=1
------------------------------
retType=
#36: ---------- TypeName ----------
lineNumber=17
id="real"
myDef=NULL
------------------------------
body=
#37: ---------- Body ----------
lineNumber=18
typeDecls=NULL
procDecls=NULL
varDecls=NULL
stmts=
#38: ---------- ReturnStmt ----------
lineNumber=18
summary= 0.0
expr=
#39: ---------- RealConst ----------
lineNumber=18
rValue=0.0
------------------------------
myProc=
***** This node was printed earlier (#27: ProcDecl) *****
------------------------------
------------------------------
------------------------------
#40: ---------- ProcDecl ----------
lineNumber=19
id="f5"
lexLevel=1
formals=
#41: ---------- Formal ----------
lineNumber=19
id="x"
typeName=
#42: ---------- TypeName ----------
lineNumber=19
id="real"
myDef=NULL
------------------------------
lexLevel=1
------------------------------
#43: ---------- Formal ----------
lineNumber=19
id="i"
typeName=
#44: ---------- TypeName ----------
lineNumber=19
id="integer"
myDef=NULL
------------------------------
lexLevel=1
------------------------------
#45: ---------- Formal ----------
lineNumber=19
id="b"
typeName=
#46: ---------- TypeName ----------
lineNumber=19
id="boolean"
myDef=NULL
------------------------------
lexLevel=1
------------------------------
#47: ---------- Formal ----------
lineNumber=19
id="a"
typeName=
#48: ---------- TypeName ----------
lineNumber=19
id="ARR"
myDef=
***** This node was printed earlier (#3: ArrayType) *****
------------------------------
lexLevel=1
------------------------------
#49: ---------- Formal ----------
lineNumber=19
id="c"
typeName=
#50: ---------- TypeName ----------
lineNumber=19
id="real"
myDef=NULL
------------------------------
lexLevel=1
------------------------------
retType=NULL
body=
#51: ---------- Body ----------
lineNumber=20
typeDecls=NULL
procDecls=NULL
varDecls=NULL
stmts=
#52: ---------- ReturnStmt ----------
lineNumber=20
summary= NULL
expr=NULL
myProc=
***** This node was printed earlier (#40: ProcDecl) *****
------------------------------
------------------------------
------------------------------
#53: ---------- ProcDecl ----------
lineNumber=21
id="f6"
lexLevel=1
formals=
#54: ---------- Formal ----------
lineNumber=21
id="x"
typeName=
#55: ---------- TypeName ----------
lineNumber=21
id="real"
myDef=NULL
------------------------------
lexLevel=1
------------------------------
#56: ---------- Formal ----------
lineNumber=21
id="i"
typeName=
#57: ---------- TypeName ----------
lineNumber=21
id="integer"
myDef=NULL
------------------------------
lexLevel=1
------------------------------
#58: ---------- Formal ----------
lineNumber=21
id="b"
typeName=
#59: ---------- TypeName ----------
lineNumber=21
id="boolean"
myDef=NULL
------------------------------
lexLevel=1
------------------------------
#60: ---------- Formal ----------
lineNumber=21
id="a"
typeName=
#61: ---------- TypeName ----------
lineNumber=21
id="ARR"
myDef=
***** This node was printed earlier (#3: ArrayType) *****
------------------------------
lexLevel=1
------------------------------
#62: ---------- Formal ----------
lineNumber=21
id="c"
typeName=
#63: ---------- TypeName ----------
lineNumber=21
id="real"
myDef=NULL
------------------------------
lexLevel=1
------------------------------
retType=
#64: ---------- TypeName ----------
lineNumber=21
id="real"
myDef=NULL
------------------------------
body=
#65: ---------- Body ----------
lineNumber=22
typeDecls=NULL
procDecls=NULL
varDecls=NULL
stmts=
#66: ---------- ReturnStmt ----------
lineNumber=22
summary= 0.0
expr=
#67: ---------- RealConst ----------
lineNumber=22
rValue=0.0
------------------------------
myProc=
***** This node was printed earlier (#53: ProcDecl) *****
------------------------------
------------------------------
------------------------------
varDecls=
#68: ---------- VarDecl ----------
lineNumber=9
id="i"
typeName=
#69: ---------- TypeName ----------
lineNumber=9
id="integer"
myDef=NULL
------------------------------
expr=
#70: ---------- IntegerConst ----------
lineNumber=9
iValue=0
------------------------------
lexLevel=0
------------------------------
#71: ---------- VarDecl ----------
lineNumber=10
id="f"
typeName=
#72: ---------- TypeName ----------
lineNumber=10
id="real"
myDef=NULL
------------------------------
expr=
#73: ---------- RealConst ----------
lineNumber=10
rValue=0.0
------------------------------
lexLevel=0
------------------------------
stmts=
#74: ---------- AssignStmt ----------
lineNumber=25
lValue=
#75: ---------- Variable ----------
lineNumber=25
id="i"
myDef=
***** This node was printed earlier (#68: VarDecl) *****
currentLevel=0
------------------------------
expr=
#76: ---------- FunctionCall ----------
lineNumber=25
id="f1"
args=NULL
myDef=
***** This node was printed earlier (#8: ProcDecl) *****
------------------------------
------------------------------
#77: ---------- AssignStmt ----------
lineNumber=26
lValue=
#78: ---------- Variable ----------
lineNumber=26
id="f"
myDef=
***** This node was printed earlier (#71: VarDecl) *****
currentLevel=0
------------------------------
expr=
#79: ---------- IntToReal ----------
lineNumber=26
expr=
#80: ---------- FunctionCall ----------
lineNumber=26
id="f1"
args=NULL
myDef=
***** This node was printed earlier (#8: ProcDecl) *****
------------------------------
------------------------------
------------------------------
#81: ---------- CallStmt ----------
lineNumber=27
id="f2"
args=NULL
myDef=
***** This node was printed earlier (#13: ProcDecl) *****
------------------------------
#82: ---------- CallStmt ----------
lineNumber=28
id="f3"
args=
#83: ---------- Argument ----------
lineNumber=28
expr=
#84: ---------- RealConst ----------
lineNumber=28
rValue=1.1
------------------------------
mode=0
------------------------------
#85: ---------- Argument ----------
lineNumber=28
expr=
#86: ---------- RealConst ----------
lineNumber=28
rValue=2.2
------------------------------
mode=0
------------------------------
#87: ---------- Argument ----------
lineNumber=28
expr=
#88: ---------- RealConst ----------
lineNumber=28
rValue=3.3
------------------------------
mode=0
------------------------------
#89: ---------- Argument ----------
lineNumber=28
expr=
#90: ---------- IntegerConst ----------
lineNumber=28
iValue=4
------------------------------
mode=0
------------------------------
#91: ---------- Argument ----------
lineNumber=28
expr=
#92: ---------- IntegerConst ----------
lineNumber=28
iValue=5
------------------------------
mode=0
------------------------------
#93: ---------- Argument ----------
lineNumber=28
expr=
#94: ---------- IntegerConst ----------
lineNumber=28
iValue=6
------------------------------
mode=0
------------------------------
myDef=
***** This node was printed earlier (#16: ProcDecl) *****
------------------------------
#95: ---------- AssignStmt ----------
lineNumber=29
lValue=
#96: ---------- Variable ----------
lineNumber=29
id="f"
myDef=
***** This node was printed earlier (#71: VarDecl) *****
currentLevel=0
------------------------------
expr=
#97: ---------- FunctionCall ----------
lineNumber=29
id="f4"
args=
#98: ---------- Argument ----------
lineNumber=29
expr=
#99: ---------- RealConst ----------
lineNumber=29
rValue=1.1
------------------------------
mode=0
------------------------------
#100: ---------- Argument ----------
lineNumber=29
expr=
#101: ---------- RealConst ----------
lineNumber=29
rValue=2.2
------------------------------
mode=0
------------------------------
#102: ---------- Argument ----------
lineNumber=29
expr=
#103: ---------- RealConst ----------
lineNumber=29
rValue=3.3
------------------------------
mode=0
------------------------------
#104: ---------- Argument ----------
lineNumber=29
expr=
#105: ---------- IntegerConst ----------
lineNumber=29
iValue=4
------------------------------
mode=0
------------------------------
#106: ---------- Argument ----------
lineNumber=29
expr=
#107: ---------- IntegerConst ----------
lineNumber=29
iValue=5
------------------------------
mode=0
------------------------------
#108: ---------- Argument ----------
lineNumber=29
expr=
#109: ---------- IntegerConst ----------
lineNumber=29
iValue=6
------------------------------
mode=0
------------------------------
myDef=
***** This node was printed earlier (#27: ProcDecl) *****
------------------------------
------------------------------
#110: ---------- CallStmt ----------
lineNumber=30
id="f5"
args=
#111: ---------- Argument ----------
lineNumber=30
expr=
#112: ---------- RealConst ----------
lineNumber=30
rValue=1.1
------------------------------
mode=0
------------------------------
#113: ---------- Argument ----------
lineNumber=30
expr=
#114: ---------- IntegerConst ----------
lineNumber=30
iValue=2
------------------------------
mode=0
------------------------------
#115: ---------- Argument ----------
lineNumber=30
expr=
#116: ---------- BooleanConst ----------
lineNumber=30
iValue=1
------------------------------
mode=0
------------------------------
#117: ---------- Argument ----------
lineNumber=30
expr=
#118: ---------- NilConst ----------
lineNumber=30
------------------------------
mode=0
------------------------------
#119: ---------- Argument ----------
lineNumber=30
expr=
#120: ---------- IntToReal ----------
lineNumber=30
expr=
#121: ---------- IntegerConst ----------
lineNumber=30
iValue=1
------------------------------
------------------------------
mode=0
------------------------------
myDef=
***** This node was printed earlier (#40: ProcDecl) *****
------------------------------
#122: ---------- AssignStmt ----------
lineNumber=31
lValue=
#123: ---------- Variable ----------
lineNumber=31
id="f"
myDef=
***** This node was printed earlier (#71: VarDecl) *****
currentLevel=0
------------------------------
expr=
#124: ---------- FunctionCall ----------
lineNumber=31
id="f6"
args=
#125: ---------- Argument ----------
lineNumber=31
expr=
#126: ---------- RealConst ----------
lineNumber=31
rValue=1.1
------------------------------
mode=0
------------------------------
#127: ---------- Argument ----------
lineNumber=31
expr=
#128: ---------- IntegerConst ----------
lineNumber=31
iValue=2
------------------------------
mode=0
------------------------------
#129: ---------- Argument ----------
lineNumber=31
expr=
#130: ---------- BooleanConst ----------
lineNumber=31
iValue=1
------------------------------
mode=0
------------------------------
#131: ---------- Argument ----------
lineNumber=31
expr=
#132: ---------- NilConst ----------
lineNumber=31
------------------------------
mode=0
------------------------------
#133: ---------- Argument ----------
lineNumber=31
expr=
#134: ---------- IntToReal ----------
lineNumber=31
expr=
#135: ---------- IntegerConst ----------
lineNumber=31
iValue=1
------------------------------
------------------------------
mode=0
------------------------------
myDef=
***** This node was printed earlier (#53: ProcDecl) *****
------------------------------
------------------------------
------------------------------
PROGRAM IS
TYPE
ARR IS ARRAY OF ArrayOfInt;
ArrayOfInt IS ARRAY OF integer;
VAR
i: integer := 0;
f: real := 0.0;
PROCEDURE f1 () : integer IS
BEGIN
RETURN 0;
END;
PROCEDURE f2 () IS
BEGIN
RETURN;
END;
PROCEDURE f3 (x: real; y: real; z: real; i: integer; j: integer; k: integer) IS
BEGIN
RETURN;
END;
PROCEDURE f4 (x: real; y: real; z: real; i: integer; j: integer; k: integer) : real IS
BEGIN
RETURN 0.0;
END;
PROCEDURE f5 (x: real; i: integer; b: boolean; a: ARR; c: real) IS
BEGIN
RETURN;
END;
PROCEDURE f6 (x: real; i: integer; b: boolean; a: ARR; c: real) : real IS
BEGIN
RETURN 0.0;
END;
BEGIN
i := f1 ();
f := intToReal (f1 ());
f2 ();
f3 (1.1, 2.2, 3.3, 4, 5, 6);
f := f4 (1.1, 2.2, 3.3, 4, 5, 6);
f5 (1.1, 2, TRUE, NIL, intToReal (1));
f := f6 (1.1, 2, TRUE, NIL, intToReal (1));
END;