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 / p10 / tst / expr.out.bak < prev    next >
Text File  |  2006-02-17  |  6KB  |  202 lines
  1. PROGRAM IS
  2.     VAR
  3.         x: integer := 0;
  4.         y: integer := x;
  5.         z: integer := x;
  6.         a: real := 0.0;
  7.         b: real := a;
  8.         c: real := a;
  9.     BEGIN
  10.         x := y;
  11.         x := 1234;
  12.         a := b;
  13.         a := 123.456;
  14.         x := - y;
  15.         x := + y;
  16.         x := (y + z);
  17.         x := (y - z);
  18.         x := (y * z);
  19.         x := (y DIV z);
  20.         x := (y MOD z);
  21.         a := - b;
  22.         a := + b;
  23.         a := (b + c);
  24.         a := (b - c);
  25.         a := (b * c);
  26.         a := (b / c);
  27.         a := intToReal (x);
  28.         a := intToReal (13);
  29.         x := (((y + z) + x) + 6);
  30.         x := (y + (z + (x + 7)));
  31.         x := ((x * (y DIV - 3)) + (x * (z - (x MOD 5))));
  32.         x := ((3 * y) + (4 * (z - x)));
  33.         a := ((3.0 * b) + (4.123 * (c - intToReal (x))));
  34.         x := (((+ (- x - 1) DIV + (y - 2)) * (+ (- z MOD 3) + + (x DIV 4))) + ((- (+ y - 5) + - (z - 6)) * (- (+ x - 7) + - (y - 8))));
  35.         a := (((+ (- b - 1.1) / + (c - 2.2)) * (+ (intToReal (- x) / 3.3) + + (intToReal (y) / 4.4))) + ((- (intToReal (+ z) - 5.5) + - (a - 6.6)) * (- (+ b - 7.7) + - (c - 8.8))));
  36.     END;
  37. maxLexicalLevel = 0
  38. =====  String List Follows  =====
  39. =====  Float List Follows  =====
  40.    float12:  8.8
  41.    float11:  7.7
  42.    float10:  6.6
  43.    float9:  5.5
  44.    float8:  4.4
  45.    float7:  3.3
  46.    float6:  2.2
  47.    float5:  1.1
  48.    float4:  4.123
  49.    float3:  3.0
  50.    float2:  123.456
  51.    float1:  0.0
  52. =====  Intermediate Code Follows  =====
  53. ! MAIN...
  54.                 mainEntry
  55. ! VAR INITIALIZATION...
  56.                 x := 0
  57. ! VAR INITIALIZATION...
  58.                 y := x
  59. ! VAR INITIALIZATION...
  60.                 z := x
  61. ! VAR INITIALIZATION...
  62.                 a := 0.0
  63. ! VAR INITIALIZATION...
  64.                 b := a
  65. ! VAR INITIALIZATION...
  66.                 c := a
  67. ! ASSIGNMENT STMT...
  68.                 x := y
  69. ! ASSIGNMENT STMT...
  70.                 x := 1234
  71. ! ASSIGNMENT STMT...
  72.                 a := b
  73. ! ASSIGNMENT STMT...
  74.                 a := 123.456
  75. ! ASSIGNMENT STMT...
  76.                 t1 := - y        (integer)
  77.                 x := t1
  78. ! ASSIGNMENT STMT...
  79.                 x := y
  80. ! ASSIGNMENT STMT...
  81.                 t2 := y + z        (integer)
  82.                 x := t2
  83. ! ASSIGNMENT STMT...
  84.                 t3 := y - z        (integer)
  85.                 x := t3
  86. ! ASSIGNMENT STMT...
  87.                 t4 := y * z        (integer)
  88.                 x := t4
  89. ! ASSIGNMENT STMT...
  90.                 t5 := y DIV z        (integer)
  91.                 x := t5
  92. ! ASSIGNMENT STMT...
  93.                 t6 := y MOD z        (integer)
  94.                 x := t6
  95. ! ASSIGNMENT STMT...
  96.                 t7 := - b        (float)
  97.                 a := t7
  98. ! ASSIGNMENT STMT...
  99.                 a := b
  100. ! ASSIGNMENT STMT...
  101.                 t8 := b + c        (float)
  102.                 a := t8
  103. ! ASSIGNMENT STMT...
  104.                 t9 := b - c        (float)
  105.                 a := t9
  106. ! ASSIGNMENT STMT...
  107.                 t10 := b * c        (float)
  108.                 a := t10
  109. ! ASSIGNMENT STMT...
  110.                 t11 := b / c        (float)
  111.                 a := t11
  112. ! ASSIGNMENT STMT...
  113.                 t12 := intToFloat (x)
  114.                 a := t12
  115. ! ASSIGNMENT STMT...
  116.                 t13 := intToFloat (13)
  117.                 a := t13
  118. ! ASSIGNMENT STMT...
  119.                 t14 := y + z        (integer)
  120.                 t15 := t14 + x        (integer)
  121.                 t16 := t15 + 6        (integer)
  122.                 x := t16
  123. ! ASSIGNMENT STMT...
  124.                 t17 := x + 7        (integer)
  125.                 t18 := z + t17        (integer)
  126.                 t19 := y + t18        (integer)
  127.                 x := t19
  128. ! ASSIGNMENT STMT...
  129.                 t20 := - 3        (integer)
  130.                 t21 := y DIV t20        (integer)
  131.                 t22 := x * t21        (integer)
  132.                 t23 := x MOD 5        (integer)
  133.                 t24 := z - t23        (integer)
  134.                 t25 := x * t24        (integer)
  135.                 t26 := t22 + t25        (integer)
  136.                 x := t26
  137. ! ASSIGNMENT STMT...
  138.                 t27 := 3 * y        (integer)
  139.                 t28 := z - x        (integer)
  140.                 t29 := 4 * t28        (integer)
  141.                 t30 := t27 + t29        (integer)
  142.                 x := t30
  143. ! ASSIGNMENT STMT...
  144.                 t31 := 3.0 * b        (float)
  145.                 t32 := intToFloat (x)
  146.                 t33 := c - t32        (float)
  147.                 t34 := 4.123 * t33        (float)
  148.                 t35 := t31 + t34        (float)
  149.                 a := t35
  150. ! ASSIGNMENT STMT...
  151.                 t36 := - x        (integer)
  152.                 t37 := t36 - 1        (integer)
  153.                 t38 := y - 2        (integer)
  154.                 t39 := t37 DIV t38        (integer)
  155.                 t40 := - z        (integer)
  156.                 t41 := t40 MOD 3        (integer)
  157.                 t42 := x DIV 4        (integer)
  158.                 t43 := t41 + t42        (integer)
  159.                 t44 := t39 * t43        (integer)
  160.                 t45 := y - 5        (integer)
  161.                 t46 := - t45        (integer)
  162.                 t47 := z - 6        (integer)
  163.                 t48 := - t47        (integer)
  164.                 t49 := t46 + t48        (integer)
  165.                 t50 := x - 7        (integer)
  166.                 t51 := - t50        (integer)
  167.                 t52 := y - 8        (integer)
  168.                 t53 := - t52        (integer)
  169.                 t54 := t51 + t53        (integer)
  170.                 t55 := t49 * t54        (integer)
  171.                 t56 := t44 + t55        (integer)
  172.                 x := t56
  173. ! ASSIGNMENT STMT...
  174.                 t57 := - b        (float)
  175.                 t58 := t57 - 1.1        (float)
  176.                 t59 := c - 2.2        (float)
  177.                 t60 := t58 / t59        (float)
  178.                 t61 := - x        (integer)
  179.                 t62 := intToFloat (t61)
  180.                 t63 := t62 / 3.3        (float)
  181.                 t64 := intToFloat (y)
  182.                 t65 := t64 / 4.4        (float)
  183.                 t66 := t63 + t65        (float)
  184.                 t67 := t60 * t66        (float)
  185.                 t68 := intToFloat (z)
  186.                 t69 := t68 - 5.5        (float)
  187.                 t70 := - t69        (float)
  188.                 t71 := a - 6.6        (float)
  189.                 t72 := - t71        (float)
  190.                 t73 := t70 + t72        (float)
  191.                 t74 := b - 7.7        (float)
  192.                 t75 := - t74        (float)
  193.                 t76 := c - 8.8        (float)
  194.                 t77 := - t76        (float)
  195.                 t78 := t75 + t77        (float)
  196.                 t79 := t73 * t78        (float)
  197.                 t80 := t67 + t79        (float)
  198.                 a := t80
  199. ! MAIN EXIT...
  200.                 mainExit
  201. =======================================
  202.