ocaml/test/testinterp/t310-alloc-2.ml

2319 lines
36 KiB
OCaml

open Lib;;
let v = Array.make 200000 2 in
let t = ref 0 in
Array.iter (fun x -> t := !t + x) v;
if !t <> 400000 then raise Not_found
;;
(**
0 CONSTINT 42
2 PUSHACC0
3 MAKEBLOCK1 0
5 POP 1
7 SETGLOBAL Lib
9 BRANCH 751
11 RESTART
12 GRAB 1
14 ACC0
15 BRANCHIFNOT 28
17 ACC1
18 PUSHACC1
19 GETFIELD1
20 PUSHOFFSETCLOSURE0
21 APPLY2
22 PUSHACC1
23 GETFIELD0
24 MAKEBLOCK2 0
26 RETURN 2
28 ACC1
29 RETURN 2
31 RESTART
32 GRAB 3
34 CONST0
35 PUSHACC4
36 LEINT
37 BRANCHIFNOT 42
39 CONST0
40 RETURN 4
42 ACC3
43 PUSHACC3
44 PUSHACC3
45 PUSHACC3
46 C_CALL4 caml_input
48 PUSHCONST0
49 PUSHACC1
50 EQ
51 BRANCHIFNOT 58
53 GETGLOBAL End_of_file
55 MAKEBLOCK1 0
57 RAISE
58 ACC0
59 PUSHACC5
60 SUBINT
61 PUSHACC1
62 PUSHACC5
63 ADDINT
64 PUSHACC4
65 PUSHACC4
66 PUSHOFFSETCLOSURE0
67 APPTERM 4, 9
70 ACC0
71 C_CALL1 caml_input_scan_line
73 PUSHCONST0
74 PUSHACC1
75 EQ
76 BRANCHIFNOT 83
78 GETGLOBAL End_of_file
80 MAKEBLOCK1 0
82 RAISE
83 CONST0
84 PUSHACC1
85 GTINT
86 BRANCHIFNOT 107
88 ACC0
89 OFFSETINT -1
91 C_CALL1 create_string
93 PUSHACC1
94 OFFSETINT -1
96 PUSHCONST0
97 PUSHACC2
98 PUSHACC5
99 C_CALL4 caml_input
101 ACC2
102 C_CALL1 caml_input_char
104 ACC0
105 RETURN 3
107 ACC0
108 NEGINT
109 C_CALL1 create_string
111 PUSHACC1
112 NEGINT
113 PUSHCONST0
114 PUSHACC2
115 PUSHACC5
116 C_CALL4 caml_input
118 CONST0
119 PUSHTRAP 130
121 ACC6
122 PUSHOFFSETCLOSURE0
123 APPLY1
124 PUSHACC5
125 PUSHENVACC1
126 APPLY2
127 POPTRAP
128 RETURN 3
130 PUSHGETGLOBAL End_of_file
132 PUSHACC1
133 GETFIELD0
134 EQ
135 BRANCHIFNOT 140
137 ACC1
138 RETURN 4
140 ACC0
141 RAISE
142 ACC0
143 C_CALL1 caml_flush
145 RETURN 1
147 ACC0
148 C_CALL1 caml_flush
150 RETURN 1
152 RESTART
153 GRAB 1
155 ACC1
156 PUSHACC1
157 C_CALL2 caml_output_char
159 RETURN 2
161 RESTART
162 GRAB 1
164 ACC1
165 PUSHACC1
166 C_CALL2 caml_output_char
168 RETURN 2
170 RESTART
171 GRAB 1
173 ACC1
174 PUSHACC1
175 C_CALL2 caml_output_int
177 RETURN 2
179 RESTART
180 GRAB 1
182 ACC1
183 PUSHACC1
184 C_CALL2 caml_seek_out
186 RETURN 2
188 ACC0
189 C_CALL1 caml_pos_out
191 RETURN 1
193 ACC0
194 C_CALL1 caml_channel_size
196 RETURN 1
198 RESTART
199 GRAB 1
201 ACC1
202 PUSHACC1
203 C_CALL2 caml_set_binary_mode
205 RETURN 2
207 ACC0
208 C_CALL1 caml_input_char
210 RETURN 1
212 ACC0
213 C_CALL1 caml_input_char
215 RETURN 1
217 ACC0
218 C_CALL1 caml_input_int
220 RETURN 1
222 ACC0
223 C_CALL1 input_value
225 RETURN 1
227 RESTART
228 GRAB 1
230 ACC1
231 PUSHACC1
232 C_CALL2 caml_seek_in
234 RETURN 2
236 ACC0
237 C_CALL1 caml_pos_in
239 RETURN 1
241 ACC0
242 C_CALL1 caml_channel_size
244 RETURN 1
246 ACC0
247 C_CALL1 caml_close_channel
249 RETURN 1
251 RESTART
252 GRAB 1
254 ACC1
255 PUSHACC1
256 C_CALL2 caml_set_binary_mode
258 RETURN 2
260 CONST0
261 PUSHENVACC1
262 APPLY1
263 ACC0
264 C_CALL1 sys_exit
266 RETURN 1
268 CONST0
269 PUSHENVACC1
270 GETFIELD0
271 APPTERM1 2
273 CONST0
274 PUSHENVACC1
275 APPLY1
276 CONST0
277 PUSHENVACC2
278 APPTERM1 2
280 ENVACC1
281 GETFIELD0
282 PUSHACC0
283 PUSHACC2
284 CLOSURE 2, 273
287 PUSHENVACC1
288 SETFIELD0
289 RETURN 2
291 ENVACC1
292 C_CALL1 caml_flush
294 ENVACC2
295 C_CALL1 caml_flush
297 RETURN 1
299 CONST0
300 PUSHENVACC1
301 APPLY1
302 C_CALL1 float_of_string
304 RETURN 1
306 CONST0
307 PUSHENVACC1
308 APPLY1
309 C_CALL1 int_of_string
311 RETURN 1
313 ENVACC2
314 C_CALL1 caml_flush
316 ENVACC1
317 PUSHENVACC3
318 APPTERM1 2
320 CONSTINT 13
322 PUSHENVACC1
323 C_CALL2 caml_output_char
325 ENVACC1
326 C_CALL1 caml_flush
328 RETURN 1
330 ACC0
331 PUSHENVACC1
332 PUSHENVACC2
333 APPLY2
334 CONSTINT 13
336 PUSHENVACC1
337 C_CALL2 caml_output_char
339 ENVACC1
340 C_CALL1 caml_flush
342 RETURN 1
344 ACC0
345 PUSHENVACC1
346 APPLY1
347 PUSHENVACC2
348 PUSHENVACC3
349 APPTERM2 3
351 ACC0
352 PUSHENVACC1
353 APPLY1
354 PUSHENVACC2
355 PUSHENVACC3
356 APPTERM2 3
358 ACC0
359 PUSHENVACC1
360 PUSHENVACC2
361 APPTERM2 3
363 ACC0
364 PUSHENVACC1
365 C_CALL2 caml_output_char
367 RETURN 1
369 CONSTINT 13
371 PUSHENVACC1
372 C_CALL2 caml_output_char
374 ENVACC1
375 C_CALL1 caml_flush
377 RETURN 1
379 ACC0
380 PUSHENVACC1
381 PUSHENVACC2
382 APPLY2
383 CONSTINT 13
385 PUSHENVACC1
386 C_CALL2 caml_output_char
388 RETURN 1
390 ACC0
391 PUSHENVACC1
392 APPLY1
393 PUSHENVACC2
394 PUSHENVACC3
395 APPTERM2 3
397 ACC0
398 PUSHENVACC1
399 APPLY1
400 PUSHENVACC2
401 PUSHENVACC3
402 APPTERM2 3
404 ACC0
405 PUSHENVACC1
406 PUSHENVACC2
407 APPTERM2 3
409 ACC0
410 PUSHENVACC1
411 C_CALL2 caml_output_char
413 RETURN 1
415 RESTART
416 GRAB 3
418 CONST0
419 PUSHACC3
420 LTINT
421 BRANCHIF 432
423 ACC1
424 C_CALL1 ml_string_length
426 PUSHACC4
427 PUSHACC4
428 ADDINT
429 GTINT
430 BRANCHIFNOT 437
432 GETGLOBAL "really_input"
434 PUSHENVACC1
435 APPTERM1 5
437 ACC3
438 PUSHACC3
439 PUSHACC3
440 PUSHACC3
441 PUSHENVACC2
442 APPTERM 4, 8
445 RESTART
446 GRAB 3
448 CONST0
449 PUSHACC3
450 LTINT
451 BRANCHIF 462
453 ACC1
454 C_CALL1 ml_string_length
456 PUSHACC4
457 PUSHACC4
458 ADDINT
459 GTINT
460 BRANCHIFNOT 467
462 GETGLOBAL "input"
464 PUSHENVACC1
465 APPTERM1 5
467 ACC3
468 PUSHACC3
469 PUSHACC3
470 PUSHACC3
471 C_CALL4 caml_input
473 RETURN 4
475 ACC0
476 PUSHCONST0
477 PUSHGETGLOBAL <0>(0, <0>(6, 0))
479 PUSHENVACC1
480 APPTERM3 4
482 ACC0
483 PUSHCONST0
484 PUSHGETGLOBAL <0>(0, <0>(7, 0))
486 PUSHENVACC1
487 APPTERM3 4
489 RESTART
490 GRAB 2
492 ACC1
493 PUSHACC1
494 PUSHACC4
495 C_CALL3 sys_open
497 C_CALL1 caml_open_descriptor
499 RETURN 3
501 ACC0
502 C_CALL1 caml_flush
504 ACC0
505 C_CALL1 caml_close_channel
507 RETURN 1
509 RESTART
510 GRAB 1
512 CONST0
513 PUSHACC2
514 PUSHACC2
515 C_CALL3 output_value
517 RETURN 2
519 RESTART
520 GRAB 3
522 CONST0
523 PUSHACC3
524 LTINT
525 BRANCHIF 536
527 ACC1
528 C_CALL1 ml_string_length
530 PUSHACC4
531 PUSHACC4
532 ADDINT
533 GTINT
534 BRANCHIFNOT 541
536 GETGLOBAL "output"
538 PUSHENVACC1
539 APPTERM1 5
541 ACC3
542 PUSHACC3
543 PUSHACC3
544 PUSHACC3
545 C_CALL4 caml_output
547 RETURN 4
549 RESTART
550 GRAB 1
552 ACC1
553 C_CALL1 ml_string_length
555 PUSHCONST0
556 PUSHACC3
557 PUSHACC3
558 C_CALL4 caml_output
560 RETURN 2
562 ACC0
563 PUSHCONSTINT 438
565 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(6, 0))))
567 PUSHENVACC1
568 APPTERM3 4
570 ACC0
571 PUSHCONSTINT 438
573 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(7, 0))))
575 PUSHENVACC1
576 APPTERM3 4
578 RESTART
579 GRAB 2
581 ACC1
582 PUSHACC1
583 PUSHACC4
584 C_CALL3 sys_open
586 C_CALL1 caml_open_descriptor
588 RETURN 3
590 ACC0
591 PUSHGETGLOBAL "%.12g"
593 C_CALL2 format_float
595 RETURN 1
597 ACC0
598 PUSHGETGLOBAL "%d"
600 C_CALL2 format_int
602 RETURN 1
604 GETGLOBAL "true"
606 PUSHACC1
607 C_CALL2 string_equal
609 BRANCHIFNOT 614
611 CONST1
612 RETURN 1
614 GETGLOBAL "false"
616 PUSHACC1
617 C_CALL2 string_equal
619 BRANCHIFNOT 624
621 CONST0
622 RETURN 1
624 GETGLOBAL "bool_of_string"
626 PUSHENVACC1
627 APPTERM1 2
629 ACC0
630 BRANCHIFNOT 636
632 GETGLOBAL "true"
634 RETURN 1
636 GETGLOBAL "false"
638 RETURN 1
640 CONST0
641 PUSHACC1
642 LTINT
643 BRANCHIF 651
645 CONSTINT 255
647 PUSHACC1
648 GTINT
649 BRANCHIFNOT 656
651 GETGLOBAL "char_of_int"
653 PUSHENVACC1
654 APPTERM1 2
656 ACC0
657 RETURN 1
659 RESTART
660 GRAB 1
662 ACC0
663 C_CALL1 ml_string_length
665 PUSHACC2
666 C_CALL1 ml_string_length
668 PUSHACC0
669 PUSHACC2
670 ADDINT
671 C_CALL1 create_string
673 PUSHACC2
674 PUSHCONST0
675 PUSHACC2
676 PUSHCONST0
677 PUSHACC7
678 C_CALL5 blit_string
680 ACC1
681 PUSHACC3
682 PUSHACC2
683 PUSHCONST0
684 PUSHACC 8
686 C_CALL5 blit_string
688 ACC0
689 RETURN 5
691 CONSTINT -1
693 PUSHACC1
694 XORINT
695 RETURN 1
697 CONST0
698 PUSHACC1
699 GEINT
700 BRANCHIFNOT 705
702 ACC0
703 RETURN 1
705 ACC0
706 NEGINT
707 RETURN 1
709 RESTART
710 GRAB 1
712 ACC1
713 PUSHACC1
714 C_CALL2 greaterequal
716 BRANCHIFNOT 721
718 ACC0
719 RETURN 2
721 ACC1
722 RETURN 2
724 RESTART
725 GRAB 1
727 ACC1
728 PUSHACC1
729 C_CALL2 lessequal
731 BRANCHIFNOT 736
733 ACC0
734 RETURN 2
736 ACC1
737 RETURN 2
739 ACC0
740 PUSHGETGLOBAL Invalid_argument
742 MAKEBLOCK2 0
744 RAISE
745 ACC0
746 PUSHGETGLOBAL Failure
748 MAKEBLOCK2 0
750 RAISE
751 CLOSURE 0, 745
754 PUSH
755 CLOSURE 0, 739
758 PUSHGETGLOBAL "Pervasives.Exit"
760 MAKEBLOCK1 0
762 PUSHGETGLOBAL "Pervasives.Assert_failure"
764 MAKEBLOCK1 0
766 PUSH
767 CLOSURE 0, 725
770 PUSH
771 CLOSURE 0, 710
774 PUSH
775 CLOSURE 0, 697
778 PUSH
779 CLOSURE 0, 691
782 PUSHCONST0
783 PUSHCONSTINT 31
785 PUSHCONST1
786 LSLINT
787 EQ
788 BRANCHIFNOT 794
790 CONSTINT 30
792 BRANCH 796
794 CONSTINT 62
796 PUSHCONST1
797 LSLINT
798 PUSHACC0
799 OFFSETINT -1
801 PUSH
802 CLOSURE 0, 660
805 PUSHACC 9
807 CLOSURE 1, 640
810 PUSH
811 CLOSURE 0, 629
814 PUSHACC 11
816 CLOSURE 1, 604
819 PUSH
820 CLOSURE 0, 597
823 PUSH
824 CLOSURE 0, 590
827 PUSH
828 CLOSUREREC 0, 12
832 CONST0
833 C_CALL1 caml_open_descriptor
835 PUSHCONST1
836 C_CALL1 caml_open_descriptor
838 PUSHCONST2
839 C_CALL1 caml_open_descriptor
841 PUSH
842 CLOSURE 0, 579
845 PUSHACC0
846 CLOSURE 1, 570
849 PUSHACC1
850 CLOSURE 1, 562
853 PUSH
854 CLOSURE 0, 550
857 PUSHACC 22
859 CLOSURE 1, 520
862 PUSH
863 CLOSURE 0, 510
866 PUSH
867 CLOSURE 0, 501
870 PUSH
871 CLOSURE 0, 490
874 PUSHACC0
875 CLOSURE 1, 482
878 PUSHACC1
879 CLOSURE 1, 475
882 PUSHACC 28
884 CLOSURE 1, 446
887 PUSH
888 CLOSUREREC 0, 32
892 ACC0
893 PUSHACC 31
895 CLOSURE 2, 416
898 PUSHACC 22
900 CLOSUREREC 1, 70
904 ACC 15
906 CLOSURE 1, 409
909 PUSHACC 11
911 PUSHACC 17
913 CLOSURE 2, 404
916 PUSHACC 12
918 PUSHACC 18
920 PUSHACC 23
922 CLOSURE 3, 397
925 PUSHACC 13
927 PUSHACC 19
929 PUSHACC 23
931 CLOSURE 3, 390
934 PUSHACC 14
936 PUSHACC 20
938 CLOSURE 2, 379
941 PUSHACC 20
943 CLOSURE 1, 369
946 PUSHACC 20
948 CLOSURE 1, 363
951 PUSHACC 17
953 PUSHACC 22
955 CLOSURE 2, 358
958 PUSHACC 18
960 PUSHACC 23
962 PUSHACC 29
964 CLOSURE 3, 351
967 PUSHACC 19
969 PUSHACC 24
971 PUSHACC 29
973 CLOSURE 3, 344
976 PUSHACC 20
978 PUSHACC 25
980 CLOSURE 2, 330
983 PUSHACC 25
985 CLOSURE 1, 320
988 PUSHACC 12
990 PUSHACC 28
992 PUSHACC 30
994 CLOSURE 3, 313
997 PUSHACC0
998 CLOSURE 1, 306
1001 PUSHACC1
1002 CLOSURE 1, 299
1005 PUSHACC 29
1007 PUSHACC 31
1009 CLOSURE 2, 291
1012 MAKEBLOCK1 0
1014 PUSHACC0
1015 CLOSURE 1, 280
1018 PUSHACC1
1019 CLOSURE 1, 268
1022 PUSHACC0
1023 CLOSURE 1, 260
1026 PUSHACC1
1027 PUSHACC 22
1029 PUSHACC4
1030 PUSHACC3
1031 PUSH
1032 CLOSURE 0, 252
1035 PUSH
1036 CLOSURE 0, 246
1039 PUSH
1040 CLOSURE 0, 241
1043 PUSH
1044 CLOSURE 0, 236
1047 PUSH
1048 CLOSURE 0, 228
1051 PUSH
1052 CLOSURE 0, 222
1055 PUSH
1056 CLOSURE 0, 217
1059 PUSH
1060 CLOSURE 0, 212
1063 PUSHACC 32
1065 PUSHACC 35
1067 PUSHACC 33
1069 PUSH
1070 CLOSURE 0, 207
1073 PUSHACC 41
1075 PUSHACC 40
1077 PUSHACC 42
1079 PUSH
1080 CLOSURE 0, 199
1083 PUSHACC 46
1085 PUSH
1086 CLOSURE 0, 193
1089 PUSH
1090 CLOSURE 0, 188
1093 PUSH
1094 CLOSURE 0, 180
1097 PUSHACC 51
1099 PUSH
1100 CLOSURE 0, 171
1103 PUSH
1104 CLOSURE 0, 162
1107 PUSHACC 55
1109 PUSHACC 57
1111 PUSH
1112 CLOSURE 0, 153
1115 PUSH
1116 CLOSURE 0, 147
1119 PUSH
1120 CLOSURE 0, 142
1123 PUSHACC 64
1125 PUSHACC 63
1127 PUSHACC 65
1129 PUSHACC 39
1131 PUSHACC 41
1133 PUSHACC 43
1135 PUSHACC 45
1137 PUSHACC 47
1139 PUSHACC 49
1141 PUSHACC 51
1143 PUSHACC 53
1145 PUSHACC 55
1147 PUSHACC 57
1149 PUSHACC 59
1151 PUSHACC 61
1153 PUSHACC 63
1155 PUSHACC 65
1157 PUSHACC 67
1159 PUSHACC 83
1161 PUSHACC 85
1163 PUSHACC 87
1165 PUSHACC 89
1167 PUSHACC 91
1169 PUSHACC 93
1171 PUSHACC 95
1173 PUSHACC 97
1175 PUSHACC 99
1177 PUSHACC 101
1179 PUSHACC 105
1181 PUSHACC 105
1183 PUSHACC 105
1185 PUSHACC 109
1187 PUSHACC 111
1189 PUSHACC 113
1191 PUSHACC 118
1193 PUSHACC 118
1195 PUSHACC 118
1197 PUSHACC 118
1199 MAKEBLOCK 70, 0
1202 POP 53
1204 SETGLOBAL Pervasives
1206 BRANCH 2186
1208 RESTART
1209 GRAB 1
1211 ACC1
1212 BRANCHIFNOT 1222
1214 ACC1
1215 GETFIELD1
1216 PUSHACC1
1217 OFFSETINT 1
1219 PUSHOFFSETCLOSURE0
1220 APPTERM2 4
1222 ACC0
1223 RETURN 2
1225 RESTART
1226 GRAB 1
1228 ACC0
1229 BRANCHIFNOT 1260
1231 CONST0
1232 PUSHACC2
1233 EQ
1234 BRANCHIFNOT 1240
1236 ACC0
1237 GETFIELD0
1238 RETURN 2
1240 CONST0
1241 PUSHACC2
1242 GTINT
1243 BRANCHIFNOT 1253
1245 ACC1
1246 OFFSETINT -1
1248 PUSHACC1
1249 GETFIELD1
1250 PUSHOFFSETCLOSURE0
1251 APPTERM2 4
1253 GETGLOBAL "List.nth"
1255 PUSHGETGLOBALFIELD Pervasives, 2
1258 APPTERM1 3
1260 GETGLOBAL "nth"
1262 PUSHGETGLOBALFIELD Pervasives, 3
1265 APPTERM1 3
1267 RESTART
1268 GRAB 1
1270 ACC0
1271 BRANCHIFNOT 1283
1273 ACC1
1274 PUSHACC1
1275 GETFIELD0
1276 MAKEBLOCK2 0
1278 PUSHACC1
1279 GETFIELD1
1280 PUSHOFFSETCLOSURE0
1281 APPTERM2 4
1283 ACC1
1284 RETURN 2
1286 ACC0
1287 BRANCHIFNOT 1300
1289 ACC0
1290 GETFIELD1
1291 PUSHOFFSETCLOSURE0
1292 APPLY1
1293 PUSHACC1
1294 GETFIELD0
1295 PUSHGETGLOBALFIELD Pervasives, 16
1298 APPTERM2 3
1300 RETURN 1
1302 RESTART
1303 GRAB 1
1305 ACC1
1306 BRANCHIFNOT 1322
1308 ACC1
1309 GETFIELD0
1310 PUSHACC1
1311 APPLY1
1312 PUSHACC2
1313 GETFIELD1
1314 PUSHACC2
1315 PUSHOFFSETCLOSURE0
1316 APPLY2
1317 PUSHACC1
1318 MAKEBLOCK2 0
1320 POP 1
1322 RETURN 2
1324 RESTART
1325 GRAB 1
1327 ACC1
1328 BRANCHIFNOT 1340
1330 ACC1
1331 GETFIELD0
1332 PUSHACC1
1333 APPLY1
1334 ACC1
1335 GETFIELD1
1336 PUSHACC1
1337 PUSHOFFSETCLOSURE0
1338 APPTERM2 4
1340 RETURN 2
1342 RESTART
1343 GRAB 2
1345 ACC2
1346 BRANCHIFNOT 1359
1348 ACC2
1349 GETFIELD1
1350 PUSHACC3
1351 GETFIELD0
1352 PUSHACC3
1353 PUSHACC3
1354 APPLY2
1355 PUSHACC2
1356 PUSHOFFSETCLOSURE0
1357 APPTERM3 6
1359 ACC1
1360 RETURN 3
1362 RESTART
1363 GRAB 2
1365 ACC1
1366 BRANCHIFNOT 1379
1368 ACC2
1369 PUSHACC2
1370 GETFIELD1
1371 PUSHACC2
1372 PUSHOFFSETCLOSURE0
1373 APPLY3
1374 PUSHACC2
1375 GETFIELD0
1376 PUSHACC2
1377 APPTERM2 5
1379 ACC2
1380 RETURN 3
1382 RESTART
1383 GRAB 2
1385 ACC1
1386 BRANCHIFNOT 1409
1388 ACC2
1389 BRANCHIFNOT 1416
1391 ACC2
1392 GETFIELD0
1393 PUSHACC2
1394 GETFIELD0
1395 PUSHACC2
1396 APPLY2
1397 PUSHACC3
1398 GETFIELD1
1399 PUSHACC3
1400 GETFIELD1
1401 PUSHACC3
1402 PUSHOFFSETCLOSURE0
1403 APPLY3
1404 PUSHACC1
1405 MAKEBLOCK2 0
1407 RETURN 4
1409 ACC2
1410 BRANCHIFNOT 1414
1412 BRANCH 1416
1414 RETURN 3
1416 GETGLOBAL "List.map2"
1418 PUSHGETGLOBALFIELD Pervasives, 2
1421 APPTERM1 4
1423 RESTART
1424 GRAB 2
1426 ACC1
1427 BRANCHIFNOT 1446
1429 ACC2
1430 BRANCHIFNOT 1453
1432 ACC2
1433 GETFIELD0
1434 PUSHACC2
1435 GETFIELD0
1436 PUSHACC2
1437 APPLY2
1438 ACC2
1439 GETFIELD1
1440 PUSHACC2
1441 GETFIELD1
1442 PUSHACC2
1443 PUSHOFFSETCLOSURE0
1444 APPTERM3 6
1446 ACC2
1447 BRANCHIFNOT 1451
1449 BRANCH 1453
1451 RETURN 3
1453 GETGLOBAL "List.iter2"
1455 PUSHGETGLOBALFIELD Pervasives, 2
1458 APPTERM1 4
1460 RESTART
1461 GRAB 3
1463 ACC2
1464 BRANCHIFNOT 1485
1466 ACC3
1467 BRANCHIFNOT 1491
1469 ACC3
1470 GETFIELD1
1471 PUSHACC3
1472 GETFIELD1
1473 PUSHACC5
1474 GETFIELD0
1475 PUSHACC5
1476 GETFIELD0
1477 PUSHACC5
1478 PUSHACC5
1479 APPLY3
1480 PUSHACC3
1481 PUSHOFFSETCLOSURE0
1482 APPTERM 4, 8
1485 ACC3
1486 BRANCHIF 1491
1488 ACC1
1489 RETURN 4
1491 GETGLOBAL "List.fold_left2"
1493 PUSHGETGLOBALFIELD Pervasives, 2
1496 APPTERM1 5
1498 RESTART
1499 GRAB 3
1501 ACC1
1502 BRANCHIFNOT 1525
1504 ACC2
1505 BRANCHIFNOT 1531
1507 PUSH_RETADDR 1518
1509 ACC6
1510 PUSHACC6
1511 GETFIELD1
1512 PUSHACC6
1513 GETFIELD1
1514 PUSHACC6
1515 PUSHOFFSETCLOSURE0
1516 APPLY 4
1518 PUSHACC3
1519 GETFIELD0
1520 PUSHACC3
1521 GETFIELD0
1522 PUSHACC3
1523 APPTERM3 7
1525 ACC2
1526 BRANCHIF 1531
1528 ACC3
1529 RETURN 4
1531 GETGLOBAL "List.fold_right2"
1533 PUSHGETGLOBALFIELD Pervasives, 2
1536 APPTERM1 5
1538 RESTART
1539 GRAB 1
1541 ACC1
1542 BRANCHIFNOT 1558
1544 ACC1
1545 GETFIELD0
1546 PUSHACC1
1547 APPLY1
1548 BRANCHIFNOT 1556
1550 ACC1
1551 GETFIELD1
1552 PUSHACC1
1553 PUSHOFFSETCLOSURE0
1554 APPTERM2 4
1556 RETURN 2
1558 CONST1
1559 RETURN 2
1561 RESTART
1562 GRAB 1
1564 ACC1
1565 BRANCHIFNOT 1579
1567 ACC1
1568 GETFIELD0
1569 PUSHACC1
1570 APPLY1
1571 BRANCHIF 1579
1573 ACC1
1574 GETFIELD1
1575 PUSHACC1
1576 PUSHOFFSETCLOSURE0
1577 APPTERM2 4
1579 RETURN 2
1581 RESTART
1582 GRAB 2
1584 ACC1
1585 BRANCHIFNOT 1608
1587 ACC2
1588 BRANCHIFNOT 1614
1590 ACC2
1591 GETFIELD0
1592 PUSHACC2
1593 GETFIELD0
1594 PUSHACC2
1595 APPLY2
1596 BRANCHIFNOT 1606
1598 ACC2
1599 GETFIELD1
1600 PUSHACC2
1601 GETFIELD1
1602 PUSHACC2
1603 PUSHOFFSETCLOSURE0
1604 APPTERM3 6
1606 RETURN 3
1608 ACC2
1609 BRANCHIF 1614
1611 CONST1
1612 RETURN 3
1614 GETGLOBAL "List.for_all2"
1616 PUSHGETGLOBALFIELD Pervasives, 2
1619 APPTERM1 4
1621 RESTART
1622 GRAB 2
1624 ACC1
1625 BRANCHIFNOT 1648
1627 ACC2
1628 BRANCHIFNOT 1655
1630 ACC2
1631 GETFIELD0
1632 PUSHACC2
1633 GETFIELD0
1634 PUSHACC2
1635 APPLY2
1636 BRANCHIF 1646
1638 ACC2
1639 GETFIELD1
1640 PUSHACC2
1641 GETFIELD1
1642 PUSHACC2
1643 PUSHOFFSETCLOSURE0
1644 APPTERM3 6
1646 RETURN 3
1648 ACC2
1649 BRANCHIFNOT 1653
1651 BRANCH 1655
1653 RETURN 3
1655 GETGLOBAL "List.exists2"
1657 PUSHGETGLOBALFIELD Pervasives, 2
1660 APPTERM1 4
1662 RESTART
1663 GRAB 1
1665 ACC1
1666 BRANCHIFNOT 1681
1668 ACC0
1669 PUSHACC2
1670 GETFIELD0
1671 C_CALL2 equal
1673 BRANCHIF 1681
1675 ACC1
1676 GETFIELD1
1677 PUSHACC1
1678 PUSHOFFSETCLOSURE0
1679 APPTERM2 4
1681 RETURN 2
1683 RESTART
1684 GRAB 1
1686 ACC1
1687 BRANCHIFNOT 1701
1689 ACC0
1690 PUSHACC2
1691 GETFIELD0
1692 EQ
1693 BRANCHIF 1701
1695 ACC1
1696 GETFIELD1
1697 PUSHACC1
1698 PUSHOFFSETCLOSURE0
1699 APPTERM2 4
1701 RETURN 2
1703 RESTART
1704 GRAB 1
1706 ACC1
1707 BRANCHIFNOT 1728
1709 ACC1
1710 GETFIELD0
1711 PUSHACC1
1712 PUSHACC1
1713 GETFIELD0
1714 C_CALL2 equal
1716 BRANCHIFNOT 1722
1718 ACC0
1719 GETFIELD1
1720 RETURN 3
1722 ACC2
1723 GETFIELD1
1724 PUSHACC2
1725 PUSHOFFSETCLOSURE0
1726 APPTERM2 5
1728 GETGLOBAL Not_found
1730 MAKEBLOCK1 0
1732 RAISE
1733 RESTART
1734 GRAB 1
1736 ACC1
1737 BRANCHIFNOT 1757
1739 ACC1
1740 GETFIELD0
1741 PUSHACC1
1742 PUSHACC1
1743 GETFIELD0
1744 EQ
1745 BRANCHIFNOT 1751
1747 ACC0
1748 GETFIELD1
1749 RETURN 3
1751 ACC2
1752 GETFIELD1
1753 PUSHACC2
1754 PUSHOFFSETCLOSURE0
1755 APPTERM2 5
1757 GETGLOBAL Not_found
1759 MAKEBLOCK1 0
1761 RAISE
1762 RESTART
1763 GRAB 1
1765 ACC1
1766 BRANCHIFNOT 1782
1768 ACC0
1769 PUSHACC2
1770 GETFIELD0
1771 GETFIELD0
1772 C_CALL2 equal
1774 BRANCHIF 1782
1776 ACC1
1777 GETFIELD1
1778 PUSHACC1
1779 PUSHOFFSETCLOSURE0
1780 APPTERM2 4
1782 RETURN 2
1784 RESTART
1785 GRAB 1
1787 ACC1
1788 BRANCHIFNOT 1803
1790 ACC0
1791 PUSHACC2
1792 GETFIELD0
1793 GETFIELD0
1794 EQ
1795 BRANCHIF 1803
1797 ACC1
1798 GETFIELD1
1799 PUSHACC1
1800 PUSHOFFSETCLOSURE0
1801 APPTERM2 4
1803 RETURN 2
1805 RESTART
1806 GRAB 1
1808 ACC1
1809 BRANCHIFNOT 1834
1811 ACC1
1812 GETFIELD0
1813 PUSHACC2
1814 GETFIELD1
1815 PUSHACC2
1816 PUSHACC2
1817 GETFIELD0
1818 C_CALL2 equal
1820 BRANCHIFNOT 1825
1822 ACC0
1823 RETURN 4
1825 ACC0
1826 PUSHACC3
1827 PUSHOFFSETCLOSURE0
1828 APPLY2
1829 PUSHACC2
1830 MAKEBLOCK2 0
1832 POP 2
1834 RETURN 2
1836 RESTART
1837 GRAB 1
1839 ACC1
1840 BRANCHIFNOT 1864
1842 ACC1
1843 GETFIELD0
1844 PUSHACC2
1845 GETFIELD1
1846 PUSHACC2
1847 PUSHACC2
1848 GETFIELD0
1849 EQ
1850 BRANCHIFNOT 1855
1852 ACC0
1853 RETURN 4
1855 ACC0
1856 PUSHACC3
1857 PUSHOFFSETCLOSURE0
1858 APPLY2
1859 PUSHACC2
1860 MAKEBLOCK2 0
1862 POP 2
1864 RETURN 2
1866 RESTART
1867 GRAB 1
1869 ACC1
1870 BRANCHIFNOT 1888
1872 ACC1
1873 GETFIELD0
1874 PUSHACC0
1875 PUSHACC2
1876 APPLY1
1877 BRANCHIFNOT 1882
1879 ACC0
1880 RETURN 3
1882 ACC2
1883 GETFIELD1
1884 PUSHACC2
1885 PUSHOFFSETCLOSURE0
1886 APPTERM2 5
1888 GETGLOBAL Not_found
1890 MAKEBLOCK1 0
1892 RAISE
1893 RESTART
1894 GRAB 2
1896 ACC2
1897 BRANCHIFNOT 1926
1899 ACC2
1900 GETFIELD0
1901 PUSHACC3
1902 GETFIELD1
1903 PUSHACC1
1904 PUSHENVACC2
1905 APPLY1
1906 BRANCHIFNOT 1917
1908 ACC0
1909 PUSHACC4
1910 PUSHACC4
1911 PUSHACC4
1912 MAKEBLOCK2 0
1914 PUSHOFFSETCLOSURE0
1915 APPTERM3 8
1917 ACC0
1918 PUSHACC4
1919 PUSHACC3
1920 MAKEBLOCK2 0
1922 PUSHACC4
1923 PUSHOFFSETCLOSURE0
1924 APPTERM3 8
1926 ACC1
1927 PUSHENVACC1
1928 APPLY1
1929 PUSHACC1
1930 PUSHENVACC1
1931 APPLY1
1932 MAKEBLOCK2 0
1934 RETURN 3
1936 RESTART
1937 GRAB 1
1939 ACC0
1940 PUSHENVACC1
1941 CLOSUREREC 2, 1894
1945 ACC2
1946 PUSHCONST0
1947 PUSHCONST0
1948 PUSHACC3
1949 APPTERM3 6
1951 ACC0
1952 BRANCHIFNOT 1976
1954 ACC0
1955 GETFIELD0
1956 PUSHACC1
1957 GETFIELD1
1958 PUSHOFFSETCLOSURE0
1959 APPLY1
1960 PUSHACC0
1961 GETFIELD1
1962 PUSHACC2
1963 GETFIELD1
1964 MAKEBLOCK2 0
1966 PUSHACC1
1967 GETFIELD0
1968 PUSHACC3
1969 GETFIELD0
1970 MAKEBLOCK2 0
1972 MAKEBLOCK2 0
1974 RETURN 3
1976 GETGLOBAL <0>(0, 0)
1978 RETURN 1
1980 RESTART
1981 GRAB 1
1983 ACC0
1984 BRANCHIFNOT 2005
1986 ACC1
1987 BRANCHIFNOT 2012
1989 ACC1
1990 GETFIELD1
1991 PUSHACC1
1992 GETFIELD1
1993 PUSHOFFSETCLOSURE0
1994 APPLY2
1995 PUSHACC2
1996 GETFIELD0
1997 PUSHACC2
1998 GETFIELD0
1999 MAKEBLOCK2 0
2001 MAKEBLOCK2 0
2003 RETURN 2
2005 ACC1
2006 BRANCHIFNOT 2010
2008 BRANCH 2012
2010 RETURN 2
2012 GETGLOBAL "List.combine"
2014 PUSHGETGLOBALFIELD Pervasives, 2
2017 APPTERM1 3
2019 RESTART
2020 GRAB 1
2022 ACC1
2023 BRANCHIFNOT 2047
2025 ACC1
2026 GETFIELD0
2027 PUSHACC2
2028 GETFIELD1
2029 PUSHACC1
2030 PUSHENVACC2
2031 APPLY1
2032 BRANCHIFNOT 2042
2034 ACC0
2035 PUSHACC3
2036 PUSHACC3
2037 MAKEBLOCK2 0
2039 PUSHOFFSETCLOSURE0
2040 APPTERM2 6
2042 ACC0
2043 PUSHACC3
2044 PUSHOFFSETCLOSURE0
2045 APPTERM2 6
2047 ACC0
2048 PUSHENVACC1
2049 APPTERM1 3
2051 ACC0
2052 PUSHENVACC1
2053 CLOSUREREC 2, 2020
2057 CONST0
2058 PUSHACC1
2059 APPTERM1 3
2061 RESTART
2062 GRAB 2
2064 ACC1
2065 BRANCHIFNOT 2086
2067 ACC2
2068 BRANCHIFNOT 2093
2070 ACC2
2071 GETFIELD1
2072 PUSHACC2
2073 GETFIELD1
2074 PUSHACC2
2075 PUSHACC5
2076 GETFIELD0
2077 PUSHACC5
2078 GETFIELD0
2079 PUSHENVACC1
2080 APPLY2
2081 MAKEBLOCK2 0
2083 PUSHOFFSETCLOSURE0
2084 APPTERM3 6
2086 ACC2
2087 BRANCHIFNOT 2091
2089 BRANCH 2093
2091 RETURN 3
2093 GETGLOBAL "List.rev_map2"
2095 PUSHGETGLOBALFIELD Pervasives, 2
2098 APPTERM1 4
2100 RESTART
2101 GRAB 2
2103 ACC0
2104 CLOSUREREC 1, 2062
2108 ACC3
2109 PUSHACC3
2110 PUSHCONST0
2111 PUSHACC3
2112 APPTERM3 7
2114 RESTART
2115 GRAB 1
2117 ACC1
2118 BRANCHIFNOT 2132
2120 ACC1
2121 GETFIELD1
2122 PUSHACC1
2123 PUSHACC3
2124 GETFIELD0
2125 PUSHENVACC1
2126 APPLY1
2127 MAKEBLOCK2 0
2129 PUSHOFFSETCLOSURE0
2130 APPTERM2 4
2132 ACC0
2133 RETURN 2
2135 RESTART
2136 GRAB 1
2138 ACC0
2139 CLOSUREREC 1, 2115
2143 ACC2
2144 PUSHCONST0
2145 PUSHACC2
2146 APPTERM2 5
2148 CONST0
2149 PUSHACC1
2150 PUSHENVACC1
2151 APPTERM2 3
2153 ACC0
2154 BRANCHIFNOT 2160
2156 ACC0
2157 GETFIELD1
2158 RETURN 1
2160 GETGLOBAL "tl"
2162 PUSHGETGLOBALFIELD Pervasives, 3
2165 APPTERM1 2
2167 ACC0
2168 BRANCHIFNOT 2174
2170 ACC0
2171 GETFIELD0
2172 RETURN 1
2174 GETGLOBAL "hd"
2176 PUSHGETGLOBALFIELD Pervasives, 3
2179 APPTERM1 2
2181 ACC0
2182 PUSHCONST0
2183 PUSHENVACC1
2184 APPTERM2 3
2186 CLOSUREREC 0, 1209
2190 ACC0
2191 CLOSURE 1, 2181
2194 PUSH
2195 CLOSURE 0, 2167
2198 PUSH
2199 CLOSURE 0, 2153
2202 PUSH
2203 CLOSUREREC 0, 1226
2207 GETGLOBALFIELD Pervasives, 16
2210 PUSH
2211 CLOSUREREC 0, 1268
2215 ACC0
2216 CLOSURE 1, 2148
2219 PUSH
2220 CLOSUREREC 0, 1286
2224 CLOSUREREC 0, 1303
2228 CLOSURE 0, 2136
2231 PUSH
2232 CLOSUREREC 0, 1325
2236 CLOSUREREC 0, 1343
2240 CLOSUREREC 0, 1363
2244 CLOSUREREC 0, 1383
2248 CLOSURE 0, 2101
2251 PUSH
2252 CLOSUREREC 0, 1424
2256 CLOSUREREC 0, 1461
2260 CLOSUREREC 0, 1499
2264 CLOSUREREC 0, 1539
2268 CLOSUREREC 0, 1562
2272 CLOSUREREC 0, 1582
2276 CLOSUREREC 0, 1622
2280 CLOSUREREC 0, 1663
2284 CLOSUREREC 0, 1684
2288 CLOSUREREC 0, 1704
2292 CLOSUREREC 0, 1734
2296 CLOSUREREC 0, 1763
2300 CLOSUREREC 0, 1785
2304 CLOSUREREC 0, 1806
2308 CLOSUREREC 0, 1837
2312 CLOSUREREC 0, 1867
2316 ACC 24
2318 CLOSURE 1, 2051
2321 PUSHACC 25
2323 CLOSUREREC 1, 1937
2327 CLOSUREREC 0, 1951
2331 CLOSUREREC 0, 1981
2335 ACC0
2336 PUSHACC2
2337 PUSHACC7
2338 PUSHACC 9
2340 PUSHACC 11
2342 PUSHACC 13
2344 PUSHACC 15
2346 PUSHACC 17
2348 PUSHACC 10
2350 PUSHACC 12
2352 PUSHACC 13
2354 PUSHACC 15
2356 PUSHACC 23
2358 PUSHACC 25
2360 PUSHACC 27
2362 PUSHACC 29
2364 PUSHACC 31
2366 PUSHACC 33
2368 PUSHACC 35
2370 PUSHACC 37
2372 PUSHACC 40
2374 PUSHACC 42
2376 PUSHACC 41
2378 PUSHACC 45
2380 PUSHACC 47
2382 PUSHACC 50
2384 PUSHACC 52
2386 PUSHACC 51
2388 PUSHACC 55
2390 PUSHACC 56
2392 PUSHACC 59
2394 PUSHACC 61
2396 PUSHACC 60
2398 PUSHACC 64
2400 PUSHACC 66
2402 PUSHACC 68
2404 PUSHACC 70
2406 MAKEBLOCK 37, 0
2409 POP 36
2411 SETGLOBAL List
2413 BRANCH 3350
2415 RESTART
2416 GRAB 2
2418 ACC2
2419 PUSHACC2
2420 VECTLENGTH
2421 OFFSETINT -1
2423 PUSHCONST0
2424 PUSH
2425 BRANCH 2442
2427 CHECK_SIGNALS
2428 ACC2
2429 PUSHACC2
2430 PUSHACC6
2431 C_CALL2 array_unsafe_get
2433 PUSHACC5
2434 APPLY2
2435 ASSIGN 2
2437 ACC1
2438 OFFSETINT -1
2440 ASSIGN 1
2442 ACC0
2443 PUSHACC2
2444 GEINT
2445 BRANCHIF 2427
2447 CONST0
2448 POP 2
2450 ACC0
2451 RETURN 4
2453 RESTART
2454 GRAB 2
2456 ACC1
2457 PUSHCONST0
2458 PUSHACC4
2459 VECTLENGTH
2460 OFFSETINT -1
2462 PUSH
2463 BRANCH 2480
2465 CHECK_SIGNALS
2466 ACC1
2467 PUSHACC6
2468 C_CALL2 array_unsafe_get
2470 PUSHACC3
2471 PUSHACC5
2472 APPLY2
2473 ASSIGN 2
2475 ACC1
2476 OFFSETINT 1
2478 ASSIGN 1
2480 ACC0
2481 PUSHACC2
2482 LEINT
2483 BRANCHIF 2465
2485 CONST0
2486 POP 2
2488 ACC0
2489 RETURN 4
2491 RESTART
2492 GRAB 1
2494 ACC1
2495 BRANCHIFNOT 2511
2497 ACC1
2498 GETFIELD0
2499 PUSHACC1
2500 PUSHENVACC1
2501 C_CALL3 array_unsafe_set
2503 ACC1
2504 GETFIELD1
2505 PUSHACC1
2506 OFFSETINT 1
2508 PUSHOFFSETCLOSURE0
2509 APPTERM2 4
2511 ENVACC1
2512 RETURN 2
2514 ACC0
2515 BRANCHIFNOT 2540
2517 ACC0
2518 GETFIELD1
2519 PUSHACC1
2520 GETFIELD0
2521 PUSHACC1
2522 PUSHGETGLOBALFIELD List, 0
2525 APPLY1
2526 OFFSETINT 1
2528 C_CALL2 make_vect
2530 PUSHACC0
2531 CLOSUREREC 1, 2492
2535 ACC2
2536 PUSHCONST1
2537 PUSHACC2
2538 APPTERM2 6
2540 ATOM0
2541 RETURN 1
2543 RESTART
2544 GRAB 1
2546 CONST0
2547 PUSHACC1
2548 LTINT
2549 BRANCHIFNOT 2554
2551 ACC1
2552 RETURN 2
2554 ACC1
2555 PUSHACC1
2556 PUSHENVACC1
2557 C_CALL2 array_unsafe_get
2559 MAKEBLOCK2 0
2561 PUSHACC1
2562 OFFSETINT -1
2564 PUSHOFFSETCLOSURE0
2565 APPTERM2 4
2567 ACC0
2568 CLOSUREREC 1, 2544
2572 CONST0
2573 PUSHACC2
2574 VECTLENGTH
2575 OFFSETINT -1
2577 PUSHACC2
2578 APPTERM2 4
2580 RESTART
2581 GRAB 1
2583 ACC1
2584 VECTLENGTH
2585 PUSHCONST0
2586 PUSHACC1
2587 EQ
2588 BRANCHIFNOT 2593
2590 ATOM0
2591 RETURN 3
2593 CONST0
2594 PUSHACC3
2595 C_CALL2 array_unsafe_get
2597 PUSHCONST0
2598 PUSHACC3
2599 APPLY2
2600 PUSHACC1
2601 C_CALL2 make_vect
2603 PUSHCONST1
2604 PUSHACC2
2605 OFFSETINT -1
2607 PUSH
2608 BRANCH 2627
2610 CHECK_SIGNALS
2611 ACC1
2612 PUSHACC6
2613 C_CALL2 array_unsafe_get
2615 PUSHACC2
2616 PUSHACC6
2617 APPLY2
2618 PUSHACC2
2619 PUSHACC4
2620 C_CALL3 array_unsafe_set
2622 ACC1
2623 OFFSETINT 1
2625 ASSIGN 1
2627 ACC0
2628 PUSHACC2
2629 LEINT
2630 BRANCHIF 2610
2632 CONST0
2633 POP 2
2635 ACC0
2636 RETURN 4
2638 RESTART
2639 GRAB 1
2641 CONST0
2642 PUSHACC2
2643 VECTLENGTH
2644 OFFSETINT -1
2646 PUSH
2647 BRANCH 2662
2649 CHECK_SIGNALS
2650 ACC1
2651 PUSHACC4
2652 C_CALL2 array_unsafe_get
2654 PUSHACC2
2655 PUSHACC4
2656 APPLY2
2657 ACC1
2658 OFFSETINT 1
2660 ASSIGN 1
2662 ACC0
2663 PUSHACC2
2664 LEINT
2665 BRANCHIF 2649
2667 CONST0
2668 RETURN 4
2670 RESTART
2671 GRAB 1
2673 ACC1
2674 VECTLENGTH
2675 PUSHCONST0
2676 PUSHACC1
2677 EQ
2678 BRANCHIFNOT 2683
2680 ATOM0
2681 RETURN 3
2683 CONST0
2684 PUSHACC3
2685 C_CALL2 array_unsafe_get
2687 PUSHACC2
2688 APPLY1
2689 PUSHACC1
2690 C_CALL2 make_vect
2692 PUSHCONST1
2693 PUSHACC2
2694 OFFSETINT -1
2696 PUSH
2697 BRANCH 2715
2699 CHECK_SIGNALS
2700 ACC1
2701 PUSHACC6
2702 C_CALL2 array_unsafe_get
2704 PUSHACC5
2705 APPLY1
2706 PUSHACC2
2707 PUSHACC4
2708 C_CALL3 array_unsafe_set
2710 ACC1
2711 OFFSETINT 1
2713 ASSIGN 1
2715 ACC0
2716 PUSHACC2
2717 LEINT
2718 BRANCHIF 2699
2720 CONST0
2721 POP 2
2723 ACC0
2724 RETURN 4
2726 RESTART
2727 GRAB 1
2729 CONST0
2730 PUSHACC2
2731 VECTLENGTH
2732 OFFSETINT -1
2734 PUSH
2735 BRANCH 2749
2737 CHECK_SIGNALS
2738 ACC1
2739 PUSHACC4
2740 C_CALL2 array_unsafe_get
2742 PUSHACC3
2743 APPLY1
2744 ACC1
2745 OFFSETINT 1
2747 ASSIGN 1
2749 ACC0
2750 PUSHACC2
2751 LEINT
2752 BRANCHIF 2737
2754 CONST0
2755 RETURN 4
2757 RESTART
2758 GRAB 4
2760 CONST0
2761 PUSHACC5
2762 LTINT
2763 BRANCHIF 2791
2765 CONST0
2766 PUSHACC2
2767 LTINT
2768 BRANCHIF 2791
2770 ACC0
2771 VECTLENGTH
2772 PUSHACC5
2773 PUSHACC3
2774 ADDINT
2775 GTINT
2776 BRANCHIF 2791
2778 CONST0
2779 PUSHACC4
2780 LTINT
2781 BRANCHIF 2791
2783 ACC2
2784 VECTLENGTH
2785 PUSHACC5
2786 PUSHACC5
2787 ADDINT
2788 GTINT
2789 BRANCHIFNOT 2798
2791 GETGLOBAL "Array.blit"
2793 PUSHGETGLOBALFIELD Pervasives, 2
2796 APPTERM1 6
2798 ACC3
2799 PUSHACC2
2800 LTINT
2801 BRANCHIFNOT 2836
2803 ACC4
2804 OFFSETINT -1
2806 PUSHCONST0
2807 PUSH
2808 BRANCH 2828
2810 CHECK_SIGNALS
2811 ACC1
2812 PUSHACC4
2813 ADDINT
2814 PUSHACC3
2815 C_CALL2 array_unsafe_get
2817 PUSHACC2
2818 PUSHACC7
2819 ADDINT
2820 PUSHACC6
2821 C_CALL3 array_unsafe_set
2823 ACC1
2824 OFFSETINT -1
2826 ASSIGN 1
2828 ACC0
2829 PUSHACC2
2830 GEINT
2831 BRANCHIF 2810
2833 CONST0
2834 RETURN 7
2836 CONST0
2837 PUSHACC5
2838 OFFSETINT -1
2840 PUSH
2841 BRANCH 2861
2843 CHECK_SIGNALS
2844 ACC1
2845 PUSHACC4
2846 ADDINT
2847 PUSHACC3
2848 C_CALL2 array_unsafe_get
2850 PUSHACC2
2851 PUSHACC7
2852 ADDINT
2853 PUSHACC6
2854 C_CALL3 array_unsafe_set
2856 ACC1
2857 OFFSETINT 1
2859 ASSIGN 1
2861 ACC0
2862 PUSHACC2
2863 LEINT
2864 BRANCHIF 2843
2866 CONST0
2867 RETURN 7
2869 RESTART
2870 GRAB 3
2872 CONST0
2873 PUSHACC2
2874 LTINT
2875 BRANCHIF 2890
2877 CONST0
2878 PUSHACC3
2879 LTINT
2880 BRANCHIF 2890
2882 ACC0
2883 VECTLENGTH
2884 PUSHACC3
2885 PUSHACC3
2886 ADDINT
2887 GTINT
2888 BRANCHIFNOT 2897
2890 GETGLOBAL "Array.fill"
2892 PUSHGETGLOBALFIELD Pervasives, 2
2895 APPTERM1 5
2897 ACC1
2898 PUSHACC3
2899 PUSHACC3
2900 ADDINT
2901 OFFSETINT -1
2903 PUSH
2904 BRANCH 2917
2906 CHECK_SIGNALS
2907 ACC5
2908 PUSHACC2
2909 PUSHACC4
2910 C_CALL3 array_unsafe_set
2912 ACC1
2913 OFFSETINT 1
2915 ASSIGN 1
2917 ACC0
2918 PUSHACC2
2919 LEINT
2920 BRANCHIF 2906
2922 CONST0
2923 RETURN 6
2925 RESTART
2926 GRAB 2
2928 CONST0
2929 PUSHACC2
2930 LTINT
2931 BRANCHIF 2946
2933 CONST0
2934 PUSHACC3
2935 LTINT
2936 BRANCHIF 2946
2938 ACC0
2939 VECTLENGTH
2940 PUSHACC3
2941 PUSHACC3
2942 ADDINT
2943 GTINT
2944 BRANCHIFNOT 2953
2946 GETGLOBAL "Array.sub"
2948 PUSHGETGLOBALFIELD Pervasives, 2
2951 APPTERM1 4
2953 CONST0
2954 PUSHACC3
2955 EQ
2956 BRANCHIFNOT 2961
2958 ATOM0
2959 RETURN 3
2961 ACC1
2962 PUSHACC1
2963 C_CALL2 array_unsafe_get
2965 PUSHACC3
2966 C_CALL2 make_vect
2968 PUSHCONST1
2969 PUSHACC4
2970 OFFSETINT -1
2972 PUSH
2973 BRANCH 2991
2975 CHECK_SIGNALS
2976 ACC1
2977 PUSHACC5
2978 ADDINT
2979 PUSHACC4
2980 C_CALL2 array_unsafe_get
2982 PUSHACC2
2983 PUSHACC4
2984 C_CALL3 array_unsafe_set
2986 ACC1
2987 OFFSETINT 1
2989 ASSIGN 1
2991 ACC0
2992 PUSHACC2
2993 LEINT
2994 BRANCHIF 2975
2996 CONST0
2997 POP 2
2999 ACC0
3000 RETURN 4
3002 ACC0
3003 BRANCHIFNOT 3026
3005 ACC0
3006 GETFIELD0
3007 PUSHCONST0
3008 PUSHACC1
3009 VECTLENGTH
3010 GTINT
3011 BRANCHIFNOT 3021
3013 ENVACC2
3014 PUSHCONST0
3015 PUSHACC2
3016 C_CALL2 array_unsafe_get
3018 PUSHENVACC1
3019 APPTERM2 4
3021 ACC1
3022 GETFIELD1
3023 PUSHOFFSETCLOSURE0
3024 APPTERM1 3
3026 ATOM0
3027 RETURN 1
3029 ACC0
3030 PUSHENVACC1
3031 CLOSUREREC 2, 3002
3035 ACC1
3036 PUSHACC1
3037 APPTERM1 3
3039 CONST0
3040 PUSHACC1
3041 VECTLENGTH
3042 OFFSETINT -1
3044 PUSH
3045 BRANCH 3065
3047 CHECK_SIGNALS
3048 ACC1
3049 PUSHACC3
3050 C_CALL2 array_unsafe_get
3052 PUSHENVACC2
3053 GETFIELD0
3054 PUSHENVACC1
3055 C_CALL3 array_unsafe_set
3057 ENVACC2
3058 OFFSETREF 1
3060 ACC1
3061 OFFSETINT 1
3063 ASSIGN 1
3065 ACC0
3066 PUSHACC2
3067 LEINT
3068 BRANCHIF 3047
3070 CONST0
3071 RETURN 3
3073 RESTART
3074 GRAB 1
3076 ACC1
3077 VECTLENGTH
3078 PUSHACC1
3079 ADDINT
3080 RETURN 2
3082 RESTART
3083 GRAB 1
3085 ACC1
3086 PUSHCONST0
3087 PUSH
3088 CLOSURE 0, 3074
3091 PUSHGETGLOBALFIELD List, 12
3094 APPLY3
3095 PUSHACC1
3096 PUSHACC1
3097 C_CALL2 make_vect
3099 PUSHCONST0
3100 MAKEBLOCK1 0
3102 PUSHACC4
3103 PUSHACC1
3104 PUSHACC3
3105 CLOSURE 2, 3039
3108 PUSHGETGLOBALFIELD List, 9
3111 APPLY2
3112 ACC1
3113 RETURN 5
3115 RESTART
3116 GRAB 1
3118 ACC0
3119 VECTLENGTH
3120 PUSHACC2
3121 VECTLENGTH
3122 PUSHCONST0
3123 PUSHACC2
3124 EQ
3125 BRANCHIFNOT 3135
3127 CONST0
3128 PUSHACC1
3129 EQ
3130 BRANCHIFNOT 3135
3132 ATOM0
3133 RETURN 4
3135 CONST0
3136 PUSHCONST0
3137 PUSHACC3
3138 GTINT
3139 BRANCHIFNOT 3144
3141 ACC3
3142 BRANCH 3145
3144 ACC4
3145 C_CALL2 array_unsafe_get
3147 PUSHACC1
3148 PUSHACC3
3149 ADDINT
3150 C_CALL2 make_vect
3152 PUSHCONST0
3153 PUSHACC3
3154 OFFSETINT -1
3156 PUSH
3157 BRANCH 3173
3159 CHECK_SIGNALS
3160 ACC1
3161 PUSHACC6
3162 C_CALL2 array_unsafe_get
3164 PUSHACC2
3165 PUSHACC4
3166 C_CALL3 array_unsafe_set
3168 ACC1
3169 OFFSETINT 1
3171 ASSIGN 1
3173 ACC0
3174 PUSHACC2
3175 LEINT
3176 BRANCHIF 3159
3178 CONST0
3179 POP 2
3181 CONST0
3182 PUSHACC2
3183 OFFSETINT -1
3185 PUSH
3186 BRANCH 3204
3188 CHECK_SIGNALS
3189 ACC1
3190 PUSHACC7
3191 C_CALL2 array_unsafe_get
3193 PUSHACC5
3194 PUSHACC3
3195 ADDINT
3196 PUSHACC4
3197 C_CALL3 array_unsafe_set
3199 ACC1
3200 OFFSETINT 1
3202 ASSIGN 1
3204 ACC0
3205 PUSHACC2
3206 LEINT
3207 BRANCHIF 3188
3209 CONST0
3210 POP 2
3212 ACC0
3213 RETURN 5
3215 ACC0
3216 VECTLENGTH
3217 PUSHCONST0
3218 PUSHACC1
3219 EQ
3220 BRANCHIFNOT 3225
3222 ATOM0
3223 RETURN 2
3225 CONST0
3226 PUSHACC2
3227 C_CALL2 array_unsafe_get
3229 PUSHACC1
3230 C_CALL2 make_vect
3232 PUSHCONST1
3233 PUSHACC2
3234 OFFSETINT -1
3236 PUSH
3237 BRANCH 3253
3239 CHECK_SIGNALS
3240 ACC1
3241 PUSHACC5
3242 C_CALL2 array_unsafe_get
3244 PUSHACC2
3245 PUSHACC4
3246 C_CALL3 array_unsafe_set
3248 ACC1
3249 OFFSETINT 1
3251 ASSIGN 1
3253 ACC0
3254 PUSHACC2
3255 LEINT
3256 BRANCHIF 3239
3258 CONST0
3259 POP 2
3261 ACC0
3262 RETURN 3
3264 RESTART
3265 GRAB 2
3267 ATOM0
3268 PUSHACC1
3269 C_CALL2 make_vect
3271 PUSHCONST0
3272 PUSHACC2
3273 OFFSETINT -1
3275 PUSH
3276 BRANCH 3291
3278 CHECK_SIGNALS
3279 ACC5
3280 PUSHACC5
3281 C_CALL2 make_vect
3283 PUSHACC2
3284 PUSHACC4
3285 SETVECTITEM
3286 ACC1
3287 OFFSETINT 1
3289 ASSIGN 1
3291 ACC0
3292 PUSHACC2
3293 LEINT
3294 BRANCHIF 3278
3296 CONST0
3297 POP 2
3299 ACC0
3300 RETURN 4
3302 RESTART
3303 GRAB 1
3305 CONST0
3306 PUSHACC1
3307 EQ
3308 BRANCHIFNOT 3313
3310 ATOM0
3311 RETURN 2
3313 CONST0
3314 PUSHACC2
3315 APPLY1
3316 PUSHACC1
3317 C_CALL2 make_vect
3319 PUSHCONST1
3320 PUSHACC2
3321 OFFSETINT -1
3323 PUSH
3324 BRANCH 3339
3326 CHECK_SIGNALS
3327 ACC1
3328 PUSHACC5
3329 APPLY1
3330 PUSHACC2
3331 PUSHACC4
3332 C_CALL3 array_unsafe_set
3334 ACC1
3335 OFFSETINT 1
3337 ASSIGN 1
3339 ACC0
3340 PUSHACC2
3341 LEINT
3342 BRANCHIF 3326
3344 CONST0
3345 POP 2
3347 ACC0
3348 RETURN 3
3350 CLOSURE 0, 3303
3353 PUSH
3354 CLOSURE 0, 3265
3357 PUSH
3358 CLOSURE 0, 3215
3361 PUSH
3362 CLOSURE 0, 3116
3365 PUSH
3366 CLOSURE 0, 3083
3369 PUSHACC0
3370 CLOSURE 1, 3029
3373 PUSH
3374 CLOSURE 0, 2926
3377 PUSH
3378 CLOSURE 0, 2870
3381 PUSH
3382 CLOSURE 0, 2758
3385 PUSH
3386 CLOSURE 0, 2727
3389 PUSH
3390 CLOSURE 0, 2671
3393 PUSH
3394 CLOSURE 0, 2639
3397 PUSH
3398 CLOSURE 0, 2581
3401 PUSH
3402 CLOSURE 0, 2567
3405 PUSH
3406 CLOSURE 0, 2514
3409 PUSH
3410 CLOSURE 0, 2454
3413 PUSH
3414 CLOSURE 0, 2416
3417 PUSHACC0
3418 PUSHACC2
3419 PUSHACC6
3420 PUSHACC 8
3422 PUSHACC 10
3424 PUSHACC 12
3426 PUSHACC 8
3428 PUSHACC 10
3430 PUSHACC 16
3432 PUSHACC 18
3434 PUSHACC 24
3436 PUSHACC 21
3438 PUSHACC 23
3440 PUSHACC 26
3442 PUSHACC 29
3444 PUSHACC 30
3446 PUSHACC 32
3448 MAKEBLOCK 17, 0
3451 POP 17
3453 SETGLOBAL Array
3455 BRANCH 3465
3457 ACC0
3458 PUSHENVACC1
3459 GETFIELD0
3460 ADDINT
3461 PUSHENVACC1
3462 SETFIELD0
3463 RETURN 1
3465 CONST2
3466 PUSHCONSTINT 200000
3468 C_CALL2 make_vect
3470 PUSHCONST0
3471 MAKEBLOCK1 0
3473 PUSHACC1
3474 PUSHACC1
3475 CLOSURE 1, 3457
3478 PUSHGETGLOBALFIELD Array, 11
3481 APPLY2
3482 CONSTINT 400000
3484 PUSHACC1
3485 GETFIELD0
3486 NEQ
3487 BRANCHIFNOT 3494
3489 GETGLOBAL Not_found
3491 MAKEBLOCK1 0
3493 RAISE
3494 POP 2
3496 ATOM0
3497 SETGLOBAL T310-alloc-2
3499 STOP
**)