home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / prolog68.zoo / prolog.68 / codes / tmpalloc.wam < prev    next >
Encoding:
Text File  |  1994-06-03  |  14.2 KB  |  258 lines
  1. Prolog-68 compiler (allocation of temporaries)
  2. p'alloc_b_a_1'/9 190 532 48 36 512 4 544 -4 245 24 244 20 243 16 242 12
  3. 194 514 p'release'/9 0 548 -4 513 16 518 534 512 24 0 -24 4 -16 5 -12 98
  4. 293 355 85 'moveregister'/2 353 276 247 0 246 8 248 12 145 -20 127 2048
  5. -8 127 2048 -4 514 p'allocate'/4 0 144 -24 145 -16 210 'temp'/4 337 336
  6. 369 257 514 p'tree_get_item'/3 0 144 -24 145 -16 210 'temp'/4 337 336 369
  7. 371 308 369 147 -12 513 36 515 p'tree_put_item'/4
  8.  
  9. p'alloc_b_arg'/8 196 532 50 32 34 4 36 12 512 4 544 -4 240 4 246 0 247 8
  10. 514 p'remove_from_free'/3 0 548 -4 513 16 518 533 114 512 40 0 -40 1 -36
  11. 2 -32 3 -28 4 -24 5 -20 6 -16 7 -12 544 -4 144 -28 145 -40 114 -8 514 p'vital'/3
  12. 0 548 -4 160 -8 40 145 -40 146 -36 147 -32 148 -28 149 -24 150 -20 151 -16
  13. 152 -12 513 52 515 p'alloc_b_a_1'/9 534 34 4 39 24 240 4 243 0 244 8 515
  14. p'remove_from_isin'/3
  15.  
  16. p'alloc_b_t_1'/8 124 532 38 32 512 4 544 -4 246 20 247 24 514 p'make_available'/7
  17. 0 548 -4 513 16 518 534 512 16 0 -16 3 -8 4 -4 97 292 354 84 'moveregister'/2
  18. 339 274 246 0 245 8 247 12 145 -12 514 p'allocate'/4 0 144 -8 145 -16 146
  19. -12 147 -4 513 28 515 p'exchange_in_isin'/4
  20.  
  21. p'alloc_b_t_2'/11 192 532 50 44 34 4 36 12 39 24 42 36 512 4 544 -4 243
  22. 4 514 p'set_member'/2 0 548 -4 513 16 518 534 512 44 0 -44 1 -32 2 -28 3
  23. -40 4 -36 6 -24 7 -20 8 -16 9 -12 10 -8 245 4 144 -40 114 -4 514 p'select_register'/3
  24. 0 144 -44 145 -32 216 'moveregister'/2 336 346 226 328 342 147 -24 148 -20
  25. 149 -16 150 -12 151 -8 514 p'alloc_b_t_3'/8 32 144 -12 145 -8 146 -4 513
  26. 24 515 p'set_insert'/3
  27.  
  28. p'alloc_b_t_3'/8 124 532 38 32 512 4 544 -4 246 20 247 24 514 p'make_available'/7
  29. 0 548 -4 513 16 518 534 512 16 0 -16 3 -8 4 -4 97 292 354 84 'moveregister'/2
  30. 339 274 246 0 245 8 247 12 145 -12 514 p'allocate'/4 0 144 -8 145 -16 146
  31. -12 147 -4 513 28 515 p'exchange_in_isin'/4
  32.  
  33. p'alloc_b_toplevel'/10 160 512 52 0 -52 1 -36 2 -32 3 -28 4 -24 5 -20 6
  34. -48 7 -16 8 -12 9 -8 144 -52 145 -20 114 -4 127 2048 -44 127 2048 -40 514
  35. p'tree_get_item'/3 0 144 -24 145 -36 146 -32 147 -28 148 -20 149 -44 166
  36. -4 52 151 -40 152 -16 153 -12 154 -8 514 p'alloc_b_toplevel'/11 36 144 -16
  37. 161 -8 16 162 -4 16 147 -12 513 28 515 p'tree_put_item'/4
  38.  
  39. p'alloc_b_toplevel'/11 222 528 112 112 6 532 102 44 48 'previous' 86 'temp'/4
  40. 368 'unknown' 299 369 369 87 'temp'/4 368 'value' 331 299 369 107 353 369
  41. 547 219 'put_variable'/1 321 241 0 242 4 226 331 355 244 12 245 16 248 20
  42. 249 24 250 28 515 p'alloc_b_t_1'/8 534 512 20 0 -20 10 -8 86 'temp'/4 299
  43. 300 241 0 242 4 243 8 291 275 87 'temp'/4 331 332 244 24 292 274 245 28
  44. 149 -16 122 -4 514 p'alloc_b_t_2'/11 0 144 -20 161 -4 20 146 -16 147 -8
  45. 148 -12 513 32 515 p'free_all_if_last'/5
  46.  
  47. p'alloc_c_1'/11 140 532 98 44 512 28 0 -28 1 -24 2 -20 100 342 369 69 6
  48. -16 7 -12 9 -8 10 -4 243 4 144 -28 514 p'member'/2 0 144 -28 145 -24 146
  49. -20 147 -16 148 -12 149 -8 150 -4 513 40 515 p'make_available'/7 534 68
  50. 34 4 39 24 101 352 369 240 4 249 0 248 8 250 12 515 p'allocate'/4
  51.  
  52. p'alloc_compound'/10 160 512 52 0 -52 1 -36 2 -32 3 -28 4 -24 5 -20 6 -48
  53. 7 -16 8 -12 9 -8 144 -52 145 -20 114 -4 127 2048 -44 127 2048 -40 514 p'tree_get_item'/3
  54. 0 144 -24 145 -36 146 -32 147 -28 148 -20 149 -44 166 -4 52 151 -40 152
  55. -16 153 -12 154 -8 514 p'alloc_compound'/11 36 144 -16 161 -8 16 162 -4
  56. 16 147 -12 513 28 515 p'tree_put_item'/4
  57.  
  58. p'alloc_compound'/11 330 528 182 182 6 532 172 44 48 'previous' 512 44 1
  59. -44 2 -40 3 -36 4 -32 5 -28 86 'temp'/4 368 'unknown' 277 369 369 87 'temp'/4
  60. 368 'value' 309 276 275 8 -12 9 -8 10 -4 547 144 -44 514 p'check_arith_error'/1
  61. 0 219 'x'/1 288 220 'var'/3 346 331 368 'variable' 226 332 344 145 -40 147
  62. -24 148 -20 149 -16 150 -32 151 -28 152 -12 153 -8 154 -4 513 56 515 p'alloc_c_1'/11
  63. 534 512 32 0 -32 1 -12 9 -20 10 -16 37 16 98 292 355 84 'var'/3 338 292
  64. 273 84 'x'/1 290 86 'temp'/4 272 294 288 278 87 'temp'/4 368 'value' 326
  65. 320 277 547 145 -28 514 p'select_register'/3 0 144 -12 145 -4 146 -8 514
  66. p'get_value_type'/3 12 144 -20 145 -8 146 -16 147 -4 148 -12 513 32 515
  67. p'free_all_if_last'/5
  68.  
  69. p'alloc_h_t_1'/6 88 532 66 24 512 16 0 -16 2 -12 3 -8 37 16 544 -4 144 -16
  70. 514 p'member'/2 0 548 -4 144 -16 145 -12 146 -8 513 28 515 p'set_insert'/3
  71. 534 35 8 244 4 245 8 515 p'set_insert'/3
  72.  
  73. p'alloc_h_toplevel'/8 254 528 80 80 6 532 70 32 48 'previous' 35 8 39 24
  74. 84 'temp'/4 368 'unknown' 241 0 289 369 369 85 'temp'/4 368 'local_value'
  75. 321 291 293 547 194 196 515 p'alloc_h_t_1'/6 534 512 40 0 -40 1 -20 6 -32
  76. 7 -28 98 295 355 87 'var'/3 295 291 368 'value' 87 'get'/1 340 83 'x'/1
  77. 290 84 'temp'/4 292 275 274 273 85 'temp'/4 324 307 272 280 144 -12 145
  78. -8 127 2048 -24 514 p'select_register'/3 0 144 -20 145 -16 146 -12 147 -4
  79. 148 -8 149 -24 514 p'alloc_h_t_1'/6 20 144 -20 145 -12 162 -4 20 147 -8
  80. 148 -16 513 32 515 p'free_all_if_last'/5
  81.  
  82. p'alloc_h_toplevel'/10 136 512 44 0 -44 1 -28 2 -24 3 -20 4 -16 5 -40 6
  83. -36 8 -12 9 -8 144 -44 145 -40 114 -4 127 2048 -32 514 p'tree_get_item'/3
  84. 0 144 -16 145 -28 146 -24 147 -20 164 -4 44 149 -32 150 -12 151 -8 514 p'alloc_h_toplevel'/8
  85. 28 144 -16 145 -12 162 -4 16 147 -8 513 28 515 p'tree_put_item'/4
  86.  
  87. p'alloc_temps'/4 34 528 30 6 30 96 288 243 16 242 12 241 8 289 515 p'alloc_temps'/5
  88. 520
  89.  
  90. p'alloc_temps'/5 822 528 686 818 12 532 14 20 48 'skip' 65 518 533 22 80
  91. 'head'/1 292 97 288 289 515 p'alloc_temps'/5 533 22 80 'body'/1 257 97 288
  92. 289 515 p'alloc_temps'/5 533 80 97 512 20 276 275 2 -12 3 -8 80 'alloc'/1
  93. 289 244 0 146 -8 115 -4 514 p'allocate'/4 0 144 -20 145 -16 146 -12 147
  94. -8 164 -4 20 513 32 515 p'alloc_temps'/5 533 76 97 512 20 276 275 2 -12
  95. 3 -8 80 'free'/1 289 244 0 114 -4 514 p'free'/3 0 144 -20 145 -16 146 -12
  96. 147 -8 164 -4 20 513 32 515 p'alloc_temps'/5 533 76 97 512 20 276 275 2
  97. -12 3 -8 80 'arg'/1 289 244 0 114 -4 514 p'free'/3 0 144 -20 145 -16 146
  98. -12 147 -8 164 -4 20 513 32 515 p'alloc_temps'/5 533 90 97 512 20 276 275
  99. 3 -12 80 'arg'/3 288 289 242 12 290 244 24 116 -8 149 -12 119 -4 514 p'alloc_b_arg'/8
  100. 0 144 -20 145 -16 162 -8 20 147 -12 164 -4 20 513 32 515 p'alloc_temps'/5
  101. 533 94 97 512 20 276 275 3 -12 80 'cvar'/5 288 289 242 20 290 291 244 32
  102. 292 118 -8 151 -12 121 -4 514 p'alloc_compound'/10 0 144 -20 145 -16 162
  103. -8 20 147 -12 164 -4 20 513 32 515 p'alloc_temps'/5 533 94 97 512 20 276
  104. 275 3 -12 80 'hvar'/5 288 289 242 20 290 291 244 32 292 118 -8 151 -12 121
  105. -4 514 p'alloc_h_toplevel'/10 0 144 -20 145 -16 162 -8 20 147 -12 164 -4
  106. 20 513 32 515 p'alloc_temps'/5 534 97 512 20 276 275 3 -12 80 'bvar'/5 288
  107. 289 242 20 290 291 244 32 292 118 -8 151 -12 121 -4 514 p'alloc_b_toplevel'/10
  108. 0 144 -20 145 -16 162 -8 20 147 -12 164 -4 20 513 32 515 p'alloc_temps'/5
  109. 530 120 [ 'alloc'/1 -616 'arg'/1 -456 'arg'/3 -378 'body'/1 -640 'bvar'/5
  110. -96 'cvar'/5 -286 'free'/1 -534 'head'/1 -664 'hvar'/5 -190] 520
  111.  
  112. p'allocate'/4 116 528 104 6 104 532 20 16 96 353 355 401 402 489 547 518
  113. 533 22 96 292 288 99 324 291 547 515 p'allocate'/4 533 26 33 0 400 402 489
  114. 547 400 480 1 500 467 518 534 99 352 291 400 480 1 500 432 515 p'allocate'/4
  115. 535 -54 16 537 -30
  116.  
  117. p'allocate_temporaries'/1 60 512 12 0 -12 144 -12 113 -8 114 -4 514 p'gather_information'/3
  118. 0 144 -12 161 -8 12 162 -4 12 179 0 3 513 24 515 p'alloc_temps'/4
  119.  
  120. p'check_arith_error'/1 52 528 48 48 6 532 38 4 48 'push' 547 176 '!?   ERROR : Unbound variable in arithmetical expression.'
  121. 512 0 514 p'message'/1 0 520 513 12 518 534 518
  122.  
  123. p'destinations'/3 134 528 130 120 108 532 82 12 512 12 1 -12 96 291 288
  124. 83 'body'/1 354 547 113 -4 127 2048 -8 514 p'topvars'/2 0 160 -4 12 145
  125. -8 516 164 160 -8 12 193 146 -12 513 24 515 p'dests'/3 533 14 96 257 288
  126. 515 p'destinations'/3 534 64 65 50 0 3 518 535 -114 12 537 -34 520
  127.  
  128. p'dests'/3 76 528 72 22 12 532 12 12 64 34 4 518 534 96 293 288 85 '-'/2
  129. 293 294 215 '-'/2 325 371 326 242 16 290 227 327 353 245 4 515 p'dests'/5
  130. 520
  131.  
  132. p'dests'/5 112 528 108 24 12 532 14 20 64 66 36 12 518 534 96 293 512 28
  133. 276 85 '-'/2 278 277 2 -16 3 -12 4 -8 112 -4 146 -28 516 132 160 -4 28 145
  134. -28 146 -24 147 -20 148 -16 149 -12 150 -8 513 40 515 p'dests'/7 520
  135.  
  136. p'dests'/7 126 528 122 122 86 532 46 28 48 '<' 68 215 '-'/2 353 371 354
  137. 290 243 0 227 327 357 246 16 515 p'dests'/5 534 48 '=' 100 354 290 243 0
  138. 245 12 246 16 515 p'dests'/5 529 24 [ '<' -78 '=' -34] 520
  139.  
  140. p'exchange_in_isin'/4 86 512 24 0 -20 1 -16 2 -12 3 -8 544 -24 144 -20 113
  141. -4 514 p'tree_size'/2 0 176 0 3 161 -4 24 146 -20 147 -16 148 -12 149 -8
  142. 514 p'exchange_in_isin'/6 20 548 -4 513 16 518
  143.  
  144. p'exchange_in_isin'/6 176 532 150 24 512 44 0 -44 2 -40 3 -8 4 -16 5 -36
  145. 144 -44 145 -40 210 'temp'/4 279 278 277 272 127 2048 -20 127 2048 -12 514
  146. p'tree_get_item'/3 0 144 -8 145 -4 146 -12 514 p'set_remove'/3 8 144 -8
  147. 161 -4 36 162 -12 36 514 p'set_insert'/3 8 144 -28 145 -24 210 'temp'/4
  148. 307 306 305 336 147 -20 513 40 515 p'tree_put_item'/4 534 400 480 1 500
  149. 432 400 401 486 515 p'exchange_in_isin'/6
  150.  
  151. p'free'/3 8 98 353 352 518
  152.  
  153. p'free_all'/3 18 240 12 241 0 243 4 515 p'free_all_1'/3
  154.  
  155. p'free_all_1'/3 44 528 40 12 32 532 22 12 96 291 288 98 323 290 515 p'free_all_1'/3
  156. 534 64 34 4 518 520
  157.  
  158. p'free_all_if_last'/5 94 528 90 90 54 532 28 20 48 'last' 68 547 242 0 243
  159. 8 515 p'free_all_1'/3 534 48 'previous' 35 4 36 8 518 529 24 [ 'last' -46
  160. 'previous' -20] 520
  161.  
  162. p'gather_information'/3 118 512 24 0 -8 1 -20 2 -4 544 -24 144 -8 177 0
  163. 3 114 -16 127 2048 -12 514 p'last_occurrences'/3 0 144 -8 145 -12 146 -4
  164. 514 p'destinations'/3 8 144 -12 145 -8 514 p'tree_size'/2 0 160 -8 16 161
  165. -4 16 146 -12 514 p'initialize_var_dict'/3 12 548 -4 513 16 518
  166.  
  167. p'get_value_type'/3 38 528 28 28 6 532 18 12 48 'unify' 34 4 547 518 534
  168. 50 'value' 518
  169.  
  170. p'init_var_dict'/3 212 528 200 200 6 532 16 12 48 16383 65531 65 547 518
  171. 533 94 512 12 0 -4 2 -8 97 291 274 83 '-'/2 336 291 547 210 'temp'/4 368
  172. 'unknown' 323 369 369 144 -4 145 -8 514 p'tree_get_item'/3 0 384 480 1 501
  173. 432 145 -12 146 -8 513 24 515 p'init_var_dict'/3 534 512 12 0 -4 1 -12 2
  174. -8 144 -4 145 -8 210 'temp'/4 368 'unknown' 369 369 369 514 p'tree_get_item'/3
  175. 0 384 480 1 501 432 145 -12 146 -8 513 24 515 p'init_var_dict'/3 535 -178
  176. 12 537 -86
  177.  
  178. p'initialize_var_dict'/3 16 400 480 1 501 432 515 p'init_var_dict'/3
  179.  
  180. p'last_occurrence'/4 44 532 28 16 49 'last' 34 0 547 400 480 1 500 467 518
  181. 534 49 'previous' 35 8 518
  182.  
  183. p'last_occurrences'/3 272 528 268 250 242 532 72 12 512 16 2 -8 96 291 288
  184. 83 'hvar'/5 275 259 274 547 114 -4 514 p'last_occurrences'/3 0 144 -16 145
  185. -12 162 -4 16 147 -8 513 28 515 p'last_occurrence'/4 533 70 512 16 2 -8
  186. 96 291 288 83 'bvar'/5 275 259 274 547 114 -4 514 p'last_occurrences'/3
  187. 0 144 -16 145 -12 162 -4 16 147 -8 513 28 515 p'last_occurrence'/4 533 70
  188. 512 16 2 -8 96 291 288 83 'cvar'/5 275 259 274 547 114 -4 514 p'last_occurrences'/3
  189. 0 144 -16 145 -12 162 -4 16 147 -8 513 28 515 p'last_occurrence'/4 533 14
  190. 96 257 288 515 p'last_occurrences'/3 534 64 34 4 518 535 -244 12 536 -176
  191. 536 -108 537 -38 520
  192.  
  193. p'make_available'/7 190 532 50 28 34 4 36 12 512 4 544 -4 240 4 245 0 246
  194. 8 514 p'remove_from_free'/3 0 548 -4 513 16 518 533 108 512 36 0 -36 1 -32
  195. 2 -28 3 -24 4 -20 5 -16 6 -12 544 -4 144 -24 145 -36 114 -8 514 p'vital'/3
  196. 0 548 -4 160 -8 36 145 -36 194 147 -32 148 -28 149 -24 150 -20 151 -16 152
  197. -12 513 48 515 p'release'/9 534 34 4 38 20 240 4 243 0 244 8 515 p'remove_from_isin'/3
  198.  
  199. p'release'/9 240 512 56 0 -52 1 -48 2 -44 3 -40 4 -36 5 -32 6 -28 7 -24
  200. 8 -20 544 -56 144 -52 145 -32 210 'temp'/4 257 272 369 371 347 369 127 2048
  201. -16 127 2048 -12 127 2048 -8 514 p'tree_get_item'/3 0 144 -16 145 -4 514
  202. p'member'/2 4 545 -4 538 24 144 -44 145 -12 516 128 548 -4 520 519 4 540
  203. 545 -8 538 28 144 -12 145 -40 514 p'set_member'/2 0 548 -8 520 519 4 540
  204. 144 -48 145 -44 162 -12 52 147 -40 148 -36 149 -32 150 -28 151 -24 152 -20
  205. 153 -16 514 p'release_1'/10 48 548 -4 513 16 518
  206.  
  207. p'release_1'/10 402 532 102 40 512 32 0 -32 1 -28 2 -24 4 -20 5 -16 6 -12
  208. 7 -8 544 -4 248 0 249 8 145 -24 514 p'remove_from_free'/3 0 548 -4 144 -32
  209. 145 -12 146 -28 147 -24 148 -8 149 -20 150 -16 513 44 515 p'release_2'/7
  210. 533 202 512 60 0 -60 1 -56 2 -52 3 -8 4 -32 5 -48 6 -28 7 -44 8 -24 9 -20
  211. 544 -4 144 -28 145 -52 114 -16 127 2048 -40 127 2048 -36 127 2048 -12 514
  212. p'vital'/3 0 548 -4 144 -56 145 -8 146 -12 514 p'set_insert'/3 8 160 -8
  213. 52 145 -44 162 -4 52 147 -24 148 -32 149 -20 150 -28 151 -16 152 -12 514
  214. p'release'/9 24 144 -28 161 -4 28 146 -24 147 -20 148 -12 165 -8 28 150
  215. -16 513 40 515 p'release_2'/7 534 512 28 0 -28 1 -24 2 -20 4 -16 5 -12 7
  216. -8 41 32 246 0 145 -20 114 -4 514 p'remove_from_isin'/3 0 144 -28 161 -4
  217. 28 146 -24 147 -20 148 -8 149 -16 150 -12 513 40 515 p'release_2'/7
  218.  
  219. p'release_2'/7 106 512 24 0 -24 1 -20 3 -16 4 -12 101 293 358 85 'moveregister'/2
  220. 354 339 144 -24 145 -20 210 'temp'/4 273 272 258 514 p'tree_get_item'/3
  221. 0 144 -24 145 -20 228 339 369 210 'temp'/4 305 304 324 369 147 -12 513 36
  222. 515 p'tree_put_item'/4
  223.  
  224. p'remove_from_free'/3 112 528 100 6 100 532 14 12 96 353 354 547 518 533
  225. 22 96 291 288 98 323 290 547 515 p'remove_from_free'/3 533 20 33 0 547 400
  226. 480 1 500 466 518 534 98 352 290 400 401 486 547 400 480 1 500 432 515 p'remove_from_free'/3
  227. 535 -56 12 537 -38
  228.  
  229. p'remove_from_isin'/3 78 512 20 0 -16 1 -12 2 -8 544 -20 144 -16 113 -4
  230. 514 p'tree_size'/2 0 176 0 3 161 -4 20 146 -16 147 -12 148 -8 514 p'remove_from_isin'/5
  231. 16 548 -4 513 16 518
  232.  
  233. p'remove_from_isin'/5 144 532 118 20 512 36 0 -36 2 -32 3 -8 4 -28 144 -36
  234. 145 -32 210 'temp'/4 277 276 275 272 127 2048 -12 514 p'tree_get_item'/3
  235. 0 144 -8 145 -4 162 -12 36 514 p'set_remove'/3 8 144 -28 145 -24 210 'temp'/4
  236. 307 306 305 336 147 -20 513 40 515 p'tree_put_item'/4 534 400 480 1 500
  237. 432 400 401 486 515 p'remove_from_isin'/5
  238.  
  239. p'select_register'/3 36 528 32 12 22 532 12 12 96 354 257 518 534 64 97
  240. 354 257 518 520
  241.  
  242. p'topvars'/2 92 528 88 78 72 532 46 8 96 290 288 82 'bvar'/5 290 291 259
  243. 97 292 289 84 '-'/2 322 323 547 515 p'topvars'/2 533 14 96 257 288 515 p'topvars'/2
  244. 534 64 65 518 535 -72 8 537 -28 520
  245.  
  246. p'vital'/3 102 512 24 0 -16 1 -12 2 -8 544 -20 144 -16 113 -4 127 2048 -24
  247. 514 p'tree_size'/2 0 176 0 3 161 -4 24 146 -16 147 -12 148 -8 149 -24 514
  248. p'vital'/6 16 548 -4 160 -8 8 177 'yes' 513 20 517 128
  249.  
  250. p'vital'/6 96 532 70 24 512 16 3 -16 5 -12 36 0 242 4 210 'temp'/4 258 273
  251. 272 514 p'tree_get_item'/3 0 144 -8 145 -4 146 -16 147 -12 513 28 515 p'vital_1'/4
  252. 534 400 480 1 500 432 400 401 486 515 p'vital'/6
  253.  
  254. p'vital_1'/4 82 528 70 70 6 532 24 16 51 'yes' 240 4 242 0 515 p'member'/2
  255. 533 18 64 51 'yes' 97 354 369 518 534 51 'no' 242 0 515 p'member'/2 535
  256. -64 16 537 -24
  257.  
  258.