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 / p9 / tst / expr.out.bak < prev    next >
Text File  |  2006-02-07  |  8KB  |  243 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. =====  Intermediate Code Follows  =====
  39. ! MAIN...
  40.                 mainEntry
  41. ! VAR INITIALIZATION...
  42.                 t1 := 0
  43.                 x := t1
  44. ! VAR INITIALIZATION...
  45.                 y := x
  46. ! VAR INITIALIZATION...
  47.                 z := x
  48. ! VAR INITIALIZATION...
  49.                 t2 := 0.0
  50.                 a := t2
  51. ! VAR INITIALIZATION...
  52.                 b := a
  53. ! VAR INITIALIZATION...
  54.                 c := a
  55. ! ASSIGNMENT STMT...
  56.                 t3 := &x
  57.                 *t3 := y
  58. ! ASSIGNMENT STMT...
  59.                 t4 := &x
  60.                 t5 := 1234
  61.                 *t4 := t5
  62. ! ASSIGNMENT STMT...
  63.                 t6 := &a
  64.                 *t6 := b
  65. ! ASSIGNMENT STMT...
  66.                 t7 := &a
  67.                 t8 := 123.456
  68.                 *t7 := t8
  69. ! ASSIGNMENT STMT...
  70.                 t9 := &x
  71.                 t10 := - y        (integer)
  72.                 *t9 := t10
  73. ! ASSIGNMENT STMT...
  74.                 t11 := &x
  75.                 *t11 := y
  76. ! ASSIGNMENT STMT...
  77.                 t12 := &x
  78.                 t13 := y + z        (integer)
  79.                 *t12 := t13
  80. ! ASSIGNMENT STMT...
  81.                 t14 := &x
  82.                 t15 := y - z        (integer)
  83.                 *t14 := t15
  84. ! ASSIGNMENT STMT...
  85.                 t16 := &x
  86.                 t17 := y * z        (integer)
  87.                 *t16 := t17
  88. ! ASSIGNMENT STMT...
  89.                 t18 := &x
  90.                 t19 := y DIV z        (integer)
  91.                 *t18 := t19
  92. ! ASSIGNMENT STMT...
  93.                 t20 := &x
  94.                 t21 := y MOD z        (integer)
  95.                 *t20 := t21
  96. ! ASSIGNMENT STMT...
  97.                 t22 := &a
  98.                 t23 := - b        (float)
  99.                 *t22 := t23
  100. ! ASSIGNMENT STMT...
  101.                 t24 := &a
  102.                 *t24 := b
  103. ! ASSIGNMENT STMT...
  104.                 t25 := &a
  105.                 t26 := b + c        (float)
  106.                 *t25 := t26
  107. ! ASSIGNMENT STMT...
  108.                 t27 := &a
  109.                 t28 := b - c        (float)
  110.                 *t27 := t28
  111. ! ASSIGNMENT STMT...
  112.                 t29 := &a
  113.                 t30 := b * c        (float)
  114.                 *t29 := t30
  115. ! ASSIGNMENT STMT...
  116.                 t31 := &a
  117.                 t32 := b / c        (float)
  118.                 *t31 := t32
  119. ! ASSIGNMENT STMT...
  120.                 t33 := &a
  121.                 t34 := intToFloat (x)
  122.                 *t33 := t34
  123. ! ASSIGNMENT STMT...
  124.                 t35 := &a
  125.                 t36 := 13
  126.                 t37 := intToFloat (t36)
  127.                 *t35 := t37
  128. ! ASSIGNMENT STMT...
  129.                 t38 := &x
  130.                 t39 := y + z        (integer)
  131.                 t40 := t39 + x        (integer)
  132.                 t41 := 6
  133.                 t42 := t40 + t41        (integer)
  134.                 *t38 := t42
  135. ! ASSIGNMENT STMT...
  136.                 t43 := &x
  137.                 t44 := 7
  138.                 t45 := x + t44        (integer)
  139.                 t46 := z + t45        (integer)
  140.                 t47 := y + t46        (integer)
  141.                 *t43 := t47
  142. ! ASSIGNMENT STMT...
  143.                 t48 := &x
  144.                 t49 := 3
  145.                 t50 := - t49        (integer)
  146.                 t51 := y DIV t50        (integer)
  147.                 t52 := x * t51        (integer)
  148.                 t53 := 5
  149.                 t54 := x MOD t53        (integer)
  150.                 t55 := z - t54        (integer)
  151.                 t56 := x * t55        (integer)
  152.                 t57 := t52 + t56        (integer)
  153.                 *t48 := t57
  154. ! ASSIGNMENT STMT...
  155.                 t58 := &x
  156.                 t59 := 3
  157.                 t60 := t59 * y        (integer)
  158.                 t61 := 4
  159.                 t62 := z - x        (integer)
  160.                 t63 := t61 * t62        (integer)
  161.                 t64 := t60 + t63        (integer)
  162.                 *t58 := t64
  163. ! ASSIGNMENT STMT...
  164.                 t65 := &a
  165.                 t66 := 3.0
  166.                 t67 := t66 * b        (float)
  167.                 t68 := 4.123
  168.                 t69 := intToFloat (x)
  169.                 t70 := c - t69        (float)
  170.                 t71 := t68 * t70        (float)
  171.                 t72 := t67 + t71        (float)
  172.                 *t65 := t72
  173. ! ASSIGNMENT STMT...
  174.                 t73 := &x
  175.                 t74 := - x        (integer)
  176.                 t75 := 1
  177.                 t76 := t74 - t75        (integer)
  178.                 t77 := 2
  179.                 t78 := y - t77        (integer)
  180.                 t79 := t76 DIV t78        (integer)
  181.                 t80 := - z        (integer)
  182.                 t81 := 3
  183.                 t82 := t80 MOD t81        (integer)
  184.                 t83 := 4
  185.                 t84 := x DIV t83        (integer)
  186.                 t85 := t82 + t84        (integer)
  187.                 t86 := t79 * t85        (integer)
  188.                 t87 := 5
  189.                 t88 := y - t87        (integer)
  190.                 t89 := - t88        (integer)
  191.                 t90 := 6
  192.                 t91 := z - t90        (integer)
  193.                 t92 := - t91        (integer)
  194.                 t93 := t89 + t92        (integer)
  195.                 t94 := 7
  196.                 t95 := x - t94        (integer)
  197.                 t96 := - t95        (integer)
  198.                 t97 := 8
  199.                 t98 := y - t97        (integer)
  200.                 t99 := - t98        (integer)
  201.                 t100 := t96 + t99        (integer)
  202.                 t101 := t93 * t100        (integer)
  203.                 t102 := t86 + t101        (integer)
  204.                 *t73 := t102
  205. ! ASSIGNMENT STMT...
  206.                 t103 := &a
  207.                 t104 := - b        (float)
  208.                 t105 := 1.1
  209.                 t106 := t104 - t105        (float)
  210.                 t107 := 2.2
  211.                 t108 := c - t107        (float)
  212.                 t109 := t106 / t108        (float)
  213.                 t110 := - x        (integer)
  214.                 t111 := intToFloat (t110)
  215.                 t112 := 3.3
  216.                 t113 := t111 / t112        (float)
  217.                 t114 := intToFloat (y)
  218.                 t115 := 4.4
  219.                 t116 := t114 / t115        (float)
  220.                 t117 := t113 + t116        (float)
  221.                 t118 := t109 * t117        (float)
  222.                 t119 := intToFloat (z)
  223.                 t120 := 5.5
  224.                 t121 := t119 - t120        (float)
  225.                 t122 := - t121        (float)
  226.                 t123 := 6.6
  227.                 t124 := a - t123        (float)
  228.                 t125 := - t124        (float)
  229.                 t126 := t122 + t125        (float)
  230.                 t127 := 7.7
  231.                 t128 := b - t127        (float)
  232.                 t129 := - t128        (float)
  233.                 t130 := 8.8
  234.                 t131 := c - t130        (float)
  235.                 t132 := - t131        (float)
  236.                 t133 := t129 + t132        (float)
  237.                 t134 := t126 * t133        (float)
  238.                 t135 := t118 + t134        (float)
  239.                 *t103 := t135
  240. ! MAIN EXIT...
  241.                 mainExit
  242. =======================================
  243.