ocaml/test/testinterp/t330-compact-4.ml

1595 lines
25 KiB
OCaml

open Lib;;
let rec f n =
if n <= 0 then []
else n :: f (n-1)
in
Gc.compact ();
let l = f 300 in
if List.fold_left (+) 0 l <> 301 * 150 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 2441
2415 CONST0
2416 PUSHACC1
2417 LEINT
2418 BRANCHIFNOT 2423
2420 CONST0
2421 RETURN 1
2423 ACC0
2424 OFFSETINT -1
2426 PUSHOFFSETCLOSURE0
2427 APPLY1
2428 PUSHACC1
2429 MAKEBLOCK2 0
2431 RETURN 1
2433 RESTART
2434 GRAB 1
2436 ACC1
2437 PUSHACC1
2438 ADDINT
2439 RETURN 2
2441 CLOSUREREC 0, 2415
2445 CONST0
2446 C_CALL1 gc_compaction
2448 CONSTINT 300
2450 PUSHACC1
2451 APPLY1
2452 PUSHCONSTINT 150
2454 PUSHCONSTINT 301
2456 MULINT
2457 PUSHACC1
2458 PUSHCONST0
2459 PUSH
2460 CLOSURE 0, 2434
2463 PUSHGETGLOBALFIELD List, 12
2466 APPLY3
2467 NEQ
2468 BRANCHIFNOT 2475
2470 GETGLOBAL Not_found
2472 MAKEBLOCK1 0
2474 RAISE
2475 POP 2
2477 ATOM0
2478 SETGLOBAL T330-compact-4
2480 STOP
**)