← Back to branch summary

~ubuntu-branches/debian/sid/ocaml/sid

« back to all changes in this revision

Viewing changes to testsuite/tests/tool-ocaml/t310-alloc-2.ml

  • Committer: Bazaar Package Importer
  • Author(s): Stéphane Glondu
  • Date: 2011-04-21 21:35:08 UTC
  • mfrom: (1.1.11 upstream) (12.1.14 sid)
  • Revision ID: james.westby@ubuntu.com-20110421213508-kg34453aqmb0moha
* Fixes related to -output-obj with g++ (in debian/patches):
  - add Declare-primitive-name-table-as-const-char
  - add Avoid-multiple-declarations-in-generated-.c-files-in
  - fix Embed-bytecode-in-C-object-when-using-custom: the closing
    brace for extern "C" { ... } was missing in some cases

Show diffs side-by-side

added added

removed removed

Lines of Context:
testsuite/tests/tool-ocaml/t310-alloc-2.ml
 
1
open Lib;;
 
2
let v = Array.make 200000 2 in
 
3
let t = ref 0 in
 
4
Array.iter (fun x -> t := !t + x) v;
 
5
if !t <> 400000 then raise Not_found
 
6
;;
 
7
 
 
8
(**
 
9
       0 CONSTINT 42
 
10
       2 PUSHACC0 
 
11
       3 MAKEBLOCK1 0
 
12
       5 POP 1
 
13
       7 SETGLOBAL Lib
 
14
       9 BRANCH 746
 
15
      11 RESTART 
 
16
      12 GRAB 1
 
17
      14 ACC0 
 
18
      15 BRANCHIFNOT 28
 
19
      17 ACC1 
 
20
      18 PUSHACC1 
 
21
      19 GETFIELD1 
 
22
      20 PUSHOFFSETCLOSURE0 
 
23
      21 APPLY2 
 
24
      22 PUSHACC1 
 
25
      23 GETFIELD0 
 
26
      24 MAKEBLOCK2 0
 
27
      26 RETURN 2
 
28
      28 ACC1 
 
29
      29 RETURN 2
 
30
      31 RESTART 
 
31
      32 GRAB 3
 
32
      34 CONST0 
 
33
      35 PUSHACC4 
 
34
      36 LEINT 
 
35
      37 BRANCHIFNOT 42
 
36
      39 CONST0 
 
37
      40 RETURN 4
 
38
      42 ACC3 
 
39
      43 PUSHACC3 
 
40
      44 PUSHACC3 
 
41
      45 PUSHACC3 
 
42
      46 C_CALL4 caml_input
 
43
      48 PUSHCONST0 
 
44
      49 PUSHACC1 
 
45
      50 EQ 
 
46
      51 BRANCHIFNOT 58
 
47
      53 GETGLOBAL End_of_file
 
48
      55 MAKEBLOCK1 0
 
49
      57 RAISE 
 
50
      58 ACC0 
 
51
      59 PUSHACC5 
 
52
      60 SUBINT 
 
53
      61 PUSHACC1 
 
54
      62 PUSHACC5 
 
55
      63 ADDINT 
 
56
      64 PUSHACC4 
 
57
      65 PUSHACC4 
 
58
      66 PUSHOFFSETCLOSURE0 
 
59
      67 APPTERM 4, 9
 
60
      70 ACC0 
 
61
      71 C_CALL1 caml_input_scan_line
 
62
      73 PUSHCONST0 
 
63
      74 PUSHACC1 
 
64
      75 EQ 
 
65
      76 BRANCHIFNOT 83
 
66
      78 GETGLOBAL End_of_file
 
67
      80 MAKEBLOCK1 0
 
68
      82 RAISE 
 
69
      83 CONST0 
 
70
      84 PUSHACC1 
 
71
      85 GTINT 
 
72
      86 BRANCHIFNOT 107
 
73
      88 ACC0 
 
74
      89 OFFSETINT -1
 
75
      91 C_CALL1 create_string
 
76
      93 PUSHACC1 
 
77
      94 OFFSETINT -1
 
78
      96 PUSHCONST0 
 
79
      97 PUSHACC2 
 
80
      98 PUSHACC5 
 
81
      99 C_CALL4 caml_input
 
82
     101 ACC2 
 
83
     102 C_CALL1 caml_input_char
 
84
     104 ACC0 
 
85
     105 RETURN 3
 
86
     107 ACC0 
 
87
     108 NEGINT 
 
88
     109 C_CALL1 create_string
 
89
     111 PUSHACC1 
 
90
     112 NEGINT 
 
91
     113 PUSHCONST0 
 
92
     114 PUSHACC2 
 
93
     115 PUSHACC5 
 
94
     116 C_CALL4 caml_input
 
95
     118 CONST0 
 
96
     119 PUSHTRAP 130
 
97
     121 ACC6 
 
98
     122 PUSHOFFSETCLOSURE0 
 
99
     123 APPLY1 
 
100
     124 PUSHACC5 
 
101
     125 PUSHENVACC1 
 
102
     126 APPLY2 
 
103
     127 POPTRAP 
 
104
     128 RETURN 3
 
105
     130 PUSHGETGLOBAL End_of_file
 
106
     132 PUSHACC1 
 
107
     133 GETFIELD0 
 
108
     134 EQ 
 
109
     135 BRANCHIFNOT 140
 
110
     137 ACC1 
 
111
     138 RETURN 4
 
112
     140 ACC0 
 
113
     141 RAISE 
 
114
     142 ACC0 
 
115
     143 C_CALL1 caml_flush
 
116
     145 RETURN 1
 
117
     147 RESTART 
 
118
     148 GRAB 1
 
119
     150 ACC1 
 
120
     151 PUSHACC1 
 
121
     152 C_CALL2 caml_output_char
 
122
     154 RETURN 2
 
123
     156 RESTART 
 
124
     157 GRAB 1
 
125
     159 ACC1 
 
126
     160 PUSHACC1 
 
127
     161 C_CALL2 caml_output_char
 
128
     163 RETURN 2
 
129
     165 RESTART 
 
130
     166 GRAB 1
 
131
     168 ACC1 
 
132
     169 PUSHACC1 
 
133
     170 C_CALL2 caml_output_int
 
134
     172 RETURN 2
 
135
     174 RESTART 
 
136
     175 GRAB 1
 
137
     177 ACC1 
 
138
     178 PUSHACC1 
 
139
     179 C_CALL2 caml_seek_out
 
140
     181 RETURN 2
 
141
     183 ACC0 
 
142
     184 C_CALL1 caml_pos_out
 
143
     186 RETURN 1
 
144
     188 ACC0 
 
145
     189 C_CALL1 caml_channel_size
 
146
     191 RETURN 1
 
147
     193 RESTART 
 
148
     194 GRAB 1
 
149
     196 ACC1 
 
150
     197 PUSHACC1 
 
151
     198 C_CALL2 caml_set_binary_mode
 
152
     200 RETURN 2
 
153
     202 ACC0 
 
154
     203 C_CALL1 caml_input_char
 
155
     205 RETURN 1
 
156
     207 ACC0 
 
157
     208 C_CALL1 caml_input_char
 
158
     210 RETURN 1
 
159
     212 ACC0 
 
160
     213 C_CALL1 caml_input_int
 
161
     215 RETURN 1
 
162
     217 ACC0 
 
163
     218 C_CALL1 input_value
 
164
     220 RETURN 1
 
165
     222 RESTART 
 
166
     223 GRAB 1
 
167
     225 ACC1 
 
168
     226 PUSHACC1 
 
169
     227 C_CALL2 caml_seek_in
 
170
     229 RETURN 2
 
171
     231 ACC0 
 
172
     232 C_CALL1 caml_pos_in
 
173
     234 RETURN 1
 
174
     236 ACC0 
 
175
     237 C_CALL1 caml_channel_size
 
176
     239 RETURN 1
 
177
     241 ACC0 
 
178
     242 C_CALL1 caml_close_channel
 
179
     244 RETURN 1
 
180
     246 RESTART 
 
181
     247 GRAB 1
 
182
     249 ACC1 
 
183
     250 PUSHACC1 
 
184
     251 C_CALL2 caml_set_binary_mode
 
185
     253 RETURN 2
 
186
     255 CONST0 
 
187
     256 PUSHENVACC1 
 
188
     257 APPLY1 
 
189
     258 ACC0 
 
190
     259 C_CALL1 sys_exit
 
191
     261 RETURN 1
 
192
     263 CONST0 
 
193
     264 PUSHENVACC1 
 
194
     265 GETFIELD0 
 
195
     266 APPTERM1 2
 
196
     268 CONST0 
 
197
     269 PUSHENVACC1 
 
198
     270 APPLY1 
 
199
     271 CONST0 
 
200
     272 PUSHENVACC2 
 
201
     273 APPTERM1 2
 
202
     275 ENVACC1 
 
203
     276 GETFIELD0 
 
204
     277 PUSHACC0 
 
205
     278 PUSHACC2 
 
206
     279 CLOSURE 2, 268
 
207
     282 PUSHENVACC1 
 
208
     283 SETFIELD0 
 
209
     284 RETURN 2
 
210
     286 ENVACC1 
 
211
     287 C_CALL1 caml_flush
 
212
     289 ENVACC2 
 
213
     290 C_CALL1 caml_flush
 
214
     292 RETURN 1
 
215
     294 CONST0 
 
216
     295 PUSHENVACC1 
 
217
     296 APPLY1 
 
218
     297 C_CALL1 float_of_string
 
219
     299 RETURN 1
 
220
     301 CONST0 
 
221
     302 PUSHENVACC1 
 
222
     303 APPLY1 
 
223
     304 C_CALL1 int_of_string
 
224
     306 RETURN 1
 
225
     308 ENVACC2 
 
226
     309 C_CALL1 caml_flush
 
227
     311 ENVACC1 
 
228
     312 PUSHENVACC3 
 
229
     313 APPTERM1 2
 
230
     315 CONSTINT 13
 
231
     317 PUSHENVACC1 
 
232
     318 C_CALL2 caml_output_char
 
233
     320 ENVACC1 
 
234
     321 C_CALL1 caml_flush
 
235
     323 RETURN 1
 
236
     325 ACC0 
 
237
     326 PUSHENVACC1 
 
238
     327 PUSHENVACC2 
 
239
     328 APPLY2 
 
240
     329 CONSTINT 13
 
241
     331 PUSHENVACC1 
 
242
     332 C_CALL2 caml_output_char
 
243
     334 ENVACC1 
 
244
     335 C_CALL1 caml_flush
 
245
     337 RETURN 1
 
246
     339 ACC0 
 
247
     340 PUSHENVACC1 
 
248
     341 APPLY1 
 
249
     342 PUSHENVACC2 
 
250
     343 PUSHENVACC3 
 
251
     344 APPTERM2 3
 
252
     346 ACC0 
 
253
     347 PUSHENVACC1 
 
254
     348 APPLY1 
 
255
     349 PUSHENVACC2 
 
256
     350 PUSHENVACC3 
 
257
     351 APPTERM2 3
 
258
     353 ACC0 
 
259
     354 PUSHENVACC1 
 
260
     355 PUSHENVACC2 
 
261
     356 APPTERM2 3
 
262
     358 ACC0 
 
263
     359 PUSHENVACC1 
 
264
     360 C_CALL2 caml_output_char
 
265
     362 RETURN 1
 
266
     364 CONSTINT 13
 
267
     366 PUSHENVACC1 
 
268
     367 C_CALL2 caml_output_char
 
269
     369 ENVACC1 
 
270
     370 C_CALL1 caml_flush
 
271
     372 RETURN 1
 
272
     374 ACC0 
 
273
     375 PUSHENVACC1 
 
274
     376 PUSHENVACC2 
 
275
     377 APPLY2 
 
276
     378 CONSTINT 13
 
277
     380 PUSHENVACC1 
 
278
     381 C_CALL2 caml_output_char
 
279
     383 RETURN 1
 
280
     385 ACC0 
 
281
     386 PUSHENVACC1 
 
282
     387 APPLY1 
 
283
     388 PUSHENVACC2 
 
284
     389 PUSHENVACC3 
 
285
     390 APPTERM2 3
 
286
     392 ACC0 
 
287
     393 PUSHENVACC1 
 
288
     394 APPLY1 
 
289
     395 PUSHENVACC2 
 
290
     396 PUSHENVACC3 
 
291
     397 APPTERM2 3
 
292
     399 ACC0 
 
293
     400 PUSHENVACC1 
 
294
     401 PUSHENVACC2 
 
295
     402 APPTERM2 3
 
296
     404 ACC0 
 
297
     405 PUSHENVACC1 
 
298
     406 C_CALL2 caml_output_char
 
299
     408 RETURN 1
 
300
     410 RESTART 
 
301
     411 GRAB 3
 
302
     413 CONST0 
 
303
     414 PUSHACC3 
 
304
     415 LTINT 
 
305
     416 BRANCHIF 427
 
306
     418 ACC1 
 
307
     419 C_CALL1 ml_string_length
 
308
     421 PUSHACC4 
 
309
     422 PUSHACC4 
 
310
     423 ADDINT 
 
311
     424 GTINT 
 
312
     425 BRANCHIFNOT 432
 
313
     427 GETGLOBAL "really_input"
 
314
     429 PUSHENVACC1 
 
315
     430 APPTERM1 5
 
316
     432 ACC3 
 
317
     433 PUSHACC3 
 
318
     434 PUSHACC3 
 
319
     435 PUSHACC3 
 
320
     436 PUSHENVACC2 
 
321
     437 APPTERM 4, 8
 
322
     440 RESTART 
 
323
     441 GRAB 3
 
324
     443 CONST0 
 
325
     444 PUSHACC3 
 
326
     445 LTINT 
 
327
     446 BRANCHIF 457
 
328
     448 ACC1 
 
329
     449 C_CALL1 ml_string_length
 
330
     451 PUSHACC4 
 
331
     452 PUSHACC4 
 
332
     453 ADDINT 
 
333
     454 GTINT 
 
334
     455 BRANCHIFNOT 462
 
335
     457 GETGLOBAL "input"
 
336
     459 PUSHENVACC1 
 
337
     460 APPTERM1 5
 
338
     462 ACC3 
 
339
     463 PUSHACC3 
 
340
     464 PUSHACC3 
 
341
     465 PUSHACC3 
 
342
     466 C_CALL4 caml_input
 
343
     468 RETURN 4
 
344
     470 ACC0 
 
345
     471 PUSHCONST0 
 
346
     472 PUSHGETGLOBAL <0>(0, <0>(6, 0))
 
347
     474 PUSHENVACC1 
 
348
     475 APPTERM3 4
 
349
     477 ACC0 
 
350
     478 PUSHCONST0 
 
351
     479 PUSHGETGLOBAL <0>(0, <0>(7, 0))
 
352
     481 PUSHENVACC1 
 
353
     482 APPTERM3 4
 
354
     484 RESTART 
 
355
     485 GRAB 2
 
356
     487 ACC1 
 
357
     488 PUSHACC1 
 
358
     489 PUSHACC4 
 
359
     490 C_CALL3 sys_open
 
360
     492 C_CALL1 caml_open_descriptor
 
361
     494 RETURN 3
 
362
     496 ACC0 
 
363
     497 C_CALL1 caml_flush
 
364
     499 ACC0 
 
365
     500 C_CALL1 caml_close_channel
 
366
     502 RETURN 1
 
367
     504 RESTART 
 
368
     505 GRAB 1
 
369
     507 CONST0 
 
370
     508 PUSHACC2 
 
371
     509 PUSHACC2 
 
372
     510 C_CALL3 output_value
 
373
     512 RETURN 2
 
374
     514 RESTART 
 
375
     515 GRAB 3
 
376
     517 CONST0 
 
377
     518 PUSHACC3 
 
378
     519 LTINT 
 
379
     520 BRANCHIF 531
 
380
     522 ACC1 
 
381
     523 C_CALL1 ml_string_length
 
382
     525 PUSHACC4 
 
383
     526 PUSHACC4 
 
384
     527 ADDINT 
 
385
     528 GTINT 
 
386
     529 BRANCHIFNOT 536
 
387
     531 GETGLOBAL "output"
 
388
     533 PUSHENVACC1 
 
389
     534 APPTERM1 5
 
390
     536 ACC3 
 
391
     537 PUSHACC3 
 
392
     538 PUSHACC3 
 
393
     539 PUSHACC3 
 
394
     540 C_CALL4 caml_output
 
395
     542 RETURN 4
 
396
     544 RESTART 
 
397
     545 GRAB 1
 
398
     547 ACC1 
 
399
     548 C_CALL1 ml_string_length
 
400
     550 PUSHCONST0 
 
401
     551 PUSHACC3 
 
402
     552 PUSHACC3 
 
403
     553 C_CALL4 caml_output
 
404
     555 RETURN 2
 
405
     557 ACC0 
 
406
     558 PUSHCONSTINT 438
 
407
     560 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(6, 0))))
 
408
     562 PUSHENVACC1 
 
409
     563 APPTERM3 4
 
410
     565 ACC0 
 
411
     566 PUSHCONSTINT 438
 
412
     568 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(7, 0))))
 
413
     570 PUSHENVACC1 
 
414
     571 APPTERM3 4
 
415
     573 RESTART 
 
416
     574 GRAB 2
 
417
     576 ACC1 
 
418
     577 PUSHACC1 
 
419
     578 PUSHACC4 
 
420
     579 C_CALL3 sys_open
 
421
     581 C_CALL1 caml_open_descriptor
 
422
     583 RETURN 3
 
423
     585 ACC0 
 
424
     586 PUSHGETGLOBAL "%.12g"
 
425
     588 C_CALL2 format_float
 
426
     590 RETURN 1
 
427
     592 ACC0 
 
428
     593 PUSHGETGLOBAL "%d"
 
429
     595 C_CALL2 format_int
 
430
     597 RETURN 1
 
431
     599 GETGLOBAL "false"
 
432
     601 PUSHACC1 
 
433
     602 C_CALL2 string_equal
 
434
     604 BRANCHIFNOT 609
 
435
     606 CONST0 
 
436
     607 RETURN 1
 
437
     609 GETGLOBAL "true"
 
438
     611 PUSHACC1 
 
439
     612 C_CALL2 string_equal
 
440
     614 BRANCHIFNOT 619
 
441
     616 CONST1 
 
442
     617 RETURN 1
 
443
     619 GETGLOBAL "bool_of_string"
 
444
     621 PUSHENVACC1 
 
445
     622 APPTERM1 2
 
446
     624 ACC0 
 
447
     625 BRANCHIFNOT 631
 
448
     627 GETGLOBAL "true"
 
449
     629 RETURN 1
 
450
     631 GETGLOBAL "false"
 
451
     633 RETURN 1
 
452
     635 CONST0 
 
453
     636 PUSHACC1 
 
454
     637 LTINT 
 
455
     638 BRANCHIF 646
 
456
     640 CONSTINT 255
 
457
     642 PUSHACC1 
 
458
     643 GTINT 
 
459
     644 BRANCHIFNOT 651
 
460
     646 GETGLOBAL "char_of_int"
 
461
     648 PUSHENVACC1 
 
462
     649 APPTERM1 2
 
463
     651 ACC0 
 
464
     652 RETURN 1
 
465
     654 RESTART 
 
466
     655 GRAB 1
 
467
     657 ACC0 
 
468
     658 C_CALL1 ml_string_length
 
469
     660 PUSHACC2 
 
470
     661 C_CALL1 ml_string_length
 
471
     663 PUSHACC0 
 
472
     664 PUSHACC2 
 
473
     665 ADDINT 
 
474
     666 C_CALL1 create_string
 
475
     668 PUSHACC2 
 
476
     669 PUSHCONST0 
 
477
     670 PUSHACC2 
 
478
     671 PUSHCONST0 
 
479
     672 PUSHACC7 
 
480
     673 C_CALL5 blit_string
 
481
     675 ACC1 
 
482
     676 PUSHACC3 
 
483
     677 PUSHACC2 
 
484
     678 PUSHCONST0 
 
485
     679 PUSHACC 8
 
486
     681 C_CALL5 blit_string
 
487
     683 ACC0 
 
488
     684 RETURN 5
 
489
     686 CONSTINT -1
 
490
     688 PUSHACC1 
 
491
     689 XORINT 
 
492
     690 RETURN 1
 
493
     692 CONST0 
 
494
     693 PUSHACC1 
 
495
     694 GEINT 
 
496
     695 BRANCHIFNOT 700
 
497
     697 ACC0 
 
498
     698 RETURN 1
 
499
     700 ACC0 
 
500
     701 NEGINT 
 
501
     702 RETURN 1
 
502
     704 RESTART 
 
503
     705 GRAB 1
 
504
     707 ACC1 
 
505
     708 PUSHACC1 
 
506
     709 C_CALL2 greaterequal
 
507
     711 BRANCHIFNOT 716
 
508
     713 ACC0 
 
509
     714 RETURN 2
 
510
     716 ACC1 
 
511
     717 RETURN 2
 
512
     719 RESTART 
 
513
     720 GRAB 1
 
514
     722 ACC1 
 
515
     723 PUSHACC1 
 
516
     724 C_CALL2 lessequal
 
517
     726 BRANCHIFNOT 731
 
518
     728 ACC0 
 
519
     729 RETURN 2
 
520
     731 ACC1 
 
521
     732 RETURN 2
 
522
     734 ACC0 
 
523
     735 PUSHGETGLOBAL Invalid_argument
 
524
     737 MAKEBLOCK2 0
 
525
     739 RAISE 
 
526
     740 ACC0 
 
527
     741 PUSHGETGLOBAL Failure
 
528
     743 MAKEBLOCK2 0
 
529
     745 RAISE 
 
530
     746 CLOSURE 0, 740
 
531
     749 PUSH 
 
532
     750 CLOSURE 0, 734
 
533
     753 PUSHGETGLOBAL "Pervasives.Exit"
 
534
     755 MAKEBLOCK1 0
 
535
     757 PUSHGETGLOBAL "Pervasives.Assert_failure"
 
536
     759 MAKEBLOCK1 0
 
537
     761 PUSH 
 
538
     762 CLOSURE 0, 720
 
539
     765 PUSH 
 
540
     766 CLOSURE 0, 705
 
541
     769 PUSH 
 
542
     770 CLOSURE 0, 692
 
543
     773 PUSH 
 
544
     774 CLOSURE 0, 686
 
545
     777 PUSHCONST0 
 
546
     778 PUSHCONSTINT 31
 
547
     780 PUSHCONST1 
 
548
     781 LSLINT 
 
549
     782 EQ 
 
550
     783 BRANCHIFNOT 789
 
551
     785 CONSTINT 30
 
552
     787 BRANCH 791
 
553
     789 CONSTINT 62
 
554
     791 PUSHCONST1 
 
555
     792 LSLINT 
 
556
     793 PUSHACC0 
 
557
     794 OFFSETINT -1
 
558
     796 PUSH 
 
559
     797 CLOSURE 0, 655
 
560
     800 PUSHACC 9
 
561
     802 CLOSURE 1, 635
 
562
     805 PUSH 
 
563
     806 CLOSURE 0, 624
 
564
     809 PUSHACC 11
 
565
     811 CLOSURE 1, 599
 
566
     814 PUSH 
 
567
     815 CLOSURE 0, 592
 
568
     818 PUSH 
 
569
     819 CLOSURE 0, 585
 
570
     822 PUSH 
 
571
     823 CLOSUREREC 0, 12
 
572
     827 CONST0 
 
573
     828 C_CALL1 caml_open_descriptor
 
574
     830 PUSHCONST1 
 
575
     831 C_CALL1 caml_open_descriptor
 
576
     833 PUSHCONST2 
 
577
     834 C_CALL1 caml_open_descriptor
 
578
     836 PUSH 
 
579
     837 CLOSURE 0, 574
 
580
     840 PUSHACC0 
 
581
     841 CLOSURE 1, 565
 
582
     844 PUSHACC1 
 
583
     845 CLOSURE 1, 557
 
584
     848 PUSH 
 
585
     849 CLOSURE 0, 545
 
586
     852 PUSHACC 22
 
587
     854 CLOSURE 1, 515
 
588
     857 PUSH 
 
589
     858 CLOSURE 0, 505
 
590
     861 PUSH 
 
591
     862 CLOSURE 0, 496
 
592
     865 PUSH 
 
593
     866 CLOSURE 0, 485
 
594
     869 PUSHACC0 
 
595
     870 CLOSURE 1, 477
 
596
     873 PUSHACC1 
 
597
     874 CLOSURE 1, 470
 
598
     877 PUSHACC 28
 
599
     879 CLOSURE 1, 441
 
600
     882 PUSH 
 
601
     883 CLOSUREREC 0, 32
 
602
     887 ACC0 
 
603
     888 PUSHACC 31
 
604
     890 CLOSURE 2, 411
 
605
     893 PUSHACC 22
 
606
     895 CLOSUREREC 1, 70
 
607
     899 ACC 15
 
608
     901 CLOSURE 1, 404
 
609
     904 PUSHACC 11
 
610
     906 PUSHACC 17
 
611
     908 CLOSURE 2, 399
 
612
     911 PUSHACC 12
 
613
     913 PUSHACC 18
 
614
     915 PUSHACC 23
 
615
     917 CLOSURE 3, 392
 
616
     920 PUSHACC 13
 
617
     922 PUSHACC 19
 
618
     924 PUSHACC 23
 
619
     926 CLOSURE 3, 385
 
620
     929 PUSHACC 14
 
621
     931 PUSHACC 20
 
622
     933 CLOSURE 2, 374
 
623
     936 PUSHACC 20
 
624
     938 CLOSURE 1, 364
 
625
     941 PUSHACC 20
 
626
     943 CLOSURE 1, 358
 
627
     946 PUSHACC 17
 
628
     948 PUSHACC 22
 
629
     950 CLOSURE 2, 353
 
630
     953 PUSHACC 18
 
631
     955 PUSHACC 23
 
632
     957 PUSHACC 29
 
633
     959 CLOSURE 3, 346
 
634
     962 PUSHACC 19
 
635
     964 PUSHACC 24
 
636
     966 PUSHACC 29
 
637
     968 CLOSURE 3, 339
 
638
     971 PUSHACC 20
 
639
     973 PUSHACC 25
 
640
     975 CLOSURE 2, 325
 
641
     978 PUSHACC 25
 
642
     980 CLOSURE 1, 315
 
643
     983 PUSHACC 12
 
644
     985 PUSHACC 28
 
645
     987 PUSHACC 30
 
646
     989 CLOSURE 3, 308
 
647
     992 PUSHACC0 
 
648
     993 CLOSURE 1, 301
 
649
     996 PUSHACC1 
 
650
     997 CLOSURE 1, 294
 
651
    1000 PUSHACC 29
 
652
    1002 PUSHACC 31
 
653
    1004 CLOSURE 2, 286
 
654
    1007 MAKEBLOCK1 0
 
655
    1009 PUSHACC0 
 
656
    1010 CLOSURE 1, 275
 
657
    1013 PUSHACC1 
 
658
    1014 CLOSURE 1, 263
 
659
    1017 PUSHACC0 
 
660
    1018 CLOSURE 1, 255
 
661
    1021 PUSHACC1 
 
662
    1022 PUSHACC 22
 
663
    1024 PUSHACC4 
 
664
    1025 PUSHACC3 
 
665
    1026 PUSH 
 
666
    1027 CLOSURE 0, 247
 
667
    1030 PUSH 
 
668
    1031 CLOSURE 0, 241
 
669
    1034 PUSH 
 
670
    1035 CLOSURE 0, 236
 
671
    1038 PUSH 
 
672
    1039 CLOSURE 0, 231
 
673
    1042 PUSH 
 
674
    1043 CLOSURE 0, 223
 
675
    1046 PUSH 
 
676
    1047 CLOSURE 0, 217
 
677
    1050 PUSH 
 
678
    1051 CLOSURE 0, 212
 
679
    1054 PUSH 
 
680
    1055 CLOSURE 0, 207
 
681
    1058 PUSHACC 32
 
682
    1060 PUSHACC 35
 
683
    1062 PUSHACC 33
 
684
    1064 PUSH 
 
685
    1065 CLOSURE 0, 202
 
686
    1068 PUSHACC 41
 
687
    1070 PUSHACC 40
 
688
    1072 PUSHACC 42
 
689
    1074 PUSH 
 
690
    1075 CLOSURE 0, 194
 
691
    1078 PUSHACC 46
 
692
    1080 PUSH 
 
693
    1081 CLOSURE 0, 188
 
694
    1084 PUSH 
 
695
    1085 CLOSURE 0, 183
 
696
    1088 PUSH 
 
697
    1089 CLOSURE 0, 175
 
698
    1092 PUSHACC 51
 
699
    1094 PUSH 
 
700
    1095 CLOSURE 0, 166
 
701
    1098 PUSH 
 
702
    1099 CLOSURE 0, 157
 
703
    1102 PUSHACC 55
 
704
    1104 PUSHACC 57
 
705
    1106 PUSH 
 
706
    1107 CLOSURE 0, 148
 
707
    1110 PUSH 
 
708
    1111 CLOSURE 0, 142
 
709
    1114 PUSHACC 63
 
710
    1116 PUSHACC 62
 
711
    1118 PUSHACC 64
 
712
    1120 PUSHACC 38
 
713
    1122 PUSHACC 40
 
714
    1124 PUSHACC 42
 
715
    1126 PUSHACC 44
 
716
    1128 PUSHACC 46
 
717
    1130 PUSHACC 48
 
718
    1132 PUSHACC 50
 
719
    1134 PUSHACC 52
 
720
    1136 PUSHACC 54
 
721
    1138 PUSHACC 56
 
722
    1140 PUSHACC 58
 
723
    1142 PUSHACC 60
 
724
    1144 PUSHACC 62
 
725
    1146 PUSHACC 64
 
726
    1148 PUSHACC 66
 
727
    1150 PUSHACC 82
 
728
    1152 PUSHACC 84
 
729
    1154 PUSHACC 86
 
730
    1156 PUSHACC 88
 
731
    1158 PUSHACC 90
 
732
    1160 PUSHACC 92
 
733
    1162 PUSHACC 94
 
734
    1164 PUSHACC 96
 
735
    1166 PUSHACC 98
 
736
    1168 PUSHACC 100
 
737
    1170 PUSHACC 104
 
738
    1172 PUSHACC 104
 
739
    1174 PUSHACC 104
 
740
    1176 PUSHACC 108
 
741
    1178 PUSHACC 110
 
742
    1180 PUSHACC 112
 
743
    1182 PUSHACC 117
 
744
    1184 PUSHACC 117
 
745
    1186 PUSHACC 117
 
746
    1188 PUSHACC 117
 
747
    1190 MAKEBLOCK 69, 0
 
748
    1193 POP 53
 
749
    1195 SETGLOBAL Pervasives
 
750
    1197 BRANCH 2177
 
751
    1199 RESTART 
 
752
    1200 GRAB 1
 
753
    1202 ACC1 
 
754
    1203 BRANCHIFNOT 1213
 
755
    1205 ACC1 
 
756
    1206 GETFIELD1 
 
757
    1207 PUSHACC1 
 
758
    1208 OFFSETINT 1
 
759
    1210 PUSHOFFSETCLOSURE0 
 
760
    1211 APPTERM2 4
 
761
    1213 ACC0 
 
762
    1214 RETURN 2
 
763
    1216 RESTART 
 
764
    1217 GRAB 1
 
765
    1219 ACC0 
 
766
    1220 BRANCHIFNOT 1251
 
767
    1222 CONST0 
 
768
    1223 PUSHACC2 
 
769
    1224 EQ 
 
770
    1225 BRANCHIFNOT 1231
 
771
    1227 ACC0 
 
772
    1228 GETFIELD0 
 
773
    1229 RETURN 2
 
774
    1231 CONST0 
 
775
    1232 PUSHACC2 
 
776
    1233 GTINT 
 
777
    1234 BRANCHIFNOT 1244
 
778
    1236 ACC1 
 
779
    1237 OFFSETINT -1
 
780
    1239 PUSHACC1 
 
781
    1240 GETFIELD1 
 
782
    1241 PUSHOFFSETCLOSURE0 
 
783
    1242 APPTERM2 4
 
784
    1244 GETGLOBAL "List.nth"
 
785
    1246 PUSHGETGLOBALFIELD Pervasives, 2
 
786
    1249 APPTERM1 3
 
787
    1251 GETGLOBAL "nth"
 
788
    1253 PUSHGETGLOBALFIELD Pervasives, 3
 
789
    1256 APPTERM1 3
 
790
    1258 RESTART 
 
791
    1259 GRAB 1
 
792
    1261 ACC0 
 
793
    1262 BRANCHIFNOT 1274
 
794
    1264 ACC1 
 
795
    1265 PUSHACC1 
 
796
    1266 GETFIELD0 
 
797
    1267 MAKEBLOCK2 0
 
798
    1269 PUSHACC1 
 
799
    1270 GETFIELD1 
 
800
    1271 PUSHOFFSETCLOSURE0 
 
801
    1272 APPTERM2 4
 
802
    1274 ACC1 
 
803
    1275 RETURN 2
 
804
    1277 ACC0 
 
805
    1278 BRANCHIFNOT 1291
 
806
    1280 ACC0 
 
807
    1281 GETFIELD1 
 
808
    1282 PUSHOFFSETCLOSURE0 
 
809
    1283 APPLY1 
 
810
    1284 PUSHACC1 
 
811
    1285 GETFIELD0 
 
812
    1286 PUSHGETGLOBALFIELD Pervasives, 16
 
813
    1289 APPTERM2 3
 
814
    1291 RETURN 1
 
815
    1293 RESTART 
 
816
    1294 GRAB 1
 
817
    1296 ACC1 
 
818
    1297 BRANCHIFNOT 1313
 
819
    1299 ACC1 
 
820
    1300 GETFIELD0 
 
821
    1301 PUSHACC1 
 
822
    1302 APPLY1 
 
823
    1303 PUSHACC2 
 
824
    1304 GETFIELD1 
 
825
    1305 PUSHACC2 
 
826
    1306 PUSHOFFSETCLOSURE0 
 
827
    1307 APPLY2 
 
828
    1308 PUSHACC1 
 
829
    1309 MAKEBLOCK2 0
 
830
    1311 POP 1
 
831
    1313 RETURN 2
 
832
    1315 RESTART 
 
833
    1316 GRAB 1
 
834
    1318 ACC1 
 
835
    1319 BRANCHIFNOT 1331
 
836
    1321 ACC1 
 
837
    1322 GETFIELD0 
 
838
    1323 PUSHACC1 
 
839
    1324 APPLY1 
 
840
    1325 ACC1 
 
841
    1326 GETFIELD1 
 
842
    1327 PUSHACC1 
 
843
    1328 PUSHOFFSETCLOSURE0 
 
844
    1329 APPTERM2 4
 
845
    1331 RETURN 2
 
846
    1333 RESTART 
 
847
    1334 GRAB 2
 
848
    1336 ACC2 
 
849
    1337 BRANCHIFNOT 1350
 
850
    1339 ACC2 
 
851
    1340 GETFIELD1 
 
852
    1341 PUSHACC3 
 
853
    1342 GETFIELD0 
 
854
    1343 PUSHACC3 
 
855
    1344 PUSHACC3 
 
856
    1345 APPLY2 
 
857
    1346 PUSHACC2 
 
858
    1347 PUSHOFFSETCLOSURE0 
 
859
    1348 APPTERM3 6
 
860
    1350 ACC1 
 
861
    1351 RETURN 3
 
862
    1353 RESTART 
 
863
    1354 GRAB 2
 
864
    1356 ACC1 
 
865
    1357 BRANCHIFNOT 1370
 
866
    1359 ACC2 
 
867
    1360 PUSHACC2 
 
868
    1361 GETFIELD1 
 
869
    1362 PUSHACC2 
 
870
    1363 PUSHOFFSETCLOSURE0 
 
871
    1364 APPLY3 
 
872
    1365 PUSHACC2 
 
873
    1366 GETFIELD0 
 
874
    1367 PUSHACC2 
 
875
    1368 APPTERM2 5
 
876
    1370 ACC2 
 
877
    1371 RETURN 3
 
878
    1373 RESTART 
 
879
    1374 GRAB 2
 
880
    1376 ACC1 
 
881
    1377 BRANCHIFNOT 1400
 
882
    1379 ACC2 
 
883
    1380 BRANCHIFNOT 1407
 
884
    1382 ACC2 
 
885
    1383 GETFIELD0 
 
886
    1384 PUSHACC2 
 
887
    1385 GETFIELD0 
 
888
    1386 PUSHACC2 
 
889
    1387 APPLY2 
 
890
    1388 PUSHACC3 
 
891
    1389 GETFIELD1 
 
892
    1390 PUSHACC3 
 
893
    1391 GETFIELD1 
 
894
    1392 PUSHACC3 
 
895
    1393 PUSHOFFSETCLOSURE0 
 
896
    1394 APPLY3 
 
897
    1395 PUSHACC1 
 
898
    1396 MAKEBLOCK2 0
 
899
    1398 RETURN 4
 
900
    1400 ACC2 
 
901
    1401 BRANCHIFNOT 1405
 
902
    1403 BRANCH 1407
 
903
    1405 RETURN 3
 
904
    1407 GETGLOBAL "List.map2"
 
905
    1409 PUSHGETGLOBALFIELD Pervasives, 2
 
906
    1412 APPTERM1 4
 
907
    1414 RESTART 
 
908
    1415 GRAB 2
 
909
    1417 ACC1 
 
910
    1418 BRANCHIFNOT 1437
 
911
    1420 ACC2 
 
912
    1421 BRANCHIFNOT 1444
 
913
    1423 ACC2 
 
914
    1424 GETFIELD0 
 
915
    1425 PUSHACC2 
 
916
    1426 GETFIELD0 
 
917
    1427 PUSHACC2 
 
918
    1428 APPLY2 
 
919
    1429 ACC2 
 
920
    1430 GETFIELD1 
 
921
    1431 PUSHACC2 
 
922
    1432 GETFIELD1 
 
923
    1433 PUSHACC2 
 
924
    1434 PUSHOFFSETCLOSURE0 
 
925
    1435 APPTERM3 6
 
926
    1437 ACC2 
 
927
    1438 BRANCHIFNOT 1442
 
928
    1440 BRANCH 1444
 
929
    1442 RETURN 3
 
930
    1444 GETGLOBAL "List.iter2"
 
931
    1446 PUSHGETGLOBALFIELD Pervasives, 2
 
932
    1449 APPTERM1 4
 
933
    1451 RESTART 
 
934
    1452 GRAB 3
 
935
    1454 ACC2 
 
936
    1455 BRANCHIFNOT 1476
 
937
    1457 ACC3 
 
938
    1458 BRANCHIFNOT 1482
 
939
    1460 ACC3 
 
940
    1461 GETFIELD1 
 
941
    1462 PUSHACC3 
 
942
    1463 GETFIELD1 
 
943
    1464 PUSHACC5 
 
944
    1465 GETFIELD0 
 
945
    1466 PUSHACC5 
 
946
    1467 GETFIELD0 
 
947
    1468 PUSHACC5 
 
948
    1469 PUSHACC5 
 
949
    1470 APPLY3 
 
950
    1471 PUSHACC3 
 
951
    1472 PUSHOFFSETCLOSURE0 
 
952
    1473 APPTERM 4, 8
 
953
    1476 ACC3 
 
954
    1477 BRANCHIF 1482
 
955
    1479 ACC1 
 
956
    1480 RETURN 4
 
957
    1482 GETGLOBAL "List.fold_left2"
 
958
    1484 PUSHGETGLOBALFIELD Pervasives, 2
 
959
    1487 APPTERM1 5
 
960
    1489 RESTART 
 
961
    1490 GRAB 3
 
962
    1492 ACC1 
 
963
    1493 BRANCHIFNOT 1516
 
964
    1495 ACC2 
 
965
    1496 BRANCHIFNOT 1522
 
966
    1498 PUSH_RETADDR 1509
 
967
    1500 ACC6 
 
968
    1501 PUSHACC6 
 
969
    1502 GETFIELD1 
 
970
    1503 PUSHACC6 
 
971
    1504 GETFIELD1 
 
972
    1505 PUSHACC6 
 
973
    1506 PUSHOFFSETCLOSURE0 
 
974
    1507 APPLY 4
 
975
    1509 PUSHACC3 
 
976
    1510 GETFIELD0 
 
977
    1511 PUSHACC3 
 
978
    1512 GETFIELD0 
 
979
    1513 PUSHACC3 
 
980
    1514 APPTERM3 7
 
981
    1516 ACC2 
 
982
    1517 BRANCHIF 1522
 
983
    1519 ACC3 
 
984
    1520 RETURN 4
 
985
    1522 GETGLOBAL "List.fold_right2"
 
986
    1524 PUSHGETGLOBALFIELD Pervasives, 2
 
987
    1527 APPTERM1 5
 
988
    1529 RESTART 
 
989
    1530 GRAB 1
 
990
    1532 ACC1 
 
991
    1533 BRANCHIFNOT 1549
 
992
    1535 ACC1 
 
993
    1536 GETFIELD0 
 
994
    1537 PUSHACC1 
 
995
    1538 APPLY1 
 
996
    1539 BRANCHIFNOT 1547
 
997
    1541 ACC1 
 
998
    1542 GETFIELD1 
 
999
    1543 PUSHACC1 
 
1000
    1544 PUSHOFFSETCLOSURE0 
 
1001
    1545 APPTERM2 4
 
1002
    1547 RETURN 2
 
1003
    1549 CONST1 
 
1004
    1550 RETURN 2
 
1005
    1552 RESTART 
 
1006
    1553 GRAB 1
 
1007
    1555 ACC1 
 
1008
    1556 BRANCHIFNOT 1570
 
1009
    1558 ACC1 
 
1010
    1559 GETFIELD0 
 
1011
    1560 PUSHACC1 
 
1012
    1561 APPLY1 
 
1013
    1562 BRANCHIF 1570
 
1014
    1564 ACC1 
 
1015
    1565 GETFIELD1 
 
1016
    1566 PUSHACC1 
 
1017
    1567 PUSHOFFSETCLOSURE0 
 
1018
    1568 APPTERM2 4
 
1019
    1570 RETURN 2
 
1020
    1572 RESTART 
 
1021
    1573 GRAB 2
 
1022
    1575 ACC1 
 
1023
    1576 BRANCHIFNOT 1599
 
1024
    1578 ACC2 
 
1025
    1579 BRANCHIFNOT 1605
 
1026
    1581 ACC2 
 
1027
    1582 GETFIELD0 
 
1028
    1583 PUSHACC2 
 
1029
    1584 GETFIELD0 
 
1030
    1585 PUSHACC2 
 
1031
    1586 APPLY2 
 
1032
    1587 BRANCHIFNOT 1597
 
1033
    1589 ACC2 
 
1034
    1590 GETFIELD1 
 
1035
    1591 PUSHACC2 
 
1036
    1592 GETFIELD1 
 
1037
    1593 PUSHACC2 
 
1038
    1594 PUSHOFFSETCLOSURE0 
 
1039
    1595 APPTERM3 6
 
1040
    1597 RETURN 3
 
1041
    1599 ACC2 
 
1042
    1600 BRANCHIF 1605
 
1043
    1602 CONST1 
 
1044
    1603 RETURN 3
 
1045
    1605 GETGLOBAL "List.for_all2"
 
1046
    1607 PUSHGETGLOBALFIELD Pervasives, 2
 
1047
    1610 APPTERM1 4
 
1048
    1612 RESTART 
 
1049
    1613 GRAB 2
 
1050
    1615 ACC1 
 
1051
    1616 BRANCHIFNOT 1639
 
1052
    1618 ACC2 
 
1053
    1619 BRANCHIFNOT 1646
 
1054
    1621 ACC2 
 
1055
    1622 GETFIELD0 
 
1056
    1623 PUSHACC2 
 
1057
    1624 GETFIELD0 
 
1058
    1625 PUSHACC2 
 
1059
    1626 APPLY2 
 
1060
    1627 BRANCHIF 1637
 
1061
    1629 ACC2 
 
1062
    1630 GETFIELD1 
 
1063
    1631 PUSHACC2 
 
1064
    1632 GETFIELD1 
 
1065
    1633 PUSHACC2 
 
1066
    1634 PUSHOFFSETCLOSURE0 
 
1067
    1635 APPTERM3 6
 
1068
    1637 RETURN 3
 
1069
    1639 ACC2 
 
1070
    1640 BRANCHIFNOT 1644
 
1071
    1642 BRANCH 1646
 
1072
    1644 RETURN 3
 
1073
    1646 GETGLOBAL "List.exists2"
 
1074
    1648 PUSHGETGLOBALFIELD Pervasives, 2
 
1075
    1651 APPTERM1 4
 
1076
    1653 RESTART 
 
1077
    1654 GRAB 1
 
1078
    1656 ACC1 
 
1079
    1657 BRANCHIFNOT 1672
 
1080
    1659 ACC0 
 
1081
    1660 PUSHACC2 
 
1082
    1661 GETFIELD0 
 
1083
    1662 C_CALL2 equal
 
1084
    1664 BRANCHIF 1672
 
1085
    1666 ACC1 
 
1086
    1667 GETFIELD1 
 
1087
    1668 PUSHACC1 
 
1088
    1669 PUSHOFFSETCLOSURE0 
 
1089
    1670 APPTERM2 4
 
1090
    1672 RETURN 2
 
1091
    1674 RESTART 
 
1092
    1675 GRAB 1
 
1093
    1677 ACC1 
 
1094
    1678 BRANCHIFNOT 1692
 
1095
    1680 ACC0 
 
1096
    1681 PUSHACC2 
 
1097
    1682 GETFIELD0 
 
1098
    1683 EQ 
 
1099
    1684 BRANCHIF 1692
 
1100
    1686 ACC1 
 
1101
    1687 GETFIELD1 
 
1102
    1688 PUSHACC1 
 
1103
    1689 PUSHOFFSETCLOSURE0 
 
1104
    1690 APPTERM2 4
 
1105
    1692 RETURN 2
 
1106
    1694 RESTART 
 
1107
    1695 GRAB 1
 
1108
    1697 ACC1 
 
1109
    1698 BRANCHIFNOT 1719
 
1110
    1700 ACC1 
 
1111
    1701 GETFIELD0 
 
1112
    1702 PUSHACC1 
 
1113
    1703 PUSHACC1 
 
1114
    1704 GETFIELD0 
 
1115
    1705 C_CALL2 equal
 
1116
    1707 BRANCHIFNOT 1713
 
1117
    1709 ACC0 
 
1118
    1710 GETFIELD1 
 
1119
    1711 RETURN 3
 
1120
    1713 ACC2 
 
1121
    1714 GETFIELD1 
 
1122
    1715 PUSHACC2 
 
1123
    1716 PUSHOFFSETCLOSURE0 
 
1124
    1717 APPTERM2 5
 
1125
    1719 GETGLOBAL Not_found
 
1126
    1721 MAKEBLOCK1 0
 
1127
    1723 RAISE 
 
1128
    1724 RESTART 
 
1129
    1725 GRAB 1
 
1130
    1727 ACC1 
 
1131
    1728 BRANCHIFNOT 1748
 
1132
    1730 ACC1 
 
1133
    1731 GETFIELD0 
 
1134
    1732 PUSHACC1 
 
1135
    1733 PUSHACC1 
 
1136
    1734 GETFIELD0 
 
1137
    1735 EQ 
 
1138
    1736 BRANCHIFNOT 1742
 
1139
    1738 ACC0 
 
1140
    1739 GETFIELD1 
 
1141
    1740 RETURN 3
 
1142
    1742 ACC2 
 
1143
    1743 GETFIELD1 
 
1144
    1744 PUSHACC2 
 
1145
    1745 PUSHOFFSETCLOSURE0 
 
1146
    1746 APPTERM2 5
 
1147
    1748 GETGLOBAL Not_found
 
1148
    1750 MAKEBLOCK1 0
 
1149
    1752 RAISE 
 
1150
    1753 RESTART 
 
1151
    1754 GRAB 1
 
1152
    1756 ACC1 
 
1153
    1757 BRANCHIFNOT 1773
 
1154
    1759 ACC0 
 
1155
    1760 PUSHACC2 
 
1156
    1761 GETFIELD0 
 
1157
    1762 GETFIELD0 
 
1158
    1763 C_CALL2 equal
 
1159
    1765 BRANCHIF 1773
 
1160
    1767 ACC1 
 
1161
    1768 GETFIELD1 
 
1162
    1769 PUSHACC1 
 
1163
    1770 PUSHOFFSETCLOSURE0 
 
1164
    1771 APPTERM2 4
 
1165
    1773 RETURN 2
 
1166
    1775 RESTART 
 
1167
    1776 GRAB 1
 
1168
    1778 ACC1 
 
1169
    1779 BRANCHIFNOT 1794
 
1170
    1781 ACC0 
 
1171
    1782 PUSHACC2 
 
1172
    1783 GETFIELD0 
 
1173
    1784 GETFIELD0 
 
1174
    1785 EQ 
 
1175
    1786 BRANCHIF 1794
 
1176
    1788 ACC1 
 
1177
    1789 GETFIELD1 
 
1178
    1790 PUSHACC1 
 
1179
    1791 PUSHOFFSETCLOSURE0 
 
1180
    1792 APPTERM2 4
 
1181
    1794 RETURN 2
 
1182
    1796 RESTART 
 
1183
    1797 GRAB 1
 
1184
    1799 ACC1 
 
1185
    1800 BRANCHIFNOT 1825
 
1186
    1802 ACC1 
 
1187
    1803 GETFIELD0 
 
1188
    1804 PUSHACC2 
 
1189
    1805 GETFIELD1 
 
1190
    1806 PUSHACC2 
 
1191
    1807 PUSHACC2 
 
1192
    1808 GETFIELD0 
 
1193
    1809 C_CALL2 equal
 
1194
    1811 BRANCHIFNOT 1816
 
1195
    1813 ACC0 
 
1196
    1814 RETURN 4
 
1197
    1816 ACC0 
 
1198
    1817 PUSHACC3 
 
1199
    1818 PUSHOFFSETCLOSURE0 
 
1200
    1819 APPLY2 
 
1201
    1820 PUSHACC2 
 
1202
    1821 MAKEBLOCK2 0
 
1203
    1823 POP 2
 
1204
    1825 RETURN 2
 
1205
    1827 RESTART 
 
1206
    1828 GRAB 1
 
1207
    1830 ACC1 
 
1208
    1831 BRANCHIFNOT 1855
 
1209
    1833 ACC1 
 
1210
    1834 GETFIELD0 
 
1211
    1835 PUSHACC2 
 
1212
    1836 GETFIELD1 
 
1213
    1837 PUSHACC2 
 
1214
    1838 PUSHACC2 
 
1215
    1839 GETFIELD0 
 
1216
    1840 EQ 
 
1217
    1841 BRANCHIFNOT 1846
 
1218
    1843 ACC0 
 
1219
    1844 RETURN 4
 
1220
    1846 ACC0 
 
1221
    1847 PUSHACC3 
 
1222
    1848 PUSHOFFSETCLOSURE0 
 
1223
    1849 APPLY2 
 
1224
    1850 PUSHACC2 
 
1225
    1851 MAKEBLOCK2 0
 
1226
    1853 POP 2
 
1227
    1855 RETURN 2
 
1228
    1857 RESTART 
 
1229
    1858 GRAB 1
 
1230
    1860 ACC1 
 
1231
    1861 BRANCHIFNOT 1879
 
1232
    1863 ACC1 
 
1233
    1864 GETFIELD0 
 
1234
    1865 PUSHACC0 
 
1235
    1866 PUSHACC2 
 
1236
    1867 APPLY1 
 
1237
    1868 BRANCHIFNOT 1873
 
1238
    1870 ACC0 
 
1239
    1871 RETURN 3
 
1240
    1873 ACC2 
 
1241
    1874 GETFIELD1 
 
1242
    1875 PUSHACC2 
 
1243
    1876 PUSHOFFSETCLOSURE0 
 
1244
    1877 APPTERM2 5
 
1245
    1879 GETGLOBAL Not_found
 
1246
    1881 MAKEBLOCK1 0
 
1247
    1883 RAISE 
 
1248
    1884 RESTART 
 
1249
    1885 GRAB 2
 
1250
    1887 ACC2 
 
1251
    1888 BRANCHIFNOT 1917
 
1252
    1890 ACC2 
 
1253
    1891 GETFIELD0 
 
1254
    1892 PUSHACC3 
 
1255
    1893 GETFIELD1 
 
1256
    1894 PUSHACC1 
 
1257
    1895 PUSHENVACC2 
 
1258
    1896 APPLY1 
 
1259
    1897 BRANCHIFNOT 1908
 
1260
    1899 ACC0 
 
1261
    1900 PUSHACC4 
 
1262
    1901 PUSHACC4 
 
1263
    1902 PUSHACC4 
 
1264
    1903 MAKEBLOCK2 0
 
1265
    1905 PUSHOFFSETCLOSURE0 
 
1266
    1906 APPTERM3 8
 
1267
    1908 ACC0 
 
1268
    1909 PUSHACC4 
 
1269
    1910 PUSHACC3 
 
1270
    1911 MAKEBLOCK2 0
 
1271
    1913 PUSHACC4 
 
1272
    1914 PUSHOFFSETCLOSURE0 
 
1273
    1915 APPTERM3 8
 
1274
    1917 ACC1 
 
1275
    1918 PUSHENVACC1 
 
1276
    1919 APPLY1 
 
1277
    1920 PUSHACC1 
 
1278
    1921 PUSHENVACC1 
 
1279
    1922 APPLY1 
 
1280
    1923 MAKEBLOCK2 0
 
1281
    1925 RETURN 3
 
1282
    1927 RESTART 
 
1283
    1928 GRAB 1
 
1284
    1930 ACC0 
 
1285
    1931 PUSHENVACC1 
 
1286
    1932 CLOSUREREC 2, 1885
 
1287
    1936 ACC2 
 
1288
    1937 PUSHCONST0 
 
1289
    1938 PUSHCONST0 
 
1290
    1939 PUSHACC3 
 
1291
    1940 APPTERM3 6
 
1292
    1942 ACC0 
 
1293
    1943 BRANCHIFNOT 1967
 
1294
    1945 ACC0 
 
1295
    1946 GETFIELD0 
 
1296
    1947 PUSHACC1 
 
1297
    1948 GETFIELD1 
 
1298
    1949 PUSHOFFSETCLOSURE0 
 
1299
    1950 APPLY1 
 
1300
    1951 PUSHACC0 
 
1301
    1952 GETFIELD1 
 
1302
    1953 PUSHACC2 
 
1303
    1954 GETFIELD1 
 
1304
    1955 MAKEBLOCK2 0
 
1305
    1957 PUSHACC1 
 
1306
    1958 GETFIELD0 
 
1307
    1959 PUSHACC3 
 
1308
    1960 GETFIELD0 
 
1309
    1961 MAKEBLOCK2 0
 
1310
    1963 MAKEBLOCK2 0
 
1311
    1965 RETURN 3
 
1312
    1967 GETGLOBAL <0>(0, 0)
 
1313
    1969 RETURN 1
 
1314
    1971 RESTART 
 
1315
    1972 GRAB 1
 
1316
    1974 ACC0 
 
1317
    1975 BRANCHIFNOT 1996
 
1318
    1977 ACC1 
 
1319
    1978 BRANCHIFNOT 2003
 
1320
    1980 ACC1 
 
1321
    1981 GETFIELD1 
 
1322
    1982 PUSHACC1 
 
1323
    1983 GETFIELD1 
 
1324
    1984 PUSHOFFSETCLOSURE0 
 
1325
    1985 APPLY2 
 
1326
    1986 PUSHACC2 
 
1327
    1987 GETFIELD0 
 
1328
    1988 PUSHACC2 
 
1329
    1989 GETFIELD0 
 
1330
    1990 MAKEBLOCK2 0
 
1331
    1992 MAKEBLOCK2 0
 
1332
    1994 RETURN 2
 
1333
    1996 ACC1 
 
1334
    1997 BRANCHIFNOT 2001
 
1335
    1999 BRANCH 2003
 
1336
    2001 RETURN 2
 
1337
    2003 GETGLOBAL "List.combine"
 
1338
    2005 PUSHGETGLOBALFIELD Pervasives, 2
 
1339
    2008 APPTERM1 3
 
1340
    2010 RESTART 
 
1341
    2011 GRAB 1
 
1342
    2013 ACC1 
 
1343
    2014 BRANCHIFNOT 2038
 
1344
    2016 ACC1 
 
1345
    2017 GETFIELD0 
 
1346
    2018 PUSHACC2 
 
1347
    2019 GETFIELD1 
 
1348
    2020 PUSHACC1 
 
1349
    2021 PUSHENVACC2 
 
1350
    2022 APPLY1 
 
1351
    2023 BRANCHIFNOT 2033
 
1352
    2025 ACC0 
 
1353
    2026 PUSHACC3 
 
1354
    2027 PUSHACC3 
 
1355
    2028 MAKEBLOCK2 0
 
1356
    2030 PUSHOFFSETCLOSURE0 
 
1357
    2031 APPTERM2 6
 
1358
    2033 ACC0 
 
1359
    2034 PUSHACC3 
 
1360
    2035 PUSHOFFSETCLOSURE0 
 
1361
    2036 APPTERM2 6
 
1362
    2038 ACC0 
 
1363
    2039 PUSHENVACC1 
 
1364
    2040 APPTERM1 3
 
1365
    2042 ACC0 
 
1366
    2043 PUSHENVACC1 
 
1367
    2044 CLOSUREREC 2, 2011
 
1368
    2048 CONST0 
 
1369
    2049 PUSHACC1 
 
1370
    2050 APPTERM1 3
 
1371
    2052 RESTART 
 
1372
    2053 GRAB 2
 
1373
    2055 ACC1 
 
1374
    2056 BRANCHIFNOT 2077
 
1375
    2058 ACC2 
 
1376
    2059 BRANCHIFNOT 2084
 
1377
    2061 ACC2 
 
1378
    2062 GETFIELD1 
 
1379
    2063 PUSHACC2 
 
1380
    2064 GETFIELD1 
 
1381
    2065 PUSHACC2 
 
1382
    2066 PUSHACC5 
 
1383
    2067 GETFIELD0 
 
1384
    2068 PUSHACC5 
 
1385
    2069 GETFIELD0 
 
1386
    2070 PUSHENVACC1 
 
1387
    2071 APPLY2 
 
1388
    2072 MAKEBLOCK2 0
 
1389
    2074 PUSHOFFSETCLOSURE0 
 
1390
    2075 APPTERM3 6
 
1391
    2077 ACC2 
 
1392
    2078 BRANCHIFNOT 2082
 
1393
    2080 BRANCH 2084
 
1394
    2082 RETURN 3
 
1395
    2084 GETGLOBAL "List.rev_map2"
 
1396
    2086 PUSHGETGLOBALFIELD Pervasives, 2
 
1397
    2089 APPTERM1 4
 
1398
    2091 RESTART 
 
1399
    2092 GRAB 2
 
1400
    2094 ACC0 
 
1401
    2095 CLOSUREREC 1, 2053
 
1402
    2099 ACC3 
 
1403
    2100 PUSHACC3 
 
1404
    2101 PUSHCONST0 
 
1405
    2102 PUSHACC3 
 
1406
    2103 APPTERM3 7
 
1407
    2105 RESTART 
 
1408
    2106 GRAB 1
 
1409
    2108 ACC1 
 
1410
    2109 BRANCHIFNOT 2123
 
1411
    2111 ACC1 
 
1412
    2112 GETFIELD1 
 
1413
    2113 PUSHACC1 
 
1414
    2114 PUSHACC3 
 
1415
    2115 GETFIELD0 
 
1416
    2116 PUSHENVACC1 
 
1417
    2117 APPLY1 
 
1418
    2118 MAKEBLOCK2 0
 
1419
    2120 PUSHOFFSETCLOSURE0 
 
1420
    2121 APPTERM2 4
 
1421
    2123 ACC0 
 
1422
    2124 RETURN 2
 
1423
    2126 RESTART 
 
1424
    2127 GRAB 1
 
1425
    2129 ACC0 
 
1426
    2130 CLOSUREREC 1, 2106
 
1427
    2134 ACC2 
 
1428
    2135 PUSHCONST0 
 
1429
    2136 PUSHACC2 
 
1430
    2137 APPTERM2 5
 
1431
    2139 CONST0 
 
1432
    2140 PUSHACC1 
 
1433
    2141 PUSHENVACC1 
 
1434
    2142 APPTERM2 3
 
1435
    2144 ACC0 
 
1436
    2145 BRANCHIFNOT 2151
 
1437
    2147 ACC0 
 
1438
    2148 GETFIELD1 
 
1439
    2149 RETURN 1
 
1440
    2151 GETGLOBAL "tl"
 
1441
    2153 PUSHGETGLOBALFIELD Pervasives, 3
 
1442
    2156 APPTERM1 2
 
1443
    2158 ACC0 
 
1444
    2159 BRANCHIFNOT 2165
 
1445
    2161 ACC0 
 
1446
    2162 GETFIELD0 
 
1447
    2163 RETURN 1
 
1448
    2165 GETGLOBAL "hd"
 
1449
    2167 PUSHGETGLOBALFIELD Pervasives, 3
 
1450
    2170 APPTERM1 2
 
1451
    2172 ACC0 
 
1452
    2173 PUSHCONST0 
 
1453
    2174 PUSHENVACC1 
 
1454
    2175 APPTERM2 3
 
1455
    2177 CLOSUREREC 0, 1200
 
1456
    2181 ACC0 
 
1457
    2182 CLOSURE 1, 2172
 
1458
    2185 PUSH 
 
1459
    2186 CLOSURE 0, 2158
 
1460
    2189 PUSH 
 
1461
    2190 CLOSURE 0, 2144
 
1462
    2193 PUSH 
 
1463
    2194 CLOSUREREC 0, 1217
 
1464
    2198 GETGLOBALFIELD Pervasives, 16
 
1465
    2201 PUSH 
 
1466
    2202 CLOSUREREC 0, 1259
 
1467
    2206 ACC0 
 
1468
    2207 CLOSURE 1, 2139
 
1469
    2210 PUSH 
 
1470
    2211 CLOSUREREC 0, 1277
 
1471
    2215 CLOSUREREC 0, 1294
 
1472
    2219 CLOSURE 0, 2127
 
1473
    2222 PUSH 
 
1474
    2223 CLOSUREREC 0, 1316
 
1475
    2227 CLOSUREREC 0, 1334
 
1476
    2231 CLOSUREREC 0, 1354
 
1477
    2235 CLOSUREREC 0, 1374
 
1478
    2239 CLOSURE 0, 2092
 
1479
    2242 PUSH 
 
1480
    2243 CLOSUREREC 0, 1415
 
1481
    2247 CLOSUREREC 0, 1452
 
1482
    2251 CLOSUREREC 0, 1490
 
1483
    2255 CLOSUREREC 0, 1530
 
1484
    2259 CLOSUREREC 0, 1553
 
1485
    2263 CLOSUREREC 0, 1573
 
1486
    2267 CLOSUREREC 0, 1613
 
1487
    2271 CLOSUREREC 0, 1654
 
1488
    2275 CLOSUREREC 0, 1675
 
1489
    2279 CLOSUREREC 0, 1695
 
1490
    2283 CLOSUREREC 0, 1725
 
1491
    2287 CLOSUREREC 0, 1754
 
1492
    2291 CLOSUREREC 0, 1776
 
1493
    2295 CLOSUREREC 0, 1797
 
1494
    2299 CLOSUREREC 0, 1828
 
1495
    2303 CLOSUREREC 0, 1858
 
1496
    2307 ACC 24
 
1497
    2309 CLOSURE 1, 2042
 
1498
    2312 PUSHACC 25
 
1499
    2314 CLOSUREREC 1, 1928
 
1500
    2318 CLOSUREREC 0, 1942
 
1501
    2322 CLOSUREREC 0, 1972
 
1502
    2326 ACC0 
 
1503
    2327 PUSHACC2 
 
1504
    2328 PUSHACC7 
 
1505
    2329 PUSHACC 9
 
1506
    2331 PUSHACC 11
 
1507
    2333 PUSHACC 13
 
1508
    2335 PUSHACC 15
 
1509
    2337 PUSHACC 17
 
1510
    2339 PUSHACC 10
 
1511
    2341 PUSHACC 12
 
1512
    2343 PUSHACC 13
 
1513
    2345 PUSHACC 15
 
1514
    2347 PUSHACC 23
 
1515
    2349 PUSHACC 25
 
1516
    2351 PUSHACC 27
 
1517
    2353 PUSHACC 29
 
1518
    2355 PUSHACC 31
 
1519
    2357 PUSHACC 33
 
1520
    2359 PUSHACC 35
 
1521
    2361 PUSHACC 37
 
1522
    2363 PUSHACC 40
 
1523
    2365 PUSHACC 42
 
1524
    2367 PUSHACC 41
 
1525
    2369 PUSHACC 45
 
1526
    2371 PUSHACC 47
 
1527
    2373 PUSHACC 50
 
1528
    2375 PUSHACC 52
 
1529
    2377 PUSHACC 51
 
1530
    2379 PUSHACC 55
 
1531
    2381 PUSHACC 56
 
1532
    2383 PUSHACC 59
 
1533
    2385 PUSHACC 61
 
1534
    2387 PUSHACC 60
 
1535
    2389 PUSHACC 64
 
1536
    2391 PUSHACC 66
 
1537
    2393 PUSHACC 68
 
1538
    2395 PUSHACC 70
 
1539
    2397 MAKEBLOCK 37, 0
 
1540
    2400 POP 36
 
1541
    2402 SETGLOBAL List
 
1542
    2404 BRANCH 3341
 
1543
    2406 RESTART 
 
1544
    2407 GRAB 2
 
1545
    2409 ACC2 
 
1546
    2410 PUSHACC2 
 
1547
    2411 VECTLENGTH 
 
1548
    2412 OFFSETINT -1
 
1549
    2414 PUSHCONST0 
 
1550
    2415 PUSH 
 
1551
    2416 BRANCH 2433
 
1552
    2418 CHECK_SIGNALS 
 
1553
    2419 ACC2 
 
1554
    2420 PUSHACC2 
 
1555
    2421 PUSHACC6 
 
1556
    2422 C_CALL2 array_unsafe_get
 
1557
    2424 PUSHACC5 
 
1558
    2425 APPLY2 
 
1559
    2426 ASSIGN 2
 
1560
    2428 ACC1 
 
1561
    2429 OFFSETINT -1
 
1562
    2431 ASSIGN 1
 
1563
    2433 ACC0 
 
1564
    2434 PUSHACC2 
 
1565
    2435 GEINT 
 
1566
    2436 BRANCHIF 2418
 
1567
    2438 CONST0 
 
1568
    2439 POP 2
 
1569
    2441 ACC0 
 
1570
    2442 RETURN 4
 
1571
    2444 RESTART 
 
1572
    2445 GRAB 2
 
1573
    2447 ACC1 
 
1574
    2448 PUSHCONST0 
 
1575
    2449 PUSHACC4 
 
1576
    2450 VECTLENGTH 
 
1577
    2451 OFFSETINT -1
 
1578
    2453 PUSH 
 
1579
    2454 BRANCH 2471
 
1580
    2456 CHECK_SIGNALS 
 
1581
    2457 ACC1 
 
1582
    2458 PUSHACC6 
 
1583
    2459 C_CALL2 array_unsafe_get
 
1584
    2461 PUSHACC3 
 
1585
    2462 PUSHACC5 
 
1586
    2463 APPLY2 
 
1587
    2464 ASSIGN 2
 
1588
    2466 ACC1 
 
1589
    2467 OFFSETINT 1
 
1590
    2469 ASSIGN 1
 
1591
    2471 ACC0 
 
1592
    2472 PUSHACC2 
 
1593
    2473 LEINT 
 
1594
    2474 BRANCHIF 2456
 
1595
    2476 CONST0 
 
1596
    2477 POP 2
 
1597
    2479 ACC0 
 
1598
    2480 RETURN 4
 
1599
    2482 RESTART 
 
1600
    2483 GRAB 1
 
1601
    2485 ACC1 
 
1602
    2486 BRANCHIFNOT 2502
 
1603
    2488 ACC1 
 
1604
    2489 GETFIELD0 
 
1605
    2490 PUSHACC1 
 
1606
    2491 PUSHENVACC1 
 
1607
    2492 C_CALL3 array_unsafe_set
 
1608
    2494 ACC1 
 
1609
    2495 GETFIELD1 
 
1610
    2496 PUSHACC1 
 
1611
    2497 OFFSETINT 1
 
1612
    2499 PUSHOFFSETCLOSURE0 
 
1613
    2500 APPTERM2 4
 
1614
    2502 ENVACC1 
 
1615
    2503 RETURN 2
 
1616
    2505 ACC0 
 
1617
    2506 BRANCHIFNOT 2531
 
1618
    2508 ACC0 
 
1619
    2509 GETFIELD1 
 
1620
    2510 PUSHACC1 
 
1621
    2511 GETFIELD0 
 
1622
    2512 PUSHACC1 
 
1623
    2513 PUSHGETGLOBALFIELD List, 0
 
1624
    2516 APPLY1 
 
1625
    2517 OFFSETINT 1
 
1626
    2519 C_CALL2 make_vect
 
1627
    2521 PUSHACC0 
 
1628
    2522 CLOSUREREC 1, 2483
 
1629
    2526 ACC2 
 
1630
    2527 PUSHCONST1 
 
1631
    2528 PUSHACC2 
 
1632
    2529 APPTERM2 6
 
1633
    2531 ATOM0 
 
1634
    2532 RETURN 1
 
1635
    2534 RESTART 
 
1636
    2535 GRAB 1
 
1637
    2537 CONST0 
 
1638
    2538 PUSHACC1 
 
1639
    2539 LTINT 
 
1640
    2540 BRANCHIFNOT 2545
 
1641
    2542 ACC1 
 
1642
    2543 RETURN 2
 
1643
    2545 ACC1 
 
1644
    2546 PUSHACC1 
 
1645
    2547 PUSHENVACC1 
 
1646
    2548 C_CALL2 array_unsafe_get
 
1647
    2550 MAKEBLOCK2 0
 
1648
    2552 PUSHACC1 
 
1649
    2553 OFFSETINT -1
 
1650
    2555 PUSHOFFSETCLOSURE0 
 
1651
    2556 APPTERM2 4
 
1652
    2558 ACC0 
 
1653
    2559 CLOSUREREC 1, 2535
 
1654
    2563 CONST0 
 
1655
    2564 PUSHACC2 
 
1656
    2565 VECTLENGTH 
 
1657
    2566 OFFSETINT -1
 
1658
    2568 PUSHACC2 
 
1659
    2569 APPTERM2 4
 
1660
    2571 RESTART 
 
1661
    2572 GRAB 1
 
1662
    2574 ACC1 
 
1663
    2575 VECTLENGTH 
 
1664
    2576 PUSHCONST0 
 
1665
    2577 PUSHACC1 
 
1666
    2578 EQ 
 
1667
    2579 BRANCHIFNOT 2584
 
1668
    2581 ATOM0 
 
1669
    2582 RETURN 3
 
1670
    2584 CONST0 
 
1671
    2585 PUSHACC3 
 
1672
    2586 C_CALL2 array_unsafe_get
 
1673
    2588 PUSHCONST0 
 
1674
    2589 PUSHACC3 
 
1675
    2590 APPLY2 
 
1676
    2591 PUSHACC1 
 
1677
    2592 C_CALL2 make_vect
 
1678
    2594 PUSHCONST1 
 
1679
    2595 PUSHACC2 
 
1680
    2596 OFFSETINT -1
 
1681
    2598 PUSH 
 
1682
    2599 BRANCH 2618
 
1683
    2601 CHECK_SIGNALS 
 
1684
    2602 ACC1 
 
1685
    2603 PUSHACC6 
 
1686
    2604 C_CALL2 array_unsafe_get
 
1687
    2606 PUSHACC2 
 
1688
    2607 PUSHACC6 
 
1689
    2608 APPLY2 
 
1690
    2609 PUSHACC2 
 
1691
    2610 PUSHACC4 
 
1692
    2611 C_CALL3 array_unsafe_set
 
1693
    2613 ACC1 
 
1694
    2614 OFFSETINT 1
 
1695
    2616 ASSIGN 1
 
1696
    2618 ACC0 
 
1697
    2619 PUSHACC2 
 
1698
    2620 LEINT 
 
1699
    2621 BRANCHIF 2601
 
1700
    2623 CONST0 
 
1701
    2624 POP 2
 
1702
    2626 ACC0 
 
1703
    2627 RETURN 4
 
1704
    2629 RESTART 
 
1705
    2630 GRAB 1
 
1706
    2632 CONST0 
 
1707
    2633 PUSHACC2 
 
1708
    2634 VECTLENGTH 
 
1709
    2635 OFFSETINT -1
 
1710
    2637 PUSH 
 
1711
    2638 BRANCH 2653
 
1712
    2640 CHECK_SIGNALS 
 
1713
    2641 ACC1 
 
1714
    2642 PUSHACC4 
 
1715
    2643 C_CALL2 array_unsafe_get
 
1716
    2645 PUSHACC2 
 
1717
    2646 PUSHACC4 
 
1718
    2647 APPLY2 
 
1719
    2648 ACC1 
 
1720
    2649 OFFSETINT 1
 
1721
    2651 ASSIGN 1
 
1722
    2653 ACC0 
 
1723
    2654 PUSHACC2 
 
1724
    2655 LEINT 
 
1725
    2656 BRANCHIF 2640
 
1726
    2658 CONST0 
 
1727
    2659 RETURN 4
 
1728
    2661 RESTART 
 
1729
    2662 GRAB 1
 
1730
    2664 ACC1 
 
1731
    2665 VECTLENGTH 
 
1732
    2666 PUSHCONST0 
 
1733
    2667 PUSHACC1 
 
1734
    2668 EQ 
 
1735
    2669 BRANCHIFNOT 2674
 
1736
    2671 ATOM0 
 
1737
    2672 RETURN 3
 
1738
    2674 CONST0 
 
1739
    2675 PUSHACC3 
 
1740
    2676 C_CALL2 array_unsafe_get
 
1741
    2678 PUSHACC2 
 
1742
    2679 APPLY1 
 
1743
    2680 PUSHACC1 
 
1744
    2681 C_CALL2 make_vect
 
1745
    2683 PUSHCONST1 
 
1746
    2684 PUSHACC2 
 
1747
    2685 OFFSETINT -1
 
1748
    2687 PUSH 
 
1749
    2688 BRANCH 2706
 
1750
    2690 CHECK_SIGNALS 
 
1751
    2691 ACC1 
 
1752
    2692 PUSHACC6 
 
1753
    2693 C_CALL2 array_unsafe_get
 
1754
    2695 PUSHACC5 
 
1755
    2696 APPLY1 
 
1756
    2697 PUSHACC2 
 
1757
    2698 PUSHACC4 
 
1758
    2699 C_CALL3 array_unsafe_set
 
1759
    2701 ACC1 
 
1760
    2702 OFFSETINT 1
 
1761
    2704 ASSIGN 1
 
1762
    2706 ACC0 
 
1763
    2707 PUSHACC2 
 
1764
    2708 LEINT 
 
1765
    2709 BRANCHIF 2690
 
1766
    2711 CONST0 
 
1767
    2712 POP 2
 
1768
    2714 ACC0 
 
1769
    2715 RETURN 4
 
1770
    2717 RESTART 
 
1771
    2718 GRAB 1
 
1772
    2720 CONST0 
 
1773
    2721 PUSHACC2 
 
1774
    2722 VECTLENGTH 
 
1775
    2723 OFFSETINT -1
 
1776
    2725 PUSH 
 
1777
    2726 BRANCH 2740
 
1778
    2728 CHECK_SIGNALS 
 
1779
    2729 ACC1 
 
1780
    2730 PUSHACC4 
 
1781
    2731 C_CALL2 array_unsafe_get
 
1782
    2733 PUSHACC3 
 
1783
    2734 APPLY1 
 
1784
    2735 ACC1 
 
1785
    2736 OFFSETINT 1
 
1786
    2738 ASSIGN 1
 
1787
    2740 ACC0 
 
1788
    2741 PUSHACC2 
 
1789
    2742 LEINT 
 
1790
    2743 BRANCHIF 2728
 
1791
    2745 CONST0 
 
1792
    2746 RETURN 4
 
1793
    2748 RESTART 
 
1794
    2749 GRAB 4
 
1795
    2751 CONST0 
 
1796
    2752 PUSHACC5 
 
1797
    2753 LTINT 
 
1798
    2754 BRANCHIF 2782
 
1799
    2756 CONST0 
 
1800
    2757 PUSHACC2 
 
1801
    2758 LTINT 
 
1802
    2759 BRANCHIF 2782
 
1803
    2761 ACC0 
 
1804
    2762 VECTLENGTH 
 
1805
    2763 PUSHACC5 
 
1806
    2764 PUSHACC3 
 
1807
    2765 ADDINT 
 
1808
    2766 GTINT 
 
1809
    2767 BRANCHIF 2782
 
1810
    2769 CONST0 
 
1811
    2770 PUSHACC4 
 
1812
    2771 LTINT 
 
1813
    2772 BRANCHIF 2782
 
1814
    2774 ACC2 
 
1815
    2775 VECTLENGTH 
 
1816
    2776 PUSHACC5 
 
1817
    2777 PUSHACC5 
 
1818
    2778 ADDINT 
 
1819
    2779 GTINT 
 
1820
    2780 BRANCHIFNOT 2789
 
1821
    2782 GETGLOBAL "Array.blit"
 
1822
    2784 PUSHGETGLOBALFIELD Pervasives, 2
 
1823
    2787 APPTERM1 6
 
1824
    2789 ACC3 
 
1825
    2790 PUSHACC2 
 
1826
    2791 LTINT 
 
1827
    2792 BRANCHIFNOT 2827
 
1828
    2794 ACC4 
 
1829
    2795 OFFSETINT -1
 
1830
    2797 PUSHCONST0 
 
1831
    2798 PUSH 
 
1832
    2799 BRANCH 2819
 
1833
    2801 CHECK_SIGNALS 
 
1834
    2802 ACC1 
 
1835
    2803 PUSHACC4 
 
1836
    2804 ADDINT 
 
1837
    2805 PUSHACC3 
 
1838
    2806 C_CALL2 array_unsafe_get
 
1839
    2808 PUSHACC2 
 
1840
    2809 PUSHACC7 
 
1841
    2810 ADDINT 
 
1842
    2811 PUSHACC6 
 
1843
    2812 C_CALL3 array_unsafe_set
 
1844
    2814 ACC1 
 
1845
    2815 OFFSETINT -1
 
1846
    2817 ASSIGN 1
 
1847
    2819 ACC0 
 
1848
    2820 PUSHACC2 
 
1849
    2821 GEINT 
 
1850
    2822 BRANCHIF 2801
 
1851
    2824 CONST0 
 
1852
    2825 RETURN 7
 
1853
    2827 CONST0 
 
1854
    2828 PUSHACC5 
 
1855
    2829 OFFSETINT -1
 
1856
    2831 PUSH 
 
1857
    2832 BRANCH 2852
 
1858
    2834 CHECK_SIGNALS 
 
1859
    2835 ACC1 
 
1860
    2836 PUSHACC4 
 
1861
    2837 ADDINT 
 
1862
    2838 PUSHACC3 
 
1863
    2839 C_CALL2 array_unsafe_get
 
1864
    2841 PUSHACC2 
 
1865
    2842 PUSHACC7 
 
1866
    2843 ADDINT 
 
1867
    2844 PUSHACC6 
 
1868
    2845 C_CALL3 array_unsafe_set
 
1869
    2847 ACC1 
 
1870
    2848 OFFSETINT 1
 
1871
    2850 ASSIGN 1
 
1872
    2852 ACC0 
 
1873
    2853 PUSHACC2 
 
1874
    2854 LEINT 
 
1875
    2855 BRANCHIF 2834
 
1876
    2857 CONST0 
 
1877
    2858 RETURN 7
 
1878
    2860 RESTART 
 
1879
    2861 GRAB 3
 
1880
    2863 CONST0 
 
1881
    2864 PUSHACC2 
 
1882
    2865 LTINT 
 
1883
    2866 BRANCHIF 2881
 
1884
    2868 CONST0 
 
1885
    2869 PUSHACC3 
 
1886
    2870 LTINT 
 
1887
    2871 BRANCHIF 2881
 
1888
    2873 ACC0 
 
1889
    2874 VECTLENGTH 
 
1890
    2875 PUSHACC3 
 
1891
    2876 PUSHACC3 
 
1892
    2877 ADDINT 
 
1893
    2878 GTINT 
 
1894
    2879 BRANCHIFNOT 2888
 
1895
    2881 GETGLOBAL "Array.fill"
 
1896
    2883 PUSHGETGLOBALFIELD Pervasives, 2
 
1897
    2886 APPTERM1 5
 
1898
    2888 ACC1 
 
1899
    2889 PUSHACC3 
 
1900
    2890 PUSHACC3 
 
1901
    2891 ADDINT 
 
1902
    2892 OFFSETINT -1
 
1903
    2894 PUSH 
 
1904
    2895 BRANCH 2908
 
1905
    2897 CHECK_SIGNALS 
 
1906
    2898 ACC5 
 
1907
    2899 PUSHACC2 
 
1908
    2900 PUSHACC4 
 
1909
    2901 C_CALL3 array_unsafe_set
 
1910
    2903 ACC1 
 
1911
    2904 OFFSETINT 1
 
1912
    2906 ASSIGN 1
 
1913
    2908 ACC0 
 
1914
    2909 PUSHACC2 
 
1915
    2910 LEINT 
 
1916
    2911 BRANCHIF 2897
 
1917
    2913 CONST0 
 
1918
    2914 RETURN 6
 
1919
    2916 RESTART 
 
1920
    2917 GRAB 2
 
1921
    2919 CONST0 
 
1922
    2920 PUSHACC2 
 
1923
    2921 LTINT 
 
1924
    2922 BRANCHIF 2937
 
1925
    2924 CONST0 
 
1926
    2925 PUSHACC3 
 
1927
    2926 LTINT 
 
1928
    2927 BRANCHIF 2937
 
1929
    2929 ACC0 
 
1930
    2930 VECTLENGTH 
 
1931
    2931 PUSHACC3 
 
1932
    2932 PUSHACC3 
 
1933
    2933 ADDINT 
 
1934
    2934 GTINT 
 
1935
    2935 BRANCHIFNOT 2944
 
1936
    2937 GETGLOBAL "Array.sub"
 
1937
    2939 PUSHGETGLOBALFIELD Pervasives, 2
 
1938
    2942 APPTERM1 4
 
1939
    2944 CONST0 
 
1940
    2945 PUSHACC3 
 
1941
    2946 EQ 
 
1942
    2947 BRANCHIFNOT 2952
 
1943
    2949 ATOM0 
 
1944
    2950 RETURN 3
 
1945
    2952 ACC1 
 
1946
    2953 PUSHACC1 
 
1947
    2954 C_CALL2 array_unsafe_get
 
1948
    2956 PUSHACC3 
 
1949
    2957 C_CALL2 make_vect
 
1950
    2959 PUSHCONST1 
 
1951
    2960 PUSHACC4 
 
1952
    2961 OFFSETINT -1
 
1953
    2963 PUSH 
 
1954
    2964 BRANCH 2982
 
1955
    2966 CHECK_SIGNALS 
 
1956
    2967 ACC1 
 
1957
    2968 PUSHACC5 
 
1958
    2969 ADDINT 
 
1959
    2970 PUSHACC4 
 
1960
    2971 C_CALL2 array_unsafe_get
 
1961
    2973 PUSHACC2 
 
1962
    2974 PUSHACC4 
 
1963
    2975 C_CALL3 array_unsafe_set
 
1964
    2977 ACC1 
 
1965
    2978 OFFSETINT 1
 
1966
    2980 ASSIGN 1
 
1967
    2982 ACC0 
 
1968
    2983 PUSHACC2 
 
1969
    2984 LEINT 
 
1970
    2985 BRANCHIF 2966
 
1971
    2987 CONST0 
 
1972
    2988 POP 2
 
1973
    2990 ACC0 
 
1974
    2991 RETURN 4
 
1975
    2993 ACC0 
 
1976
    2994 BRANCHIFNOT 3017
 
1977
    2996 ACC0 
 
1978
    2997 GETFIELD0 
 
1979
    2998 PUSHCONST0 
 
1980
    2999 PUSHACC1 
 
1981
    3000 VECTLENGTH 
 
1982
    3001 GTINT 
 
1983
    3002 BRANCHIFNOT 3012
 
1984
    3004 ENVACC2 
 
1985
    3005 PUSHCONST0 
 
1986
    3006 PUSHACC2 
 
1987
    3007 C_CALL2 array_unsafe_get
 
1988
    3009 PUSHENVACC1 
 
1989
    3010 APPTERM2 4
 
1990
    3012 ACC1 
 
1991
    3013 GETFIELD1 
 
1992
    3014 PUSHOFFSETCLOSURE0 
 
1993
    3015 APPTERM1 3
 
1994
    3017 ATOM0 
 
1995
    3018 RETURN 1
 
1996
    3020 ACC0 
 
1997
    3021 PUSHENVACC1 
 
1998
    3022 CLOSUREREC 2, 2993
 
1999
    3026 ACC1 
 
2000
    3027 PUSHACC1 
 
2001
    3028 APPTERM1 3
 
2002
    3030 CONST0 
 
2003
    3031 PUSHACC1 
 
2004
    3032 VECTLENGTH 
 
2005
    3033 OFFSETINT -1
 
2006
    3035 PUSH 
 
2007
    3036 BRANCH 3056
 
2008
    3038 CHECK_SIGNALS 
 
2009
    3039 ACC1 
 
2010
    3040 PUSHACC3 
 
2011
    3041 C_CALL2 array_unsafe_get
 
2012
    3043 PUSHENVACC2 
 
2013
    3044 GETFIELD0 
 
2014
    3045 PUSHENVACC1 
 
2015
    3046 C_CALL3 array_unsafe_set
 
2016
    3048 ENVACC2 
 
2017
    3049 OFFSETREF 1
 
2018
    3051 ACC1 
 
2019
    3052 OFFSETINT 1
 
2020
    3054 ASSIGN 1
 
2021
    3056 ACC0 
 
2022
    3057 PUSHACC2 
 
2023
    3058 LEINT 
 
2024
    3059 BRANCHIF 3038
 
2025
    3061 CONST0 
 
2026
    3062 RETURN 3
 
2027
    3064 RESTART 
 
2028
    3065 GRAB 1
 
2029
    3067 ACC1 
 
2030
    3068 VECTLENGTH 
 
2031
    3069 PUSHACC1 
 
2032
    3070 ADDINT 
 
2033
    3071 RETURN 2
 
2034
    3073 RESTART 
 
2035
    3074 GRAB 1
 
2036
    3076 ACC1 
 
2037
    3077 PUSHCONST0 
 
2038
    3078 PUSH 
 
2039
    3079 CLOSURE 0, 3065
 
2040
    3082 PUSHGETGLOBALFIELD List, 12
 
2041
    3085 APPLY3 
 
2042
    3086 PUSHACC1 
 
2043
    3087 PUSHACC1 
 
2044
    3088 C_CALL2 make_vect
 
2045
    3090 PUSHCONST0 
 
2046
    3091 MAKEBLOCK1 0
 
2047
    3093 PUSHACC4 
 
2048
    3094 PUSHACC1 
 
2049
    3095 PUSHACC3 
 
2050
    3096 CLOSURE 2, 3030
 
2051
    3099 PUSHGETGLOBALFIELD List, 9
 
2052
    3102 APPLY2 
 
2053
    3103 ACC1 
 
2054
    3104 RETURN 5
 
2055
    3106 RESTART 
 
2056
    3107 GRAB 1
 
2057
    3109 ACC0 
 
2058
    3110 VECTLENGTH 
 
2059
    3111 PUSHACC2 
 
2060
    3112 VECTLENGTH 
 
2061
    3113 PUSHCONST0 
 
2062
    3114 PUSHACC2 
 
2063
    3115 EQ 
 
2064
    3116 BRANCHIFNOT 3126
 
2065
    3118 CONST0 
 
2066
    3119 PUSHACC1 
 
2067
    3120 EQ 
 
2068
    3121 BRANCHIFNOT 3126
 
2069
    3123 ATOM0 
 
2070
    3124 RETURN 4
 
2071
    3126 CONST0 
 
2072
    3127 PUSHCONST0 
 
2073
    3128 PUSHACC3 
 
2074
    3129 GTINT 
 
2075
    3130 BRANCHIFNOT 3135
 
2076
    3132 ACC3 
 
2077
    3133 BRANCH 3136
 
2078
    3135 ACC4 
 
2079
    3136 C_CALL2 array_unsafe_get
 
2080
    3138 PUSHACC1 
 
2081
    3139 PUSHACC3 
 
2082
    3140 ADDINT 
 
2083
    3141 C_CALL2 make_vect
 
2084
    3143 PUSHCONST0 
 
2085
    3144 PUSHACC3 
 
2086
    3145 OFFSETINT -1
 
2087
    3147 PUSH 
 
2088
    3148 BRANCH 3164
 
2089
    3150 CHECK_SIGNALS 
 
2090
    3151 ACC1 
 
2091
    3152 PUSHACC6 
 
2092
    3153 C_CALL2 array_unsafe_get
 
2093
    3155 PUSHACC2 
 
2094
    3156 PUSHACC4 
 
2095
    3157 C_CALL3 array_unsafe_set
 
2096
    3159 ACC1 
 
2097
    3160 OFFSETINT 1
 
2098
    3162 ASSIGN 1
 
2099
    3164 ACC0 
 
2100
    3165 PUSHACC2 
 
2101
    3166 LEINT 
 
2102
    3167 BRANCHIF 3150
 
2103
    3169 CONST0 
 
2104
    3170 POP 2
 
2105
    3172 CONST0 
 
2106
    3173 PUSHACC2 
 
2107
    3174 OFFSETINT -1
 
2108
    3176 PUSH 
 
2109
    3177 BRANCH 3195
 
2110
    3179 CHECK_SIGNALS 
 
2111
    3180 ACC1 
 
2112
    3181 PUSHACC7 
 
2113
    3182 C_CALL2 array_unsafe_get
 
2114
    3184 PUSHACC5 
 
2115
    3185 PUSHACC3 
 
2116
    3186 ADDINT 
 
2117
    3187 PUSHACC4 
 
2118
    3188 C_CALL3 array_unsafe_set
 
2119
    3190 ACC1 
 
2120
    3191 OFFSETINT 1
 
2121
    3193 ASSIGN 1
 
2122
    3195 ACC0 
 
2123
    3196 PUSHACC2 
 
2124
    3197 LEINT 
 
2125
    3198 BRANCHIF 3179
 
2126
    3200 CONST0 
 
2127
    3201 POP 2
 
2128
    3203 ACC0 
 
2129
    3204 RETURN 5
 
2130
    3206 ACC0 
 
2131
    3207 VECTLENGTH 
 
2132
    3208 PUSHCONST0 
 
2133
    3209 PUSHACC1 
 
2134
    3210 EQ 
 
2135
    3211 BRANCHIFNOT 3216
 
2136
    3213 ATOM0 
 
2137
    3214 RETURN 2
 
2138
    3216 CONST0 
 
2139
    3217 PUSHACC2 
 
2140
    3218 C_CALL2 array_unsafe_get
 
2141
    3220 PUSHACC1 
 
2142
    3221 C_CALL2 make_vect
 
2143
    3223 PUSHCONST1 
 
2144
    3224 PUSHACC2 
 
2145
    3225 OFFSETINT -1
 
2146
    3227 PUSH 
 
2147
    3228 BRANCH 3244
 
2148
    3230 CHECK_SIGNALS 
 
2149
    3231 ACC1 
 
2150
    3232 PUSHACC5 
 
2151
    3233 C_CALL2 array_unsafe_get
 
2152
    3235 PUSHACC2 
 
2153
    3236 PUSHACC4 
 
2154
    3237 C_CALL3 array_unsafe_set
 
2155
    3239 ACC1 
 
2156
    3240 OFFSETINT 1
 
2157
    3242 ASSIGN 1
 
2158
    3244 ACC0 
 
2159
    3245 PUSHACC2 
 
2160
    3246 LEINT 
 
2161
    3247 BRANCHIF 3230
 
2162
    3249 CONST0 
 
2163
    3250 POP 2
 
2164
    3252 ACC0 
 
2165
    3253 RETURN 3
 
2166
    3255 RESTART 
 
2167
    3256 GRAB 2
 
2168
    3258 ATOM0 
 
2169
    3259 PUSHACC1 
 
2170
    3260 C_CALL2 make_vect
 
2171
    3262 PUSHCONST0 
 
2172
    3263 PUSHACC2 
 
2173
    3264 OFFSETINT -1
 
2174
    3266 PUSH 
 
2175
    3267 BRANCH 3282
 
2176
    3269 CHECK_SIGNALS 
 
2177
    3270 ACC5 
 
2178
    3271 PUSHACC5 
 
2179
    3272 C_CALL2 make_vect
 
2180
    3274 PUSHACC2 
 
2181
    3275 PUSHACC4 
 
2182
    3276 SETVECTITEM 
 
2183
    3277 ACC1 
 
2184
    3278 OFFSETINT 1
 
2185
    3280 ASSIGN 1
 
2186
    3282 ACC0 
 
2187
    3283 PUSHACC2 
 
2188
    3284 LEINT 
 
2189
    3285 BRANCHIF 3269
 
2190
    3287 CONST0 
 
2191
    3288 POP 2
 
2192
    3290 ACC0 
 
2193
    3291 RETURN 4
 
2194
    3293 RESTART 
 
2195
    3294 GRAB 1
 
2196
    3296 CONST0 
 
2197
    3297 PUSHACC1 
 
2198
    3298 EQ 
 
2199
    3299 BRANCHIFNOT 3304
 
2200
    3301 ATOM0 
 
2201
    3302 RETURN 2
 
2202
    3304 CONST0 
 
2203
    3305 PUSHACC2 
 
2204
    3306 APPLY1 
 
2205
    3307 PUSHACC1 
 
2206
    3308 C_CALL2 make_vect
 
2207
    3310 PUSHCONST1 
 
2208
    3311 PUSHACC2 
 
2209
    3312 OFFSETINT -1
 
2210
    3314 PUSH 
 
2211
    3315 BRANCH 3330
 
2212
    3317 CHECK_SIGNALS 
 
2213
    3318 ACC1 
 
2214
    3319 PUSHACC5 
 
2215
    3320 APPLY1 
 
2216
    3321 PUSHACC2 
 
2217
    3322 PUSHACC4 
 
2218
    3323 C_CALL3 array_unsafe_set
 
2219
    3325 ACC1 
 
2220
    3326 OFFSETINT 1
 
2221
    3328 ASSIGN 1
 
2222
    3330 ACC0 
 
2223
    3331 PUSHACC2 
 
2224
    3332 LEINT 
 
2225
    3333 BRANCHIF 3317
 
2226
    3335 CONST0 
 
2227
    3336 POP 2
 
2228
    3338 ACC0 
 
2229
    3339 RETURN 3
 
2230
    3341 CLOSURE 0, 3294
 
2231
    3344 PUSH 
 
2232
    3345 CLOSURE 0, 3256
 
2233
    3348 PUSH 
 
2234
    3349 CLOSURE 0, 3206
 
2235
    3352 PUSH 
 
2236
    3353 CLOSURE 0, 3107
 
2237
    3356 PUSH 
 
2238
    3357 CLOSURE 0, 3074
 
2239
    3360 PUSHACC0 
 
2240
    3361 CLOSURE 1, 3020
 
2241
    3364 PUSH 
 
2242
    3365 CLOSURE 0, 2917
 
2243
    3368 PUSH 
 
2244
    3369 CLOSURE 0, 2861
 
2245
    3372 PUSH 
 
2246
    3373 CLOSURE 0, 2749
 
2247
    3376 PUSH 
 
2248
    3377 CLOSURE 0, 2718
 
2249
    3380 PUSH 
 
2250
    3381 CLOSURE 0, 2662
 
2251
    3384 PUSH 
 
2252
    3385 CLOSURE 0, 2630
 
2253
    3388 PUSH 
 
2254
    3389 CLOSURE 0, 2572
 
2255
    3392 PUSH 
 
2256
    3393 CLOSURE 0, 2558
 
2257
    3396 PUSH 
 
2258
    3397 CLOSURE 0, 2505
 
2259
    3400 PUSH 
 
2260
    3401 CLOSURE 0, 2445
 
2261
    3404 PUSH 
 
2262
    3405 CLOSURE 0, 2407
 
2263
    3408 PUSHACC0 
 
2264
    3409 PUSHACC2 
 
2265
    3410 PUSHACC6 
 
2266
    3411 PUSHACC 8
 
2267
    3413 PUSHACC 10
 
2268
    3415 PUSHACC 12
 
2269
    3417 PUSHACC 8
 
2270
    3419 PUSHACC 10
 
2271
    3421 PUSHACC 16
 
2272
    3423 PUSHACC 18
 
2273
    3425 PUSHACC 24
 
2274
    3427 PUSHACC 21
 
2275
    3429 PUSHACC 23
 
2276
    3431 PUSHACC 26
 
2277
    3433 PUSHACC 29
 
2278
    3435 PUSHACC 30
 
2279
    3437 PUSHACC 32
 
2280
    3439 MAKEBLOCK 17, 0
 
2281
    3442 POP 17
 
2282
    3444 SETGLOBAL Array
 
2283
    3446 BRANCH 3456
 
2284
    3448 ACC0 
 
2285
    3449 PUSHENVACC1 
 
2286
    3450 GETFIELD0 
 
2287
    3451 ADDINT 
 
2288
    3452 PUSHENVACC1 
 
2289
    3453 SETFIELD0 
 
2290
    3454 RETURN 1
 
2291
    3456 CONST2 
 
2292
    3457 PUSHCONSTINT 200000
 
2293
    3459 C_CALL2 make_vect
 
2294
    3461 PUSHCONST0 
 
2295
    3462 MAKEBLOCK1 0
 
2296
    3464 PUSHACC1 
 
2297
    3465 PUSHACC1 
 
2298
    3466 CLOSURE 1, 3448
 
2299
    3469 PUSHGETGLOBALFIELD Array, 11
 
2300
    3472 APPLY2 
 
2301
    3473 CONSTINT 400000
 
2302
    3475 PUSHACC1 
 
2303
    3476 GETFIELD0 
 
2304
    3477 NEQ 
 
2305
    3478 BRANCHIFNOT 3485
 
2306
    3480 GETGLOBAL Not_found
 
2307
    3482 MAKEBLOCK1 0
 
2308
    3484 RAISE 
 
2309
    3485 POP 2
 
2310
    3487 ATOM0 
 
2311
    3488 SETGLOBAL T310-alloc-2
 
2312
    3490 STOP 
 
2313
**)