diff --git a/.gitattributes b/.gitattributes index 48fddd8d2..415ebcd86 100644 --- a/.gitattributes +++ b/.gitattributes @@ -9,16 +9,22 @@ boot/ocamldep binary *.png binary *.tfm binary -.gitattributes ocaml-typo=missing-header -.gitignore ocaml-typo=missing-header -.merlin ocaml-typo=missing-header -.ocp-indent ocaml-typo=missing-header -Changes ocaml-typo=non-ascii,missing-header -CONTRIBUTING.md ocaml-typo=missing-header -INSTALL ocaml-typo=missing-header -LICENSE ocaml-typo=non-printing,missing-header +# No header for text files (would be too obtrusive). +*.md ocaml-typo=missing-header +README* ocaml-typo=missing-header +*.adoc ocaml-typo=missing-header,long-line,unused-prop + +/.gitattributes ocaml-typo=missing-header +/.gitignore ocaml-typo=missing-header +/.merlin ocaml-typo=missing-header +/Changes ocaml-typo=non-ascii,missing-header +/INSTALL ocaml-typo=missing-header +/LICENSE ocaml-typo=non-printing,missing-header +/appveyor.yml ocaml-typo=long-line,very-long-line + asmcomp/*/emit.mlp ocaml-typo=tab,long-line,unused-prop +asmcomp/power/NOTES.md ocaml-typo=missing-header,long-line asmrun/i386.S ocaml-typo=long-line @@ -27,10 +33,11 @@ config/gnu ocaml-typo=prune emacs/*.el ocaml-typo=long-line,unused-prop emacs/COPYING ocaml-typo=tab,non-printing,missing-header emacs/ocamltags.in ocaml-typo=non-printing -emacs/README* ocaml-typo=missing-header experimental ocaml-typo=prune +manual ocaml-typo=prune + ocamlbuild/* ocaml-typo=long-line ocamlbuild/AUTHORS ocaml-typo=missing-header ocamlbuild/ChangeLog ocaml-typo=tab,missing-header @@ -43,6 +50,17 @@ otherlibs/win32unix/readlink.c ocaml-typo=long-line otherlibs/win32unix/stat.c ocaml-typo=long-line otherlibs/win32unix/symlink.c ocaml-typo=long-line +stdlib/sharpbang ocaml-typo=white-at-eol,missing-lf + +# FIXME remove headers in testsuite and remove unused-prop in next line: +testsuite/** ocaml-typo=missing-header,unused-prop +testsuite/tests/lib-bigarray-2/bigarrf.f ocaml-typo=missing-header,tab +testsuite/tests/misc-unsafe/almabench.ml ocaml-typo=missing-header,long-line + +tools/magic ocaml-typo=missing-header + +yacc/*.[ch] ocaml-typo=long-line,very-long-line,unused-prop + # Line-ending specifications, for Windows interoperability *.sh text eol=lf *.sh.in text eol=lf diff --git a/.gitignore b/.gitignore index 053093a3f..34272012c 100644 --- a/.gitignore +++ b/.gitignore @@ -274,6 +274,8 @@ /testsuite/tests/unboxed-primitive-args/main.ml /testsuite/tests/unboxed-primitive-args/stubs.c +/testsuite/tests/unwind/unwind_test + /testsuite/tests/warnings/w55.opt.opt_result /testsuite/tests/warnings/w58.opt.opt_result diff --git a/.gitmodules b/.gitmodules index 938e0dbed..dca1e0d28 100644 --- a/.gitmodules +++ b/.gitmodules @@ -1,3 +1,3 @@ [submodule "flexdll"] - path = flexdll - url = https://github.com/alainfrisch/flexdll.git + path = flexdll + url = https://github.com/alainfrisch/flexdll.git diff --git a/INSTALL.adoc b/INSTALL.adoc index b331a37cd..52d48d591 100644 --- a/INSTALL.adoc +++ b/INSTALL.adoc @@ -234,9 +234,9 @@ or: make opt > log.opt 2>&1 # in sh make opt >& log.opt # in csh -5. anchor:step-5[] Compile fast versions of the OCaml compilers, by compiling them -with the native-code compiler (you have only compiled them to bytecode -so far). Just do: +5. anchor:step-5[] Compile fast versions of the OCaml compilers, by +compiling them with the native-code compiler (you have only compiled +them to bytecode so far). Just do: make opt.opt + diff --git a/Makefile b/Makefile index 2c6dec21e..65b3588cd 100644 --- a/Makefile +++ b/Makefile @@ -367,7 +367,8 @@ partialclean:: rm -f compilerlibs/ocamlopttoplevel.cmxa ocamlnat: compilerlibs/ocamlcommon.cmxa compilerlibs/ocamloptcomp.cmxa \ - otherlibs/dynlink/dynlink.cmxa compilerlibs/ocamlopttoplevel.cmxa $(OPTTOPLEVELSTART:.cmo=.cmx) + otherlibs/dynlink/dynlink.cmxa compilerlibs/ocamlopttoplevel.cmxa \ + $(OPTTOPLEVELSTART:.cmo=.cmx) $(CAMLOPT) $(LINKFLAGS) -linkall -o ocamlnat \ otherlibs/dynlink/dynlink.cmxa compilerlibs/ocamlcommon.cmxa \ compilerlibs/ocamloptcomp.cmxa compilerlibs/ocamlopttoplevel.cmxa \ @@ -480,7 +481,8 @@ ocamlopt.opt: compilerlibs/ocamlcommon.cmxa compilerlibs/ocamloptcomp.cmxa \ partialclean:: rm -f ocamlopt.opt -$(COMMON:.cmo=.cmx) $(BYTECOMP:.cmo=.cmx) $(MIDDLE_END:.cmo=.cmx) $(ASMCOMP:.cmo=.cmx): ocamlopt +$(COMMON:.cmo=.cmx) $(BYTECOMP:.cmo=.cmx) $(MIDDLE_END:.cmo=.cmx) \ +$(ASMCOMP:.cmo=.cmx): ocamlopt # The numeric opcodes @@ -747,7 +749,8 @@ clean:: $(CAMLOPT) $(COMPFLAGS) -c $< partialclean:: - for d in utils parsing typing bytecomp asmcomp middle_end middle_end/base_types driver toplevel tools; \ + for d in utils parsing typing bytecomp asmcomp middle_end \ + middle_end/base_types driver toplevel tools; \ do rm -f $$d/*.cm[ioxt] $$d/*.cmti $$d/*.annot $$d/*.[so] $$d/*~; done rm -f *~ diff --git a/Makefile.nt b/Makefile.nt index d5301f1fd..92257fcdf 100644 --- a/Makefile.nt +++ b/Makefile.nt @@ -16,48 +16,55 @@ include Makefile.shared # For users who don't read the INSTALL file defaultentry: - @echo "Please refer to the installation instructions in file README.win32.adoc." + @echo "Please refer to the instructions in file README.win32.adoc." FLEXDLL_SUBMODULE_PRESENT:=$(wildcard flexdll/Makefile) -BOOT_FLEXLINK_CMD=$(if $(FLEXDLL_SUBMODULE_PRESENT),FLEXLINK_CMD="../boot/ocamlrun ../flexdll/flexlink.exe") -CAMLOPT:=$(if $(FLEXDLL_SUBMODULE_PRESENT),OCAML_FLEXLINK="boot/ocamlrun flexdll/flexlink.exe") $(CAMLOPT) +ifeq "$(FLEXDLL_SUBMODULE_PRESENT)" "" + BOOT_FLEXLINK_CMD= +else + BOOT_FLEXLINK_CMD=FLEXLINK_CMD="../boot/ocamlrun ../flexdll/flexlink.exe" + CAMLOPT:=OCAML_FLEXLINK="boot/ocamlrun flexdll/flexlink.exe" $(CAMLOPT) +endif # FlexDLL sources missing error messages # Different git mechanism displayed depending on whether this source tree came # from a git clone or a source tarball. -# Displayed in all cases -flexdll-common-err: - @echo In order to bootstrap FlexDLL, you need to place the sources in flexdll +flexdll/Makefile: + @echo In order to bootstrap FlexDLL, you need to place the sources in + @echo flexdll. @echo This can either be done by downloading a source tarball from @echo \ http://alain.frisch.fr/flexdll.html - -flexdll/Makefile: $(if $(wildcard flexdll/Makefile),,$(if $(wildcard .git),flexdll-common-err,flexdll-repo)) - @echo or by checking out the flexdll submodule with - @echo \ git submodule update --init - @false - -flexdll-repo: flexdll-common-err - @echo or by cloning the git repository - @echo \ git clone https://github.com/alainfrisch/flexdll.git - @echo + @if [ -d .git ]; then \ + echo or by checking out the flexdll submodule with; \ + echo \ git submodule update --init; \ + else \ + echo or by cloning the git repository; \ + echo \ git clone https://github.com/alainfrisch/flexdll.git; \ + fi @false # Bootstrapping FlexDLL - leaves a bytecode image of flexlink.exe in flexdll/ flexdll: flexdll/Makefile - cd byterun ; $(MAKEREC) BOOTSTRAPPING_FLEXLINK=yes ocamlrun$(EXE) + cd byterun && $(MAKEREC) BOOTSTRAPPING_FLEXLINK=yes ocamlrun$(EXE) cp byterun/ocamlrun.exe boot/ocamlrun.exe - cd stdlib ; $(MAKEREC) COMPILER=../boot/ocamlc stdlib.cma std_exit.cmo - cd stdlib ; cp stdlib.cma std_exit.cmo *.cmi ../boot - cd flexdll ; $(MAKECMD) MSVC_DETECT=0 TOOLCHAIN=$(TOOLCHAIN) TOOLPREF=$(TOOLPREF) CHAINS=$(FLEXDLL_CHAIN) NATDYNLINK=false OCAMLOPT="../boot/ocamlrun ../boot/ocamlc -I ../boot" flexlink.exe support - cd byterun ; $(MAKEREC) clean + cd stdlib && $(MAKEREC) COMPILER=../boot/ocamlc stdlib.cma std_exit.cmo + cd stdlib && cp stdlib.cma std_exit.cmo *.cmi ../boot + cd flexdll && \ + $(MAKECMD) MSVC_DETECT=0 TOOLCHAIN=$(TOOLCHAIN) TOOLPREF=$(TOOLPREF) \ + CHAINS=$(FLEXDLL_CHAIN) NATDYNLINK=false \ + OCAMLOPT="../boot/ocamlrun ../boot/ocamlc -I ../boot" \ + flexlink.exe support + cd byterun && $(MAKEREC) clean $(MAKEREC) partialclean flexlink.opt: - cd flexdll ; \ - mv flexlink.exe flexlink ; \ - $(MAKECMD) OCAML_FLEXLINK="../boot/ocamlrun ./flexlink" MSVC_DETECT=0 TOOLCHAIN=$(TOOLCHAIN) TOOLPREF=$(TOOLPREF) OCAMLOPT="../ocamlopt.opt -I ../stdlib" flexlink.exe ; \ - mv flexlink.exe flexlink.opt ; \ + cd flexdll && \ + mv flexlink.exe flexlink && \ + $(MAKECMD) OCAML_FLEXLINK="../boot/ocamlrun ./flexlink" MSVC_DETECT=0 \ + TOOLCHAIN=$(TOOLCHAIN) TOOLPREF=$(TOOLPREF) \ + OCAMLOPT="../ocamlopt.opt -I ../stdlib" flexlink.exe && \ + mv flexlink.exe flexlink.opt && \ mv flexlink flexlink.exe # Recompile the system using the bootstrap compiler @@ -150,7 +157,7 @@ compare: && $(CAMLRUN) tools/cmpbyt boot/ocamldep tools/ocamldep; \ then echo "Fixpoint reached, bootstrap succeeded."; \ else echo "Fixpoint not reached, try one more bootstrapping cycle."; \ - fi + fi # Remove old bootstrap compilers cleanboot: @@ -229,28 +236,36 @@ installbyt: install-flexdll: # The $(if ...) installs the correct .manifest file for MSVC and MSVC64 -# (GNU make doesn't have ifeq as a function, hence slightly convoluted use of filter-out) - cp flexdll/flexlink.exe $(if $(filter-out mingw,$(TOOLCHAIN)),flexdll/default$(filter-out _i386,_$(ARCH)).manifest) $(INSTALL_BINDIR)/ +# (GNU make doesn't have ifeq as a function, hence slightly convoluted use of +# filter-out) + cp flexdll/flexlink.exe \ + $(if $(filter-out mingw,$(TOOLCHAIN)),\ + flexdll/default$(filter-out _i386,_$(ARCH)).manifest) \ + $(INSTALL_BINDIR)/ cp flexdll/flexdll_*.$(O) $(INSTALL_LIBDIR) # Installation of the native-code compiler installopt: - cd asmrun ; $(MAKEREC) install + cd asmrun && $(MAKEREC) install cp ocamlopt "$(INSTALL_BINDIR)/ocamlopt.exe" - cd stdlib ; $(MAKEREC) installopt + cd stdlib && $(MAKEREC) installopt cp middle_end/*.cmi middle_end/*.cmt middle_end/*.cmti \ "$(INSTALL_COMPLIBDIR)" cp middle_end/base_types/*.cmi middle_end/base_types/*.cmt \ middle_end/base_types/*.cmti "$(INSTALL_COMPLIBDIR)" cp asmcomp/*.cmi asmcomp/*.cmt asmcomp/*.cmti "$(INSTALL_COMPLIBDIR)" cp compilerlibs/ocamloptcomp.cma $(OPTSTART) "$(INSTALL_COMPLIBDIR)" - if test -n "$(WITH_OCAMLDOC)"; then (cd ocamldoc; $(MAKEREC) installopt); fi + if test -n "$(WITH_OCAMLDOC)"; then \ + (cd ocamldoc && $(MAKEREC) installopt); \ + fi for i in $(OTHERLIBRARIES); do \ $(MAKEREC) -C otherlibs/$$i installopt || exit $$?; \ done if test -f ocamlopt.opt ; then $(MAKEREC) installoptopt; fi cd tools; $(MAKEREC) installopt - if test -f ocamlopt.opt -a -f flexdll/flexlink.opt ; then cp -f flexdll/flexlink.opt $(INSTALL_BINDIR)/flexlink.exe ; fi + if test -f ocamlopt.opt -a -f flexdll/flexlink.opt ; then \ + cp -f flexdll/flexlink.opt $(INSTALL_BINDIR)/flexlink.exe ; \ + fi installoptopt: cp ocamlc.opt "$(INSTALL_BINDIR)/ocamlc.opt$(EXE)" @@ -441,7 +456,8 @@ ocamlopt.opt: compilerlibs/ocamlcommon.cmxa compilerlibs/ocamloptcomp.cmxa \ partialclean:: rm -f ocamlopt.opt -$(COMMON:.cmo=.cmx) $(BYTECOMP:.cmo=.cmx) $(MIDDLE_END:.cmo=.cmx) $(ASMCOMP:.cmo=.cmx): ocamlopt +$(COMMON:.cmo=.cmx) $(BYTECOMP:.cmo=.cmx) $(MIDDLE_END:.cmo=.cmx) \ +$(ASMCOMP:.cmo=.cmx): ocamlopt # The numeric opcodes diff --git a/Makefile.shared b/Makefile.shared index d39ba2535..14d334a1b 100755 --- a/Makefile.shared +++ b/Makefile.shared @@ -19,8 +19,8 @@ include stdlib/StdlibModules CAMLC=$(CAMLRUN) boot/ocamlc -g -nostdlib -I boot CAMLOPT=$(CAMLRUN) ./ocamlopt -g -nostdlib -I stdlib -I otherlibs/dynlink -COMPFLAGS=-strict-sequence -principal -w +33..39+48+50 -warn-error A -bin-annot \ - -safe-string -strict-formats $(INCLUDES) +COMPFLAGS=-strict-sequence -principal -w +33..39+48+50 -warn-error A \ + -bin-annot -safe-string -strict-formats $(INCLUDES) LINKFLAGS= YACCFLAGS=-v @@ -234,4 +234,3 @@ partialclean:: alldepend:: cd tools; $(MAKEREC) depend - diff --git a/README.adoc b/README.adoc index 6db54cc2c..cc4f67bf6 100644 --- a/README.adoc +++ b/README.adoc @@ -60,7 +60,7 @@ renaming of standard library functions. config/:: autoconfiguration stuff debugger/:: source-level replay debugger driver/:: driver code for the compilers - emacs/:: OCaml editing mode and debugger interface for GNU Emacs + emacs/:: editing mode and debugger interface for GNU Emacs lex/:: lexer generator maccaml/:: the Macintosh GUI ocamldoc/:: documentation generator diff --git a/README.win32.adoc b/README.win32.adoc index 548fc4911..696f868ae 100644 --- a/README.win32.adoc +++ b/README.win32.adoc @@ -87,15 +87,16 @@ for Windows. You will need the following software components to perform the recompilation: - Windows NT, 2000, XP, Vista, or 7 (32 or 64 bits). -- Items <> and <> from the list of recommended software above. +- Items <> and <> from the list of recommended software + above. - The Cygwin port of GNU tools, available from http://www.cygwin.com/ Install at least the following packages (and their dependencies): diffutils, dos2unix, gcc-core, make, ncurses. First, you need to set up your cygwin environment for using the MS -tools. The following assumes that you have installed <>, <>, and [3] -in their default directories. If this is not the case, you will need -to adjust the paths accordingly. +tools. The following assumes that you have installed <>, +<>, and [3] in their default directories. If this is not +the case, you will need to adjust the paths accordingly. . Open a Windows Command Prompt and enter the following command: @@ -408,14 +409,15 @@ for Windows. You will need the following software components to perform the recompilation: - Windows XP 64, Windows Server 64, or Windows 7 64. -- Items <> and <> from the list of recommended software above. +- Items <> and <> from the list of + recommended software above. - The Cygwin port of GNU tools, available from http://www.cygwin.com/ Install at least the following packages: diffutils, make, ncurses. First, you need to set up your cygwin environment for using the MS -tools. The following assumes that you have installed <> and <> -in their default directories. If this is not the case, you will need -to adjust the paths accordingly. +tools. The following assumes that you have installed <> +and <> in their default directories. If this is not +the case, you will need to adjust the paths accordingly. . Open a Windows Command Prompt and enter the following commands: diff --git a/asmcomp/amd64/NOTES.md b/asmcomp/amd64/NOTES.md index 3841f45f9..b0adc6985 100644 --- a/asmcomp/amd64/NOTES.md +++ b/asmcomp/amd64/NOTES.md @@ -19,4 +19,3 @@ Debian architecture name: `amd64` _OS X ABI Function Call Guide: x86-64 Function Calling Conventions_ * Windows 64 application binary interface: _x64 Software Conventions_ from MSDN - diff --git a/asmcomp/arm/NOTES.md b/asmcomp/arm/NOTES.md index 9cb2ac4e6..7a8ae671b 100644 --- a/asmcomp/arm/NOTES.md +++ b/asmcomp/arm/NOTES.md @@ -18,4 +18,3 @@ Debian architecture names: `armel` and `armhf`. _ARM Architecture Reference Manual, ARMv8_, restricted to the AArch32 subset. * Application binary interface: _Procedure Call Standard for the ARM Architecture_ - diff --git a/asmcomp/i386/NOTES.md b/asmcomp/i386/NOTES.md index 2af7eccdf..6f1e18397 100644 --- a/asmcomp/i386/NOTES.md +++ b/asmcomp/i386/NOTES.md @@ -20,8 +20,3 @@ Debian architecture name: `i386` Intel386 Architecture Processor Supplement_ * MacOS X application binary interface: _OS X ABI Function Call Guide: IA-32 Function Calling Conventions_ - - - - - diff --git a/asmcomp/power/NOTES.md b/asmcomp/power/NOTES.md index 512368091..d54c08691 100644 --- a/asmcomp/power/NOTES.md +++ b/asmcomp/power/NOTES.md @@ -10,13 +10,13 @@ No longer supported: AIX and MacOS X. # Reference documents * Instruction set architecture: - _PowerPC User Instruction Set Architecture_, + _PowerPC User Instruction Set Architecture_, book 1 of _PowerPC Architecture Book_ - (http://www.ibm.com/developerworks/systems/library/es-archguide-v2.html). + (http://www.ibm.com/developerworks/systems/library/es-archguide-v2.html). * ELF ABI 32 bits: - _System V Application Binary Interface, PowerPC Processor Supplement_ + _System V Application Binary Interface, PowerPC Processor Supplement_ * ELF ABI 64 bits version 1: - _64-bit PowerPC ELF Application Binary Interface Supplement_ + _64-bit PowerPC ELF Application Binary Interface Supplement_ (http://refspecs.linuxfoundation.org/ELF/ppc64/PPC-elf64abi.html) * ELF ABI 64 bits version 2: _Power Architecture 64-bit ELF V2 ABI Specification, @@ -24,4 +24,3 @@ No longer supported: AIX and MacOS X. (http://openpowerfoundation.org/technical/technical-resources/technical-specifications/) * _The PowerPC Compiler Writer's Guide_, Warthman Associates, 1996. (PDF available from various sources on the Web.) - diff --git a/asmcomp/s390x/NOTES.md b/asmcomp/s390x/NOTES.md index 7c1d55bf8..679e77f28 100644 --- a/asmcomp/s390x/NOTES.md +++ b/asmcomp/s390x/NOTES.md @@ -6,7 +6,7 @@ running Linux (Debian architecture: `s390x`). # Reference documents * Instruction set architecture: - _z/Architecture Principles of Operation_, + _z/Architecture Principles of Operation_, SA22-7832-07, eight edition (Feb 2009). This is the version that corresponds to z10. Newer versions of this manual include additional instructions @@ -14,6 +14,3 @@ running Linux (Debian architecture: `s390x`). * ELF ABI: _zSeries ELF Application Binary Interface Supplement_ (http://refspecs.linuxfoundation.org/ELF/zSeries/index.html) - - - diff --git a/asmcomp/sparc/NOTES.md b/asmcomp/sparc/NOTES.md index ab04deed1..18c3db4a9 100644 --- a/asmcomp/sparc/NOTES.md +++ b/asmcomp/sparc/NOTES.md @@ -15,7 +15,3 @@ Status of this port: nearly abandoned * ELF application binary interface: _System V Application Binary Interface, SPARC Processor Supplement_ - - - - diff --git a/asmrun/amd64.S b/asmrun/amd64.S index 78aa372a5..aaa7fcde8 100644 --- a/asmrun/amd64.S +++ b/asmrun/amd64.S @@ -189,7 +189,8 @@ #define PUSH_CALLEE_SAVE_REGS \ pushq %rbx; CFI_ADJUST (8); CFI_OFFSET(rbx, -16); \ - pushq %rbp; CFI_ADJUST (8); CFI_OFFSET(rbp, -24); /* Allows debugger to walk the stack */ \ + pushq %rbp; CFI_ADJUST (8); CFI_OFFSET(rbp, -24); \ + /* Allows debugger to walk the stack */ \ pushq %rsi; CFI_ADJUST (8); CFI_OFFSET(rsi, -32); \ pushq %rdi; CFI_ADJUST (8); CFI_OFFSET(rdi, -40); \ pushq %r12; CFI_ADJUST (8); CFI_OFFSET(r12, -48); \ diff --git a/asmrun/arm.S b/asmrun/arm.S index 9200da2e0..44e58bd71 100644 --- a/asmrun/arm.S +++ b/asmrun/arm.S @@ -93,7 +93,9 @@ alloc_limit .req r11 /* Support for profiling with gprof */ -#if defined(PROFILING) && (defined(SYS_linux_eabihf) || defined(SYS_linux_eabi) || defined(SYS_netbsd)) +#if defined(PROFILING) && (defined(SYS_linux_eabihf) \ + || defined(SYS_linux_eabi) \ + || defined(SYS_netbsd)) #define PROFILE \ push {lr}; CFI_ADJUST(4); \ bl __gnu_mcount_nc; CFI_ADJUST(-4) diff --git a/asmrun/s390x.S b/asmrun/s390x.S index baff0eb42..7d141f62d 100644 --- a/asmrun/s390x.S +++ b/asmrun/s390x.S @@ -36,14 +36,14 @@ caml_system__code_begin: caml_call_gc: /* Set up stack frame */ #define FRAMESIZE (16*8 + 16*8) - lay %r15, -FRAMESIZE(%r15) + lay %r15, -FRAMESIZE(%r15) /* Record return address into OCaml code */ Storeglobal(%r14, caml_last_return_address) /* Record lowest stack address */ - lay %r0, FRAMESIZE(%r15) + lay %r0, FRAMESIZE(%r15) Storeglobal(%r0, caml_bottom_of_stack) /* Record pointer to register array */ - lay %r0, (8*16)(%r15) + lay %r0, (8*16)(%r15) Storeglobal(%r0, caml_gc_regs) /* Save current allocation pointer for debugging purposes */ Storeglobal(%r11, caml_young_ptr) @@ -51,7 +51,7 @@ caml_call_gc: Storeglobal(%r13, caml_exception_pointer) /* Save all registers used by the code generator */ stmg %r2,%r9, (8*16)(%r15) - stg %r12, (8*16 + 8*8)(%r15) + stg %r12, (8*16 + 8*8)(%r15) std %f0, 0(%r15) std %f1, 8(%r15) std %f2, 16(%r15) @@ -78,7 +78,7 @@ caml_call_gc: Loadglobal(%r10, caml_young_limit) /* Restore all regs used by the code generator */ lmg %r2,%r9, (8*16)(%r15) - lg %r12, (8*16 + 8*8)(%r15) + lg %r12, (8*16 + 8*8)(%r15) ld %f0, 0(%r15) ld %f1, 8(%r15) ld %f2, 16(%r15) @@ -98,7 +98,7 @@ caml_call_gc: /* Return to caller */ Loadglobal(%r1, caml_last_return_address) /* Deallocate stack frame */ - lay %r15, FRAMESIZE(%r15) + lay %r15, FRAMESIZE(%r15) /* Return */ br %r1 @@ -109,7 +109,7 @@ caml_call_gc: caml_c_call: Storeglobal(%r15, caml_bottom_of_stack) /* Save return address */ - ldgr %f15, %r14 + ldgr %f15, %r14 /* Get ready to call C function (address in r7) */ /* Record lowest stack address and return address */ Storeglobal(%r14, caml_last_return_address) @@ -119,7 +119,7 @@ caml_c_call: /* Call the function */ basr %r14, %r7 /* restore return address */ - lgdr %r14,%f15 + lgdr %r14,%f15 /* Reload allocation pointer and allocation limit*/ Loadglobal(%r11, caml_young_ptr) Loadglobal(%r10, caml_young_limit) @@ -135,36 +135,36 @@ caml_c_call: .type caml_raise_exn, @function caml_raise_exn: Loadglobal32(%r0, caml_backtrace_active) - cgfi %r0, 0 + cgfi %r0, 0 jne .L110 .L111: /* Pop trap frame */ - lg %r1, 0(%r13) + lg %r1, 0(%r13) lgr %r15, %r13 lg %r13, 8(13) agfi %r15, 16 /* Branch to handler */ - br %r1 + br %r1 .L110: lgfi %r0, 0 Storeglobal32(%r0, caml_backtrace_pos) .L114: - ldgr %f15, %r2 /* preserve exn bucket in callee-save reg */ + ldgr %f15, %r2 /* preserve exn bucket in callee-save reg */ /* arg1: exception bucket, already in r3 */ lgr %r3,%r14 /* arg2: PC of raise */ lgr %r4, %r15 /* arg3: SP of raise */ lgr %r5, %r13 /* arg4: SP of handler */ agfi %r15, -160 /* reserve stack space for C call */ brasl %r14, caml_stash_backtrace@PLT - agfi %r15, 160 - lgdr %r2,%f15 /* restore exn bucket */ + agfi %r15, 160 + lgdr %r2,%f15 /* restore exn bucket */ j .L111 /* raise the exn */ .globl caml_reraise_exn .type caml_reraise_exn, @function caml_reraise_exn: Loadglobal32(%r0, caml_backtrace_active) - cgfi %r0, 0 + cgfi %r0, 0 jne .L114 /* Pop trap frame */ lg %r1, 0(%r13) @@ -180,7 +180,7 @@ caml_reraise_exn: .type caml_raise_exception, @function caml_raise_exception: Loadglobal32(0, caml_backtrace_active) - cgfi %r0, 0 + cgfi %r0, 0 jne .L112 .L113: /* Reload OCaml global registers */ @@ -191,13 +191,13 @@ caml_raise_exception: lgfi %r0, 0 Storeglobal(%r0, caml_last_return_address) /* Pop trap frame */ - lg %r1, 0(%r15) - lg %r13, 8(%r15) - agfi %r15, 16 + lg %r1, 0(%r15) + lg %r13, 8(%r15) + agfi %r15, 16 /* Branch to handler */ - br %r1; + br %r1; .L112: - ldgr %f15,%r2 /* preserve exn bucket in callee-save reg */ + ldgr %f15,%r2 /* preserve exn bucket in callee-save reg */ /* arg1: exception bucket, already in r2 */ Loadglobal(%r3, caml_last_return_address) /* arg2: PC of raise */ Loadglobal(%r4, caml_bottom_of_stack) /* arg3: SP of raise */ @@ -206,7 +206,7 @@ caml_raise_exception: lay %r15, -160(%r15) brasl %r14, caml_stash_backtrace@PLT lay %r15, 160(%r15) - lgdr %r2,%f15 /* restore exn bucket */ /* restore exn bucket */ + lgdr %r2,%f15 /* restore exn bucket */ j .L113 /* raise the exn */ /* Start the OCaml program */ @@ -219,7 +219,7 @@ caml_start_program: /* Code shared between caml_start_program and caml_callback */ .L102: /* Allocate stack frame */ - lay %r15, -144(%r15) + lay %r15, -144(%r15) /* Save all callee-save registers + return address */ /* GPR 6..14 at sp + 0 ... sp + 64 FPR 10..15 at sp + 72 ... sp + 128 */ @@ -245,7 +245,7 @@ caml_start_program: brasl %r14, .L103 j .L104 .L103: - lay %r15, -16(%r15) + lay %r15, -16(%r15) stg %r14, 0(%r15) Loadglobal(%r1, caml_exception_pointer) stg %r1, 8(%r15) @@ -260,7 +260,7 @@ caml_start_program: /* Pop the trap frame, restoring caml_exception_pointer */ lg %r0, 8(%r15) Storeglobal(%r0, caml_exception_pointer) - la %r15, 16(%r15) + la %r15, 16(%r15) /* Pop the callback link, restoring the global variables */ .L106: lg %r5, 0(%r15) @@ -269,12 +269,12 @@ caml_start_program: Storeglobal(%r5, caml_bottom_of_stack) Storeglobal(%r6, caml_last_return_address) Storeglobal(%r1, caml_gc_regs) - la %r15, 32(%r15) + la %r15, 32(%r15) /* Update allocation pointer */ Storeglobal(%r11, caml_young_ptr) - /* Restore registers */ + /* Restore registers */ lmg %r6,%r14, 0(%r15) ld %f8, 72(%r15) ld %f9, 80(%r15) @@ -286,8 +286,8 @@ caml_start_program: ld %f15, 128(%r15) /* Return */ - lay %r15, 144(%r15) - br %r14 + lay %r15, 144(%r15) + br %r14 /* The trap handler: */ .L104: @@ -330,12 +330,12 @@ caml_callback3_exn: Addrglobal(%r0, caml_apply3) j .L102 - .globl caml_ml_array_bound_error - .type caml_ml_array_bound_error, @function + .globl caml_ml_array_bound_error + .type caml_ml_array_bound_error, @function caml_ml_array_bound_error: - lay %r15, -160(%r15) /* Reserve stack space for C call */ - larl %r7, caml_array_bound_error - j caml_c_call + lay %r15, -160(%r15) /* Reserve stack space for C call */ + larl %r7, caml_array_bound_error + j caml_c_call .globl caml_system__code_end caml_system__code_end: @@ -350,7 +350,7 @@ caml_system__frametable: .quad .L105 /* return address into callback */ .short -1 /* negative size count => use callback link */ .short 0 /* no roots here */ - .align 8 + .align 8 /* Mark stack as non-executable */ .section .note.GNU-stack,"",%progbits diff --git a/asmrun/signals_asm.c b/asmrun/signals_asm.c index a0b71b63a..dde84bc19 100644 --- a/asmrun/signals_asm.c +++ b/asmrun/signals_asm.c @@ -145,7 +145,9 @@ int caml_set_signal_action(int signo, int action) /* Machine- and OS-dependent handling of bound check trap */ -#if defined(TARGET_power) || defined(TARGET_s390x) || (defined(TARGET_sparc) && defined(SYS_solaris)) +#if defined(TARGET_power) \ + || defined(TARGET_s390x) \ + || (defined(TARGET_sparc) && defined(SYS_solaris)) DECLARE_SIGNAL_HANDLER(trap_handler) { #if defined(SYS_solaris) diff --git a/asmrun/signals_osdep.h b/asmrun/signals_osdep.h index 03cdb87a9..89fb01c75 100644 --- a/asmrun/signals_osdep.h +++ b/asmrun/signals_osdep.h @@ -283,7 +283,7 @@ #define CONTEXT_YOUNG_LIMIT (context->regs->gpr[30]) #define CONTEXT_YOUNG_PTR (context->regs->gpr[31]) #define CONTEXT_SP (context->regs->gpr[1]) - + /****************** s390x, ELF (Linux) */ #elif defined(TARGET_s390x) && defined(SYS_elf) diff --git a/bytecomp/bytegen.ml b/bytecomp/bytegen.ml index 810711581..6e0462265 100644 --- a/bytecomp/bytegen.ml +++ b/bytecomp/bytegen.ml @@ -647,7 +647,7 @@ let rec comp_expr env exp sz cont = (Kmakeblock(List.length args, 0) :: Kccall("caml_make_array", 1) :: cont) end - | Lprim (Pduparray (kind, mutability), [Lprim (Pmakearray (kind', _), args)]) -> + | Lprim (Pduparray (kind, mutability), [Lprim (Pmakearray (kind',_),args)]) -> assert (kind = kind'); comp_expr env (Lprim (Pmakearray (kind, mutability), args)) sz cont | Lprim (Pduparray _, [arg]) -> diff --git a/bytecomp/lambda.ml b/bytecomp/lambda.ml index 692bc27fa..7feb65d88 100644 --- a/bytecomp/lambda.ml +++ b/bytecomp/lambda.ml @@ -525,7 +525,8 @@ let subst_lambda s lam = begin try Ident.find_same id s with Not_found -> l end | Lconst sc as l -> l | Lapply ap -> - Lapply{ap with ap_func = subst ap.ap_func; ap_args = List.map subst ap.ap_args} + Lapply{ap with ap_func = subst ap.ap_func; + ap_args = List.map subst ap.ap_args} | Lfunction{kind; params; body; attr} -> Lfunction{kind; params; body = subst body; attr} | Llet(str, id, arg, body) -> Llet(str, id, subst arg, subst body) diff --git a/bytecomp/matching.ml b/bytecomp/matching.ml index fd66aa6b5..176792ec6 100644 --- a/bytecomp/matching.ml +++ b/bytecomp/matching.ml @@ -2980,7 +2980,8 @@ let rec map_return f = function | Lsequence (l1, l2) -> Lsequence (l1, map_return f l2) | Levent (l, ev) -> Levent (map_return f l, ev) | Ltrywith (l1, id, l2) -> Ltrywith (map_return f l1, id, map_return f l2) - | Lstaticcatch (l1, b, l2) -> Lstaticcatch (map_return f l1, b, map_return f l2) + | Lstaticcatch (l1, b, l2) -> + Lstaticcatch (map_return f l1, b, map_return f l2) | Lstaticraise _ | Lprim(Praise _, _) as l -> l | l -> f l diff --git a/bytecomp/simplif.ml b/bytecomp/simplif.ml index d31cc0f48..72af187b9 100644 --- a/bytecomp/simplif.ml +++ b/bytecomp/simplif.ml @@ -355,7 +355,8 @@ let simplify_lets lam = | Lapply{ap_func = Lfunction{kind = Curried; params; body}; ap_args = args} when optimize && List.length params = List.length args -> count bv (beta_reduce params body args) - | Lapply{ap_func = Lfunction{kind = Tupled; params; body}; ap_args = [Lprim(Pmakeblock _, args)]} + | Lapply{ap_func = Lfunction{kind = Tupled; params; body}; + ap_args = [Lprim(Pmakeblock _, args)]} when optimize && List.length params = List.length args -> count bv (beta_reduce params body args) | Lapply{ap_func = l1; ap_args = ll} -> @@ -447,10 +448,12 @@ let simplify_lets lam = | Lapply{ap_func = Lfunction{kind = Curried; params; body}; ap_args = args} when optimize && List.length params = List.length args -> simplif (beta_reduce params body args) - | Lapply{ap_func = Lfunction{kind = Tupled; params; body}; ap_args = [Lprim(Pmakeblock _, args)]} + | Lapply{ap_func = Lfunction{kind = Tupled; params; body}; + ap_args = [Lprim(Pmakeblock _, args)]} when optimize && List.length params = List.length args -> simplif (beta_reduce params body args) - | Lapply ap -> Lapply {ap with ap_func = simplif ap.ap_func; ap_args = List.map simplif ap.ap_args} + | Lapply ap -> Lapply {ap with ap_func = simplif ap.ap_func; + ap_args = List.map simplif ap.ap_args} | Lfunction{kind; params; body = l; attr} -> begin match simplif l with Lfunction{kind=Curried; params=params'; body; attr} diff --git a/bytecomp/translclass.ml b/bytecomp/translclass.ml index 807c1d358..84a9eb5fe 100644 --- a/bytecomp/translclass.ml +++ b/bytecomp/translclass.ml @@ -29,7 +29,9 @@ let lfunction params body = | Lfunction {kind = Curried; params = params'; body = body'; attr} -> Lfunction {kind = Curried; params = params @ params'; body = body'; attr} | _ -> - Lfunction {kind = Curried; params; body; attr = default_function_attribute} + Lfunction {kind = Curried; params; + body; + attr = default_function_attribute} let lapply ap = match ap.ap_func with @@ -601,7 +603,8 @@ open M obj_init: creation function (unit -> obj) class_init: inheritance function (table -> env_init) (one by source code) - env_init: parameterisation by the local environment (env -> params -> obj_init) + env_init: parameterisation by the local environment + (env -> params -> obj_init) (one for each combination of inherited class_init ) env: environnement local If ids=0 (immediate object), then only env_init is conserved. diff --git a/bytecomp/translcore.ml b/bytecomp/translcore.ml index 274ae8bd2..2d83e3985 100644 --- a/bytecomp/translcore.ml +++ b/bytecomp/translcore.ml @@ -874,11 +874,12 @@ and transl_exp0 e = because [caml_modify] might be called upon them (e.g. from code operating on polymorphic arrays, or functions such as [caml_array_blit]. - To avoid having different Lambda code for bytecode/Closure vs. - Flambda, we always generate [Pduparray] here, and deal with it in - [Bytegen] (or in the case of Closure, in [Cmmgen], which already - has to handle [Pduparray Pmakearray Pfloatarray] in the case where - the array turned out to be inconstant). + To avoid having different Lambda code for + bytecode/Closure vs. Flambda, we always generate + [Pduparray] here, and deal with it in [Bytegen] (or in + the case of Closure, in [Cmmgen], which already has to + handle [Pduparray Pmakearray Pfloatarray] in the case + where the array turned out to be inconstant). When not [Pfloatarray], the exception propagates to the handler below. *) let imm_array = Lprim (Pmakearray (kind, Immutable), ll) in @@ -891,7 +892,7 @@ and transl_exp0 e = | Pfloatarray -> Lconst(Const_float_array(List.map extract_float cl)) | Pgenarray -> - raise Not_constant (* can this really happen? *) + raise Not_constant (* can this really happen? *) in Lprim (Pduparray (kind, Mutable), [imm_array]) end @@ -1122,7 +1123,10 @@ and transl_apply ?(should_be_tailcall=false) ?(inlined = Default_inline) | [] -> lapply lam (List.rev_map fst args) in - (build_apply lam [] (List.map (fun (l, x) -> may_map transl_exp x, Btype.is_optional l) sargs) : Lambda.lambda) + (build_apply lam [] (List.map (fun (l, x) -> + may_map transl_exp x, Btype.is_optional l) + sargs) + : Lambda.lambda) and transl_function loc untuplify_fn repr partial cases = match cases with diff --git a/bytecomp/translmod.ml b/bytecomp/translmod.ml index 2c65ca03e..c65c7f4c3 100644 --- a/bytecomp/translmod.ml +++ b/bytecomp/translmod.ml @@ -98,7 +98,8 @@ let rec apply_coercion strict restr arg = (Lapply{ap_should_be_tailcall=false; ap_loc=Location.none; ap_func=Lvar id; - ap_args=[apply_coercion Alias cc_arg (Lvar param)]; + ap_args=[apply_coercion Alias cc_arg + (Lvar param)]; ap_inlined=Default_inline; ap_specialised=Default_specialise})}) | Tcoerce_primitive { pc_loc; pc_desc; pc_env; pc_type; } -> @@ -383,7 +384,8 @@ let rec transl_module cc rootpath mexp = specialise = Default_specialise; is_a_functor = true }; body = Llet(Alias, param, - apply_coercion Alias ccarg (Lvar param'), + apply_coercion Alias ccarg + (Lvar param'), transl_module ccres bodypath body)} | _ -> fatal_error "Translmod.transl_module") @@ -493,7 +495,8 @@ and transl_structure fields cc rootpath final_env = function transl_module Tcoerce_none (field_path rootpath id) mb.mb_expr in let module_body = - Translattribute.add_inline_attribute module_body mb.mb_loc mb.mb_attributes + Translattribute.add_inline_attribute module_body mb.mb_loc + mb.mb_attributes in Llet(pure_module mb.mb_expr, id, module_body, @@ -527,7 +530,9 @@ and transl_structure fields cc rootpath final_env = function [] -> transl_structure newfields cc rootpath final_env rem | id :: ids -> - let body, size = rebind_idents (pos + 1) (id :: newfields) ids in + let body, size = + rebind_idents (pos + 1) (id :: newfields) ids + in Llet(Alias, id, Lprim(Pfield pos, [Lvar mid]), body), size in let body, size = rebind_idents 0 fields ids in @@ -650,7 +655,9 @@ let rec more_idents = function | Tstr_class_type cl_list -> more_idents rem | Tstr_include _ -> more_idents rem | Tstr_module {mb_expr={mod_desc = Tmod_structure str}} - | Tstr_module{mb_expr={mod_desc = Tmod_constraint ({mod_desc = Tmod_structure str}, _, _, _)}} -> + | Tstr_module{mb_expr={mod_desc = + Tmod_constraint ({mod_desc = Tmod_structure str}, + _, _, _)}} -> all_idents str.str_items @ more_idents rem | Tstr_module _ -> more_idents rem | Tstr_attribute _ -> more_idents rem @@ -678,7 +685,10 @@ and all_idents = function | Tstr_include incl -> bound_value_identifiers incl.incl_type @ all_idents rem | Tstr_module {mb_id;mb_expr={mod_desc = Tmod_structure str}} - | Tstr_module{mb_id; mb_expr={mod_desc = Tmod_constraint ({mod_desc = Tmod_structure str}, _, _, _)}} -> + | Tstr_module{mb_id; + mb_expr={mod_desc = + Tmod_constraint ({mod_desc = Tmod_structure str}, + _, _, _)}} -> mb_id :: all_idents str.str_items @ all_idents rem | Tstr_module mb -> mb.mb_id :: all_idents rem | Tstr_attribute _ -> all_idents rem @@ -725,9 +735,12 @@ let transl_store_structure glob map prims str = | Tstr_type(_, decls) -> transl_store rootpath subst rem | Tstr_typext(tyext) -> - let ids = List.map (fun ext -> ext.ext_id) tyext.tyext_constructors in + let ids = + List.map (fun ext -> ext.ext_id) tyext.tyext_constructors + in let lam = - transl_type_extension item.str_env rootpath tyext (store_idents ids) + transl_type_extension item.str_env rootpath tyext + (store_idents ids) in Lsequence(subst_lambda subst lam, transl_store rootpath (add_idents false ids subst) rem) @@ -742,7 +755,9 @@ let transl_store_structure glob map prims str = mb_attributes} -> List.iter (Translattribute.check_attribute_on_module mexp) mb_attributes; - let lam = transl_store (field_path rootpath id) subst str.str_items in + let lam = + transl_store (field_path rootpath id) subst str.str_items + in (* Careful: see next case *) let subst = !transl_store_subst in Lsequence(lam, @@ -752,8 +767,9 @@ let transl_store_structure glob map prims str = List.map (fun id -> Lvar id) (defined_idents str.str_items))), Lsequence(store_ident id, - transl_store rootpath (add_ident true id subst) - rem))) + transl_store rootpath + (add_ident true id subst) + rem))) | Tstr_module{ mb_id=id; mb_expr= { @@ -762,10 +778,13 @@ let transl_store_structure glob map prims str = (Tcoerce_structure (map, _) as _cc))}; mb_attributes } -> - (* Format.printf "coerc id %s: %a@." (Ident.unique_name id) Includemod.print_coercion cc; *) + (* Format.printf "coerc id %s: %a@." (Ident.unique_name id) + Includemod.print_coercion cc; *) List.iter (Translattribute.check_attribute_on_module mexp) mb_attributes; - let lam = transl_store (field_path rootpath id) subst str.str_items in + let lam = + transl_store (field_path rootpath id) subst str.str_items + in (* Careful: see next case *) let subst = !transl_store_subst in let ids = Array.of_list (defined_idents str.str_items) in @@ -781,8 +800,9 @@ let transl_store_structure glob map prims str = (Lprim(Pmakeblock(0, Immutable), List.map field map)), Lsequence(store_ident id, - transl_store rootpath (add_ident true id subst) - rem))) + transl_store rootpath + (add_ident true id subst) + rem))) | Tstr_module{mb_id=id; mb_expr=modl; mb_loc; mb_attributes} -> let lam = Translattribute.add_inline_attribute @@ -955,7 +975,8 @@ let toplevel_name id = let toploop_getvalue id = Lapply{ap_should_be_tailcall=false; ap_loc=Location.none; - ap_func=Lprim(Pfield toploop_getvalue_pos, [Lprim(Pgetglobal toploop_ident, [])]); + ap_func=Lprim(Pfield toploop_getvalue_pos, + [Lprim(Pgetglobal toploop_ident, [])]); ap_args=[Lconst(Const_base(Const_string (toplevel_name id, None)))]; ap_inlined=Default_inline; ap_specialised=Default_specialise} @@ -963,8 +984,10 @@ let toploop_getvalue id = let toploop_setvalue id lam = Lapply{ap_should_be_tailcall=false; ap_loc=Location.none; - ap_func=Lprim(Pfield toploop_setvalue_pos, [Lprim(Pgetglobal toploop_ident, [])]); - ap_args=[Lconst(Const_base(Const_string (toplevel_name id, None))); lam]; + ap_func=Lprim(Pfield toploop_setvalue_pos, + [Lprim(Pgetglobal toploop_ident, [])]); + ap_args=[Lconst(Const_base(Const_string (toplevel_name id, None))); + lam]; ap_inlined=Default_inline; ap_specialised=Default_specialise} diff --git a/bytecomp/typeopt.mli b/bytecomp/typeopt.mli index 101671bb2..1721a6a81 100644 --- a/bytecomp/typeopt.mli +++ b/bytecomp/typeopt.mli @@ -26,4 +26,3 @@ val array_kind : Typedtree.expression -> Lambda.array_kind val array_pattern_kind : Typedtree.pattern -> Lambda.array_kind val bigarray_type_kind_and_layout : Env.t -> Types.type_expr -> Lambda.bigarray_kind * Lambda.bigarray_layout - diff --git a/byterun/extern.c b/byterun/extern.c index 03c0c2956..aa6c095dd 100644 --- a/byterun/extern.c +++ b/byterun/extern.c @@ -710,14 +710,14 @@ CAMLexport intnat caml_output_value_to_block(value v, value flags, char header[32]; int header_len; intnat data_len; - /* At this point we don't know the size of the header. + /* At this point we don't know the size of the header. Guess that it is small, and fix up later if not. */ extern_userprovided_output = buf + 20; extern_ptr = extern_userprovided_output; extern_limit = buf + len; data_len = extern_value(v, flags, header, &header_len); if (header_len != 20) { - /* Bad guess! Need to shift the output to make room for big header. + /* Bad guess! Need to shift the output to make room for big header. Make sure there is room. */ if (header_len + data_len > len) caml_failwith("Marshal.to_buffer: buffer overflow"); @@ -739,7 +739,7 @@ CAMLprim value caml_output_value_to_buffer(value buf, value ofs, value len, CAMLexport void caml_output_value_to_malloc(value v, value flags, /*out*/ char ** buf, /*out*/ intnat * len) -{ +{ char header[32]; int header_len; intnat data_len; diff --git a/byterun/floats.c b/byterun/floats.c index 3682ad965..33e8c14e4 100644 --- a/byterun/floats.c +++ b/byterun/floats.c @@ -240,7 +240,7 @@ static int caml_float_of_hex(const char * s, double * res) } } /* Convert mantissa to FP. We use a signed conversion because we can - (m has 60 bits at most) and because it is faster + (m has 60 bits at most) and because it is faster on several architectures. */ f = (double) (int64_t) m; /* Adjust exponent to take decimal point and extra digits into account */ @@ -265,7 +265,7 @@ CAMLprim value caml_float_of_string(value vs) src = String_val(vs); sign = 1; if (*src == '-') { sign = -1; src++; } - else if (*src == '+') { src++; }; + else if (*src == '+') { src++; }; if (src[0] == '0' && (src[1] == 'x' || src[1] == 'X')) { if (caml_float_of_hex(src + 2, &d) == -1) caml_failwith("float_of_string"); diff --git a/byterun/intern.c b/byterun/intern.c index 58ddcd6e0..eb9fda9cf 100644 --- a/byterun/intern.c +++ b/byterun/intern.c @@ -671,7 +671,7 @@ static void caml_parse_header(char * fun_name, h->whsize = read64u(); #else errmsg[sizeof(errmsg) - 1] = 0; - snprintf(errmsg, sizeof(errmsg) - 1, + snprintf(errmsg, sizeof(errmsg) - 1, "%s: object too large to be read back on a 32-bit platform", fun_name); caml_failwith(errmsg); @@ -679,7 +679,7 @@ static void caml_parse_header(char * fun_name, break; default: errmsg[sizeof(errmsg) - 1] = 0; - snprintf(errmsg, sizeof(errmsg) - 1, + snprintf(errmsg, sizeof(errmsg) - 1, "%s: bad object", fun_name); caml_failwith(errmsg); @@ -811,7 +811,7 @@ CAMLexport value caml_input_value_from_block(char * data, intnat len) result is a [value] that represents a number of bytes To handle both the small and the big format, we assume 20 bytes are available at [buff + ofs], - and we return the data size + the length of the part of the header + and we return the data size + the length of the part of the header that remains to be read. */ CAMLprim value caml_marshal_data_size(value buff, value ofs) diff --git a/byterun/io.c b/byterun/io.c index 9fe28b051..8622aac66 100644 --- a/byterun/io.c +++ b/byterun/io.c @@ -162,7 +162,7 @@ CAMLexport int caml_flush_partial(struct channel *channel) CAMLassert (towrite >= 0); if (towrite > 0) { written = caml_write_fd(channel->fd, channel->flags, - channel->buff, towrite); + channel->buff, towrite); channel->offset += written; if (written < towrite) memmove(channel->buff, channel->buff + written, towrite - written); @@ -207,7 +207,7 @@ CAMLexport int caml_putblock(struct channel *channel, char *p, intnat len) memmove(channel->curr, p, free); towrite = channel->end - channel->buff; written = caml_write_fd(channel->fd, channel->flags, - channel->buff, towrite); + channel->buff, towrite); if (written < towrite) memmove(channel->buff, channel->buff + written, towrite - written); channel->offset += written; @@ -256,8 +256,8 @@ CAMLexport unsigned char caml_refill(struct channel *channel) { int n; - n = caml_read_fd(channel->fd, channel->flags, - channel->buff, channel->end - channel->buff); + n = caml_read_fd(channel->fd, channel->flags, + channel->buff, channel->end - channel->buff); if (n == 0) caml_raise_end_of_file(); channel->offset += n; channel->max = channel->buff + n; @@ -295,7 +295,7 @@ CAMLexport int caml_getblock(struct channel *channel, char *p, intnat len) return avail; } else { nread = caml_read_fd(channel->fd, channel->flags, channel->buff, - channel->end - channel->buff); + channel->end - channel->buff); channel->offset += nread; channel->max = channel->buff + nread; if (n > nread) n = nread; @@ -364,8 +364,8 @@ CAMLexport intnat caml_input_scan_line(struct channel *channel) return -(channel->max - channel->curr); } /* Fill the buffer as much as possible */ - n = caml_read_fd(channel->fd, channel->flags, - channel->max, channel->end - channel->max); + n = caml_read_fd(channel->fd, channel->flags, + channel->max, channel->end - channel->max); if (n == 0) { /* End-of-file encountered. Return the number of characters in the buffer, with negative sign since we haven't encountered diff --git a/config/Makefile.mingw b/config/Makefile.mingw index 11f4e617d..bdfefbb0c 100644 --- a/config/Makefile.mingw +++ b/config/Makefile.mingw @@ -131,7 +131,9 @@ MKEXE_BOOT=$(BYTECC) -o $(1) $(2) ### How to build a static library MKLIB=rm -f $(1); $(TOOLPREF)ar rc $(1) $(2); $(RANLIB) $(1) -#ml let mklib out files opts = Printf.sprintf "rm -f %s && %sar rcs %s %s %s" out toolpref opts out files;; +#ml let mklib out files opts = +#ml Printf.sprintf "rm -f %s && %sar rcs %s %s %s" +#ml out toolpref opts out files;; ### Canonicalize the name of a system library SYSLIB=-l$(1) diff --git a/config/Makefile.mingw64 b/config/Makefile.mingw64 index df3408522..f8568ec37 100644 --- a/config/Makefile.mingw64 +++ b/config/Makefile.mingw64 @@ -131,7 +131,9 @@ MKEXE_BOOT=$(BYTECC) -o $(1) $(2) ### How to build a static library MKLIB=rm -f $(1); $(TOOLPREF)ar rc $(1) $(2); $(RANLIB) $(1) -#ml let mklib out files opts = Printf.sprintf "rm -f %s && %sar rcs %s %s %s" out toolpref opts out files;; +#ml let mklib out files opts = +#ml Printf.sprintf "rm -f %s && %sar rcs %s %s %s" +#ml out toolpref opts out files;; ### Canonicalize the name of a system library SYSLIB=-l$(1) diff --git a/config/Makefile.msvc b/config/Makefile.msvc index 10ab99415..c6f1a6102 100644 --- a/config/Makefile.msvc +++ b/config/Makefile.msvc @@ -121,12 +121,16 @@ MKEXE=$(FLEXLINK) -exe MKMAINDLL=$(FLEXLINK) -maindll ### Native command to build ocamlrun.exe without flexlink -MERGEMANIFESTEXE=test ! -f $(1).manifest || mt -nologo -outputresource:$(1) -manifest $(1).manifest && rm -f $(1).manifest -MKEXE_BOOT=$(BYTECC) /Fe$(1) $(2) /link /subsystem:console && ($(MERGEMANIFESTEXE)) +MERGEMANIFESTEXE=test ! -f $(1).manifest \ + || mt -nologo -outputresource:$(1) -manifest $(1).manifest \ + && rm -f $(1).manifest +MKEXE_BOOT=$(BYTECC) /Fe$(1) $(2) /link /subsystem:console \ + && ($(MERGEMANIFESTEXE)) ### How to build a static library MKLIB=link -lib -nologo -out:$(1) $(2) -#ml let mklib out files opts = Printf.sprintf "link -lib -nologo -out:%s %s %s" out opts files;; +#ml let mklib out files opts = +#ml Printf.sprintf "link -lib -nologo -out:%s %s %s" out opts files;; MKSHAREDLIBRPATH= ### Canonicalize the name of a system library diff --git a/config/Makefile.msvc64 b/config/Makefile.msvc64 index 28f51caa6..61cd5bf43 100644 --- a/config/Makefile.msvc64 +++ b/config/Makefile.msvc64 @@ -125,12 +125,17 @@ MKEXE=$(FLEXLINK) -exe MKMAINDLL=$(FLEXLINK) -maindll ### Native command to build ocamlrun.exe without flexlink -MERGEMANIFESTEXE=test ! -f $(1).manifest || mt -nologo -outputresource:$(1) -manifest $(1).manifest && rm -f $(1).manifest -MKEXE_BOOT=$(BYTECC) /Fe$(1) $(2) /link /subsystem:console && ($(MERGEMANIFESTEXE)) +MERGEMANIFESTEXE=test ! -f $(1).manifest \ + || mt -nologo -outputresource:$(1) -manifest $(1).manifest \ + && rm -f $(1).manifest +MKEXE_BOOT=$(BYTECC) /Fe$(1) $(2) /link /subsystem:console \ + && ($(MERGEMANIFESTEXE)) ### How to build a static library MKLIB=link -lib -nologo -machine:AMD64 /out:$(1) $(2) -#ml let mklib out files opts = Printf.sprintf "link -lib -nologo -machine:AMD64 -out:%s %s %s" out opts files;; +#ml let mklib out files opts = +#ml Printf.sprintf "link -lib -nologo -machine:AMD64 -out:%s %s %s" +#ml out opts files;; MKSHAREDLIBRPATH= ### Canonicalize the name of a system library diff --git a/configure b/configure index 38ade33d1..cfc62e6c7 100755 --- a/configure +++ b/configure @@ -321,7 +321,7 @@ case "$ccfamily" in gcc-[012]-*) # Some versions known to miscompile OCaml, e,g, 2.7.2.1, some 2.96. # Plus: C99 support unknown. - err "This version of GCC is too old. Please use GCC version 4.2 or above.";; + err "This version of GCC is too old. Please use GCC version 4.2 or above.";; gcc-3-*|gcc-4-[01]) # No -fwrapv option before GCC 3.4. # Known problems with -fwrapv fixed in 4.2 only. @@ -841,8 +841,8 @@ case "$target" in armv6t2*-*-linux-gnueabi) arch=arm; model=armv6t2; system=linux_eabi;; armv6*-*-linux-gnueabi) arch=arm; model=armv6; system=linux_eabi;; armv6*-*-freebsd*) arch=arm; model=armv6; system=freebsd;; - earmv6*-*-netbsd*) arch=arm; model=armv6; system=netbsd;; - earmv7*-*-netbsd*) arch=arm; model=armv7; system=netbsd;; + earmv6*-*-netbsd*) arch=arm; model=armv6; system=netbsd;; + earmv7*-*-netbsd*) arch=arm; model=armv7; system=netbsd;; armv5te*-*-linux-gnueabi) arch=arm; model=armv5te; system=linux_eabi;; armv5*-*-linux-gnueabi) arch=arm; model=armv5; system=linux_eabi;; arm*-*-linux-gnueabi) arch=arm; system=linux_eabi;; @@ -1074,7 +1074,8 @@ if $with_instrumented_runtime; then fi done if ! $with_instrumented_runtime; then - err "clock_gettime functions not found. Instrumented runtime can't be built." + err "clock_gettime functions not found. " \ + "Instrumented runtime can't be built." fi fi @@ -1362,7 +1363,10 @@ fi nargs=none for i in 5 6; do - if sh ./trycompile -DSYS_${system} -DNUM_ARGS=${i} gethostbyname.c; then nargs=$i; break; fi + if sh ./trycompile -DSYS_${system} -DNUM_ARGS=${i} gethostbyname.c; then + nargs=$i; + break; + fi done if test $nargs != "none"; then inf "gethostbyname_r() found (with ${nargs} arguments)." @@ -1371,7 +1375,10 @@ fi nargs=none for i in 7 8; do - if sh ./trycompile -DSYS_${system} -DNUM_ARGS=${i} gethostbyaddr.c; then nargs=$i; break; fi + if sh ./trycompile -DSYS_${system} -DNUM_ARGS=${i} gethostbyaddr.c; then + nargs=$i; + break; + fi done if test $nargs != "none"; then inf "gethostbyaddr_r() found (with ${nargs} arguments)." @@ -1712,7 +1719,6 @@ if test "$with_frame_pointers" = "true"; then ;; *) err "Unsupported architecture with frame pointers";; esac - fi if $no_naked_pointers; then @@ -1751,8 +1757,8 @@ SYSLIB=-l\$(1) ### How to build a static library MKLIB=${TOOLPREF}ar rc \$(1) \$(2); ${TOOLPREF}ranlib \$(1) #ml let mklib out files opts = -#ml Printf.sprintf "${TOOLPREF}ar rc %s %s %s; -#ml ${TOOLPREF}ranlib %s" out opts files out;; +#ml Printf.sprintf "${TOOLPREF}ar rc %s %s %s; ${TOOLPREF}ranlib %s" +#ml out opts files out;; EOF echo "ARCH=$arch" >> Makefile echo "MODEL=$model" >> Makefile diff --git a/lex/Makefile.nt b/lex/Makefile.nt index 508af8c1b..fea169602 100644 --- a/lex/Makefile.nt +++ b/lex/Makefile.nt @@ -17,7 +17,12 @@ CAMLRUN ?= ../boot/ocamlrun CAMLYACC ?= ../boot/ocamlyacc CAMLC=$(CAMLRUN) ../boot/ocamlc -I ../boot -CAMLOPT=$(if $(wildcard ../flexdll/Makefile),OCAML_FLEXLINK="../boot/ocamlrun ../flexdll/flexlink.exe") $(CAMLRUN) ../ocamlopt -I ../stdlib +ifeq "$(wildcard ../flexdll/Makefile)" "" + FLEXLINK_ENV= +else + FLEXLINK_ENV=OCAML_FLEXLINK="../boot/ocamlrun ../flexdll/flexlink.exe" +endif +CAMLOPT=$(FLEXLINK_ENV) $(CAMLRUN) ../ocamlopt -I ../stdlib COMPFLAGS=-warn-error A LINKFLAGS= YACCFLAGS=-v diff --git a/manual/LICENSE-for-the-manual b/manual/LICENSE-for-the-manual index 21075822f..c104a053b 100644 --- a/manual/LICENSE-for-the-manual +++ b/manual/LICENSE-for-the-manual @@ -1,9 +1,20 @@ -The present documentation is copyright Institut National de Recherche en Informatique et en Automatique (INRIA). +The present documentation is copyright Institut National de Recherche +en Informatique et en Automatique (INRIA). -The OCaml documentation and user's manual may be reproduced and distributed in whole or in part, subject to the following conditions: +The OCaml documentation and user's manual may be reproduced and +distributed in whole or in part, subject to the following conditions: -- The copyright notice above and this permission notice must be preserved complete on all complete or partial copies. -- Any translation or derivative work of the OCaml documentation and user's manual must be approved by the authors in writing before distribution. -- If you distribute the OCaml documentation and user's manual in part, instructions for obtaining the complete version of this manual must be included, and a means for obtaining a complete version provided. -- Small portions may be reproduced as illustrations for reviews or quotes in other works without this permission notice if proper citation is given. +- The copyright notice above and this permission notice must be + preserved complete on all complete or partial copies. +- Any translation or derivative work of the OCaml documentation and + user's manual must be approved by the authors in writing before + distribution. + +- If you distribute the OCaml documentation and user's manual in part, + instructions for obtaining the complete version of this manual must + be included, and a means for obtaining a complete version provided. + +- Small portions may be reproduced as illustrations for reviews or + quotes in other works without this permission notice if proper + citation is given. diff --git a/manual/tools/caml-tex b/manual/tools/caml-tex index 594fde500..7eea11b56 100755 --- a/manual/tools/caml-tex +++ b/manual/tools/caml-tex @@ -46,7 +46,7 @@ close(ML); open(TOPLEVEL, "$camllight 2>&1 < .input.ml |") || die("Cannot start camllight : $!"); -; ; # skip the banner +; ; # skip the banner $lastread = ; $lastread =~ s/^# //; diff --git a/ocamldoc/Makefile.nt b/ocamldoc/Makefile.nt index dd7ed7b06..a41e3faf8 100644 --- a/ocamldoc/Makefile.nt +++ b/ocamldoc/Makefile.nt @@ -18,7 +18,13 @@ CAMLYACC ?= ../boot/ocamlyacc ########################## ROOTDIR = .. OCAMLC = $(CAMLRUN) $(ROOTDIR)/ocamlc -nostdlib -I $(ROOTDIR)/stdlib -OCAMLOPT = $(if $(wildcard $(ROOTDIR)/flexdll/Makefile),OCAML_FLEXLINK="$(ROOTDIR)/boot/ocamlrun $(ROOTDIR)/flexdll/flexlink.exe") $(CAMLRUN) $(ROOTDIR)/ocamlopt -nostdlib -I $(ROOTDIR)/stdlib +ifeq "$(wildcard $(ROOTDIR)/flexdll/Makefile)" "" + FLEXLINK_ENV= +else + FLEXLINK_ENV=OCAML_FLEXLINK="$(ROOTDIR)/boot/ocamlrun $(ROOTDIR)/flexdll/flexlink.exe" +endif +OCAMLOPT = $(FLEXLINK_ENV) $(CAMLRUN) $(ROOTDIR)/ocamlopt -nostdlib \ + -I $(ROOTDIR)/stdlib OCAMLDEP = $(CAMLRUN) $(ROOTDIR)/tools/ocamldep OCAMLLEX = $(CAMLRUN) $(ROOTDIR)/boot/ocamllex OCAMLLIB = $(LIBDIR) diff --git a/ocamldoc/odoc_print.ml b/ocamldoc/odoc_print.ml index 04c00eac4..4bba1a18f 100644 --- a/ocamldoc/odoc_print.ml +++ b/ocamldoc/odoc_print.ml @@ -78,7 +78,7 @@ let simpl_class_type t = match t with Types.Cty_constr (p,texp_list,ct) -> t | Types.Cty_signature cs -> - (* we delete vals and methods in order to not print them when + (* we delete vals and methods in order to not print them when displaying the type *) let tnil = { Types.desc = Types.Tnil ; Types.level = 0; Types.id = 0 } in Types.Cty_signature { Types.csig_self = { cs.Types.csig_self with diff --git a/ocamldoc/odoc_sig.ml b/ocamldoc/odoc_sig.ml index 9d0f8b216..e1e49b423 100644 --- a/ocamldoc/odoc_sig.ml +++ b/ocamldoc/odoc_sig.ml @@ -779,9 +779,23 @@ module Analyser = pos_limit2 type_decl in - print_DEBUG ("Type "^name.txt^" : "^(match assoc_com with None -> "sans commentaire" | Some c -> Odoc_misc.string_of_info c)); - let f_DEBUG (name, c_opt) = print_DEBUG ("constructor/field "^name^": "^(match c_opt with None -> "sans commentaire" | Some c -> Odoc_misc.string_of_info c)) in - List.iter f_DEBUG name_comment_list; +(* DEBUG *) begin +(* DEBUG *) let comm = +(* DEBUG *) match assoc_com with +(* DEBUG *) | None -> "sans commentaire" +(* DEBUG *) | Some c -> Odoc_misc.string_of_info c +(* DEBUG *) in +(* DEBUG *) print_DEBUG ("Type "^name.txt^" : "^comm); +(* DEBUG *) let f_DEBUG (name, c_opt) = +(* DEBUG *) let comm = +(* DEBUG *) match c_opt with +(* DEBUG *) | None -> "sans commentaire" +(* DEBUG *) | Some c -> Odoc_misc.string_of_info c +(* DEBUG *) in +(* DEBUG *) print_DEBUG ("constructor/field "^name^": "^comm) +(* DEBUG *) in +(* DEBUG *) List.iter f_DEBUG name_comment_list; +(* DEBUG *) end (* get the information for the type in the signature *) let sig_type_decl = try Signature_search.search_type table name.txt diff --git a/otherlibs/Makefile.nt b/otherlibs/Makefile.nt index be4291bfe..3ebbee6f2 100644 --- a/otherlibs/Makefile.nt +++ b/otherlibs/Makefile.nt @@ -15,9 +15,11 @@ include ../Makefile -export OCAML_FLEXLINK:=$(if $(wildcard $(ROOTDIR)/flexdll/Makefile),$(ROOTDIR)/boot/ocamlrun $(ROOTDIR)/flexdll/flexlink.exe) - -# The Unix version now works fine under Windows +ifeq "$(wildcard $(ROOTDIR)/flexdll/Makefile" "" +export OCAML_FLEXLINK:= +else +export OCAML_FLEXLINK:=$(ROOTDIR)/boot/ocamlrun $(ROOTDIR)/flexdll/flexlink.exe +endif # Note .. is the current directory (this makefile is included from # a subdirectory) diff --git a/otherlibs/num/Makefile b/otherlibs/num/Makefile index e08e02943..508beda9e 100644 --- a/otherlibs/num/Makefile +++ b/otherlibs/num/Makefile @@ -11,8 +11,6 @@ # # ######################################################################### -# $Id$ - # Makefile for the "num" (exact rational arithmetic) library LIBNAME=nums diff --git a/otherlibs/num/Makefile.nt b/otherlibs/num/Makefile.nt index 4ac69c7ca..95b8ac018 100644 --- a/otherlibs/num/Makefile.nt +++ b/otherlibs/num/Makefile.nt @@ -11,8 +11,6 @@ # # ######################################################################### -# $Id$ - # Makefile for the "num" (exact rational arithmetic) library LIBNAME=nums diff --git a/otherlibs/num/big_int.ml b/otherlibs/num/big_int.ml index 8ce5deed6..94f1f8084 100644 --- a/otherlibs/num/big_int.ml +++ b/otherlibs/num/big_int.ml @@ -438,9 +438,12 @@ let sys_big_int_of_string_base s ofs len sgn = if len < 2 then sys_big_int_of_string_aux s ofs len sgn 10 else match (s.[ofs], s.[ofs+1]) with - | ('0', 'x') | ('0', 'X') -> sys_big_int_of_string_aux s (ofs+2) (len-2) sgn 16 - | ('0', 'o') | ('0', 'O') -> sys_big_int_of_string_aux s (ofs+2) (len-2) sgn 8 - | ('0', 'b') | ('0', 'B') -> sys_big_int_of_string_aux s (ofs+2) (len-2) sgn 2 + | ('0', 'x') | ('0', 'X') -> + sys_big_int_of_string_aux s (ofs+2) (len-2) sgn 16 + | ('0', 'o') | ('0', 'O') -> + sys_big_int_of_string_aux s (ofs+2) (len-2) sgn 8 + | ('0', 'b') | ('0', 'B') -> + sys_big_int_of_string_aux s (ofs+2) (len-2) sgn 2 | _ -> sys_big_int_of_string_aux s ofs len sgn 10 ;; @@ -722,7 +725,7 @@ let two_power_m1_big_int n = let idx = n / length_of_digit in let size_res = idx + 1 in let res = make_nat size_res in - set_digit_nat_native res idx + set_digit_nat_native res idx (Nativeint.shift_left 1n (n mod length_of_digit)); ignore (decr_nat res 0 size_res 0); { sign = 1; abs_value = res } @@ -733,7 +736,8 @@ let two_power_m1_big_int n = let shift_right_big_int bi n = if n < 0 then invalid_arg "shift_right_big_int" else if bi.sign >= 0 then shift_right_towards_zero_big_int bi n - else shift_right_towards_zero_big_int (sub_big_int bi (two_power_m1_big_int n)) n + else + shift_right_towards_zero_big_int (sub_big_int bi (two_power_m1_big_int n)) n (* Extract N bits starting at ofs. Treats bi in two's complement. @@ -845,7 +849,7 @@ let xor_big_int a b = (* Consider a real number [r] such that - the integral part of [r] is the bigint [x] - 2^54 <= |x| < 2^63 - - the fractional part of [r] is 0 if [exact = true], + - the fractional part of [r] is 0 if [exact = true], nonzero if [exact = false]. Then, the following function returns [r] correctly rounded to the nearest double-precision floating-point number. @@ -875,4 +879,3 @@ let float_of_big_int x = (* Round to float and apply exponent *) ldexp (round_big_int_to_float top exact) n end - diff --git a/otherlibs/num/bng.c b/otherlibs/num/bng.c index 585e434e2..c6170ca51 100644 --- a/otherlibs/num/bng.c +++ b/otherlibs/num/bng.c @@ -11,8 +11,6 @@ /* */ /***********************************************************************/ -/* $Id$ */ - #include "bng.h" #include "caml/config.h" diff --git a/otherlibs/num/bng.h b/otherlibs/num/bng.h index 527bee6ab..e3e45bfd4 100644 --- a/otherlibs/num/bng.h +++ b/otherlibs/num/bng.h @@ -11,8 +11,6 @@ /* */ /***********************************************************************/ -/* $Id$ */ - #include #include "caml/config.h" diff --git a/otherlibs/num/bng_amd64.c b/otherlibs/num/bng_amd64.c index ecf9f2535..6b2c95f3a 100644 --- a/otherlibs/num/bng_amd64.c +++ b/otherlibs/num/bng_amd64.c @@ -11,8 +11,6 @@ /* */ /***********************************************************************/ -/* $Id$ */ - /* Code specific to the AMD x86_64 architecture. */ #define BngAdd2(res,carryout,arg1,arg2) \ diff --git a/otherlibs/num/bng_digit.c b/otherlibs/num/bng_digit.c index fc10c8a37..66bb50ccb 100644 --- a/otherlibs/num/bng_digit.c +++ b/otherlibs/num/bng_digit.c @@ -11,8 +11,6 @@ /* */ /***********************************************************************/ -/* $Id$ */ - /**** Generic operations on digits ****/ /* These macros can be defined in the machine-specific include file. diff --git a/otherlibs/num/bng_ia32.c b/otherlibs/num/bng_ia32.c index b4981cd48..c11acf32b 100644 --- a/otherlibs/num/bng_ia32.c +++ b/otherlibs/num/bng_ia32.c @@ -11,8 +11,6 @@ /* */ /***********************************************************************/ -/* $Id$ */ - /* Code specific to the Intel IA32 (x86) architecture. */ #define BngAdd2(res,carryout,arg1,arg2) \ diff --git a/otherlibs/num/bng_ppc.c b/otherlibs/num/bng_ppc.c index 4e9a363fc..e88861ec8 100644 --- a/otherlibs/num/bng_ppc.c +++ b/otherlibs/num/bng_ppc.c @@ -11,8 +11,6 @@ /* */ /***********************************************************************/ -/* $Id$ */ - /* Code specific to the PowerPC architecture. */ #define BngAdd2(res,carryout,arg1,arg2) \ diff --git a/otherlibs/num/bng_sparc.c b/otherlibs/num/bng_sparc.c index 4e46a316a..82d782cb7 100644 --- a/otherlibs/num/bng_sparc.c +++ b/otherlibs/num/bng_sparc.c @@ -11,8 +11,6 @@ /* */ /***********************************************************************/ -/* $Id$ */ - /* Code specific to the SPARC (V8 and above) architecture. */ #define BngAdd2(res,carryout,arg1,arg2) \ diff --git a/otherlibs/num/nat.h b/otherlibs/num/nat.h index 62c7ac988..d85bf8a84 100644 --- a/otherlibs/num/nat.h +++ b/otherlibs/num/nat.h @@ -11,8 +11,6 @@ /* */ /***********************************************************************/ -/* $Id$ */ - /* Nats are represented as unstructured blocks with tag Custom_tag. */ #define Digit_val(nat,pos) (((bng) Data_custom_val(nat))[pos]) diff --git a/otherlibs/num/nat.ml b/otherlibs/num/nat.ml index e6ec3427e..37438a6b5 100644 --- a/otherlibs/num/nat.ml +++ b/otherlibs/num/nat.ml @@ -20,28 +20,44 @@ external set_to_zero_nat: nat -> int -> int -> unit = "set_to_zero_nat" external blit_nat: nat -> int -> nat -> int -> int -> unit = "blit_nat" external set_digit_nat: nat -> int -> int -> unit = "set_digit_nat" external nth_digit_nat: nat -> int -> int = "nth_digit_nat" -external set_digit_nat_native: nat -> int -> nativeint -> unit = "set_digit_nat_native" +external set_digit_nat_native: nat -> int -> nativeint -> unit + = "set_digit_nat_native" external nth_digit_nat_native: nat -> int -> nativeint = "nth_digit_nat_native" external num_digits_nat: nat -> int -> int -> int = "num_digits_nat" -external num_leading_zero_bits_in_digit: nat -> int -> int = "num_leading_zero_bits_in_digit" +external num_leading_zero_bits_in_digit: nat -> int -> int + = "num_leading_zero_bits_in_digit" external is_digit_int: nat -> int -> bool = "is_digit_int" external is_digit_zero: nat -> int -> bool = "is_digit_zero" external is_digit_normalized: nat -> int -> bool = "is_digit_normalized" external is_digit_odd: nat -> int -> bool = "is_digit_odd" external incr_nat: nat -> int -> int -> int -> int = "incr_nat" -external add_nat: nat -> int -> int -> nat -> int -> int -> int -> int = "add_nat" "add_nat_native" +external add_nat: nat -> int -> int -> nat -> int -> int -> int -> int + = "add_nat" "add_nat_native" external complement_nat: nat -> int -> int -> unit = "complement_nat" external decr_nat: nat -> int -> int -> int -> int = "decr_nat" -external sub_nat: nat -> int -> int -> nat -> int -> int -> int -> int = "sub_nat" "sub_nat_native" -external mult_digit_nat: nat -> int -> int -> nat -> int -> int -> nat -> int -> int = "mult_digit_nat" "mult_digit_nat_native" -external mult_nat: nat -> int -> int -> nat -> int -> int -> nat -> int -> int -> int = "mult_nat" "mult_nat_native" -external square_nat: nat -> int -> int -> nat -> int -> int -> int = "square_nat" "square_nat_native" -external shift_left_nat: nat -> int -> int -> nat -> int -> int -> unit = "shift_left_nat" "shift_left_nat_native" -external div_digit_nat: nat -> int -> nat -> int -> nat -> int -> int -> nat -> int -> unit = "div_digit_nat" "div_digit_nat_native" -external div_nat: nat -> int -> int -> nat -> int -> int -> unit = "div_nat" "div_nat_native" -external shift_right_nat: nat -> int -> int -> nat -> int -> int -> unit = "shift_right_nat" "shift_right_nat_native" -external compare_digits_nat: nat -> int -> nat -> int -> int = "compare_digits_nat" -external compare_nat: nat -> int -> int -> nat -> int -> int -> int = "compare_nat" "compare_nat_native" +external sub_nat: nat -> int -> int -> nat -> int -> int -> int -> int + = "sub_nat" "sub_nat_native" +external mult_digit_nat: + nat -> int -> int -> nat -> int -> int -> nat -> int -> int + = "mult_digit_nat" "mult_digit_nat_native" +external mult_nat: + nat -> int -> int -> nat -> int -> int -> nat -> int -> int -> int + = "mult_nat" "mult_nat_native" +external square_nat: nat -> int -> int -> nat -> int -> int -> int + = "square_nat" "square_nat_native" +external shift_left_nat: nat -> int -> int -> nat -> int -> int -> unit + = "shift_left_nat" "shift_left_nat_native" +external div_digit_nat: + nat -> int -> nat -> int -> nat -> int -> int -> nat -> int -> unit + = "div_digit_nat" "div_digit_nat_native" +external div_nat: nat -> int -> int -> nat -> int -> int -> unit + = "div_nat" "div_nat_native" +external shift_right_nat: nat -> int -> int -> nat -> int -> int -> unit + = "shift_right_nat" "shift_right_nat_native" +external compare_digits_nat: nat -> int -> nat -> int -> int + = "compare_digits_nat" +external compare_nat: nat -> int -> int -> nat -> int -> int -> int + = "compare_nat" "compare_nat_native" external land_digit_nat: nat -> int -> nat -> int -> unit = "land_digit_nat" external lor_digit_nat: nat -> int -> nat -> int -> unit = "lor_digit_nat" external lxor_digit_nat: nat -> int -> nat -> int -> unit = "lxor_digit_nat" diff --git a/otherlibs/num/nat.mli b/otherlibs/num/nat.mli index f9e279b64..0fbb96afd 100644 --- a/otherlibs/num/nat.mli +++ b/otherlibs/num/nat.mli @@ -25,11 +25,13 @@ external blit_nat: nat -> int -> nat -> int -> int -> unit = "blit_nat" val copy_nat: nat -> int -> int -> nat external set_digit_nat: nat -> int -> int -> unit = "set_digit_nat" external nth_digit_nat: nat -> int -> int = "nth_digit_nat" -external set_digit_nat_native: nat -> int -> nativeint -> unit = "set_digit_nat_native" +external set_digit_nat_native: nat -> int -> nativeint -> unit + = "set_digit_nat_native" external nth_digit_nat_native: nat -> int -> nativeint = "nth_digit_nat_native" val length_nat : nat -> int external num_digits_nat: nat -> int -> int -> int = "num_digits_nat" -external num_leading_zero_bits_in_digit: nat -> int -> int = "num_leading_zero_bits_in_digit" +external num_leading_zero_bits_in_digit: nat -> int -> int + = "num_leading_zero_bits_in_digit" external is_digit_int: nat -> int -> bool = "is_digit_int" external is_digit_zero: nat -> int -> bool = "is_digit_zero" external is_digit_normalized: nat -> int -> bool = "is_digit_normalized" @@ -39,19 +41,33 @@ val is_nat_int: nat -> int -> int -> bool val int_of_nat: nat -> int val nat_of_int: int -> nat external incr_nat: nat -> int -> int -> int -> int = "incr_nat" -external add_nat: nat -> int -> int -> nat -> int -> int -> int -> int = "add_nat" "add_nat_native" +external add_nat: nat -> int -> int -> nat -> int -> int -> int -> int + = "add_nat" "add_nat_native" external complement_nat: nat -> int -> int -> unit = "complement_nat" external decr_nat: nat -> int -> int -> int -> int = "decr_nat" -external sub_nat: nat -> int -> int -> nat -> int -> int -> int -> int = "sub_nat" "sub_nat_native" -external mult_digit_nat: nat -> int -> int -> nat -> int -> int -> nat -> int -> int = "mult_digit_nat" "mult_digit_nat_native" -external mult_nat: nat -> int -> int -> nat -> int -> int -> nat -> int -> int -> int = "mult_nat" "mult_nat_native" -external square_nat: nat -> int -> int -> nat -> int -> int -> int = "square_nat" "square_nat_native" -external shift_left_nat: nat -> int -> int -> nat -> int -> int -> unit = "shift_left_nat" "shift_left_nat_native" -external div_digit_nat: nat -> int -> nat -> int -> nat -> int -> int -> nat -> int -> unit = "div_digit_nat" "div_digit_nat_native" -external div_nat: nat -> int -> int -> nat -> int -> int -> unit = "div_nat" "div_nat_native" -external shift_right_nat: nat -> int -> int -> nat -> int -> int -> unit = "shift_right_nat" "shift_right_nat_native" -external compare_digits_nat: nat -> int -> nat -> int -> int = "compare_digits_nat" -external compare_nat: nat -> int -> int -> nat -> int -> int -> int = "compare_nat" "compare_nat_native" +external sub_nat: nat -> int -> int -> nat -> int -> int -> int -> int + = "sub_nat" "sub_nat_native" +external mult_digit_nat: + nat -> int -> int -> nat -> int -> int -> nat -> int -> int + = "mult_digit_nat" "mult_digit_nat_native" +external mult_nat: + nat -> int -> int -> nat -> int -> int -> nat -> int -> int -> int + = "mult_nat" "mult_nat_native" +external square_nat: nat -> int -> int -> nat -> int -> int -> int + = "square_nat" "square_nat_native" +external shift_left_nat: nat -> int -> int -> nat -> int -> int -> unit + = "shift_left_nat" "shift_left_nat_native" +external div_digit_nat: + nat -> int -> nat -> int -> nat -> int -> int -> nat -> int -> unit + = "div_digit_nat" "div_digit_nat_native" +external div_nat: nat -> int -> int -> nat -> int -> int -> unit + = "div_nat" "div_nat_native" +external shift_right_nat: nat -> int -> int -> nat -> int -> int -> unit + = "shift_right_nat" "shift_right_nat_native" +external compare_digits_nat: nat -> int -> nat -> int -> int + = "compare_digits_nat" +external compare_nat: nat -> int -> int -> nat -> int -> int -> int + = "compare_nat" "compare_nat_native" val eq_nat : nat -> int -> int -> nat -> int -> int -> bool val le_nat : nat -> int -> int -> nat -> int -> int -> bool val lt_nat : nat -> int -> int -> nat -> int -> int -> bool diff --git a/otherlibs/num/nat_stubs.c b/otherlibs/num/nat_stubs.c index 22614e131..7c4916abb 100644 --- a/otherlibs/num/nat_stubs.c +++ b/otherlibs/num/nat_stubs.c @@ -11,8 +11,6 @@ /* */ /***********************************************************************/ -/* $Id$ */ - #include "caml/alloc.h" #include "caml/config.h" #include "caml/custom.h" @@ -123,7 +121,8 @@ CAMLprim value is_digit_zero(value nat, value ofs) CAMLprim value is_digit_normalized(value nat, value ofs) { return - Val_bool(Digit_val(nat, Long_val(ofs)) & ((bngdigit)1 << (BNG_BITS_PER_DIGIT-1))); + Val_bool(Digit_val(nat, Long_val(ofs)) + & ((bngdigit)1 << (BNG_BITS_PER_DIGIT-1))); } CAMLprim value is_digit_odd(value nat, value ofs) diff --git a/otherlibs/num/num.ml b/otherlibs/num/num.ml index 361a24a31..6e1a63434 100644 --- a/otherlibs/num/num.ml +++ b/otherlibs/num/num.ml @@ -179,7 +179,7 @@ A correct but slow implementation is: if b >= 0 then floor_num (div_num a b) else minus_num (floor_num (div_num a (minus_num b))) - mod_num a b = + mod_num a b = sub_num a (mult_num b (quo_num a b)) However, this definition is vastly inefficient (cf PR #3473): @@ -197,7 +197,7 @@ let quo_num n1 n2 = Int (if r >= 0 then q else if i2 > 0 then q - 1 else q + 1) | Int i1, Big_int bi2 -> num_of_big_int (div_big_int (big_int_of_int i1) bi2) - | Int i1, Ratio r2 -> + | Int i1, Ratio r2 -> num_of_big_int (report_sign_ratio r2 (floor_ratio (div_int_ratio i1 (abs_ratio r2)))) | Big_int bi1, Int i2 -> diff --git a/otherlibs/systhreads/Makefile.nt b/otherlibs/systhreads/Makefile.nt index 480ea8a43..7be5a4322 100644 --- a/otherlibs/systhreads/Makefile.nt +++ b/otherlibs/systhreads/Makefile.nt @@ -27,7 +27,11 @@ endif MKLIB=$(CAMLRUN) ../../tools/ocamlmklib CFLAGS=-I../../byterun $(EXTRACFLAGS) -export OCAML_FLEXLINK:=$(if $(wildcard ../../flexdll/Makefile),../../boot/ocamlrun ../../flexdll/flexlink.exe) +ifeq "$(wildcard ../../flexdll/Makefile)" "" + export OCAML_FLEXLINK:= +else + export OCAML_FLEXLINK:=../../boot/ocamlrun ../../flexdll/flexlink.exe +endif CAMLOBJS=thread.cmo mutex.cmo condition.cmo event.cmo threadUnix.cmo CMIFILES=$(CAMLOBJS:.cmo=.cmi) diff --git a/otherlibs/unix/initgroups.c b/otherlibs/unix/initgroups.c index 4b5e9b221..230cb07d6 100644 --- a/otherlibs/unix/initgroups.c +++ b/otherlibs/unix/initgroups.c @@ -28,7 +28,7 @@ CAMLprim value unix_initgroups(value user, value group) { - if (! caml_string_is_c_safe(user)) + if (! caml_string_is_c_safe(user)) unix_error(EINVAL, "initgroups", user); if (initgroups(String_val(user), Int_val(group)) == -1) { uerror("initgroups", Nothing); diff --git a/otherlibs/unix/unixsupport.c b/otherlibs/unix/unixsupport.c index d0d2282bf..89992ea1b 100644 --- a/otherlibs/unix/unixsupport.c +++ b/otherlibs/unix/unixsupport.c @@ -312,4 +312,3 @@ void caml_unix_check_path(value path, char * cmdname) { if (! caml_string_is_c_safe(path)) unix_error(ENOENT, cmdname, path); } - diff --git a/otherlibs/unix/utimes.c b/otherlibs/unix/utimes.c index a9258cb7e..a6c487b3f 100644 --- a/otherlibs/unix/utimes.c +++ b/otherlibs/unix/utimes.c @@ -34,7 +34,7 @@ CAMLprim value unix_utimes(value path, value atime, value mtime) mt = Double_val(mtime); if (at == 0.0 && mt == 0.0) { t = (struct timeval *) NULL; - } else { + } else { tv[0].tv_sec = at; tv[0].tv_usec = (at - tv[0].tv_sec) * 1000000; tv[1].tv_sec = mt; @@ -71,7 +71,7 @@ CAMLprim value unix_utimes(value path, value atime, value mtime) mt = Double_val(mtime); if (at == 0.0 && mt == 0.0) { t = (struct utimbuf *) NULL; - } else { + } else { times.actime = at; times.modtime = mt; t = × @@ -91,4 +91,3 @@ CAMLprim value unix_utimes(value path, value atime, value mtime) { invalid_argument("utimes not implemented"); } #endif - diff --git a/parsing/builtin_attributes.ml b/parsing/builtin_attributes.ml index e9d0fa916..b213f2611 100755 --- a/parsing/builtin_attributes.ml +++ b/parsing/builtin_attributes.ml @@ -63,7 +63,8 @@ let check_deprecated loc attrs s = match deprecated_of_attrs attrs with | None -> () | Some "" -> Location.prerr_warning loc (Warnings.Deprecated s) - | Some txt -> Location.prerr_warning loc (Warnings.Deprecated (s ^ "\n" ^ txt)) + | Some txt -> + Location.prerr_warning loc (Warnings.Deprecated (s ^ "\n" ^ txt)) let rec check_deprecated_mutable loc attrs s = match attrs with @@ -173,7 +174,8 @@ let with_warning_attribute attrs f = let warn_on_literal_pattern = List.exists (function - | ({txt="ocaml.warn_on_literal_pattern"|"warn_on_literal_pattern"; _}, _) -> true + | ({txt="ocaml.warn_on_literal_pattern"|"warn_on_literal_pattern"; _}, _) + -> true | _ -> false ) diff --git a/parsing/builtin_attributes.mli b/parsing/builtin_attributes.mli index ee2be723c..8b81a3869 100755 --- a/parsing/builtin_attributes.mli +++ b/parsing/builtin_attributes.mli @@ -28,7 +28,8 @@ val deprecated_of_attrs: Parsetree.attributes -> string option val deprecated_of_sig: Parsetree.signature -> string option val deprecated_of_str: Parsetree.structure -> string option -val check_deprecated_mutable: Location.t -> Parsetree.attributes -> string -> unit +val check_deprecated_mutable: + Location.t -> Parsetree.attributes -> string -> unit val error_of_extension: Parsetree.extension -> Location.error diff --git a/parsing/parser.mly b/parsing/parser.mly index ccf5419c2..d4ad3a516 100644 --- a/parsing/parser.mly +++ b/parsing/parser.mly @@ -775,7 +775,8 @@ module_expr: { mkmod ~attrs:$3 (Pmod_unpack( ghexp(Pexp_constraint($4, ghtyp(Ptyp_package $6))))) } - | LPAREN VAL attributes expr COLON package_type COLONGREATER package_type RPAREN + | LPAREN VAL attributes expr COLON package_type COLONGREATER package_type + RPAREN { mkmod ~attrs:$3 (Pmod_unpack( ghexp(Pexp_coerce($4, Some(ghtyp(Ptyp_package $6)), @@ -864,7 +865,8 @@ module_binding: ; rec_module_bindings: rec_module_binding { let (b, ext) = $1 in ([b], ext) } - | rec_module_bindings and_module_binding { let (l, ext) = $1 in ($2 :: l, ext) } + | rec_module_bindings and_module_binding + { let (l, ext) = $1 in ($2 :: l, ext) } ; rec_module_binding: MODULE ext_attributes REC UIDENT module_binding_body post_item_attributes @@ -989,8 +991,10 @@ module_alias: , ext } ; rec_module_declarations: - rec_module_declaration { let (body, ext) = $1 in ([body], ext) } - | rec_module_declarations and_module_declaration { let (l, ext) = $1 in ($2 :: l, ext) } + rec_module_declaration + { let (body, ext) = $1 in ([body], ext) } + | rec_module_declarations and_module_declaration + { let (l, ext) = $1 in ($2 :: l, ext) } ; rec_module_declaration: MODULE ext_attributes REC UIDENT COLON module_type post_item_attributes @@ -1009,7 +1013,8 @@ module_type_declaration_body: | EQUAL module_type { Some $2 } ; module_type_declaration: - MODULE TYPE ext_attributes ident module_type_declaration_body post_item_attributes + MODULE TYPE ext_attributes ident module_type_declaration_body + post_item_attributes { let (ext, attrs) = $3 in Mtd.mk (mkrhs $4 4) ?typ:$5 ~attrs:(attrs@$6) ~loc:(symbol_rloc()) ~docs:(symbol_docs ()) @@ -1018,12 +1023,14 @@ module_type_declaration: /* Class expressions */ class_declarations: - class_declaration { let (body, ext) = $1 in ([body], ext) } - | class_declarations and_class_declaration { let (l, ext) = $1 in ($2 :: l, ext) } + class_declaration + { let (body, ext) = $1 in ([body], ext) } + | class_declarations and_class_declaration + { let (l, ext) = $1 in ($2 :: l, ext) } ; class_declaration: - CLASS ext_attributes virtual_flag class_type_parameters LIDENT class_fun_binding - post_item_attributes + CLASS ext_attributes virtual_flag class_type_parameters LIDENT + class_fun_binding post_item_attributes { let (ext, attrs) = $2 in Ci.mk (mkrhs $5 5) $6 ~virt:$3 ~params:$4 ~attrs:(attrs@$7) ~loc:(symbol_rloc ()) ~docs:(symbol_docs ()) @@ -1105,7 +1112,8 @@ class_fields: { $2 :: (text_cstr 2) @ $1 } ; class_field: - | INHERIT override_flag attributes class_expr parent_binder post_item_attributes + | INHERIT override_flag attributes class_expr parent_binder + post_item_attributes { mkcf (Pcf_inherit ($2, $4, $5)) ~attrs:($3@$6) ~docs:(symbol_docs ()) } | VAL attributes value post_item_attributes { mkcf (Pcf_val $3) ~attrs:($2@$4) ~docs:(symbol_docs ()) } @@ -1240,12 +1248,14 @@ constrain_field: core_type EQUAL core_type { $1, $3 } ; class_descriptions: - class_description { let (body, ext) = $1 in ([body],ext) } - | class_descriptions and_class_description { let (l, ext) = $1 in ($2 :: l, ext) } + class_description + { let (body, ext) = $1 in ([body],ext) } + | class_descriptions and_class_description + { let (l, ext) = $1 in ($2 :: l, ext) } ; class_description: - CLASS ext_attributes virtual_flag class_type_parameters LIDENT COLON class_type - post_item_attributes + CLASS ext_attributes virtual_flag class_type_parameters LIDENT COLON + class_type post_item_attributes { let (ext, attrs) = $2 in Ci.mk (mkrhs $5 5) $7 ~virt:$3 ~params:$4 ~attrs:$8 ~loc:(symbol_rloc ()) ~docs:(symbol_docs ()) @@ -1259,8 +1269,10 @@ and_class_description: ~text:(symbol_text ()) ~docs:(symbol_docs ()) } ; class_type_declarations: - class_type_declaration { let (body, ext) = $1 in ([body],ext) } - | class_type_declarations and_class_type_declaration { let (l, ext) = $1 in ($2 :: l, ext) } + class_type_declaration + { let (body, ext) = $1 in ([body],ext) } + | class_type_declarations and_class_type_declaration + { let (l, ext) = $1 in ($2 :: l, ext) } ; class_type_declaration: CLASS TYPE ext_attributes virtual_flag class_type_parameters LIDENT EQUAL @@ -1547,7 +1559,8 @@ simple_expr: $3 } | LPAREN MODULE ext_attributes module_expr COLON error { unclosed "(" 1 ")" 6 } - | mod_longident DOT LPAREN MODULE ext_attributes module_expr COLON package_type RPAREN + | mod_longident DOT LPAREN MODULE ext_attributes module_expr COLON + package_type RPAREN { mkexp(Pexp_open(Fresh, mkrhs $1 1, mkexp_attrs (Pexp_constraint (ghexp (Pexp_pack $6), ghtyp (Ptyp_package $8))) @@ -1641,8 +1654,10 @@ match_case: { Exp.case $1 (Exp.unreachable ~loc:(rhs_loc 3) ())} ; fun_def: - MINUSGREATER seq_expr { $2 } - | COLON simple_core_type MINUSGREATER seq_expr { mkexp (Pexp_constraint ($4, $2)) } + MINUSGREATER seq_expr + { $2 } + | COLON simple_core_type MINUSGREATER seq_expr + { mkexp (Pexp_constraint ($4, $2)) } /* Cf #5939: we used to accept (fun p when e0 -> e) */ | labeled_simple_pattern fun_def { @@ -1830,8 +1845,8 @@ primitive_declaration_body: | STRING primitive_declaration_body { fst $1 :: $2 } ; primitive_declaration: - EXTERNAL ext_attributes val_ident COLON core_type EQUAL primitive_declaration_body - post_item_attributes + EXTERNAL ext_attributes val_ident COLON core_type EQUAL + primitive_declaration_body post_item_attributes { let (ext, attrs) = $2 in Val.mk (mkrhs $3 3) $5 ~prim:$7 ~attrs:(attrs@$8) ~loc:(symbol_rloc ()) ~docs:(symbol_docs ()) @@ -1848,8 +1863,8 @@ type_declarations: ; type_declaration: - TYPE ext_attributes nonrec_flag optional_type_parameters LIDENT type_kind constraints - post_item_attributes + TYPE ext_attributes nonrec_flag optional_type_parameters LIDENT + type_kind constraints post_item_attributes { let (kind, priv, manifest) = $6 in let (ext, attrs) = $2 in let ty = @@ -1962,8 +1977,8 @@ str_exception_declaration: , ext } ; sig_exception_declaration: - | EXCEPTION ext_attributes constr_ident generalized_constructor_arguments attributes - post_item_attributes + | EXCEPTION ext_attributes constr_ident generalized_constructor_arguments + attributes post_item_attributes { let args, res = $4 in let (ext,attrs) = $2 in Te.decl (mkrhs $3 3) ~args ?res ~attrs:($5 @ $6) @@ -2256,17 +2271,17 @@ label: /* Constants */ constant: - | INT { let (n, m) = $1 in Pconst_integer (n, m) } - | CHAR { Pconst_char $1 } - | STRING { let (s, d) = $1 in Pconst_string (s, d) } - | FLOAT { let (f, m) = $1 in Pconst_float (f, m) } + | INT { let (n, m) = $1 in Pconst_integer (n, m) } + | CHAR { Pconst_char $1 } + | STRING { let (s, d) = $1 in Pconst_string (s, d) } + | FLOAT { let (f, m) = $1 in Pconst_float (f, m) } ; signed_constant: - constant { $1 } - | MINUS INT { let (n, m) = $2 in Pconst_integer("-" ^ n, m) } - | MINUS FLOAT { let (f, m) = $2 in Pconst_float("-" ^ f, m) } - | PLUS INT { let (n, m) = $2 in Pconst_integer (n, m) } - | PLUS FLOAT { let (f, m) = $2 in Pconst_float(f, m) } + constant { $1 } + | MINUS INT { let (n, m) = $2 in Pconst_integer("-" ^ n, m) } + | MINUS FLOAT { let (f, m) = $2 in Pconst_float("-" ^ f, m) } + | PLUS INT { let (n, m) = $2 in Pconst_integer (n, m) } + | PLUS FLOAT { let (f, m) = $2 in Pconst_float(f, m) } ; /* Identifiers and long identifiers */ @@ -2363,7 +2378,8 @@ class_longident: toplevel_directive: SHARP ident { Ptop_dir($2, Pdir_none) } | SHARP ident STRING { Ptop_dir($2, Pdir_string (fst $3)) } - | SHARP ident INT { let (n, m) = $3 in Ptop_dir($2, Pdir_int (n ,m)) } + | SHARP ident INT { let (n, m) = $3 in + Ptop_dir($2, Pdir_int (n ,m)) } | SHARP ident val_longident { Ptop_dir($2, Pdir_ident $3) } | SHARP ident mod_longident { Ptop_dir($2, Pdir_ident $3) } | SHARP ident FALSE { Ptop_dir($2, Pdir_bool false) } diff --git a/parsing/pprintast.ml b/parsing/pprintast.ml index f741565eb..df570d3bf 100644 --- a/parsing/pprintast.ml +++ b/parsing/pprintast.ml @@ -172,9 +172,11 @@ class printer ()= object(self:'self) | Pconst_string (i, None) -> pp f "%S" i | Pconst_string (i, Some delim) -> pp f "{%s|%s|%s}" delim i delim | Pconst_integer (i,None) -> self#paren (i.[0]='-') (fun f -> pp f "%s") f i - | Pconst_integer (i,Some m) -> self#paren (i.[0]='-') (fun f (i,m) -> pp f "%s%c" i m) f (i,m) + | Pconst_integer (i,Some m) -> + self#paren (i.[0]='-') (fun f (i,m) -> pp f "%s%c" i m) f (i,m) | Pconst_float (i,None) -> self#paren (i.[0]='-') (fun f -> pp f "%s") f i - | Pconst_float (i, Some m) -> self#paren (i.[0]='-') (fun f (i,m) -> pp f "%s%c" i m) f (i,m) + | Pconst_float (i, Some m) -> self#paren (i.[0]='-') (fun f (i,m) -> + pp f "%s%c" i m) f (i,m) (* trailing space*) method mutable_flag f = function diff --git a/stdlib/array.ml b/stdlib/array.ml index dcea4d057..797f27654 100644 --- a/stdlib/array.ml +++ b/stdlib/array.ml @@ -78,7 +78,8 @@ let iter f a = for i = 0 to length a - 1 do f(unsafe_get a i) done let iter2 f a b = - if length a <> length b then invalid_arg "Array.iter2: arrays must have the same length" + if length a <> length b then + invalid_arg "Array.iter2: arrays must have the same length" else for i = 0 to length a - 1 do f (unsafe_get a i) (unsafe_get b i) done @@ -95,7 +96,9 @@ let map f a = let map2 f a b = let la = length a in let lb = length b in - if la <> lb then invalid_arg "Array.map2: arrays must have the same length" else begin + if la <> lb then + invalid_arg "Array.map2: arrays must have the same length" + else begin if la = 0 then [||] else begin let r = create la (f (unsafe_get a 0) (unsafe_get b 0)) in for i = 1 to la - 1 do diff --git a/stdlib/scanf.ml b/stdlib/scanf.ml index c09fbb588..657d63b21 100644 --- a/stdlib/scanf.ml +++ b/stdlib/scanf.ml @@ -941,7 +941,7 @@ let scan_caml_float width precision ib = if width = 0 || Scanning.end_of_input ib then bad_float (); scan_caml_float_rest width precision ib (* Special case of nan and infinity: - | 'i' -> + | 'i' -> | 'n' -> *) | _ -> bad_float () diff --git a/stdlib/scanf.mli b/stdlib/scanf.mli index e12986548..0c00fce3a 100644 --- a/stdlib/scanf.mli +++ b/stdlib/scanf.mli @@ -555,4 +555,3 @@ val kfscanf : ('a, 'b, 'c, 'd) scanner [@@ocaml.deprecated "Use Scanning.from_channel then Scanf.kscanf."] (** @deprecated [Scanf.kfscanf] is error prone and deprecated since 4.03.0. *) - diff --git a/stdlib/stream.ml b/stdlib/stream.ml index 893f5ea80..97519a853 100644 --- a/stdlib/stream.ml +++ b/stdlib/stream.ml @@ -119,7 +119,10 @@ let rec nget_data n s = ;; let npeek_data n s = - let (al, d, len) = nget_data n s in s.count <- (s.count - len); s.data <- d; al + let (al, d, len) = nget_data n s in + s.count <- (s.count - len); + s.data <- d; + al ;; let npeek n = function diff --git a/testsuite/Makefile b/testsuite/Makefile index 0e8c48a12..3aeaae95c 100644 --- a/testsuite/Makefile +++ b/testsuite/Makefile @@ -23,7 +23,8 @@ default: @echo " all launch all tests" @echo " all-foo launch all tests beginning with foo" @echo " parallel launch all tests using GNU parallel" - @echo " parallel-foo launch all tests beginning with foo using GNU parallel" + @echo " parallel-foo launch all tests beginning with foo using \ + GNU parallel" @echo " list FILE=f launch the tests listed in f (one per line)" @echo " one DIR=p launch the tests located in path p" @echo " promote DIR=p promote the reference files for the tests in p" @@ -31,8 +32,9 @@ default: @echo " clean delete generated files" @echo " report print the report for the last execution" @echo - @echo "all*, parallel* and list can automatically re-run failed test directories if" - @echo "MAX_TESTSUITE_DIR_RETRIES permits (default value = $(MAX_TESTSUITE_DIR_RETRIES))" + @echo "all*, parallel* and list can automatically re-run failed test" + @echo "directories if MAX_TESTSUITE_DIR_RETRIES permits" + @echo "(default value = $(MAX_TESTSUITE_DIR_RETRIES))" .PHONY: all all: lib @@ -183,7 +185,8 @@ retry-list: @$(MAKE) $(NO_PRINT) retries retries: - @awk -v retries=1 -v max_retries=$(MAX_TESTSUITE_DIR_RETRIES) -f makefiles/summarize.awk <_log >_retries + @awk -v retries=1 -v max_retries=$(MAX_TESTSUITE_DIR_RETRIES) \ + -f makefiles/summarize.awk <_log >_retries @test `cat _retries | wc -l` -eq 0 || $(MAKE) $(NO_PRINT) retry-list @rm -f _retries diff --git a/testsuite/makefiles/Makefile.common b/testsuite/makefiles/Makefile.common index bd2fce220..d6a21b7ec 100644 --- a/testsuite/makefiles/Makefile.common +++ b/testsuite/makefiles/Makefile.common @@ -43,10 +43,12 @@ include $(TOPDIR)/config/Makefile ifneq ($(USE_RUNTIME),) #Check USE_RUNTIME value ifeq ($(findstring $(USE_RUNTIME),d i),) -$(error If set, USE_RUNTIME must be equal to "d" (debug runtime) or "i" (instrumented runtime)) +$(error If set, USE_RUNTIME must be equal to "d" (debug runtime) \ + or "i" (instrumented runtime)) endif -RUNTIME_VARIANT=-I $(OTOPDIR)/asmrun -I $(OTOPDIR)/byterun -runtime-variant $(USE_RUNTIME) +RUNTIME_VARIANT=-I $(OTOPDIR)/asmrun -I $(OTOPDIR)/byterun \ + -runtime-variant $(USE_RUNTIME) export OCAMLRUNPARAM?=v=0 endif @@ -63,9 +65,20 @@ endif OCAML=$(OCAMLRUN) $(OTOPDIR)/ocaml $(OCFLAGS) \ -init $(OTOPDIR)/testsuite/lib/empty -FLEXLINK_PREFIX=$(if $(FLEXLINK),$(if $(wildcard $(TOPDIR)/flexdll/Makefile),OCAML_FLEXLINK="$(WINTOPDIR)/boot/ocamlrun $(WINTOPDIR)/flexdll/flexlink.exe" )) -OCAMLC=$(FLEXLINK_PREFIX)$(OCAMLRUN) $(OTOPDIR)/ocamlc $(CUSTOM) $(OCFLAGS) $(RUNTIME_VARIANT) -OCAMLOPT=$(FLEXLINK_PREFIX)$(OCAMLRUN) $(OTOPDIR)/ocamlopt $(OCFLAGS) $(RUNTIME_VARIANT) +ifeq "$(FLEXLINK)" "" + FLEXLINK_PREFIX= +else + ifeq "$(wildcard $(TOPDIR)/flexdll/Makefile)" "" + FLEXLINK_PREFIX= + else + FLEXLINK_PREFIX=OCAML_FLEXLINK="$(WINTOPDIR)/boot/ocamlrun \ + $(WINTOPDIR)/flexdll/flexlink.exe" + endif +endif +OCAMLC=$(FLEXLINK_PREFIX)$(OCAMLRUN) $(OTOPDIR)/ocamlc $(CUSTOM) $(OCFLAGS) \ + $(RUNTIME_VARIANT) +OCAMLOPT=$(FLEXLINK_PREFIX)$(OCAMLRUN) $(OTOPDIR)/ocamlopt $(OCFLAGS) \ + $(RUNTIME_VARIANT) OCAMLDOC=$(OCAMLRUN) $(OTOPDIR)/ocamldoc/ocamldoc OCAMLLEX=$(OCAMLRUN) $(OTOPDIR)/lex/ocamllex OCAMLMKLIB=$(FLEXLINK_PREFIX)$(OCAMLRUN) $(OTOPDIR)/tools/ocamlmklib \ @@ -130,7 +143,9 @@ defaultclean: @$(ASM) -o $*.o $*.s .cmm.obj: - @$(OCAMLRUN) ./codegen $*.cmm | grep -v "_caml_\(young_ptr\|young_limit\|extra_params\|allocN\|raise_exn\|reraise_exn\)" > $*.s + @$(OCAMLRUN) ./codegen $*.cmm \ + | grep -v "_caml_\(young_ptr\|young_limit\|extra_params\ + \|allocN\|raise_exn\|reraise_exn\)" > $*.s @set -o pipefail ; \ $(ASM) $*.obj $*.s | tail -n +2 diff --git a/testsuite/tests/asmcomp/is_static.ml b/testsuite/tests/asmcomp/is_static.ml index 76335af0f..bedc033df 100644 --- a/testsuite/tests/asmcomp/is_static.ml +++ b/testsuite/tests/asmcomp/is_static.ml @@ -18,7 +18,7 @@ let f () = let () = (f [@inlined never]) () (* Closed functions should be static *) -let closed_function x = x + 1 (* + is a primitive, it cannot be in the closure *) +let closed_function x = x + 1 (* + is a primitive, it cannot be in the closure*) let () = assert(is_in_static_data closed_function) (* And functions using closed functions *) diff --git a/testsuite/tests/asmcomp/mainarith.c b/testsuite/tests/asmcomp/mainarith.c index cb2ef3f08..fe12cbcf2 100644 --- a/testsuite/tests/asmcomp/mainarith.c +++ b/testsuite/tests/asmcomp/mainarith.c @@ -283,7 +283,7 @@ static intnat mulhs(intnat u, intnat v) #define RAND_C 1442695040888963407ULL #else #define RAND_A 214013U -#define RAND_C 2531011U +#define RAND_C 2531011U #endif static intnat rnd(void) diff --git a/testsuite/tests/asmcomp/parsecmm.mly b/testsuite/tests/asmcomp/parsecmm.mly index 5d19f3d4a..24767aeac 100644 --- a/testsuite/tests/asmcomp/parsecmm.mly +++ b/testsuite/tests/asmcomp/parsecmm.mly @@ -210,11 +210,14 @@ expr: | LPAREN FLOATAREF expr expr RPAREN { Cop(Cload Double_u, [access_array $3 $4 Arch.size_float]) } | LPAREN ADDRASET expr expr expr RPAREN - { Cop(Cstore (Word_val, Assignment), [access_array $3 $4 Arch.size_addr; $5]) } + { Cop(Cstore (Word_val, Assignment), + [access_array $3 $4 Arch.size_addr; $5]) } | LPAREN INTASET expr expr expr RPAREN - { Cop(Cstore (Word_int, Assignment), [access_array $3 $4 Arch.size_int; $5]) } + { Cop(Cstore (Word_int, Assignment), + [access_array $3 $4 Arch.size_int; $5]) } | LPAREN FLOATASET expr expr expr RPAREN - { Cop(Cstore (Double_u, Assignment), [access_array $3 $4 Arch.size_float; $5]) } + { Cop(Cstore (Double_u, Assignment), + [access_array $3 $4 Arch.size_float; $5]) } ; exprlist: exprlist expr { $2 :: $1 } diff --git a/testsuite/tests/asmcomp/s390x.S b/testsuite/tests/asmcomp/s390x.S index eb5bd23fe..d0b4b3c8d 100644 --- a/testsuite/tests/asmcomp/s390x.S +++ b/testsuite/tests/asmcomp/s390x.S @@ -5,15 +5,15 @@ #define CAML_NEGF_MASK caml_negf_mask #define CAML_ABSF_MASK caml_absf_mask - .section ".text" - - .globl CALL_GEN_CODE - .type CALL_GEN_CODE, @function - .align ALIGN + .section ".text" + + .globl CALL_GEN_CODE + .type CALL_GEN_CODE, @function + .align ALIGN CALL_GEN_CODE: - /* Stack space */ - lay %r15, -144(%r15) - /* Save registers */ + /* Stack space */ + lay %r15, -144(%r15) + /* Save registers */ stmg %r6,%r14, 0(%r15) std %f8, 72(%r15) std %f9, 80(%r15) @@ -23,14 +23,14 @@ CALL_GEN_CODE: std %f13, 112(%r15) std %f14, 120(%r15) std %f15, 128(%r15) - /* Shuffle args */ - lgr %r1, %r2 - lgr %r2, %r3 - lgr %r3, %r4 - lgr %r4, %r5 - /* Function call */ - basr %r14, %r1 - /* Restore registers */ + /* Shuffle args */ + lgr %r1, %r2 + lgr %r2, %r3 + lgr %r3, %r4 + lgr %r4, %r5 + /* Function call */ + basr %r14, %r1 + /* Restore registers */ lmg %r6,%r14, 0(%r15) ld %f8, 72(%r15) ld %f9, 80(%r15) @@ -40,23 +40,23 @@ CALL_GEN_CODE: ld %f13, 112(%r15) ld %f14, 120(%r15) ld %f15, 128(%r15) - /* Return */ - lay %r15, 144(%r15) - br %r14 + /* Return */ + lay %r15, 144(%r15) + br %r14 - .globl CAML_C_CALL - .type CAML_C_CALL, @function - .align ALIGN + .globl CAML_C_CALL + .type CAML_C_CALL, @function + .align ALIGN CAML_C_CALL: - br %r7 - - .section ".rodata" + br %r7 - .global CAML_NEGF_MASK - .align ALIGN + .section ".rodata" + + .global CAML_NEGF_MASK + .align ALIGN CAML_NEGF_MASK: - .quad 0x8000000000000000, 0 - .global CAML_ABSF_MASK + .quad 0x8000000000000000, 0 + .global CAML_ABSF_MASK .align ALIGN CAML_ABSF_MASK: .quad 0x7FFFFFFFFFFFFFFF, 0 diff --git a/testsuite/tests/backtrace/Makefile b/testsuite/tests/backtrace/Makefile index 028bf3821..1860fe6aa 100644 --- a/testsuite/tests/backtrace/Makefile +++ b/testsuite/tests/backtrace/Makefile @@ -54,10 +54,12 @@ byte: skip: @for file in $(ABCDFILES); do \ for arg in a b c d ''; do \ - echo " ... testing '$$file' with ocamlopt and argument '$$arg': => skipped"; \ + echo " ... testing '$$file' with ocamlopt and argument '$$arg': \ + => skipped"; \ done; \ done - @for file in $(OTHERFILES) $(OTHERFILESNOINLINING) $(OTHERFILESNOINLINING_NATIVE); do \ + @for file in $(OTHERFILES) $(OTHERFILESNOINLINING) \ + $(OTHERFILESNOINLINING_NATIVE); do \ echo " ... testing '$$file' with ocamlopt: => skipped"; \ done diff --git a/testsuite/tests/basic-io-2/test-file-short-lines b/testsuite/tests/basic-io-2/test-file-short-lines index 9c0f7b97e..979aa0a21 100644 --- a/testsuite/tests/basic-io-2/test-file-short-lines +++ b/testsuite/tests/basic-io-2/test-file-short-lines @@ -4,7 +4,7 @@ # localhost is used to configure the loopback interface # when the system is booting. Do not change this entry. ## -127.0.0.1 localhost -255.255.255.255 broadcasthost +127.0.0.1 localhost +255.255.255.255 broadcasthost ::1 localhost -fe80::1%lo0 localhost +fe80::1%lo0 localhost diff --git a/testsuite/tests/basic-more/if_in_if.ml b/testsuite/tests/basic-more/if_in_if.ml index 118826bf3..cd1e56bbc 100644 --- a/testsuite/tests/basic-more/if_in_if.ml +++ b/testsuite/tests/basic-more/if_in_if.ml @@ -4,28 +4,32 @@ let sequor b1 b2 = let b2 = ref b2 in let b1 = !b1 in let b2 = !b2 in - if (if b1 then true else b2 && if b1 then true else b2) then "true" else "false" + if (if b1 then true else b2 && if b1 then true else b2) + then "true" else "false" let sequand b1 b2 = let b1 = ref b1 in let b2 = ref b2 in let b1 = !b1 in let b2 = !b2 in - if (if b1 then b2 else false && if b1 then b2 else false) then "true" else "false" + if (if b1 then b2 else false && if b1 then b2 else false) + then "true" else "false" let sequor' b1 b2 = let b1 = ref b1 in let b2 = ref b2 in let b1 = !b1 in let b2 = !b2 in - if (if b1 then true else b2 || if b1 then true else b2) then "true" else "false" + if (if b1 then true else b2 || if b1 then true else b2) + then "true" else "false" let sequand' b1 b2 = let b1 = ref b1 in let b2 = ref b2 in let b1 = !b1 in let b2 = !b2 in - if (if b1 then b2 else false || if b1 then b2 else false) then "true" else "false" + if (if b1 then b2 else false || if b1 then b2 else false) + then "true" else "false" let test b1 b2 = assert(sequor b1 b2 = if b1 || b2 then "true" else "false"); diff --git a/testsuite/tests/basic-more/sequential_and_or.ml b/testsuite/tests/basic-more/sequential_and_or.ml index 524368a53..5a6b33afd 100644 --- a/testsuite/tests/basic-more/sequential_and_or.ml +++ b/testsuite/tests/basic-more/sequential_and_or.ml @@ -116,7 +116,8 @@ let () = (* test generation *) (* -let values = ["true"; "false"; "true_effect ()"; "false_effect ()"; "unknown_true"; "unknown_false"] +let values = ["true"; "false"; "true_effect ()"; "false_effect ()"; + "unknown_true"; "unknown_false"] let ops = ["||"; "&&"] let count = ref 0 let f op v1 v2 = diff --git a/testsuite/tests/basic/float_physical_equality.ml b/testsuite/tests/basic/float_physical_equality.ml index 54404160d..1fba35784 100644 --- a/testsuite/tests/basic/float_physical_equality.ml +++ b/testsuite/tests/basic/float_physical_equality.ml @@ -8,4 +8,3 @@ let f () = let a = -0. in let b = +0. in assert(not (a == b)) - diff --git a/testsuite/tests/extension-constructor/test.ml b/testsuite/tests/extension-constructor/test.ml index 781e72dd5..c5266957e 100644 --- a/testsuite/tests/extension-constructor/test.ml +++ b/testsuite/tests/extension-constructor/test.ml @@ -21,9 +21,13 @@ type t += C type t += D of int * string let () = - assert (Obj.extension_constructor M.A == [%extension_constructor M.A]); - assert (Obj.extension_constructor (M.B 42) == [%extension_constructor M.B]); - assert (Obj.extension_constructor C == [%extension_constructor C ]); - assert (Obj.extension_constructor (D (42, "")) == [%extension_constructor D ]) + assert (Obj.extension_constructor M.A + == [%extension_constructor M.A]); + assert (Obj.extension_constructor (M.B 42) + == [%extension_constructor M.B]); + assert (Obj.extension_constructor C + == [%extension_constructor C]); + assert (Obj.extension_constructor (D (42, "")) + == [%extension_constructor D]) let () = print_endline "OK" diff --git a/testsuite/tests/lib-stack/test.ml b/testsuite/tests/lib-stack/test.ml index e8df9a264..e7423107b 100644 --- a/testsuite/tests/lib-stack/test.ml +++ b/testsuite/tests/lib-stack/test.ml @@ -13,7 +13,10 @@ module S = struct include Stack - let to_list s = let l = ref [] in iter (fun x -> l := x :: !l) s; !l (* from bottom to top *) + let to_list s = (* from bottom to top *) + let l = ref [] in + iter (fun x -> l := x :: !l) s; + !l end let does_raise f s = diff --git a/testsuite/tests/lib-str/t01.ml b/testsuite/tests/lib-str/t01.ml index 3255ca8be..9e8ee9371 100644 --- a/testsuite/tests/lib-str/t01.ml +++ b/testsuite/tests/lib-str/t01.ml @@ -389,11 +389,11 @@ let automated_test() = test_search_forward r n "ething" [||]; - start_test "Search for /^ÿ/"; - let r = Str.regexp "^ÿ" in + start_test "Search for /^\255/"; + let r = Str.regexp "^\255" in let n = 0 in - test_search_forward r n "ÿ" - [|"ÿ"|]; + test_search_forward r n "\255" + [|"\255"|]; start_test "Search for /^[0-9]+$/"; let r = Str.regexp "^[0-9]+$" in diff --git a/testsuite/tests/lib-threads/pr5325.ml b/testsuite/tests/lib-threads/pr5325.ml index 0058a4e1a..d5d283c84 100644 --- a/testsuite/tests/lib-threads/pr5325.ml +++ b/testsuite/tests/lib-threads/pr5325.ml @@ -67,4 +67,3 @@ let _ = Thread.delay 0.5; writer client "Client data\n"; Thread.join rd - diff --git a/testsuite/tests/lib-threads/sockets.ml b/testsuite/tests/lib-threads/sockets.ml index 3f9f39376..b401d8569 100644 --- a/testsuite/tests/lib-threads/sockets.ml +++ b/testsuite/tests/lib-threads/sockets.ml @@ -47,6 +47,3 @@ let _ = ignore (Thread.create client (addr, "Client #1\n")); Thread.delay 0.5; client (addr, "Client #2\n") - - - diff --git a/testsuite/tests/lib-threads/socketsbuf.ml b/testsuite/tests/lib-threads/socketsbuf.ml index 0afd0a218..7f606fd39 100644 --- a/testsuite/tests/lib-threads/socketsbuf.ml +++ b/testsuite/tests/lib-threads/socketsbuf.ml @@ -49,6 +49,3 @@ let _ = ignore (Thread.create client (addr, "Client #1\n")); Thread.delay 0.5; client (addr, "Client #2\n") - - - diff --git a/testsuite/tests/lib-threads/torture.ml b/testsuite/tests/lib-threads/torture.ml index a60a7d7e6..101f1850d 100644 --- a/testsuite/tests/lib-threads/torture.ml +++ b/testsuite/tests/lib-threads/torture.ml @@ -54,4 +54,3 @@ let _ = finished := true; List.iter Thread.join [t1; t2; t3; t4; t5]; print_string "passed\n" - diff --git a/testsuite/tests/parsing/int_and_float_with_modifier.ml b/testsuite/tests/parsing/int_and_float_with_modifier.ml index 7afdeb991..06384257b 100644 --- a/testsuite/tests/parsing/int_and_float_with_modifier.ml +++ b/testsuite/tests/parsing/int_and_float_with_modifier.ml @@ -1,5 +1,7 @@ -let int_with_custom_modifier = 1234567890_1234567890_1234567890_1234567890_1234567890z -let float_with_custom_modifier = 1234567890_1234567890_1234567890_1234567890_1234567890.z +let int_with_custom_modifier = + 1234567890_1234567890_1234567890_1234567890_1234567890z +let float_with_custom_modifier = + 1234567890_1234567890_1234567890_1234567890_1234567890.z let int32 = 1234l let int64 = 1234L diff --git a/testsuite/tests/parsing/int_and_float_with_modifier.ml.reference b/testsuite/tests/parsing/int_and_float_with_modifier.ml.reference index 1ec17f262..fd3bee0e4 100644 --- a/testsuite/tests/parsing/int_and_float_with_modifier.ml.reference +++ b/testsuite/tests/parsing/int_and_float_with_modifier.ml.reference @@ -1,86 +1,86 @@ [ - structure_item (int_and_float_with_modifier.ml[1,0+0]..[1,0+88]) + structure_item (int_and_float_with_modifier.ml[1,0+0]..[2,31+57]) Pstr_value Nonrec [ pattern (int_and_float_with_modifier.ml[1,0+4]..[1,0+28]) Ppat_var "int_with_custom_modifier" (int_and_float_with_modifier.ml[1,0+4]..[1,0+28]) - expression (int_and_float_with_modifier.ml[1,0+33]..[1,0+88]) + expression (int_and_float_with_modifier.ml[2,31+2]..[2,31+57]) Pexp_constant PConst_int (1234567890_1234567890_1234567890_1234567890_1234567890,Some z) ] - structure_item (int_and_float_with_modifier.ml[2,89+0]..[2,89+89]) + structure_item (int_and_float_with_modifier.ml[3,89+0]..[4,122+58]) Pstr_value Nonrec [ - pattern (int_and_float_with_modifier.ml[2,89+4]..[2,89+30]) - Ppat_var "float_with_custom_modifier" (int_and_float_with_modifier.ml[2,89+4]..[2,89+30]) - expression (int_and_float_with_modifier.ml[2,89+33]..[2,89+89]) + pattern (int_and_float_with_modifier.ml[3,89+4]..[3,89+30]) + Ppat_var "float_with_custom_modifier" (int_and_float_with_modifier.ml[3,89+4]..[3,89+30]) + expression (int_and_float_with_modifier.ml[4,122+2]..[4,122+58]) Pexp_constant PConst_float (1234567890_1234567890_1234567890_1234567890_1234567890.,Some z) ] - structure_item (int_and_float_with_modifier.ml[4,180+0]..[4,180+21]) + structure_item (int_and_float_with_modifier.ml[6,182+0]..[6,182+21]) Pstr_value Nonrec [ - pattern (int_and_float_with_modifier.ml[4,180+4]..[4,180+9]) - Ppat_var "int32" (int_and_float_with_modifier.ml[4,180+4]..[4,180+9]) - expression (int_and_float_with_modifier.ml[4,180+16]..[4,180+21]) + pattern (int_and_float_with_modifier.ml[6,182+4]..[6,182+9]) + Ppat_var "int32" (int_and_float_with_modifier.ml[6,182+4]..[6,182+9]) + expression (int_and_float_with_modifier.ml[6,182+16]..[6,182+21]) Pexp_constant PConst_int (1234,Some l) ] - structure_item (int_and_float_with_modifier.ml[5,202+0]..[5,202+21]) + structure_item (int_and_float_with_modifier.ml[7,204+0]..[7,204+21]) Pstr_value Nonrec [ - pattern (int_and_float_with_modifier.ml[5,202+4]..[5,202+9]) - Ppat_var "int64" (int_and_float_with_modifier.ml[5,202+4]..[5,202+9]) - expression (int_and_float_with_modifier.ml[5,202+16]..[5,202+21]) + pattern (int_and_float_with_modifier.ml[7,204+4]..[7,204+9]) + Ppat_var "int64" (int_and_float_with_modifier.ml[7,204+4]..[7,204+9]) + expression (int_and_float_with_modifier.ml[7,204+16]..[7,204+21]) Pexp_constant PConst_int (1234,Some L) ] - structure_item (int_and_float_with_modifier.ml[6,224+0]..[6,224+21]) + structure_item (int_and_float_with_modifier.ml[8,226+0]..[8,226+21]) Pstr_value Nonrec [ - pattern (int_and_float_with_modifier.ml[6,224+4]..[6,224+13]) - Ppat_var "nativeint" (int_and_float_with_modifier.ml[6,224+4]..[6,224+13]) - expression (int_and_float_with_modifier.ml[6,224+16]..[6,224+21]) + pattern (int_and_float_with_modifier.ml[8,226+4]..[8,226+13]) + Ppat_var "nativeint" (int_and_float_with_modifier.ml[8,226+4]..[8,226+13]) + expression (int_and_float_with_modifier.ml[8,226+16]..[8,226+21]) Pexp_constant PConst_int (1234,Some n) ] - structure_item (int_and_float_with_modifier.ml[8,247+0]..[8,247+32]) + structure_item (int_and_float_with_modifier.ml[10,249+0]..[10,249+32]) Pstr_value Nonrec [ - pattern (int_and_float_with_modifier.ml[8,247+4]..[8,247+24]) - Ppat_var "hex_without_modifier" (int_and_float_with_modifier.ml[8,247+4]..[8,247+24]) - expression (int_and_float_with_modifier.ml[8,247+27]..[8,247+32]) + pattern (int_and_float_with_modifier.ml[10,249+4]..[10,249+24]) + Ppat_var "hex_without_modifier" (int_and_float_with_modifier.ml[10,249+4]..[10,249+24]) + expression (int_and_float_with_modifier.ml[10,249+27]..[10,249+32]) Pexp_constant PConst_int (0x32f,None) ] - structure_item (int_and_float_with_modifier.ml[9,280+0]..[9,280+32]) + structure_item (int_and_float_with_modifier.ml[11,282+0]..[11,282+32]) Pstr_value Nonrec [ - pattern (int_and_float_with_modifier.ml[9,280+4]..[9,280+21]) - Ppat_var "hex_with_modifier" (int_and_float_with_modifier.ml[9,280+4]..[9,280+21]) - expression (int_and_float_with_modifier.ml[9,280+27]..[9,280+32]) + pattern (int_and_float_with_modifier.ml[11,282+4]..[11,282+21]) + Ppat_var "hex_with_modifier" (int_and_float_with_modifier.ml[11,282+4]..[11,282+21]) + expression (int_and_float_with_modifier.ml[11,282+27]..[11,282+32]) Pexp_constant PConst_int (0x32,Some g) ] - structure_item (int_and_float_with_modifier.ml[11,314+0]..[11,314+33]) + structure_item (int_and_float_with_modifier.ml[13,316+0]..[13,316+33]) Pstr_value Nonrec [ - pattern (int_and_float_with_modifier.ml[11,314+4]..[11,314+25]) - Ppat_var "float_without_modifer" (int_and_float_with_modifier.ml[11,314+4]..[11,314+25]) - expression (int_and_float_with_modifier.ml[11,314+28]..[11,314+33]) + pattern (int_and_float_with_modifier.ml[13,316+4]..[13,316+25]) + Ppat_var "float_without_modifer" (int_and_float_with_modifier.ml[13,316+4]..[13,316+25]) + expression (int_and_float_with_modifier.ml[13,316+28]..[13,316+33]) Pexp_constant PConst_float (1.2e3,None) ] - structure_item (int_and_float_with_modifier.ml[12,348+0]..[12,348+32]) + structure_item (int_and_float_with_modifier.ml[14,350+0]..[14,350+32]) Pstr_value Nonrec [ - pattern (int_and_float_with_modifier.ml[12,348+4]..[12,348+22]) - Ppat_var "float_with_modifer" (int_and_float_with_modifier.ml[12,348+4]..[12,348+22]) - expression (int_and_float_with_modifier.ml[12,348+28]..[12,348+32]) + pattern (int_and_float_with_modifier.ml[14,350+4]..[14,350+22]) + Ppat_var "float_with_modifer" (int_and_float_with_modifier.ml[14,350+4]..[14,350+22]) + expression (int_and_float_with_modifier.ml[14,350+28]..[14,350+32]) Pexp_constant PConst_float (1.2,Some g) ] ] -File "int_and_float_with_modifier.ml", line 1, characters 33-88: +File "int_and_float_with_modifier.ml", line 2, characters 2-57: Error: Unknown modifier 'z' for literal 1234567890_1234567890_1234567890_1234567890_1234567890z diff --git a/testsuite/tests/regression/pr7042/pr7042.ml b/testsuite/tests/regression/pr7042/pr7042.ml index 32c64c53f..067932a31 100644 --- a/testsuite/tests/regression/pr7042/pr7042.ml +++ b/testsuite/tests/regression/pr7042/pr7042.ml @@ -14,4 +14,3 @@ let _ = let a = [| 0.0; -. 0.0 |] in Printf.printf "%Lx %Lx\n" (Int64.bits_of_float a.(0)) (Int64.bits_of_float a.(1)) - diff --git a/testsuite/tests/runtime-errors/Makefile b/testsuite/tests/runtime-errors/Makefile index 682f7b3be..f106937ad 100644 --- a/testsuite/tests/runtime-errors/Makefile +++ b/testsuite/tests/runtime-errors/Makefile @@ -52,7 +52,9 @@ run: echo " => unexpected error"; \ fi; \ fn=`basename $$f bytecode`native; \ - if $(BYTECODE_ONLY) || [ ! -f "$${fn}$(EXE)" ] ; then echo " ... testing '$$fn': => skipped" ; else \ + if $(BYTECODE_ONLY) || [ ! -f "$${fn}$(EXE)" ] ; then \ + echo " ... testing '$$fn': => skipped" ; \ + else \ printf " ... testing '$$fn':"; \ if [ $$ul -eq 1 ] ; then \ ./$${fn}$(EXE) >$$fn.result 2>&1 || true; \ diff --git a/testsuite/tests/tool-ocaml/t000.ml b/testsuite/tests/tool-ocaml/t000.ml index fafa1c89f..27520c660 100644 --- a/testsuite/tests/tool-ocaml/t000.ml +++ b/testsuite/tests/tool-ocaml/t000.ml @@ -1,7 +1,7 @@ (* empty file *) (** - 0 ATOM0 + 0 ATOM0 1 SETGLOBAL T000 - 3 STOP + 3 STOP **) diff --git a/testsuite/tests/tool-ocaml/t010-const0.ml b/testsuite/tests/tool-ocaml/t010-const0.ml index 73ecbb1f1..65bb3dedb 100644 --- a/testsuite/tests/tool-ocaml/t010-const0.ml +++ b/testsuite/tests/tool-ocaml/t010-const0.ml @@ -1,8 +1,8 @@ 0;; (** - 0 CONST0 - 1 ATOM0 + 0 CONST0 + 1 ATOM0 2 SETGLOBAL T010-const0 - 4 STOP + 4 STOP **) diff --git a/testsuite/tests/tool-ocaml/t010-const1.ml b/testsuite/tests/tool-ocaml/t010-const1.ml index 75a00d578..8238b4fc4 100644 --- a/testsuite/tests/tool-ocaml/t010-const1.ml +++ b/testsuite/tests/tool-ocaml/t010-const1.ml @@ -1,8 +1,8 @@ 1;; (** - 0 CONST1 - 1 ATOM0 + 0 CONST1 + 1 ATOM0 2 SETGLOBAL T010-const1 - 4 STOP + 4 STOP **) diff --git a/testsuite/tests/tool-ocaml/t010-const2.ml b/testsuite/tests/tool-ocaml/t010-const2.ml index f0ed8e7df..8bbffdbcb 100644 --- a/testsuite/tests/tool-ocaml/t010-const2.ml +++ b/testsuite/tests/tool-ocaml/t010-const2.ml @@ -1,8 +1,8 @@ 2;; (** - 0 CONST2 - 1 ATOM0 + 0 CONST2 + 1 ATOM0 2 SETGLOBAL T010-const2 - 4 STOP + 4 STOP **) diff --git a/testsuite/tests/tool-ocaml/t010-const3.ml b/testsuite/tests/tool-ocaml/t010-const3.ml index 4f034c4b5..e5767cccc 100644 --- a/testsuite/tests/tool-ocaml/t010-const3.ml +++ b/testsuite/tests/tool-ocaml/t010-const3.ml @@ -1,8 +1,8 @@ 3;; (** - 0 CONST3 - 1 ATOM0 + 0 CONST3 + 1 ATOM0 2 SETGLOBAL T010-const3 - 4 STOP + 4 STOP **) diff --git a/testsuite/tests/tool-ocaml/t011-constint.ml b/testsuite/tests/tool-ocaml/t011-constint.ml index 9ece6c53b..104f6050f 100644 --- a/testsuite/tests/tool-ocaml/t011-constint.ml +++ b/testsuite/tests/tool-ocaml/t011-constint.ml @@ -2,7 +2,7 @@ (** 0 CONSTINT 4 - 2 ATOM0 + 2 ATOM0 3 SETGLOBAL T011-constint - 5 STOP + 5 STOP **) diff --git a/testsuite/tests/tool-ocaml/t020.ml b/testsuite/tests/tool-ocaml/t020.ml index 5d6a3cfc9..afbce871e 100644 --- a/testsuite/tests/tool-ocaml/t020.ml +++ b/testsuite/tests/tool-ocaml/t020.ml @@ -1,10 +1,10 @@ let _ = () in ();; (** - 0 CONST0 - 1 PUSHCONST0 + 0 CONST0 + 1 PUSHCONST0 2 POP 1 - 4 ATOM0 + 4 ATOM0 5 SETGLOBAL T020 - 7 STOP + 7 STOP **) diff --git a/testsuite/tests/tool-ocaml/t021-pushconst1.ml b/testsuite/tests/tool-ocaml/t021-pushconst1.ml index 075997a83..863bd89a4 100644 --- a/testsuite/tests/tool-ocaml/t021-pushconst1.ml +++ b/testsuite/tests/tool-ocaml/t021-pushconst1.ml @@ -1,10 +1,10 @@ let _ = () in 1;; (** - 0 CONST0 - 1 PUSHCONST1 + 0 CONST0 + 1 PUSHCONST1 2 POP 1 - 4 ATOM0 + 4 ATOM0 5 SETGLOBAL T021-pushconst1 - 7 STOP + 7 STOP **) diff --git a/testsuite/tests/tool-ocaml/t021-pushconst2.ml b/testsuite/tests/tool-ocaml/t021-pushconst2.ml index 17adb5075..9e7e42a93 100644 --- a/testsuite/tests/tool-ocaml/t021-pushconst2.ml +++ b/testsuite/tests/tool-ocaml/t021-pushconst2.ml @@ -1,10 +1,10 @@ let _ = () in 2;; (** - 0 CONST0 - 1 PUSHCONST2 + 0 CONST0 + 1 PUSHCONST2 2 POP 1 - 4 ATOM0 + 4 ATOM0 5 SETGLOBAL T021-pushconst2 - 7 STOP + 7 STOP **) diff --git a/testsuite/tests/tool-ocaml/t021-pushconst3.ml b/testsuite/tests/tool-ocaml/t021-pushconst3.ml index 563c60932..5a674f6a1 100644 --- a/testsuite/tests/tool-ocaml/t021-pushconst3.ml +++ b/testsuite/tests/tool-ocaml/t021-pushconst3.ml @@ -1,10 +1,10 @@ let _ = () in 3;; (** - 0 CONST0 - 1 PUSHCONST3 + 0 CONST0 + 1 PUSHCONST3 2 POP 1 - 4 ATOM0 + 4 ATOM0 5 SETGLOBAL T021-pushconst3 - 7 STOP + 7 STOP **) diff --git a/testsuite/tests/tool-ocaml/t022-pushconstint.ml b/testsuite/tests/tool-ocaml/t022-pushconstint.ml index 1b766a572..f1c71ea55 100644 --- a/testsuite/tests/tool-ocaml/t022-pushconstint.ml +++ b/testsuite/tests/tool-ocaml/t022-pushconstint.ml @@ -1,10 +1,10 @@ let _ = () in -1;; (** - 0 CONST0 + 0 CONST0 1 PUSHCONSTINT -1 3 POP 1 - 5 ATOM0 + 5 ATOM0 6 SETGLOBAL T022-pushconstint - 8 STOP + 8 STOP **) diff --git a/testsuite/tests/tool-ocaml/t040-makeblock1.ml b/testsuite/tests/tool-ocaml/t040-makeblock1.ml index 71516606b..87458cd91 100644 --- a/testsuite/tests/tool-ocaml/t040-makeblock1.ml +++ b/testsuite/tests/tool-ocaml/t040-makeblock1.ml @@ -5,9 +5,9 @@ type t = { { a = 0 };; (** - 0 CONST0 + 0 CONST0 1 MAKEBLOCK1 0 - 3 ATOM0 + 3 ATOM0 4 SETGLOBAL T040-makeblock1 - 6 STOP + 6 STOP **) diff --git a/testsuite/tests/tool-ocaml/t040-makeblock2.ml b/testsuite/tests/tool-ocaml/t040-makeblock2.ml index e7c745b9c..d64c3401b 100644 --- a/testsuite/tests/tool-ocaml/t040-makeblock2.ml +++ b/testsuite/tests/tool-ocaml/t040-makeblock2.ml @@ -6,10 +6,10 @@ type t = { { a = 0; b = 0 };; (** - 0 CONST0 - 1 PUSHCONST0 + 0 CONST0 + 1 PUSHCONST0 2 MAKEBLOCK2 0 - 4 ATOM0 + 4 ATOM0 5 SETGLOBAL T040-makeblock2 - 7 STOP + 7 STOP **) diff --git a/testsuite/tests/tool-ocaml/t040-makeblock3.ml b/testsuite/tests/tool-ocaml/t040-makeblock3.ml index 8fb56054e..03c798188 100644 --- a/testsuite/tests/tool-ocaml/t040-makeblock3.ml +++ b/testsuite/tests/tool-ocaml/t040-makeblock3.ml @@ -7,11 +7,11 @@ type t = { { a = 0; b = 0; c = 0 };; (** - 0 CONST0 - 1 PUSHCONST0 - 2 PUSHCONST0 + 0 CONST0 + 1 PUSHCONST0 + 2 PUSHCONST0 3 MAKEBLOCK3 0 - 5 ATOM0 + 5 ATOM0 6 SETGLOBAL T040-makeblock3 - 8 STOP + 8 STOP **) diff --git a/testsuite/tests/tool-ocaml/t041-makeblock.ml b/testsuite/tests/tool-ocaml/t041-makeblock.ml index 5ae255d6e..4d38eac8a 100644 --- a/testsuite/tests/tool-ocaml/t041-makeblock.ml +++ b/testsuite/tests/tool-ocaml/t041-makeblock.ml @@ -8,12 +8,12 @@ type t = { { a = 0; b = 0; c = 0; d = 0 };; (** - 0 CONST0 - 1 PUSHCONST0 - 2 PUSHCONST0 - 3 PUSHCONST0 + 0 CONST0 + 1 PUSHCONST0 + 2 PUSHCONST0 + 3 PUSHCONST0 4 MAKEBLOCK 4, 0 - 7 ATOM0 + 7 ATOM0 8 SETGLOBAL T041-makeblock - 10 STOP + 10 STOP **) diff --git a/testsuite/tests/tool-ocaml/t050-getglobal.ml b/testsuite/tests/tool-ocaml/t050-getglobal.ml index f10393cf6..7481ca2ac 100644 --- a/testsuite/tests/tool-ocaml/t050-getglobal.ml +++ b/testsuite/tests/tool-ocaml/t050-getglobal.ml @@ -2,7 +2,7 @@ (** 0 GETGLOBAL <0>(1, 0) - 2 ATOM0 + 2 ATOM0 3 SETGLOBAL T050-getglobal - 5 STOP + 5 STOP **) diff --git a/testsuite/tests/tool-ocaml/t050-pushgetglobal.ml b/testsuite/tests/tool-ocaml/t050-pushgetglobal.ml index e1172cc35..62be92f02 100644 --- a/testsuite/tests/tool-ocaml/t050-pushgetglobal.ml +++ b/testsuite/tests/tool-ocaml/t050-pushgetglobal.ml @@ -1,10 +1,10 @@ let _ = () in 0.01;; (** - 0 CONST0 + 0 CONST0 1 PUSHGETGLOBAL 0.01 3 POP 1 - 5 ATOM0 + 5 ATOM0 6 SETGLOBAL T050-pushgetglobal - 8 STOP + 8 STOP **) diff --git a/testsuite/tests/tool-ocaml/t051-getglobalfield.ml b/testsuite/tests/tool-ocaml/t051-getglobalfield.ml index 45d9ccea2..eb3b61082 100644 --- a/testsuite/tests/tool-ocaml/t051-getglobalfield.ml +++ b/testsuite/tests/tool-ocaml/t051-getglobalfield.ml @@ -2,12 +2,12 @@ Lib.x;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 GETGLOBALFIELD Lib, 0 - 12 ATOM0 + 12 ATOM0 13 SETGLOBAL T051-getglobalfield - 15 STOP + 15 STOP **) diff --git a/testsuite/tests/tool-ocaml/t051-pushgetglobalfield.ml b/testsuite/tests/tool-ocaml/t051-pushgetglobalfield.ml index 2012a2573..3e8a37e6f 100644 --- a/testsuite/tests/tool-ocaml/t051-pushgetglobalfield.ml +++ b/testsuite/tests/tool-ocaml/t051-pushgetglobalfield.ml @@ -2,14 +2,14 @@ let _ = () in Lib.x;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 + 9 CONST0 10 PUSHGETGLOBALFIELD Lib, 0 13 POP 1 - 15 ATOM0 + 15 ATOM0 16 SETGLOBAL T051-pushgetglobalfield - 18 STOP + 18 STOP **) diff --git a/testsuite/tests/tool-ocaml/t060-raise.ml b/testsuite/tests/tool-ocaml/t060-raise.ml index 1aa484667..aff2e3872 100644 --- a/testsuite/tests/tool-ocaml/t060-raise.ml +++ b/testsuite/tests/tool-ocaml/t060-raise.ml @@ -3,13 +3,13 @@ raise End_of_file;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 GETGLOBAL End_of_file 11 MAKEBLOCK1 0 - 13 RAISE + 13 RAISE 14 SETGLOBAL T060-raise - 16 STOP + 16 STOP **) diff --git a/testsuite/tests/tool-ocaml/t070-branch.ml b/testsuite/tests/tool-ocaml/t070-branch.ml index 4fc52d426..92e00c09c 100644 --- a/testsuite/tests/tool-ocaml/t070-branch.ml +++ b/testsuite/tests/tool-ocaml/t070-branch.ml @@ -3,18 +3,18 @@ if true then 0 else raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST1 + 9 CONST1 10 BRANCHIFNOT 15 - 12 CONST0 + 12 CONST0 13 BRANCH 20 15 GETGLOBAL Not_found 17 MAKEBLOCK1 0 - 19 RAISE - 20 ATOM0 + 19 RAISE + 20 ATOM0 21 SETGLOBAL T070-branch - 23 STOP + 23 STOP **) diff --git a/testsuite/tests/tool-ocaml/t070-branchif.ml b/testsuite/tests/tool-ocaml/t070-branchif.ml index c256248c8..266757711 100644 --- a/testsuite/tests/tool-ocaml/t070-branchif.ml +++ b/testsuite/tests/tool-ocaml/t070-branchif.ml @@ -3,18 +3,18 @@ if not false then 0 else raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 + 9 CONST0 10 BRANCHIF 15 - 12 CONST0 + 12 CONST0 13 BRANCH 20 15 GETGLOBAL Not_found 17 MAKEBLOCK1 0 - 19 RAISE - 20 ATOM0 + 19 RAISE + 20 ATOM0 21 SETGLOBAL T070-branchif - 23 STOP + 23 STOP **) diff --git a/testsuite/tests/tool-ocaml/t070-branchifnot.ml b/testsuite/tests/tool-ocaml/t070-branchifnot.ml index 9e6e4e8ba..d8fa59506 100644 --- a/testsuite/tests/tool-ocaml/t070-branchifnot.ml +++ b/testsuite/tests/tool-ocaml/t070-branchifnot.ml @@ -3,16 +3,16 @@ if false then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 + 9 CONST0 10 BRANCHIFNOT 17 12 GETGLOBAL Not_found 14 MAKEBLOCK1 0 - 16 RAISE - 17 ATOM0 + 16 RAISE + 17 ATOM0 18 SETGLOBAL T070-branchifnot - 20 STOP + 20 STOP **) diff --git a/testsuite/tests/tool-ocaml/t071-boolnot.ml b/testsuite/tests/tool-ocaml/t071-boolnot.ml index b4a81943c..8993d1346 100644 --- a/testsuite/tests/tool-ocaml/t071-boolnot.ml +++ b/testsuite/tests/tool-ocaml/t071-boolnot.ml @@ -3,17 +3,17 @@ if not true then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST1 - 10 BOOLNOT + 9 CONST1 + 10 BOOLNOT 11 BRANCHIFNOT 18 13 GETGLOBAL Not_found 15 MAKEBLOCK1 0 - 17 RAISE - 18 ATOM0 + 17 RAISE + 18 ATOM0 19 SETGLOBAL T071-boolnot - 21 STOP + 21 STOP **) diff --git a/testsuite/tests/tool-ocaml/t080-eq.ml b/testsuite/tests/tool-ocaml/t080-eq.ml index 3ee735f08..53d82f2e7 100644 --- a/testsuite/tests/tool-ocaml/t080-eq.ml +++ b/testsuite/tests/tool-ocaml/t080-eq.ml @@ -3,19 +3,19 @@ if not (0 = 0) then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 - 10 PUSHCONST0 - 11 EQ - 12 BOOLNOT + 9 CONST0 + 10 PUSHCONST0 + 11 EQ + 12 BOOLNOT 13 BRANCHIFNOT 20 15 GETGLOBAL Not_found 17 MAKEBLOCK1 0 - 19 RAISE - 20 ATOM0 + 19 RAISE + 20 ATOM0 21 SETGLOBAL T080-eq - 23 STOP + 23 STOP **) diff --git a/testsuite/tests/tool-ocaml/t080-geint.ml b/testsuite/tests/tool-ocaml/t080-geint.ml index a220b7e9a..9da5078f4 100644 --- a/testsuite/tests/tool-ocaml/t080-geint.ml +++ b/testsuite/tests/tool-ocaml/t080-geint.ml @@ -3,19 +3,19 @@ if not (0 >= 0) then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 - 10 PUSHCONST0 - 11 GEINT - 12 BOOLNOT + 9 CONST0 + 10 PUSHCONST0 + 11 GEINT + 12 BOOLNOT 13 BRANCHIFNOT 20 15 GETGLOBAL Not_found 17 MAKEBLOCK1 0 - 19 RAISE - 20 ATOM0 + 19 RAISE + 20 ATOM0 21 SETGLOBAL T080-geint - 23 STOP + 23 STOP **) diff --git a/testsuite/tests/tool-ocaml/t080-gtint.ml b/testsuite/tests/tool-ocaml/t080-gtint.ml index 32d573217..dfefd2593 100644 --- a/testsuite/tests/tool-ocaml/t080-gtint.ml +++ b/testsuite/tests/tool-ocaml/t080-gtint.ml @@ -3,18 +3,18 @@ if 0 > 0 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 - 10 PUSHCONST0 - 11 GTINT + 9 CONST0 + 10 PUSHCONST0 + 11 GTINT 12 BRANCHIFNOT 19 14 GETGLOBAL Not_found 16 MAKEBLOCK1 0 - 18 RAISE - 19 ATOM0 + 18 RAISE + 19 ATOM0 20 SETGLOBAL T080-gtint - 22 STOP + 22 STOP **) diff --git a/testsuite/tests/tool-ocaml/t080-leint.ml b/testsuite/tests/tool-ocaml/t080-leint.ml index cc983a083..04880dc0e 100644 --- a/testsuite/tests/tool-ocaml/t080-leint.ml +++ b/testsuite/tests/tool-ocaml/t080-leint.ml @@ -3,19 +3,19 @@ if not (0 <= 0) then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 - 10 PUSHCONST0 - 11 LEINT - 12 BOOLNOT + 9 CONST0 + 10 PUSHCONST0 + 11 LEINT + 12 BOOLNOT 13 BRANCHIFNOT 20 15 GETGLOBAL Not_found 17 MAKEBLOCK1 0 - 19 RAISE - 20 ATOM0 + 19 RAISE + 20 ATOM0 21 SETGLOBAL T080-leint - 23 STOP + 23 STOP **) diff --git a/testsuite/tests/tool-ocaml/t080-ltint.ml b/testsuite/tests/tool-ocaml/t080-ltint.ml index ae7d240ae..8f23f2976 100644 --- a/testsuite/tests/tool-ocaml/t080-ltint.ml +++ b/testsuite/tests/tool-ocaml/t080-ltint.ml @@ -3,18 +3,18 @@ if 0 < 0 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 - 10 PUSHCONST0 - 11 LTINT + 9 CONST0 + 10 PUSHCONST0 + 11 LTINT 12 BRANCHIFNOT 19 14 GETGLOBAL Not_found 16 MAKEBLOCK1 0 - 18 RAISE - 19 ATOM0 + 18 RAISE + 19 ATOM0 20 SETGLOBAL T080-ltint - 22 STOP + 22 STOP **) diff --git a/testsuite/tests/tool-ocaml/t080-neq.ml b/testsuite/tests/tool-ocaml/t080-neq.ml index 5066e9cbc..a43d84c92 100644 --- a/testsuite/tests/tool-ocaml/t080-neq.ml +++ b/testsuite/tests/tool-ocaml/t080-neq.ml @@ -3,18 +3,18 @@ if 0 <> 0 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 - 10 PUSHCONST0 - 11 NEQ + 9 CONST0 + 10 PUSHCONST0 + 11 NEQ 12 BRANCHIFNOT 19 14 GETGLOBAL Not_found 16 MAKEBLOCK1 0 - 18 RAISE - 19 ATOM0 + 18 RAISE + 19 ATOM0 20 SETGLOBAL T080-neq - 22 STOP + 22 STOP **) diff --git a/testsuite/tests/tool-ocaml/t090-acc0.ml b/testsuite/tests/tool-ocaml/t090-acc0.ml index 74accecad..669249b6b 100644 --- a/testsuite/tests/tool-ocaml/t090-acc0.ml +++ b/testsuite/tests/tool-ocaml/t090-acc0.ml @@ -6,20 +6,20 @@ if not x then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST1 - 10 PUSHCONST0 - 11 ACC0 - 12 BOOLNOT + 9 CONST1 + 10 PUSHCONST0 + 11 ACC0 + 12 BOOLNOT 13 BRANCHIFNOT 20 15 GETGLOBAL Not_found 17 MAKEBLOCK1 0 - 19 RAISE + 19 RAISE 20 POP 1 - 22 ATOM0 + 22 ATOM0 23 SETGLOBAL T090-acc0 - 25 STOP + 25 STOP **) diff --git a/testsuite/tests/tool-ocaml/t090-acc1.ml b/testsuite/tests/tool-ocaml/t090-acc1.ml index fc9b0254d..33f3e4e33 100644 --- a/testsuite/tests/tool-ocaml/t090-acc1.ml +++ b/testsuite/tests/tool-ocaml/t090-acc1.ml @@ -7,21 +7,21 @@ if not x then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST1 - 10 PUSHCONST0 - 11 PUSHCONST0 - 12 ACC1 - 13 BOOLNOT + 9 CONST1 + 10 PUSHCONST0 + 11 PUSHCONST0 + 12 ACC1 + 13 BOOLNOT 14 BRANCHIFNOT 21 16 GETGLOBAL Not_found 18 MAKEBLOCK1 0 - 20 RAISE + 20 RAISE 21 POP 2 - 23 ATOM0 + 23 ATOM0 24 SETGLOBAL T090-acc1 - 26 STOP + 26 STOP **) diff --git a/testsuite/tests/tool-ocaml/t090-acc2.ml b/testsuite/tests/tool-ocaml/t090-acc2.ml index 486594493..415727a12 100644 --- a/testsuite/tests/tool-ocaml/t090-acc2.ml +++ b/testsuite/tests/tool-ocaml/t090-acc2.ml @@ -8,22 +8,22 @@ if not x then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST1 - 10 PUSHCONST0 - 11 PUSHCONST0 - 12 PUSHCONST0 - 13 ACC2 - 14 BOOLNOT + 9 CONST1 + 10 PUSHCONST0 + 11 PUSHCONST0 + 12 PUSHCONST0 + 13 ACC2 + 14 BOOLNOT 15 BRANCHIFNOT 22 17 GETGLOBAL Not_found 19 MAKEBLOCK1 0 - 21 RAISE + 21 RAISE 22 POP 3 - 24 ATOM0 + 24 ATOM0 25 SETGLOBAL T090-acc2 - 27 STOP + 27 STOP **) diff --git a/testsuite/tests/tool-ocaml/t090-acc3.ml b/testsuite/tests/tool-ocaml/t090-acc3.ml index 9622456a6..4faf079c8 100644 --- a/testsuite/tests/tool-ocaml/t090-acc3.ml +++ b/testsuite/tests/tool-ocaml/t090-acc3.ml @@ -9,23 +9,23 @@ if not x then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST1 - 10 PUSHCONST0 - 11 PUSHCONST0 - 12 PUSHCONST0 - 13 PUSHCONST0 - 14 ACC3 - 15 BOOLNOT + 9 CONST1 + 10 PUSHCONST0 + 11 PUSHCONST0 + 12 PUSHCONST0 + 13 PUSHCONST0 + 14 ACC3 + 15 BOOLNOT 16 BRANCHIFNOT 23 18 GETGLOBAL Not_found 20 MAKEBLOCK1 0 - 22 RAISE + 22 RAISE 23 POP 4 - 25 ATOM0 + 25 ATOM0 26 SETGLOBAL T090-acc3 - 28 STOP + 28 STOP **) diff --git a/testsuite/tests/tool-ocaml/t090-acc4.ml b/testsuite/tests/tool-ocaml/t090-acc4.ml index 992559b7d..0d4bd892b 100644 --- a/testsuite/tests/tool-ocaml/t090-acc4.ml +++ b/testsuite/tests/tool-ocaml/t090-acc4.ml @@ -10,24 +10,24 @@ if not x then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST1 - 10 PUSHCONST0 - 11 PUSHCONST0 - 12 PUSHCONST0 - 13 PUSHCONST0 - 14 PUSHCONST0 - 15 ACC4 - 16 BOOLNOT + 9 CONST1 + 10 PUSHCONST0 + 11 PUSHCONST0 + 12 PUSHCONST0 + 13 PUSHCONST0 + 14 PUSHCONST0 + 15 ACC4 + 16 BOOLNOT 17 BRANCHIFNOT 24 19 GETGLOBAL Not_found 21 MAKEBLOCK1 0 - 23 RAISE + 23 RAISE 24 POP 5 - 26 ATOM0 + 26 ATOM0 27 SETGLOBAL T090-acc4 - 29 STOP + 29 STOP **) diff --git a/testsuite/tests/tool-ocaml/t090-acc5.ml b/testsuite/tests/tool-ocaml/t090-acc5.ml index 57f7453b1..a4176c754 100644 --- a/testsuite/tests/tool-ocaml/t090-acc5.ml +++ b/testsuite/tests/tool-ocaml/t090-acc5.ml @@ -11,25 +11,25 @@ if not x then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST1 - 10 PUSHCONST0 - 11 PUSHCONST0 - 12 PUSHCONST0 - 13 PUSHCONST0 - 14 PUSHCONST0 - 15 PUSHCONST0 - 16 ACC5 - 17 BOOLNOT + 9 CONST1 + 10 PUSHCONST0 + 11 PUSHCONST0 + 12 PUSHCONST0 + 13 PUSHCONST0 + 14 PUSHCONST0 + 15 PUSHCONST0 + 16 ACC5 + 17 BOOLNOT 18 BRANCHIFNOT 25 20 GETGLOBAL Not_found 22 MAKEBLOCK1 0 - 24 RAISE + 24 RAISE 25 POP 6 - 27 ATOM0 + 27 ATOM0 28 SETGLOBAL T090-acc5 - 30 STOP + 30 STOP **) diff --git a/testsuite/tests/tool-ocaml/t090-acc6.ml b/testsuite/tests/tool-ocaml/t090-acc6.ml index f9400282e..db456b387 100644 --- a/testsuite/tests/tool-ocaml/t090-acc6.ml +++ b/testsuite/tests/tool-ocaml/t090-acc6.ml @@ -12,26 +12,26 @@ if not x then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST1 - 10 PUSHCONST0 - 11 PUSHCONST0 - 12 PUSHCONST0 - 13 PUSHCONST0 - 14 PUSHCONST0 - 15 PUSHCONST0 - 16 PUSHCONST0 - 17 ACC6 - 18 BOOLNOT + 9 CONST1 + 10 PUSHCONST0 + 11 PUSHCONST0 + 12 PUSHCONST0 + 13 PUSHCONST0 + 14 PUSHCONST0 + 15 PUSHCONST0 + 16 PUSHCONST0 + 17 ACC6 + 18 BOOLNOT 19 BRANCHIFNOT 26 21 GETGLOBAL Not_found 23 MAKEBLOCK1 0 - 25 RAISE + 25 RAISE 26 POP 7 - 28 ATOM0 + 28 ATOM0 29 SETGLOBAL T090-acc6 - 31 STOP + 31 STOP **) diff --git a/testsuite/tests/tool-ocaml/t090-acc7.ml b/testsuite/tests/tool-ocaml/t090-acc7.ml index 366191bf1..c53003c6b 100644 --- a/testsuite/tests/tool-ocaml/t090-acc7.ml +++ b/testsuite/tests/tool-ocaml/t090-acc7.ml @@ -13,27 +13,27 @@ if not x then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST1 - 10 PUSHCONST0 - 11 PUSHCONST0 - 12 PUSHCONST0 - 13 PUSHCONST0 - 14 PUSHCONST0 - 15 PUSHCONST0 - 16 PUSHCONST0 - 17 PUSHCONST0 - 18 ACC7 - 19 BOOLNOT + 9 CONST1 + 10 PUSHCONST0 + 11 PUSHCONST0 + 12 PUSHCONST0 + 13 PUSHCONST0 + 14 PUSHCONST0 + 15 PUSHCONST0 + 16 PUSHCONST0 + 17 PUSHCONST0 + 18 ACC7 + 19 BOOLNOT 20 BRANCHIFNOT 27 22 GETGLOBAL Not_found 24 MAKEBLOCK1 0 - 26 RAISE + 26 RAISE 27 POP 8 - 29 ATOM0 + 29 ATOM0 30 SETGLOBAL T090-acc7 - 32 STOP + 32 STOP **) diff --git a/testsuite/tests/tool-ocaml/t091-acc.ml b/testsuite/tests/tool-ocaml/t091-acc.ml index 26b003f66..06c2ad8d2 100644 --- a/testsuite/tests/tool-ocaml/t091-acc.ml +++ b/testsuite/tests/tool-ocaml/t091-acc.ml @@ -14,28 +14,28 @@ if not x then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST1 - 10 PUSHCONST0 - 11 PUSHCONST0 - 12 PUSHCONST0 - 13 PUSHCONST0 - 14 PUSHCONST0 - 15 PUSHCONST0 - 16 PUSHCONST0 - 17 PUSHCONST0 - 18 PUSHCONST0 + 9 CONST1 + 10 PUSHCONST0 + 11 PUSHCONST0 + 12 PUSHCONST0 + 13 PUSHCONST0 + 14 PUSHCONST0 + 15 PUSHCONST0 + 16 PUSHCONST0 + 17 PUSHCONST0 + 18 PUSHCONST0 19 ACC 8 - 21 BOOLNOT + 21 BOOLNOT 22 BRANCHIFNOT 29 24 GETGLOBAL Not_found 26 MAKEBLOCK1 0 - 28 RAISE + 28 RAISE 29 POP 9 - 31 ATOM0 + 31 ATOM0 32 SETGLOBAL T091-acc - 34 STOP + 34 STOP **) diff --git a/testsuite/tests/tool-ocaml/t092-pushacc.ml b/testsuite/tests/tool-ocaml/t092-pushacc.ml index c21561ec0..75eac87ff 100644 --- a/testsuite/tests/tool-ocaml/t092-pushacc.ml +++ b/testsuite/tests/tool-ocaml/t092-pushacc.ml @@ -13,26 +13,26 @@ if x then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 - 10 PUSHCONST1 - 11 PUSHCONST1 - 12 PUSHCONST1 - 13 PUSHCONST1 - 14 PUSHCONST1 - 15 PUSHCONST1 - 16 PUSHCONST1 - 17 PUSHCONST1 + 9 CONST0 + 10 PUSHCONST1 + 11 PUSHCONST1 + 12 PUSHCONST1 + 13 PUSHCONST1 + 14 PUSHCONST1 + 15 PUSHCONST1 + 16 PUSHCONST1 + 17 PUSHCONST1 18 PUSHACC 8 20 BRANCHIFNOT 27 22 GETGLOBAL Not_found 24 MAKEBLOCK1 0 - 26 RAISE + 26 RAISE 27 POP 9 - 29 ATOM0 + 29 ATOM0 30 SETGLOBAL T092-pushacc - 32 STOP + 32 STOP **) diff --git a/testsuite/tests/tool-ocaml/t092-pushacc0.ml b/testsuite/tests/tool-ocaml/t092-pushacc0.ml index ffdc3b040..756304df1 100644 --- a/testsuite/tests/tool-ocaml/t092-pushacc0.ml +++ b/testsuite/tests/tool-ocaml/t092-pushacc0.ml @@ -5,18 +5,18 @@ if x then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 - 10 PUSHACC0 + 9 CONST0 + 10 PUSHACC0 11 BRANCHIFNOT 18 13 GETGLOBAL Not_found 15 MAKEBLOCK1 0 - 17 RAISE + 17 RAISE 18 POP 1 - 20 ATOM0 + 20 ATOM0 21 SETGLOBAL T092-pushacc0 - 23 STOP + 23 STOP **) diff --git a/testsuite/tests/tool-ocaml/t092-pushacc1.ml b/testsuite/tests/tool-ocaml/t092-pushacc1.ml index b923f4fc8..e5cd00af1 100644 --- a/testsuite/tests/tool-ocaml/t092-pushacc1.ml +++ b/testsuite/tests/tool-ocaml/t092-pushacc1.ml @@ -6,19 +6,19 @@ if x then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 - 10 PUSHCONST1 - 11 PUSHACC1 + 9 CONST0 + 10 PUSHCONST1 + 11 PUSHACC1 12 BRANCHIFNOT 19 14 GETGLOBAL Not_found 16 MAKEBLOCK1 0 - 18 RAISE + 18 RAISE 19 POP 2 - 21 ATOM0 + 21 ATOM0 22 SETGLOBAL T092-pushacc1 - 24 STOP + 24 STOP **) diff --git a/testsuite/tests/tool-ocaml/t092-pushacc2.ml b/testsuite/tests/tool-ocaml/t092-pushacc2.ml index f6249783a..b1c66c4dc 100644 --- a/testsuite/tests/tool-ocaml/t092-pushacc2.ml +++ b/testsuite/tests/tool-ocaml/t092-pushacc2.ml @@ -7,20 +7,20 @@ if x then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 - 10 PUSHCONST1 - 11 PUSHCONST1 - 12 PUSHACC2 + 9 CONST0 + 10 PUSHCONST1 + 11 PUSHCONST1 + 12 PUSHACC2 13 BRANCHIFNOT 20 15 GETGLOBAL Not_found 17 MAKEBLOCK1 0 - 19 RAISE + 19 RAISE 20 POP 3 - 22 ATOM0 + 22 ATOM0 23 SETGLOBAL T092-pushacc2 - 25 STOP + 25 STOP **) diff --git a/testsuite/tests/tool-ocaml/t092-pushacc3.ml b/testsuite/tests/tool-ocaml/t092-pushacc3.ml index 5984fec73..0713c0b65 100644 --- a/testsuite/tests/tool-ocaml/t092-pushacc3.ml +++ b/testsuite/tests/tool-ocaml/t092-pushacc3.ml @@ -8,21 +8,21 @@ if x then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 - 10 PUSHCONST1 - 11 PUSHCONST1 - 12 PUSHCONST1 - 13 PUSHACC3 + 9 CONST0 + 10 PUSHCONST1 + 11 PUSHCONST1 + 12 PUSHCONST1 + 13 PUSHACC3 14 BRANCHIFNOT 21 16 GETGLOBAL Not_found 18 MAKEBLOCK1 0 - 20 RAISE + 20 RAISE 21 POP 4 - 23 ATOM0 + 23 ATOM0 24 SETGLOBAL T092-pushacc3 - 26 STOP + 26 STOP **) diff --git a/testsuite/tests/tool-ocaml/t092-pushacc4.ml b/testsuite/tests/tool-ocaml/t092-pushacc4.ml index ce20e0b9d..9052f7f6b 100644 --- a/testsuite/tests/tool-ocaml/t092-pushacc4.ml +++ b/testsuite/tests/tool-ocaml/t092-pushacc4.ml @@ -9,22 +9,22 @@ if x then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 - 10 PUSHCONST1 - 11 PUSHCONST1 - 12 PUSHCONST1 - 13 PUSHCONST1 - 14 PUSHACC4 + 9 CONST0 + 10 PUSHCONST1 + 11 PUSHCONST1 + 12 PUSHCONST1 + 13 PUSHCONST1 + 14 PUSHACC4 15 BRANCHIFNOT 22 17 GETGLOBAL Not_found 19 MAKEBLOCK1 0 - 21 RAISE + 21 RAISE 22 POP 5 - 24 ATOM0 + 24 ATOM0 25 SETGLOBAL T092-pushacc4 - 27 STOP + 27 STOP **) diff --git a/testsuite/tests/tool-ocaml/t092-pushacc5.ml b/testsuite/tests/tool-ocaml/t092-pushacc5.ml index 030f3f04b..0f5e32e7e 100644 --- a/testsuite/tests/tool-ocaml/t092-pushacc5.ml +++ b/testsuite/tests/tool-ocaml/t092-pushacc5.ml @@ -10,23 +10,23 @@ if x then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 - 10 PUSHCONST1 - 11 PUSHCONST1 - 12 PUSHCONST1 - 13 PUSHCONST1 - 14 PUSHCONST1 - 15 PUSHACC5 + 9 CONST0 + 10 PUSHCONST1 + 11 PUSHCONST1 + 12 PUSHCONST1 + 13 PUSHCONST1 + 14 PUSHCONST1 + 15 PUSHACC5 16 BRANCHIFNOT 23 18 GETGLOBAL Not_found 20 MAKEBLOCK1 0 - 22 RAISE + 22 RAISE 23 POP 6 - 25 ATOM0 + 25 ATOM0 26 SETGLOBAL T092-pushacc5 - 28 STOP + 28 STOP **) diff --git a/testsuite/tests/tool-ocaml/t092-pushacc6.ml b/testsuite/tests/tool-ocaml/t092-pushacc6.ml index 9c67b808e..a3de52ca2 100644 --- a/testsuite/tests/tool-ocaml/t092-pushacc6.ml +++ b/testsuite/tests/tool-ocaml/t092-pushacc6.ml @@ -11,24 +11,24 @@ if x then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 - 10 PUSHCONST1 - 11 PUSHCONST1 - 12 PUSHCONST1 - 13 PUSHCONST1 - 14 PUSHCONST1 - 15 PUSHCONST1 - 16 PUSHACC6 + 9 CONST0 + 10 PUSHCONST1 + 11 PUSHCONST1 + 12 PUSHCONST1 + 13 PUSHCONST1 + 14 PUSHCONST1 + 15 PUSHCONST1 + 16 PUSHACC6 17 BRANCHIFNOT 24 19 GETGLOBAL Not_found 21 MAKEBLOCK1 0 - 23 RAISE + 23 RAISE 24 POP 7 - 26 ATOM0 + 26 ATOM0 27 SETGLOBAL T092-pushacc6 - 29 STOP + 29 STOP **) diff --git a/testsuite/tests/tool-ocaml/t092-pushacc7.ml b/testsuite/tests/tool-ocaml/t092-pushacc7.ml index 09fbbcaff..cd1481d29 100644 --- a/testsuite/tests/tool-ocaml/t092-pushacc7.ml +++ b/testsuite/tests/tool-ocaml/t092-pushacc7.ml @@ -12,25 +12,25 @@ if x then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 - 10 PUSHCONST1 - 11 PUSHCONST1 - 12 PUSHCONST1 - 13 PUSHCONST1 - 14 PUSHCONST1 - 15 PUSHCONST1 - 16 PUSHCONST1 - 17 PUSHACC7 + 9 CONST0 + 10 PUSHCONST1 + 11 PUSHCONST1 + 12 PUSHCONST1 + 13 PUSHCONST1 + 14 PUSHCONST1 + 15 PUSHCONST1 + 16 PUSHCONST1 + 17 PUSHACC7 18 BRANCHIFNOT 25 20 GETGLOBAL Not_found 22 MAKEBLOCK1 0 - 24 RAISE + 24 RAISE 25 POP 8 - 27 ATOM0 + 27 ATOM0 28 SETGLOBAL T092-pushacc7 - 30 STOP + 30 STOP **) diff --git a/testsuite/tests/tool-ocaml/t093-pushacc.ml b/testsuite/tests/tool-ocaml/t093-pushacc.ml index 00a969adb..8e756b1c1 100644 --- a/testsuite/tests/tool-ocaml/t093-pushacc.ml +++ b/testsuite/tests/tool-ocaml/t093-pushacc.ml @@ -13,26 +13,26 @@ if x then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 - 10 PUSHCONST1 - 11 PUSHCONST1 - 12 PUSHCONST1 - 13 PUSHCONST1 - 14 PUSHCONST1 - 15 PUSHCONST1 - 16 PUSHCONST1 - 17 PUSHCONST1 + 9 CONST0 + 10 PUSHCONST1 + 11 PUSHCONST1 + 12 PUSHCONST1 + 13 PUSHCONST1 + 14 PUSHCONST1 + 15 PUSHCONST1 + 16 PUSHCONST1 + 17 PUSHCONST1 18 PUSHACC 8 20 BRANCHIFNOT 27 22 GETGLOBAL Not_found 24 MAKEBLOCK1 0 - 26 RAISE + 26 RAISE 27 POP 9 - 29 ATOM0 + 29 ATOM0 30 SETGLOBAL T093-pushacc - 32 STOP + 32 STOP **) diff --git a/testsuite/tests/tool-ocaml/t100-pushtrap.ml b/testsuite/tests/tool-ocaml/t100-pushtrap.ml index 7b02a8627..8eae20e51 100644 --- a/testsuite/tests/tool-ocaml/t100-pushtrap.ml +++ b/testsuite/tests/tool-ocaml/t100-pushtrap.ml @@ -5,17 +5,17 @@ with _ -> () (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 PUSHTRAP 16 11 GETGLOBAL Not_found 13 MAKEBLOCK1 0 - 15 RAISE - 16 PUSHCONST0 + 15 RAISE + 16 PUSHCONST0 17 POP 1 - 19 ATOM0 + 19 ATOM0 20 SETGLOBAL T100-pushtrap - 22 STOP + 22 STOP **) diff --git a/testsuite/tests/tool-ocaml/t101-poptrap.ml b/testsuite/tests/tool-ocaml/t101-poptrap.ml index 3a754a06f..cbb5944f4 100644 --- a/testsuite/tests/tool-ocaml/t101-poptrap.ml +++ b/testsuite/tests/tool-ocaml/t101-poptrap.ml @@ -5,17 +5,17 @@ with _ -> () (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 PUSHTRAP 15 - 11 CONST0 - 12 POPTRAP + 11 CONST0 + 12 POPTRAP 13 BRANCH 18 - 15 PUSHCONST0 + 15 PUSHCONST0 16 POP 1 - 18 ATOM0 + 18 ATOM0 19 SETGLOBAL T101-poptrap - 21 STOP + 21 STOP **) diff --git a/testsuite/tests/tool-ocaml/t110-addint.ml b/testsuite/tests/tool-ocaml/t110-addint.ml index 5d683c573..39aa844db 100644 --- a/testsuite/tests/tool-ocaml/t110-addint.ml +++ b/testsuite/tests/tool-ocaml/t110-addint.ml @@ -5,22 +5,22 @@ if 1 + x <> 2 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST1 - 10 PUSHCONST2 - 11 PUSHACC1 - 12 PUSHCONST1 - 13 ADDINT - 14 NEQ + 9 CONST1 + 10 PUSHCONST2 + 11 PUSHACC1 + 12 PUSHCONST1 + 13 ADDINT + 14 NEQ 15 BRANCHIFNOT 22 17 GETGLOBAL Not_found 19 MAKEBLOCK1 0 - 21 RAISE + 21 RAISE 22 POP 1 - 24 ATOM0 + 24 ATOM0 25 SETGLOBAL T110-addint - 27 STOP + 27 STOP **) diff --git a/testsuite/tests/tool-ocaml/t110-andint.ml b/testsuite/tests/tool-ocaml/t110-andint.ml index 016dc3cdd..44017ece4 100644 --- a/testsuite/tests/tool-ocaml/t110-andint.ml +++ b/testsuite/tests/tool-ocaml/t110-andint.ml @@ -3,20 +3,20 @@ if (3 land 6) <> 2 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST2 + 9 CONST2 10 PUSHCONSTINT 6 - 12 PUSHCONST3 - 13 ANDINT - 14 NEQ + 12 PUSHCONST3 + 13 ANDINT + 14 NEQ 15 BRANCHIFNOT 22 17 GETGLOBAL Not_found 19 MAKEBLOCK1 0 - 21 RAISE - 22 ATOM0 + 21 RAISE + 22 ATOM0 23 SETGLOBAL T110-andint - 25 STOP + 25 STOP **) diff --git a/testsuite/tests/tool-ocaml/t110-asrint-1.ml b/testsuite/tests/tool-ocaml/t110-asrint-1.ml index 173bdca29..bab986857 100644 --- a/testsuite/tests/tool-ocaml/t110-asrint-1.ml +++ b/testsuite/tests/tool-ocaml/t110-asrint-1.ml @@ -3,20 +3,20 @@ if (-2 asr 1) <> -1 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 CONSTINT -1 - 11 PUSHCONST1 + 11 PUSHCONST1 12 PUSHCONSTINT -2 - 14 ASRINT - 15 NEQ + 14 ASRINT + 15 NEQ 16 BRANCHIFNOT 23 18 GETGLOBAL Not_found 20 MAKEBLOCK1 0 - 22 RAISE - 23 ATOM0 + 22 RAISE + 23 ATOM0 24 SETGLOBAL T110-asrint-1 - 26 STOP + 26 STOP **) diff --git a/testsuite/tests/tool-ocaml/t110-asrint-2.ml b/testsuite/tests/tool-ocaml/t110-asrint-2.ml index 386fc64cf..be714867e 100644 --- a/testsuite/tests/tool-ocaml/t110-asrint-2.ml +++ b/testsuite/tests/tool-ocaml/t110-asrint-2.ml @@ -3,20 +3,20 @@ if (3 asr 1) <> 1 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST1 - 10 PUSHCONST1 - 11 PUSHCONST3 - 12 ASRINT - 13 NEQ + 9 CONST1 + 10 PUSHCONST1 + 11 PUSHCONST3 + 12 ASRINT + 13 NEQ 14 BRANCHIFNOT 21 16 GETGLOBAL Not_found 18 MAKEBLOCK1 0 - 20 RAISE - 21 ATOM0 + 20 RAISE + 21 ATOM0 22 SETGLOBAL T110-asrint-2 - 24 STOP + 24 STOP **) diff --git a/testsuite/tests/tool-ocaml/t110-divint-1.ml b/testsuite/tests/tool-ocaml/t110-divint-1.ml index 5cde135d2..2c1c5b946 100644 --- a/testsuite/tests/tool-ocaml/t110-divint-1.ml +++ b/testsuite/tests/tool-ocaml/t110-divint-1.ml @@ -3,20 +3,20 @@ if 2 / 2 <> 1 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST1 - 10 PUSHCONST2 - 11 PUSHCONST2 - 12 DIVINT - 13 NEQ + 9 CONST1 + 10 PUSHCONST2 + 11 PUSHCONST2 + 12 DIVINT + 13 NEQ 14 BRANCHIFNOT 21 16 GETGLOBAL Not_found 18 MAKEBLOCK1 0 - 20 RAISE - 21 ATOM0 + 20 RAISE + 21 ATOM0 22 SETGLOBAL T110-divint-1 - 24 STOP + 24 STOP **) diff --git a/testsuite/tests/tool-ocaml/t110-divint-2.ml b/testsuite/tests/tool-ocaml/t110-divint-2.ml index 34f5b00c6..effdf34b5 100644 --- a/testsuite/tests/tool-ocaml/t110-divint-2.ml +++ b/testsuite/tests/tool-ocaml/t110-divint-2.ml @@ -3,20 +3,20 @@ if 3 / 2 <> 1 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST1 - 10 PUSHCONST2 - 11 PUSHCONST3 - 12 DIVINT - 13 NEQ + 9 CONST1 + 10 PUSHCONST2 + 11 PUSHCONST3 + 12 DIVINT + 13 NEQ 14 BRANCHIFNOT 21 16 GETGLOBAL Not_found 18 MAKEBLOCK1 0 - 20 RAISE - 21 ATOM0 + 20 RAISE + 21 ATOM0 22 SETGLOBAL T110-divint-2 - 24 STOP + 24 STOP **) diff --git a/testsuite/tests/tool-ocaml/t110-divint-3.ml b/testsuite/tests/tool-ocaml/t110-divint-3.ml index cbb2bff1f..3ccc15128 100644 --- a/testsuite/tests/tool-ocaml/t110-divint-3.ml +++ b/testsuite/tests/tool-ocaml/t110-divint-3.ml @@ -6,28 +6,28 @@ with Division_by_zero -> () (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 PUSHTRAP 19 - 11 CONST0 - 12 PUSHCONST3 - 13 DIVINT + 11 CONST0 + 12 PUSHCONST3 + 13 DIVINT 14 GETGLOBAL Not_found 16 MAKEBLOCK1 0 - 18 RAISE + 18 RAISE 19 PUSHGETGLOBAL Division_by_zero - 21 PUSHACC1 - 22 GETFIELD0 - 23 EQ + 21 PUSHACC1 + 22 GETFIELD0 + 23 EQ 24 BRANCHIFNOT 29 - 26 CONST0 + 26 CONST0 27 BRANCH 31 - 29 ACC0 - 30 RAISE + 29 ACC0 + 30 RAISE 31 POP 1 - 33 ATOM0 + 33 ATOM0 34 SETGLOBAL T110-divint-3 - 36 STOP + 36 STOP **) diff --git a/testsuite/tests/tool-ocaml/t110-lslint.ml b/testsuite/tests/tool-ocaml/t110-lslint.ml index 9dd197b46..bb25709e0 100644 --- a/testsuite/tests/tool-ocaml/t110-lslint.ml +++ b/testsuite/tests/tool-ocaml/t110-lslint.ml @@ -3,20 +3,20 @@ if (3 lsl 2) <> 12 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 CONSTINT 12 - 11 PUSHCONST2 - 12 PUSHCONST3 - 13 LSLINT - 14 NEQ + 11 PUSHCONST2 + 12 PUSHCONST3 + 13 LSLINT + 14 NEQ 15 BRANCHIFNOT 22 17 GETGLOBAL Not_found 19 MAKEBLOCK1 0 - 21 RAISE - 22 ATOM0 + 21 RAISE + 22 ATOM0 23 SETGLOBAL T110-lslint - 25 STOP + 25 STOP **) diff --git a/testsuite/tests/tool-ocaml/t110-lsrint.ml b/testsuite/tests/tool-ocaml/t110-lsrint.ml index 9777815cc..21994a0bb 100644 --- a/testsuite/tests/tool-ocaml/t110-lsrint.ml +++ b/testsuite/tests/tool-ocaml/t110-lsrint.ml @@ -3,20 +3,20 @@ if (14 lsr 2) <> 3 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST3 - 10 PUSHCONST2 + 9 CONST3 + 10 PUSHCONST2 11 PUSHCONSTINT 14 - 13 LSRINT - 14 NEQ + 13 LSRINT + 14 NEQ 15 BRANCHIFNOT 22 17 GETGLOBAL Not_found 19 MAKEBLOCK1 0 - 21 RAISE - 22 ATOM0 + 21 RAISE + 22 ATOM0 23 SETGLOBAL T110-lsrint - 25 STOP + 25 STOP **) diff --git a/testsuite/tests/tool-ocaml/t110-modint-1.ml b/testsuite/tests/tool-ocaml/t110-modint-1.ml index 2a690c089..97eaacddd 100644 --- a/testsuite/tests/tool-ocaml/t110-modint-1.ml +++ b/testsuite/tests/tool-ocaml/t110-modint-1.ml @@ -3,20 +3,20 @@ if 20 mod 3 <> 2 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST2 - 10 PUSHCONST3 + 9 CONST2 + 10 PUSHCONST3 11 PUSHCONSTINT 20 - 13 MODINT - 14 NEQ + 13 MODINT + 14 NEQ 15 BRANCHIFNOT 22 17 GETGLOBAL Not_found 19 MAKEBLOCK1 0 - 21 RAISE - 22 ATOM0 + 21 RAISE + 22 ATOM0 23 SETGLOBAL T110-modint-1 - 25 STOP + 25 STOP **) diff --git a/testsuite/tests/tool-ocaml/t110-modint-2.ml b/testsuite/tests/tool-ocaml/t110-modint-2.ml index 0bc3be0c3..edc7ceb09 100644 --- a/testsuite/tests/tool-ocaml/t110-modint-2.ml +++ b/testsuite/tests/tool-ocaml/t110-modint-2.ml @@ -7,28 +7,28 @@ with Division_by_zero -> () (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 PUSHTRAP 19 - 11 CONST0 - 12 PUSHCONST2 - 13 MODINT + 11 CONST0 + 12 PUSHCONST2 + 13 MODINT 14 GETGLOBAL Not_found 16 MAKEBLOCK1 0 - 18 RAISE + 18 RAISE 19 PUSHGETGLOBAL Division_by_zero - 21 PUSHACC1 - 22 GETFIELD0 - 23 EQ + 21 PUSHACC1 + 22 GETFIELD0 + 23 EQ 24 BRANCHIFNOT 29 - 26 CONST0 + 26 CONST0 27 BRANCH 31 - 29 ACC0 - 30 RAISE + 29 ACC0 + 30 RAISE 31 POP 1 - 33 ATOM0 + 33 ATOM0 34 SETGLOBAL T110-modint-2 - 36 STOP + 36 STOP **) diff --git a/testsuite/tests/tool-ocaml/t110-mulint.ml b/testsuite/tests/tool-ocaml/t110-mulint.ml index 97c1cf141..6c963f6a1 100644 --- a/testsuite/tests/tool-ocaml/t110-mulint.ml +++ b/testsuite/tests/tool-ocaml/t110-mulint.ml @@ -3,20 +3,20 @@ if 2 * 2 <> 4 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 CONSTINT 4 - 11 PUSHCONST2 - 12 PUSHCONST2 - 13 MULINT - 14 NEQ + 11 PUSHCONST2 + 12 PUSHCONST2 + 13 MULINT + 14 NEQ 15 BRANCHIFNOT 22 17 GETGLOBAL Not_found 19 MAKEBLOCK1 0 - 21 RAISE - 22 ATOM0 + 21 RAISE + 22 ATOM0 23 SETGLOBAL T110-mulint - 25 STOP + 25 STOP **) diff --git a/testsuite/tests/tool-ocaml/t110-negint.ml b/testsuite/tests/tool-ocaml/t110-negint.ml index 069a34b20..aef6121df 100644 --- a/testsuite/tests/tool-ocaml/t110-negint.ml +++ b/testsuite/tests/tool-ocaml/t110-negint.ml @@ -5,21 +5,21 @@ if -x <> -1 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST1 + 9 CONST1 10 PUSHCONSTINT -1 - 12 PUSHACC1 - 13 NEGINT - 14 NEQ + 12 PUSHACC1 + 13 NEGINT + 14 NEQ 15 BRANCHIFNOT 22 17 GETGLOBAL Not_found 19 MAKEBLOCK1 0 - 21 RAISE + 21 RAISE 22 POP 1 - 24 ATOM0 + 24 ATOM0 25 SETGLOBAL T110-negint - 27 STOP + 27 STOP **) diff --git a/testsuite/tests/tool-ocaml/t110-offsetint.ml b/testsuite/tests/tool-ocaml/t110-offsetint.ml index 925159e38..7793d003d 100644 --- a/testsuite/tests/tool-ocaml/t110-offsetint.ml +++ b/testsuite/tests/tool-ocaml/t110-offsetint.ml @@ -3,19 +3,19 @@ if 2 + 2 <> 4 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 CONSTINT 4 - 11 PUSHCONST2 + 11 PUSHCONST2 12 OFFSETINT 2 - 14 NEQ + 14 NEQ 15 BRANCHIFNOT 22 17 GETGLOBAL Not_found 19 MAKEBLOCK1 0 - 21 RAISE - 22 ATOM0 + 21 RAISE + 22 ATOM0 23 SETGLOBAL T110-offsetint - 25 STOP + 25 STOP **) diff --git a/testsuite/tests/tool-ocaml/t110-orint.ml b/testsuite/tests/tool-ocaml/t110-orint.ml index 56b63d80b..bb5e94538 100644 --- a/testsuite/tests/tool-ocaml/t110-orint.ml +++ b/testsuite/tests/tool-ocaml/t110-orint.ml @@ -3,20 +3,20 @@ if (3 lor 6) <> 7 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 CONSTINT 7 11 PUSHCONSTINT 6 - 13 PUSHCONST3 - 14 ORINT - 15 NEQ + 13 PUSHCONST3 + 14 ORINT + 15 NEQ 16 BRANCHIFNOT 23 18 GETGLOBAL Not_found 20 MAKEBLOCK1 0 - 22 RAISE - 23 ATOM0 + 22 RAISE + 23 ATOM0 24 SETGLOBAL T110-orint - 26 STOP + 26 STOP **) diff --git a/testsuite/tests/tool-ocaml/t110-subint.ml b/testsuite/tests/tool-ocaml/t110-subint.ml index f626cd0d6..06a23dd64 100644 --- a/testsuite/tests/tool-ocaml/t110-subint.ml +++ b/testsuite/tests/tool-ocaml/t110-subint.ml @@ -5,22 +5,22 @@ if 1 - x <> 0 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST1 - 10 PUSHCONST0 - 11 PUSHACC1 - 12 PUSHCONST1 - 13 SUBINT - 14 NEQ + 9 CONST1 + 10 PUSHCONST0 + 11 PUSHACC1 + 12 PUSHCONST1 + 13 SUBINT + 14 NEQ 15 BRANCHIFNOT 22 17 GETGLOBAL Not_found 19 MAKEBLOCK1 0 - 21 RAISE + 21 RAISE 22 POP 1 - 24 ATOM0 + 24 ATOM0 25 SETGLOBAL T110-subint - 27 STOP + 27 STOP **) diff --git a/testsuite/tests/tool-ocaml/t110-xorint.ml b/testsuite/tests/tool-ocaml/t110-xorint.ml index dfb278b7a..ae248d235 100644 --- a/testsuite/tests/tool-ocaml/t110-xorint.ml +++ b/testsuite/tests/tool-ocaml/t110-xorint.ml @@ -3,20 +3,20 @@ if (3 lxor 6) <> 5 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 CONSTINT 5 11 PUSHCONSTINT 6 - 13 PUSHCONST3 - 14 XORINT - 15 NEQ + 13 PUSHCONST3 + 14 XORINT + 15 NEQ 16 BRANCHIFNOT 23 18 GETGLOBAL Not_found 20 MAKEBLOCK1 0 - 22 RAISE - 23 ATOM0 + 22 RAISE + 23 ATOM0 24 SETGLOBAL T110-xorint - 26 STOP + 26 STOP **) diff --git a/testsuite/tests/tool-ocaml/t120-getstringchar.ml b/testsuite/tests/tool-ocaml/t120-getstringchar.ml index aaff2022d..a663ecf42 100644 --- a/testsuite/tests/tool-ocaml/t120-getstringchar.ml +++ b/testsuite/tests/tool-ocaml/t120-getstringchar.ml @@ -3,20 +3,20 @@ if "foo".[2] <> 'o' then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 CONSTINT 111 - 11 PUSHCONST2 + 11 PUSHCONST2 12 PUSHGETGLOBAL "foo" - 14 GETSTRINGCHAR - 15 NEQ + 14 GETSTRINGCHAR + 15 NEQ 16 BRANCHIFNOT 23 18 GETGLOBAL Not_found 20 MAKEBLOCK1 0 - 22 RAISE - 23 ATOM0 + 22 RAISE + 23 ATOM0 24 SETGLOBAL T120-getstringchar - 26 STOP + 26 STOP **) diff --git a/testsuite/tests/tool-ocaml/t121-setstringchar.ml b/testsuite/tests/tool-ocaml/t121-setstringchar.ml index 882d6e081..939ed973e 100644 --- a/testsuite/tests/tool-ocaml/t121-setstringchar.ml +++ b/testsuite/tests/tool-ocaml/t121-setstringchar.ml @@ -6,26 +6,26 @@ if x.[2] <> 'x' then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 GETGLOBAL "foo" 11 PUSHCONSTINT 120 - 13 PUSHCONST2 - 14 PUSHACC2 - 15 SETSTRINGCHAR + 13 PUSHCONST2 + 14 PUSHACC2 + 15 SETSTRINGCHAR 16 CONSTINT 120 - 18 PUSHCONST2 - 19 PUSHACC2 - 20 GETSTRINGCHAR - 21 NEQ + 18 PUSHCONST2 + 19 PUSHACC2 + 20 GETSTRINGCHAR + 21 NEQ 22 BRANCHIFNOT 29 24 GETGLOBAL Not_found 26 MAKEBLOCK1 0 - 28 RAISE + 28 RAISE 29 POP 1 - 31 ATOM0 + 31 ATOM0 32 SETGLOBAL T121-setstringchar - 34 STOP + 34 STOP **) diff --git a/testsuite/tests/tool-ocaml/t130-getvectitem.ml b/testsuite/tests/tool-ocaml/t130-getvectitem.ml index d29037959..964ebc9f1 100644 --- a/testsuite/tests/tool-ocaml/t130-getvectitem.ml +++ b/testsuite/tests/tool-ocaml/t130-getvectitem.ml @@ -3,22 +3,22 @@ if [| 1; 2 |].(1) <> 2 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST2 - 10 PUSHCONST1 - 11 PUSHCONST2 - 12 PUSHCONST1 + 9 CONST2 + 10 PUSHCONST1 + 11 PUSHCONST2 + 12 PUSHCONST1 13 MAKEBLOCK2 0 - 15 GETVECTITEM - 16 NEQ + 15 GETVECTITEM + 16 NEQ 17 BRANCHIFNOT 24 19 GETGLOBAL Not_found 21 MAKEBLOCK1 0 - 23 RAISE - 24 ATOM0 + 23 RAISE + 24 ATOM0 25 SETGLOBAL T130-getvectitem - 27 STOP + 27 STOP **) diff --git a/testsuite/tests/tool-ocaml/t130-vectlength.ml b/testsuite/tests/tool-ocaml/t130-vectlength.ml index ce0da0e42..aee59441e 100644 --- a/testsuite/tests/tool-ocaml/t130-vectlength.ml +++ b/testsuite/tests/tool-ocaml/t130-vectlength.ml @@ -3,21 +3,21 @@ if Array.length [| 1; 2 |] <> 2 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST2 - 10 PUSHCONST2 - 11 PUSHCONST1 + 9 CONST2 + 10 PUSHCONST2 + 11 PUSHCONST1 12 MAKEBLOCK2 0 - 14 VECTLENGTH - 15 NEQ + 14 VECTLENGTH + 15 NEQ 16 BRANCHIFNOT 23 18 GETGLOBAL Not_found 20 MAKEBLOCK1 0 - 22 RAISE - 23 ATOM0 + 22 RAISE + 23 ATOM0 24 SETGLOBAL T130-vectlength - 26 STOP + 26 STOP **) diff --git a/testsuite/tests/tool-ocaml/t131-setvectitem.ml b/testsuite/tests/tool-ocaml/t131-setvectitem.ml index f544a3e0a..b813e91b5 100644 --- a/testsuite/tests/tool-ocaml/t131-setvectitem.ml +++ b/testsuite/tests/tool-ocaml/t131-setvectitem.ml @@ -6,28 +6,28 @@ if x.(0) <> 3 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST2 - 10 PUSHCONST1 + 9 CONST2 + 10 PUSHCONST1 11 MAKEBLOCK2 0 - 13 PUSHCONST3 - 14 PUSHCONST0 - 15 PUSHACC2 - 16 SETVECTITEM - 17 CONST3 - 18 PUSHCONST0 - 19 PUSHACC2 - 20 GETVECTITEM - 21 NEQ + 13 PUSHCONST3 + 14 PUSHCONST0 + 15 PUSHACC2 + 16 SETVECTITEM + 17 CONST3 + 18 PUSHCONST0 + 19 PUSHACC2 + 20 GETVECTITEM + 21 NEQ 22 BRANCHIFNOT 29 24 GETGLOBAL Not_found 26 MAKEBLOCK1 0 - 28 RAISE + 28 RAISE 29 POP 1 - 31 ATOM0 + 31 ATOM0 32 SETGLOBAL T131-setvectitem - 34 STOP + 34 STOP **) diff --git a/testsuite/tests/tool-ocaml/t140-switch-1.ml b/testsuite/tests/tool-ocaml/t140-switch-1.ml index b2d735215..9e3eee15e 100644 --- a/testsuite/tests/tool-ocaml/t140-switch-1.ml +++ b/testsuite/tests/tool-ocaml/t140-switch-1.ml @@ -7,26 +7,26 @@ match 0 with (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 - 10 PUSHACC0 - 11 SWITCH + 9 CONST0 + 10 PUSHACC0 + 11 SWITCH int 0 -> 17 int 1 -> 20 15 BRANCH 25 - 17 CONST0 + 17 CONST0 18 BRANCH 30 20 GETGLOBAL Not_found 22 MAKEBLOCK1 0 - 24 RAISE + 24 RAISE 25 GETGLOBAL Not_found 27 MAKEBLOCK1 0 - 29 RAISE + 29 RAISE 30 POP 1 - 32 ATOM0 + 32 ATOM0 33 SETGLOBAL T140-switch-1 - 35 STOP + 35 STOP **) diff --git a/testsuite/tests/tool-ocaml/t140-switch-2.ml b/testsuite/tests/tool-ocaml/t140-switch-2.ml index 9004fa66b..ecc5772a5 100644 --- a/testsuite/tests/tool-ocaml/t140-switch-2.ml +++ b/testsuite/tests/tool-ocaml/t140-switch-2.ml @@ -7,26 +7,26 @@ match 1 with (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST1 - 10 PUSHACC0 - 11 SWITCH + 9 CONST1 + 10 PUSHACC0 + 11 SWITCH int 0 -> 17 int 1 -> 22 15 BRANCH 25 17 GETGLOBAL Not_found 19 MAKEBLOCK1 0 - 21 RAISE - 22 CONST0 + 21 RAISE + 22 CONST0 23 BRANCH 30 25 GETGLOBAL Not_found 27 MAKEBLOCK1 0 - 29 RAISE + 29 RAISE 30 POP 1 - 32 ATOM0 + 32 ATOM0 33 SETGLOBAL T140-switch-2 - 35 STOP + 35 STOP **) diff --git a/testsuite/tests/tool-ocaml/t140-switch-3.ml b/testsuite/tests/tool-ocaml/t140-switch-3.ml index b0c4bc8f7..316461df3 100644 --- a/testsuite/tests/tool-ocaml/t140-switch-3.ml +++ b/testsuite/tests/tool-ocaml/t140-switch-3.ml @@ -7,25 +7,25 @@ match 2 with (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST2 - 10 PUSHACC0 - 11 SWITCH + 9 CONST2 + 10 PUSHACC0 + 11 SWITCH int 0 -> 17 int 1 -> 22 15 BRANCH 27 17 GETGLOBAL Not_found 19 MAKEBLOCK1 0 - 21 RAISE + 21 RAISE 22 GETGLOBAL Not_found 24 MAKEBLOCK1 0 - 26 RAISE - 27 CONST0 + 26 RAISE + 27 CONST0 28 POP 1 - 30 ATOM0 + 30 ATOM0 31 SETGLOBAL T140-switch-3 - 33 STOP + 33 STOP **) diff --git a/testsuite/tests/tool-ocaml/t140-switch-4.ml b/testsuite/tests/tool-ocaml/t140-switch-4.ml index 1826b09e5..6f72ba35b 100644 --- a/testsuite/tests/tool-ocaml/t140-switch-4.ml +++ b/testsuite/tests/tool-ocaml/t140-switch-4.ml @@ -7,25 +7,25 @@ match -1 with (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 CONSTINT -1 - 11 PUSHACC0 - 12 SWITCH + 11 PUSHACC0 + 12 SWITCH int 0 -> 18 int 1 -> 23 16 BRANCH 28 18 GETGLOBAL Not_found 20 MAKEBLOCK1 0 - 22 RAISE + 22 RAISE 23 GETGLOBAL Not_found 25 MAKEBLOCK1 0 - 27 RAISE - 28 CONST0 + 27 RAISE + 28 CONST0 29 POP 1 - 31 ATOM0 + 31 ATOM0 32 SETGLOBAL T140-switch-4 - 34 STOP + 34 STOP **) diff --git a/testsuite/tests/tool-ocaml/t141-switch-5.ml b/testsuite/tests/tool-ocaml/t141-switch-5.ml index ca44849e2..e5b49e6a9 100644 --- a/testsuite/tests/tool-ocaml/t141-switch-5.ml +++ b/testsuite/tests/tool-ocaml/t141-switch-5.ml @@ -13,26 +13,26 @@ match A 0 with (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 GETGLOBAL <0>(0) - 11 PUSHACC0 - 12 SWITCH + 11 PUSHACC0 + 12 SWITCH tag 0 -> 17 tag 1 -> 20 tag 2 -> 25 - 17 CONST0 + 17 CONST0 18 BRANCH 30 20 GETGLOBAL Not_found 22 MAKEBLOCK1 0 - 24 RAISE + 24 RAISE 25 GETGLOBAL Not_found 27 MAKEBLOCK1 0 - 29 RAISE + 29 RAISE 30 POP 1 - 32 ATOM0 + 32 ATOM0 33 SETGLOBAL T141-switch-5 - 35 STOP + 35 STOP **) diff --git a/testsuite/tests/tool-ocaml/t141-switch-6.ml b/testsuite/tests/tool-ocaml/t141-switch-6.ml index c48e80b5f..5a720327f 100644 --- a/testsuite/tests/tool-ocaml/t141-switch-6.ml +++ b/testsuite/tests/tool-ocaml/t141-switch-6.ml @@ -13,26 +13,26 @@ match B 0 with (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 GETGLOBAL <1>(0) - 11 PUSHACC0 - 12 SWITCH + 11 PUSHACC0 + 12 SWITCH tag 0 -> 17 tag 1 -> 22 tag 2 -> 25 17 GETGLOBAL Not_found 19 MAKEBLOCK1 0 - 21 RAISE - 22 CONST0 + 21 RAISE + 22 CONST0 23 BRANCH 30 25 GETGLOBAL Not_found 27 MAKEBLOCK1 0 - 29 RAISE + 29 RAISE 30 POP 1 - 32 ATOM0 + 32 ATOM0 33 SETGLOBAL T141-switch-6 - 35 STOP + 35 STOP **) diff --git a/testsuite/tests/tool-ocaml/t141-switch-7.ml b/testsuite/tests/tool-ocaml/t141-switch-7.ml index 00f4873cd..a7082d08e 100644 --- a/testsuite/tests/tool-ocaml/t141-switch-7.ml +++ b/testsuite/tests/tool-ocaml/t141-switch-7.ml @@ -13,25 +13,25 @@ match C 0 with (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 GETGLOBAL <2>(0) - 11 PUSHACC0 - 12 SWITCH + 11 PUSHACC0 + 12 SWITCH tag 0 -> 17 tag 1 -> 22 tag 2 -> 27 17 GETGLOBAL Not_found 19 MAKEBLOCK1 0 - 21 RAISE + 21 RAISE 22 GETGLOBAL Not_found 24 MAKEBLOCK1 0 - 26 RAISE - 27 CONST0 + 26 RAISE + 27 CONST0 28 POP 1 - 30 ATOM0 + 30 ATOM0 31 SETGLOBAL T141-switch-7 - 33 STOP + 33 STOP **) diff --git a/testsuite/tests/tool-ocaml/t142-switch-8.ml b/testsuite/tests/tool-ocaml/t142-switch-8.ml index 51459130a..d32346fcf 100644 --- a/testsuite/tests/tool-ocaml/t142-switch-8.ml +++ b/testsuite/tests/tool-ocaml/t142-switch-8.ml @@ -12,23 +12,23 @@ match A with (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 - 10 PUSHACC0 - 11 SWITCH + 9 CONST0 + 10 PUSHACC0 + 11 SWITCH int 0 -> 16 tag 0 -> 19 tag 1 -> 19 - 16 CONST0 + 16 CONST0 17 BRANCH 24 19 GETGLOBAL Not_found 21 MAKEBLOCK1 0 - 23 RAISE + 23 RAISE 24 POP 1 - 26 ATOM0 + 26 ATOM0 27 SETGLOBAL T142-switch-8 - 29 STOP + 29 STOP **) diff --git a/testsuite/tests/tool-ocaml/t142-switch-9.ml b/testsuite/tests/tool-ocaml/t142-switch-9.ml index a0e43d321..5fbda767b 100644 --- a/testsuite/tests/tool-ocaml/t142-switch-9.ml +++ b/testsuite/tests/tool-ocaml/t142-switch-9.ml @@ -12,23 +12,23 @@ match B 0 with (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 GETGLOBAL <0>(0) - 11 PUSHACC0 - 12 SWITCH + 11 PUSHACC0 + 12 SWITCH int 0 -> 20 tag 0 -> 17 tag 1 -> 20 - 17 CONST0 + 17 CONST0 18 BRANCH 25 20 GETGLOBAL Not_found 22 MAKEBLOCK1 0 - 24 RAISE + 24 RAISE 25 POP 1 - 27 ATOM0 + 27 ATOM0 28 SETGLOBAL T142-switch-9 - 30 STOP + 30 STOP **) diff --git a/testsuite/tests/tool-ocaml/t142-switch-A.ml b/testsuite/tests/tool-ocaml/t142-switch-A.ml index 4f66aec58..fc8aa5c6b 100644 --- a/testsuite/tests/tool-ocaml/t142-switch-A.ml +++ b/testsuite/tests/tool-ocaml/t142-switch-A.ml @@ -12,23 +12,23 @@ match C 0 with (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 GETGLOBAL <1>(0) - 11 PUSHACC0 - 12 SWITCH + 11 PUSHACC0 + 12 SWITCH int 0 -> 20 tag 0 -> 20 tag 1 -> 17 - 17 CONST0 + 17 CONST0 18 BRANCH 25 20 GETGLOBAL Not_found 22 MAKEBLOCK1 0 - 24 RAISE + 24 RAISE 25 POP 1 - 27 ATOM0 + 27 ATOM0 28 SETGLOBAL T142-switch-A - 30 STOP + 30 STOP **) diff --git a/testsuite/tests/tool-ocaml/t150-push-1.ml b/testsuite/tests/tool-ocaml/t150-push-1.ml index 926492777..7319388a6 100644 --- a/testsuite/tests/tool-ocaml/t150-push-1.ml +++ b/testsuite/tests/tool-ocaml/t150-push-1.ml @@ -5,20 +5,20 @@ try 0 with _ -> 0 (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 - 10 PUSH + 9 CONST0 + 10 PUSH 11 PUSHTRAP 17 - 13 CONST0 - 14 POPTRAP + 13 CONST0 + 14 POPTRAP 15 BRANCH 20 - 17 PUSHCONST0 + 17 PUSHCONST0 18 POP 1 20 POP 1 - 22 ATOM0 + 22 ATOM0 23 SETGLOBAL T150-push-1 - 25 STOP + 25 STOP **) diff --git a/testsuite/tests/tool-ocaml/t150-push-2.ml b/testsuite/tests/tool-ocaml/t150-push-2.ml index d6f510726..c0837bf15 100644 --- a/testsuite/tests/tool-ocaml/t150-push-2.ml +++ b/testsuite/tests/tool-ocaml/t150-push-2.ml @@ -6,34 +6,34 @@ with End_of_file -> () (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST1 - 10 PUSH + 9 CONST1 + 10 PUSH 11 PUSHTRAP 26 - 13 CONST1 - 14 PUSHACC5 - 15 NEQ + 13 CONST1 + 14 PUSHACC5 + 15 NEQ 16 BRANCHIFNOT 23 18 GETGLOBAL Not_found 20 MAKEBLOCK1 0 - 22 RAISE - 23 POPTRAP + 22 RAISE + 23 POPTRAP 24 BRANCH 40 26 PUSHGETGLOBAL End_of_file - 28 PUSHACC1 - 29 GETFIELD0 - 30 EQ + 28 PUSHACC1 + 29 GETFIELD0 + 30 EQ 31 BRANCHIFNOT 36 - 33 CONST0 + 33 CONST0 34 BRANCH 38 - 36 ACC0 - 37 RAISE + 36 ACC0 + 37 RAISE 38 POP 1 40 POP 1 - 42 ATOM0 + 42 ATOM0 43 SETGLOBAL T150-push-2 - 45 STOP + 45 STOP **) diff --git a/testsuite/tests/tool-ocaml/t160-closure.ml b/testsuite/tests/tool-ocaml/t160-closure.ml index 5eb612865..2d2f0cce6 100644 --- a/testsuite/tests/tool-ocaml/t160-closure.ml +++ b/testsuite/tests/tool-ocaml/t160-closure.ml @@ -3,17 +3,17 @@ let f () = ();; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 14 - 11 CONST0 + 11 CONST0 12 RETURN 1 14 CLOSURE 0, 11 - 17 PUSHACC0 + 17 PUSHACC0 18 MAKEBLOCK1 0 20 POP 1 22 SETGLOBAL T160-closure - 24 STOP + 24 STOP **) diff --git a/testsuite/tests/tool-ocaml/t161-apply1.ml b/testsuite/tests/tool-ocaml/t161-apply1.ml index 5138c5f58..2892cbe73 100644 --- a/testsuite/tests/tool-ocaml/t161-apply1.ml +++ b/testsuite/tests/tool-ocaml/t161-apply1.ml @@ -8,35 +8,35 @@ with End_of_file -> 0 (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 16 11 GETGLOBAL End_of_file 13 MAKEBLOCK1 0 - 15 RAISE + 15 RAISE 16 CLOSURE 0, 11 - 19 PUSH + 19 PUSH 20 PUSHTRAP 30 - 22 CONST0 - 23 PUSHACC5 - 24 APPLY1 + 22 CONST0 + 23 PUSHACC5 + 24 APPLY1 25 GETGLOBAL Not_found 27 MAKEBLOCK1 0 - 29 RAISE + 29 RAISE 30 PUSHGETGLOBAL End_of_file - 32 PUSHACC1 - 33 GETFIELD0 - 34 EQ + 32 PUSHACC1 + 33 GETFIELD0 + 34 EQ 35 BRANCHIFNOT 40 - 37 CONST0 + 37 CONST0 38 BRANCH 42 - 40 ACC0 - 41 RAISE + 40 ACC0 + 41 RAISE 42 POP 1 44 POP 1 - 46 ATOM0 + 46 ATOM0 47 SETGLOBAL T161-apply1 - 49 STOP + 49 STOP **) diff --git a/testsuite/tests/tool-ocaml/t162-return.ml b/testsuite/tests/tool-ocaml/t162-return.ml index 1059c9fea..1e08ab4e3 100644 --- a/testsuite/tests/tool-ocaml/t162-return.ml +++ b/testsuite/tests/tool-ocaml/t162-return.ml @@ -3,19 +3,19 @@ let f _ = 0 in f 0;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 14 - 11 CONST0 + 11 CONST0 12 RETURN 1 14 CLOSURE 0, 11 - 17 PUSHCONST0 - 18 PUSHACC1 - 19 APPLY1 + 17 PUSHCONST0 + 18 PUSHACC1 + 19 APPLY1 20 POP 1 - 22 ATOM0 + 22 ATOM0 23 SETGLOBAL T162-return - 25 STOP + 25 STOP **) diff --git a/testsuite/tests/tool-ocaml/t163.ml b/testsuite/tests/tool-ocaml/t163.ml index 9ec7790c5..e2760b97f 100644 --- a/testsuite/tests/tool-ocaml/t163.ml +++ b/testsuite/tests/tool-ocaml/t163.ml @@ -3,21 +3,21 @@ let f _ _ = 0 in f 0;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 17 - 11 RESTART + 11 RESTART 12 GRAB 1 - 14 CONST0 + 14 CONST0 15 RETURN 2 17 CLOSURE 0, 12 - 20 PUSHCONST0 - 21 PUSHACC1 - 22 APPLY1 + 20 PUSHCONST0 + 21 PUSHACC1 + 22 APPLY1 23 POP 1 - 25 ATOM0 + 25 ATOM0 26 SETGLOBAL T163 - 28 STOP + 28 STOP **) diff --git a/testsuite/tests/tool-ocaml/t164-apply2.ml b/testsuite/tests/tool-ocaml/t164-apply2.ml index 7fbe7d997..ae908538f 100644 --- a/testsuite/tests/tool-ocaml/t164-apply2.ml +++ b/testsuite/tests/tool-ocaml/t164-apply2.ml @@ -3,22 +3,22 @@ let f _ _ = 0 in f 0 0;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 17 - 11 RESTART + 11 RESTART 12 GRAB 1 - 14 CONST0 + 14 CONST0 15 RETURN 2 17 CLOSURE 0, 12 - 20 PUSHCONST0 - 21 PUSHCONST0 - 22 PUSHACC2 - 23 APPLY2 + 20 PUSHCONST0 + 21 PUSHCONST0 + 22 PUSHACC2 + 23 APPLY2 24 POP 1 - 26 ATOM0 + 26 ATOM0 27 SETGLOBAL T164-apply2 - 29 STOP + 29 STOP **) diff --git a/testsuite/tests/tool-ocaml/t164-apply3.ml b/testsuite/tests/tool-ocaml/t164-apply3.ml index e7ebc3a40..a05aac2ae 100644 --- a/testsuite/tests/tool-ocaml/t164-apply3.ml +++ b/testsuite/tests/tool-ocaml/t164-apply3.ml @@ -3,23 +3,23 @@ let f _ _ _ = 0 in f 0 0 0;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 17 - 11 RESTART + 11 RESTART 12 GRAB 2 - 14 CONST0 + 14 CONST0 15 RETURN 3 17 CLOSURE 0, 12 - 20 PUSHCONST0 - 21 PUSHCONST0 - 22 PUSHCONST0 - 23 PUSHACC3 - 24 APPLY3 + 20 PUSHCONST0 + 21 PUSHCONST0 + 22 PUSHCONST0 + 23 PUSHACC3 + 24 APPLY3 25 POP 1 - 27 ATOM0 + 27 ATOM0 28 SETGLOBAL T164-apply3 - 30 STOP + 30 STOP **) diff --git a/testsuite/tests/tool-ocaml/t165-apply.ml b/testsuite/tests/tool-ocaml/t165-apply.ml index 9d6685506..e4787321f 100644 --- a/testsuite/tests/tool-ocaml/t165-apply.ml +++ b/testsuite/tests/tool-ocaml/t165-apply.ml @@ -3,26 +3,26 @@ let f _ _ _ _ = 0 in f 0 0 0 0;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 17 - 11 RESTART + 11 RESTART 12 GRAB 3 - 14 CONST0 + 14 CONST0 15 RETURN 4 17 CLOSURE 0, 12 - 20 PUSH + 20 PUSH 21 PUSH_RETADDR 30 - 23 CONST0 - 24 PUSHCONST0 - 25 PUSHCONST0 - 26 PUSHCONST0 - 27 PUSHACC7 + 23 CONST0 + 24 PUSHCONST0 + 25 PUSHCONST0 + 26 PUSHCONST0 + 27 PUSHACC7 28 APPLY 4 30 POP 1 - 32 ATOM0 + 32 ATOM0 33 SETGLOBAL T165-apply - 35 STOP + 35 STOP **) diff --git a/testsuite/tests/tool-ocaml/t170-envacc2.ml b/testsuite/tests/tool-ocaml/t170-envacc2.ml index 3a3736672..8e9a0219d 100644 --- a/testsuite/tests/tool-ocaml/t170-envacc2.ml +++ b/testsuite/tests/tool-ocaml/t170-envacc2.ml @@ -7,31 +7,31 @@ if f 0 <> 2 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 16 - 11 ENVACC1 - 12 CONST0 - 13 ENVACC2 + 11 ENVACC1 + 12 CONST0 + 13 ENVACC2 14 RETURN 1 16 CONSTINT 5 - 18 PUSHCONST2 - 19 PUSHACC0 - 20 PUSHACC2 + 18 PUSHCONST2 + 19 PUSHACC0 + 20 PUSHACC2 21 CLOSURE 2, 11 - 24 PUSHCONST2 - 25 PUSHCONST0 - 26 PUSHACC2 - 27 APPLY1 - 28 NEQ + 24 PUSHCONST2 + 25 PUSHCONST0 + 26 PUSHACC2 + 27 APPLY1 + 28 NEQ 29 BRANCHIFNOT 36 31 GETGLOBAL Not_found 33 MAKEBLOCK1 0 - 35 RAISE + 35 RAISE 36 POP 3 - 38 ATOM0 + 38 ATOM0 39 SETGLOBAL T170-envacc2 - 41 STOP + 41 STOP **) diff --git a/testsuite/tests/tool-ocaml/t170-envacc3.ml b/testsuite/tests/tool-ocaml/t170-envacc3.ml index 9a2b8b5a8..d0be88cec 100644 --- a/testsuite/tests/tool-ocaml/t170-envacc3.ml +++ b/testsuite/tests/tool-ocaml/t170-envacc3.ml @@ -8,35 +8,35 @@ if f 0 <> 1 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 18 - 11 ENVACC1 - 12 CONST0 - 13 ENVACC2 - 14 CONST0 - 15 ENVACC3 + 11 ENVACC1 + 12 CONST0 + 13 ENVACC2 + 14 CONST0 + 15 ENVACC3 16 RETURN 1 18 CONSTINT 5 - 20 PUSHCONST2 - 21 PUSHCONST1 - 22 PUSHACC0 - 23 PUSHACC2 - 24 PUSHACC4 + 20 PUSHCONST2 + 21 PUSHCONST1 + 22 PUSHACC0 + 23 PUSHACC2 + 24 PUSHACC4 25 CLOSURE 3, 11 - 28 PUSHCONST1 - 29 PUSHCONST0 - 30 PUSHACC2 - 31 APPLY1 - 32 NEQ + 28 PUSHCONST1 + 29 PUSHCONST0 + 30 PUSHACC2 + 31 APPLY1 + 32 NEQ 33 BRANCHIFNOT 40 35 GETGLOBAL Not_found 37 MAKEBLOCK1 0 - 39 RAISE + 39 RAISE 40 POP 4 - 42 ATOM0 + 42 ATOM0 43 SETGLOBAL T170-envacc3 - 45 STOP + 45 STOP **) diff --git a/testsuite/tests/tool-ocaml/t170-envacc4.ml b/testsuite/tests/tool-ocaml/t170-envacc4.ml index 215e32207..9764c3b26 100644 --- a/testsuite/tests/tool-ocaml/t170-envacc4.ml +++ b/testsuite/tests/tool-ocaml/t170-envacc4.ml @@ -9,39 +9,39 @@ if f 0 <> 4 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 20 - 11 ENVACC1 - 12 CONST0 - 13 ENVACC2 - 14 CONST0 - 15 ENVACC3 - 16 CONST0 - 17 ENVACC4 + 11 ENVACC1 + 12 CONST0 + 13 ENVACC2 + 14 CONST0 + 15 ENVACC3 + 16 CONST0 + 17 ENVACC4 18 RETURN 1 20 CONSTINT 5 - 22 PUSHCONST2 - 23 PUSHCONST1 + 22 PUSHCONST2 + 23 PUSHCONST1 24 PUSHCONSTINT 4 - 26 PUSHACC0 - 27 PUSHACC2 - 28 PUSHACC4 - 29 PUSHACC6 + 26 PUSHACC0 + 27 PUSHACC2 + 28 PUSHACC4 + 29 PUSHACC6 30 CLOSURE 4, 11 33 PUSHCONSTINT 4 - 35 PUSHCONST0 - 36 PUSHACC2 - 37 APPLY1 - 38 NEQ + 35 PUSHCONST0 + 36 PUSHACC2 + 37 APPLY1 + 38 NEQ 39 BRANCHIFNOT 46 41 GETGLOBAL Not_found 43 MAKEBLOCK1 0 - 45 RAISE + 45 RAISE 46 POP 5 - 48 ATOM0 + 48 ATOM0 49 SETGLOBAL T170-envacc4 - 51 STOP + 51 STOP **) diff --git a/testsuite/tests/tool-ocaml/t171-envacc.ml b/testsuite/tests/tool-ocaml/t171-envacc.ml index 4c4a3dfac..a83295b81 100644 --- a/testsuite/tests/tool-ocaml/t171-envacc.ml +++ b/testsuite/tests/tool-ocaml/t171-envacc.ml @@ -10,43 +10,43 @@ if f 0 <> 3 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 23 - 11 ENVACC1 - 12 CONST0 - 13 ENVACC2 - 14 CONST0 - 15 ENVACC3 - 16 CONST0 - 17 ENVACC4 - 18 CONST0 + 11 ENVACC1 + 12 CONST0 + 13 ENVACC2 + 14 CONST0 + 15 ENVACC3 + 16 CONST0 + 17 ENVACC4 + 18 CONST0 19 ENVACC 5 21 RETURN 1 23 CONSTINT 5 - 25 PUSHCONST2 - 26 PUSHCONST1 + 25 PUSHCONST2 + 26 PUSHCONST1 27 PUSHCONSTINT 4 - 29 PUSHCONST3 - 30 PUSHACC0 - 31 PUSHACC2 - 32 PUSHACC4 - 33 PUSHACC6 + 29 PUSHCONST3 + 30 PUSHACC0 + 31 PUSHACC2 + 32 PUSHACC4 + 33 PUSHACC6 34 PUSHACC 8 36 CLOSURE 5, 11 - 39 PUSHCONST3 - 40 PUSHCONST0 - 41 PUSHACC2 - 42 APPLY1 - 43 NEQ + 39 PUSHCONST3 + 40 PUSHCONST0 + 41 PUSHACC2 + 42 APPLY1 + 43 NEQ 44 BRANCHIFNOT 51 46 GETGLOBAL Not_found 48 MAKEBLOCK1 0 - 50 RAISE + 50 RAISE 51 POP 6 - 53 ATOM0 + 53 ATOM0 54 SETGLOBAL T171-envacc - 56 STOP + 56 STOP **) diff --git a/testsuite/tests/tool-ocaml/t172-pushenvacc1.ml b/testsuite/tests/tool-ocaml/t172-pushenvacc1.ml index 06c4011a0..ba615ba7d 100644 --- a/testsuite/tests/tool-ocaml/t172-pushenvacc1.ml +++ b/testsuite/tests/tool-ocaml/t172-pushenvacc1.ml @@ -6,29 +6,29 @@ if f 0 <> 10 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 16 - 11 ENVACC1 - 12 PUSHENVACC1 - 13 ADDINT + 11 ENVACC1 + 12 PUSHENVACC1 + 13 ADDINT 14 RETURN 1 16 CONSTINT 5 - 18 PUSHACC0 + 18 PUSHACC0 19 CLOSURE 1, 11 22 PUSHCONSTINT 10 - 24 PUSHCONST0 - 25 PUSHACC2 - 26 APPLY1 - 27 NEQ + 24 PUSHCONST0 + 25 PUSHACC2 + 26 APPLY1 + 27 NEQ 28 BRANCHIFNOT 35 30 GETGLOBAL Not_found 32 MAKEBLOCK1 0 - 34 RAISE + 34 RAISE 35 POP 2 - 37 ATOM0 + 37 ATOM0 38 SETGLOBAL T172-pushenvacc1 - 40 STOP + 40 STOP **) diff --git a/testsuite/tests/tool-ocaml/t172-pushenvacc2.ml b/testsuite/tests/tool-ocaml/t172-pushenvacc2.ml index c25e40a71..afdbcc5dc 100644 --- a/testsuite/tests/tool-ocaml/t172-pushenvacc2.ml +++ b/testsuite/tests/tool-ocaml/t172-pushenvacc2.ml @@ -7,31 +7,31 @@ if f 0 <> 9 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 16 - 11 ENVACC1 - 12 PUSHENVACC2 - 13 ADDINT + 11 ENVACC1 + 12 PUSHENVACC2 + 13 ADDINT 14 RETURN 1 16 CONSTINT 5 18 PUSHCONSTINT 4 - 20 PUSHACC0 - 21 PUSHACC2 + 20 PUSHACC0 + 21 PUSHACC2 22 CLOSURE 2, 11 25 PUSHCONSTINT 9 - 27 PUSHCONST0 - 28 PUSHACC2 - 29 APPLY1 - 30 NEQ + 27 PUSHCONST0 + 28 PUSHACC2 + 29 APPLY1 + 30 NEQ 31 BRANCHIFNOT 38 33 GETGLOBAL Not_found 35 MAKEBLOCK1 0 - 37 RAISE + 37 RAISE 38 POP 3 - 40 ATOM0 + 40 ATOM0 41 SETGLOBAL T172-pushenvacc2 - 43 STOP + 43 STOP **) diff --git a/testsuite/tests/tool-ocaml/t172-pushenvacc3.ml b/testsuite/tests/tool-ocaml/t172-pushenvacc3.ml index 093f7f1e4..308fd5ed3 100644 --- a/testsuite/tests/tool-ocaml/t172-pushenvacc3.ml +++ b/testsuite/tests/tool-ocaml/t172-pushenvacc3.ml @@ -8,35 +8,35 @@ if f 0 <> 12 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 18 - 11 ENVACC1 - 12 PUSHENVACC2 - 13 PUSHENVACC3 - 14 ADDINT - 15 ADDINT + 11 ENVACC1 + 12 PUSHENVACC2 + 13 PUSHENVACC3 + 14 ADDINT + 15 ADDINT 16 RETURN 1 18 CONSTINT 5 20 PUSHCONSTINT 4 - 22 PUSHCONST3 - 23 PUSHACC0 - 24 PUSHACC2 - 25 PUSHACC4 + 22 PUSHCONST3 + 23 PUSHACC0 + 24 PUSHACC2 + 25 PUSHACC4 26 CLOSURE 3, 11 29 PUSHCONSTINT 12 - 31 PUSHCONST0 - 32 PUSHACC2 - 33 APPLY1 - 34 NEQ + 31 PUSHCONST0 + 32 PUSHACC2 + 33 APPLY1 + 34 NEQ 35 BRANCHIFNOT 42 37 GETGLOBAL Not_found 39 MAKEBLOCK1 0 - 41 RAISE + 41 RAISE 42 POP 4 - 44 ATOM0 + 44 ATOM0 45 SETGLOBAL T172-pushenvacc3 - 47 STOP + 47 STOP **) diff --git a/testsuite/tests/tool-ocaml/t172-pushenvacc4.ml b/testsuite/tests/tool-ocaml/t172-pushenvacc4.ml index 154c4a471..feba12811 100644 --- a/testsuite/tests/tool-ocaml/t172-pushenvacc4.ml +++ b/testsuite/tests/tool-ocaml/t172-pushenvacc4.ml @@ -9,39 +9,39 @@ if f 0 <> 14 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 21 - 11 ENVACC1 - 12 PUSHENVACC2 - 13 PUSHENVACC3 + 11 ENVACC1 + 12 PUSHENVACC2 + 13 PUSHENVACC3 14 PUSHENVACC 4 - 16 ADDINT - 17 ADDINT - 18 ADDINT + 16 ADDINT + 17 ADDINT + 18 ADDINT 19 RETURN 1 21 CONSTINT 5 23 PUSHCONSTINT 4 - 25 PUSHCONST3 - 26 PUSHCONST2 - 27 PUSHACC0 - 28 PUSHACC2 - 29 PUSHACC4 - 30 PUSHACC6 + 25 PUSHCONST3 + 26 PUSHCONST2 + 27 PUSHACC0 + 28 PUSHACC2 + 29 PUSHACC4 + 30 PUSHACC6 31 CLOSURE 4, 11 34 PUSHCONSTINT 14 - 36 PUSHCONST0 - 37 PUSHACC2 - 38 APPLY1 - 39 NEQ + 36 PUSHCONST0 + 37 PUSHACC2 + 38 APPLY1 + 39 NEQ 40 BRANCHIFNOT 47 42 GETGLOBAL Not_found 44 MAKEBLOCK1 0 - 46 RAISE + 46 RAISE 47 POP 5 - 49 ATOM0 + 49 ATOM0 50 SETGLOBAL T172-pushenvacc4 - 52 STOP + 52 STOP **) diff --git a/testsuite/tests/tool-ocaml/t173-pushenvacc.ml b/testsuite/tests/tool-ocaml/t173-pushenvacc.ml index 0d858b4aa..ffddf8d78 100644 --- a/testsuite/tests/tool-ocaml/t173-pushenvacc.ml +++ b/testsuite/tests/tool-ocaml/t173-pushenvacc.ml @@ -10,43 +10,43 @@ if f 0 <> 15 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 24 - 11 ENVACC1 - 12 PUSHENVACC2 - 13 PUSHENVACC3 + 11 ENVACC1 + 12 PUSHENVACC2 + 13 PUSHENVACC3 14 PUSHENVACC 4 16 PUSHENVACC 5 - 18 ADDINT - 19 ADDINT - 20 ADDINT - 21 ADDINT + 18 ADDINT + 19 ADDINT + 20 ADDINT + 21 ADDINT 22 RETURN 1 24 CONSTINT 5 26 PUSHCONSTINT 4 - 28 PUSHCONST3 - 29 PUSHCONST2 - 30 PUSHCONST1 - 31 PUSHACC0 - 32 PUSHACC2 - 33 PUSHACC4 - 34 PUSHACC6 + 28 PUSHCONST3 + 29 PUSHCONST2 + 30 PUSHCONST1 + 31 PUSHACC0 + 32 PUSHACC2 + 33 PUSHACC4 + 34 PUSHACC6 35 PUSHACC 8 37 CLOSURE 5, 11 40 PUSHCONSTINT 15 - 42 PUSHCONST0 - 43 PUSHACC2 - 44 APPLY1 - 45 NEQ + 42 PUSHCONST0 + 43 PUSHACC2 + 44 APPLY1 + 45 NEQ 46 BRANCHIFNOT 53 48 GETGLOBAL Not_found 50 MAKEBLOCK1 0 - 52 RAISE + 52 RAISE 53 POP 6 - 55 ATOM0 + 55 ATOM0 56 SETGLOBAL T173-pushenvacc - 58 STOP + 58 STOP **) diff --git a/testsuite/tests/tool-ocaml/t180-appterm1.ml b/testsuite/tests/tool-ocaml/t180-appterm1.ml index 6b82f51b6..a0006caf3 100644 --- a/testsuite/tests/tool-ocaml/t180-appterm1.ml +++ b/testsuite/tests/tool-ocaml/t180-appterm1.ml @@ -6,30 +6,30 @@ if g 0 <> 12 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 19 - 11 CONST0 - 12 PUSHENVACC1 + 11 CONST0 + 12 PUSHENVACC1 13 APPTERM1 2 15 CONSTINT 12 17 RETURN 1 19 CLOSURE 0, 15 - 22 PUSHACC0 + 22 PUSHACC0 23 CLOSURE 1, 11 26 PUSHCONSTINT 12 - 28 PUSHCONST0 - 29 PUSHACC2 - 30 APPLY1 - 31 NEQ + 28 PUSHCONST0 + 29 PUSHACC2 + 30 APPLY1 + 31 NEQ 32 BRANCHIFNOT 39 34 GETGLOBAL Not_found 36 MAKEBLOCK1 0 - 38 RAISE + 38 RAISE 39 POP 2 - 41 ATOM0 + 41 ATOM0 42 SETGLOBAL T180-appterm1 - 44 STOP + 44 STOP **) diff --git a/testsuite/tests/tool-ocaml/t180-appterm2.ml b/testsuite/tests/tool-ocaml/t180-appterm2.ml index 28f32a933..850301d08 100644 --- a/testsuite/tests/tool-ocaml/t180-appterm2.ml +++ b/testsuite/tests/tool-ocaml/t180-appterm2.ml @@ -6,33 +6,33 @@ if g 0 <> 12 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 23 - 11 CONST0 - 12 PUSHCONST0 - 13 PUSHENVACC1 + 11 CONST0 + 12 PUSHCONST0 + 13 PUSHENVACC1 14 APPTERM2 3 - 16 RESTART + 16 RESTART 17 GRAB 1 19 CONSTINT 12 21 RETURN 2 23 CLOSURE 0, 17 - 26 PUSHACC0 + 26 PUSHACC0 27 CLOSURE 1, 11 30 PUSHCONSTINT 12 - 32 PUSHCONST0 - 33 PUSHACC2 - 34 APPLY1 - 35 NEQ + 32 PUSHCONST0 + 33 PUSHACC2 + 34 APPLY1 + 35 NEQ 36 BRANCHIFNOT 43 38 GETGLOBAL Not_found 40 MAKEBLOCK1 0 - 42 RAISE + 42 RAISE 43 POP 2 - 45 ATOM0 + 45 ATOM0 46 SETGLOBAL T180-appterm2 - 48 STOP + 48 STOP **) diff --git a/testsuite/tests/tool-ocaml/t180-appterm3.ml b/testsuite/tests/tool-ocaml/t180-appterm3.ml index fe8a0bd5c..eedc52e58 100644 --- a/testsuite/tests/tool-ocaml/t180-appterm3.ml +++ b/testsuite/tests/tool-ocaml/t180-appterm3.ml @@ -6,34 +6,34 @@ if g 0 <> 13 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 24 - 11 CONST0 - 12 PUSHCONST0 - 13 PUSHCONST0 - 14 PUSHENVACC1 + 11 CONST0 + 12 PUSHCONST0 + 13 PUSHCONST0 + 14 PUSHENVACC1 15 APPTERM3 4 - 17 RESTART + 17 RESTART 18 GRAB 2 20 CONSTINT 13 22 RETURN 3 24 CLOSURE 0, 18 - 27 PUSHACC0 + 27 PUSHACC0 28 CLOSURE 1, 11 31 PUSHCONSTINT 13 - 33 PUSHCONST0 - 34 PUSHACC2 - 35 APPLY1 - 36 NEQ + 33 PUSHCONST0 + 34 PUSHACC2 + 35 APPLY1 + 36 NEQ 37 BRANCHIFNOT 44 39 GETGLOBAL Not_found 41 MAKEBLOCK1 0 - 43 RAISE + 43 RAISE 44 POP 2 - 46 ATOM0 + 46 ATOM0 47 SETGLOBAL T180-appterm3 - 49 STOP + 49 STOP **) diff --git a/testsuite/tests/tool-ocaml/t181-appterm.ml b/testsuite/tests/tool-ocaml/t181-appterm.ml index 03127bc8d..2222bc406 100644 --- a/testsuite/tests/tool-ocaml/t181-appterm.ml +++ b/testsuite/tests/tool-ocaml/t181-appterm.ml @@ -6,35 +6,35 @@ if g 0 <> -10 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 26 - 11 CONST0 - 12 PUSHCONST0 - 13 PUSHCONST0 - 14 PUSHCONST0 - 15 PUSHENVACC1 + 11 CONST0 + 12 PUSHCONST0 + 13 PUSHCONST0 + 14 PUSHCONST0 + 15 PUSHENVACC1 16 APPTERM 4, 5 - 19 RESTART + 19 RESTART 20 GRAB 3 22 CONSTINT -10 24 RETURN 4 26 CLOSURE 0, 20 - 29 PUSHACC0 + 29 PUSHACC0 30 CLOSURE 1, 11 33 PUSHCONSTINT -10 - 35 PUSHCONST0 - 36 PUSHACC2 - 37 APPLY1 - 38 NEQ + 35 PUSHCONST0 + 36 PUSHACC2 + 37 APPLY1 + 38 NEQ 39 BRANCHIFNOT 46 41 GETGLOBAL Not_found 43 MAKEBLOCK1 0 - 45 RAISE + 45 RAISE 46 POP 2 - 48 ATOM0 + 48 ATOM0 49 SETGLOBAL T181-appterm - 51 STOP + 51 STOP **) diff --git a/testsuite/tests/tool-ocaml/t190-makefloatblock-1.ml b/testsuite/tests/tool-ocaml/t190-makefloatblock-1.ml index f63c6cd8f..1d906c9c6 100644 --- a/testsuite/tests/tool-ocaml/t190-makefloatblock-1.ml +++ b/testsuite/tests/tool-ocaml/t190-makefloatblock-1.ml @@ -3,15 +3,15 @@ let x = 0.0 in [| x |];; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 GETGLOBAL 0 - 11 PUSHACC0 + 11 PUSHACC0 12 MAKEFLOATBLOCK 1 14 POP 1 - 16 ATOM0 + 16 ATOM0 17 SETGLOBAL T190-makefloatblock-1 - 19 STOP + 19 STOP **) diff --git a/testsuite/tests/tool-ocaml/t190-makefloatblock-2.ml b/testsuite/tests/tool-ocaml/t190-makefloatblock-2.ml index 53b97f5d5..bb06aba8f 100644 --- a/testsuite/tests/tool-ocaml/t190-makefloatblock-2.ml +++ b/testsuite/tests/tool-ocaml/t190-makefloatblock-2.ml @@ -3,16 +3,16 @@ let x = 0.0 in [| x; x |];; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 GETGLOBAL 0 - 11 PUSHACC0 - 12 PUSHACC1 + 11 PUSHACC0 + 12 PUSHACC1 13 MAKEFLOATBLOCK 2 15 POP 1 - 17 ATOM0 + 17 ATOM0 18 SETGLOBAL T190-makefloatblock-2 - 20 STOP + 20 STOP **) diff --git a/testsuite/tests/tool-ocaml/t190-makefloatblock-3.ml b/testsuite/tests/tool-ocaml/t190-makefloatblock-3.ml index cebccaa38..581439df7 100644 --- a/testsuite/tests/tool-ocaml/t190-makefloatblock-3.ml +++ b/testsuite/tests/tool-ocaml/t190-makefloatblock-3.ml @@ -3,17 +3,17 @@ let x = 0.0 in [| x; x; x |];; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 GETGLOBAL 0 - 11 PUSHACC0 - 12 PUSHACC1 - 13 PUSHACC2 + 11 PUSHACC0 + 12 PUSHACC1 + 13 PUSHACC2 14 MAKEFLOATBLOCK 3 16 POP 1 - 18 ATOM0 + 18 ATOM0 19 SETGLOBAL T190-makefloatblock-3 - 21 STOP + 21 STOP **) diff --git a/testsuite/tests/tool-ocaml/t191-vectlength.ml b/testsuite/tests/tool-ocaml/t191-vectlength.ml index 16f7d783b..6cd19667e 100644 --- a/testsuite/tests/tool-ocaml/t191-vectlength.ml +++ b/testsuite/tests/tool-ocaml/t191-vectlength.ml @@ -5,22 +5,22 @@ if Array.length [| x |] <> 1 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 GETGLOBAL 0 - 11 PUSHCONST1 - 12 PUSHACC1 + 11 PUSHCONST1 + 12 PUSHACC1 13 MAKEFLOATBLOCK 1 - 15 VECTLENGTH - 16 NEQ + 15 VECTLENGTH + 16 NEQ 17 BRANCHIFNOT 24 19 GETGLOBAL Not_found 21 MAKEBLOCK1 0 - 23 RAISE + 23 RAISE 24 POP 1 - 26 ATOM0 + 26 ATOM0 27 SETGLOBAL T191-vectlength - 29 STOP + 29 STOP **) diff --git a/testsuite/tests/tool-ocaml/t192-getfloatfield-1.ml b/testsuite/tests/tool-ocaml/t192-getfloatfield-1.ml index ba002b20b..bd8109f43 100644 --- a/testsuite/tests/tool-ocaml/t192-getfloatfield-1.ml +++ b/testsuite/tests/tool-ocaml/t192-getfloatfield-1.ml @@ -5,7 +5,7 @@ if { a = 0.1; b = 0.2 }.a <> 0.1 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib @@ -16,8 +16,8 @@ if { a = 0.1; b = 0.2 }.a <> 0.1 then raise Not_found;; 17 BRANCHIFNOT 24 19 GETGLOBAL Not_found 21 MAKEBLOCK1 0 - 23 RAISE - 24 ATOM0 + 23 RAISE + 24 ATOM0 25 SETGLOBAL T192-getfloatfield-1 - 27 STOP + 27 STOP **) diff --git a/testsuite/tests/tool-ocaml/t192-getfloatfield-2.ml b/testsuite/tests/tool-ocaml/t192-getfloatfield-2.ml index 89230da39..0c62a4b0b 100644 --- a/testsuite/tests/tool-ocaml/t192-getfloatfield-2.ml +++ b/testsuite/tests/tool-ocaml/t192-getfloatfield-2.ml @@ -5,7 +5,7 @@ if { a = 0.1; b = 0.2 }.b <> 0.2 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib @@ -16,8 +16,8 @@ if { a = 0.1; b = 0.2 }.b <> 0.2 then raise Not_found;; 17 BRANCHIFNOT 24 19 GETGLOBAL Not_found 21 MAKEBLOCK1 0 - 23 RAISE - 24 ATOM0 + 23 RAISE + 24 ATOM0 25 SETGLOBAL T192-getfloatfield-2 - 27 STOP + 27 STOP **) diff --git a/testsuite/tests/tool-ocaml/t193-setfloatfield-1.ml b/testsuite/tests/tool-ocaml/t193-setfloatfield-1.ml index b488e7daa..c679c43ae 100644 --- a/testsuite/tests/tool-ocaml/t193-setfloatfield-1.ml +++ b/testsuite/tests/tool-ocaml/t193-setfloatfield-1.ml @@ -11,7 +11,7 @@ if x.a <> 0.3 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib @@ -19,18 +19,18 @@ if x.a <> 0.3 then raise Not_found 11 PUSHGETGLOBAL 0.1 13 MAKEFLOATBLOCK 2 15 PUSHGETGLOBAL 0.3 - 17 PUSHACC1 + 17 PUSHACC1 18 SETFLOATFIELD 0 20 GETGLOBAL 0.3 - 22 PUSHACC1 + 22 PUSHACC1 23 GETFLOATFIELD 0 25 C_CALL2 neq_float 27 BRANCHIFNOT 34 29 GETGLOBAL Not_found 31 MAKEBLOCK1 0 - 33 RAISE + 33 RAISE 34 POP 1 - 36 ATOM0 + 36 ATOM0 37 SETGLOBAL T193-setfloatfield-1 - 39 STOP + 39 STOP **) diff --git a/testsuite/tests/tool-ocaml/t193-setfloatfield-2.ml b/testsuite/tests/tool-ocaml/t193-setfloatfield-2.ml index 7dde0a2cf..2088257a3 100644 --- a/testsuite/tests/tool-ocaml/t193-setfloatfield-2.ml +++ b/testsuite/tests/tool-ocaml/t193-setfloatfield-2.ml @@ -11,7 +11,7 @@ if x.b <> 0.3 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib @@ -19,18 +19,18 @@ if x.b <> 0.3 then raise Not_found 11 PUSHGETGLOBAL 0.1 13 MAKEFLOATBLOCK 2 15 PUSHGETGLOBAL 0.3 - 17 PUSHACC1 + 17 PUSHACC1 18 SETFLOATFIELD 1 20 GETGLOBAL 0.3 - 22 PUSHACC1 + 22 PUSHACC1 23 GETFLOATFIELD 1 25 C_CALL2 neq_float 27 BRANCHIFNOT 34 29 GETGLOBAL Not_found 31 MAKEBLOCK1 0 - 33 RAISE + 33 RAISE 34 POP 1 - 36 ATOM0 + 36 ATOM0 37 SETGLOBAL T193-setfloatfield-2 - 39 STOP + 39 STOP **) diff --git a/testsuite/tests/tool-ocaml/t200-getfield0.ml b/testsuite/tests/tool-ocaml/t200-getfield0.ml index 14ce1d547..b3f59fe58 100644 --- a/testsuite/tests/tool-ocaml/t200-getfield0.ml +++ b/testsuite/tests/tool-ocaml/t200-getfield0.ml @@ -7,19 +7,19 @@ if { a = 7 }.a <> 7 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 CONSTINT 7 11 PUSHGETGLOBAL <0>(7) - 13 GETFIELD0 - 14 NEQ + 13 GETFIELD0 + 14 NEQ 15 BRANCHIFNOT 22 17 GETGLOBAL Not_found 19 MAKEBLOCK1 0 - 21 RAISE - 22 ATOM0 + 21 RAISE + 22 ATOM0 23 SETGLOBAL T200-getfield0 - 25 STOP + 25 STOP **) diff --git a/testsuite/tests/tool-ocaml/t200-getfield1.ml b/testsuite/tests/tool-ocaml/t200-getfield1.ml index f4e2e0190..4dcb2f7cd 100644 --- a/testsuite/tests/tool-ocaml/t200-getfield1.ml +++ b/testsuite/tests/tool-ocaml/t200-getfield1.ml @@ -8,19 +8,19 @@ if { a = 7; b = 6 }.b <> 6 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 CONSTINT 6 11 PUSHGETGLOBAL <0>(7, 6) - 13 GETFIELD1 - 14 NEQ + 13 GETFIELD1 + 14 NEQ 15 BRANCHIFNOT 22 17 GETGLOBAL Not_found 19 MAKEBLOCK1 0 - 21 RAISE - 22 ATOM0 + 21 RAISE + 22 ATOM0 23 SETGLOBAL T200-getfield1 - 25 STOP + 25 STOP **) diff --git a/testsuite/tests/tool-ocaml/t200-getfield2.ml b/testsuite/tests/tool-ocaml/t200-getfield2.ml index df5c7172d..02f3234fc 100644 --- a/testsuite/tests/tool-ocaml/t200-getfield2.ml +++ b/testsuite/tests/tool-ocaml/t200-getfield2.ml @@ -9,19 +9,19 @@ if { a = 7; b = 6; c = 5 }.c <> 5 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 CONSTINT 5 11 PUSHGETGLOBAL <0>(7, 6, 5) - 13 GETFIELD2 - 14 NEQ + 13 GETFIELD2 + 14 NEQ 15 BRANCHIFNOT 22 17 GETGLOBAL Not_found 19 MAKEBLOCK1 0 - 21 RAISE - 22 ATOM0 + 21 RAISE + 22 ATOM0 23 SETGLOBAL T200-getfield2 - 25 STOP + 25 STOP **) diff --git a/testsuite/tests/tool-ocaml/t200-getfield3.ml b/testsuite/tests/tool-ocaml/t200-getfield3.ml index a0376a1fc..b8ba042e5 100644 --- a/testsuite/tests/tool-ocaml/t200-getfield3.ml +++ b/testsuite/tests/tool-ocaml/t200-getfield3.ml @@ -10,19 +10,19 @@ if { a = 7; b = 6; c = 5; d = 4 }.d <> 4 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 CONSTINT 4 11 PUSHGETGLOBAL <0>(7, 6, 5, 4) - 13 GETFIELD3 - 14 NEQ + 13 GETFIELD3 + 14 NEQ 15 BRANCHIFNOT 22 17 GETGLOBAL Not_found 19 MAKEBLOCK1 0 - 21 RAISE - 22 ATOM0 + 21 RAISE + 22 ATOM0 23 SETGLOBAL T200-getfield3 - 25 STOP + 25 STOP **) diff --git a/testsuite/tests/tool-ocaml/t201-getfield.ml b/testsuite/tests/tool-ocaml/t201-getfield.ml index 0fbbc63fe..91f86fb7b 100644 --- a/testsuite/tests/tool-ocaml/t201-getfield.ml +++ b/testsuite/tests/tool-ocaml/t201-getfield.ml @@ -11,19 +11,19 @@ if { a = 7; b = 6; c = 5; d = 4; e = 3 }.e <> 3 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST3 + 9 CONST3 10 PUSHGETGLOBAL <0>(7, 6, 5, 4, 3) 12 GETFIELD 4 - 14 NEQ + 14 NEQ 15 BRANCHIFNOT 22 17 GETGLOBAL Not_found 19 MAKEBLOCK1 0 - 21 RAISE - 22 ATOM0 + 21 RAISE + 22 ATOM0 23 SETGLOBAL T201-getfield - 25 STOP + 25 STOP **) diff --git a/testsuite/tests/tool-ocaml/t210-setfield0.ml b/testsuite/tests/tool-ocaml/t210-setfield0.ml index aa31d41fe..b7fce85a2 100644 --- a/testsuite/tests/tool-ocaml/t210-setfield0.ml +++ b/testsuite/tests/tool-ocaml/t210-setfield0.ml @@ -11,26 +11,26 @@ x (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 CONSTINT 7 11 MAKEBLOCK1 0 13 PUSHCONSTINT 11 - 15 PUSHACC1 - 16 SETFIELD0 + 15 PUSHACC1 + 16 SETFIELD0 17 CONSTINT 11 - 19 PUSHACC1 - 20 GETFIELD0 - 21 NEQ + 19 PUSHACC1 + 20 GETFIELD0 + 21 NEQ 22 BRANCHIFNOT 29 24 GETGLOBAL Not_found 26 MAKEBLOCK1 0 - 28 RAISE - 29 ACC0 + 28 RAISE + 29 ACC0 30 POP 1 - 32 ATOM0 + 32 ATOM0 33 SETGLOBAL T210-setfield0 - 35 STOP + 35 STOP **) diff --git a/testsuite/tests/tool-ocaml/t210-setfield1.ml b/testsuite/tests/tool-ocaml/t210-setfield1.ml index 0d8e16762..7bb65c558 100644 --- a/testsuite/tests/tool-ocaml/t210-setfield1.ml +++ b/testsuite/tests/tool-ocaml/t210-setfield1.ml @@ -12,7 +12,7 @@ x (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib @@ -20,19 +20,19 @@ x 11 PUSHCONSTINT 7 13 MAKEBLOCK2 0 15 PUSHCONSTINT 11 - 17 PUSHACC1 - 18 SETFIELD1 + 17 PUSHACC1 + 18 SETFIELD1 19 CONSTINT 11 - 21 PUSHACC1 - 22 GETFIELD1 - 23 NEQ + 21 PUSHACC1 + 22 GETFIELD1 + 23 NEQ 24 BRANCHIFNOT 31 26 GETGLOBAL Not_found 28 MAKEBLOCK1 0 - 30 RAISE - 31 ACC0 + 30 RAISE + 31 ACC0 32 POP 1 - 34 ATOM0 + 34 ATOM0 35 SETGLOBAL T210-setfield1 - 37 STOP + 37 STOP **) diff --git a/testsuite/tests/tool-ocaml/t210-setfield2.ml b/testsuite/tests/tool-ocaml/t210-setfield2.ml index 727691d11..4cd42ecf4 100644 --- a/testsuite/tests/tool-ocaml/t210-setfield2.ml +++ b/testsuite/tests/tool-ocaml/t210-setfield2.ml @@ -13,7 +13,7 @@ x (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib @@ -22,19 +22,19 @@ x 13 PUSHCONSTINT 7 15 MAKEBLOCK3 0 17 PUSHCONSTINT 11 - 19 PUSHACC1 - 20 SETFIELD2 + 19 PUSHACC1 + 20 SETFIELD2 21 CONSTINT 11 - 23 PUSHACC1 - 24 GETFIELD2 - 25 NEQ + 23 PUSHACC1 + 24 GETFIELD2 + 25 NEQ 26 BRANCHIFNOT 33 28 GETGLOBAL Not_found 30 MAKEBLOCK1 0 - 32 RAISE - 33 ACC0 + 32 RAISE + 33 ACC0 34 POP 1 - 36 ATOM0 + 36 ATOM0 37 SETGLOBAL T210-setfield2 - 39 STOP + 39 STOP **) diff --git a/testsuite/tests/tool-ocaml/t210-setfield3.ml b/testsuite/tests/tool-ocaml/t210-setfield3.ml index d50d2c2a6..7df753623 100644 --- a/testsuite/tests/tool-ocaml/t210-setfield3.ml +++ b/testsuite/tests/tool-ocaml/t210-setfield3.ml @@ -14,7 +14,7 @@ x (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib @@ -24,19 +24,19 @@ x 15 PUSHCONSTINT 7 17 MAKEBLOCK 4, 0 20 PUSHCONSTINT 11 - 22 PUSHACC1 - 23 SETFIELD3 + 22 PUSHACC1 + 23 SETFIELD3 24 CONSTINT 11 - 26 PUSHACC1 - 27 GETFIELD3 - 28 NEQ + 26 PUSHACC1 + 27 GETFIELD3 + 28 NEQ 29 BRANCHIFNOT 36 31 GETGLOBAL Not_found 33 MAKEBLOCK1 0 - 35 RAISE - 36 ACC0 + 35 RAISE + 36 ACC0 37 POP 1 - 39 ATOM0 + 39 ATOM0 40 SETGLOBAL T210-setfield3 - 42 STOP + 42 STOP **) diff --git a/testsuite/tests/tool-ocaml/t211-setfield.ml b/testsuite/tests/tool-ocaml/t211-setfield.ml index 69c445e10..47e3b7db6 100644 --- a/testsuite/tests/tool-ocaml/t211-setfield.ml +++ b/testsuite/tests/tool-ocaml/t211-setfield.ml @@ -15,7 +15,7 @@ x (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib @@ -26,19 +26,19 @@ x 17 PUSHCONSTINT 7 19 MAKEBLOCK 5, 0 22 PUSHCONSTINT 11 - 24 PUSHACC1 + 24 PUSHACC1 25 SETFIELD 4 27 CONSTINT 11 - 29 PUSHACC1 + 29 PUSHACC1 30 GETFIELD 4 - 32 NEQ + 32 NEQ 33 BRANCHIFNOT 40 35 GETGLOBAL Not_found 37 MAKEBLOCK1 0 - 39 RAISE - 40 ACC0 + 39 RAISE + 40 ACC0 41 POP 1 - 43 ATOM0 + 43 ATOM0 44 SETGLOBAL T211-setfield - 46 STOP + 46 STOP **) diff --git a/testsuite/tests/tool-ocaml/t220-assign.ml b/testsuite/tests/tool-ocaml/t220-assign.ml index 769f8fb22..ecb57e602 100644 --- a/testsuite/tests/tool-ocaml/t220-assign.ml +++ b/testsuite/tests/tool-ocaml/t220-assign.ml @@ -6,22 +6,22 @@ if !x <> 3 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST1 - 10 PUSHCONST3 + 9 CONST1 + 10 PUSHCONST3 11 ASSIGN 0 - 13 CONST3 - 14 PUSHACC1 - 15 NEQ + 13 CONST3 + 14 PUSHACC1 + 15 NEQ 16 BRANCHIFNOT 23 18 GETGLOBAL Not_found 20 MAKEBLOCK1 0 - 22 RAISE + 22 RAISE 23 POP 1 - 25 ATOM0 + 25 ATOM0 26 SETGLOBAL T220-assign - 28 STOP + 28 STOP **) diff --git a/testsuite/tests/tool-ocaml/t230-check_signals.ml b/testsuite/tests/tool-ocaml/t230-check_signals.ml index 2c2b5d773..41e82d8cd 100644 --- a/testsuite/tests/tool-ocaml/t230-check_signals.ml +++ b/testsuite/tests/tool-ocaml/t230-check_signals.ml @@ -3,26 +3,26 @@ for i = 0 to 0 do () done;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 - 10 PUSHCONST0 - 11 PUSH + 9 CONST0 + 10 PUSHCONST0 + 11 PUSH 12 BRANCH 21 - 14 CHECK_SIGNALS - 15 CONST0 - 16 ACC1 + 14 CHECK_SIGNALS + 15 CONST0 + 16 ACC1 17 OFFSETINT 1 19 ASSIGN 1 - 21 ACC0 - 22 PUSHACC2 - 23 LEINT + 21 ACC0 + 22 PUSHACC2 + 23 LEINT 24 BRANCHIF 14 - 26 CONST0 + 26 CONST0 27 POP 2 - 29 ATOM0 + 29 ATOM0 30 SETGLOBAL T230-check_signals - 32 STOP + 32 STOP **) diff --git a/testsuite/tests/tool-ocaml/t240-c_call1.ml b/testsuite/tests/tool-ocaml/t240-c_call1.ml index 7bb2df97e..70809c752 100644 --- a/testsuite/tests/tool-ocaml/t240-c_call1.ml +++ b/testsuite/tests/tool-ocaml/t240-c_call1.ml @@ -9,19 +9,19 @@ if Nativeint.of_string "+123" <> Nativeint.of_int 123 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 CONSTINT 123 11 PUSHGETGLOBAL "123" 13 C_CALL1 int_of_string - 15 NEQ + 15 NEQ 16 BRANCHIFNOT 23 18 GETGLOBAL Not_found 20 MAKEBLOCK1 0 - 22 RAISE - 23 ATOM0 + 22 RAISE + 23 ATOM0 24 SETGLOBAL T240-c_call1 - 26 STOP + 26 STOP **) diff --git a/testsuite/tests/tool-ocaml/t240-c_call2.ml b/testsuite/tests/tool-ocaml/t240-c_call2.ml index 23c984369..733b3412e 100644 --- a/testsuite/tests/tool-ocaml/t240-c_call2.ml +++ b/testsuite/tests/tool-ocaml/t240-c_call2.ml @@ -3,20 +3,20 @@ if Pervasives.compare 1 2 <> -1 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 CONSTINT -1 - 11 PUSHCONST2 - 12 PUSHCONST1 + 11 PUSHCONST2 + 12 PUSHCONST1 13 C_CALL2 compare - 15 NEQ + 15 NEQ 16 BRANCHIFNOT 23 18 GETGLOBAL Not_found 20 MAKEBLOCK1 0 - 22 RAISE - 23 ATOM0 + 22 RAISE + 23 ATOM0 24 SETGLOBAL T240-c_call2 - 26 STOP + 26 STOP **) diff --git a/testsuite/tests/tool-ocaml/t240-c_call3.ml b/testsuite/tests/tool-ocaml/t240-c_call3.ml index a34e1dcf9..4e91c3fda 100644 --- a/testsuite/tests/tool-ocaml/t240-c_call3.ml +++ b/testsuite/tests/tool-ocaml/t240-c_call3.ml @@ -3,7 +3,7 @@ if Hashtbl.hash_param 5 6 [1;2;3] <> 697606130 then raise Not_found;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib @@ -12,12 +12,12 @@ if Hashtbl.hash_param 5 6 [1;2;3] <> 697606130 then raise Not_found;; 13 PUSHCONSTINT 6 15 PUSHCONSTINT 5 17 C_CALL3 hash_univ_param - 19 NEQ + 19 NEQ 20 BRANCHIFNOT 27 22 GETGLOBAL Not_found 24 MAKEBLOCK1 0 - 26 RAISE - 27 ATOM0 + 26 RAISE + 27 ATOM0 28 SETGLOBAL T240-c_call3 - 30 STOP + 30 STOP **) diff --git a/testsuite/tests/tool-ocaml/t240-c_call4.ml b/testsuite/tests/tool-ocaml/t240-c_call4.ml index 2ab62d86e..7b66ab145 100644 --- a/testsuite/tests/tool-ocaml/t240-c_call4.ml +++ b/testsuite/tests/tool-ocaml/t240-c_call4.ml @@ -6,27 +6,27 @@ if s.[5] <> 'x' then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 GETGLOBAL "abcdefgh" 11 PUSHCONSTINT 120 13 PUSHCONSTINT 6 - 15 PUSHCONST0 - 16 PUSHACC3 + 15 PUSHCONST0 + 16 PUSHACC3 17 C_CALL4 fill_string 19 CONSTINT 120 21 PUSHCONSTINT 5 - 23 PUSHACC2 - 24 GETSTRINGCHAR - 25 NEQ + 23 PUSHACC2 + 24 GETSTRINGCHAR + 25 NEQ 26 BRANCHIFNOT 33 28 GETGLOBAL Not_found 30 MAKEBLOCK1 0 - 32 RAISE + 32 RAISE 33 POP 1 - 35 ATOM0 + 35 ATOM0 36 SETGLOBAL T240-c_call4 - 38 STOP + 38 STOP **) diff --git a/testsuite/tests/tool-ocaml/t240-c_call5.ml b/testsuite/tests/tool-ocaml/t240-c_call5.ml index e817d5502..4c6c92d1f 100644 --- a/testsuite/tests/tool-ocaml/t240-c_call5.ml +++ b/testsuite/tests/tool-ocaml/t240-c_call5.ml @@ -6,28 +6,28 @@ if s.[0] <> 'd' then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 GETGLOBAL "abcdefgh" - 11 PUSHCONST3 - 12 PUSHCONST0 - 13 PUSHACC2 - 14 PUSHCONST3 - 15 PUSHACC4 + 11 PUSHCONST3 + 12 PUSHCONST0 + 13 PUSHACC2 + 14 PUSHCONST3 + 15 PUSHACC4 16 C_CALL5 blit_string 18 CONSTINT 100 - 20 PUSHCONST0 - 21 PUSHACC2 - 22 GETSTRINGCHAR - 23 NEQ + 20 PUSHCONST0 + 21 PUSHACC2 + 22 GETSTRINGCHAR + 23 NEQ 24 BRANCHIFNOT 31 26 GETGLOBAL Not_found 28 MAKEBLOCK1 0 - 30 RAISE + 30 RAISE 31 POP 1 - 33 ATOM0 + 33 ATOM0 34 SETGLOBAL T240-c_call5 - 36 STOP + 36 STOP **) diff --git a/testsuite/tests/tool-ocaml/t250-closurerec-1.ml b/testsuite/tests/tool-ocaml/t250-closurerec-1.ml index ded5036e6..283b17a31 100644 --- a/testsuite/tests/tool-ocaml/t250-closurerec-1.ml +++ b/testsuite/tests/tool-ocaml/t250-closurerec-1.ml @@ -3,17 +3,17 @@ let rec f _ = 0;; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 14 - 11 CONST0 + 11 CONST0 12 RETURN 1 14 CLOSUREREC 0, 11 - 18 ACC0 + 18 ACC0 19 MAKEBLOCK1 0 21 POP 1 23 SETGLOBAL T250-closurerec-1 - 25 STOP + 25 STOP **) diff --git a/testsuite/tests/tool-ocaml/t250-closurerec-2.ml b/testsuite/tests/tool-ocaml/t250-closurerec-2.ml index 97eac0c79..ffe3d4818 100644 --- a/testsuite/tests/tool-ocaml/t250-closurerec-2.ml +++ b/testsuite/tests/tool-ocaml/t250-closurerec-2.ml @@ -5,7 +5,7 @@ if f 0 <> 23 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib @@ -14,16 +14,16 @@ if f 0 <> 23 then raise Not_found 13 RETURN 1 15 CLOSUREREC 0, 11 19 CONSTINT 23 - 21 PUSHCONST0 - 22 PUSHACC2 - 23 APPLY1 - 24 NEQ + 21 PUSHCONST0 + 22 PUSHACC2 + 23 APPLY1 + 24 NEQ 25 BRANCHIFNOT 32 27 GETGLOBAL Not_found 29 MAKEBLOCK1 0 - 31 RAISE + 31 RAISE 32 POP 1 - 34 ATOM0 + 34 ATOM0 35 SETGLOBAL T250-closurerec-2 - 37 STOP + 37 STOP **) diff --git a/testsuite/tests/tool-ocaml/t251-pushoffsetclosure0.ml b/testsuite/tests/tool-ocaml/t251-pushoffsetclosure0.ml index b1c25555e..1ea295a31 100644 --- a/testsuite/tests/tool-ocaml/t251-pushoffsetclosure0.ml +++ b/testsuite/tests/tool-ocaml/t251-pushoffsetclosure0.ml @@ -8,32 +8,32 @@ if f 5 <> 13 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 24 - 11 CONST0 - 12 PUSHACC1 - 13 EQ + 11 CONST0 + 12 PUSHACC1 + 13 EQ 14 BRANCHIFNOT 20 16 CONSTINT 13 18 RETURN 1 - 20 CONST0 - 21 PUSHOFFSETCLOSURE0 + 20 CONST0 + 21 PUSHOFFSETCLOSURE0 22 APPTERM1 2 24 CLOSUREREC 0, 11 28 CONSTINT 13 30 PUSHCONSTINT 5 - 32 PUSHACC2 - 33 APPLY1 - 34 NEQ + 32 PUSHACC2 + 33 APPLY1 + 34 NEQ 35 BRANCHIFNOT 42 37 GETGLOBAL Not_found 39 MAKEBLOCK1 0 - 41 RAISE + 41 RAISE 42 POP 1 - 44 ATOM0 + 44 ATOM0 45 SETGLOBAL T251-pushoffsetclosure0 - 47 STOP + 47 STOP **) diff --git a/testsuite/tests/tool-ocaml/t251-pushoffsetclosure2.ml b/testsuite/tests/tool-ocaml/t251-pushoffsetclosure2.ml index 0fbdd6eae..8634f29ed 100644 --- a/testsuite/tests/tool-ocaml/t251-pushoffsetclosure2.ml +++ b/testsuite/tests/tool-ocaml/t251-pushoffsetclosure2.ml @@ -7,28 +7,28 @@ if f 5 <> 4 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 19 - 11 CONST0 - 12 PUSHOFFSETCLOSURE2 + 11 CONST0 + 12 PUSHOFFSETCLOSURE2 13 APPTERM1 2 15 CONSTINT 4 17 RETURN 1 19 CLOSUREREC 0, 11, 15 24 CONSTINT 4 26 PUSHCONSTINT 5 - 28 PUSHACC3 - 29 APPLY1 - 30 NEQ + 28 PUSHACC3 + 29 APPLY1 + 30 NEQ 31 BRANCHIFNOT 38 33 GETGLOBAL Not_found 35 MAKEBLOCK1 0 - 37 RAISE + 37 RAISE 38 POP 2 - 40 ATOM0 + 40 ATOM0 41 SETGLOBAL T251-pushoffsetclosure2 - 43 STOP + 43 STOP **) diff --git a/testsuite/tests/tool-ocaml/t251-pushoffsetclosurem2.ml b/testsuite/tests/tool-ocaml/t251-pushoffsetclosurem2.ml index 41ec196c3..65267e5b1 100644 --- a/testsuite/tests/tool-ocaml/t251-pushoffsetclosurem2.ml +++ b/testsuite/tests/tool-ocaml/t251-pushoffsetclosurem2.ml @@ -7,28 +7,28 @@ if g 5 <> 4 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 19 11 CONSTINT 4 13 RETURN 1 - 15 CONST2 - 16 PUSHOFFSETCLOSUREM2 + 15 CONST2 + 16 PUSHOFFSETCLOSUREM2 17 APPTERM1 2 19 CLOSUREREC 0, 11, 15 24 CONSTINT 4 26 PUSHCONSTINT 5 - 28 PUSHACC2 - 29 APPLY1 - 30 NEQ + 28 PUSHACC2 + 29 APPLY1 + 30 NEQ 31 BRANCHIFNOT 38 33 GETGLOBAL Not_found 35 MAKEBLOCK1 0 - 37 RAISE + 37 RAISE 38 POP 2 - 40 ATOM0 + 40 ATOM0 41 SETGLOBAL T251-pushoffsetclosurem2 - 43 STOP + 43 STOP **) diff --git a/testsuite/tests/tool-ocaml/t252-pushoffsetclosure.ml b/testsuite/tests/tool-ocaml/t252-pushoffsetclosure.ml index 188713345..dccce95a4 100644 --- a/testsuite/tests/tool-ocaml/t252-pushoffsetclosure.ml +++ b/testsuite/tests/tool-ocaml/t252-pushoffsetclosure.ml @@ -8,31 +8,31 @@ if h 1 <> 6 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 25 - 11 ACC0 + 11 ACC0 12 RETURN 1 14 CONSTINT 4 - 16 PUSHOFFSETCLOSUREM2 + 16 PUSHOFFSETCLOSUREM2 17 APPTERM1 2 19 CONSTINT 6 21 PUSHOFFSETCLOSURE -4 23 APPTERM1 2 25 CLOSUREREC 0, 11, 14, 19 31 CONSTINT 6 - 33 PUSHCONST1 - 34 PUSHACC2 - 35 APPLY1 - 36 NEQ + 33 PUSHCONST1 + 34 PUSHACC2 + 35 APPLY1 + 36 NEQ 37 BRANCHIFNOT 44 39 GETGLOBAL Not_found 41 MAKEBLOCK1 0 - 43 RAISE + 43 RAISE 44 POP 3 - 46 ATOM0 + 46 ATOM0 47 SETGLOBAL T252-pushoffsetclosure - 49 STOP + 49 STOP **) diff --git a/testsuite/tests/tool-ocaml/t253-offsetclosure0.ml b/testsuite/tests/tool-ocaml/t253-offsetclosure0.ml index f6d12c6db..35d66ba37 100644 --- a/testsuite/tests/tool-ocaml/t253-offsetclosure0.ml +++ b/testsuite/tests/tool-ocaml/t253-offsetclosure0.ml @@ -7,28 +7,28 @@ if f 3 <> 10 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 19 - 11 OFFSETCLOSURE0 - 12 PUSHOFFSETCLOSURE2 + 11 OFFSETCLOSURE0 + 12 PUSHOFFSETCLOSURE2 13 APPTERM1 2 15 CONSTINT 10 17 RETURN 1 19 CLOSUREREC 0, 11, 15 24 CONSTINT 10 - 26 PUSHCONST3 - 27 PUSHACC3 - 28 APPLY1 - 29 NEQ + 26 PUSHCONST3 + 27 PUSHACC3 + 28 APPLY1 + 29 NEQ 30 BRANCHIFNOT 37 32 GETGLOBAL Not_found 34 MAKEBLOCK1 0 - 36 RAISE + 36 RAISE 37 POP 2 - 39 ATOM0 + 39 ATOM0 40 SETGLOBAL T253-offsetclosure0 - 42 STOP + 42 STOP **) diff --git a/testsuite/tests/tool-ocaml/t253-offsetclosure2.ml b/testsuite/tests/tool-ocaml/t253-offsetclosure2.ml index be940611f..55adf632c 100644 --- a/testsuite/tests/tool-ocaml/t253-offsetclosure2.ml +++ b/testsuite/tests/tool-ocaml/t253-offsetclosure2.ml @@ -7,28 +7,28 @@ if f 3 4 <> 10 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 18 - 11 OFFSETCLOSURE2 + 11 OFFSETCLOSURE2 12 RETURN 1 14 CONSTINT 10 16 RETURN 1 18 CLOSUREREC 0, 11, 14 23 CONSTINT 10 25 PUSHCONSTINT 4 - 27 PUSHCONST3 - 28 PUSHACC4 - 29 APPLY2 - 30 NEQ + 27 PUSHCONST3 + 28 PUSHACC4 + 29 APPLY2 + 30 NEQ 31 BRANCHIFNOT 38 33 GETGLOBAL Not_found 35 MAKEBLOCK1 0 - 37 RAISE + 37 RAISE 38 POP 2 - 40 ATOM0 + 40 ATOM0 41 SETGLOBAL T253-offsetclosure2 - 43 STOP + 43 STOP **) diff --git a/testsuite/tests/tool-ocaml/t253-offsetclosurem2.ml b/testsuite/tests/tool-ocaml/t253-offsetclosurem2.ml index cec37931e..e61e0c220 100644 --- a/testsuite/tests/tool-ocaml/t253-offsetclosurem2.ml +++ b/testsuite/tests/tool-ocaml/t253-offsetclosurem2.ml @@ -7,28 +7,28 @@ if g 3 4 <> 11 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 18 11 CONSTINT 11 13 RETURN 1 - 15 OFFSETCLOSUREM2 + 15 OFFSETCLOSUREM2 16 RETURN 1 18 CLOSUREREC 0, 11, 15 23 CONSTINT 11 25 PUSHCONSTINT 4 - 27 PUSHCONST3 - 28 PUSHACC3 - 29 APPLY2 - 30 NEQ + 27 PUSHCONST3 + 28 PUSHACC3 + 29 APPLY2 + 30 NEQ 31 BRANCHIFNOT 38 33 GETGLOBAL Not_found 35 MAKEBLOCK1 0 - 37 RAISE + 37 RAISE 38 POP 2 - 40 ATOM0 + 40 ATOM0 41 SETGLOBAL T253-offsetclosurem2 - 43 STOP + 43 STOP **) diff --git a/testsuite/tests/tool-ocaml/t254-offsetclosure.ml b/testsuite/tests/tool-ocaml/t254-offsetclosure.ml index 6da8c28c9..95eb1b0c6 100644 --- a/testsuite/tests/tool-ocaml/t254-offsetclosure.ml +++ b/testsuite/tests/tool-ocaml/t254-offsetclosure.ml @@ -8,30 +8,30 @@ if h 3 4 <> 11 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 22 11 CONSTINT 11 13 RETURN 1 - 15 CONST0 + 15 CONST0 16 RETURN 1 18 OFFSETCLOSURE -4 20 RETURN 1 22 CLOSUREREC 0, 11, 15, 18 28 CONSTINT 11 30 PUSHCONSTINT 4 - 32 PUSHCONST3 - 33 PUSHACC3 - 34 APPLY2 - 35 NEQ + 32 PUSHCONST3 + 33 PUSHACC3 + 34 APPLY2 + 35 NEQ 36 BRANCHIFNOT 43 38 GETGLOBAL Not_found 40 MAKEBLOCK1 0 - 42 RAISE + 42 RAISE 43 POP 3 - 45 ATOM0 + 45 ATOM0 46 SETGLOBAL T254-offsetclosure - 48 STOP + 48 STOP **) diff --git a/testsuite/tests/tool-ocaml/t260-offsetref.ml b/testsuite/tests/tool-ocaml/t260-offsetref.ml index 968892ef1..20dbf2c01 100644 --- a/testsuite/tests/tool-ocaml/t260-offsetref.ml +++ b/testsuite/tests/tool-ocaml/t260-offsetref.ml @@ -7,25 +7,25 @@ x (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 CONSTINT 32 11 MAKEBLOCK1 0 - 13 PUSHACC0 + 13 PUSHACC0 14 OFFSETREF 1 16 CONSTINT 33 - 18 PUSHACC1 - 19 GETFIELD0 - 20 NEQ + 18 PUSHACC1 + 19 GETFIELD0 + 20 NEQ 21 BRANCHIFNOT 28 23 GETGLOBAL Not_found 25 MAKEBLOCK1 0 - 27 RAISE - 28 ACC0 + 27 RAISE + 28 ACC0 29 POP 1 - 31 ATOM0 + 31 ATOM0 32 SETGLOBAL T260-offsetref - 34 STOP + 34 STOP **) diff --git a/testsuite/tests/tool-ocaml/t270-push_retaddr.ml b/testsuite/tests/tool-ocaml/t270-push_retaddr.ml index 0c7fb369b..2c13f2256 100644 --- a/testsuite/tests/tool-ocaml/t270-push_retaddr.ml +++ b/testsuite/tests/tool-ocaml/t270-push_retaddr.ml @@ -5,32 +5,32 @@ if f 0 1 2 3 <> 123 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 18 - 11 RESTART + 11 RESTART 12 GRAB 3 14 CONSTINT 123 16 RETURN 4 18 CLOSURE 0, 12 21 PUSHCONSTINT 123 - 23 PUSH + 23 PUSH 24 PUSH_RETADDR 34 - 26 CONST3 - 27 PUSHCONST2 - 28 PUSHCONST1 - 29 PUSHCONST0 + 26 CONST3 + 27 PUSHCONST2 + 28 PUSHCONST1 + 29 PUSHCONST0 30 PUSHACC 8 32 APPLY 4 - 34 NEQ + 34 NEQ 35 BRANCHIFNOT 42 37 GETGLOBAL Not_found 39 MAKEBLOCK1 0 - 41 RAISE + 41 RAISE 42 POP 1 - 44 ATOM0 + 44 ATOM0 45 SETGLOBAL T270-push_retaddr - 47 STOP + 47 STOP **) diff --git a/testsuite/tests/tool-ocaml/t300-getmethod.ml b/testsuite/tests/tool-ocaml/t300-getmethod.ml index e7894735c..8108e8018 100644 --- a/testsuite/tests/tool-ocaml/t300-getmethod.ml +++ b/testsuite/tests/tool-ocaml/t300-getmethod.ml @@ -10,599 +10,599 @@ if o#m <> 23 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 746 - 11 RESTART + 11 RESTART 12 GRAB 1 - 14 ACC0 + 14 ACC0 15 BRANCHIFNOT 28 - 17 ACC1 - 18 PUSHACC1 - 19 GETFIELD1 - 20 PUSHOFFSETCLOSURE0 - 21 APPLY2 - 22 PUSHACC1 - 23 GETFIELD0 + 17 ACC1 + 18 PUSHACC1 + 19 GETFIELD1 + 20 PUSHOFFSETCLOSURE0 + 21 APPLY2 + 22 PUSHACC1 + 23 GETFIELD0 24 MAKEBLOCK2 0 26 RETURN 2 - 28 ACC1 + 28 ACC1 29 RETURN 2 - 31 RESTART + 31 RESTART 32 GRAB 3 - 34 CONST0 - 35 PUSHACC4 - 36 LEINT + 34 CONST0 + 35 PUSHACC4 + 36 LEINT 37 BRANCHIFNOT 42 - 39 CONST0 + 39 CONST0 40 RETURN 4 - 42 ACC3 - 43 PUSHACC3 - 44 PUSHACC3 - 45 PUSHACC3 + 42 ACC3 + 43 PUSHACC3 + 44 PUSHACC3 + 45 PUSHACC3 46 C_CALL4 caml_input - 48 PUSHCONST0 - 49 PUSHACC1 - 50 EQ + 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 + 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 + 70 ACC0 71 C_CALL1 caml_input_scan_line - 73 PUSHCONST0 - 74 PUSHACC1 - 75 EQ + 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 + 82 RAISE + 83 CONST0 + 84 PUSHACC1 + 85 GTINT 86 BRANCHIFNOT 107 - 88 ACC0 + 88 ACC0 89 OFFSETINT -1 91 C_CALL1 create_string - 93 PUSHACC1 + 93 PUSHACC1 94 OFFSETINT -1 - 96 PUSHCONST0 - 97 PUSHACC2 - 98 PUSHACC5 + 96 PUSHCONST0 + 97 PUSHACC2 + 98 PUSHACC5 99 C_CALL4 caml_input - 101 ACC2 + 101 ACC2 102 C_CALL1 caml_input_char - 104 ACC0 + 104 ACC0 105 RETURN 3 - 107 ACC0 - 108 NEGINT + 107 ACC0 + 108 NEGINT 109 C_CALL1 create_string - 111 PUSHACC1 - 112 NEGINT - 113 PUSHCONST0 - 114 PUSHACC2 - 115 PUSHACC5 + 111 PUSHACC1 + 112 NEGINT + 113 PUSHCONST0 + 114 PUSHACC2 + 115 PUSHACC5 116 C_CALL4 caml_input - 118 CONST0 + 118 CONST0 119 PUSHTRAP 130 - 121 ACC6 - 122 PUSHOFFSETCLOSURE0 - 123 APPLY1 - 124 PUSHACC5 - 125 PUSHENVACC1 - 126 APPLY2 - 127 POPTRAP + 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 + 132 PUSHACC1 + 133 GETFIELD0 + 134 EQ 135 BRANCHIFNOT 140 - 137 ACC1 + 137 ACC1 138 RETURN 4 - 140 ACC0 - 141 RAISE - 142 ACC0 + 140 ACC0 + 141 RAISE + 142 ACC0 143 C_CALL1 caml_flush 145 RETURN 1 - 147 RESTART + 147 RESTART 148 GRAB 1 - 150 ACC1 - 151 PUSHACC1 + 150 ACC1 + 151 PUSHACC1 152 C_CALL2 caml_output_char 154 RETURN 2 - 156 RESTART + 156 RESTART 157 GRAB 1 - 159 ACC1 - 160 PUSHACC1 + 159 ACC1 + 160 PUSHACC1 161 C_CALL2 caml_output_char 163 RETURN 2 - 165 RESTART + 165 RESTART 166 GRAB 1 - 168 ACC1 - 169 PUSHACC1 + 168 ACC1 + 169 PUSHACC1 170 C_CALL2 caml_output_int 172 RETURN 2 - 174 RESTART + 174 RESTART 175 GRAB 1 - 177 ACC1 - 178 PUSHACC1 + 177 ACC1 + 178 PUSHACC1 179 C_CALL2 caml_seek_out 181 RETURN 2 - 183 ACC0 + 183 ACC0 184 C_CALL1 caml_pos_out 186 RETURN 1 - 188 ACC0 + 188 ACC0 189 C_CALL1 caml_channel_size 191 RETURN 1 - 193 RESTART + 193 RESTART 194 GRAB 1 - 196 ACC1 - 197 PUSHACC1 + 196 ACC1 + 197 PUSHACC1 198 C_CALL2 caml_set_binary_mode 200 RETURN 2 - 202 ACC0 + 202 ACC0 203 C_CALL1 caml_input_char 205 RETURN 1 - 207 ACC0 + 207 ACC0 208 C_CALL1 caml_input_char 210 RETURN 1 - 212 ACC0 + 212 ACC0 213 C_CALL1 caml_input_int 215 RETURN 1 - 217 ACC0 + 217 ACC0 218 C_CALL1 input_value 220 RETURN 1 - 222 RESTART + 222 RESTART 223 GRAB 1 - 225 ACC1 - 226 PUSHACC1 + 225 ACC1 + 226 PUSHACC1 227 C_CALL2 caml_seek_in 229 RETURN 2 - 231 ACC0 + 231 ACC0 232 C_CALL1 caml_pos_in 234 RETURN 1 - 236 ACC0 + 236 ACC0 237 C_CALL1 caml_channel_size 239 RETURN 1 - 241 ACC0 + 241 ACC0 242 C_CALL1 caml_close_channel 244 RETURN 1 - 246 RESTART + 246 RESTART 247 GRAB 1 - 249 ACC1 - 250 PUSHACC1 + 249 ACC1 + 250 PUSHACC1 251 C_CALL2 caml_set_binary_mode 253 RETURN 2 - 255 CONST0 - 256 PUSHENVACC1 - 257 APPLY1 - 258 ACC0 + 255 CONST0 + 256 PUSHENVACC1 + 257 APPLY1 + 258 ACC0 259 C_CALL1 sys_exit 261 RETURN 1 - 263 CONST0 - 264 PUSHENVACC1 - 265 GETFIELD0 + 263 CONST0 + 264 PUSHENVACC1 + 265 GETFIELD0 266 APPTERM1 2 - 268 CONST0 - 269 PUSHENVACC1 - 270 APPLY1 - 271 CONST0 - 272 PUSHENVACC2 + 268 CONST0 + 269 PUSHENVACC1 + 270 APPLY1 + 271 CONST0 + 272 PUSHENVACC2 273 APPTERM1 2 - 275 ENVACC1 - 276 GETFIELD0 - 277 PUSHACC0 - 278 PUSHACC2 + 275 ENVACC1 + 276 GETFIELD0 + 277 PUSHACC0 + 278 PUSHACC2 279 CLOSURE 2, 268 - 282 PUSHENVACC1 - 283 SETFIELD0 + 282 PUSHENVACC1 + 283 SETFIELD0 284 RETURN 2 - 286 ENVACC1 + 286 ENVACC1 287 C_CALL1 caml_flush - 289 ENVACC2 + 289 ENVACC2 290 C_CALL1 caml_flush 292 RETURN 1 - 294 CONST0 - 295 PUSHENVACC1 - 296 APPLY1 + 294 CONST0 + 295 PUSHENVACC1 + 296 APPLY1 297 C_CALL1 float_of_string 299 RETURN 1 - 301 CONST0 - 302 PUSHENVACC1 - 303 APPLY1 + 301 CONST0 + 302 PUSHENVACC1 + 303 APPLY1 304 C_CALL1 int_of_string 306 RETURN 1 - 308 ENVACC2 + 308 ENVACC2 309 C_CALL1 caml_flush - 311 ENVACC1 - 312 PUSHENVACC3 + 311 ENVACC1 + 312 PUSHENVACC3 313 APPTERM1 2 315 CONSTINT 13 - 317 PUSHENVACC1 + 317 PUSHENVACC1 318 C_CALL2 caml_output_char - 320 ENVACC1 + 320 ENVACC1 321 C_CALL1 caml_flush 323 RETURN 1 - 325 ACC0 - 326 PUSHENVACC1 - 327 PUSHENVACC2 - 328 APPLY2 + 325 ACC0 + 326 PUSHENVACC1 + 327 PUSHENVACC2 + 328 APPLY2 329 CONSTINT 13 - 331 PUSHENVACC1 + 331 PUSHENVACC1 332 C_CALL2 caml_output_char - 334 ENVACC1 + 334 ENVACC1 335 C_CALL1 caml_flush 337 RETURN 1 - 339 ACC0 - 340 PUSHENVACC1 - 341 APPLY1 - 342 PUSHENVACC2 - 343 PUSHENVACC3 + 339 ACC0 + 340 PUSHENVACC1 + 341 APPLY1 + 342 PUSHENVACC2 + 343 PUSHENVACC3 344 APPTERM2 3 - 346 ACC0 - 347 PUSHENVACC1 - 348 APPLY1 - 349 PUSHENVACC2 - 350 PUSHENVACC3 + 346 ACC0 + 347 PUSHENVACC1 + 348 APPLY1 + 349 PUSHENVACC2 + 350 PUSHENVACC3 351 APPTERM2 3 - 353 ACC0 - 354 PUSHENVACC1 - 355 PUSHENVACC2 + 353 ACC0 + 354 PUSHENVACC1 + 355 PUSHENVACC2 356 APPTERM2 3 - 358 ACC0 - 359 PUSHENVACC1 + 358 ACC0 + 359 PUSHENVACC1 360 C_CALL2 caml_output_char 362 RETURN 1 364 CONSTINT 13 - 366 PUSHENVACC1 + 366 PUSHENVACC1 367 C_CALL2 caml_output_char - 369 ENVACC1 + 369 ENVACC1 370 C_CALL1 caml_flush 372 RETURN 1 - 374 ACC0 - 375 PUSHENVACC1 - 376 PUSHENVACC2 - 377 APPLY2 + 374 ACC0 + 375 PUSHENVACC1 + 376 PUSHENVACC2 + 377 APPLY2 378 CONSTINT 13 - 380 PUSHENVACC1 + 380 PUSHENVACC1 381 C_CALL2 caml_output_char 383 RETURN 1 - 385 ACC0 - 386 PUSHENVACC1 - 387 APPLY1 - 388 PUSHENVACC2 - 389 PUSHENVACC3 + 385 ACC0 + 386 PUSHENVACC1 + 387 APPLY1 + 388 PUSHENVACC2 + 389 PUSHENVACC3 390 APPTERM2 3 - 392 ACC0 - 393 PUSHENVACC1 - 394 APPLY1 - 395 PUSHENVACC2 - 396 PUSHENVACC3 + 392 ACC0 + 393 PUSHENVACC1 + 394 APPLY1 + 395 PUSHENVACC2 + 396 PUSHENVACC3 397 APPTERM2 3 - 399 ACC0 - 400 PUSHENVACC1 - 401 PUSHENVACC2 + 399 ACC0 + 400 PUSHENVACC1 + 401 PUSHENVACC2 402 APPTERM2 3 - 404 ACC0 - 405 PUSHENVACC1 + 404 ACC0 + 405 PUSHENVACC1 406 C_CALL2 caml_output_char 408 RETURN 1 - 410 RESTART + 410 RESTART 411 GRAB 3 - 413 CONST0 - 414 PUSHACC3 - 415 LTINT + 413 CONST0 + 414 PUSHACC3 + 415 LTINT 416 BRANCHIF 427 - 418 ACC1 + 418 ACC1 419 C_CALL1 ml_string_length - 421 PUSHACC4 - 422 PUSHACC4 - 423 ADDINT - 424 GTINT + 421 PUSHACC4 + 422 PUSHACC4 + 423 ADDINT + 424 GTINT 425 BRANCHIFNOT 432 427 GETGLOBAL "really_input" - 429 PUSHENVACC1 + 429 PUSHENVACC1 430 APPTERM1 5 - 432 ACC3 - 433 PUSHACC3 - 434 PUSHACC3 - 435 PUSHACC3 - 436 PUSHENVACC2 + 432 ACC3 + 433 PUSHACC3 + 434 PUSHACC3 + 435 PUSHACC3 + 436 PUSHENVACC2 437 APPTERM 4, 8 - 440 RESTART + 440 RESTART 441 GRAB 3 - 443 CONST0 - 444 PUSHACC3 - 445 LTINT + 443 CONST0 + 444 PUSHACC3 + 445 LTINT 446 BRANCHIF 457 - 448 ACC1 + 448 ACC1 449 C_CALL1 ml_string_length - 451 PUSHACC4 - 452 PUSHACC4 - 453 ADDINT - 454 GTINT + 451 PUSHACC4 + 452 PUSHACC4 + 453 ADDINT + 454 GTINT 455 BRANCHIFNOT 462 457 GETGLOBAL "input" - 459 PUSHENVACC1 + 459 PUSHENVACC1 460 APPTERM1 5 - 462 ACC3 - 463 PUSHACC3 - 464 PUSHACC3 - 465 PUSHACC3 + 462 ACC3 + 463 PUSHACC3 + 464 PUSHACC3 + 465 PUSHACC3 466 C_CALL4 caml_input 468 RETURN 4 - 470 ACC0 - 471 PUSHCONST0 + 470 ACC0 + 471 PUSHCONST0 472 PUSHGETGLOBAL <0>(0, <0>(6, 0)) - 474 PUSHENVACC1 + 474 PUSHENVACC1 475 APPTERM3 4 - 477 ACC0 - 478 PUSHCONST0 + 477 ACC0 + 478 PUSHCONST0 479 PUSHGETGLOBAL <0>(0, <0>(7, 0)) - 481 PUSHENVACC1 + 481 PUSHENVACC1 482 APPTERM3 4 - 484 RESTART + 484 RESTART 485 GRAB 2 - 487 ACC1 - 488 PUSHACC1 - 489 PUSHACC4 + 487 ACC1 + 488 PUSHACC1 + 489 PUSHACC4 490 C_CALL3 sys_open 492 C_CALL1 caml_open_descriptor 494 RETURN 3 - 496 ACC0 + 496 ACC0 497 C_CALL1 caml_flush - 499 ACC0 + 499 ACC0 500 C_CALL1 caml_close_channel 502 RETURN 1 - 504 RESTART + 504 RESTART 505 GRAB 1 - 507 CONST0 - 508 PUSHACC2 - 509 PUSHACC2 + 507 CONST0 + 508 PUSHACC2 + 509 PUSHACC2 510 C_CALL3 output_value 512 RETURN 2 - 514 RESTART + 514 RESTART 515 GRAB 3 - 517 CONST0 - 518 PUSHACC3 - 519 LTINT + 517 CONST0 + 518 PUSHACC3 + 519 LTINT 520 BRANCHIF 531 - 522 ACC1 + 522 ACC1 523 C_CALL1 ml_string_length - 525 PUSHACC4 - 526 PUSHACC4 - 527 ADDINT - 528 GTINT + 525 PUSHACC4 + 526 PUSHACC4 + 527 ADDINT + 528 GTINT 529 BRANCHIFNOT 536 531 GETGLOBAL "output" - 533 PUSHENVACC1 + 533 PUSHENVACC1 534 APPTERM1 5 - 536 ACC3 - 537 PUSHACC3 - 538 PUSHACC3 - 539 PUSHACC3 + 536 ACC3 + 537 PUSHACC3 + 538 PUSHACC3 + 539 PUSHACC3 540 C_CALL4 caml_output 542 RETURN 4 - 544 RESTART + 544 RESTART 545 GRAB 1 - 547 ACC1 + 547 ACC1 548 C_CALL1 ml_string_length - 550 PUSHCONST0 - 551 PUSHACC3 - 552 PUSHACC3 + 550 PUSHCONST0 + 551 PUSHACC3 + 552 PUSHACC3 553 C_CALL4 caml_output 555 RETURN 2 - 557 ACC0 + 557 ACC0 558 PUSHCONSTINT 438 560 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(6, 0)))) - 562 PUSHENVACC1 + 562 PUSHENVACC1 563 APPTERM3 4 - 565 ACC0 + 565 ACC0 566 PUSHCONSTINT 438 568 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(7, 0)))) - 570 PUSHENVACC1 + 570 PUSHENVACC1 571 APPTERM3 4 - 573 RESTART + 573 RESTART 574 GRAB 2 - 576 ACC1 - 577 PUSHACC1 - 578 PUSHACC4 + 576 ACC1 + 577 PUSHACC1 + 578 PUSHACC4 579 C_CALL3 sys_open 581 C_CALL1 caml_open_descriptor 583 RETURN 3 - 585 ACC0 + 585 ACC0 586 PUSHGETGLOBAL "%.12g" 588 C_CALL2 format_float 590 RETURN 1 - 592 ACC0 + 592 ACC0 593 PUSHGETGLOBAL "%d" 595 C_CALL2 format_int 597 RETURN 1 599 GETGLOBAL "false" - 601 PUSHACC1 + 601 PUSHACC1 602 C_CALL2 string_equal 604 BRANCHIFNOT 609 - 606 CONST0 + 606 CONST0 607 RETURN 1 609 GETGLOBAL "true" - 611 PUSHACC1 + 611 PUSHACC1 612 C_CALL2 string_equal 614 BRANCHIFNOT 619 - 616 CONST1 + 616 CONST1 617 RETURN 1 619 GETGLOBAL "bool_of_string" - 621 PUSHENVACC1 + 621 PUSHENVACC1 622 APPTERM1 2 - 624 ACC0 + 624 ACC0 625 BRANCHIFNOT 631 627 GETGLOBAL "true" 629 RETURN 1 631 GETGLOBAL "false" 633 RETURN 1 - 635 CONST0 - 636 PUSHACC1 - 637 LTINT + 635 CONST0 + 636 PUSHACC1 + 637 LTINT 638 BRANCHIF 646 640 CONSTINT 255 - 642 PUSHACC1 - 643 GTINT + 642 PUSHACC1 + 643 GTINT 644 BRANCHIFNOT 651 646 GETGLOBAL "char_of_int" - 648 PUSHENVACC1 + 648 PUSHENVACC1 649 APPTERM1 2 - 651 ACC0 + 651 ACC0 652 RETURN 1 - 654 RESTART + 654 RESTART 655 GRAB 1 - 657 ACC0 + 657 ACC0 658 C_CALL1 ml_string_length - 660 PUSHACC2 + 660 PUSHACC2 661 C_CALL1 ml_string_length - 663 PUSHACC0 - 664 PUSHACC2 - 665 ADDINT + 663 PUSHACC0 + 664 PUSHACC2 + 665 ADDINT 666 C_CALL1 create_string - 668 PUSHACC2 - 669 PUSHCONST0 - 670 PUSHACC2 - 671 PUSHCONST0 - 672 PUSHACC7 + 668 PUSHACC2 + 669 PUSHCONST0 + 670 PUSHACC2 + 671 PUSHCONST0 + 672 PUSHACC7 673 C_CALL5 blit_string - 675 ACC1 - 676 PUSHACC3 - 677 PUSHACC2 - 678 PUSHCONST0 + 675 ACC1 + 676 PUSHACC3 + 677 PUSHACC2 + 678 PUSHCONST0 679 PUSHACC 8 681 C_CALL5 blit_string - 683 ACC0 + 683 ACC0 684 RETURN 5 686 CONSTINT -1 - 688 PUSHACC1 - 689 XORINT + 688 PUSHACC1 + 689 XORINT 690 RETURN 1 - 692 CONST0 - 693 PUSHACC1 - 694 GEINT + 692 CONST0 + 693 PUSHACC1 + 694 GEINT 695 BRANCHIFNOT 700 - 697 ACC0 + 697 ACC0 698 RETURN 1 - 700 ACC0 - 701 NEGINT + 700 ACC0 + 701 NEGINT 702 RETURN 1 - 704 RESTART + 704 RESTART 705 GRAB 1 - 707 ACC1 - 708 PUSHACC1 + 707 ACC1 + 708 PUSHACC1 709 C_CALL2 greaterequal 711 BRANCHIFNOT 716 - 713 ACC0 + 713 ACC0 714 RETURN 2 - 716 ACC1 + 716 ACC1 717 RETURN 2 - 719 RESTART + 719 RESTART 720 GRAB 1 - 722 ACC1 - 723 PUSHACC1 + 722 ACC1 + 723 PUSHACC1 724 C_CALL2 lessequal 726 BRANCHIFNOT 731 - 728 ACC0 + 728 ACC0 729 RETURN 2 - 731 ACC1 + 731 ACC1 732 RETURN 2 - 734 ACC0 + 734 ACC0 735 PUSHGETGLOBAL Invalid_argument 737 MAKEBLOCK2 0 - 739 RAISE - 740 ACC0 + 739 RAISE + 740 ACC0 741 PUSHGETGLOBAL Failure 743 MAKEBLOCK2 0 - 745 RAISE + 745 RAISE 746 CLOSURE 0, 740 - 749 PUSH + 749 PUSH 750 CLOSURE 0, 734 753 PUSHGETGLOBAL "Pervasives.Exit" 755 MAKEBLOCK1 0 757 PUSHGETGLOBAL "Pervasives.Assert_failure" 759 MAKEBLOCK1 0 - 761 PUSH + 761 PUSH 762 CLOSURE 0, 720 - 765 PUSH + 765 PUSH 766 CLOSURE 0, 705 - 769 PUSH + 769 PUSH 770 CLOSURE 0, 692 - 773 PUSH + 773 PUSH 774 CLOSURE 0, 686 - 777 PUSHCONST0 + 777 PUSHCONST0 778 PUSHCONSTINT 31 - 780 PUSHCONST1 - 781 LSLINT - 782 EQ + 780 PUSHCONST1 + 781 LSLINT + 782 EQ 783 BRANCHIFNOT 789 785 CONSTINT 30 787 BRANCH 791 789 CONSTINT 62 - 791 PUSHCONST1 - 792 LSLINT - 793 PUSHACC0 + 791 PUSHCONST1 + 792 LSLINT + 793 PUSHACC0 794 OFFSETINT -1 - 796 PUSH + 796 PUSH 797 CLOSURE 0, 655 800 PUSHACC 9 802 CLOSURE 1, 635 - 805 PUSH + 805 PUSH 806 CLOSURE 0, 624 809 PUSHACC 11 811 CLOSURE 1, 599 - 814 PUSH + 814 PUSH 815 CLOSURE 0, 592 - 818 PUSH + 818 PUSH 819 CLOSURE 0, 585 - 822 PUSH + 822 PUSH 823 CLOSUREREC 0, 12 - 827 CONST0 + 827 CONST0 828 C_CALL1 caml_open_descriptor - 830 PUSHCONST1 + 830 PUSHCONST1 831 C_CALL1 caml_open_descriptor - 833 PUSHCONST2 + 833 PUSHCONST2 834 C_CALL1 caml_open_descriptor - 836 PUSH + 836 PUSH 837 CLOSURE 0, 574 - 840 PUSHACC0 + 840 PUSHACC0 841 CLOSURE 1, 565 - 844 PUSHACC1 + 844 PUSHACC1 845 CLOSURE 1, 557 - 848 PUSH + 848 PUSH 849 CLOSURE 0, 545 852 PUSHACC 22 854 CLOSURE 1, 515 - 857 PUSH + 857 PUSH 858 CLOSURE 0, 505 - 861 PUSH + 861 PUSH 862 CLOSURE 0, 496 - 865 PUSH + 865 PUSH 866 CLOSURE 0, 485 - 869 PUSHACC0 + 869 PUSHACC0 870 CLOSURE 1, 477 - 873 PUSHACC1 + 873 PUSHACC1 874 CLOSURE 1, 470 877 PUSHACC 28 879 CLOSURE 1, 441 - 882 PUSH + 882 PUSH 883 CLOSUREREC 0, 32 - 887 ACC0 + 887 ACC0 888 PUSHACC 31 890 CLOSURE 2, 411 893 PUSHACC 22 @@ -647,67 +647,67 @@ if o#m <> 23 then raise Not_found 985 PUSHACC 28 987 PUSHACC 30 989 CLOSURE 3, 308 - 992 PUSHACC0 + 992 PUSHACC0 993 CLOSURE 1, 301 - 996 PUSHACC1 + 996 PUSHACC1 997 CLOSURE 1, 294 1000 PUSHACC 29 1002 PUSHACC 31 1004 CLOSURE 2, 286 1007 MAKEBLOCK1 0 - 1009 PUSHACC0 + 1009 PUSHACC0 1010 CLOSURE 1, 275 - 1013 PUSHACC1 + 1013 PUSHACC1 1014 CLOSURE 1, 263 - 1017 PUSHACC0 + 1017 PUSHACC0 1018 CLOSURE 1, 255 - 1021 PUSHACC1 + 1021 PUSHACC1 1022 PUSHACC 22 - 1024 PUSHACC4 - 1025 PUSHACC3 - 1026 PUSH + 1024 PUSHACC4 + 1025 PUSHACC3 + 1026 PUSH 1027 CLOSURE 0, 247 - 1030 PUSH + 1030 PUSH 1031 CLOSURE 0, 241 - 1034 PUSH + 1034 PUSH 1035 CLOSURE 0, 236 - 1038 PUSH + 1038 PUSH 1039 CLOSURE 0, 231 - 1042 PUSH + 1042 PUSH 1043 CLOSURE 0, 223 - 1046 PUSH + 1046 PUSH 1047 CLOSURE 0, 217 - 1050 PUSH + 1050 PUSH 1051 CLOSURE 0, 212 - 1054 PUSH + 1054 PUSH 1055 CLOSURE 0, 207 1058 PUSHACC 32 1060 PUSHACC 35 1062 PUSHACC 33 - 1064 PUSH + 1064 PUSH 1065 CLOSURE 0, 202 1068 PUSHACC 41 1070 PUSHACC 40 1072 PUSHACC 42 - 1074 PUSH + 1074 PUSH 1075 CLOSURE 0, 194 1078 PUSHACC 46 - 1080 PUSH + 1080 PUSH 1081 CLOSURE 0, 188 - 1084 PUSH + 1084 PUSH 1085 CLOSURE 0, 183 - 1088 PUSH + 1088 PUSH 1089 CLOSURE 0, 175 1092 PUSHACC 51 - 1094 PUSH + 1094 PUSH 1095 CLOSURE 0, 166 - 1098 PUSH + 1098 PUSH 1099 CLOSURE 0, 157 1102 PUSHACC 55 1104 PUSHACC 57 - 1106 PUSH + 1106 PUSH 1107 CLOSURE 0, 148 - 1110 PUSH + 1110 PUSH 1111 CLOSURE 0, 142 1114 PUSHACC 63 1116 PUSHACC 62 @@ -751,38 +751,38 @@ if o#m <> 23 then raise Not_found 1193 POP 53 1195 SETGLOBAL Pervasives 1197 BRANCH 2177 - 1199 RESTART + 1199 RESTART 1200 GRAB 1 - 1202 ACC1 + 1202 ACC1 1203 BRANCHIFNOT 1213 - 1205 ACC1 - 1206 GETFIELD1 - 1207 PUSHACC1 + 1205 ACC1 + 1206 GETFIELD1 + 1207 PUSHACC1 1208 OFFSETINT 1 - 1210 PUSHOFFSETCLOSURE0 + 1210 PUSHOFFSETCLOSURE0 1211 APPTERM2 4 - 1213 ACC0 + 1213 ACC0 1214 RETURN 2 - 1216 RESTART + 1216 RESTART 1217 GRAB 1 - 1219 ACC0 + 1219 ACC0 1220 BRANCHIFNOT 1251 - 1222 CONST0 - 1223 PUSHACC2 - 1224 EQ + 1222 CONST0 + 1223 PUSHACC2 + 1224 EQ 1225 BRANCHIFNOT 1231 - 1227 ACC0 - 1228 GETFIELD0 + 1227 ACC0 + 1228 GETFIELD0 1229 RETURN 2 - 1231 CONST0 - 1232 PUSHACC2 - 1233 GTINT + 1231 CONST0 + 1232 PUSHACC2 + 1233 GTINT 1234 BRANCHIFNOT 1244 - 1236 ACC1 + 1236 ACC1 1237 OFFSETINT -1 - 1239 PUSHACC1 - 1240 GETFIELD1 - 1241 PUSHOFFSETCLOSURE0 + 1239 PUSHACC1 + 1240 GETFIELD1 + 1241 PUSHOFFSETCLOSURE0 1242 APPTERM2 4 1244 GETGLOBAL "List.nth" 1246 PUSHGETGLOBALFIELD Pervasives, 2 @@ -790,696 +790,696 @@ if o#m <> 23 then raise Not_found 1251 GETGLOBAL "nth" 1253 PUSHGETGLOBALFIELD Pervasives, 3 1256 APPTERM1 3 - 1258 RESTART + 1258 RESTART 1259 GRAB 1 - 1261 ACC0 + 1261 ACC0 1262 BRANCHIFNOT 1274 - 1264 ACC1 - 1265 PUSHACC1 - 1266 GETFIELD0 + 1264 ACC1 + 1265 PUSHACC1 + 1266 GETFIELD0 1267 MAKEBLOCK2 0 - 1269 PUSHACC1 - 1270 GETFIELD1 - 1271 PUSHOFFSETCLOSURE0 + 1269 PUSHACC1 + 1270 GETFIELD1 + 1271 PUSHOFFSETCLOSURE0 1272 APPTERM2 4 - 1274 ACC1 + 1274 ACC1 1275 RETURN 2 - 1277 ACC0 + 1277 ACC0 1278 BRANCHIFNOT 1291 - 1280 ACC0 - 1281 GETFIELD1 - 1282 PUSHOFFSETCLOSURE0 - 1283 APPLY1 - 1284 PUSHACC1 - 1285 GETFIELD0 + 1280 ACC0 + 1281 GETFIELD1 + 1282 PUSHOFFSETCLOSURE0 + 1283 APPLY1 + 1284 PUSHACC1 + 1285 GETFIELD0 1286 PUSHGETGLOBALFIELD Pervasives, 16 1289 APPTERM2 3 1291 RETURN 1 - 1293 RESTART + 1293 RESTART 1294 GRAB 1 - 1296 ACC1 + 1296 ACC1 1297 BRANCHIFNOT 1313 - 1299 ACC1 - 1300 GETFIELD0 - 1301 PUSHACC1 - 1302 APPLY1 - 1303 PUSHACC2 - 1304 GETFIELD1 - 1305 PUSHACC2 - 1306 PUSHOFFSETCLOSURE0 - 1307 APPLY2 - 1308 PUSHACC1 + 1299 ACC1 + 1300 GETFIELD0 + 1301 PUSHACC1 + 1302 APPLY1 + 1303 PUSHACC2 + 1304 GETFIELD1 + 1305 PUSHACC2 + 1306 PUSHOFFSETCLOSURE0 + 1307 APPLY2 + 1308 PUSHACC1 1309 MAKEBLOCK2 0 1311 POP 1 1313 RETURN 2 - 1315 RESTART + 1315 RESTART 1316 GRAB 1 - 1318 ACC1 + 1318 ACC1 1319 BRANCHIFNOT 1331 - 1321 ACC1 - 1322 GETFIELD0 - 1323 PUSHACC1 - 1324 APPLY1 - 1325 ACC1 - 1326 GETFIELD1 - 1327 PUSHACC1 - 1328 PUSHOFFSETCLOSURE0 + 1321 ACC1 + 1322 GETFIELD0 + 1323 PUSHACC1 + 1324 APPLY1 + 1325 ACC1 + 1326 GETFIELD1 + 1327 PUSHACC1 + 1328 PUSHOFFSETCLOSURE0 1329 APPTERM2 4 1331 RETURN 2 - 1333 RESTART + 1333 RESTART 1334 GRAB 2 - 1336 ACC2 + 1336 ACC2 1337 BRANCHIFNOT 1350 - 1339 ACC2 - 1340 GETFIELD1 - 1341 PUSHACC3 - 1342 GETFIELD0 - 1343 PUSHACC3 - 1344 PUSHACC3 - 1345 APPLY2 - 1346 PUSHACC2 - 1347 PUSHOFFSETCLOSURE0 + 1339 ACC2 + 1340 GETFIELD1 + 1341 PUSHACC3 + 1342 GETFIELD0 + 1343 PUSHACC3 + 1344 PUSHACC3 + 1345 APPLY2 + 1346 PUSHACC2 + 1347 PUSHOFFSETCLOSURE0 1348 APPTERM3 6 - 1350 ACC1 + 1350 ACC1 1351 RETURN 3 - 1353 RESTART + 1353 RESTART 1354 GRAB 2 - 1356 ACC1 + 1356 ACC1 1357 BRANCHIFNOT 1370 - 1359 ACC2 - 1360 PUSHACC2 - 1361 GETFIELD1 - 1362 PUSHACC2 - 1363 PUSHOFFSETCLOSURE0 - 1364 APPLY3 - 1365 PUSHACC2 - 1366 GETFIELD0 - 1367 PUSHACC2 + 1359 ACC2 + 1360 PUSHACC2 + 1361 GETFIELD1 + 1362 PUSHACC2 + 1363 PUSHOFFSETCLOSURE0 + 1364 APPLY3 + 1365 PUSHACC2 + 1366 GETFIELD0 + 1367 PUSHACC2 1368 APPTERM2 5 - 1370 ACC2 + 1370 ACC2 1371 RETURN 3 - 1373 RESTART + 1373 RESTART 1374 GRAB 2 - 1376 ACC1 + 1376 ACC1 1377 BRANCHIFNOT 1400 - 1379 ACC2 + 1379 ACC2 1380 BRANCHIFNOT 1407 - 1382 ACC2 - 1383 GETFIELD0 - 1384 PUSHACC2 - 1385 GETFIELD0 - 1386 PUSHACC2 - 1387 APPLY2 - 1388 PUSHACC3 - 1389 GETFIELD1 - 1390 PUSHACC3 - 1391 GETFIELD1 - 1392 PUSHACC3 - 1393 PUSHOFFSETCLOSURE0 - 1394 APPLY3 - 1395 PUSHACC1 + 1382 ACC2 + 1383 GETFIELD0 + 1384 PUSHACC2 + 1385 GETFIELD0 + 1386 PUSHACC2 + 1387 APPLY2 + 1388 PUSHACC3 + 1389 GETFIELD1 + 1390 PUSHACC3 + 1391 GETFIELD1 + 1392 PUSHACC3 + 1393 PUSHOFFSETCLOSURE0 + 1394 APPLY3 + 1395 PUSHACC1 1396 MAKEBLOCK2 0 1398 RETURN 4 - 1400 ACC2 + 1400 ACC2 1401 BRANCHIFNOT 1405 1403 BRANCH 1407 1405 RETURN 3 1407 GETGLOBAL "List.map2" 1409 PUSHGETGLOBALFIELD Pervasives, 2 1412 APPTERM1 4 - 1414 RESTART + 1414 RESTART 1415 GRAB 2 - 1417 ACC1 + 1417 ACC1 1418 BRANCHIFNOT 1437 - 1420 ACC2 + 1420 ACC2 1421 BRANCHIFNOT 1444 - 1423 ACC2 - 1424 GETFIELD0 - 1425 PUSHACC2 - 1426 GETFIELD0 - 1427 PUSHACC2 - 1428 APPLY2 - 1429 ACC2 - 1430 GETFIELD1 - 1431 PUSHACC2 - 1432 GETFIELD1 - 1433 PUSHACC2 - 1434 PUSHOFFSETCLOSURE0 + 1423 ACC2 + 1424 GETFIELD0 + 1425 PUSHACC2 + 1426 GETFIELD0 + 1427 PUSHACC2 + 1428 APPLY2 + 1429 ACC2 + 1430 GETFIELD1 + 1431 PUSHACC2 + 1432 GETFIELD1 + 1433 PUSHACC2 + 1434 PUSHOFFSETCLOSURE0 1435 APPTERM3 6 - 1437 ACC2 + 1437 ACC2 1438 BRANCHIFNOT 1442 1440 BRANCH 1444 1442 RETURN 3 1444 GETGLOBAL "List.iter2" 1446 PUSHGETGLOBALFIELD Pervasives, 2 1449 APPTERM1 4 - 1451 RESTART + 1451 RESTART 1452 GRAB 3 - 1454 ACC2 + 1454 ACC2 1455 BRANCHIFNOT 1476 - 1457 ACC3 + 1457 ACC3 1458 BRANCHIFNOT 1482 - 1460 ACC3 - 1461 GETFIELD1 - 1462 PUSHACC3 - 1463 GETFIELD1 - 1464 PUSHACC5 - 1465 GETFIELD0 - 1466 PUSHACC5 - 1467 GETFIELD0 - 1468 PUSHACC5 - 1469 PUSHACC5 - 1470 APPLY3 - 1471 PUSHACC3 - 1472 PUSHOFFSETCLOSURE0 + 1460 ACC3 + 1461 GETFIELD1 + 1462 PUSHACC3 + 1463 GETFIELD1 + 1464 PUSHACC5 + 1465 GETFIELD0 + 1466 PUSHACC5 + 1467 GETFIELD0 + 1468 PUSHACC5 + 1469 PUSHACC5 + 1470 APPLY3 + 1471 PUSHACC3 + 1472 PUSHOFFSETCLOSURE0 1473 APPTERM 4, 8 - 1476 ACC3 + 1476 ACC3 1477 BRANCHIF 1482 - 1479 ACC1 + 1479 ACC1 1480 RETURN 4 1482 GETGLOBAL "List.fold_left2" 1484 PUSHGETGLOBALFIELD Pervasives, 2 1487 APPTERM1 5 - 1489 RESTART + 1489 RESTART 1490 GRAB 3 - 1492 ACC1 + 1492 ACC1 1493 BRANCHIFNOT 1516 - 1495 ACC2 + 1495 ACC2 1496 BRANCHIFNOT 1522 1498 PUSH_RETADDR 1509 - 1500 ACC6 - 1501 PUSHACC6 - 1502 GETFIELD1 - 1503 PUSHACC6 - 1504 GETFIELD1 - 1505 PUSHACC6 - 1506 PUSHOFFSETCLOSURE0 + 1500 ACC6 + 1501 PUSHACC6 + 1502 GETFIELD1 + 1503 PUSHACC6 + 1504 GETFIELD1 + 1505 PUSHACC6 + 1506 PUSHOFFSETCLOSURE0 1507 APPLY 4 - 1509 PUSHACC3 - 1510 GETFIELD0 - 1511 PUSHACC3 - 1512 GETFIELD0 - 1513 PUSHACC3 + 1509 PUSHACC3 + 1510 GETFIELD0 + 1511 PUSHACC3 + 1512 GETFIELD0 + 1513 PUSHACC3 1514 APPTERM3 7 - 1516 ACC2 + 1516 ACC2 1517 BRANCHIF 1522 - 1519 ACC3 + 1519 ACC3 1520 RETURN 4 1522 GETGLOBAL "List.fold_right2" 1524 PUSHGETGLOBALFIELD Pervasives, 2 1527 APPTERM1 5 - 1529 RESTART + 1529 RESTART 1530 GRAB 1 - 1532 ACC1 + 1532 ACC1 1533 BRANCHIFNOT 1549 - 1535 ACC1 - 1536 GETFIELD0 - 1537 PUSHACC1 - 1538 APPLY1 + 1535 ACC1 + 1536 GETFIELD0 + 1537 PUSHACC1 + 1538 APPLY1 1539 BRANCHIFNOT 1547 - 1541 ACC1 - 1542 GETFIELD1 - 1543 PUSHACC1 - 1544 PUSHOFFSETCLOSURE0 + 1541 ACC1 + 1542 GETFIELD1 + 1543 PUSHACC1 + 1544 PUSHOFFSETCLOSURE0 1545 APPTERM2 4 1547 RETURN 2 - 1549 CONST1 + 1549 CONST1 1550 RETURN 2 - 1552 RESTART + 1552 RESTART 1553 GRAB 1 - 1555 ACC1 + 1555 ACC1 1556 BRANCHIFNOT 1570 - 1558 ACC1 - 1559 GETFIELD0 - 1560 PUSHACC1 - 1561 APPLY1 + 1558 ACC1 + 1559 GETFIELD0 + 1560 PUSHACC1 + 1561 APPLY1 1562 BRANCHIF 1570 - 1564 ACC1 - 1565 GETFIELD1 - 1566 PUSHACC1 - 1567 PUSHOFFSETCLOSURE0 + 1564 ACC1 + 1565 GETFIELD1 + 1566 PUSHACC1 + 1567 PUSHOFFSETCLOSURE0 1568 APPTERM2 4 1570 RETURN 2 - 1572 RESTART + 1572 RESTART 1573 GRAB 2 - 1575 ACC1 + 1575 ACC1 1576 BRANCHIFNOT 1599 - 1578 ACC2 + 1578 ACC2 1579 BRANCHIFNOT 1605 - 1581 ACC2 - 1582 GETFIELD0 - 1583 PUSHACC2 - 1584 GETFIELD0 - 1585 PUSHACC2 - 1586 APPLY2 + 1581 ACC2 + 1582 GETFIELD0 + 1583 PUSHACC2 + 1584 GETFIELD0 + 1585 PUSHACC2 + 1586 APPLY2 1587 BRANCHIFNOT 1597 - 1589 ACC2 - 1590 GETFIELD1 - 1591 PUSHACC2 - 1592 GETFIELD1 - 1593 PUSHACC2 - 1594 PUSHOFFSETCLOSURE0 + 1589 ACC2 + 1590 GETFIELD1 + 1591 PUSHACC2 + 1592 GETFIELD1 + 1593 PUSHACC2 + 1594 PUSHOFFSETCLOSURE0 1595 APPTERM3 6 1597 RETURN 3 - 1599 ACC2 + 1599 ACC2 1600 BRANCHIF 1605 - 1602 CONST1 + 1602 CONST1 1603 RETURN 3 1605 GETGLOBAL "List.for_all2" 1607 PUSHGETGLOBALFIELD Pervasives, 2 1610 APPTERM1 4 - 1612 RESTART + 1612 RESTART 1613 GRAB 2 - 1615 ACC1 + 1615 ACC1 1616 BRANCHIFNOT 1639 - 1618 ACC2 + 1618 ACC2 1619 BRANCHIFNOT 1646 - 1621 ACC2 - 1622 GETFIELD0 - 1623 PUSHACC2 - 1624 GETFIELD0 - 1625 PUSHACC2 - 1626 APPLY2 + 1621 ACC2 + 1622 GETFIELD0 + 1623 PUSHACC2 + 1624 GETFIELD0 + 1625 PUSHACC2 + 1626 APPLY2 1627 BRANCHIF 1637 - 1629 ACC2 - 1630 GETFIELD1 - 1631 PUSHACC2 - 1632 GETFIELD1 - 1633 PUSHACC2 - 1634 PUSHOFFSETCLOSURE0 + 1629 ACC2 + 1630 GETFIELD1 + 1631 PUSHACC2 + 1632 GETFIELD1 + 1633 PUSHACC2 + 1634 PUSHOFFSETCLOSURE0 1635 APPTERM3 6 1637 RETURN 3 - 1639 ACC2 + 1639 ACC2 1640 BRANCHIFNOT 1644 1642 BRANCH 1646 1644 RETURN 3 1646 GETGLOBAL "List.exists2" 1648 PUSHGETGLOBALFIELD Pervasives, 2 1651 APPTERM1 4 - 1653 RESTART + 1653 RESTART 1654 GRAB 1 - 1656 ACC1 + 1656 ACC1 1657 BRANCHIFNOT 1672 - 1659 ACC0 - 1660 PUSHACC2 - 1661 GETFIELD0 + 1659 ACC0 + 1660 PUSHACC2 + 1661 GETFIELD0 1662 C_CALL2 equal 1664 BRANCHIF 1672 - 1666 ACC1 - 1667 GETFIELD1 - 1668 PUSHACC1 - 1669 PUSHOFFSETCLOSURE0 + 1666 ACC1 + 1667 GETFIELD1 + 1668 PUSHACC1 + 1669 PUSHOFFSETCLOSURE0 1670 APPTERM2 4 1672 RETURN 2 - 1674 RESTART + 1674 RESTART 1675 GRAB 1 - 1677 ACC1 + 1677 ACC1 1678 BRANCHIFNOT 1692 - 1680 ACC0 - 1681 PUSHACC2 - 1682 GETFIELD0 - 1683 EQ + 1680 ACC0 + 1681 PUSHACC2 + 1682 GETFIELD0 + 1683 EQ 1684 BRANCHIF 1692 - 1686 ACC1 - 1687 GETFIELD1 - 1688 PUSHACC1 - 1689 PUSHOFFSETCLOSURE0 + 1686 ACC1 + 1687 GETFIELD1 + 1688 PUSHACC1 + 1689 PUSHOFFSETCLOSURE0 1690 APPTERM2 4 1692 RETURN 2 - 1694 RESTART + 1694 RESTART 1695 GRAB 1 - 1697 ACC1 + 1697 ACC1 1698 BRANCHIFNOT 1719 - 1700 ACC1 - 1701 GETFIELD0 - 1702 PUSHACC1 - 1703 PUSHACC1 - 1704 GETFIELD0 + 1700 ACC1 + 1701 GETFIELD0 + 1702 PUSHACC1 + 1703 PUSHACC1 + 1704 GETFIELD0 1705 C_CALL2 equal 1707 BRANCHIFNOT 1713 - 1709 ACC0 - 1710 GETFIELD1 + 1709 ACC0 + 1710 GETFIELD1 1711 RETURN 3 - 1713 ACC2 - 1714 GETFIELD1 - 1715 PUSHACC2 - 1716 PUSHOFFSETCLOSURE0 + 1713 ACC2 + 1714 GETFIELD1 + 1715 PUSHACC2 + 1716 PUSHOFFSETCLOSURE0 1717 APPTERM2 5 1719 GETGLOBAL Not_found 1721 MAKEBLOCK1 0 - 1723 RAISE - 1724 RESTART + 1723 RAISE + 1724 RESTART 1725 GRAB 1 - 1727 ACC1 + 1727 ACC1 1728 BRANCHIFNOT 1748 - 1730 ACC1 - 1731 GETFIELD0 - 1732 PUSHACC1 - 1733 PUSHACC1 - 1734 GETFIELD0 - 1735 EQ + 1730 ACC1 + 1731 GETFIELD0 + 1732 PUSHACC1 + 1733 PUSHACC1 + 1734 GETFIELD0 + 1735 EQ 1736 BRANCHIFNOT 1742 - 1738 ACC0 - 1739 GETFIELD1 + 1738 ACC0 + 1739 GETFIELD1 1740 RETURN 3 - 1742 ACC2 - 1743 GETFIELD1 - 1744 PUSHACC2 - 1745 PUSHOFFSETCLOSURE0 + 1742 ACC2 + 1743 GETFIELD1 + 1744 PUSHACC2 + 1745 PUSHOFFSETCLOSURE0 1746 APPTERM2 5 1748 GETGLOBAL Not_found 1750 MAKEBLOCK1 0 - 1752 RAISE - 1753 RESTART + 1752 RAISE + 1753 RESTART 1754 GRAB 1 - 1756 ACC1 + 1756 ACC1 1757 BRANCHIFNOT 1773 - 1759 ACC0 - 1760 PUSHACC2 - 1761 GETFIELD0 - 1762 GETFIELD0 + 1759 ACC0 + 1760 PUSHACC2 + 1761 GETFIELD0 + 1762 GETFIELD0 1763 C_CALL2 equal 1765 BRANCHIF 1773 - 1767 ACC1 - 1768 GETFIELD1 - 1769 PUSHACC1 - 1770 PUSHOFFSETCLOSURE0 + 1767 ACC1 + 1768 GETFIELD1 + 1769 PUSHACC1 + 1770 PUSHOFFSETCLOSURE0 1771 APPTERM2 4 1773 RETURN 2 - 1775 RESTART + 1775 RESTART 1776 GRAB 1 - 1778 ACC1 + 1778 ACC1 1779 BRANCHIFNOT 1794 - 1781 ACC0 - 1782 PUSHACC2 - 1783 GETFIELD0 - 1784 GETFIELD0 - 1785 EQ + 1781 ACC0 + 1782 PUSHACC2 + 1783 GETFIELD0 + 1784 GETFIELD0 + 1785 EQ 1786 BRANCHIF 1794 - 1788 ACC1 - 1789 GETFIELD1 - 1790 PUSHACC1 - 1791 PUSHOFFSETCLOSURE0 + 1788 ACC1 + 1789 GETFIELD1 + 1790 PUSHACC1 + 1791 PUSHOFFSETCLOSURE0 1792 APPTERM2 4 1794 RETURN 2 - 1796 RESTART + 1796 RESTART 1797 GRAB 1 - 1799 ACC1 + 1799 ACC1 1800 BRANCHIFNOT 1825 - 1802 ACC1 - 1803 GETFIELD0 - 1804 PUSHACC2 - 1805 GETFIELD1 - 1806 PUSHACC2 - 1807 PUSHACC2 - 1808 GETFIELD0 + 1802 ACC1 + 1803 GETFIELD0 + 1804 PUSHACC2 + 1805 GETFIELD1 + 1806 PUSHACC2 + 1807 PUSHACC2 + 1808 GETFIELD0 1809 C_CALL2 equal 1811 BRANCHIFNOT 1816 - 1813 ACC0 + 1813 ACC0 1814 RETURN 4 - 1816 ACC0 - 1817 PUSHACC3 - 1818 PUSHOFFSETCLOSURE0 - 1819 APPLY2 - 1820 PUSHACC2 + 1816 ACC0 + 1817 PUSHACC3 + 1818 PUSHOFFSETCLOSURE0 + 1819 APPLY2 + 1820 PUSHACC2 1821 MAKEBLOCK2 0 1823 POP 2 1825 RETURN 2 - 1827 RESTART + 1827 RESTART 1828 GRAB 1 - 1830 ACC1 + 1830 ACC1 1831 BRANCHIFNOT 1855 - 1833 ACC1 - 1834 GETFIELD0 - 1835 PUSHACC2 - 1836 GETFIELD1 - 1837 PUSHACC2 - 1838 PUSHACC2 - 1839 GETFIELD0 - 1840 EQ + 1833 ACC1 + 1834 GETFIELD0 + 1835 PUSHACC2 + 1836 GETFIELD1 + 1837 PUSHACC2 + 1838 PUSHACC2 + 1839 GETFIELD0 + 1840 EQ 1841 BRANCHIFNOT 1846 - 1843 ACC0 + 1843 ACC0 1844 RETURN 4 - 1846 ACC0 - 1847 PUSHACC3 - 1848 PUSHOFFSETCLOSURE0 - 1849 APPLY2 - 1850 PUSHACC2 + 1846 ACC0 + 1847 PUSHACC3 + 1848 PUSHOFFSETCLOSURE0 + 1849 APPLY2 + 1850 PUSHACC2 1851 MAKEBLOCK2 0 1853 POP 2 1855 RETURN 2 - 1857 RESTART + 1857 RESTART 1858 GRAB 1 - 1860 ACC1 + 1860 ACC1 1861 BRANCHIFNOT 1879 - 1863 ACC1 - 1864 GETFIELD0 - 1865 PUSHACC0 - 1866 PUSHACC2 - 1867 APPLY1 + 1863 ACC1 + 1864 GETFIELD0 + 1865 PUSHACC0 + 1866 PUSHACC2 + 1867 APPLY1 1868 BRANCHIFNOT 1873 - 1870 ACC0 + 1870 ACC0 1871 RETURN 3 - 1873 ACC2 - 1874 GETFIELD1 - 1875 PUSHACC2 - 1876 PUSHOFFSETCLOSURE0 + 1873 ACC2 + 1874 GETFIELD1 + 1875 PUSHACC2 + 1876 PUSHOFFSETCLOSURE0 1877 APPTERM2 5 1879 GETGLOBAL Not_found 1881 MAKEBLOCK1 0 - 1883 RAISE - 1884 RESTART + 1883 RAISE + 1884 RESTART 1885 GRAB 2 - 1887 ACC2 + 1887 ACC2 1888 BRANCHIFNOT 1917 - 1890 ACC2 - 1891 GETFIELD0 - 1892 PUSHACC3 - 1893 GETFIELD1 - 1894 PUSHACC1 - 1895 PUSHENVACC2 - 1896 APPLY1 + 1890 ACC2 + 1891 GETFIELD0 + 1892 PUSHACC3 + 1893 GETFIELD1 + 1894 PUSHACC1 + 1895 PUSHENVACC2 + 1896 APPLY1 1897 BRANCHIFNOT 1908 - 1899 ACC0 - 1900 PUSHACC4 - 1901 PUSHACC4 - 1902 PUSHACC4 + 1899 ACC0 + 1900 PUSHACC4 + 1901 PUSHACC4 + 1902 PUSHACC4 1903 MAKEBLOCK2 0 - 1905 PUSHOFFSETCLOSURE0 + 1905 PUSHOFFSETCLOSURE0 1906 APPTERM3 8 - 1908 ACC0 - 1909 PUSHACC4 - 1910 PUSHACC3 + 1908 ACC0 + 1909 PUSHACC4 + 1910 PUSHACC3 1911 MAKEBLOCK2 0 - 1913 PUSHACC4 - 1914 PUSHOFFSETCLOSURE0 + 1913 PUSHACC4 + 1914 PUSHOFFSETCLOSURE0 1915 APPTERM3 8 - 1917 ACC1 - 1918 PUSHENVACC1 - 1919 APPLY1 - 1920 PUSHACC1 - 1921 PUSHENVACC1 - 1922 APPLY1 + 1917 ACC1 + 1918 PUSHENVACC1 + 1919 APPLY1 + 1920 PUSHACC1 + 1921 PUSHENVACC1 + 1922 APPLY1 1923 MAKEBLOCK2 0 1925 RETURN 3 - 1927 RESTART + 1927 RESTART 1928 GRAB 1 - 1930 ACC0 - 1931 PUSHENVACC1 + 1930 ACC0 + 1931 PUSHENVACC1 1932 CLOSUREREC 2, 1885 - 1936 ACC2 - 1937 PUSHCONST0 - 1938 PUSHCONST0 - 1939 PUSHACC3 + 1936 ACC2 + 1937 PUSHCONST0 + 1938 PUSHCONST0 + 1939 PUSHACC3 1940 APPTERM3 6 - 1942 ACC0 + 1942 ACC0 1943 BRANCHIFNOT 1967 - 1945 ACC0 - 1946 GETFIELD0 - 1947 PUSHACC1 - 1948 GETFIELD1 - 1949 PUSHOFFSETCLOSURE0 - 1950 APPLY1 - 1951 PUSHACC0 - 1952 GETFIELD1 - 1953 PUSHACC2 - 1954 GETFIELD1 + 1945 ACC0 + 1946 GETFIELD0 + 1947 PUSHACC1 + 1948 GETFIELD1 + 1949 PUSHOFFSETCLOSURE0 + 1950 APPLY1 + 1951 PUSHACC0 + 1952 GETFIELD1 + 1953 PUSHACC2 + 1954 GETFIELD1 1955 MAKEBLOCK2 0 - 1957 PUSHACC1 - 1958 GETFIELD0 - 1959 PUSHACC3 - 1960 GETFIELD0 + 1957 PUSHACC1 + 1958 GETFIELD0 + 1959 PUSHACC3 + 1960 GETFIELD0 1961 MAKEBLOCK2 0 1963 MAKEBLOCK2 0 1965 RETURN 3 1967 GETGLOBAL <0>(0, 0) 1969 RETURN 1 - 1971 RESTART + 1971 RESTART 1972 GRAB 1 - 1974 ACC0 + 1974 ACC0 1975 BRANCHIFNOT 1996 - 1977 ACC1 + 1977 ACC1 1978 BRANCHIFNOT 2003 - 1980 ACC1 - 1981 GETFIELD1 - 1982 PUSHACC1 - 1983 GETFIELD1 - 1984 PUSHOFFSETCLOSURE0 - 1985 APPLY2 - 1986 PUSHACC2 - 1987 GETFIELD0 - 1988 PUSHACC2 - 1989 GETFIELD0 + 1980 ACC1 + 1981 GETFIELD1 + 1982 PUSHACC1 + 1983 GETFIELD1 + 1984 PUSHOFFSETCLOSURE0 + 1985 APPLY2 + 1986 PUSHACC2 + 1987 GETFIELD0 + 1988 PUSHACC2 + 1989 GETFIELD0 1990 MAKEBLOCK2 0 1992 MAKEBLOCK2 0 1994 RETURN 2 - 1996 ACC1 + 1996 ACC1 1997 BRANCHIFNOT 2001 1999 BRANCH 2003 2001 RETURN 2 2003 GETGLOBAL "List.combine" 2005 PUSHGETGLOBALFIELD Pervasives, 2 2008 APPTERM1 3 - 2010 RESTART + 2010 RESTART 2011 GRAB 1 - 2013 ACC1 + 2013 ACC1 2014 BRANCHIFNOT 2038 - 2016 ACC1 - 2017 GETFIELD0 - 2018 PUSHACC2 - 2019 GETFIELD1 - 2020 PUSHACC1 - 2021 PUSHENVACC2 - 2022 APPLY1 + 2016 ACC1 + 2017 GETFIELD0 + 2018 PUSHACC2 + 2019 GETFIELD1 + 2020 PUSHACC1 + 2021 PUSHENVACC2 + 2022 APPLY1 2023 BRANCHIFNOT 2033 - 2025 ACC0 - 2026 PUSHACC3 - 2027 PUSHACC3 + 2025 ACC0 + 2026 PUSHACC3 + 2027 PUSHACC3 2028 MAKEBLOCK2 0 - 2030 PUSHOFFSETCLOSURE0 + 2030 PUSHOFFSETCLOSURE0 2031 APPTERM2 6 - 2033 ACC0 - 2034 PUSHACC3 - 2035 PUSHOFFSETCLOSURE0 + 2033 ACC0 + 2034 PUSHACC3 + 2035 PUSHOFFSETCLOSURE0 2036 APPTERM2 6 - 2038 ACC0 - 2039 PUSHENVACC1 + 2038 ACC0 + 2039 PUSHENVACC1 2040 APPTERM1 3 - 2042 ACC0 - 2043 PUSHENVACC1 + 2042 ACC0 + 2043 PUSHENVACC1 2044 CLOSUREREC 2, 2011 - 2048 CONST0 - 2049 PUSHACC1 + 2048 CONST0 + 2049 PUSHACC1 2050 APPTERM1 3 - 2052 RESTART + 2052 RESTART 2053 GRAB 2 - 2055 ACC1 + 2055 ACC1 2056 BRANCHIFNOT 2077 - 2058 ACC2 + 2058 ACC2 2059 BRANCHIFNOT 2084 - 2061 ACC2 - 2062 GETFIELD1 - 2063 PUSHACC2 - 2064 GETFIELD1 - 2065 PUSHACC2 - 2066 PUSHACC5 - 2067 GETFIELD0 - 2068 PUSHACC5 - 2069 GETFIELD0 - 2070 PUSHENVACC1 - 2071 APPLY2 + 2061 ACC2 + 2062 GETFIELD1 + 2063 PUSHACC2 + 2064 GETFIELD1 + 2065 PUSHACC2 + 2066 PUSHACC5 + 2067 GETFIELD0 + 2068 PUSHACC5 + 2069 GETFIELD0 + 2070 PUSHENVACC1 + 2071 APPLY2 2072 MAKEBLOCK2 0 - 2074 PUSHOFFSETCLOSURE0 + 2074 PUSHOFFSETCLOSURE0 2075 APPTERM3 6 - 2077 ACC2 + 2077 ACC2 2078 BRANCHIFNOT 2082 2080 BRANCH 2084 2082 RETURN 3 2084 GETGLOBAL "List.rev_map2" 2086 PUSHGETGLOBALFIELD Pervasives, 2 2089 APPTERM1 4 - 2091 RESTART + 2091 RESTART 2092 GRAB 2 - 2094 ACC0 + 2094 ACC0 2095 CLOSUREREC 1, 2053 - 2099 ACC3 - 2100 PUSHACC3 - 2101 PUSHCONST0 - 2102 PUSHACC3 + 2099 ACC3 + 2100 PUSHACC3 + 2101 PUSHCONST0 + 2102 PUSHACC3 2103 APPTERM3 7 - 2105 RESTART + 2105 RESTART 2106 GRAB 1 - 2108 ACC1 + 2108 ACC1 2109 BRANCHIFNOT 2123 - 2111 ACC1 - 2112 GETFIELD1 - 2113 PUSHACC1 - 2114 PUSHACC3 - 2115 GETFIELD0 - 2116 PUSHENVACC1 - 2117 APPLY1 + 2111 ACC1 + 2112 GETFIELD1 + 2113 PUSHACC1 + 2114 PUSHACC3 + 2115 GETFIELD0 + 2116 PUSHENVACC1 + 2117 APPLY1 2118 MAKEBLOCK2 0 - 2120 PUSHOFFSETCLOSURE0 + 2120 PUSHOFFSETCLOSURE0 2121 APPTERM2 4 - 2123 ACC0 + 2123 ACC0 2124 RETURN 2 - 2126 RESTART + 2126 RESTART 2127 GRAB 1 - 2129 ACC0 + 2129 ACC0 2130 CLOSUREREC 1, 2106 - 2134 ACC2 - 2135 PUSHCONST0 - 2136 PUSHACC2 + 2134 ACC2 + 2135 PUSHCONST0 + 2136 PUSHACC2 2137 APPTERM2 5 - 2139 CONST0 - 2140 PUSHACC1 - 2141 PUSHENVACC1 + 2139 CONST0 + 2140 PUSHACC1 + 2141 PUSHENVACC1 2142 APPTERM2 3 - 2144 ACC0 + 2144 ACC0 2145 BRANCHIFNOT 2151 - 2147 ACC0 - 2148 GETFIELD1 + 2147 ACC0 + 2148 GETFIELD1 2149 RETURN 1 2151 GETGLOBAL "tl" 2153 PUSHGETGLOBALFIELD Pervasives, 3 2156 APPTERM1 2 - 2158 ACC0 + 2158 ACC0 2159 BRANCHIFNOT 2165 - 2161 ACC0 - 2162 GETFIELD0 + 2161 ACC0 + 2162 GETFIELD0 2163 RETURN 1 2165 GETGLOBAL "hd" 2167 PUSHGETGLOBALFIELD Pervasives, 3 2170 APPTERM1 2 - 2172 ACC0 - 2173 PUSHCONST0 - 2174 PUSHENVACC1 + 2172 ACC0 + 2173 PUSHCONST0 + 2174 PUSHENVACC1 2175 APPTERM2 3 2177 CLOSUREREC 0, 1200 - 2181 ACC0 + 2181 ACC0 2182 CLOSURE 1, 2172 - 2185 PUSH + 2185 PUSH 2186 CLOSURE 0, 2158 - 2189 PUSH + 2189 PUSH 2190 CLOSURE 0, 2144 - 2193 PUSH + 2193 PUSH 2194 CLOSUREREC 0, 1217 2198 GETGLOBALFIELD Pervasives, 16 - 2201 PUSH + 2201 PUSH 2202 CLOSUREREC 0, 1259 - 2206 ACC0 + 2206 ACC0 2207 CLOSURE 1, 2139 - 2210 PUSH + 2210 PUSH 2211 CLOSUREREC 0, 1277 2215 CLOSUREREC 0, 1294 2219 CLOSURE 0, 2127 - 2222 PUSH + 2222 PUSH 2223 CLOSUREREC 0, 1316 2227 CLOSUREREC 0, 1334 2231 CLOSUREREC 0, 1354 2235 CLOSUREREC 0, 1374 2239 CLOSURE 0, 2092 - 2242 PUSH + 2242 PUSH 2243 CLOSUREREC 0, 1415 2247 CLOSUREREC 0, 1452 2251 CLOSUREREC 0, 1490 @@ -1502,9 +1502,9 @@ if o#m <> 23 then raise Not_found 2314 CLOSUREREC 1, 1928 2318 CLOSUREREC 0, 1942 2322 CLOSUREREC 0, 1972 - 2326 ACC0 - 2327 PUSHACC2 - 2328 PUSHACC7 + 2326 ACC0 + 2327 PUSHACC2 + 2328 PUSHACC7 2329 PUSHACC 9 2331 PUSHACC 11 2333 PUSHACC 13 @@ -1543,729 +1543,729 @@ if o#m <> 23 then raise Not_found 2400 POP 36 2402 SETGLOBAL List 2404 BRANCH 3341 - 2406 RESTART + 2406 RESTART 2407 GRAB 2 - 2409 ACC2 - 2410 PUSHACC2 - 2411 VECTLENGTH + 2409 ACC2 + 2410 PUSHACC2 + 2411 VECTLENGTH 2412 OFFSETINT -1 - 2414 PUSHCONST0 - 2415 PUSH + 2414 PUSHCONST0 + 2415 PUSH 2416 BRANCH 2433 - 2418 CHECK_SIGNALS - 2419 ACC2 - 2420 PUSHACC2 - 2421 PUSHACC6 + 2418 CHECK_SIGNALS + 2419 ACC2 + 2420 PUSHACC2 + 2421 PUSHACC6 2422 C_CALL2 array_unsafe_get - 2424 PUSHACC5 - 2425 APPLY2 + 2424 PUSHACC5 + 2425 APPLY2 2426 ASSIGN 2 - 2428 ACC1 + 2428 ACC1 2429 OFFSETINT -1 2431 ASSIGN 1 - 2433 ACC0 - 2434 PUSHACC2 - 2435 GEINT + 2433 ACC0 + 2434 PUSHACC2 + 2435 GEINT 2436 BRANCHIF 2418 - 2438 CONST0 + 2438 CONST0 2439 POP 2 - 2441 ACC0 + 2441 ACC0 2442 RETURN 4 - 2444 RESTART + 2444 RESTART 2445 GRAB 2 - 2447 ACC1 - 2448 PUSHCONST0 - 2449 PUSHACC4 - 2450 VECTLENGTH + 2447 ACC1 + 2448 PUSHCONST0 + 2449 PUSHACC4 + 2450 VECTLENGTH 2451 OFFSETINT -1 - 2453 PUSH + 2453 PUSH 2454 BRANCH 2471 - 2456 CHECK_SIGNALS - 2457 ACC1 - 2458 PUSHACC6 + 2456 CHECK_SIGNALS + 2457 ACC1 + 2458 PUSHACC6 2459 C_CALL2 array_unsafe_get - 2461 PUSHACC3 - 2462 PUSHACC5 - 2463 APPLY2 + 2461 PUSHACC3 + 2462 PUSHACC5 + 2463 APPLY2 2464 ASSIGN 2 - 2466 ACC1 + 2466 ACC1 2467 OFFSETINT 1 2469 ASSIGN 1 - 2471 ACC0 - 2472 PUSHACC2 - 2473 LEINT + 2471 ACC0 + 2472 PUSHACC2 + 2473 LEINT 2474 BRANCHIF 2456 - 2476 CONST0 + 2476 CONST0 2477 POP 2 - 2479 ACC0 + 2479 ACC0 2480 RETURN 4 - 2482 RESTART + 2482 RESTART 2483 GRAB 1 - 2485 ACC1 + 2485 ACC1 2486 BRANCHIFNOT 2502 - 2488 ACC1 - 2489 GETFIELD0 - 2490 PUSHACC1 - 2491 PUSHENVACC1 + 2488 ACC1 + 2489 GETFIELD0 + 2490 PUSHACC1 + 2491 PUSHENVACC1 2492 C_CALL3 array_unsafe_set - 2494 ACC1 - 2495 GETFIELD1 - 2496 PUSHACC1 + 2494 ACC1 + 2495 GETFIELD1 + 2496 PUSHACC1 2497 OFFSETINT 1 - 2499 PUSHOFFSETCLOSURE0 + 2499 PUSHOFFSETCLOSURE0 2500 APPTERM2 4 - 2502 ENVACC1 + 2502 ENVACC1 2503 RETURN 2 - 2505 ACC0 + 2505 ACC0 2506 BRANCHIFNOT 2531 - 2508 ACC0 - 2509 GETFIELD1 - 2510 PUSHACC1 - 2511 GETFIELD0 - 2512 PUSHACC1 + 2508 ACC0 + 2509 GETFIELD1 + 2510 PUSHACC1 + 2511 GETFIELD0 + 2512 PUSHACC1 2513 PUSHGETGLOBALFIELD List, 0 - 2516 APPLY1 + 2516 APPLY1 2517 OFFSETINT 1 2519 C_CALL2 make_vect - 2521 PUSHACC0 + 2521 PUSHACC0 2522 CLOSUREREC 1, 2483 - 2526 ACC2 - 2527 PUSHCONST1 - 2528 PUSHACC2 + 2526 ACC2 + 2527 PUSHCONST1 + 2528 PUSHACC2 2529 APPTERM2 6 - 2531 ATOM0 + 2531 ATOM0 2532 RETURN 1 - 2534 RESTART + 2534 RESTART 2535 GRAB 1 - 2537 CONST0 - 2538 PUSHACC1 - 2539 LTINT + 2537 CONST0 + 2538 PUSHACC1 + 2539 LTINT 2540 BRANCHIFNOT 2545 - 2542 ACC1 + 2542 ACC1 2543 RETURN 2 - 2545 ACC1 - 2546 PUSHACC1 - 2547 PUSHENVACC1 + 2545 ACC1 + 2546 PUSHACC1 + 2547 PUSHENVACC1 2548 C_CALL2 array_unsafe_get 2550 MAKEBLOCK2 0 - 2552 PUSHACC1 + 2552 PUSHACC1 2553 OFFSETINT -1 - 2555 PUSHOFFSETCLOSURE0 + 2555 PUSHOFFSETCLOSURE0 2556 APPTERM2 4 - 2558 ACC0 + 2558 ACC0 2559 CLOSUREREC 1, 2535 - 2563 CONST0 - 2564 PUSHACC2 - 2565 VECTLENGTH + 2563 CONST0 + 2564 PUSHACC2 + 2565 VECTLENGTH 2566 OFFSETINT -1 - 2568 PUSHACC2 + 2568 PUSHACC2 2569 APPTERM2 4 - 2571 RESTART + 2571 RESTART 2572 GRAB 1 - 2574 ACC1 - 2575 VECTLENGTH - 2576 PUSHCONST0 - 2577 PUSHACC1 - 2578 EQ + 2574 ACC1 + 2575 VECTLENGTH + 2576 PUSHCONST0 + 2577 PUSHACC1 + 2578 EQ 2579 BRANCHIFNOT 2584 - 2581 ATOM0 + 2581 ATOM0 2582 RETURN 3 - 2584 CONST0 - 2585 PUSHACC3 + 2584 CONST0 + 2585 PUSHACC3 2586 C_CALL2 array_unsafe_get - 2588 PUSHCONST0 - 2589 PUSHACC3 - 2590 APPLY2 - 2591 PUSHACC1 + 2588 PUSHCONST0 + 2589 PUSHACC3 + 2590 APPLY2 + 2591 PUSHACC1 2592 C_CALL2 make_vect - 2594 PUSHCONST1 - 2595 PUSHACC2 + 2594 PUSHCONST1 + 2595 PUSHACC2 2596 OFFSETINT -1 - 2598 PUSH + 2598 PUSH 2599 BRANCH 2618 - 2601 CHECK_SIGNALS - 2602 ACC1 - 2603 PUSHACC6 + 2601 CHECK_SIGNALS + 2602 ACC1 + 2603 PUSHACC6 2604 C_CALL2 array_unsafe_get - 2606 PUSHACC2 - 2607 PUSHACC6 - 2608 APPLY2 - 2609 PUSHACC2 - 2610 PUSHACC4 + 2606 PUSHACC2 + 2607 PUSHACC6 + 2608 APPLY2 + 2609 PUSHACC2 + 2610 PUSHACC4 2611 C_CALL3 array_unsafe_set - 2613 ACC1 + 2613 ACC1 2614 OFFSETINT 1 2616 ASSIGN 1 - 2618 ACC0 - 2619 PUSHACC2 - 2620 LEINT + 2618 ACC0 + 2619 PUSHACC2 + 2620 LEINT 2621 BRANCHIF 2601 - 2623 CONST0 + 2623 CONST0 2624 POP 2 - 2626 ACC0 + 2626 ACC0 2627 RETURN 4 - 2629 RESTART + 2629 RESTART 2630 GRAB 1 - 2632 CONST0 - 2633 PUSHACC2 - 2634 VECTLENGTH + 2632 CONST0 + 2633 PUSHACC2 + 2634 VECTLENGTH 2635 OFFSETINT -1 - 2637 PUSH + 2637 PUSH 2638 BRANCH 2653 - 2640 CHECK_SIGNALS - 2641 ACC1 - 2642 PUSHACC4 + 2640 CHECK_SIGNALS + 2641 ACC1 + 2642 PUSHACC4 2643 C_CALL2 array_unsafe_get - 2645 PUSHACC2 - 2646 PUSHACC4 - 2647 APPLY2 - 2648 ACC1 + 2645 PUSHACC2 + 2646 PUSHACC4 + 2647 APPLY2 + 2648 ACC1 2649 OFFSETINT 1 2651 ASSIGN 1 - 2653 ACC0 - 2654 PUSHACC2 - 2655 LEINT + 2653 ACC0 + 2654 PUSHACC2 + 2655 LEINT 2656 BRANCHIF 2640 - 2658 CONST0 + 2658 CONST0 2659 RETURN 4 - 2661 RESTART + 2661 RESTART 2662 GRAB 1 - 2664 ACC1 - 2665 VECTLENGTH - 2666 PUSHCONST0 - 2667 PUSHACC1 - 2668 EQ + 2664 ACC1 + 2665 VECTLENGTH + 2666 PUSHCONST0 + 2667 PUSHACC1 + 2668 EQ 2669 BRANCHIFNOT 2674 - 2671 ATOM0 + 2671 ATOM0 2672 RETURN 3 - 2674 CONST0 - 2675 PUSHACC3 + 2674 CONST0 + 2675 PUSHACC3 2676 C_CALL2 array_unsafe_get - 2678 PUSHACC2 - 2679 APPLY1 - 2680 PUSHACC1 + 2678 PUSHACC2 + 2679 APPLY1 + 2680 PUSHACC1 2681 C_CALL2 make_vect - 2683 PUSHCONST1 - 2684 PUSHACC2 + 2683 PUSHCONST1 + 2684 PUSHACC2 2685 OFFSETINT -1 - 2687 PUSH + 2687 PUSH 2688 BRANCH 2706 - 2690 CHECK_SIGNALS - 2691 ACC1 - 2692 PUSHACC6 + 2690 CHECK_SIGNALS + 2691 ACC1 + 2692 PUSHACC6 2693 C_CALL2 array_unsafe_get - 2695 PUSHACC5 - 2696 APPLY1 - 2697 PUSHACC2 - 2698 PUSHACC4 + 2695 PUSHACC5 + 2696 APPLY1 + 2697 PUSHACC2 + 2698 PUSHACC4 2699 C_CALL3 array_unsafe_set - 2701 ACC1 + 2701 ACC1 2702 OFFSETINT 1 2704 ASSIGN 1 - 2706 ACC0 - 2707 PUSHACC2 - 2708 LEINT + 2706 ACC0 + 2707 PUSHACC2 + 2708 LEINT 2709 BRANCHIF 2690 - 2711 CONST0 + 2711 CONST0 2712 POP 2 - 2714 ACC0 + 2714 ACC0 2715 RETURN 4 - 2717 RESTART + 2717 RESTART 2718 GRAB 1 - 2720 CONST0 - 2721 PUSHACC2 - 2722 VECTLENGTH + 2720 CONST0 + 2721 PUSHACC2 + 2722 VECTLENGTH 2723 OFFSETINT -1 - 2725 PUSH + 2725 PUSH 2726 BRANCH 2740 - 2728 CHECK_SIGNALS - 2729 ACC1 - 2730 PUSHACC4 + 2728 CHECK_SIGNALS + 2729 ACC1 + 2730 PUSHACC4 2731 C_CALL2 array_unsafe_get - 2733 PUSHACC3 - 2734 APPLY1 - 2735 ACC1 + 2733 PUSHACC3 + 2734 APPLY1 + 2735 ACC1 2736 OFFSETINT 1 2738 ASSIGN 1 - 2740 ACC0 - 2741 PUSHACC2 - 2742 LEINT + 2740 ACC0 + 2741 PUSHACC2 + 2742 LEINT 2743 BRANCHIF 2728 - 2745 CONST0 + 2745 CONST0 2746 RETURN 4 - 2748 RESTART + 2748 RESTART 2749 GRAB 4 - 2751 CONST0 - 2752 PUSHACC5 - 2753 LTINT + 2751 CONST0 + 2752 PUSHACC5 + 2753 LTINT 2754 BRANCHIF 2782 - 2756 CONST0 - 2757 PUSHACC2 - 2758 LTINT + 2756 CONST0 + 2757 PUSHACC2 + 2758 LTINT 2759 BRANCHIF 2782 - 2761 ACC0 - 2762 VECTLENGTH - 2763 PUSHACC5 - 2764 PUSHACC3 - 2765 ADDINT - 2766 GTINT + 2761 ACC0 + 2762 VECTLENGTH + 2763 PUSHACC5 + 2764 PUSHACC3 + 2765 ADDINT + 2766 GTINT 2767 BRANCHIF 2782 - 2769 CONST0 - 2770 PUSHACC4 - 2771 LTINT + 2769 CONST0 + 2770 PUSHACC4 + 2771 LTINT 2772 BRANCHIF 2782 - 2774 ACC2 - 2775 VECTLENGTH - 2776 PUSHACC5 - 2777 PUSHACC5 - 2778 ADDINT - 2779 GTINT + 2774 ACC2 + 2775 VECTLENGTH + 2776 PUSHACC5 + 2777 PUSHACC5 + 2778 ADDINT + 2779 GTINT 2780 BRANCHIFNOT 2789 2782 GETGLOBAL "Array.blit" 2784 PUSHGETGLOBALFIELD Pervasives, 2 2787 APPTERM1 6 - 2789 ACC3 - 2790 PUSHACC2 - 2791 LTINT + 2789 ACC3 + 2790 PUSHACC2 + 2791 LTINT 2792 BRANCHIFNOT 2827 - 2794 ACC4 + 2794 ACC4 2795 OFFSETINT -1 - 2797 PUSHCONST0 - 2798 PUSH + 2797 PUSHCONST0 + 2798 PUSH 2799 BRANCH 2819 - 2801 CHECK_SIGNALS - 2802 ACC1 - 2803 PUSHACC4 - 2804 ADDINT - 2805 PUSHACC3 + 2801 CHECK_SIGNALS + 2802 ACC1 + 2803 PUSHACC4 + 2804 ADDINT + 2805 PUSHACC3 2806 C_CALL2 array_unsafe_get - 2808 PUSHACC2 - 2809 PUSHACC7 - 2810 ADDINT - 2811 PUSHACC6 + 2808 PUSHACC2 + 2809 PUSHACC7 + 2810 ADDINT + 2811 PUSHACC6 2812 C_CALL3 array_unsafe_set - 2814 ACC1 + 2814 ACC1 2815 OFFSETINT -1 2817 ASSIGN 1 - 2819 ACC0 - 2820 PUSHACC2 - 2821 GEINT + 2819 ACC0 + 2820 PUSHACC2 + 2821 GEINT 2822 BRANCHIF 2801 - 2824 CONST0 + 2824 CONST0 2825 RETURN 7 - 2827 CONST0 - 2828 PUSHACC5 + 2827 CONST0 + 2828 PUSHACC5 2829 OFFSETINT -1 - 2831 PUSH + 2831 PUSH 2832 BRANCH 2852 - 2834 CHECK_SIGNALS - 2835 ACC1 - 2836 PUSHACC4 - 2837 ADDINT - 2838 PUSHACC3 + 2834 CHECK_SIGNALS + 2835 ACC1 + 2836 PUSHACC4 + 2837 ADDINT + 2838 PUSHACC3 2839 C_CALL2 array_unsafe_get - 2841 PUSHACC2 - 2842 PUSHACC7 - 2843 ADDINT - 2844 PUSHACC6 + 2841 PUSHACC2 + 2842 PUSHACC7 + 2843 ADDINT + 2844 PUSHACC6 2845 C_CALL3 array_unsafe_set - 2847 ACC1 + 2847 ACC1 2848 OFFSETINT 1 2850 ASSIGN 1 - 2852 ACC0 - 2853 PUSHACC2 - 2854 LEINT + 2852 ACC0 + 2853 PUSHACC2 + 2854 LEINT 2855 BRANCHIF 2834 - 2857 CONST0 + 2857 CONST0 2858 RETURN 7 - 2860 RESTART + 2860 RESTART 2861 GRAB 3 - 2863 CONST0 - 2864 PUSHACC2 - 2865 LTINT + 2863 CONST0 + 2864 PUSHACC2 + 2865 LTINT 2866 BRANCHIF 2881 - 2868 CONST0 - 2869 PUSHACC3 - 2870 LTINT + 2868 CONST0 + 2869 PUSHACC3 + 2870 LTINT 2871 BRANCHIF 2881 - 2873 ACC0 - 2874 VECTLENGTH - 2875 PUSHACC3 - 2876 PUSHACC3 - 2877 ADDINT - 2878 GTINT + 2873 ACC0 + 2874 VECTLENGTH + 2875 PUSHACC3 + 2876 PUSHACC3 + 2877 ADDINT + 2878 GTINT 2879 BRANCHIFNOT 2888 2881 GETGLOBAL "Array.fill" 2883 PUSHGETGLOBALFIELD Pervasives, 2 2886 APPTERM1 5 - 2888 ACC1 - 2889 PUSHACC3 - 2890 PUSHACC3 - 2891 ADDINT + 2888 ACC1 + 2889 PUSHACC3 + 2890 PUSHACC3 + 2891 ADDINT 2892 OFFSETINT -1 - 2894 PUSH + 2894 PUSH 2895 BRANCH 2908 - 2897 CHECK_SIGNALS - 2898 ACC5 - 2899 PUSHACC2 - 2900 PUSHACC4 + 2897 CHECK_SIGNALS + 2898 ACC5 + 2899 PUSHACC2 + 2900 PUSHACC4 2901 C_CALL3 array_unsafe_set - 2903 ACC1 + 2903 ACC1 2904 OFFSETINT 1 2906 ASSIGN 1 - 2908 ACC0 - 2909 PUSHACC2 - 2910 LEINT + 2908 ACC0 + 2909 PUSHACC2 + 2910 LEINT 2911 BRANCHIF 2897 - 2913 CONST0 + 2913 CONST0 2914 RETURN 6 - 2916 RESTART + 2916 RESTART 2917 GRAB 2 - 2919 CONST0 - 2920 PUSHACC2 - 2921 LTINT + 2919 CONST0 + 2920 PUSHACC2 + 2921 LTINT 2922 BRANCHIF 2937 - 2924 CONST0 - 2925 PUSHACC3 - 2926 LTINT + 2924 CONST0 + 2925 PUSHACC3 + 2926 LTINT 2927 BRANCHIF 2937 - 2929 ACC0 - 2930 VECTLENGTH - 2931 PUSHACC3 - 2932 PUSHACC3 - 2933 ADDINT - 2934 GTINT + 2929 ACC0 + 2930 VECTLENGTH + 2931 PUSHACC3 + 2932 PUSHACC3 + 2933 ADDINT + 2934 GTINT 2935 BRANCHIFNOT 2944 2937 GETGLOBAL "Array.sub" 2939 PUSHGETGLOBALFIELD Pervasives, 2 2942 APPTERM1 4 - 2944 CONST0 - 2945 PUSHACC3 - 2946 EQ + 2944 CONST0 + 2945 PUSHACC3 + 2946 EQ 2947 BRANCHIFNOT 2952 - 2949 ATOM0 + 2949 ATOM0 2950 RETURN 3 - 2952 ACC1 - 2953 PUSHACC1 + 2952 ACC1 + 2953 PUSHACC1 2954 C_CALL2 array_unsafe_get - 2956 PUSHACC3 + 2956 PUSHACC3 2957 C_CALL2 make_vect - 2959 PUSHCONST1 - 2960 PUSHACC4 + 2959 PUSHCONST1 + 2960 PUSHACC4 2961 OFFSETINT -1 - 2963 PUSH + 2963 PUSH 2964 BRANCH 2982 - 2966 CHECK_SIGNALS - 2967 ACC1 - 2968 PUSHACC5 - 2969 ADDINT - 2970 PUSHACC4 + 2966 CHECK_SIGNALS + 2967 ACC1 + 2968 PUSHACC5 + 2969 ADDINT + 2970 PUSHACC4 2971 C_CALL2 array_unsafe_get - 2973 PUSHACC2 - 2974 PUSHACC4 + 2973 PUSHACC2 + 2974 PUSHACC4 2975 C_CALL3 array_unsafe_set - 2977 ACC1 + 2977 ACC1 2978 OFFSETINT 1 2980 ASSIGN 1 - 2982 ACC0 - 2983 PUSHACC2 - 2984 LEINT + 2982 ACC0 + 2983 PUSHACC2 + 2984 LEINT 2985 BRANCHIF 2966 - 2987 CONST0 + 2987 CONST0 2988 POP 2 - 2990 ACC0 + 2990 ACC0 2991 RETURN 4 - 2993 ACC0 + 2993 ACC0 2994 BRANCHIFNOT 3017 - 2996 ACC0 - 2997 GETFIELD0 - 2998 PUSHCONST0 - 2999 PUSHACC1 - 3000 VECTLENGTH - 3001 GTINT + 2996 ACC0 + 2997 GETFIELD0 + 2998 PUSHCONST0 + 2999 PUSHACC1 + 3000 VECTLENGTH + 3001 GTINT 3002 BRANCHIFNOT 3012 - 3004 ENVACC2 - 3005 PUSHCONST0 - 3006 PUSHACC2 + 3004 ENVACC2 + 3005 PUSHCONST0 + 3006 PUSHACC2 3007 C_CALL2 array_unsafe_get - 3009 PUSHENVACC1 + 3009 PUSHENVACC1 3010 APPTERM2 4 - 3012 ACC1 - 3013 GETFIELD1 - 3014 PUSHOFFSETCLOSURE0 + 3012 ACC1 + 3013 GETFIELD1 + 3014 PUSHOFFSETCLOSURE0 3015 APPTERM1 3 - 3017 ATOM0 + 3017 ATOM0 3018 RETURN 1 - 3020 ACC0 - 3021 PUSHENVACC1 + 3020 ACC0 + 3021 PUSHENVACC1 3022 CLOSUREREC 2, 2993 - 3026 ACC1 - 3027 PUSHACC1 + 3026 ACC1 + 3027 PUSHACC1 3028 APPTERM1 3 - 3030 CONST0 - 3031 PUSHACC1 - 3032 VECTLENGTH + 3030 CONST0 + 3031 PUSHACC1 + 3032 VECTLENGTH 3033 OFFSETINT -1 - 3035 PUSH + 3035 PUSH 3036 BRANCH 3056 - 3038 CHECK_SIGNALS - 3039 ACC1 - 3040 PUSHACC3 + 3038 CHECK_SIGNALS + 3039 ACC1 + 3040 PUSHACC3 3041 C_CALL2 array_unsafe_get - 3043 PUSHENVACC2 - 3044 GETFIELD0 - 3045 PUSHENVACC1 + 3043 PUSHENVACC2 + 3044 GETFIELD0 + 3045 PUSHENVACC1 3046 C_CALL3 array_unsafe_set - 3048 ENVACC2 + 3048 ENVACC2 3049 OFFSETREF 1 - 3051 ACC1 + 3051 ACC1 3052 OFFSETINT 1 3054 ASSIGN 1 - 3056 ACC0 - 3057 PUSHACC2 - 3058 LEINT + 3056 ACC0 + 3057 PUSHACC2 + 3058 LEINT 3059 BRANCHIF 3038 - 3061 CONST0 + 3061 CONST0 3062 RETURN 3 - 3064 RESTART + 3064 RESTART 3065 GRAB 1 - 3067 ACC1 - 3068 VECTLENGTH - 3069 PUSHACC1 - 3070 ADDINT + 3067 ACC1 + 3068 VECTLENGTH + 3069 PUSHACC1 + 3070 ADDINT 3071 RETURN 2 - 3073 RESTART + 3073 RESTART 3074 GRAB 1 - 3076 ACC1 - 3077 PUSHCONST0 - 3078 PUSH + 3076 ACC1 + 3077 PUSHCONST0 + 3078 PUSH 3079 CLOSURE 0, 3065 3082 PUSHGETGLOBALFIELD List, 12 - 3085 APPLY3 - 3086 PUSHACC1 - 3087 PUSHACC1 + 3085 APPLY3 + 3086 PUSHACC1 + 3087 PUSHACC1 3088 C_CALL2 make_vect - 3090 PUSHCONST0 + 3090 PUSHCONST0 3091 MAKEBLOCK1 0 - 3093 PUSHACC4 - 3094 PUSHACC1 - 3095 PUSHACC3 + 3093 PUSHACC4 + 3094 PUSHACC1 + 3095 PUSHACC3 3096 CLOSURE 2, 3030 3099 PUSHGETGLOBALFIELD List, 9 - 3102 APPLY2 - 3103 ACC1 + 3102 APPLY2 + 3103 ACC1 3104 RETURN 5 - 3106 RESTART + 3106 RESTART 3107 GRAB 1 - 3109 ACC0 - 3110 VECTLENGTH - 3111 PUSHACC2 - 3112 VECTLENGTH - 3113 PUSHCONST0 - 3114 PUSHACC2 - 3115 EQ + 3109 ACC0 + 3110 VECTLENGTH + 3111 PUSHACC2 + 3112 VECTLENGTH + 3113 PUSHCONST0 + 3114 PUSHACC2 + 3115 EQ 3116 BRANCHIFNOT 3126 - 3118 CONST0 - 3119 PUSHACC1 - 3120 EQ + 3118 CONST0 + 3119 PUSHACC1 + 3120 EQ 3121 BRANCHIFNOT 3126 - 3123 ATOM0 + 3123 ATOM0 3124 RETURN 4 - 3126 CONST0 - 3127 PUSHCONST0 - 3128 PUSHACC3 - 3129 GTINT + 3126 CONST0 + 3127 PUSHCONST0 + 3128 PUSHACC3 + 3129 GTINT 3130 BRANCHIFNOT 3135 - 3132 ACC3 + 3132 ACC3 3133 BRANCH 3136 - 3135 ACC4 + 3135 ACC4 3136 C_CALL2 array_unsafe_get - 3138 PUSHACC1 - 3139 PUSHACC3 - 3140 ADDINT + 3138 PUSHACC1 + 3139 PUSHACC3 + 3140 ADDINT 3141 C_CALL2 make_vect - 3143 PUSHCONST0 - 3144 PUSHACC3 + 3143 PUSHCONST0 + 3144 PUSHACC3 3145 OFFSETINT -1 - 3147 PUSH + 3147 PUSH 3148 BRANCH 3164 - 3150 CHECK_SIGNALS - 3151 ACC1 - 3152 PUSHACC6 + 3150 CHECK_SIGNALS + 3151 ACC1 + 3152 PUSHACC6 3153 C_CALL2 array_unsafe_get - 3155 PUSHACC2 - 3156 PUSHACC4 + 3155 PUSHACC2 + 3156 PUSHACC4 3157 C_CALL3 array_unsafe_set - 3159 ACC1 + 3159 ACC1 3160 OFFSETINT 1 3162 ASSIGN 1 - 3164 ACC0 - 3165 PUSHACC2 - 3166 LEINT + 3164 ACC0 + 3165 PUSHACC2 + 3166 LEINT 3167 BRANCHIF 3150 - 3169 CONST0 + 3169 CONST0 3170 POP 2 - 3172 CONST0 - 3173 PUSHACC2 + 3172 CONST0 + 3173 PUSHACC2 3174 OFFSETINT -1 - 3176 PUSH + 3176 PUSH 3177 BRANCH 3195 - 3179 CHECK_SIGNALS - 3180 ACC1 - 3181 PUSHACC7 + 3179 CHECK_SIGNALS + 3180 ACC1 + 3181 PUSHACC7 3182 C_CALL2 array_unsafe_get - 3184 PUSHACC5 - 3185 PUSHACC3 - 3186 ADDINT - 3187 PUSHACC4 + 3184 PUSHACC5 + 3185 PUSHACC3 + 3186 ADDINT + 3187 PUSHACC4 3188 C_CALL3 array_unsafe_set - 3190 ACC1 + 3190 ACC1 3191 OFFSETINT 1 3193 ASSIGN 1 - 3195 ACC0 - 3196 PUSHACC2 - 3197 LEINT + 3195 ACC0 + 3196 PUSHACC2 + 3197 LEINT 3198 BRANCHIF 3179 - 3200 CONST0 + 3200 CONST0 3201 POP 2 - 3203 ACC0 + 3203 ACC0 3204 RETURN 5 - 3206 ACC0 - 3207 VECTLENGTH - 3208 PUSHCONST0 - 3209 PUSHACC1 - 3210 EQ + 3206 ACC0 + 3207 VECTLENGTH + 3208 PUSHCONST0 + 3209 PUSHACC1 + 3210 EQ 3211 BRANCHIFNOT 3216 - 3213 ATOM0 + 3213 ATOM0 3214 RETURN 2 - 3216 CONST0 - 3217 PUSHACC2 + 3216 CONST0 + 3217 PUSHACC2 3218 C_CALL2 array_unsafe_get - 3220 PUSHACC1 + 3220 PUSHACC1 3221 C_CALL2 make_vect - 3223 PUSHCONST1 - 3224 PUSHACC2 + 3223 PUSHCONST1 + 3224 PUSHACC2 3225 OFFSETINT -1 - 3227 PUSH + 3227 PUSH 3228 BRANCH 3244 - 3230 CHECK_SIGNALS - 3231 ACC1 - 3232 PUSHACC5 + 3230 CHECK_SIGNALS + 3231 ACC1 + 3232 PUSHACC5 3233 C_CALL2 array_unsafe_get - 3235 PUSHACC2 - 3236 PUSHACC4 + 3235 PUSHACC2 + 3236 PUSHACC4 3237 C_CALL3 array_unsafe_set - 3239 ACC1 + 3239 ACC1 3240 OFFSETINT 1 3242 ASSIGN 1 - 3244 ACC0 - 3245 PUSHACC2 - 3246 LEINT + 3244 ACC0 + 3245 PUSHACC2 + 3246 LEINT 3247 BRANCHIF 3230 - 3249 CONST0 + 3249 CONST0 3250 POP 2 - 3252 ACC0 + 3252 ACC0 3253 RETURN 3 - 3255 RESTART + 3255 RESTART 3256 GRAB 2 - 3258 ATOM0 - 3259 PUSHACC1 + 3258 ATOM0 + 3259 PUSHACC1 3260 C_CALL2 make_vect - 3262 PUSHCONST0 - 3263 PUSHACC2 + 3262 PUSHCONST0 + 3263 PUSHACC2 3264 OFFSETINT -1 - 3266 PUSH + 3266 PUSH 3267 BRANCH 3282 - 3269 CHECK_SIGNALS - 3270 ACC5 - 3271 PUSHACC5 + 3269 CHECK_SIGNALS + 3270 ACC5 + 3271 PUSHACC5 3272 C_CALL2 make_vect - 3274 PUSHACC2 - 3275 PUSHACC4 - 3276 SETVECTITEM - 3277 ACC1 + 3274 PUSHACC2 + 3275 PUSHACC4 + 3276 SETVECTITEM + 3277 ACC1 3278 OFFSETINT 1 3280 ASSIGN 1 - 3282 ACC0 - 3283 PUSHACC2 - 3284 LEINT + 3282 ACC0 + 3283 PUSHACC2 + 3284 LEINT 3285 BRANCHIF 3269 - 3287 CONST0 + 3287 CONST0 3288 POP 2 - 3290 ACC0 + 3290 ACC0 3291 RETURN 4 - 3293 RESTART + 3293 RESTART 3294 GRAB 1 - 3296 CONST0 - 3297 PUSHACC1 - 3298 EQ + 3296 CONST0 + 3297 PUSHACC1 + 3298 EQ 3299 BRANCHIFNOT 3304 - 3301 ATOM0 + 3301 ATOM0 3302 RETURN 2 - 3304 CONST0 - 3305 PUSHACC2 - 3306 APPLY1 - 3307 PUSHACC1 + 3304 CONST0 + 3305 PUSHACC2 + 3306 APPLY1 + 3307 PUSHACC1 3308 C_CALL2 make_vect - 3310 PUSHCONST1 - 3311 PUSHACC2 + 3310 PUSHCONST1 + 3311 PUSHACC2 3312 OFFSETINT -1 - 3314 PUSH + 3314 PUSH 3315 BRANCH 3330 - 3317 CHECK_SIGNALS - 3318 ACC1 - 3319 PUSHACC5 - 3320 APPLY1 - 3321 PUSHACC2 - 3322 PUSHACC4 + 3317 CHECK_SIGNALS + 3318 ACC1 + 3319 PUSHACC5 + 3320 APPLY1 + 3321 PUSHACC2 + 3322 PUSHACC4 3323 C_CALL3 array_unsafe_set - 3325 ACC1 + 3325 ACC1 3326 OFFSETINT 1 3328 ASSIGN 1 - 3330 ACC0 - 3331 PUSHACC2 - 3332 LEINT + 3330 ACC0 + 3331 PUSHACC2 + 3332 LEINT 3333 BRANCHIF 3317 - 3335 CONST0 + 3335 CONST0 3336 POP 2 - 3338 ACC0 + 3338 ACC0 3339 RETURN 3 3341 CLOSURE 0, 3294 - 3344 PUSH + 3344 PUSH 3345 CLOSURE 0, 3256 - 3348 PUSH + 3348 PUSH 3349 CLOSURE 0, 3206 - 3352 PUSH + 3352 PUSH 3353 CLOSURE 0, 3107 - 3356 PUSH + 3356 PUSH 3357 CLOSURE 0, 3074 - 3360 PUSHACC0 + 3360 PUSHACC0 3361 CLOSURE 1, 3020 - 3364 PUSH + 3364 PUSH 3365 CLOSURE 0, 2917 - 3368 PUSH + 3368 PUSH 3369 CLOSURE 0, 2861 - 3372 PUSH + 3372 PUSH 3373 CLOSURE 0, 2749 - 3376 PUSH + 3376 PUSH 3377 CLOSURE 0, 2718 - 3380 PUSH + 3380 PUSH 3381 CLOSURE 0, 2662 - 3384 PUSH + 3384 PUSH 3385 CLOSURE 0, 2630 - 3388 PUSH + 3388 PUSH 3389 CLOSURE 0, 2572 - 3392 PUSH + 3392 PUSH 3393 CLOSURE 0, 2558 - 3396 PUSH + 3396 PUSH 3397 CLOSURE 0, 2505 - 3400 PUSH + 3400 PUSH 3401 CLOSURE 0, 2445 - 3404 PUSH + 3404 PUSH 3405 CLOSURE 0, 2407 - 3408 PUSHACC0 - 3409 PUSHACC2 - 3410 PUSHACC6 + 3408 PUSHACC0 + 3409 PUSHACC2 + 3410 PUSHACC6 3411 PUSHACC 8 3413 PUSHACC 10 3415 PUSHACC 12 @@ -2284,48 +2284,48 @@ if o#m <> 23 then raise Not_found 3442 POP 17 3444 SETGLOBAL Array 3446 BRANCH 3480 - 3448 ENVACC1 + 3448 ENVACC1 3449 MAKEBLOCK1 0 - 3451 RAISE - 3452 ACC0 + 3451 RAISE + 3452 ACC0 3453 BRANCHIFNOT 3465 - 3455 ENVACC3 + 3455 ENVACC3 3456 CLOSURE 1, 3448 3459 MAKEBLOCK1 0 - 3461 PUSHENVACC2 - 3462 PUSHENVACC1 + 3461 PUSHENVACC2 + 3462 PUSHENVACC1 3463 APPTERM2 3 - 3465 CONST0 - 3466 PUSHENVACC2 - 3467 PUSHENVACC1 + 3465 CONST0 + 3466 PUSHENVACC2 + 3467 PUSHENVACC1 3468 APPTERM2 3 - 3470 RESTART + 3470 RESTART 3471 GRAB 1 - 3473 ACC1 - 3474 PUSHACC1 + 3473 ACC1 + 3474 PUSHACC1 3475 C_CALL2 install_signal_handler - 3477 CONST0 + 3477 CONST0 3478 RETURN 2 - 3480 CONST0 + 3480 CONST0 3481 C_CALL1 sys_get_argv - 3483 PUSHCONST0 + 3483 PUSHCONST0 3484 C_CALL1 sys_get_config - 3486 PUSHACC0 - 3487 GETFIELD1 - 3488 PUSHACC0 + 3486 PUSHACC0 + 3487 GETFIELD1 + 3488 PUSHACC0 3489 OFFSETINT -10 - 3491 PUSHCONST1 - 3492 LSLINT + 3491 PUSHCONST1 + 3492 LSLINT 3493 OFFSETINT -1 - 3495 PUSHACC0 + 3495 PUSHACC0 3496 PUSHCONSTINT 8 - 3498 PUSHACC3 - 3499 DIVINT - 3500 MULINT + 3498 PUSHACC3 + 3499 DIVINT + 3500 MULINT 3501 OFFSETINT -1 - 3503 PUSHCONST0 + 3503 PUSHCONST0 3504 MAKEBLOCK1 0 - 3506 PUSH + 3506 PUSH 3507 CLOSURE 0, 3471 3510 PUSHCONSTINT -1 3512 PUSHCONSTINT -2 @@ -2350,14 +2350,14 @@ if o#m <> 23 then raise Not_found 3550 PUSHCONSTINT -21 3552 PUSHGETGLOBAL "Sys.Break" 3554 MAKEBLOCK1 0 - 3556 PUSHACC0 + 3556 PUSHACC0 3557 PUSHACC 17 3559 PUSHACC 24 3561 CLOSURE 3, 3452 - 3564 PUSHACC0 - 3565 PUSHACC2 - 3566 PUSHACC4 - 3567 PUSHACC6 + 3564 PUSHACC0 + 3565 PUSHACC2 + 3566 PUSHACC4 + 3567 PUSHACC6 3568 PUSHACC 8 3570 PUSHACC 10 3572 PUSHACC 12 @@ -2382,703 +2382,703 @@ if o#m <> 23 then raise Not_found 3610 PUSHACC 50 3612 PUSHACC 53 3614 PUSHACC 55 - 3616 GETFIELD0 + 3616 GETFIELD0 3617 PUSHACC 52 3619 PUSHACC 58 3621 MAKEBLOCK 30, 0 3624 POP 30 3626 SETGLOBAL Sys 3628 BRANCH 4510 - 3630 RESTART + 3630 RESTART 3631 GRAB 1 - 3633 CONST0 - 3634 PUSHACC1 - 3635 LTINT + 3633 CONST0 + 3634 PUSHACC1 + 3635 LTINT 3636 BRANCHIFNOT 3641 - 3638 CONST1 + 3638 CONST1 3639 RETURN 2 - 3641 ACC1 + 3641 ACC1 3642 BRANCHIFNOT 3652 - 3644 ACC1 - 3645 GETFIELD2 - 3646 PUSHACC1 + 3644 ACC1 + 3645 GETFIELD2 + 3646 PUSHACC1 3647 OFFSETINT -1 - 3649 PUSHOFFSETCLOSURE0 + 3649 PUSHOFFSETCLOSURE0 3650 APPTERM2 4 3652 RETURN 2 - 3654 ACC0 + 3654 ACC0 3655 BRANCHIFNOT 3670 - 3657 ENVACC2 - 3658 PUSHACC1 - 3659 GETFIELD0 - 3660 PUSHENVACC1 - 3661 GETFIELD0 - 3662 APPLY2 + 3657 ENVACC2 + 3658 PUSHACC1 + 3659 GETFIELD0 + 3660 PUSHENVACC1 + 3661 GETFIELD0 + 3662 APPLY2 3663 BRANCHIF 3670 - 3665 ACC0 - 3666 GETFIELD2 - 3667 PUSHOFFSETCLOSURE0 + 3665 ACC0 + 3666 GETFIELD2 + 3667 PUSHOFFSETCLOSURE0 3668 APPTERM1 2 3670 RETURN 1 - 3672 RESTART + 3672 RESTART 3673 GRAB 1 - 3675 ACC1 - 3676 PUSHENVACC1 + 3675 ACC1 + 3676 PUSHENVACC1 3677 CLOSUREREC 2, 3654 - 3681 ACC1 - 3682 GETFIELD1 - 3683 VECTLENGTH - 3684 PUSHACC3 - 3685 PUSHENVACC1 - 3686 GETFIELD1 - 3687 APPLY1 - 3688 MODINT - 3689 PUSHACC2 - 3690 GETFIELD1 + 3681 ACC1 + 3682 GETFIELD1 + 3683 VECTLENGTH + 3684 PUSHACC3 + 3685 PUSHENVACC1 + 3686 GETFIELD1 + 3687 APPLY1 + 3688 MODINT + 3689 PUSHACC2 + 3690 GETFIELD1 3691 C_CALL2 array_get_addr - 3693 PUSHACC1 + 3693 PUSHACC1 3694 APPTERM1 4 - 3696 ACC0 + 3696 ACC0 3697 BRANCHIFNOT 3722 - 3699 ACC0 - 3700 GETFIELD2 - 3701 PUSHENVACC2 - 3702 PUSHACC2 - 3703 GETFIELD0 - 3704 PUSHENVACC1 - 3705 GETFIELD0 - 3706 APPLY2 + 3699 ACC0 + 3700 GETFIELD2 + 3701 PUSHENVACC2 + 3702 PUSHACC2 + 3703 GETFIELD0 + 3704 PUSHENVACC1 + 3705 GETFIELD0 + 3706 APPLY2 3707 BRANCHIFNOT 3718 - 3709 ACC0 - 3710 PUSHOFFSETCLOSURE0 - 3711 APPLY1 - 3712 PUSHACC2 - 3713 GETFIELD1 + 3709 ACC0 + 3710 PUSHOFFSETCLOSURE0 + 3711 APPLY1 + 3712 PUSHACC2 + 3713 GETFIELD1 3714 MAKEBLOCK2 0 3716 RETURN 2 - 3718 ACC0 - 3719 PUSHOFFSETCLOSURE0 + 3718 ACC0 + 3719 PUSHOFFSETCLOSURE0 3720 APPTERM1 3 3722 RETURN 1 - 3724 RESTART + 3724 RESTART 3725 GRAB 1 - 3727 ACC1 - 3728 PUSHENVACC1 + 3727 ACC1 + 3728 PUSHENVACC1 3729 CLOSUREREC 2, 3696 - 3733 ACC1 - 3734 GETFIELD1 - 3735 VECTLENGTH - 3736 PUSHACC3 - 3737 PUSHENVACC1 - 3738 GETFIELD1 - 3739 APPLY1 - 3740 MODINT - 3741 PUSHACC2 - 3742 GETFIELD1 + 3733 ACC1 + 3734 GETFIELD1 + 3735 VECTLENGTH + 3736 PUSHACC3 + 3737 PUSHENVACC1 + 3738 GETFIELD1 + 3739 APPLY1 + 3740 MODINT + 3741 PUSHACC2 + 3742 GETFIELD1 3743 C_CALL2 array_get_addr - 3745 PUSHACC1 + 3745 PUSHACC1 3746 APPTERM1 4 - 3748 ACC0 + 3748 ACC0 3749 BRANCHIFNOT 3768 - 3751 ACC0 - 3752 GETFIELD0 - 3753 PUSHENVACC2 - 3754 PUSHENVACC1 - 3755 GETFIELD0 - 3756 APPLY2 + 3751 ACC0 + 3752 GETFIELD0 + 3753 PUSHENVACC2 + 3754 PUSHENVACC1 + 3755 GETFIELD0 + 3756 APPLY2 3757 BRANCHIFNOT 3763 - 3759 ACC0 - 3760 GETFIELD1 + 3759 ACC0 + 3760 GETFIELD1 3761 RETURN 1 - 3763 ACC0 - 3764 GETFIELD2 - 3765 PUSHOFFSETCLOSURE0 + 3763 ACC0 + 3764 GETFIELD2 + 3765 PUSHOFFSETCLOSURE0 3766 APPTERM1 2 3768 GETGLOBAL Not_found 3770 MAKEBLOCK1 0 - 3772 RAISE - 3773 RESTART + 3772 RAISE + 3773 RESTART 3774 GRAB 1 - 3776 ACC0 - 3777 GETFIELD1 - 3778 VECTLENGTH - 3779 PUSHACC2 - 3780 PUSHENVACC1 - 3781 GETFIELD1 - 3782 APPLY1 - 3783 MODINT - 3784 PUSHACC1 - 3785 GETFIELD1 + 3776 ACC0 + 3777 GETFIELD1 + 3778 VECTLENGTH + 3779 PUSHACC2 + 3780 PUSHENVACC1 + 3781 GETFIELD1 + 3782 APPLY1 + 3783 MODINT + 3784 PUSHACC1 + 3785 GETFIELD1 3786 C_CALL2 array_get_addr - 3788 PUSHACC0 + 3788 PUSHACC0 3789 BRANCHIFNOT 3858 - 3791 ACC0 - 3792 GETFIELD2 - 3793 PUSHACC1 - 3794 GETFIELD0 - 3795 PUSHACC4 - 3796 PUSHENVACC1 - 3797 GETFIELD0 - 3798 APPLY2 + 3791 ACC0 + 3792 GETFIELD2 + 3793 PUSHACC1 + 3794 GETFIELD0 + 3795 PUSHACC4 + 3796 PUSHENVACC1 + 3797 GETFIELD0 + 3798 APPLY2 3799 BRANCHIFNOT 3805 - 3801 ACC1 - 3802 GETFIELD1 + 3801 ACC1 + 3802 GETFIELD1 3803 RETURN 4 - 3805 ACC0 + 3805 ACC0 3806 BRANCHIFNOT 3853 - 3808 ACC0 - 3809 GETFIELD2 - 3810 PUSHACC1 - 3811 GETFIELD0 - 3812 PUSHACC5 - 3813 PUSHENVACC1 - 3814 GETFIELD0 - 3815 APPLY2 + 3808 ACC0 + 3809 GETFIELD2 + 3810 PUSHACC1 + 3811 GETFIELD0 + 3812 PUSHACC5 + 3813 PUSHENVACC1 + 3814 GETFIELD0 + 3815 APPLY2 3816 BRANCHIFNOT 3822 - 3818 ACC1 - 3819 GETFIELD1 + 3818 ACC1 + 3819 GETFIELD1 3820 RETURN 5 - 3822 ACC0 + 3822 ACC0 3823 BRANCHIFNOT 3848 - 3825 ACC0 - 3826 GETFIELD0 - 3827 PUSHACC5 - 3828 PUSHENVACC1 - 3829 GETFIELD0 - 3830 APPLY2 + 3825 ACC0 + 3826 GETFIELD0 + 3827 PUSHACC5 + 3828 PUSHENVACC1 + 3829 GETFIELD0 + 3830 APPLY2 3831 BRANCHIFNOT 3837 - 3833 ACC0 - 3834 GETFIELD1 + 3833 ACC0 + 3834 GETFIELD1 3835 RETURN 5 - 3837 ACC4 - 3838 PUSHENVACC1 + 3837 ACC4 + 3838 PUSHENVACC1 3839 CLOSUREREC 2, 3748 - 3843 ACC1 - 3844 GETFIELD2 - 3845 PUSHACC1 + 3843 ACC1 + 3844 GETFIELD2 + 3845 PUSHACC1 3846 APPTERM1 7 3848 GETGLOBAL Not_found 3850 MAKEBLOCK1 0 - 3852 RAISE + 3852 RAISE 3853 GETGLOBAL Not_found 3855 MAKEBLOCK1 0 - 3857 RAISE + 3857 RAISE 3858 GETGLOBAL Not_found 3860 MAKEBLOCK1 0 - 3862 RAISE - 3863 ACC0 + 3862 RAISE + 3863 ACC0 3864 BRANCHIFNOT 3890 - 3866 ACC0 - 3867 GETFIELD0 - 3868 PUSHACC1 - 3869 GETFIELD2 - 3870 PUSHENVACC2 - 3871 PUSHACC2 - 3872 PUSHENVACC1 - 3873 GETFIELD0 - 3874 APPLY2 + 3866 ACC0 + 3867 GETFIELD0 + 3868 PUSHACC1 + 3869 GETFIELD2 + 3870 PUSHENVACC2 + 3871 PUSHACC2 + 3872 PUSHENVACC1 + 3873 GETFIELD0 + 3874 APPLY2 3875 BRANCHIFNOT 3880 - 3877 ACC0 + 3877 ACC0 3878 RETURN 3 - 3880 ACC0 - 3881 PUSHOFFSETCLOSURE0 - 3882 APPLY1 - 3883 PUSHACC3 - 3884 GETFIELD1 - 3885 PUSHACC3 + 3880 ACC0 + 3881 PUSHOFFSETCLOSURE0 + 3882 APPLY1 + 3883 PUSHACC3 + 3884 GETFIELD1 + 3885 PUSHACC3 3886 MAKEBLOCK3 0 3888 POP 2 3890 RETURN 1 - 3892 RESTART + 3892 RESTART 3893 GRAB 1 - 3895 ACC1 - 3896 PUSHENVACC1 + 3895 ACC1 + 3896 PUSHENVACC1 3897 CLOSUREREC 2, 3863 - 3901 ACC1 - 3902 GETFIELD1 - 3903 VECTLENGTH - 3904 PUSHACC3 - 3905 PUSHENVACC1 - 3906 GETFIELD1 - 3907 APPLY1 - 3908 MODINT - 3909 PUSHACC0 - 3910 PUSHACC3 - 3911 GETFIELD1 + 3901 ACC1 + 3902 GETFIELD1 + 3903 VECTLENGTH + 3904 PUSHACC3 + 3905 PUSHENVACC1 + 3906 GETFIELD1 + 3907 APPLY1 + 3908 MODINT + 3909 PUSHACC0 + 3910 PUSHACC3 + 3911 GETFIELD1 3912 C_CALL2 array_get_addr - 3914 PUSHACC2 - 3915 APPLY1 - 3916 PUSHACC1 - 3917 PUSHACC4 - 3918 GETFIELD1 + 3914 PUSHACC2 + 3915 APPLY1 + 3916 PUSHACC1 + 3917 PUSHACC4 + 3918 GETFIELD1 3919 C_CALL3 array_set_addr 3921 RETURN 4 - 3923 RESTART + 3923 RESTART 3924 GRAB 2 - 3926 ACC0 - 3927 GETFIELD1 - 3928 VECTLENGTH - 3929 PUSHACC2 - 3930 PUSHENVACC3 - 3931 GETFIELD1 - 3932 APPLY1 - 3933 MODINT - 3934 PUSHACC0 - 3935 PUSHACC2 - 3936 GETFIELD1 + 3926 ACC0 + 3927 GETFIELD1 + 3928 VECTLENGTH + 3929 PUSHACC2 + 3930 PUSHENVACC3 + 3931 GETFIELD1 + 3932 APPLY1 + 3933 MODINT + 3934 PUSHACC0 + 3935 PUSHACC2 + 3936 GETFIELD1 3937 C_CALL2 array_get_addr - 3939 PUSHACC4 - 3940 PUSHACC4 + 3939 PUSHACC4 + 3940 PUSHACC4 3941 MAKEBLOCK3 0 - 3943 PUSHACC0 - 3944 PUSHACC2 - 3945 PUSHACC4 - 3946 GETFIELD1 + 3943 PUSHACC0 + 3944 PUSHACC2 + 3945 PUSHACC4 + 3946 GETFIELD1 3947 C_CALL3 array_set_addr - 3949 ACC0 - 3950 PUSHACC3 - 3951 GETFIELD0 - 3952 PUSHENVACC2 - 3953 APPLY2 + 3949 ACC0 + 3950 PUSHACC3 + 3951 GETFIELD0 + 3952 PUSHENVACC2 + 3953 APPLY2 3954 BRANCHIFNOT 3962 - 3956 ACC2 - 3957 PUSHENVACC3 - 3958 GETFIELD1 - 3959 PUSHENVACC1 + 3956 ACC2 + 3957 PUSHENVACC3 + 3958 GETFIELD1 + 3959 PUSHENVACC1 3960 APPTERM2 7 3962 RETURN 5 - 3964 ACC0 + 3964 ACC0 3965 PUSHENVACC 4 - 3967 PUSHENVACC3 + 3967 PUSHENVACC3 3968 CLOSURE 3, 3924 - 3971 PUSHACC1 + 3971 PUSHACC1 3972 CLOSURE 1, 3893 - 3975 PUSHACC2 + 3975 PUSHACC2 3976 CLOSURE 1, 3774 - 3979 PUSHACC3 + 3979 PUSHACC3 3980 CLOSURE 1, 3725 - 3983 PUSHACC4 + 3983 PUSHACC4 3984 CLOSURE 1, 3673 3987 PUSHENVACC 5 - 3989 PUSHACC1 - 3990 PUSHACC3 - 3991 PUSHACC5 - 3992 PUSHACC7 + 3989 PUSHACC1 + 3990 PUSHACC3 + 3991 PUSHACC5 + 3992 PUSHACC7 3993 PUSHACC 9 - 3995 PUSHENVACC2 - 3996 PUSHENVACC1 + 3995 PUSHENVACC2 + 3996 PUSHENVACC1 3997 MAKEBLOCK 8, 0 4000 RETURN 6 - 4002 ACC0 + 4002 ACC0 4003 BRANCHIFNOT 4016 - 4005 ACC0 - 4006 GETFIELD1 - 4007 PUSHACC1 - 4008 GETFIELD0 - 4009 PUSHENVACC1 - 4010 APPLY2 - 4011 ACC0 - 4012 GETFIELD2 - 4013 PUSHOFFSETCLOSURE0 + 4005 ACC0 + 4006 GETFIELD1 + 4007 PUSHACC1 + 4008 GETFIELD0 + 4009 PUSHENVACC1 + 4010 APPLY2 + 4011 ACC0 + 4012 GETFIELD2 + 4013 PUSHOFFSETCLOSURE0 4014 APPTERM1 2 4016 RETURN 1 - 4018 RESTART + 4018 RESTART 4019 GRAB 1 - 4021 ACC0 + 4021 ACC0 4022 CLOSUREREC 1, 4002 - 4026 ACC2 - 4027 GETFIELD1 - 4028 PUSHCONST0 - 4029 PUSHACC1 - 4030 VECTLENGTH + 4026 ACC2 + 4027 GETFIELD1 + 4028 PUSHCONST0 + 4029 PUSHACC1 + 4030 VECTLENGTH 4031 OFFSETINT -1 - 4033 PUSH + 4033 PUSH 4034 BRANCH 4048 - 4036 CHECK_SIGNALS - 4037 ACC1 - 4038 PUSHACC3 + 4036 CHECK_SIGNALS + 4037 ACC1 + 4038 PUSHACC3 4039 C_CALL2 array_get_addr - 4041 PUSHACC4 - 4042 APPLY1 - 4043 ACC1 + 4041 PUSHACC4 + 4042 APPLY1 + 4043 ACC1 4044 OFFSETINT 1 4046 ASSIGN 1 - 4048 ACC0 - 4049 PUSHACC2 - 4050 LEINT + 4048 ACC0 + 4049 PUSHACC2 + 4050 LEINT 4051 BRANCHIF 4036 - 4053 CONST0 + 4053 CONST0 4054 RETURN 6 - 4056 ACC0 + 4056 ACC0 4057 BRANCHIFNOT 4071 - 4059 ENVACC1 - 4060 PUSHACC1 - 4061 GETFIELD0 + 4059 ENVACC1 + 4060 PUSHACC1 + 4061 GETFIELD0 4062 C_CALL2 equal 4064 BRANCHIF 4071 - 4066 ACC0 - 4067 GETFIELD2 - 4068 PUSHOFFSETCLOSURE0 + 4066 ACC0 + 4067 GETFIELD2 + 4068 PUSHOFFSETCLOSURE0 4069 APPTERM1 2 4071 RETURN 1 - 4073 RESTART + 4073 RESTART 4074 GRAB 1 - 4076 ACC1 + 4076 ACC1 4077 CLOSUREREC 1, 4056 - 4081 ACC1 - 4082 GETFIELD1 - 4083 VECTLENGTH - 4084 PUSHACC3 - 4085 PUSHENVACC1 - 4086 APPLY1 - 4087 MODINT - 4088 PUSHACC2 - 4089 GETFIELD1 + 4081 ACC1 + 4082 GETFIELD1 + 4083 VECTLENGTH + 4084 PUSHACC3 + 4085 PUSHENVACC1 + 4086 APPLY1 + 4087 MODINT + 4088 PUSHACC2 + 4089 GETFIELD1 4090 C_CALL2 array_get_addr - 4092 PUSHACC1 + 4092 PUSHACC1 4093 APPTERM1 4 - 4095 ACC0 + 4095 ACC0 4096 BRANCHIFNOT 4120 - 4098 ACC0 - 4099 GETFIELD2 - 4100 PUSHENVACC1 - 4101 PUSHACC2 - 4102 GETFIELD0 + 4098 ACC0 + 4099 GETFIELD2 + 4100 PUSHENVACC1 + 4101 PUSHACC2 + 4102 GETFIELD0 4103 C_CALL2 equal 4105 BRANCHIFNOT 4116 - 4107 ACC0 - 4108 PUSHOFFSETCLOSURE0 - 4109 APPLY1 - 4110 PUSHACC2 - 4111 GETFIELD1 + 4107 ACC0 + 4108 PUSHOFFSETCLOSURE0 + 4109 APPLY1 + 4110 PUSHACC2 + 4111 GETFIELD1 4112 MAKEBLOCK2 0 4114 RETURN 2 - 4116 ACC0 - 4117 PUSHOFFSETCLOSURE0 + 4116 ACC0 + 4117 PUSHOFFSETCLOSURE0 4118 APPTERM1 3 4120 RETURN 1 - 4122 RESTART + 4122 RESTART 4123 GRAB 1 - 4125 ACC1 + 4125 ACC1 4126 CLOSUREREC 1, 4095 - 4130 ACC1 - 4131 GETFIELD1 - 4132 VECTLENGTH - 4133 PUSHACC3 - 4134 PUSHENVACC1 - 4135 APPLY1 - 4136 MODINT - 4137 PUSHACC2 - 4138 GETFIELD1 + 4130 ACC1 + 4131 GETFIELD1 + 4132 VECTLENGTH + 4133 PUSHACC3 + 4134 PUSHENVACC1 + 4135 APPLY1 + 4136 MODINT + 4137 PUSHACC2 + 4138 GETFIELD1 4139 C_CALL2 array_get_addr - 4141 PUSHACC1 + 4141 PUSHACC1 4142 APPTERM1 4 - 4144 ACC0 + 4144 ACC0 4145 BRANCHIFNOT 4163 - 4147 ACC0 - 4148 GETFIELD0 - 4149 PUSHENVACC1 + 4147 ACC0 + 4148 GETFIELD0 + 4149 PUSHENVACC1 4150 C_CALL2 equal 4152 BRANCHIFNOT 4158 - 4154 ACC0 - 4155 GETFIELD1 + 4154 ACC0 + 4155 GETFIELD1 4156 RETURN 1 - 4158 ACC0 - 4159 GETFIELD2 - 4160 PUSHOFFSETCLOSURE0 + 4158 ACC0 + 4159 GETFIELD2 + 4160 PUSHOFFSETCLOSURE0 4161 APPTERM1 2 4163 GETGLOBAL Not_found 4165 MAKEBLOCK1 0 - 4167 RAISE - 4168 RESTART + 4167 RAISE + 4168 RESTART 4169 GRAB 1 - 4171 ACC0 - 4172 GETFIELD1 - 4173 VECTLENGTH - 4174 PUSHACC2 - 4175 PUSHENVACC1 - 4176 APPLY1 - 4177 MODINT - 4178 PUSHACC1 - 4179 GETFIELD1 + 4171 ACC0 + 4172 GETFIELD1 + 4173 VECTLENGTH + 4174 PUSHACC2 + 4175 PUSHENVACC1 + 4176 APPLY1 + 4177 MODINT + 4178 PUSHACC1 + 4179 GETFIELD1 4180 C_CALL2 array_get_addr - 4182 PUSHACC0 + 4182 PUSHACC0 4183 BRANCHIFNOT 4248 - 4185 ACC0 - 4186 GETFIELD2 - 4187 PUSHACC1 - 4188 GETFIELD0 - 4189 PUSHACC4 + 4185 ACC0 + 4186 GETFIELD2 + 4187 PUSHACC1 + 4188 GETFIELD0 + 4189 PUSHACC4 4190 C_CALL2 equal 4192 BRANCHIFNOT 4198 - 4194 ACC1 - 4195 GETFIELD1 + 4194 ACC1 + 4195 GETFIELD1 4196 RETURN 4 - 4198 ACC0 + 4198 ACC0 4199 BRANCHIFNOT 4243 - 4201 ACC0 - 4202 GETFIELD2 - 4203 PUSHACC1 - 4204 GETFIELD0 - 4205 PUSHACC5 + 4201 ACC0 + 4202 GETFIELD2 + 4203 PUSHACC1 + 4204 GETFIELD0 + 4205 PUSHACC5 4206 C_CALL2 equal 4208 BRANCHIFNOT 4214 - 4210 ACC1 - 4211 GETFIELD1 + 4210 ACC1 + 4211 GETFIELD1 4212 RETURN 5 - 4214 ACC0 + 4214 ACC0 4215 BRANCHIFNOT 4238 - 4217 ACC0 - 4218 GETFIELD0 - 4219 PUSHACC5 + 4217 ACC0 + 4218 GETFIELD0 + 4219 PUSHACC5 4220 C_CALL2 equal 4222 BRANCHIFNOT 4228 - 4224 ACC0 - 4225 GETFIELD1 + 4224 ACC0 + 4225 GETFIELD1 4226 RETURN 5 - 4228 ACC4 + 4228 ACC4 4229 CLOSUREREC 1, 4144 - 4233 ACC1 - 4234 GETFIELD2 - 4235 PUSHACC1 + 4233 ACC1 + 4234 GETFIELD2 + 4235 PUSHACC1 4236 APPTERM1 7 4238 GETGLOBAL Not_found 4240 MAKEBLOCK1 0 - 4242 RAISE + 4242 RAISE 4243 GETGLOBAL Not_found 4245 MAKEBLOCK1 0 - 4247 RAISE + 4247 RAISE 4248 GETGLOBAL Not_found 4250 MAKEBLOCK1 0 - 4252 RAISE - 4253 ACC0 + 4252 RAISE + 4253 ACC0 4254 BRANCHIFNOT 4279 - 4256 ACC0 - 4257 GETFIELD0 - 4258 PUSHACC1 - 4259 GETFIELD2 - 4260 PUSHENVACC1 - 4261 PUSHACC2 + 4256 ACC0 + 4257 GETFIELD0 + 4258 PUSHACC1 + 4259 GETFIELD2 + 4260 PUSHENVACC1 + 4261 PUSHACC2 4262 C_CALL2 equal 4264 BRANCHIFNOT 4269 - 4266 ACC0 + 4266 ACC0 4267 RETURN 3 - 4269 ACC0 - 4270 PUSHOFFSETCLOSURE0 - 4271 APPLY1 - 4272 PUSHACC3 - 4273 GETFIELD1 - 4274 PUSHACC3 + 4269 ACC0 + 4270 PUSHOFFSETCLOSURE0 + 4271 APPLY1 + 4272 PUSHACC3 + 4273 GETFIELD1 + 4274 PUSHACC3 4275 MAKEBLOCK3 0 4277 POP 2 4279 RETURN 1 - 4281 RESTART + 4281 RESTART 4282 GRAB 1 - 4284 ACC1 + 4284 ACC1 4285 CLOSUREREC 1, 4253 - 4289 ACC1 - 4290 GETFIELD1 - 4291 VECTLENGTH - 4292 PUSHACC3 - 4293 PUSHENVACC1 - 4294 APPLY1 - 4295 MODINT - 4296 PUSHACC0 - 4297 PUSHACC3 - 4298 GETFIELD1 + 4289 ACC1 + 4290 GETFIELD1 + 4291 VECTLENGTH + 4292 PUSHACC3 + 4293 PUSHENVACC1 + 4294 APPLY1 + 4295 MODINT + 4296 PUSHACC0 + 4297 PUSHACC3 + 4298 GETFIELD1 4299 C_CALL2 array_get_addr - 4301 PUSHACC2 - 4302 APPLY1 - 4303 PUSHACC1 - 4304 PUSHACC4 - 4305 GETFIELD1 + 4301 PUSHACC2 + 4302 APPLY1 + 4303 PUSHACC1 + 4304 PUSHACC4 + 4305 GETFIELD1 4306 C_CALL3 array_set_addr 4308 RETURN 4 - 4310 RESTART + 4310 RESTART 4311 GRAB 2 - 4313 ACC0 - 4314 GETFIELD1 - 4315 VECTLENGTH - 4316 PUSHACC2 - 4317 PUSHENVACC1 - 4318 APPLY1 - 4319 MODINT - 4320 PUSHACC0 - 4321 PUSHACC2 - 4322 GETFIELD1 + 4313 ACC0 + 4314 GETFIELD1 + 4315 VECTLENGTH + 4316 PUSHACC2 + 4317 PUSHENVACC1 + 4318 APPLY1 + 4319 MODINT + 4320 PUSHACC0 + 4321 PUSHACC2 + 4322 GETFIELD1 4323 C_CALL2 array_get_addr - 4325 PUSHACC4 - 4326 PUSHACC4 + 4325 PUSHACC4 + 4326 PUSHACC4 4327 MAKEBLOCK3 0 - 4329 PUSHACC0 - 4330 PUSHACC2 - 4331 PUSHACC4 - 4332 GETFIELD1 + 4329 PUSHACC0 + 4330 PUSHACC2 + 4331 PUSHACC4 + 4332 GETFIELD1 4333 C_CALL3 array_set_addr - 4335 ACC0 - 4336 PUSHACC3 - 4337 GETFIELD0 - 4338 PUSHENVACC3 - 4339 APPLY2 + 4335 ACC0 + 4336 PUSHACC3 + 4337 GETFIELD0 + 4338 PUSHENVACC3 + 4339 APPLY2 4340 BRANCHIFNOT 4347 - 4342 ACC2 - 4343 PUSHENVACC1 - 4344 PUSHENVACC2 + 4342 ACC2 + 4343 PUSHENVACC1 + 4344 PUSHENVACC2 4345 APPTERM2 7 4347 RETURN 5 - 4349 ACC0 + 4349 ACC0 4350 BRANCHIFNOT 4378 - 4352 ACC0 - 4353 GETFIELD0 - 4354 PUSHACC1 - 4355 GETFIELD2 - 4356 PUSHOFFSETCLOSURE0 - 4357 APPLY1 - 4358 ENVACC2 - 4359 PUSHACC1 - 4360 PUSHENVACC1 - 4361 APPLY1 - 4362 MODINT - 4363 PUSHACC0 - 4364 PUSHENVACC3 + 4352 ACC0 + 4353 GETFIELD0 + 4354 PUSHACC1 + 4355 GETFIELD2 + 4356 PUSHOFFSETCLOSURE0 + 4357 APPLY1 + 4358 ENVACC2 + 4359 PUSHACC1 + 4360 PUSHENVACC1 + 4361 APPLY1 + 4362 MODINT + 4363 PUSHACC0 + 4364 PUSHENVACC3 4365 C_CALL2 array_get_addr - 4367 PUSHACC3 - 4368 GETFIELD1 - 4369 PUSHACC3 + 4367 PUSHACC3 + 4368 GETFIELD1 + 4369 PUSHACC3 4370 MAKEBLOCK3 0 - 4372 PUSHACC1 - 4373 PUSHENVACC3 + 4372 PUSHACC1 + 4373 PUSHENVACC3 4374 C_CALL3 array_set_addr 4376 POP 2 4378 RETURN 1 - 4380 RESTART + 4380 RESTART 4381 GRAB 1 - 4383 ACC1 - 4384 GETFIELD1 - 4385 PUSHACC0 - 4386 VECTLENGTH - 4387 PUSHACC0 - 4388 PUSHCONST2 - 4389 MULINT + 4383 ACC1 + 4384 GETFIELD1 + 4385 PUSHACC0 + 4386 VECTLENGTH + 4387 PUSHACC0 + 4388 PUSHCONST2 + 4389 MULINT 4390 OFFSETINT 1 - 4392 PUSHCONST0 - 4393 PUSHACC1 + 4392 PUSHCONST0 + 4393 PUSHACC1 4394 C_CALL2 make_vect - 4396 PUSHACC0 - 4397 PUSHACC2 - 4398 PUSHACC6 + 4396 PUSHACC0 + 4397 PUSHACC2 + 4398 PUSHACC6 4399 CLOSUREREC 3, 4349 - 4403 CONST0 - 4404 PUSHACC4 + 4403 CONST0 + 4404 PUSHACC4 4405 OFFSETINT -1 - 4407 PUSH + 4407 PUSH 4408 BRANCH 4422 - 4410 CHECK_SIGNALS - 4411 ACC1 - 4412 PUSHACC7 + 4410 CHECK_SIGNALS + 4411 ACC1 + 4412 PUSHACC7 4413 C_CALL2 array_get_addr - 4415 PUSHACC3 - 4416 APPLY1 - 4417 ACC1 + 4415 PUSHACC3 + 4416 APPLY1 + 4417 ACC1 4418 OFFSETINT 1 4420 ASSIGN 1 - 4422 ACC0 - 4423 PUSHACC2 - 4424 LEINT + 4422 ACC0 + 4423 PUSHACC2 + 4424 LEINT 4425 BRANCHIF 4410 - 4427 CONST0 + 4427 CONST0 4428 POP 2 - 4430 ACC1 - 4431 PUSHACC7 - 4432 SETFIELD1 - 4433 ACC6 - 4434 GETFIELD0 - 4435 PUSHCONST2 - 4436 MULINT - 4437 PUSHACC7 - 4438 SETFIELD0 + 4430 ACC1 + 4431 PUSHACC7 + 4432 SETFIELD1 + 4433 ACC6 + 4434 GETFIELD0 + 4435 PUSHCONST2 + 4436 MULINT + 4437 PUSHACC7 + 4438 SETFIELD0 4439 RETURN 7 - 4441 CONST0 - 4442 PUSHACC1 - 4443 GETFIELD1 - 4444 VECTLENGTH + 4441 CONST0 + 4442 PUSHACC1 + 4443 GETFIELD1 + 4444 VECTLENGTH 4445 OFFSETINT -1 - 4447 PUSH + 4447 PUSH 4448 BRANCH 4462 - 4450 CHECK_SIGNALS - 4451 CONST0 - 4452 PUSHACC2 - 4453 PUSHACC4 - 4454 GETFIELD1 + 4450 CHECK_SIGNALS + 4451 CONST0 + 4452 PUSHACC2 + 4453 PUSHACC4 + 4454 GETFIELD1 4455 C_CALL3 array_set_addr - 4457 ACC1 + 4457 ACC1 4458 OFFSETINT 1 4460 ASSIGN 1 - 4462 ACC0 - 4463 PUSHACC2 - 4464 LEINT + 4462 ACC0 + 4463 PUSHACC2 + 4464 LEINT 4465 BRANCHIF 4450 - 4467 CONST0 + 4467 CONST0 4468 RETURN 3 - 4470 CONST1 - 4471 PUSHACC1 - 4472 LTINT + 4470 CONST1 + 4471 PUSHACC1 + 4472 LTINT 4473 BRANCHIFNOT 4478 - 4475 CONST1 + 4475 CONST1 4476 BRANCH 4479 - 4478 ACC0 + 4478 ACC0 4479 PUSHGETGLOBALFIELD Sys, 5 - 4482 PUSHACC1 - 4483 GTINT + 4482 PUSHACC1 + 4483 GTINT 4484 BRANCHIFNOT 4491 4486 GETGLOBALFIELD Sys, 5 4489 BRANCH 4492 - 4491 ACC0 - 4492 PUSHCONST0 - 4493 PUSHACC1 + 4491 ACC0 + 4492 PUSHCONST0 + 4493 PUSHACC1 4494 C_CALL2 make_vect - 4496 PUSHCONST3 + 4496 PUSHCONST3 4497 MAKEBLOCK2 0 4499 RETURN 3 - 4501 ACC0 + 4501 ACC0 4502 PUSHCONSTINT 100 4504 PUSHCONSTINT 10 4506 C_CALL3 hash_univ_param 4508 RETURN 1 4510 CLOSURE 0, 4501 - 4513 PUSH + 4513 PUSH 4514 CLOSURE 0, 4470 - 4517 PUSH + 4517 PUSH 4518 CLOSURE 0, 4441 - 4521 PUSH + 4521 PUSH 4522 CLOSURE 0, 4381 - 4525 PUSH + 4525 PUSH 4526 CLOSUREREC 0, 3631 - 4530 ACC0 - 4531 PUSHACC2 - 4532 PUSHACC6 + 4530 ACC0 + 4531 PUSHACC2 + 4532 PUSHACC6 4533 CLOSURE 3, 4311 - 4536 PUSHACC5 + 4536 PUSHACC5 4537 CLOSURE 1, 4282 - 4540 PUSHACC6 + 4540 PUSHACC6 4541 CLOSURE 1, 4169 - 4544 PUSHACC7 + 4544 PUSHACC7 4545 CLOSURE 1, 4123 4548 PUSHACC 8 4550 CLOSURE 1, 4074 - 4553 PUSH + 4553 PUSH 4554 CLOSURE 0, 4019 - 4557 PUSHACC0 - 4558 PUSHACC7 + 4557 PUSHACC0 + 4558 PUSHACC7 4559 PUSHACC 9 4561 PUSHACC 11 4563 PUSHACC 13 4565 CLOSURE 5, 3964 4568 PUSHACC 11 - 4570 PUSHACC1 - 4571 PUSHACC3 + 4570 PUSHACC1 + 4571 PUSHACC3 4572 PUSHACC 8 - 4574 PUSHACC6 + 4574 PUSHACC6 4575 PUSHACC 8 4577 PUSHACC 10 4579 PUSHACC 13 @@ -3088,747 +3088,747 @@ if o#m <> 23 then raise Not_found 4588 POP 12 4590 SETGLOBAL Hashtbl 4592 BRANCH 5073 - 4594 RESTART + 4594 RESTART 4595 GRAB 2 - 4597 ACC1 + 4597 ACC1 4598 BRANCHIFNOT 4638 - 4600 ACC1 - 4601 GETFIELD0 - 4602 PUSHACC3 + 4600 ACC1 + 4601 GETFIELD0 + 4602 PUSHACC3 4603 BRANCHIFNOT 4635 - 4605 ACC3 - 4606 GETFIELD0 - 4607 PUSHACC0 - 4608 PUSHACC2 - 4609 PUSHACC4 - 4610 APPLY2 + 4605 ACC3 + 4606 GETFIELD0 + 4607 PUSHACC0 + 4608 PUSHACC2 + 4609 PUSHACC4 + 4610 APPLY2 4611 BRANCHIFNOT 4624 - 4613 ACC4 - 4614 PUSHACC4 - 4615 GETFIELD1 - 4616 PUSHACC4 - 4617 PUSHOFFSETCLOSURE0 - 4618 APPLY3 - 4619 PUSHACC2 + 4613 ACC4 + 4614 PUSHACC4 + 4615 GETFIELD1 + 4616 PUSHACC4 + 4617 PUSHOFFSETCLOSURE0 + 4618 APPLY3 + 4619 PUSHACC2 4620 MAKEBLOCK2 0 4622 RETURN 5 - 4624 ACC4 - 4625 GETFIELD1 - 4626 PUSHACC4 - 4627 PUSHACC4 - 4628 PUSHOFFSETCLOSURE0 - 4629 APPLY3 - 4630 PUSHACC1 + 4624 ACC4 + 4625 GETFIELD1 + 4626 PUSHACC4 + 4627 PUSHACC4 + 4628 PUSHOFFSETCLOSURE0 + 4629 APPLY3 + 4630 PUSHACC1 4631 MAKEBLOCK2 0 4633 RETURN 5 - 4635 ACC2 + 4635 ACC2 4636 RETURN 4 - 4638 ACC2 + 4638 ACC2 4639 RETURN 3 - 4641 RESTART + 4641 RESTART 4642 GRAB 1 4644 CONSTINT 6 - 4646 PUSHACC1 - 4647 PUSHACC3 - 4648 SUBINT - 4649 GEINT + 4646 PUSHACC1 + 4647 PUSHACC3 + 4648 SUBINT + 4649 GEINT 4650 BRANCHIFNOT 4809 - 4652 CONST1 - 4653 PUSHACC2 - 4654 PUSHACC2 - 4655 ADDINT - 4656 LSRINT - 4657 PUSHACC1 - 4658 PUSHENVACC3 + 4652 CONST1 + 4653 PUSHACC2 + 4654 PUSHACC2 + 4655 ADDINT + 4656 LSRINT + 4657 PUSHACC1 + 4658 PUSHENVACC3 4659 C_CALL2 array_unsafe_get - 4661 PUSHACC1 - 4662 PUSHENVACC3 + 4661 PUSHACC1 + 4662 PUSHENVACC3 4663 C_CALL2 array_unsafe_get - 4665 PUSHENVACC2 - 4666 APPLY2 + 4665 PUSHENVACC2 + 4666 APPLY2 4667 BRANCHIFNOT 4674 - 4669 ACC1 - 4670 PUSHACC1 - 4671 PUSHENVACC3 - 4672 PUSHENVACC1 - 4673 APPLY3 - 4674 ACC0 - 4675 PUSHENVACC3 + 4669 ACC1 + 4670 PUSHACC1 + 4671 PUSHENVACC3 + 4672 PUSHENVACC1 + 4673 APPLY3 + 4674 ACC0 + 4675 PUSHENVACC3 4676 C_CALL2 array_unsafe_get - 4678 PUSHACC3 - 4679 PUSHENVACC3 + 4678 PUSHACC3 + 4679 PUSHENVACC3 4680 C_CALL2 array_unsafe_get - 4682 PUSHENVACC2 - 4683 APPLY2 + 4682 PUSHENVACC2 + 4683 APPLY2 4684 BRANCHIFNOT 4708 - 4686 ACC2 - 4687 PUSHACC1 - 4688 PUSHENVACC3 - 4689 PUSHENVACC1 - 4690 APPLY3 - 4691 ACC1 - 4692 PUSHENVACC3 + 4686 ACC2 + 4687 PUSHACC1 + 4688 PUSHENVACC3 + 4689 PUSHENVACC1 + 4690 APPLY3 + 4691 ACC1 + 4692 PUSHENVACC3 4693 C_CALL2 array_unsafe_get - 4695 PUSHACC1 - 4696 PUSHENVACC3 + 4695 PUSHACC1 + 4696 PUSHENVACC3 4697 C_CALL2 array_unsafe_get - 4699 PUSHENVACC2 - 4700 APPLY2 + 4699 PUSHENVACC2 + 4700 APPLY2 4701 BRANCHIFNOT 4708 - 4703 ACC1 - 4704 PUSHACC1 - 4705 PUSHENVACC3 - 4706 PUSHENVACC1 - 4707 APPLY3 - 4708 ACC0 - 4709 PUSHENVACC3 + 4703 ACC1 + 4704 PUSHACC1 + 4705 PUSHENVACC3 + 4706 PUSHENVACC1 + 4707 APPLY3 + 4708 ACC0 + 4709 PUSHENVACC3 4710 C_CALL2 array_unsafe_get - 4712 PUSHACC2 + 4712 PUSHACC2 4713 OFFSETINT 1 - 4715 PUSHACC4 + 4715 PUSHACC4 4716 OFFSETINT -1 - 4718 PUSH + 4718 PUSH 4719 BRANCH 4777 - 4721 CHECK_SIGNALS + 4721 CHECK_SIGNALS 4722 BRANCH 4730 - 4724 CHECK_SIGNALS - 4725 ACC1 + 4724 CHECK_SIGNALS + 4725 ACC1 4726 OFFSETINT 1 4728 ASSIGN 1 - 4730 ACC1 - 4731 PUSHENVACC3 + 4730 ACC1 + 4731 PUSHENVACC3 4732 C_CALL2 array_unsafe_get - 4734 PUSHACC3 - 4735 PUSHENVACC2 - 4736 APPLY2 + 4734 PUSHACC3 + 4735 PUSHENVACC2 + 4736 APPLY2 4737 BRANCHIFNOT 4724 - 4739 CONST0 + 4739 CONST0 4740 BRANCH 4748 - 4742 CHECK_SIGNALS - 4743 ACC0 + 4742 CHECK_SIGNALS + 4743 ACC0 4744 OFFSETINT -1 4746 ASSIGN 0 - 4748 ACC2 - 4749 PUSHACC1 - 4750 PUSHENVACC3 + 4748 ACC2 + 4749 PUSHACC1 + 4750 PUSHENVACC3 4751 C_CALL2 array_unsafe_get - 4753 PUSHENVACC2 - 4754 APPLY2 + 4753 PUSHENVACC2 + 4754 APPLY2 4755 BRANCHIFNOT 4742 - 4757 ACC0 - 4758 PUSHACC2 - 4759 LTINT + 4757 ACC0 + 4758 PUSHACC2 + 4759 LTINT 4760 BRANCHIFNOT 4767 - 4762 ACC0 - 4763 PUSHACC2 - 4764 PUSHENVACC3 - 4765 PUSHENVACC1 - 4766 APPLY3 - 4767 ACC1 + 4762 ACC0 + 4763 PUSHACC2 + 4764 PUSHENVACC3 + 4765 PUSHENVACC1 + 4766 APPLY3 + 4767 ACC1 4768 OFFSETINT 1 4770 ASSIGN 1 - 4772 ACC0 + 4772 ACC0 4773 OFFSETINT -1 4775 ASSIGN 0 - 4777 ACC0 - 4778 PUSHACC2 - 4779 LTINT + 4777 ACC0 + 4778 PUSHACC2 + 4779 LTINT 4780 BRANCHIF 4721 - 4782 ACC1 - 4783 PUSHACC6 - 4784 SUBINT - 4785 PUSHACC5 - 4786 PUSHACC2 - 4787 SUBINT - 4788 LEINT + 4782 ACC1 + 4783 PUSHACC6 + 4784 SUBINT + 4785 PUSHACC5 + 4786 PUSHACC2 + 4787 SUBINT + 4788 LEINT 4789 BRANCHIFNOT 4800 - 4791 ACC0 - 4792 PUSHACC5 - 4793 PUSHOFFSETCLOSURE0 - 4794 APPLY2 - 4795 ACC5 - 4796 PUSHACC2 - 4797 PUSHOFFSETCLOSURE0 + 4791 ACC0 + 4792 PUSHACC5 + 4793 PUSHOFFSETCLOSURE0 + 4794 APPLY2 + 4795 ACC5 + 4796 PUSHACC2 + 4797 PUSHOFFSETCLOSURE0 4798 APPTERM2 8 - 4800 ACC5 - 4801 PUSHACC2 - 4802 PUSHOFFSETCLOSURE0 - 4803 APPLY2 - 4804 ACC0 - 4805 PUSHACC5 - 4806 PUSHOFFSETCLOSURE0 + 4800 ACC5 + 4801 PUSHACC2 + 4802 PUSHOFFSETCLOSURE0 + 4803 APPLY2 + 4804 ACC0 + 4805 PUSHACC5 + 4806 PUSHOFFSETCLOSURE0 4807 APPTERM2 8 4809 RETURN 2 - 4811 RESTART + 4811 RESTART 4812 GRAB 1 - 4814 ACC1 - 4815 PUSHACC1 - 4816 PUSHENVACC1 + 4814 ACC1 + 4815 PUSHACC1 + 4816 PUSHENVACC1 4817 CLOSUREREC 3, 4642 - 4821 ACC2 - 4822 VECTLENGTH + 4821 ACC2 + 4822 VECTLENGTH 4823 OFFSETINT -1 - 4825 PUSHCONST0 - 4826 PUSHACC2 - 4827 APPLY2 - 4828 CONST1 - 4829 PUSHACC3 - 4830 VECTLENGTH + 4825 PUSHCONST0 + 4826 PUSHACC2 + 4827 APPLY2 + 4828 CONST1 + 4829 PUSHACC3 + 4830 VECTLENGTH 4831 OFFSETINT -1 - 4833 PUSH + 4833 PUSH 4834 BRANCH 4918 - 4836 CHECK_SIGNALS - 4837 ACC1 - 4838 PUSHACC5 + 4836 CHECK_SIGNALS + 4837 ACC1 + 4838 PUSHACC5 4839 C_CALL2 array_unsafe_get - 4841 PUSHACC0 - 4842 PUSHACC3 + 4841 PUSHACC0 + 4842 PUSHACC3 4843 OFFSETINT -1 - 4845 PUSHACC7 + 4845 PUSHACC7 4846 C_CALL2 array_unsafe_get - 4848 PUSHACC6 - 4849 APPLY2 - 4850 BOOLNOT + 4848 PUSHACC6 + 4849 APPLY2 + 4850 BOOLNOT 4851 BRANCHIFNOT 4911 - 4853 ACC2 + 4853 ACC2 4854 OFFSETINT -1 - 4856 PUSHACC6 + 4856 PUSHACC6 4857 C_CALL2 array_unsafe_get - 4859 PUSHACC3 - 4860 PUSHACC7 + 4859 PUSHACC3 + 4860 PUSHACC7 4861 C_CALL3 array_unsafe_set - 4863 ACC2 + 4863 ACC2 4864 OFFSETINT -1 - 4866 PUSH + 4866 PUSH 4867 BRANCH 4886 - 4869 CHECK_SIGNALS - 4870 ACC0 + 4869 CHECK_SIGNALS + 4870 ACC0 4871 OFFSETINT -1 - 4873 PUSHACC7 + 4873 PUSHACC7 4874 C_CALL2 array_unsafe_get - 4876 PUSHACC1 + 4876 PUSHACC1 4877 PUSHACC 8 4879 C_CALL3 array_unsafe_set - 4881 ACC0 + 4881 ACC0 4882 OFFSETINT -1 4884 ASSIGN 0 - 4886 CONST1 - 4887 PUSHACC1 - 4888 GEINT + 4886 CONST1 + 4887 PUSHACC1 + 4888 GEINT 4889 BRANCHIFNOT 4903 - 4891 ACC1 - 4892 PUSHACC1 + 4891 ACC1 + 4892 PUSHACC1 4893 OFFSETINT -1 4895 PUSHACC 8 4897 C_CALL2 array_unsafe_get - 4899 PUSHACC7 - 4900 APPLY2 + 4899 PUSHACC7 + 4900 APPLY2 4901 BRANCHIFNOT 4869 - 4903 ACC1 - 4904 PUSHACC1 + 4903 ACC1 + 4904 PUSHACC1 4905 PUSHACC 8 4907 C_CALL3 array_unsafe_set 4909 POP 1 4911 POP 1 - 4913 ACC1 + 4913 ACC1 4914 OFFSETINT 1 4916 ASSIGN 1 - 4918 ACC0 - 4919 PUSHACC2 - 4920 LEINT + 4918 ACC0 + 4919 PUSHACC2 + 4920 LEINT 4921 BRANCHIF 4836 - 4923 CONST0 + 4923 CONST0 4924 RETURN 5 - 4926 RESTART + 4926 RESTART 4927 GRAB 2 - 4929 ACC1 - 4930 PUSHACC1 + 4929 ACC1 + 4930 PUSHACC1 4931 C_CALL2 array_unsafe_get - 4933 PUSHACC3 - 4934 PUSHACC2 + 4933 PUSHACC3 + 4934 PUSHACC2 4935 C_CALL2 array_unsafe_get - 4937 PUSHACC3 - 4938 PUSHACC3 + 4937 PUSHACC3 + 4938 PUSHACC3 4939 C_CALL3 array_unsafe_set - 4941 ACC0 - 4942 PUSHACC4 - 4943 PUSHACC3 + 4941 ACC0 + 4942 PUSHACC4 + 4943 PUSHACC3 4944 C_CALL3 array_unsafe_set 4946 RETURN 4 - 4948 ACC0 + 4948 ACC0 4949 BRANCHIFNOT 4999 - 4951 ACC0 - 4952 GETFIELD0 - 4953 PUSHACC1 - 4954 GETFIELD1 - 4955 PUSHACC0 + 4951 ACC0 + 4952 GETFIELD0 + 4953 PUSHACC1 + 4954 GETFIELD1 + 4955 PUSHACC0 4956 BRANCHIFNOT 4990 - 4958 ACC0 - 4959 GETFIELD0 - 4960 PUSHACC1 - 4961 GETFIELD1 - 4962 PUSHOFFSETCLOSURE0 - 4963 APPLY1 - 4964 PUSHACC1 - 4965 PUSHACC4 - 4966 PUSHENVACC1 - 4967 APPLY2 + 4958 ACC0 + 4959 GETFIELD0 + 4960 PUSHACC1 + 4961 GETFIELD1 + 4962 PUSHOFFSETCLOSURE0 + 4963 APPLY1 + 4964 PUSHACC1 + 4965 PUSHACC4 + 4966 PUSHENVACC1 + 4967 APPLY2 4968 BRANCHIFNOT 4979 - 4970 CONST0 - 4971 PUSHACC2 + 4970 CONST0 + 4971 PUSHACC2 4972 MAKEBLOCK2 0 - 4974 PUSHACC4 + 4974 PUSHACC4 4975 MAKEBLOCK2 0 4977 BRANCH 4986 - 4979 CONST0 - 4980 PUSHACC4 + 4979 CONST0 + 4980 PUSHACC4 4981 MAKEBLOCK2 0 - 4983 PUSHACC2 + 4983 PUSHACC2 4984 MAKEBLOCK2 0 4986 MAKEBLOCK2 0 4988 RETURN 4 - 4990 CONST0 - 4991 PUSHCONST0 - 4992 PUSHACC3 + 4990 CONST0 + 4991 PUSHCONST0 + 4992 PUSHACC3 4993 MAKEBLOCK2 0 4995 MAKEBLOCK2 0 4997 POP 2 4999 RETURN 1 - 5001 ACC0 + 5001 ACC0 5002 BRANCHIFNOT 5028 - 5004 ACC0 - 5005 GETFIELD1 - 5006 PUSHACC0 + 5004 ACC0 + 5005 GETFIELD1 + 5006 PUSHACC0 5007 BRANCHIFNOT 5024 - 5009 ACC0 - 5010 GETFIELD1 - 5011 PUSHOFFSETCLOSURE0 - 5012 APPLY1 - 5013 PUSHACC1 - 5014 GETFIELD0 - 5015 PUSHACC3 - 5016 GETFIELD0 - 5017 PUSHENVACC2 - 5018 PUSHENVACC1 - 5019 APPLY3 + 5009 ACC0 + 5010 GETFIELD1 + 5011 PUSHOFFSETCLOSURE0 + 5012 APPLY1 + 5013 PUSHACC1 + 5014 GETFIELD0 + 5015 PUSHACC3 + 5016 GETFIELD0 + 5017 PUSHENVACC2 + 5018 PUSHENVACC1 + 5019 APPLY3 5020 MAKEBLOCK2 0 5022 RETURN 2 5024 POP 1 5026 BRANCH 5028 - 5028 ACC0 + 5028 ACC0 5029 RETURN 1 - 5031 ACC0 + 5031 ACC0 5032 BRANCHIFNOT 5040 - 5034 ACC0 - 5035 GETFIELD1 + 5034 ACC0 + 5035 GETFIELD1 5036 BRANCHIF 5042 - 5038 ACC0 - 5039 GETFIELD0 + 5038 ACC0 + 5039 GETFIELD0 5040 RETURN 1 - 5042 ACC0 - 5043 PUSHENVACC1 - 5044 APPLY1 - 5045 PUSHOFFSETCLOSURE0 + 5042 ACC0 + 5043 PUSHENVACC1 + 5044 APPLY1 + 5045 PUSHOFFSETCLOSURE0 5046 APPTERM1 2 - 5048 RESTART + 5048 RESTART 5049 GRAB 1 - 5051 ACC0 + 5051 ACC0 5052 CLOSUREREC 1, 4948 - 5056 ACC1 - 5057 PUSHENVACC1 + 5056 ACC1 + 5057 PUSHENVACC1 5058 CLOSUREREC 2, 5001 - 5062 ACC0 + 5062 ACC0 5063 CLOSUREREC 1, 5031 - 5067 ACC4 - 5068 PUSHACC3 - 5069 APPLY1 - 5070 PUSHACC1 + 5067 ACC4 + 5068 PUSHACC3 + 5069 APPLY1 + 5070 PUSHACC1 5071 APPTERM1 6 5073 CLOSUREREC 0, 4595 - 5077 ACC0 + 5077 ACC0 5078 CLOSURE 1, 5049 - 5081 PUSH + 5081 PUSH 5082 CLOSURE 0, 4927 - 5085 PUSHACC0 + 5085 PUSHACC0 5086 CLOSURE 1, 4812 - 5089 PUSHACC3 - 5090 PUSHACC1 - 5091 PUSHACC4 + 5089 PUSHACC3 + 5090 PUSHACC1 + 5091 PUSHACC4 5092 MAKEBLOCK3 0 5094 POP 4 5096 SETGLOBAL Sort 5098 BRANCH 5847 - 5100 ACC0 - 5101 PUSHENVACC1 - 5102 APPLY1 - 5103 PUSHACC0 + 5100 ACC0 + 5101 PUSHENVACC1 + 5102 APPLY1 + 5103 PUSHACC0 5104 GETFIELD 11 - 5106 PUSHACC1 + 5106 PUSHACC1 5107 GETFIELD 10 - 5109 PUSHACC2 + 5109 PUSHACC2 5110 GETFIELD 9 - 5112 PUSHACC3 + 5112 PUSHACC3 5113 GETFIELD 6 - 5115 PUSHACC4 + 5115 PUSHACC4 5116 GETFIELD 8 - 5118 PUSHACC5 + 5118 PUSHACC5 5119 GETFIELD 5 - 5121 PUSHACC6 + 5121 PUSHACC6 5122 GETFIELD 4 - 5124 PUSHACC7 - 5125 GETFIELD0 + 5124 PUSHACC7 + 5125 GETFIELD0 5126 MAKEBLOCK 8, 0 5129 RETURN 2 - 5131 RESTART + 5131 RESTART 5132 GRAB 2 - 5134 ACC2 + 5134 ACC2 5135 BRANCHIFNOT 5201 - 5137 ACC2 - 5138 GETFIELD0 - 5139 PUSHACC3 - 5140 GETFIELD1 - 5141 PUSHACC4 - 5142 GETFIELD2 - 5143 PUSHACC5 - 5144 GETFIELD3 - 5145 PUSHACC2 - 5146 PUSHACC5 - 5147 PUSHENVACC1 - 5148 GETFIELD0 - 5149 APPLY2 - 5150 PUSHCONST0 - 5151 PUSHACC1 - 5152 EQ + 5137 ACC2 + 5138 GETFIELD0 + 5139 PUSHACC3 + 5140 GETFIELD1 + 5141 PUSHACC4 + 5142 GETFIELD2 + 5143 PUSHACC5 + 5144 GETFIELD3 + 5145 PUSHACC2 + 5146 PUSHACC5 + 5147 PUSHENVACC1 + 5148 GETFIELD0 + 5149 APPLY2 + 5150 PUSHCONST0 + 5151 PUSHACC1 + 5152 EQ 5153 BRANCHIFNOT 5170 - 5155 ACC7 + 5155 ACC7 5156 GETFIELD 4 - 5158 PUSHACC2 + 5158 PUSHACC2 5159 PUSHACC 8 5161 PUSHACC 8 5163 PUSHACC 8 5165 MAKEBLOCK 5, 0 5168 RETURN 8 - 5170 CONST0 - 5171 PUSHACC1 - 5172 LTINT + 5170 CONST0 + 5171 PUSHACC1 + 5172 LTINT 5173 BRANCHIFNOT 5189 - 5175 ACC1 - 5176 PUSHACC3 - 5177 PUSHACC5 - 5178 PUSHACC7 + 5175 ACC1 + 5176 PUSHACC3 + 5177 PUSHACC5 + 5178 PUSHACC7 5179 PUSHACC 10 5181 PUSHACC 10 - 5183 PUSHOFFSETCLOSURE0 - 5184 APPLY3 - 5185 PUSHENVACC2 + 5183 PUSHOFFSETCLOSURE0 + 5184 APPLY3 + 5185 PUSHENVACC2 5186 APPTERM 4, 12 - 5189 ACC1 - 5190 PUSHACC7 - 5191 PUSHACC7 - 5192 PUSHOFFSETCLOSURE0 - 5193 APPLY3 - 5194 PUSHACC3 - 5195 PUSHACC5 - 5196 PUSHACC7 - 5197 PUSHENVACC2 + 5189 ACC1 + 5190 PUSHACC7 + 5191 PUSHACC7 + 5192 PUSHOFFSETCLOSURE0 + 5193 APPLY3 + 5194 PUSHACC3 + 5195 PUSHACC5 + 5196 PUSHACC7 + 5197 PUSHENVACC2 5198 APPTERM 4, 12 - 5201 CONST1 - 5202 PUSHCONST0 - 5203 PUSHACC3 - 5204 PUSHACC3 - 5205 PUSHCONST0 + 5201 CONST1 + 5202 PUSHCONST0 + 5203 PUSHACC3 + 5204 PUSHACC3 + 5205 PUSHCONST0 5206 MAKEBLOCK 5, 0 5209 RETURN 3 - 5211 RESTART + 5211 RESTART 5212 GRAB 1 - 5214 ACC1 + 5214 ACC1 5215 BRANCHIFNOT 5247 - 5217 ACC1 - 5218 GETFIELD1 - 5219 PUSHACC1 - 5220 PUSHENVACC1 - 5221 GETFIELD0 - 5222 APPLY2 - 5223 PUSHCONST0 - 5224 PUSHACC1 - 5225 EQ + 5217 ACC1 + 5218 GETFIELD1 + 5219 PUSHACC1 + 5220 PUSHENVACC1 + 5221 GETFIELD0 + 5222 APPLY2 + 5223 PUSHCONST0 + 5224 PUSHACC1 + 5225 EQ 5226 BRANCHIFNOT 5232 - 5228 ACC2 - 5229 GETFIELD2 + 5228 ACC2 + 5229 GETFIELD2 5230 RETURN 3 - 5232 CONST0 - 5233 PUSHACC1 - 5234 LTINT + 5232 CONST0 + 5233 PUSHACC1 + 5234 LTINT 5235 BRANCHIFNOT 5241 - 5237 ACC2 - 5238 GETFIELD0 + 5237 ACC2 + 5238 GETFIELD0 5239 BRANCH 5243 - 5241 ACC2 - 5242 GETFIELD3 - 5243 PUSHACC2 - 5244 PUSHOFFSETCLOSURE0 + 5241 ACC2 + 5242 GETFIELD3 + 5243 PUSHACC2 + 5244 PUSHOFFSETCLOSURE0 5245 APPTERM2 5 5247 GETGLOBAL Not_found 5249 MAKEBLOCK1 0 - 5251 RAISE - 5252 RESTART + 5251 RAISE + 5252 RESTART 5253 GRAB 1 - 5255 ACC1 + 5255 ACC1 5256 BRANCHIFNOT 5286 - 5258 ACC1 - 5259 GETFIELD1 - 5260 PUSHACC1 - 5261 PUSHENVACC1 - 5262 GETFIELD0 - 5263 APPLY2 - 5264 PUSHCONST0 - 5265 PUSHACC1 - 5266 EQ + 5258 ACC1 + 5259 GETFIELD1 + 5260 PUSHACC1 + 5261 PUSHENVACC1 + 5262 GETFIELD0 + 5263 APPLY2 + 5264 PUSHCONST0 + 5265 PUSHACC1 + 5266 EQ 5267 BRANCHIF 5284 - 5269 CONST0 - 5270 PUSHACC1 - 5271 LTINT + 5269 CONST0 + 5270 PUSHACC1 + 5271 LTINT 5272 BRANCHIFNOT 5278 - 5274 ACC2 - 5275 GETFIELD0 + 5274 ACC2 + 5275 GETFIELD0 5276 BRANCH 5280 - 5278 ACC2 - 5279 GETFIELD3 - 5280 PUSHACC2 - 5281 PUSHOFFSETCLOSURE0 + 5278 ACC2 + 5279 GETFIELD3 + 5280 PUSHACC2 + 5281 PUSHOFFSETCLOSURE0 5282 APPTERM2 5 5284 POP 1 5286 RETURN 2 - 5288 RESTART + 5288 RESTART 5289 GRAB 1 - 5291 ACC0 + 5291 ACC0 5292 BRANCHIF 5297 - 5294 ACC1 + 5294 ACC1 5295 RETURN 2 - 5297 ACC1 + 5297 ACC1 5298 BRANCHIF 5303 - 5300 ACC0 + 5300 ACC0 5301 RETURN 2 - 5303 ACC0 + 5303 ACC0 5304 BRANCHIFNOT 5336 - 5306 ACC1 + 5306 ACC1 5307 BRANCHIFNOT 5336 5309 PUSH_RETADDR 5326 - 5311 ACC4 - 5312 GETFIELD3 - 5313 PUSHACC5 - 5314 GETFIELD2 - 5315 PUSHACC6 - 5316 GETFIELD1 - 5317 PUSHACC7 - 5318 GETFIELD0 - 5319 PUSHACC7 - 5320 GETFIELD3 - 5321 PUSHOFFSETCLOSURE0 - 5322 APPLY2 - 5323 PUSHENVACC1 + 5311 ACC4 + 5312 GETFIELD3 + 5313 PUSHACC5 + 5314 GETFIELD2 + 5315 PUSHACC6 + 5316 GETFIELD1 + 5317 PUSHACC7 + 5318 GETFIELD0 + 5319 PUSHACC7 + 5320 GETFIELD3 + 5321 PUSHOFFSETCLOSURE0 + 5322 APPLY2 + 5323 PUSHENVACC1 5324 APPLY 4 - 5326 PUSHACC1 - 5327 GETFIELD2 - 5328 PUSHACC2 - 5329 GETFIELD1 - 5330 PUSHACC3 - 5331 GETFIELD0 - 5332 PUSHENVACC1 + 5326 PUSHACC1 + 5327 GETFIELD2 + 5328 PUSHACC2 + 5329 GETFIELD1 + 5330 PUSHACC3 + 5331 GETFIELD0 + 5332 PUSHENVACC1 5333 APPTERM 4, 6 5336 GETGLOBAL <0>("map.ml", 3614, 3797) 5338 PUSHGETGLOBAL Match_failure 5340 MAKEBLOCK2 0 - 5342 RAISE - 5343 RESTART + 5342 RAISE + 5343 RESTART 5344 GRAB 1 - 5346 ACC1 + 5346 ACC1 5347 BRANCHIFNOT 5400 - 5349 ACC1 - 5350 GETFIELD0 - 5351 PUSHACC2 - 5352 GETFIELD1 - 5353 PUSHACC3 - 5354 GETFIELD2 - 5355 PUSHACC4 - 5356 GETFIELD3 - 5357 PUSHACC2 - 5358 PUSHACC5 - 5359 PUSHENVACC1 - 5360 GETFIELD0 - 5361 APPLY2 - 5362 PUSHCONST0 - 5363 PUSHACC1 - 5364 EQ + 5349 ACC1 + 5350 GETFIELD0 + 5351 PUSHACC2 + 5352 GETFIELD1 + 5353 PUSHACC3 + 5354 GETFIELD2 + 5355 PUSHACC4 + 5356 GETFIELD3 + 5357 PUSHACC2 + 5358 PUSHACC5 + 5359 PUSHENVACC1 + 5360 GETFIELD0 + 5361 APPLY2 + 5362 PUSHCONST0 + 5363 PUSHACC1 + 5364 EQ 5365 BRANCHIFNOT 5372 - 5367 ACC1 - 5368 PUSHACC5 - 5369 PUSHENVACC3 + 5367 ACC1 + 5368 PUSHACC5 + 5369 PUSHENVACC3 5370 APPTERM2 9 - 5372 CONST0 - 5373 PUSHACC1 - 5374 LTINT + 5372 CONST0 + 5373 PUSHACC1 + 5374 LTINT 5375 BRANCHIFNOT 5389 - 5377 ACC1 - 5378 PUSHACC3 - 5379 PUSHACC5 - 5380 PUSHACC7 + 5377 ACC1 + 5378 PUSHACC3 + 5379 PUSHACC5 + 5380 PUSHACC7 5381 PUSHACC 9 - 5383 PUSHOFFSETCLOSURE0 - 5384 APPLY2 - 5385 PUSHENVACC2 + 5383 PUSHOFFSETCLOSURE0 + 5384 APPLY2 + 5385 PUSHENVACC2 5386 APPTERM 4, 11 - 5389 ACC1 - 5390 PUSHACC6 - 5391 PUSHOFFSETCLOSURE0 - 5392 APPLY2 - 5393 PUSHACC3 - 5394 PUSHACC5 - 5395 PUSHACC7 - 5396 PUSHENVACC2 + 5389 ACC1 + 5390 PUSHACC6 + 5391 PUSHOFFSETCLOSURE0 + 5392 APPLY2 + 5393 PUSHACC3 + 5394 PUSHACC5 + 5395 PUSHACC7 + 5396 PUSHENVACC2 5397 APPTERM 4, 11 5400 RETURN 2 - 5402 RESTART + 5402 RESTART 5403 GRAB 1 - 5405 ACC1 + 5405 ACC1 5406 BRANCHIFNOT 5425 - 5408 ACC1 - 5409 GETFIELD0 - 5410 PUSHACC1 - 5411 PUSHOFFSETCLOSURE0 - 5412 APPLY2 - 5413 ACC1 - 5414 GETFIELD2 - 5415 PUSHACC2 - 5416 GETFIELD1 - 5417 PUSHACC2 - 5418 APPLY2 - 5419 ACC1 - 5420 GETFIELD3 - 5421 PUSHACC1 - 5422 PUSHOFFSETCLOSURE0 + 5408 ACC1 + 5409 GETFIELD0 + 5410 PUSHACC1 + 5411 PUSHOFFSETCLOSURE0 + 5412 APPLY2 + 5413 ACC1 + 5414 GETFIELD2 + 5415 PUSHACC2 + 5416 GETFIELD1 + 5417 PUSHACC2 + 5418 APPLY2 + 5419 ACC1 + 5420 GETFIELD3 + 5421 PUSHACC1 + 5422 PUSHOFFSETCLOSURE0 5423 APPTERM2 4 5425 RETURN 2 - 5427 RESTART + 5427 RESTART 5428 GRAB 1 - 5430 ACC1 + 5430 ACC1 5431 BRANCHIFNOT 5455 - 5433 ACC1 + 5433 ACC1 5434 GETFIELD 4 - 5436 PUSHACC2 - 5437 GETFIELD3 - 5438 PUSHACC2 - 5439 PUSHOFFSETCLOSURE0 - 5440 APPLY2 - 5441 PUSHACC3 - 5442 GETFIELD2 - 5443 PUSHACC3 - 5444 APPLY1 - 5445 PUSHACC4 - 5446 GETFIELD1 - 5447 PUSHACC5 - 5448 GETFIELD0 - 5449 PUSHACC5 - 5450 PUSHOFFSETCLOSURE0 - 5451 APPLY2 + 5436 PUSHACC2 + 5437 GETFIELD3 + 5438 PUSHACC2 + 5439 PUSHOFFSETCLOSURE0 + 5440 APPLY2 + 5441 PUSHACC3 + 5442 GETFIELD2 + 5443 PUSHACC3 + 5444 APPLY1 + 5445 PUSHACC4 + 5446 GETFIELD1 + 5447 PUSHACC5 + 5448 GETFIELD0 + 5449 PUSHACC5 + 5450 PUSHOFFSETCLOSURE0 + 5451 APPLY2 5452 MAKEBLOCK 5, 0 5455 RETURN 2 - 5457 RESTART + 5457 RESTART 5458 GRAB 2 - 5460 ACC1 + 5460 ACC1 5461 BRANCHIFNOT 5481 - 5463 ACC2 - 5464 PUSHACC2 - 5465 GETFIELD3 - 5466 PUSHACC2 - 5467 PUSHOFFSETCLOSURE0 - 5468 APPLY3 - 5469 PUSHACC2 - 5470 GETFIELD2 - 5471 PUSHACC3 - 5472 GETFIELD1 - 5473 PUSHACC3 - 5474 APPLY3 - 5475 PUSHACC2 - 5476 GETFIELD0 - 5477 PUSHACC2 - 5478 PUSHOFFSETCLOSURE0 + 5463 ACC2 + 5464 PUSHACC2 + 5465 GETFIELD3 + 5466 PUSHACC2 + 5467 PUSHOFFSETCLOSURE0 + 5468 APPLY3 + 5469 PUSHACC2 + 5470 GETFIELD2 + 5471 PUSHACC3 + 5472 GETFIELD1 + 5473 PUSHACC3 + 5474 APPLY3 + 5475 PUSHACC2 + 5476 GETFIELD0 + 5477 PUSHACC2 + 5478 PUSHOFFSETCLOSURE0 5479 APPTERM3 6 - 5481 ACC2 + 5481 ACC2 5482 RETURN 3 - 5484 RESTART + 5484 RESTART 5485 GRAB 3 - 5487 ACC0 + 5487 ACC0 5488 BRANCHIFNOT 5495 - 5490 ACC0 + 5490 ACC0 5491 GETFIELD 4 5493 BRANCH 5496 - 5495 CONST0 - 5496 PUSHACC4 + 5495 CONST0 + 5496 PUSHACC4 5497 BRANCHIFNOT 5504 - 5499 ACC4 + 5499 ACC4 5500 GETFIELD 4 5502 BRANCH 5505 - 5504 CONST0 - 5505 PUSHACC0 + 5504 CONST0 + 5505 PUSHACC0 5506 OFFSETINT 2 - 5508 PUSHACC2 - 5509 GTINT + 5508 PUSHACC2 + 5509 GTINT 5510 BRANCHIFNOT 5603 - 5512 ACC2 + 5512 ACC2 5513 BRANCHIFNOT 5596 - 5515 ACC2 - 5516 GETFIELD0 - 5517 PUSHACC3 - 5518 GETFIELD1 - 5519 PUSHACC4 - 5520 GETFIELD2 - 5521 PUSHACC5 - 5522 GETFIELD3 - 5523 PUSHACC0 - 5524 PUSHENVACC1 - 5525 APPLY1 - 5526 PUSHACC4 - 5527 PUSHENVACC1 - 5528 APPLY1 - 5529 GEINT + 5515 ACC2 + 5516 GETFIELD0 + 5517 PUSHACC3 + 5518 GETFIELD1 + 5519 PUSHACC4 + 5520 GETFIELD2 + 5521 PUSHACC5 + 5522 GETFIELD3 + 5523 PUSHACC0 + 5524 PUSHENVACC1 + 5525 APPLY1 + 5526 PUSHACC4 + 5527 PUSHENVACC1 + 5528 APPLY1 + 5529 GEINT 5530 BRANCHIFNOT 5551 5532 PUSH_RETADDR 5544 5534 ACC 12 5536 PUSHACC 12 5538 PUSHACC 12 - 5540 PUSHACC6 - 5541 PUSHENVACC2 + 5540 PUSHACC6 + 5541 PUSHENVACC2 5542 APPLY 4 - 5544 PUSHACC2 - 5545 PUSHACC4 - 5546 PUSHACC6 - 5547 PUSHENVACC2 + 5544 PUSHACC2 + 5545 PUSHACC4 + 5546 PUSHACC6 + 5547 PUSHENVACC2 5548 APPTERM 4, 14 - 5551 ACC0 + 5551 ACC0 5552 BRANCHIFNOT 5589 5554 PUSH_RETADDR 5567 5556 ACC 12 5558 PUSHACC 12 5560 PUSHACC 12 - 5562 PUSHACC6 - 5563 GETFIELD3 - 5564 PUSHENVACC2 + 5562 PUSHACC6 + 5563 GETFIELD3 + 5564 PUSHENVACC2 5565 APPLY 4 - 5567 PUSHACC1 - 5568 GETFIELD2 - 5569 PUSHACC2 - 5570 GETFIELD1 - 5571 PUSH + 5567 PUSHACC1 + 5568 GETFIELD2 + 5569 PUSHACC2 + 5570 GETFIELD1 + 5571 PUSH 5572 PUSH_RETADDR 5585 - 5574 ACC6 - 5575 GETFIELD0 + 5574 ACC6 + 5575 GETFIELD0 5576 PUSHACC 8 5578 PUSHACC 10 5580 PUSHACC 12 - 5582 PUSHENVACC2 + 5582 PUSHENVACC2 5583 APPLY 4 - 5585 PUSHENVACC2 + 5585 PUSHENVACC2 5586 APPTERM 4, 14 5589 GETGLOBAL "Map.bal" 5591 PUSHGETGLOBALFIELD Pervasives, 2 @@ -3836,66 +3836,66 @@ if o#m <> 23 then raise Not_found 5596 GETGLOBAL "Map.bal" 5598 PUSHGETGLOBALFIELD Pervasives, 2 5601 APPTERM1 7 - 5603 ACC1 + 5603 ACC1 5604 OFFSETINT 2 - 5606 PUSHACC1 - 5607 GTINT + 5606 PUSHACC1 + 5607 GTINT 5608 BRANCHIFNOT 5703 - 5610 ACC5 + 5610 ACC5 5611 BRANCHIFNOT 5696 - 5613 ACC5 - 5614 GETFIELD0 - 5615 PUSHACC6 - 5616 GETFIELD1 - 5617 PUSHACC7 - 5618 GETFIELD2 + 5613 ACC5 + 5614 GETFIELD0 + 5615 PUSHACC6 + 5616 GETFIELD1 + 5617 PUSHACC7 + 5618 GETFIELD2 5619 PUSHACC 8 - 5621 GETFIELD3 - 5622 PUSHACC3 - 5623 PUSHENVACC1 - 5624 APPLY1 - 5625 PUSHACC1 - 5626 PUSHENVACC1 - 5627 APPLY1 - 5628 GEINT + 5621 GETFIELD3 + 5622 PUSHACC3 + 5623 PUSHENVACC1 + 5624 APPLY1 + 5625 PUSHACC1 + 5626 PUSHENVACC1 + 5627 APPLY1 + 5628 GEINT 5629 BRANCHIFNOT 5652 - 5631 ACC0 - 5632 PUSHACC2 - 5633 PUSHACC4 - 5634 PUSH + 5631 ACC0 + 5632 PUSHACC2 + 5633 PUSHACC4 + 5634 PUSH 5635 PUSH_RETADDR 5648 5637 ACC 9 5639 PUSHACC 15 5641 PUSHACC 15 5643 PUSHACC 15 - 5645 PUSHENVACC2 + 5645 PUSHENVACC2 5646 APPLY 4 - 5648 PUSHENVACC2 + 5648 PUSHENVACC2 5649 APPTERM 4, 14 - 5652 ACC3 + 5652 ACC3 5653 BRANCHIFNOT 5689 5655 PUSH_RETADDR 5666 - 5657 ACC3 - 5658 PUSHACC5 - 5659 PUSHACC7 + 5657 ACC3 + 5658 PUSHACC5 + 5659 PUSHACC7 5660 PUSHACC 9 - 5662 GETFIELD3 - 5663 PUSHENVACC2 + 5662 GETFIELD3 + 5663 PUSHENVACC2 5664 APPLY 4 - 5666 PUSHACC4 - 5667 GETFIELD2 - 5668 PUSHACC5 - 5669 GETFIELD1 - 5670 PUSH + 5666 PUSHACC4 + 5667 GETFIELD2 + 5668 PUSHACC5 + 5669 GETFIELD1 + 5670 PUSH 5671 PUSH_RETADDR 5685 5673 ACC 9 - 5675 GETFIELD0 + 5675 GETFIELD0 5676 PUSHACC 15 5678 PUSHACC 15 5680 PUSHACC 15 - 5682 PUSHENVACC2 + 5682 PUSHENVACC2 5683 APPLY 4 - 5685 PUSHENVACC2 + 5685 PUSHENVACC2 5686 APPTERM 4, 14 5689 GETGLOBAL "Map.bal" 5691 PUSHGETGLOBALFIELD Pervasives, 2 @@ -3903,79 +3903,79 @@ if o#m <> 23 then raise Not_found 5696 GETGLOBAL "Map.bal" 5698 PUSHGETGLOBALFIELD Pervasives, 2 5701 APPTERM1 7 - 5703 ACC0 - 5704 PUSHACC2 - 5705 GEINT + 5703 ACC0 + 5704 PUSHACC2 + 5705 GEINT 5706 BRANCHIFNOT 5713 - 5708 ACC1 + 5708 ACC1 5709 OFFSETINT 1 5711 BRANCH 5716 - 5713 ACC0 + 5713 ACC0 5714 OFFSETINT 1 - 5716 PUSHACC6 - 5717 PUSHACC6 - 5718 PUSHACC6 - 5719 PUSHACC6 + 5716 PUSHACC6 + 5717 PUSHACC6 + 5718 PUSHACC6 + 5719 PUSHACC6 5720 MAKEBLOCK 5, 0 5723 RETURN 6 - 5725 RESTART + 5725 RESTART 5726 GRAB 3 - 5728 ACC0 - 5729 PUSHENVACC1 - 5730 APPLY1 - 5731 PUSHACC4 - 5732 PUSHENVACC1 - 5733 APPLY1 - 5734 PUSHACC0 - 5735 PUSHACC2 - 5736 GEINT + 5728 ACC0 + 5729 PUSHENVACC1 + 5730 APPLY1 + 5731 PUSHACC4 + 5732 PUSHENVACC1 + 5733 APPLY1 + 5734 PUSHACC0 + 5735 PUSHACC2 + 5736 GEINT 5737 BRANCHIFNOT 5744 - 5739 ACC1 + 5739 ACC1 5740 OFFSETINT 1 5742 BRANCH 5747 - 5744 ACC0 + 5744 ACC0 5745 OFFSETINT 1 - 5747 PUSHACC6 - 5748 PUSHACC6 - 5749 PUSHACC6 - 5750 PUSHACC6 + 5747 PUSHACC6 + 5748 PUSHACC6 + 5749 PUSHACC6 + 5750 PUSHACC6 5751 MAKEBLOCK 5, 0 5754 RETURN 6 - 5756 ACC0 + 5756 ACC0 5757 BRANCHIFNOT 5764 - 5759 ACC0 + 5759 ACC0 5760 GETFIELD 4 5762 RETURN 1 - 5764 CONST0 + 5764 CONST0 5765 RETURN 1 - 5767 CONST0 - 5768 PUSH + 5767 CONST0 + 5768 PUSH 5769 CLOSURE 0, 5756 - 5772 PUSHACC0 + 5772 PUSHACC0 5773 CLOSURE 1, 5726 - 5776 PUSHACC0 - 5777 PUSHACC2 + 5776 PUSHACC0 + 5777 PUSHACC2 5778 CLOSURE 2, 5485 - 5781 PUSHACC0 - 5782 PUSHACC5 + 5781 PUSHACC0 + 5782 PUSHACC5 5783 CLOSUREREC 2, 5132 - 5787 ACC5 + 5787 ACC5 5788 CLOSUREREC 1, 5212 - 5792 ACC6 + 5792 ACC6 5793 CLOSUREREC 1, 5253 - 5797 ACC3 + 5797 ACC3 5798 CLOSUREREC 1, 5289 - 5802 ACC0 - 5803 PUSHACC5 + 5802 ACC0 + 5803 PUSHACC5 5804 PUSHACC 10 5806 CLOSUREREC 3, 5344 5810 CLOSUREREC 0, 5403 5814 CLOSUREREC 0, 5428 5818 CLOSUREREC 0, 5458 - 5822 ACC0 - 5823 PUSHACC2 - 5824 PUSHACC4 - 5825 PUSHACC6 + 5822 ACC0 + 5823 PUSHACC2 + 5824 PUSHACC4 + 5825 PUSHACC6 5826 PUSHACC 8 5828 PUSHACC 10 5830 PUSHACC 12 @@ -3987,7 +3987,7 @@ if o#m <> 23 then raise Not_found 5842 MAKEBLOCK 12, 0 5845 RETURN 13 5847 CLOSURE 0, 5767 - 5850 PUSHACC0 + 5850 PUSHACC0 5851 CLOSURE 1, 5100 5854 MAKEBLOCK1 0 5856 POP 1 @@ -3995,238 +3995,238 @@ if o#m <> 23 then raise Not_found 5860 BRANCH 5957 5862 CONSTINT 16 5864 C_CALL1 create_string - 5866 PUSH + 5866 PUSH 5867 PUSH_RETADDR 5879 5869 CONSTINT 16 - 5871 PUSHCONST0 - 5872 PUSHACC5 - 5873 PUSHACC7 + 5871 PUSHCONST0 + 5872 PUSHACC5 + 5873 PUSHACC7 5874 PUSHGETGLOBALFIELD Pervasives, 56 5877 APPLY 4 - 5879 ACC0 + 5879 ACC0 5880 RETURN 2 - 5882 RESTART + 5882 RESTART 5883 GRAB 1 5885 CONSTINT 16 - 5887 PUSHCONST0 - 5888 PUSHACC3 - 5889 PUSHACC3 + 5887 PUSHCONST0 + 5888 PUSHACC3 + 5889 PUSHACC3 5890 PUSHGETGLOBALFIELD Pervasives, 41 5893 APPTERM 4, 6 - 5896 ACC0 + 5896 ACC0 5897 PUSHGETGLOBALFIELD Pervasives, 51 - 5900 APPLY1 - 5901 PUSHACC0 + 5900 APPLY1 + 5901 PUSHACC0 5902 PUSHGETGLOBALFIELD Pervasives, 62 - 5905 APPLY1 - 5906 PUSHACC1 + 5905 APPLY1 + 5906 PUSHACC1 5907 C_CALL2 md5_chan - 5909 PUSHACC1 + 5909 PUSHACC1 5910 PUSHGETGLOBALFIELD Pervasives, 63 - 5913 APPLY1 - 5914 ACC0 + 5913 APPLY1 + 5914 ACC0 5915 RETURN 3 - 5917 RESTART + 5917 RESTART 5918 GRAB 2 - 5920 CONST0 - 5921 PUSHACC2 - 5922 LTINT + 5920 CONST0 + 5921 PUSHACC2 + 5922 LTINT 5923 BRANCHIF 5934 - 5925 ACC0 + 5925 ACC0 5926 C_CALL1 ml_string_length - 5928 PUSHACC3 - 5929 PUSHACC3 - 5930 ADDINT - 5931 GTINT + 5928 PUSHACC3 + 5929 PUSHACC3 + 5930 ADDINT + 5931 GTINT 5932 BRANCHIFNOT 5941 5934 GETGLOBAL "Digest.substring" 5936 PUSHGETGLOBALFIELD Pervasives, 2 5939 APPTERM1 4 - 5941 ACC2 - 5942 PUSHACC2 - 5943 PUSHACC2 + 5941 ACC2 + 5942 PUSHACC2 + 5943 PUSHACC2 5944 C_CALL3 md5_string 5946 RETURN 3 - 5948 ACC0 + 5948 ACC0 5949 C_CALL1 ml_string_length - 5951 PUSHCONST0 - 5952 PUSHACC2 + 5951 PUSHCONST0 + 5952 PUSHACC2 5953 C_CALL3 md5_string 5955 RETURN 1 5957 CLOSURE 0, 5948 - 5960 PUSH + 5960 PUSH 5961 CLOSURE 0, 5918 - 5964 PUSH + 5964 PUSH 5965 CLOSURE 0, 5896 - 5968 PUSH + 5968 PUSH 5969 CLOSURE 0, 5883 - 5972 PUSH + 5972 PUSH 5973 CLOSURE 0, 5862 - 5976 PUSHACC0 - 5977 PUSHACC2 - 5978 PUSHACC4 - 5979 PUSHACC6 + 5976 PUSHACC0 + 5977 PUSHACC2 + 5978 PUSHACC4 + 5979 PUSHACC6 5980 PUSHACC 8 5982 MAKEBLOCK 5, 0 5985 POP 5 5987 SETGLOBAL Digest 5989 BRANCH 6245 - 5991 CONST0 - 5992 PUSHENVACC1 - 5993 APPLY1 - 5994 PUSHACC1 - 5995 PUSHACC1 - 5996 GEINT + 5991 CONST0 + 5992 PUSHENVACC1 + 5993 APPLY1 + 5994 PUSHACC1 + 5995 PUSHACC1 + 5996 GEINT 5997 BRANCHIFNOT 6003 - 5999 ACC1 - 6000 PUSHOFFSETCLOSURE0 + 5999 ACC1 + 6000 PUSHOFFSETCLOSURE0 6001 APPTERM1 3 - 6003 ACC0 + 6003 ACC0 6004 RETURN 2 - 6006 CONST0 + 6006 CONST0 6007 C_CALL1 sys_random_seed - 6009 PUSHENVACC1 + 6009 PUSHENVACC1 6010 APPTERM1 2 6012 CONSTINT 27182818 - 6014 PUSHENVACC2 - 6015 APPLY1 - 6016 CONST0 - 6017 PUSHACC1 - 6018 VECTLENGTH + 6014 PUSHENVACC2 + 6015 APPLY1 + 6016 CONST0 + 6017 PUSHACC1 + 6018 VECTLENGTH 6019 OFFSETINT -1 - 6021 PUSH + 6021 PUSH 6022 BRANCH 6046 - 6024 CHECK_SIGNALS + 6024 CHECK_SIGNALS 6025 CONSTINT 55 - 6027 PUSHACC2 - 6028 MODINT - 6029 PUSHACC2 - 6030 PUSHACC4 - 6031 GETVECTITEM - 6032 PUSHACC1 - 6033 PUSHENVACC1 - 6034 GETVECTITEM - 6035 ADDINT - 6036 PUSHACC1 - 6037 PUSHENVACC1 - 6038 SETVECTITEM + 6027 PUSHACC2 + 6028 MODINT + 6029 PUSHACC2 + 6030 PUSHACC4 + 6031 GETVECTITEM + 6032 PUSHACC1 + 6033 PUSHENVACC1 + 6034 GETVECTITEM + 6035 ADDINT + 6036 PUSHACC1 + 6037 PUSHENVACC1 + 6038 SETVECTITEM 6039 POP 1 - 6041 ACC1 + 6041 ACC1 6042 OFFSETINT 1 6044 ASSIGN 1 - 6046 ACC0 - 6047 PUSHACC2 - 6048 LEINT + 6046 ACC0 + 6047 PUSHACC2 + 6048 LEINT 6049 BRANCHIF 6024 - 6051 CONST0 + 6051 CONST0 6052 RETURN 3 - 6054 ENVACC1 - 6055 GETFIELD0 + 6054 ENVACC1 + 6055 GETFIELD0 6056 OFFSETINT 1 - 6058 PUSHENVACC1 - 6059 SETFIELD0 - 6060 ENVACC1 - 6061 GETFIELD0 + 6058 PUSHENVACC1 + 6059 SETFIELD0 + 6060 ENVACC1 + 6061 GETFIELD0 6062 PUSHGETGLOBALFIELD Pervasives, 14 - 6065 APPLY1 + 6065 APPLY1 6066 PUSHGETGLOBALFIELD Digest, 0 - 6069 APPLY1 + 6069 APPLY1 6070 PUSHCONSTINT 22 - 6072 PUSHCONST3 - 6073 PUSHACC2 + 6072 PUSHCONST3 + 6073 PUSHACC2 6074 C_CALL2 string_get - 6076 LSLINT + 6076 LSLINT 6077 PUSHCONSTINT 16 - 6079 PUSHCONST2 - 6080 PUSHACC3 + 6079 PUSHCONST2 + 6080 PUSHACC3 6081 C_CALL2 string_get - 6083 LSLINT + 6083 LSLINT 6084 PUSHCONSTINT 8 - 6086 PUSHCONST1 - 6087 PUSHACC4 + 6086 PUSHCONST1 + 6087 PUSHACC4 6088 C_CALL2 string_get - 6090 LSLINT - 6091 PUSHCONST0 - 6092 PUSHACC4 + 6090 LSLINT + 6091 PUSHCONST0 + 6092 PUSHACC4 6093 C_CALL2 string_get - 6095 ADDINT - 6096 ADDINT - 6097 XORINT + 6095 ADDINT + 6096 ADDINT + 6097 XORINT 6098 RETURN 2 - 6100 ACC0 + 6100 ACC0 6101 MAKEBLOCK1 0 - 6103 PUSHACC0 + 6103 PUSHACC0 6104 CLOSURE 1, 6054 - 6107 PUSHCONST0 + 6107 PUSHCONST0 6108 PUSHCONSTINT 54 - 6110 PUSH + 6110 PUSH 6111 BRANCH 6125 - 6113 CHECK_SIGNALS - 6114 CONST0 - 6115 PUSHACC3 - 6116 APPLY1 - 6117 PUSHACC2 - 6118 PUSHENVACC1 - 6119 SETVECTITEM - 6120 ACC1 + 6113 CHECK_SIGNALS + 6114 CONST0 + 6115 PUSHACC3 + 6116 APPLY1 + 6117 PUSHACC2 + 6118 PUSHENVACC1 + 6119 SETVECTITEM + 6120 ACC1 6121 OFFSETINT 1 6123 ASSIGN 1 - 6125 ACC0 - 6126 PUSHACC2 - 6127 LEINT + 6125 ACC0 + 6126 PUSHACC2 + 6127 LEINT 6128 BRANCHIF 6113 - 6130 CONST0 + 6130 CONST0 6131 POP 2 - 6133 CONST0 - 6134 PUSHENVACC2 - 6135 SETFIELD0 + 6133 CONST0 + 6134 PUSHENVACC2 + 6135 SETFIELD0 6136 RETURN 3 - 6138 ACC0 - 6139 PUSHCONST0 - 6140 PUSHENVACC1 - 6141 APPLY1 + 6138 ACC0 + 6139 PUSHCONST0 + 6140 PUSHENVACC1 + 6141 APPLY1 6142 C_CALL2 mul_float 6144 RETURN 1 6146 CONSTINT 1073741823 - 6148 PUSHACC1 - 6149 GTINT + 6148 PUSHACC1 + 6149 GTINT 6150 BRANCHIF 6157 - 6152 CONST0 - 6153 PUSHACC1 - 6154 LEINT + 6152 CONST0 + 6153 PUSHACC1 + 6154 LEINT 6155 BRANCHIFNOT 6164 6157 GETGLOBAL "Random.int" 6159 PUSHGETGLOBALFIELD Pervasives, 2 6162 APPTERM1 2 - 6164 ACC0 - 6165 PUSHACC1 - 6166 PUSHACC2 + 6164 ACC0 + 6165 PUSHACC1 + 6166 PUSHACC2 6167 PUSHCONSTINT 1073741823 - 6169 DIVINT - 6170 MULINT - 6171 PUSHENVACC1 - 6172 APPLY1 - 6173 MODINT + 6169 DIVINT + 6170 MULINT + 6171 PUSHENVACC1 + 6172 APPLY1 + 6173 MODINT 6174 RETURN 1 6176 GETGLOBAL 1073741824 - 6178 PUSHCONST0 - 6179 PUSHENVACC1 - 6180 APPLY1 + 6178 PUSHCONST0 + 6179 PUSHENVACC1 + 6180 APPLY1 6181 C_CALL1 float_of_int - 6183 PUSHCONST0 - 6184 PUSHENVACC1 - 6185 APPLY1 + 6183 PUSHCONST0 + 6184 PUSHENVACC1 + 6185 APPLY1 6186 C_CALL1 float_of_int - 6188 PUSHCONST0 - 6189 PUSHENVACC1 - 6190 APPLY1 + 6188 PUSHCONST0 + 6189 PUSHENVACC1 + 6190 APPLY1 6191 C_CALL1 float_of_int - 6193 PUSHACC3 - 6194 PUSHACC1 - 6195 PUSHACC5 - 6196 PUSHACC4 - 6197 PUSHACC7 - 6198 PUSHACC7 + 6193 PUSHACC3 + 6194 PUSHACC1 + 6195 PUSHACC5 + 6196 PUSHACC4 + 6197 PUSHACC7 + 6198 PUSHACC7 6199 C_CALL2 div_float 6201 C_CALL2 add_float 6203 C_CALL2 div_float @@ -4234,32 +4234,32 @@ if o#m <> 23 then raise Not_found 6207 C_CALL2 div_float 6209 RETURN 5 6211 CONSTINT 55 - 6213 PUSHENVACC2 - 6214 GETFIELD0 + 6213 PUSHENVACC2 + 6214 GETFIELD0 6215 OFFSETINT 1 - 6217 MODINT - 6218 PUSHENVACC2 - 6219 SETFIELD0 - 6220 ENVACC2 - 6221 GETFIELD0 - 6222 PUSHENVACC1 - 6223 GETVECTITEM + 6217 MODINT + 6218 PUSHENVACC2 + 6219 SETFIELD0 + 6220 ENVACC2 + 6221 GETFIELD0 + 6222 PUSHENVACC1 + 6223 GETVECTITEM 6224 PUSHCONSTINT 55 - 6226 PUSHENVACC2 - 6227 GETFIELD0 + 6226 PUSHENVACC2 + 6227 GETFIELD0 6228 OFFSETINT 24 - 6230 MODINT - 6231 PUSHENVACC1 - 6232 GETVECTITEM - 6233 ADDINT - 6234 PUSHACC0 - 6235 PUSHENVACC2 - 6236 GETFIELD0 - 6237 PUSHENVACC1 - 6238 SETVECTITEM + 6230 MODINT + 6231 PUSHENVACC1 + 6232 GETVECTITEM + 6233 ADDINT + 6234 PUSHACC0 + 6235 PUSHENVACC2 + 6236 GETFIELD0 + 6237 PUSHENVACC1 + 6238 SETVECTITEM 6239 CONSTINT 1073741823 - 6241 PUSHACC1 - 6242 ANDINT + 6241 PUSHACC1 + 6242 ANDINT 6243 RETURN 2 6245 CONSTINT 440266690 6247 PUSHCONSTINT 124177607 @@ -4317,1429 +4317,1429 @@ if o#m <> 23 then raise Not_found 6351 PUSHCONSTINT 1051173471 6353 PUSHCONSTINT 561073064 6355 MAKEBLOCK 55, 0 - 6358 PUSHCONST0 + 6358 PUSHCONST0 6359 MAKEBLOCK1 0 - 6361 PUSHACC0 - 6362 PUSHACC2 + 6361 PUSHACC0 + 6362 PUSHACC2 6363 CLOSURE 2, 6211 - 6366 PUSHACC0 + 6366 PUSHACC0 6367 CLOSURE 1, 6176 - 6370 PUSHACC1 + 6370 PUSHACC1 6371 CLOSUREREC 1, 5991 - 6375 ACC0 + 6375 ACC0 6376 CLOSURE 1, 6146 - 6379 PUSHACC2 + 6379 PUSHACC2 6380 CLOSURE 1, 6138 - 6383 PUSHACC5 - 6384 PUSHACC7 + 6383 PUSHACC5 + 6384 PUSHACC7 6385 CLOSURE 2, 6100 - 6388 PUSHACC0 + 6388 PUSHACC0 6389 PUSHACC 8 6391 CLOSURE 2, 6012 - 6394 PUSHACC1 + 6394 PUSHACC1 6395 CLOSURE 1, 6006 - 6398 PUSHACC3 - 6399 PUSHACC5 + 6398 PUSHACC3 + 6399 PUSHACC5 6400 PUSHACC 9 - 6402 PUSHACC3 - 6403 PUSHACC5 - 6404 PUSHACC7 + 6402 PUSHACC3 + 6403 PUSHACC5 + 6404 PUSHACC7 6405 MAKEBLOCK 6, 0 6408 POP 10 6410 SETGLOBAL Random 6412 BRANCH 8038 - 6414 RESTART + 6414 RESTART 6415 GRAB 1 - 6417 ACC1 + 6417 ACC1 6418 BRANCHIFNOT 6441 - 6420 ACC1 - 6421 GETFIELD0 - 6422 PUSHACC2 - 6423 GETFIELD1 - 6424 PUSHACC1 - 6425 PUSHACC3 - 6426 EQ + 6420 ACC1 + 6421 GETFIELD0 + 6422 PUSHACC2 + 6423 GETFIELD1 + 6424 PUSHACC1 + 6425 PUSHACC3 + 6426 EQ 6427 BRANCHIFNOT 6432 - 6429 ACC0 + 6429 ACC0 6430 RETURN 4 - 6432 ACC0 - 6433 PUSHACC3 - 6434 PUSHOFFSETCLOSURE0 - 6435 APPLY2 - 6436 PUSHACC2 + 6432 ACC0 + 6433 PUSHACC3 + 6434 PUSHOFFSETCLOSURE0 + 6435 APPLY2 + 6436 PUSHACC2 6437 MAKEBLOCK2 0 6439 POP 2 6441 RETURN 2 - 6443 RESTART + 6443 RESTART 6444 GRAB 1 - 6446 CONST0 - 6447 PUSHACC2 - 6448 GTINT + 6446 CONST0 + 6447 PUSHACC2 + 6448 GTINT 6449 BRANCHIFNOT 6512 - 6451 CONST0 - 6452 PUSHENVACC2 - 6453 GETFIELD0 - 6454 GTINT + 6451 CONST0 + 6452 PUSHENVACC2 + 6453 GETFIELD0 + 6454 GTINT 6455 BRANCHIFNOT 6512 - 6457 ENVACC2 - 6458 GETFIELD0 + 6457 ENVACC2 + 6458 GETFIELD0 6459 PUSHGETGLOBALFIELD Random, 4 - 6462 APPLY1 - 6463 PUSHACC0 - 6464 PUSHENVACC1 - 6465 GETFIELD0 + 6462 APPLY1 + 6463 PUSHACC0 + 6464 PUSHENVACC1 + 6465 GETFIELD0 6466 C_CALL2 array_get_addr 6468 PUSHENVACC 5 - 6470 APPLY1 + 6470 APPLY1 6471 BRANCHIF 6482 - 6473 ACC0 + 6473 ACC0 6474 PUSHENVACC 4 - 6476 APPLY1 - 6477 ACC2 - 6478 PUSHACC2 - 6479 PUSHOFFSETCLOSURE0 + 6476 APPLY1 + 6477 ACC2 + 6478 PUSHACC2 + 6479 PUSHOFFSETCLOSURE0 6480 APPTERM2 5 6482 PUSHTRAP 6496 - 6484 ACC5 - 6485 PUSHACC5 - 6486 PUSHENVACC1 - 6487 GETFIELD0 + 6484 ACC5 + 6485 PUSHACC5 + 6486 PUSHENVACC1 + 6487 GETFIELD0 6488 C_CALL2 array_get_addr 6490 PUSHENVACC 7 - 6492 APPLY2 - 6493 POPTRAP + 6492 APPLY2 + 6493 POPTRAP 6494 RETURN 3 6496 PUSHENVACC 6 - 6498 PUSHACC1 - 6499 GETFIELD0 - 6500 EQ + 6498 PUSHACC1 + 6499 GETFIELD0 + 6500 EQ 6501 BRANCHIFNOT 6510 - 6503 ACC3 + 6503 ACC3 6504 OFFSETINT -1 - 6506 PUSHACC3 - 6507 PUSHOFFSETCLOSURE0 + 6506 PUSHACC3 + 6507 PUSHOFFSETCLOSURE0 6508 APPTERM2 6 - 6510 ACC0 - 6511 RAISE - 6512 ACC0 - 6513 PUSHENVACC3 - 6514 APPLY1 - 6515 ACC0 + 6510 ACC0 + 6511 RAISE + 6512 ACC0 + 6513 PUSHENVACC3 + 6514 APPLY1 + 6515 ACC0 6516 RETURN 2 - 6518 RESTART + 6518 RESTART 6519 GRAB 1 - 6521 ACC1 + 6521 ACC1 6522 BRANCHIFNOT 6534 - 6524 ACC0 - 6525 PUSHACC2 - 6526 GETFIELD0 - 6527 APPLY1 - 6528 ACC1 - 6529 GETFIELD1 - 6530 PUSHACC1 - 6531 PUSHOFFSETCLOSURE0 + 6524 ACC0 + 6525 PUSHACC2 + 6526 GETFIELD0 + 6527 APPLY1 + 6528 ACC1 + 6529 GETFIELD1 + 6530 PUSHACC1 + 6531 PUSHOFFSETCLOSURE0 6532 APPTERM2 4 6534 RETURN 2 - 6536 CONST0 - 6537 PUSHENVACC1 + 6536 CONST0 + 6537 PUSHENVACC1 6538 OFFSETINT -1 - 6540 PUSH + 6540 PUSH 6541 BRANCH 6567 - 6543 CHECK_SIGNALS - 6544 ENVACC2 - 6545 PUSHACC2 - 6546 PUSHACC4 + 6543 CHECK_SIGNALS + 6544 ENVACC2 + 6545 PUSHACC2 + 6546 PUSHACC4 6547 C_CALL2 array_get - 6549 EQ + 6549 EQ 6550 BRANCHIFNOT 6556 6552 CONSTINT 46 6554 BRANCH 6558 6556 CONSTINT 42 6558 PUSHGETGLOBALFIELD Pervasives, 20 - 6561 APPLY1 - 6562 ACC1 + 6561 APPLY1 + 6562 ACC1 6563 OFFSETINT 1 6565 ASSIGN 1 - 6567 ACC0 - 6568 PUSHACC2 - 6569 LEINT + 6567 ACC0 + 6568 PUSHACC2 + 6569 LEINT 6570 BRANCHIF 6543 - 6572 CONST0 + 6572 CONST0 6573 POP 2 - 6575 CONST0 + 6575 CONST0 6576 PUSHGETGLOBALFIELD Pervasives, 25 6579 APPTERM1 2 - 6581 ENVACC3 - 6582 GETFIELD0 + 6581 ENVACC3 + 6582 GETFIELD0 6583 PUSHENVACC 4 - 6585 APPLY1 - 6586 PUSHENVACC2 - 6587 PUSHENVACC1 + 6585 APPLY1 + 6586 PUSHENVACC2 + 6587 PUSHENVACC1 6588 CLOSURE 2, 6536 6591 PUSHGETGLOBALFIELD List, 9 6594 APPTERM2 3 - 6596 ACC0 - 6597 GETFIELD1 + 6596 ACC0 + 6597 GETFIELD1 6598 RETURN 1 - 6600 RESTART + 6600 RESTART 6601 GRAB 1 - 6603 ACC1 - 6604 GETFIELD0 - 6605 PUSHACC1 - 6606 GETFIELD0 - 6607 LEINT + 6603 ACC1 + 6604 GETFIELD0 + 6605 PUSHACC1 + 6606 GETFIELD0 + 6607 LEINT 6608 RETURN 2 - 6610 ACC0 - 6611 PUSHACC1 - 6612 PUSHENVACC1 - 6613 APPLY1 + 6610 ACC0 + 6611 PUSHACC1 + 6612 PUSHENVACC1 + 6613 APPLY1 6614 MAKEBLOCK2 0 6616 RETURN 1 - 6618 ACC0 - 6619 PUSHENVACC1 + 6618 ACC0 + 6619 PUSHENVACC1 6620 CLOSURE 1, 6610 6623 PUSHGETGLOBALFIELD List, 10 - 6626 APPLY2 - 6627 PUSH + 6626 APPLY2 + 6627 PUSH 6628 CLOSURE 0, 6601 6631 PUSHGETGLOBALFIELD Sort, 0 - 6634 APPLY2 - 6635 PUSH + 6634 APPLY2 + 6635 PUSH 6636 CLOSURE 0, 6596 6639 PUSHGETGLOBALFIELD List, 10 6642 APPTERM2 3 - 6644 ENVACC3 - 6645 GETFIELD0 - 6646 VECTLENGTH + 6644 ENVACC3 + 6645 GETFIELD0 + 6646 VECTLENGTH 6647 PUSHENVACC 4 - 6649 GETFIELD0 - 6650 PUSHCONST0 + 6649 GETFIELD0 + 6650 PUSHCONST0 6651 PUSHENVACC 8 - 6653 APPLY1 - 6654 PUSHENVACC2 - 6655 GETFIELD0 + 6653 APPLY1 + 6654 PUSHENVACC2 + 6655 GETFIELD0 6656 PUSHGETGLOBALFIELD List, 0 - 6659 APPLY1 + 6659 APPLY1 6660 PUSHENVACC 7 - 6662 GETFIELD0 + 6662 GETFIELD0 6663 PUSHENVACC 6 - 6665 GETFIELD0 - 6666 PUSHENVACC1 - 6667 GETFIELD0 + 6665 GETFIELD0 + 6666 PUSHENVACC1 + 6667 GETFIELD0 6668 PUSHENVACC 5 - 6670 GETFIELD0 + 6670 GETFIELD0 6671 MAKEBLOCK 8, 0 6674 RETURN 1 - 6676 ACC0 - 6677 PUSHENVACC1 - 6678 APPLY1 - 6679 PUSHACC0 + 6676 ACC0 + 6677 PUSHENVACC1 + 6678 APPLY1 + 6679 PUSHACC0 6680 OFFSETINT -1 - 6682 PUSHENVACC2 + 6682 PUSHENVACC2 6683 C_CALL2 array_get_addr 6685 OFFSETINT 1 - 6687 PUSHACC1 + 6687 PUSHACC1 6688 OFFSETINT -1 - 6690 PUSHENVACC2 + 6690 PUSHENVACC2 6691 C_CALL3 array_set_addr 6693 RETURN 2 - 6695 CONST0 + 6695 CONST0 6696 PUSHCONSTINT 32 6698 C_CALL2 make_vect - 6700 PUSHENVACC1 - 6701 GETFIELD0 - 6702 PUSHACC1 - 6703 PUSHENVACC2 + 6700 PUSHENVACC1 + 6701 GETFIELD0 + 6702 PUSHACC1 + 6703 PUSHENVACC2 6704 CLOSURE 2, 6676 6707 PUSHGETGLOBALFIELD List, 9 - 6710 APPLY2 - 6711 ACC0 + 6710 APPLY2 + 6711 ACC0 6712 RETURN 2 - 6714 RESTART + 6714 RESTART 6715 GRAB 1 - 6717 ACC1 - 6718 PUSHENVACC1 - 6719 APPLY1 - 6720 PUSHACC1 - 6721 PUSHACC1 - 6722 GETFIELD1 - 6723 PUSHACC2 - 6724 GETFIELD0 - 6725 PUSHCONST0 - 6726 PUSHACC5 + 6717 ACC1 + 6718 PUSHENVACC1 + 6719 APPLY1 + 6720 PUSHACC1 + 6721 PUSHACC1 + 6722 GETFIELD1 + 6723 PUSHACC2 + 6724 GETFIELD0 + 6725 PUSHCONST0 + 6726 PUSHACC5 6727 C_CALL2 array_get_addr 6729 C_CALL2 array_get_addr 6731 C_CALL2 array_get_addr 6733 APPTERM1 4 - 6735 ACC0 - 6736 GETFIELD0 + 6735 ACC0 + 6736 GETFIELD0 6737 C_CALL1 obj_dup - 6739 PUSHENVACC1 - 6740 PUSHACC1 - 6741 PUSHENVACC2 - 6742 APPLY2 - 6743 ACC1 - 6744 GETFIELD2 - 6745 PUSHACC1 - 6746 PUSHENVACC3 - 6747 APPLY2 - 6748 ACC0 + 6739 PUSHENVACC1 + 6740 PUSHACC1 + 6741 PUSHENVACC2 + 6742 APPLY2 + 6743 ACC1 + 6744 GETFIELD2 + 6745 PUSHACC1 + 6746 PUSHENVACC3 + 6747 APPLY2 + 6748 ACC0 6749 RETURN 2 - 6751 RESTART + 6751 RESTART 6752 GRAB 1 - 6754 ACC1 + 6754 ACC1 6755 GETFIELD 7 - 6757 PUSHCONST0 - 6758 PUSHACC1 - 6759 NEQ + 6757 PUSHCONST0 + 6758 PUSHACC1 + 6759 NEQ 6760 BRANCHIFNOT 6767 - 6762 ACC0 - 6763 PUSHACC2 - 6764 PUSHENVACC1 + 6762 ACC0 + 6763 PUSHACC2 + 6764 PUSHENVACC1 6765 APPTERM2 5 6767 RETURN 3 - 6769 ACC0 - 6770 GETFIELD0 - 6771 PUSHENVACC1 + 6769 ACC0 + 6770 GETFIELD0 + 6771 PUSHENVACC1 6772 C_CALL2 obj_block - 6774 PUSHACC1 - 6775 GETFIELD1 - 6776 PUSHCONST0 - 6777 PUSHACC2 + 6774 PUSHACC1 + 6775 GETFIELD1 + 6776 PUSHCONST0 + 6777 PUSHACC2 6778 C_CALL3 array_unsafe_set - 6780 ENVACC2 - 6781 PUSHACC1 - 6782 PUSHENVACC3 - 6783 APPLY2 - 6784 ACC0 + 6780 ENVACC2 + 6781 PUSHACC1 + 6782 PUSHENVACC3 + 6783 APPLY2 + 6784 ACC0 6785 RETURN 2 - 6787 ACC0 - 6788 GETFIELD0 - 6789 PUSHENVACC3 - 6790 GETFIELD0 - 6791 ADDINT + 6787 ACC0 + 6788 GETFIELD0 + 6789 PUSHENVACC3 + 6790 GETFIELD0 + 6791 ADDINT 6792 OFFSETINT -1 - 6794 PUSHENVACC3 - 6795 SETFIELD0 - 6796 ENVACC1 - 6797 GETFIELD0 + 6794 PUSHENVACC3 + 6795 SETFIELD0 + 6796 ENVACC1 + 6797 GETFIELD0 6798 BRANCHIFNOT 6804 - 6800 ACC0 - 6801 GETFIELD1 - 6802 PUSHENVACC2 - 6803 APPLY1 - 6804 ACC0 + 6800 ACC0 + 6801 GETFIELD1 + 6802 PUSHENVACC2 + 6803 APPLY1 + 6804 ACC0 6805 GETFIELD 7 6807 PUSHGETGLOBALFIELD List, 4 - 6810 APPLY1 - 6811 PUSHACC1 + 6810 APPLY1 + 6811 PUSHACC1 6812 SETFIELD 7 6814 RETURN 1 - 6816 ACC0 - 6817 PUSHENVACC1 - 6818 APPLY1 + 6816 ACC0 + 6817 PUSHENVACC1 + 6818 APPLY1 6819 PUSHENVACC 4 - 6821 GETFIELD2 - 6822 PUSHACC1 - 6823 PUSHACC3 - 6824 PUSHENVACC2 - 6825 GETFIELD1 - 6826 APPLY3 + 6821 GETFIELD2 + 6822 PUSHACC1 + 6823 PUSHACC3 + 6824 PUSHENVACC2 + 6825 GETFIELD1 + 6826 APPLY3 6827 PUSHENVACC 4 - 6829 SETFIELD2 - 6830 ENVACC4 - 6831 GETFIELD3 - 6832 PUSHCONST1 - 6833 PUSHACC2 - 6834 PUSHENVACC3 - 6835 GETFIELD1 - 6836 APPLY3 + 6829 SETFIELD2 + 6830 ENVACC4 + 6831 GETFIELD3 + 6832 PUSHCONST1 + 6833 PUSHACC2 + 6834 PUSHENVACC3 + 6835 GETFIELD1 + 6836 APPLY3 6837 PUSHENVACC 4 - 6839 SETFIELD3 + 6839 SETFIELD3 6840 RETURN 2 - 6842 CONST0 + 6842 CONST0 6843 PUSHENVACC 4 - 6845 APPLY1 - 6846 PUSHACC1 - 6847 PUSHACC1 - 6848 PUSHENVACC3 - 6849 PUSHENVACC2 - 6850 PUSHENVACC1 + 6845 APPLY1 + 6846 PUSHACC1 + 6847 PUSHACC1 + 6848 PUSHENVACC3 + 6849 PUSHENVACC2 + 6850 PUSHENVACC1 6851 CLOSURE 4, 6816 6854 PUSHGETGLOBALFIELD List, 9 - 6857 APPLY2 - 6858 ACC0 + 6857 APPLY2 + 6858 ACC0 6859 RETURN 2 - 6861 RESTART + 6861 RESTART 6862 GRAB 1 - 6864 ACC0 + 6864 ACC0 6865 GETFIELD 7 - 6867 PUSHACC2 + 6867 PUSHACC2 6868 MAKEBLOCK2 0 - 6870 PUSHACC1 + 6870 PUSHACC1 6871 SETFIELD 7 6873 RETURN 2 - 6875 ENVACC1 - 6876 PUSHENVACC3 - 6877 PUSH + 6875 ENVACC1 + 6876 PUSHENVACC3 + 6877 PUSH 6878 BRANCH 6895 - 6880 CHECK_SIGNALS - 6881 ACC1 - 6882 PUSHENVACC2 - 6883 GETVECTITEM + 6880 CHECK_SIGNALS + 6881 ACC1 + 6882 PUSHENVACC2 + 6883 GETVECTITEM 6884 PUSHENVACC 4 - 6886 PUSHACC3 - 6887 ADDINT - 6888 PUSHACC4 - 6889 SETVECTITEM - 6890 ACC1 + 6886 PUSHACC3 + 6887 ADDINT + 6888 PUSHACC4 + 6889 SETVECTITEM + 6890 ACC1 6891 OFFSETINT 1 6893 ASSIGN 1 - 6895 ACC0 - 6896 PUSHACC2 - 6897 LEINT + 6895 ACC0 + 6896 PUSHACC2 + 6897 LEINT 6898 BRANCHIF 6880 - 6900 CONST0 + 6900 CONST0 6901 RETURN 3 - 6903 ENVACC2 - 6904 GETFIELD0 - 6905 PUSHENVACC2 - 6906 GETFIELD2 - 6907 GETFIELD0 + 6903 ENVACC2 + 6904 GETFIELD0 + 6905 PUSHENVACC2 + 6906 GETFIELD2 + 6907 GETFIELD0 6908 OFFSETINT -1 - 6910 PUSHENVACC3 - 6911 GETFIELD0 + 6910 PUSHENVACC3 + 6911 GETFIELD0 6912 OFFSETINT -1 - 6914 PUSHACC1 - 6915 PUSHACC1 - 6916 SUBINT - 6917 PUSHACC0 - 6918 PUSHACC3 - 6919 PUSHACC5 - 6920 PUSHENVACC1 + 6914 PUSHACC1 + 6915 PUSHACC1 + 6916 SUBINT + 6917 PUSHACC0 + 6918 PUSHACC3 + 6919 PUSHACC5 + 6920 PUSHENVACC1 6921 CLOSURE 4, 6875 6924 RETURN 5 - 6926 RESTART + 6926 RESTART 6927 GRAB 1 - 6929 CONST0 - 6930 ACC1 - 6931 PUSHACC1 - 6932 PUSHENVACC1 + 6929 CONST0 + 6930 ACC1 + 6931 PUSHACC1 + 6932 PUSHENVACC1 6933 CLOSURE 3, 6903 6936 RETURN 2 - 6938 RESTART + 6938 RESTART 6939 GRAB 1 - 6941 ACC0 + 6941 ACC0 6942 GETFIELD 6 - 6944 PUSHACC2 - 6945 PUSHENVACC1 - 6946 GETFIELD2 + 6944 PUSHACC2 + 6945 PUSHENVACC1 + 6946 GETFIELD2 6947 APPTERM2 4 - 6949 RESTART + 6949 RESTART 6950 GRAB 1 - 6952 ACC0 - 6953 PUSHENVACC2 - 6954 APPLY1 - 6955 PUSHACC1 + 6952 ACC0 + 6953 PUSHENVACC2 + 6954 APPLY1 + 6955 PUSHACC1 6956 GETFIELD 6 - 6958 PUSHACC1 - 6959 PUSHACC4 - 6960 PUSHENVACC1 - 6961 GETFIELD1 - 6962 APPLY3 - 6963 PUSHACC2 + 6958 PUSHACC1 + 6959 PUSHACC4 + 6960 PUSHENVACC1 + 6961 GETFIELD1 + 6962 APPLY3 + 6963 PUSHACC2 6964 SETFIELD 6 - 6966 ACC0 + 6966 ACC0 6967 RETURN 3 - 6969 ACC0 - 6970 GETFIELD0 - 6971 PUSHACC0 + 6969 ACC0 + 6970 GETFIELD0 + 6971 PUSHACC0 6972 OFFSETINT 1 - 6974 PUSHACC2 - 6975 SETFIELD0 - 6976 ACC0 + 6974 PUSHACC2 + 6975 SETFIELD0 + 6976 ACC0 6977 RETURN 2 - 6979 RESTART + 6979 RESTART 6980 GRAB 1 - 6982 CONST0 - 6983 PUSHACC1 - 6984 PUSHACC3 - 6985 GETFIELD1 + 6982 CONST0 + 6983 PUSHACC1 + 6984 PUSHACC3 + 6985 GETFIELD1 6986 APPTERM2 4 - 6988 RESTART + 6988 RESTART 6989 GRAB 1 - 6991 ENVACC1 + 6991 ENVACC1 6992 GETFIELD 4 - 6994 PUSHACC1 - 6995 GETFIELD0 + 6994 PUSHACC1 + 6995 GETFIELD0 6996 PUSHGETGLOBALFIELD List, 23 - 6999 APPLY2 + 6999 APPLY2 7000 BRANCHIFNOT 7005 - 7002 ACC1 + 7002 ACC1 7003 RETURN 2 - 7005 ACC1 - 7006 PUSHACC1 + 7005 ACC1 + 7006 PUSHACC1 7007 MAKEBLOCK2 0 7009 RETURN 2 - 7011 RESTART + 7011 RESTART 7012 GRAB 1 - 7014 ACC0 - 7015 PUSHENVACC2 + 7014 ACC0 + 7015 PUSHENVACC2 7016 GETFIELD 6 - 7018 PUSHACC3 - 7019 PUSHENVACC1 - 7020 GETFIELD2 - 7021 APPLY2 - 7022 PUSHACC3 - 7023 PUSHENVACC1 - 7024 GETFIELD1 + 7018 PUSHACC3 + 7019 PUSHENVACC1 + 7020 GETFIELD2 + 7021 APPLY2 + 7022 PUSHACC3 + 7023 PUSHENVACC1 + 7024 GETFIELD1 7025 APPTERM3 5 - 7027 ACC0 + 7027 ACC0 7028 GETFIELD 4 7030 PUSHGETGLOBALFIELD List, 1 - 7033 APPLY1 - 7034 PUSHACC1 + 7033 APPLY1 + 7034 PUSHACC1 7035 GETFIELD 4 7037 PUSHGETGLOBALFIELD List, 2 - 7040 APPLY1 - 7041 PUSHACC2 + 7040 APPLY1 + 7041 PUSHACC2 7042 SETFIELD 4 - 7044 ACC0 + 7044 ACC0 7045 GETFIELD 5 - 7047 PUSHACC1 - 7048 GETFIELD3 - 7049 PUSHACC3 - 7050 PUSHENVACC1 + 7047 PUSHACC1 + 7048 GETFIELD3 + 7049 PUSHACC3 + 7050 PUSHENVACC1 7051 CLOSURE 2, 7012 7054 PUSHGETGLOBALFIELD List, 12 - 7057 APPLY3 - 7058 PUSHACC2 + 7057 APPLY3 + 7058 PUSHACC2 7059 SETFIELD 6 - 7061 ACC0 - 7062 GETFIELD0 - 7063 PUSHACC2 - 7064 SETFIELD2 - 7065 ACC0 - 7066 GETFIELD1 - 7067 PUSHACC2 - 7068 SETFIELD3 - 7069 ACC0 - 7070 GETFIELD2 - 7071 PUSHACC2 + 7061 ACC0 + 7062 GETFIELD0 + 7063 PUSHACC2 + 7064 SETFIELD2 + 7065 ACC0 + 7066 GETFIELD1 + 7067 PUSHACC2 + 7068 SETFIELD3 + 7069 ACC0 + 7070 GETFIELD2 + 7071 PUSHACC2 7072 GETFIELD 5 - 7074 PUSHACC2 + 7074 PUSHACC2 7075 CLOSURE 1, 6989 7078 PUSHGETGLOBALFIELD List, 13 - 7081 APPLY3 - 7082 PUSHACC2 + 7081 APPLY3 + 7082 PUSHACC2 7083 SETFIELD 5 7085 RETURN 2 - 7087 RESTART + 7087 RESTART 7088 GRAB 1 - 7090 ENVACC1 - 7091 PUSHACC1 - 7092 GETFIELD0 + 7090 ENVACC1 + 7091 PUSHACC1 + 7092 GETFIELD0 7093 PUSHGETGLOBALFIELD List, 23 - 7096 APPLY2 + 7096 APPLY2 7097 BRANCHIFNOT 7102 - 7099 ACC1 + 7099 ACC1 7100 RETURN 2 - 7102 ACC1 - 7103 PUSHACC1 + 7102 ACC1 + 7103 PUSHACC1 7104 MAKEBLOCK2 0 7106 RETURN 2 - 7108 RESTART + 7108 RESTART 7109 GRAB 1 - 7111 ENVACC3 - 7112 GETFIELD0 - 7113 PUSHACC2 - 7114 PUSHACC2 - 7115 PUSHENVACC1 - 7116 GETFIELD1 - 7117 APPLY3 - 7118 PUSHENVACC3 - 7119 SETFIELD0 - 7120 ENVACC4 - 7121 GETFIELD0 - 7122 PUSHCONST0 - 7123 PUSHACC3 - 7124 PUSHENVACC2 - 7125 GETFIELD1 - 7126 APPLY3 + 7111 ENVACC3 + 7112 GETFIELD0 + 7113 PUSHACC2 + 7114 PUSHACC2 + 7115 PUSHENVACC1 + 7116 GETFIELD1 + 7117 APPLY3 + 7118 PUSHENVACC3 + 7119 SETFIELD0 + 7120 ENVACC4 + 7121 GETFIELD0 + 7122 PUSHCONST0 + 7123 PUSHACC3 + 7124 PUSHENVACC2 + 7125 GETFIELD1 + 7126 APPLY3 7127 PUSHENVACC 4 - 7129 SETFIELD0 + 7129 SETFIELD0 7130 RETURN 2 - 7132 ACC0 + 7132 ACC0 7133 PUSHENVACC 4 - 7135 PUSHENVACC3 - 7136 APPLY2 + 7135 PUSHENVACC3 + 7136 APPLY2 7137 PUSHENVACC 5 - 7139 GETFIELD0 - 7140 PUSHACC1 - 7141 PUSHACC3 - 7142 PUSHENVACC1 - 7143 GETFIELD1 - 7144 APPLY3 + 7139 GETFIELD0 + 7140 PUSHACC1 + 7141 PUSHACC3 + 7142 PUSHENVACC1 + 7143 GETFIELD1 + 7144 APPLY3 7145 PUSHENVACC 5 - 7147 SETFIELD0 + 7147 SETFIELD0 7148 ENVACC 6 - 7150 GETFIELD0 - 7151 PUSH + 7150 GETFIELD0 + 7151 PUSH 7152 PUSHTRAP 7163 - 7154 ENVACC4 - 7155 GETFIELD3 - 7156 PUSHACC6 - 7157 PUSHENVACC2 - 7158 GETFIELD2 - 7159 APPLY2 - 7160 POPTRAP + 7154 ENVACC4 + 7155 GETFIELD3 + 7156 PUSHACC6 + 7157 PUSHENVACC2 + 7158 GETFIELD2 + 7159 APPLY2 + 7160 POPTRAP 7161 BRANCH 7177 7163 PUSHGETGLOBAL Not_found - 7165 PUSHACC1 - 7166 GETFIELD0 - 7167 EQ + 7165 PUSHACC1 + 7166 GETFIELD0 + 7167 EQ 7168 BRANCHIFNOT 7173 - 7170 CONST1 + 7170 CONST1 7171 BRANCH 7175 - 7173 ACC0 - 7174 RAISE + 7173 ACC0 + 7174 RAISE 7175 POP 1 - 7177 PUSHACC2 - 7178 PUSHENVACC2 - 7179 GETFIELD1 - 7180 APPLY3 + 7177 PUSHACC2 + 7178 PUSHENVACC2 + 7179 GETFIELD1 + 7180 APPLY3 7181 PUSHENVACC 6 - 7183 SETFIELD0 + 7183 SETFIELD0 7184 RETURN 2 - 7186 RESTART + 7186 RESTART 7187 GRAB 3 - 7189 ACC2 - 7190 PUSHACC1 + 7189 ACC2 + 7190 PUSHACC1 7191 PUSHENVACC 4 - 7193 APPLY1 + 7193 APPLY1 7194 PUSHGETGLOBALFIELD List, 10 - 7197 APPLY2 - 7198 PUSHACC1 + 7197 APPLY2 + 7198 PUSHACC1 7199 GETFIELD 4 - 7201 PUSHACC3 - 7202 PUSHACC2 - 7203 PUSHACC4 + 7201 PUSHACC3 + 7202 PUSHACC2 + 7203 PUSHACC4 7204 GETFIELD 6 - 7206 PUSHACC5 + 7206 PUSHACC5 7207 GETFIELD 5 - 7209 PUSHACC6 - 7210 GETFIELD3 - 7211 PUSHACC7 - 7212 GETFIELD2 + 7209 PUSHACC6 + 7210 GETFIELD3 + 7211 PUSHACC7 + 7212 GETFIELD2 7213 MAKEBLOCK 6, 0 7216 MAKEBLOCK2 0 - 7218 PUSHACC2 + 7218 PUSHACC2 7219 SETFIELD 4 - 7221 ENVACC1 - 7222 GETFIELD0 - 7223 PUSHACC2 + 7221 ENVACC1 + 7222 GETFIELD0 + 7223 PUSHACC2 7224 SETFIELD 6 - 7226 ENVACC2 - 7227 GETFIELD0 + 7226 ENVACC2 + 7227 GETFIELD0 7228 MAKEBLOCK1 0 - 7230 PUSHENVACC3 - 7231 GETFIELD0 + 7230 PUSHENVACC3 + 7231 GETFIELD0 7232 MAKEBLOCK1 0 - 7234 PUSHACC6 - 7235 PUSHACC1 - 7236 PUSHACC3 - 7237 PUSHACC6 + 7234 PUSHACC6 + 7235 PUSHACC1 + 7236 PUSHACC3 + 7237 PUSHACC6 7238 PUSHENVACC 4 - 7240 PUSHENVACC3 - 7241 PUSHENVACC2 + 7240 PUSHENVACC3 + 7241 PUSHENVACC2 7242 CLOSURE 6, 7132 7245 PUSHGETGLOBALFIELD List, 9 - 7248 APPLY2 - 7249 ACC2 - 7250 PUSHACC6 - 7251 PUSHACC2 - 7252 PUSHACC4 - 7253 PUSHENVACC3 - 7254 PUSHENVACC2 + 7248 APPLY2 + 7249 ACC2 + 7250 PUSHACC6 + 7251 PUSHACC2 + 7252 PUSHACC4 + 7253 PUSHENVACC3 + 7254 PUSHENVACC2 7255 CLOSURE 4, 7109 7258 PUSHGETGLOBALFIELD List, 14 - 7261 APPLY3 - 7262 ACC1 - 7263 GETFIELD0 - 7264 PUSHACC4 - 7265 SETFIELD2 - 7266 ACC0 - 7267 GETFIELD0 - 7268 PUSHACC4 - 7269 SETFIELD3 - 7270 CONST0 - 7271 PUSHACC4 + 7261 APPLY3 + 7262 ACC1 + 7263 GETFIELD0 + 7264 PUSHACC4 + 7265 SETFIELD2 + 7266 ACC0 + 7267 GETFIELD0 + 7268 PUSHACC4 + 7269 SETFIELD3 + 7270 CONST0 + 7271 PUSHACC4 7272 GETFIELD 5 - 7274 PUSHACC4 + 7274 PUSHACC4 7275 CLOSURE 1, 7088 7278 PUSHGETGLOBALFIELD List, 13 - 7281 APPLY3 - 7282 PUSHACC4 + 7281 APPLY3 + 7282 PUSHACC4 7283 SETFIELD 5 7285 RETURN 7 - 7287 RESTART + 7287 RESTART 7288 GRAB 1 7290 PUSHTRAP 7303 - 7292 ACC4 + 7292 ACC4 7293 GETFIELD 5 - 7295 PUSHACC6 + 7295 PUSHACC6 7296 PUSHGETGLOBALFIELD List, 29 - 7299 APPLY2 - 7300 POPTRAP + 7299 APPLY2 + 7300 POPTRAP 7301 RETURN 2 7303 PUSHGETGLOBAL Not_found - 7305 PUSHACC1 - 7306 GETFIELD0 - 7307 EQ + 7305 PUSHACC1 + 7306 GETFIELD0 + 7307 EQ 7308 BRANCHIFNOT 7325 - 7310 ACC2 - 7311 PUSHENVACC1 - 7312 APPLY1 - 7313 PUSHACC0 - 7314 GETFIELD1 - 7315 PUSHACC1 - 7316 GETFIELD0 - 7317 PUSHACC4 - 7318 GETFIELD1 + 7310 ACC2 + 7311 PUSHENVACC1 + 7312 APPLY1 + 7313 PUSHACC0 + 7314 GETFIELD1 + 7315 PUSHACC1 + 7316 GETFIELD0 + 7317 PUSHACC4 + 7318 GETFIELD1 7319 C_CALL2 array_get_addr 7321 C_CALL2 array_get 7323 RETURN 4 - 7325 ACC0 - 7326 RAISE - 7327 RESTART + 7325 ACC0 + 7326 RAISE + 7327 RESTART 7328 GRAB 2 - 7330 ENVACC3 + 7330 ENVACC3 7331 OFFSETREF 1 - 7333 ACC0 - 7334 GETFIELD3 - 7335 PUSHACC2 - 7336 PUSHENVACC1 - 7337 GETFIELD2 - 7338 APPLY2 + 7333 ACC0 + 7334 GETFIELD3 + 7335 PUSHACC2 + 7336 PUSHENVACC1 + 7337 GETFIELD2 + 7338 APPLY2 7339 BRANCHIFNOT 7347 - 7341 ACC2 - 7342 PUSHACC2 - 7343 PUSHACC2 - 7344 PUSHENVACC2 + 7341 ACC2 + 7342 PUSHACC2 + 7343 PUSHACC2 + 7344 PUSHENVACC2 7345 APPTERM3 6 - 7347 ACC0 + 7347 ACC0 7348 GETFIELD 5 - 7350 PUSHACC3 - 7351 PUSHACC3 + 7350 PUSHACC3 + 7351 PUSHACC3 7352 MAKEBLOCK2 0 7354 MAKEBLOCK2 0 - 7356 PUSHACC1 + 7356 PUSHACC1 7357 SETFIELD 5 7359 RETURN 3 - 7361 RESTART + 7361 RESTART 7362 GRAB 1 7364 PUSHTRAP 7375 - 7366 ACC4 - 7367 GETFIELD2 - 7368 PUSHACC6 - 7369 PUSHENVACC2 - 7370 GETFIELD2 - 7371 APPLY2 - 7372 POPTRAP + 7366 ACC4 + 7367 GETFIELD2 + 7368 PUSHACC6 + 7369 PUSHENVACC2 + 7370 GETFIELD2 + 7371 APPLY2 + 7372 POPTRAP 7373 RETURN 2 7375 PUSHGETGLOBAL Not_found - 7377 PUSHACC1 - 7378 GETFIELD0 - 7379 EQ + 7377 PUSHACC1 + 7378 GETFIELD0 + 7379 EQ 7380 BRANCHIFNOT 7406 - 7382 CONST0 - 7383 PUSHENVACC1 - 7384 APPLY1 - 7385 PUSHACC2 - 7386 GETFIELD2 - 7387 PUSHACC1 - 7388 PUSHACC5 - 7389 PUSHENVACC2 - 7390 GETFIELD1 - 7391 APPLY3 - 7392 PUSHACC3 - 7393 SETFIELD2 - 7394 ACC2 - 7395 GETFIELD3 - 7396 PUSHCONST1 - 7397 PUSHACC2 - 7398 PUSHENVACC3 - 7399 GETFIELD1 - 7400 APPLY3 - 7401 PUSHACC3 - 7402 SETFIELD3 - 7403 ACC0 + 7382 CONST0 + 7383 PUSHENVACC1 + 7384 APPLY1 + 7385 PUSHACC2 + 7386 GETFIELD2 + 7387 PUSHACC1 + 7388 PUSHACC5 + 7389 PUSHENVACC2 + 7390 GETFIELD1 + 7391 APPLY3 + 7392 PUSHACC3 + 7393 SETFIELD2 + 7394 ACC2 + 7395 GETFIELD3 + 7396 PUSHCONST1 + 7397 PUSHACC2 + 7398 PUSHENVACC3 + 7399 GETFIELD1 + 7400 APPLY3 + 7401 PUSHACC3 + 7402 SETFIELD3 + 7403 ACC0 7404 RETURN 4 - 7406 ACC0 - 7407 RAISE - 7408 RESTART + 7406 ACC0 + 7407 RAISE + 7408 RESTART 7409 GRAB 2 - 7411 ACC1 - 7412 PUSHENVACC1 - 7413 APPLY1 - 7414 PUSHACC0 - 7415 GETFIELD0 - 7416 PUSHACC0 + 7411 ACC1 + 7412 PUSHENVACC1 + 7413 APPLY1 + 7414 PUSHACC0 + 7415 GETFIELD0 + 7416 PUSHACC0 7417 OFFSETINT 1 - 7419 PUSHACC3 + 7419 PUSHACC3 7420 PUSHENVACC 4 - 7422 APPLY2 - 7423 ACC0 - 7424 PUSHACC3 - 7425 GETFIELD1 + 7422 APPLY2 + 7423 ACC0 + 7424 PUSHACC3 + 7425 GETFIELD1 7426 C_CALL2 array_get_addr - 7428 PUSHENVACC2 - 7429 PUSHACC1 - 7430 EQ + 7428 PUSHENVACC2 + 7429 PUSHACC1 + 7430 EQ 7431 BRANCHIFNOT 7444 - 7433 CONST0 - 7434 PUSHENVACC3 - 7435 APPLY1 + 7433 CONST0 + 7434 PUSHENVACC3 + 7435 APPLY1 7436 ASSIGN 0 - 7438 ACC0 - 7439 PUSHACC2 - 7440 PUSHACC5 - 7441 GETFIELD1 + 7438 ACC0 + 7439 PUSHACC2 + 7440 PUSHACC5 + 7441 GETFIELD1 7442 C_CALL3 array_set_addr - 7444 ACC5 - 7445 PUSHACC3 - 7446 GETFIELD1 - 7447 PUSHACC2 + 7444 ACC5 + 7445 PUSHACC3 + 7446 GETFIELD1 + 7447 PUSHACC2 7448 C_CALL3 array_set 7450 RETURN 6 - 7452 RESTART + 7452 RESTART 7453 GRAB 1 - 7455 ACC0 - 7456 GETFIELD1 - 7457 VECTLENGTH - 7458 PUSHACC0 - 7459 PUSHACC3 - 7460 GTINT + 7455 ACC0 + 7456 GETFIELD1 + 7457 VECTLENGTH + 7458 PUSHACC0 + 7459 PUSHACC3 + 7460 GTINT 7461 BRANCHIFNOT 7487 - 7463 ENVACC1 - 7464 PUSHACC3 + 7463 ENVACC1 + 7464 PUSHACC3 7465 C_CALL2 make_vect - 7467 PUSH + 7467 PUSH 7468 PUSH_RETADDR 7482 - 7470 ACC4 - 7471 PUSHCONST0 - 7472 PUSHACC5 - 7473 PUSHCONST0 + 7470 ACC4 + 7471 PUSHCONST0 + 7472 PUSHACC5 + 7473 PUSHCONST0 7474 PUSHACC 9 - 7476 GETFIELD1 + 7476 GETFIELD1 7477 PUSHGETGLOBALFIELD Array, 8 7480 APPLY 5 - 7482 ACC0 - 7483 PUSHACC3 - 7484 SETFIELD1 + 7482 ACC0 + 7483 PUSHACC3 + 7484 SETFIELD1 7485 POP 1 7487 RETURN 3 7489 ENVACC 5 7491 OFFSETREF 1 - 7493 CONST0 - 7494 PUSHENVACC2 - 7495 GETFIELD0 - 7496 PUSHCONST0 - 7497 PUSHCONST0 + 7493 CONST0 + 7494 PUSHENVACC2 + 7495 GETFIELD0 + 7496 PUSHCONST0 + 7497 PUSHCONST0 7498 PUSHENVACC 4 - 7500 GETFIELD0 - 7501 PUSHENVACC3 - 7502 GETFIELD0 - 7503 PUSH - 7504 ATOM0 - 7505 PUSHENVACC1 + 7500 GETFIELD0 + 7501 PUSHENVACC3 + 7502 GETFIELD0 + 7503 PUSH + 7504 ATOM0 + 7505 PUSHENVACC1 7506 MAKEBLOCK 8, 0 7509 RETURN 1 - 7511 RESTART + 7511 RESTART 7512 GRAB 1 - 7514 ACC1 - 7515 PUSHACC1 + 7514 ACC1 + 7515 PUSHACC1 7516 C_CALL2 compare 7518 RETURN 2 - 7520 RESTART + 7520 RESTART 7521 GRAB 1 - 7523 ACC1 - 7524 PUSHACC1 + 7523 ACC1 + 7524 PUSHACC1 7525 C_CALL2 compare 7527 RETURN 2 - 7529 RESTART + 7529 RESTART 7530 GRAB 1 - 7532 ACC1 - 7533 PUSHACC1 + 7532 ACC1 + 7533 PUSHACC1 7534 C_CALL2 compare 7536 RETURN 2 7538 PUSHTRAP 7549 - 7540 ACC4 - 7541 PUSHENVACC1 + 7540 ACC4 + 7541 PUSHENVACC1 7542 PUSHGETGLOBALFIELD Hashtbl, 3 - 7545 APPLY2 - 7546 POPTRAP + 7545 APPLY2 + 7546 POPTRAP 7547 RETURN 1 7549 PUSHGETGLOBAL Not_found - 7551 PUSHACC1 - 7552 GETFIELD0 - 7553 EQ + 7551 PUSHACC1 + 7552 GETFIELD0 + 7553 EQ 7554 BRANCHIFNOT 7569 - 7556 CONST0 - 7557 PUSHENVACC2 - 7558 APPLY1 - 7559 PUSHACC0 - 7560 PUSHACC3 - 7561 PUSHENVACC1 + 7556 CONST0 + 7557 PUSHENVACC2 + 7558 APPLY1 + 7559 PUSHACC0 + 7560 PUSHACC3 + 7561 PUSHENVACC1 7562 PUSHGETGLOBALFIELD Hashtbl, 2 - 7565 APPLY3 - 7566 ACC0 + 7565 APPLY3 + 7566 ACC0 7567 RETURN 3 - 7569 ACC0 - 7570 RAISE - 7571 ENVACC2 - 7572 GETFIELD0 - 7573 PUSHENVACC2 - 7574 GETFIELD0 - 7575 PUSHENVACC1 - 7576 APPLY1 - 7577 PUSHENVACC2 - 7578 SETFIELD0 - 7579 ACC0 + 7569 ACC0 + 7570 RAISE + 7571 ENVACC2 + 7572 GETFIELD0 + 7573 PUSHENVACC2 + 7574 GETFIELD0 + 7575 PUSHENVACC1 + 7576 APPLY1 + 7577 PUSHENVACC2 + 7578 SETFIELD0 + 7579 ACC0 7580 RETURN 2 - 7582 ENVACC1 - 7583 PUSHACC1 - 7584 VECTLENGTH + 7582 ENVACC1 + 7583 PUSHACC1 + 7584 VECTLENGTH 7585 OFFSETINT -1 - 7587 PUSH + 7587 PUSH 7588 BRANCH 7606 - 7590 CHECK_SIGNALS - 7591 ACC1 - 7592 PUSHACC3 + 7590 CHECK_SIGNALS + 7591 ACC1 + 7592 PUSHACC3 7593 C_CALL2 array_get_addr - 7595 PUSHENVACC2 - 7596 APPLY1 - 7597 PUSHACC2 - 7598 PUSHACC4 + 7595 PUSHENVACC2 + 7596 APPLY1 + 7597 PUSHACC2 + 7598 PUSHACC4 7599 C_CALL3 array_set_addr - 7601 ACC1 + 7601 ACC1 7602 OFFSETINT 1 7604 ASSIGN 1 - 7606 ACC0 - 7607 PUSHACC2 - 7608 LEINT + 7606 ACC0 + 7607 PUSHACC2 + 7608 LEINT 7609 BRANCHIF 7590 - 7611 CONST0 + 7611 CONST0 7612 RETURN 3 - 7614 ENVACC4 - 7615 PUSHACC1 - 7616 NEQ + 7614 ENVACC4 + 7615 PUSHACC1 + 7616 NEQ 7617 BRANCHIFNOT 7640 - 7619 ENVACC2 - 7620 GETFIELD0 - 7621 PUSHACC1 - 7622 PUSHENVACC3 - 7623 APPLY1 - 7624 EQ + 7619 ENVACC2 + 7620 GETFIELD0 + 7621 PUSHACC1 + 7622 PUSHENVACC3 + 7623 APPLY1 + 7624 EQ 7625 BRANCHIFNOT 7640 - 7627 ACC0 + 7627 ACC0 7628 PUSHENVACC 5 - 7630 APPLY1 + 7630 APPLY1 7631 BRANCHIFNOT 7640 - 7633 ENVACC1 - 7634 GETFIELD3 - 7635 PUSHACC1 + 7633 ENVACC1 + 7634 GETFIELD3 + 7635 PUSHACC1 7636 PUSHENVACC 6 7638 APPTERM2 3 - 7640 ACC0 + 7640 ACC0 7641 RETURN 1 - 7643 RESTART + 7643 RESTART 7644 GRAB 1 - 7646 CONST0 - 7647 PUSHENVACC1 + 7646 CONST0 + 7647 PUSHENVACC1 7648 OFFSETINT -1 - 7650 PUSH + 7650 PUSH 7651 BRANCH 7690 - 7653 CHECK_SIGNALS - 7654 ENVACC2 - 7655 PUSHACC2 - 7656 PUSHACC5 + 7653 CHECK_SIGNALS + 7654 ENVACC2 + 7655 PUSHACC2 + 7656 PUSHACC5 7657 C_CALL2 array_get - 7659 NEQ + 7659 NEQ 7660 BRANCHIFNOT 7679 - 7662 ENVACC2 - 7663 PUSHACC2 - 7664 PUSHACC4 + 7662 ENVACC2 + 7663 PUSHACC2 + 7664 PUSHACC4 7665 C_CALL2 array_get - 7667 NEQ + 7667 NEQ 7668 BRANCHIFNOT 7679 - 7670 ACC1 - 7671 PUSHACC3 + 7670 ACC1 + 7671 PUSHACC3 7672 C_CALL2 array_get - 7674 PUSHACC2 - 7675 PUSHACC5 + 7674 PUSHACC2 + 7675 PUSHACC5 7676 C_CALL2 array_get - 7678 NEQ + 7678 NEQ 7679 BRANCHIFNOT 7685 - 7681 ENVACC4 + 7681 ENVACC4 7682 MAKEBLOCK1 0 - 7684 RAISE - 7685 ACC1 + 7684 RAISE + 7685 ACC1 7686 OFFSETINT 1 7688 ASSIGN 1 - 7690 ACC0 - 7691 PUSHACC2 - 7692 LEINT + 7690 ACC0 + 7691 PUSHACC2 + 7692 LEINT 7693 BRANCHIF 7653 - 7695 CONST0 + 7695 CONST0 7696 POP 2 - 7698 CONST0 - 7699 PUSHENVACC1 + 7698 CONST0 + 7699 PUSHENVACC1 7700 OFFSETINT -1 - 7702 PUSH + 7702 PUSH 7703 BRANCH 7727 - 7705 CHECK_SIGNALS - 7706 ENVACC2 - 7707 PUSHACC2 - 7708 PUSHACC5 + 7705 CHECK_SIGNALS + 7706 ENVACC2 + 7707 PUSHACC2 + 7708 PUSHACC5 7709 C_CALL2 array_get - 7711 NEQ + 7711 NEQ 7712 BRANCHIFNOT 7722 - 7714 ACC1 - 7715 PUSHACC4 + 7714 ACC1 + 7715 PUSHACC4 7716 C_CALL2 array_get - 7718 PUSHACC2 - 7719 PUSHACC4 + 7718 PUSHACC2 + 7719 PUSHACC4 7720 C_CALL3 array_set - 7722 ACC1 + 7722 ACC1 7723 OFFSETINT 1 7725 ASSIGN 1 - 7727 ACC0 - 7728 PUSHACC2 - 7729 LEINT + 7727 ACC0 + 7728 PUSHACC2 + 7729 LEINT 7730 BRANCHIF 7705 - 7732 CONST0 + 7732 CONST0 7733 POP 2 - 7735 ENVACC3 - 7736 GETFIELD0 - 7737 PUSHACC2 + 7735 ENVACC3 + 7736 GETFIELD0 + 7737 PUSHACC2 7738 PUSHENVACC 5 - 7740 APPLY2 - 7741 PUSHENVACC3 - 7742 SETFIELD0 - 7743 ACC0 + 7740 APPLY2 + 7741 PUSHENVACC3 + 7742 SETFIELD0 + 7743 ACC0 7744 RETURN 2 - 7746 ENVACC1 + 7746 ENVACC1 7747 GETFIELD 4 - 7749 PUSHACC1 - 7750 PUSHENVACC2 - 7751 APPLY1 - 7752 LEINT + 7749 PUSHACC1 + 7750 PUSHENVACC2 + 7751 APPLY1 + 7752 LEINT 7753 RETURN 1 - 7755 CONST0 - 7756 PUSHCONST0 - 7757 PUSHENVACC1 + 7755 CONST0 + 7756 PUSHCONST0 + 7757 PUSHENVACC1 7758 OFFSETINT -1 - 7760 PUSH + 7760 PUSH 7761 BRANCH 7782 - 7763 CHECK_SIGNALS - 7764 ENVACC2 - 7765 PUSHACC2 - 7766 PUSHACC5 + 7763 CHECK_SIGNALS + 7764 ENVACC2 + 7765 PUSHACC2 + 7766 PUSHACC5 7767 C_CALL2 array_get - 7769 NEQ + 7769 NEQ 7770 BRANCHIFNOT 7777 - 7772 ACC2 + 7772 ACC2 7773 OFFSETINT 1 7775 ASSIGN 2 - 7777 ACC1 + 7777 ACC1 7778 OFFSETINT 1 7780 ASSIGN 1 - 7782 ACC0 - 7783 PUSHACC2 - 7784 LEINT + 7782 ACC0 + 7783 PUSHACC2 + 7784 LEINT 7785 BRANCHIF 7763 - 7787 CONST0 + 7787 CONST0 7788 POP 2 - 7790 ACC0 + 7790 ACC0 7791 RETURN 2 - 7793 ENVACC2 - 7794 GETFIELD0 + 7793 ENVACC2 + 7794 GETFIELD0 7795 OFFSETINT -1 - 7797 PUSHENVACC1 - 7798 GETFIELD0 + 7797 PUSHENVACC1 + 7798 GETFIELD0 7799 C_CALL2 array_get_addr - 7801 PUSHACC1 - 7802 PUSHENVACC1 - 7803 GETFIELD0 + 7801 PUSHACC1 + 7802 PUSHENVACC1 + 7803 GETFIELD0 7804 C_CALL3 array_set_addr - 7806 ENVACC2 + 7806 ENVACC2 7807 OFFSETREF -1 7809 RETURN 1 - 7811 ENVACC1 - 7812 GETFIELD0 - 7813 VECTLENGTH - 7814 PUSHACC0 - 7815 PUSHENVACC2 - 7816 GETFIELD0 - 7817 GEINT + 7811 ENVACC1 + 7812 GETFIELD0 + 7813 VECTLENGTH + 7814 PUSHACC0 + 7815 PUSHENVACC2 + 7816 GETFIELD0 + 7817 GEINT 7818 BRANCHIFNOT 7845 - 7820 ATOM0 - 7821 PUSHACC1 - 7822 PUSHCONST2 - 7823 MULINT + 7820 ATOM0 + 7821 PUSHACC1 + 7822 PUSHCONST2 + 7823 MULINT 7824 C_CALL2 make_vect - 7826 PUSH + 7826 PUSH 7827 PUSH_RETADDR 7840 - 7829 ACC4 - 7830 PUSHCONST0 - 7831 PUSHACC5 - 7832 PUSHCONST0 - 7833 PUSHENVACC1 - 7834 GETFIELD0 + 7829 ACC4 + 7830 PUSHCONST0 + 7831 PUSHACC5 + 7832 PUSHCONST0 + 7833 PUSHENVACC1 + 7834 GETFIELD0 7835 PUSHGETGLOBALFIELD Array, 8 7838 APPLY 5 - 7840 ACC0 - 7841 PUSHENVACC1 - 7842 SETFIELD0 + 7840 ACC0 + 7841 PUSHENVACC1 + 7842 SETFIELD0 7843 POP 1 - 7845 ACC1 - 7846 PUSHENVACC2 - 7847 GETFIELD0 - 7848 PUSHENVACC1 - 7849 GETFIELD0 + 7845 ACC1 + 7846 PUSHENVACC2 + 7847 GETFIELD0 + 7848 PUSHENVACC1 + 7849 GETFIELD0 7850 C_CALL3 array_set_addr - 7852 ENVACC2 + 7852 ENVACC2 7853 OFFSETREF 1 7855 RETURN 2 - 7857 ACC0 - 7858 GETFIELD0 - 7859 PUSHENVACC1 - 7860 APPLY1 - 7861 PUSHENVACC2 - 7862 PUSHACC1 - 7863 GETFIELD0 - 7864 EQ + 7857 ACC0 + 7858 GETFIELD0 + 7859 PUSHENVACC1 + 7860 APPLY1 + 7861 PUSHENVACC2 + 7862 PUSHACC1 + 7863 GETFIELD0 + 7864 EQ 7865 BRANCHIFNOT 7874 - 7867 ACC1 - 7868 GETFIELD1 - 7869 PUSHACC1 - 7870 GETFIELD1 - 7871 PUSHENVACC3 + 7867 ACC1 + 7868 GETFIELD1 + 7869 PUSHACC1 + 7870 GETFIELD1 + 7871 PUSHENVACC3 7872 C_CALL3 array_set 7874 RETURN 2 - 7876 RESTART + 7876 RESTART 7877 GRAB 1 - 7879 CONST0 - 7880 PUSHENVACC2 - 7881 APPLY1 - 7882 PUSHACC2 + 7879 CONST0 + 7880 PUSHENVACC2 + 7881 APPLY1 + 7882 PUSHACC2 7883 PUSHGETGLOBALFIELD List, 4 - 7886 APPLY1 - 7887 PUSHACC1 - 7888 PUSHACC3 - 7889 PUSHENVACC1 + 7886 APPLY1 + 7887 PUSHACC1 + 7888 PUSHACC3 + 7889 PUSHENVACC1 7890 CLOSURE 3, 7857 7893 PUSHGETGLOBALFIELD List, 9 - 7896 APPLY2 - 7897 ACC0 + 7896 APPLY2 + 7897 ACC0 7898 RETURN 3 - 7900 ACC0 + 7900 ACC0 7901 PUSHGETGLOBALFIELD Array, 6 - 7904 APPLY1 - 7905 PUSHACC0 - 7906 PUSHENVACC3 - 7907 APPLY1 - 7908 ENVACC2 - 7909 GETFIELD0 - 7910 PUSHENVACC1 - 7911 PUSHACC2 + 7904 APPLY1 + 7905 PUSHACC0 + 7906 PUSHENVACC3 + 7907 APPLY1 + 7908 ENVACC2 + 7909 GETFIELD0 + 7910 PUSHENVACC1 + 7911 PUSHACC2 7912 C_CALL3 array_set - 7914 ENVACC4 - 7915 GETFIELD0 - 7916 PUSHACC1 + 7914 ENVACC4 + 7915 GETFIELD0 + 7916 PUSHACC1 7917 MAKEBLOCK2 0 7919 PUSHENVACC 4 - 7921 SETFIELD0 - 7922 ACC0 + 7921 SETFIELD0 + 7922 ACC0 7923 RETURN 2 - 7925 ENVACC2 - 7926 PUSHENVACC1 + 7925 ENVACC2 + 7926 PUSHENVACC1 7927 OFFSETINT 1 7929 C_CALL2 make_vect - 7931 PUSHACC0 - 7932 PUSHENVACC3 - 7933 APPLY1 - 7934 ENVACC4 - 7935 GETFIELD0 - 7936 PUSHACC1 + 7931 PUSHACC0 + 7932 PUSHENVACC3 + 7933 APPLY1 + 7934 ENVACC4 + 7935 GETFIELD0 + 7936 PUSHACC1 7937 MAKEBLOCK2 0 7939 PUSHENVACC 4 - 7941 SETFIELD0 - 7942 ACC0 + 7941 SETFIELD0 + 7942 ACC0 7943 RETURN 2 - 7945 ENVACC1 - 7946 PUSHACC1 + 7945 ENVACC1 + 7946 PUSHACC1 7947 C_CALL2 array_get 7949 RETURN 1 - 7951 ENVACC2 - 7952 GETFIELD0 - 7953 PUSHENVACC1 - 7954 PUSHACC2 + 7951 ENVACC2 + 7952 GETFIELD0 + 7953 PUSHENVACC1 + 7954 PUSHACC2 7955 C_CALL3 array_set 7957 RETURN 1 - 7959 ENVACC1 - 7960 PUSHENVACC2 - 7961 PUSHENVACC1 - 7962 MULINT - 7963 PUSHACC2 - 7964 MODINT - 7965 DIVINT - 7966 PUSHENVACC1 + 7959 ENVACC1 + 7960 PUSHENVACC2 + 7961 PUSHENVACC1 + 7962 MULINT + 7963 PUSHACC2 + 7964 MODINT + 7965 DIVINT + 7966 PUSHENVACC1 7967 PUSHCONSTINT 65536 - 7969 PUSHACC3 - 7970 DIVINT - 7971 DIVINT + 7969 PUSHACC3 + 7970 DIVINT + 7971 DIVINT 7972 MAKEBLOCK2 0 7974 RETURN 1 - 7976 ENVACC3 + 7976 ENVACC3 7977 OFFSETREF 1 - 7979 ENVACC1 - 7980 PUSHACC1 - 7981 ADDINT - 7982 PUSHCONST0 - 7983 PUSHENVACC2 - 7984 PUSHENVACC1 - 7985 MULINT - 7986 PUSHACC2 - 7987 MODINT - 7988 EQ + 7979 ENVACC1 + 7980 PUSHACC1 + 7981 ADDINT + 7982 PUSHCONST0 + 7983 PUSHENVACC2 + 7984 PUSHENVACC1 + 7985 MULINT + 7986 PUSHACC2 + 7987 MODINT + 7988 EQ 7989 BRANCHIFNOT 8001 - 7991 ENVACC2 + 7991 ENVACC2 7992 PUSHCONSTINT 65536 - 7994 SUBINT - 7995 PUSHENVACC1 - 7996 MULINT - 7997 PUSHACC1 - 7998 ADDINT + 7994 SUBINT + 7995 PUSHENVACC1 + 7996 MULINT + 7997 PUSHACC1 + 7998 ADDINT 7999 RETURN 2 - 8001 ACC0 + 8001 ACC0 8002 RETURN 2 - 8004 ACC0 + 8004 ACC0 8005 C_CALL1 obj_dup - 8007 PUSHENVACC1 - 8008 PUSHACC1 - 8009 PUSHENVACC2 - 8010 APPLY2 - 8011 ACC0 + 8007 PUSHENVACC1 + 8008 PUSHACC1 + 8009 PUSHENVACC2 + 8010 APPLY2 + 8011 ACC0 8012 RETURN 2 - 8014 RESTART + 8014 RESTART 8015 GRAB 1 - 8017 ACC1 - 8018 GETFIELD0 - 8019 PUSHACC0 - 8020 PUSHCONST1 - 8021 PUSHACC3 - 8022 SETVECTITEM - 8023 ACC0 + 8017 ACC1 + 8018 GETFIELD0 + 8019 PUSHACC0 + 8020 PUSHCONST1 + 8021 PUSHACC3 + 8022 SETVECTITEM + 8023 ACC0 8024 OFFSETINT 1 - 8026 PUSHACC3 - 8027 SETFIELD0 + 8026 PUSHACC3 + 8027 SETFIELD0 8028 RETURN 3 - 8030 ENVACC1 - 8031 GETFIELD0 - 8032 PUSHENVACC1 + 8030 ENVACC1 + 8031 GETFIELD0 + 8032 PUSHENVACC1 8033 OFFSETREF 1 - 8035 ACC0 + 8035 ACC0 8036 RETURN 2 8038 CONSTINT 248 - 8040 PUSHCONST0 + 8040 PUSHCONST0 8041 MAKEBLOCK1 0 - 8043 PUSHACC0 + 8043 PUSHACC0 8044 CLOSURE 1, 8030 - 8047 PUSH + 8047 PUSH 8048 CLOSURE 0, 8015 - 8051 PUSHACC0 - 8052 PUSHACC3 + 8051 PUSHACC0 + 8052 PUSHACC3 8053 CLOSURE 2, 8004 8056 PUSHCONSTINT 16 - 8058 PUSHCONST3 - 8059 PUSHCONST1 - 8060 PUSHCONST1 - 8061 PUSHCONST1 + 8058 PUSHCONST3 + 8059 PUSHCONST1 + 8060 PUSHCONST1 + 8061 PUSHCONST1 8062 MAKEBLOCK 5, 0 8065 PUSHCONSTINT 16 8067 PUSHGETGLOBALFIELD Sys, 3 - 8070 DIVINT - 8071 PUSHCONST0 + 8070 DIVINT + 8071 PUSHCONST0 8072 PUSHCONSTINT 32 - 8074 PUSHCONST2 - 8075 PUSHCONST0 + 8074 PUSHCONST2 + 8075 PUSHCONST0 8076 MAKEBLOCK1 0 - 8078 PUSHACC0 - 8079 PUSHACC3 - 8080 PUSHACC6 + 8078 PUSHACC0 + 8079 PUSHACC3 + 8080 PUSHACC6 8081 CLOSURE 3, 7976 - 8084 PUSHACC3 - 8085 PUSHACC6 + 8084 PUSHACC3 + 8085 PUSHACC6 8086 CLOSURE 2, 7959 - 8089 PUSHCONST0 - 8090 PUSHCONST0 + 8089 PUSHCONST0 + 8090 PUSHCONST0 8091 MAKEBLOCK1 0 - 8093 PUSHACC0 - 8094 PUSHACC7 + 8093 PUSHACC0 + 8094 PUSHACC7 8095 CLOSURE 2, 7951 - 8098 PUSHACC7 + 8098 PUSHACC7 8099 CLOSURE 1, 7945 - 8102 PUSHCONST0 + 8102 PUSHCONST0 8103 MAKEBLOCK1 0 - 8105 PUSH - 8106 ATOM0 - 8107 PUSHACC1 - 8108 PUSHACC4 - 8109 PUSHACC7 + 8105 PUSH + 8106 ATOM0 + 8107 PUSHACC1 + 8108 PUSHACC4 + 8109 PUSHACC7 8110 PUSHACC 13 8112 CLOSURE 4, 7925 - 8115 PUSHACC2 - 8116 PUSHACC5 - 8117 PUSHACC7 + 8115 PUSHACC2 + 8116 PUSHACC5 + 8117 PUSHACC7 8118 PUSHACC 14 8120 CLOSURE 4, 7900 - 8123 PUSHACC1 + 8123 PUSHACC1 8124 PUSHACC 9 8126 CLOSURE 2, 7877 - 8129 PUSH - 8130 ATOM0 + 8129 PUSH + 8130 ATOM0 8131 PUSHCONSTINT 10 8133 C_CALL2 make_vect 8135 MAKEBLOCK1 0 - 8137 PUSHCONST0 + 8137 PUSHCONST0 8138 MAKEBLOCK1 0 - 8140 PUSHACC0 - 8141 PUSHACC2 + 8140 PUSHACC0 + 8141 PUSHACC2 8142 CLOSURE 2, 7811 - 8145 PUSHACC1 - 8146 PUSHACC3 + 8145 PUSHACC1 + 8146 PUSHACC3 8147 CLOSURE 2, 7793 8150 PUSHACC 12 8152 PUSHACC 18 8154 CLOSURE 2, 7755 - 8157 PUSHACC0 + 8157 PUSHACC0 8158 PUSHACC 22 8160 CLOSURE 2, 7746 8163 PUSHGETGLOBAL "Oo.Failed" 8165 MAKEBLOCK1 0 - 8167 PUSH + 8167 PUSH 8168 CLOSUREREC 0, 6415 - 8172 ACC0 - 8173 PUSHACC2 + 8172 ACC0 + 8173 PUSHACC2 8174 PUSHACC 14 8176 PUSHACC 19 8178 PUSHACC 25 8180 CLOSURE 5, 7644 - 8183 PUSHACC0 - 8184 PUSHACC3 - 8185 PUSHACC5 + 8183 PUSHACC0 + 8184 PUSHACC3 + 8185 PUSHACC5 8186 PUSHACC 8 8188 PUSHACC 10 8190 PUSHACC 12 8192 PUSHACC 14 8194 CLOSUREREC 7, 6444 - 8198 ACC0 - 8199 PUSHACC5 + 8198 ACC0 + 8199 PUSHACC5 8200 PUSHACC 15 8202 PUSHACC 18 8204 PUSHACC 21 8206 PUSHACC 31 8208 CLOSURE 6, 7614 - 8211 PUSHACC0 + 8211 PUSHACC0 8212 PUSHACC 26 8214 CLOSURE 2, 7582 8217 PUSHACC 27 8219 PUSHCONSTINT 65536 8221 PUSHACC 28 - 8223 MULINT - 8224 MULINT - 8225 PUSHACC0 + 8223 MULINT + 8224 MULINT + 8225 PUSHACC0 8226 MAKEBLOCK1 0 8228 PUSHCONSTINT 101 8230 PUSHGETGLOBALFIELD Hashtbl, 0 - 8233 APPLY1 - 8234 PUSHACC1 + 8233 APPLY1 + 8234 PUSHACC1 8235 PUSHACC 26 8237 CLOSURE 2, 7571 - 8240 PUSHACC0 - 8241 PUSHACC2 + 8240 PUSHACC0 + 8241 PUSHACC2 8242 CLOSURE 2, 7538 - 8245 PUSH + 8245 PUSH 8246 CLOSURE 0, 7530 - 8249 PUSHACC0 + 8249 PUSHACC0 8250 MAKEBLOCK1 0 8252 POP 1 8254 PUSHGETGLOBALFIELD Map, 0 - 8257 APPLY1 - 8258 PUSH + 8257 APPLY1 + 8258 PUSH 8259 CLOSURE 0, 7521 - 8262 PUSHACC0 + 8262 PUSHACC0 8263 MAKEBLOCK1 0 8265 POP 1 8267 PUSHGETGLOBALFIELD Map, 0 - 8270 APPLY1 - 8271 PUSH + 8270 APPLY1 + 8271 PUSH 8272 CLOSURE 0, 7512 - 8275 PUSHACC0 + 8275 PUSHACC0 8276 MAKEBLOCK1 0 8278 POP 1 8280 PUSHGETGLOBALFIELD Map, 0 - 8283 APPLY1 - 8284 PUSHCONST0 + 8283 APPLY1 + 8284 PUSHCONST0 8285 MAKEBLOCK1 0 - 8287 PUSHACC0 - 8288 PUSHACC2 - 8289 PUSHACC4 - 8290 PUSHACC6 + 8287 PUSHACC0 + 8288 PUSHACC2 + 8289 PUSHACC4 + 8290 PUSHACC6 8291 PUSHACC 37 8293 CLOSURE 5, 7489 8296 PUSHACC 25 8298 CLOSURE 1, 7453 - 8301 PUSHACC0 + 8301 PUSHACC0 8302 PUSHACC 26 8304 PUSHACC 28 8306 PUSHACC 35 8308 CLOSURE 4, 7409 - 8311 PUSHCONST0 + 8311 PUSHCONST0 8312 MAKEBLOCK1 0 - 8314 PUSHCONST0 + 8314 PUSHCONST0 8315 MAKEBLOCK1 0 - 8317 PUSHACC6 + 8317 PUSHACC6 8318 PUSHACC 8 8320 PUSHACC 12 8322 CLOSURE 3, 7362 - 8325 PUSHACC2 - 8326 PUSHACC4 + 8325 PUSHACC2 + 8326 PUSHACC4 8327 PUSHACC 9 8329 CLOSURE 3, 7328 8332 PUSHACC 37 8334 CLOSURE 1, 7288 - 8337 PUSHACC2 + 8337 PUSHACC2 8338 PUSHACC 10 8340 PUSHACC 12 8342 PUSHACC 14 8344 CLOSURE 4, 7187 8347 PUSHACC 12 8349 CLOSURE 1, 7027 - 8352 PUSH + 8352 PUSH 8353 CLOSURE 0, 6980 - 8356 PUSH + 8356 PUSH 8357 CLOSURE 0, 6969 - 8360 PUSHACC0 + 8360 PUSHACC0 8361 PUSHACC 16 8363 CLOSURE 2, 6950 8366 PUSHACC 16 8368 CLOSURE 1, 6939 8371 PUSHACC 47 8373 CLOSURE 1, 6927 - 8376 PUSH + 8376 PUSH 8377 CLOSURE 0, 6862 8380 PUSHACC 15 8382 PUSHACC 18 @@ -5754,11 +5754,11 @@ if o#m <> 23 then raise Not_found 8402 PUSHACC 60 8404 PUSHACC 62 8406 CLOSURE 3, 6769 - 8409 PUSH + 8409 PUSH 8410 CLOSUREREC 0, 6519 - 8414 ACC0 + 8414 ACC0 8415 CLOSURE 1, 6752 - 8418 PUSHACC0 + 8418 PUSHACC0 8419 PUSHACC 61 8421 PUSHACC 64 8423 CLOSURE 3, 6735 @@ -5767,7 +5767,7 @@ if o#m <> 23 then raise Not_found 8431 PUSHACC 39 8433 PUSHACC 49 8435 CLOSURE 2, 6695 - 8438 PUSHACC0 + 8438 PUSHACC0 8439 PUSHACC 20 8441 PUSHACC 22 8443 PUSHACC 27 @@ -5778,15 +5778,15 @@ if o#m <> 23 then raise Not_found 8453 CLOSURE 8, 6644 8456 PUSHACC 41 8458 CLOSURE 1, 6618 - 8461 PUSHACC0 + 8461 PUSHACC0 8462 PUSHACC 52 8464 PUSHACC 57 8466 PUSHACC 63 8468 CLOSURE 4, 6581 - 8471 PUSHACC0 - 8472 PUSHACC3 + 8471 PUSHACC0 + 8472 PUSHACC3 8473 PUSHACC 66 - 8475 PUSHACC7 + 8475 PUSHACC7 8476 PUSHACC 9 8478 PUSHACC 11 8480 PUSHACC 14 @@ -5808,78 +5808,78 @@ if o#m <> 23 then raise Not_found 8513 POP 70 8515 SETGLOBAL Oo 8517 BRANCH 8568 - 8519 ACC0 + 8519 ACC0 8520 BRANCHIFNOT 8525 - 8522 ACC0 + 8522 ACC0 8523 BRANCH 8530 - 8525 ENVACC1 + 8525 ENVACC1 8526 PUSHGETGLOBALFIELD Oo, 14 - 8529 APPLY1 - 8530 PUSHCONST0 - 8531 ACC1 + 8529 APPLY1 + 8530 PUSHCONST0 + 8531 ACC1 8532 BRANCHIFNOT 8537 - 8534 CONST0 + 8534 CONST0 8535 BRANCH 8543 - 8537 ENVACC1 - 8538 PUSHACC1 + 8537 ENVACC1 + 8538 PUSHACC1 8539 PUSHGETGLOBALFIELD Oo, 15 - 8542 APPLY2 - 8543 ACC0 + 8542 APPLY2 + 8543 ACC0 8544 RETURN 2 8546 CONSTINT 23 8548 RETURN 1 8550 CLOSURE 0, 8546 - 8553 PUSHACC0 + 8553 PUSHACC0 8554 POP 1 - 8556 PUSHENVACC1 - 8557 PUSHACC2 + 8556 PUSHENVACC1 + 8557 PUSHACC2 8558 PUSHGETGLOBALFIELD Oo, 8 - 8561 APPLY3 - 8562 ACC0 + 8561 APPLY3 + 8562 ACC0 8563 CLOSURE 1, 8519 8566 RETURN 1 8568 GETGLOBALFIELD Oo, 1 8571 PUSHGETGLOBAL "m" - 8573 PUSHACC1 - 8574 APPLY1 - 8575 PUSHCONST3 + 8573 PUSHACC1 + 8574 APPLY1 + 8575 PUSHCONST3 8576 C_CALL1 alloc_dummy 8578 PUSHGETGLOBAL <0>("m", 0) 8580 PUSHGETGLOBALFIELD Oo, 12 - 8583 APPLY1 - 8584 PUSHACC2 + 8583 APPLY1 + 8584 PUSHACC2 8585 CLOSURE 1, 8550 - 8588 PUSHACC1 - 8589 PUSHACC1 - 8590 APPLY1 - 8591 PUSHACC2 + 8588 PUSHACC1 + 8589 PUSHACC1 + 8590 APPLY1 + 8591 PUSHACC2 8592 PUSHGETGLOBALFIELD Oo, 13 - 8595 APPLY1 - 8596 ACC2 - 8597 PUSHACC2 - 8598 PUSHACC2 + 8595 APPLY1 + 8596 ACC2 + 8597 PUSHACC2 + 8598 PUSHACC2 8599 MAKEBLOCK3 0 8601 POP 3 - 8603 PUSHACC1 + 8603 PUSHACC1 8604 C_CALL2 update_dummy - 8606 CONST0 - 8607 PUSHACC1 - 8608 GETFIELD0 - 8609 APPLY1 + 8606 CONST0 + 8607 PUSHACC1 + 8608 GETFIELD0 + 8609 APPLY1 8610 PUSHCONSTINT 23 - 8612 PUSHACC1 - 8613 PUSHACC4 - 8614 GETMETHOD - 8615 APPLY1 - 8616 NEQ + 8612 PUSHACC1 + 8613 PUSHACC4 + 8614 GETMETHOD + 8615 APPLY1 + 8616 NEQ 8617 BRANCHIFNOT 8624 8619 GETGLOBAL Not_found 8621 MAKEBLOCK1 0 - 8623 RAISE + 8623 RAISE 8624 POP 1 - 8626 ACC0 + 8626 ACC0 8627 MAKEBLOCK1 0 8629 POP 3 8631 SETGLOBAL T300-getmethod - 8633 STOP + 8633 STOP **) diff --git a/testsuite/tests/tool-ocaml/t301-object.ml b/testsuite/tests/tool-ocaml/t301-object.ml index ac4a4e03d..6b33f8277 100644 --- a/testsuite/tests/tool-ocaml/t301-object.ml +++ b/testsuite/tests/tool-ocaml/t301-object.ml @@ -1,5 +1,5 @@ -(**** file testinterp/t301-object.ml - suggested by Jacques Garrigue to Basile Starynkevitch +(**** file testinterp/t301-object.ml + suggested by Jacques Garrigue to Basile Starynkevitch compilable with ocamlc -nostdlib -I ../../stdlib \ diff --git a/testsuite/tests/tool-ocaml/t310-alloc-1.ml b/testsuite/tests/tool-ocaml/t310-alloc-1.ml index c438cc972..9e0ff1a28 100644 --- a/testsuite/tests/tool-ocaml/t310-alloc-1.ml +++ b/testsuite/tests/tool-ocaml/t310-alloc-1.ml @@ -9,599 +9,599 @@ if List.fold_left (+) 0 l <> 30000 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 746 - 11 RESTART + 11 RESTART 12 GRAB 1 - 14 ACC0 + 14 ACC0 15 BRANCHIFNOT 28 - 17 ACC1 - 18 PUSHACC1 - 19 GETFIELD1 - 20 PUSHOFFSETCLOSURE0 - 21 APPLY2 - 22 PUSHACC1 - 23 GETFIELD0 + 17 ACC1 + 18 PUSHACC1 + 19 GETFIELD1 + 20 PUSHOFFSETCLOSURE0 + 21 APPLY2 + 22 PUSHACC1 + 23 GETFIELD0 24 MAKEBLOCK2 0 26 RETURN 2 - 28 ACC1 + 28 ACC1 29 RETURN 2 - 31 RESTART + 31 RESTART 32 GRAB 3 - 34 CONST0 - 35 PUSHACC4 - 36 LEINT + 34 CONST0 + 35 PUSHACC4 + 36 LEINT 37 BRANCHIFNOT 42 - 39 CONST0 + 39 CONST0 40 RETURN 4 - 42 ACC3 - 43 PUSHACC3 - 44 PUSHACC3 - 45 PUSHACC3 + 42 ACC3 + 43 PUSHACC3 + 44 PUSHACC3 + 45 PUSHACC3 46 C_CALL4 caml_input - 48 PUSHCONST0 - 49 PUSHACC1 - 50 EQ + 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 + 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 + 70 ACC0 71 C_CALL1 caml_input_scan_line - 73 PUSHCONST0 - 74 PUSHACC1 - 75 EQ + 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 + 82 RAISE + 83 CONST0 + 84 PUSHACC1 + 85 GTINT 86 BRANCHIFNOT 107 - 88 ACC0 + 88 ACC0 89 OFFSETINT -1 91 C_CALL1 create_string - 93 PUSHACC1 + 93 PUSHACC1 94 OFFSETINT -1 - 96 PUSHCONST0 - 97 PUSHACC2 - 98 PUSHACC5 + 96 PUSHCONST0 + 97 PUSHACC2 + 98 PUSHACC5 99 C_CALL4 caml_input - 101 ACC2 + 101 ACC2 102 C_CALL1 caml_input_char - 104 ACC0 + 104 ACC0 105 RETURN 3 - 107 ACC0 - 108 NEGINT + 107 ACC0 + 108 NEGINT 109 C_CALL1 create_string - 111 PUSHACC1 - 112 NEGINT - 113 PUSHCONST0 - 114 PUSHACC2 - 115 PUSHACC5 + 111 PUSHACC1 + 112 NEGINT + 113 PUSHCONST0 + 114 PUSHACC2 + 115 PUSHACC5 116 C_CALL4 caml_input - 118 CONST0 + 118 CONST0 119 PUSHTRAP 130 - 121 ACC6 - 122 PUSHOFFSETCLOSURE0 - 123 APPLY1 - 124 PUSHACC5 - 125 PUSHENVACC1 - 126 APPLY2 - 127 POPTRAP + 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 + 132 PUSHACC1 + 133 GETFIELD0 + 134 EQ 135 BRANCHIFNOT 140 - 137 ACC1 + 137 ACC1 138 RETURN 4 - 140 ACC0 - 141 RAISE - 142 ACC0 + 140 ACC0 + 141 RAISE + 142 ACC0 143 C_CALL1 caml_flush 145 RETURN 1 - 147 RESTART + 147 RESTART 148 GRAB 1 - 150 ACC1 - 151 PUSHACC1 + 150 ACC1 + 151 PUSHACC1 152 C_CALL2 caml_output_char 154 RETURN 2 - 156 RESTART + 156 RESTART 157 GRAB 1 - 159 ACC1 - 160 PUSHACC1 + 159 ACC1 + 160 PUSHACC1 161 C_CALL2 caml_output_char 163 RETURN 2 - 165 RESTART + 165 RESTART 166 GRAB 1 - 168 ACC1 - 169 PUSHACC1 + 168 ACC1 + 169 PUSHACC1 170 C_CALL2 caml_output_int 172 RETURN 2 - 174 RESTART + 174 RESTART 175 GRAB 1 - 177 ACC1 - 178 PUSHACC1 + 177 ACC1 + 178 PUSHACC1 179 C_CALL2 caml_seek_out 181 RETURN 2 - 183 ACC0 + 183 ACC0 184 C_CALL1 caml_pos_out 186 RETURN 1 - 188 ACC0 + 188 ACC0 189 C_CALL1 caml_channel_size 191 RETURN 1 - 193 RESTART + 193 RESTART 194 GRAB 1 - 196 ACC1 - 197 PUSHACC1 + 196 ACC1 + 197 PUSHACC1 198 C_CALL2 caml_set_binary_mode 200 RETURN 2 - 202 ACC0 + 202 ACC0 203 C_CALL1 caml_input_char 205 RETURN 1 - 207 ACC0 + 207 ACC0 208 C_CALL1 caml_input_char 210 RETURN 1 - 212 ACC0 + 212 ACC0 213 C_CALL1 caml_input_int 215 RETURN 1 - 217 ACC0 + 217 ACC0 218 C_CALL1 input_value 220 RETURN 1 - 222 RESTART + 222 RESTART 223 GRAB 1 - 225 ACC1 - 226 PUSHACC1 + 225 ACC1 + 226 PUSHACC1 227 C_CALL2 caml_seek_in 229 RETURN 2 - 231 ACC0 + 231 ACC0 232 C_CALL1 caml_pos_in 234 RETURN 1 - 236 ACC0 + 236 ACC0 237 C_CALL1 caml_channel_size 239 RETURN 1 - 241 ACC0 + 241 ACC0 242 C_CALL1 caml_close_channel 244 RETURN 1 - 246 RESTART + 246 RESTART 247 GRAB 1 - 249 ACC1 - 250 PUSHACC1 + 249 ACC1 + 250 PUSHACC1 251 C_CALL2 caml_set_binary_mode 253 RETURN 2 - 255 CONST0 - 256 PUSHENVACC1 - 257 APPLY1 - 258 ACC0 + 255 CONST0 + 256 PUSHENVACC1 + 257 APPLY1 + 258 ACC0 259 C_CALL1 sys_exit 261 RETURN 1 - 263 CONST0 - 264 PUSHENVACC1 - 265 GETFIELD0 + 263 CONST0 + 264 PUSHENVACC1 + 265 GETFIELD0 266 APPTERM1 2 - 268 CONST0 - 269 PUSHENVACC1 - 270 APPLY1 - 271 CONST0 - 272 PUSHENVACC2 + 268 CONST0 + 269 PUSHENVACC1 + 270 APPLY1 + 271 CONST0 + 272 PUSHENVACC2 273 APPTERM1 2 - 275 ENVACC1 - 276 GETFIELD0 - 277 PUSHACC0 - 278 PUSHACC2 + 275 ENVACC1 + 276 GETFIELD0 + 277 PUSHACC0 + 278 PUSHACC2 279 CLOSURE 2, 268 - 282 PUSHENVACC1 - 283 SETFIELD0 + 282 PUSHENVACC1 + 283 SETFIELD0 284 RETURN 2 - 286 ENVACC1 + 286 ENVACC1 287 C_CALL1 caml_flush - 289 ENVACC2 + 289 ENVACC2 290 C_CALL1 caml_flush 292 RETURN 1 - 294 CONST0 - 295 PUSHENVACC1 - 296 APPLY1 + 294 CONST0 + 295 PUSHENVACC1 + 296 APPLY1 297 C_CALL1 float_of_string 299 RETURN 1 - 301 CONST0 - 302 PUSHENVACC1 - 303 APPLY1 + 301 CONST0 + 302 PUSHENVACC1 + 303 APPLY1 304 C_CALL1 int_of_string 306 RETURN 1 - 308 ENVACC2 + 308 ENVACC2 309 C_CALL1 caml_flush - 311 ENVACC1 - 312 PUSHENVACC3 + 311 ENVACC1 + 312 PUSHENVACC3 313 APPTERM1 2 315 CONSTINT 13 - 317 PUSHENVACC1 + 317 PUSHENVACC1 318 C_CALL2 caml_output_char - 320 ENVACC1 + 320 ENVACC1 321 C_CALL1 caml_flush 323 RETURN 1 - 325 ACC0 - 326 PUSHENVACC1 - 327 PUSHENVACC2 - 328 APPLY2 + 325 ACC0 + 326 PUSHENVACC1 + 327 PUSHENVACC2 + 328 APPLY2 329 CONSTINT 13 - 331 PUSHENVACC1 + 331 PUSHENVACC1 332 C_CALL2 caml_output_char - 334 ENVACC1 + 334 ENVACC1 335 C_CALL1 caml_flush 337 RETURN 1 - 339 ACC0 - 340 PUSHENVACC1 - 341 APPLY1 - 342 PUSHENVACC2 - 343 PUSHENVACC3 + 339 ACC0 + 340 PUSHENVACC1 + 341 APPLY1 + 342 PUSHENVACC2 + 343 PUSHENVACC3 344 APPTERM2 3 - 346 ACC0 - 347 PUSHENVACC1 - 348 APPLY1 - 349 PUSHENVACC2 - 350 PUSHENVACC3 + 346 ACC0 + 347 PUSHENVACC1 + 348 APPLY1 + 349 PUSHENVACC2 + 350 PUSHENVACC3 351 APPTERM2 3 - 353 ACC0 - 354 PUSHENVACC1 - 355 PUSHENVACC2 + 353 ACC0 + 354 PUSHENVACC1 + 355 PUSHENVACC2 356 APPTERM2 3 - 358 ACC0 - 359 PUSHENVACC1 + 358 ACC0 + 359 PUSHENVACC1 360 C_CALL2 caml_output_char 362 RETURN 1 364 CONSTINT 13 - 366 PUSHENVACC1 + 366 PUSHENVACC1 367 C_CALL2 caml_output_char - 369 ENVACC1 + 369 ENVACC1 370 C_CALL1 caml_flush 372 RETURN 1 - 374 ACC0 - 375 PUSHENVACC1 - 376 PUSHENVACC2 - 377 APPLY2 + 374 ACC0 + 375 PUSHENVACC1 + 376 PUSHENVACC2 + 377 APPLY2 378 CONSTINT 13 - 380 PUSHENVACC1 + 380 PUSHENVACC1 381 C_CALL2 caml_output_char 383 RETURN 1 - 385 ACC0 - 386 PUSHENVACC1 - 387 APPLY1 - 388 PUSHENVACC2 - 389 PUSHENVACC3 + 385 ACC0 + 386 PUSHENVACC1 + 387 APPLY1 + 388 PUSHENVACC2 + 389 PUSHENVACC3 390 APPTERM2 3 - 392 ACC0 - 393 PUSHENVACC1 - 394 APPLY1 - 395 PUSHENVACC2 - 396 PUSHENVACC3 + 392 ACC0 + 393 PUSHENVACC1 + 394 APPLY1 + 395 PUSHENVACC2 + 396 PUSHENVACC3 397 APPTERM2 3 - 399 ACC0 - 400 PUSHENVACC1 - 401 PUSHENVACC2 + 399 ACC0 + 400 PUSHENVACC1 + 401 PUSHENVACC2 402 APPTERM2 3 - 404 ACC0 - 405 PUSHENVACC1 + 404 ACC0 + 405 PUSHENVACC1 406 C_CALL2 caml_output_char 408 RETURN 1 - 410 RESTART + 410 RESTART 411 GRAB 3 - 413 CONST0 - 414 PUSHACC3 - 415 LTINT + 413 CONST0 + 414 PUSHACC3 + 415 LTINT 416 BRANCHIF 427 - 418 ACC1 + 418 ACC1 419 C_CALL1 ml_string_length - 421 PUSHACC4 - 422 PUSHACC4 - 423 ADDINT - 424 GTINT + 421 PUSHACC4 + 422 PUSHACC4 + 423 ADDINT + 424 GTINT 425 BRANCHIFNOT 432 427 GETGLOBAL "really_input" - 429 PUSHENVACC1 + 429 PUSHENVACC1 430 APPTERM1 5 - 432 ACC3 - 433 PUSHACC3 - 434 PUSHACC3 - 435 PUSHACC3 - 436 PUSHENVACC2 + 432 ACC3 + 433 PUSHACC3 + 434 PUSHACC3 + 435 PUSHACC3 + 436 PUSHENVACC2 437 APPTERM 4, 8 - 440 RESTART + 440 RESTART 441 GRAB 3 - 443 CONST0 - 444 PUSHACC3 - 445 LTINT + 443 CONST0 + 444 PUSHACC3 + 445 LTINT 446 BRANCHIF 457 - 448 ACC1 + 448 ACC1 449 C_CALL1 ml_string_length - 451 PUSHACC4 - 452 PUSHACC4 - 453 ADDINT - 454 GTINT + 451 PUSHACC4 + 452 PUSHACC4 + 453 ADDINT + 454 GTINT 455 BRANCHIFNOT 462 457 GETGLOBAL "input" - 459 PUSHENVACC1 + 459 PUSHENVACC1 460 APPTERM1 5 - 462 ACC3 - 463 PUSHACC3 - 464 PUSHACC3 - 465 PUSHACC3 + 462 ACC3 + 463 PUSHACC3 + 464 PUSHACC3 + 465 PUSHACC3 466 C_CALL4 caml_input 468 RETURN 4 - 470 ACC0 - 471 PUSHCONST0 + 470 ACC0 + 471 PUSHCONST0 472 PUSHGETGLOBAL <0>(0, <0>(6, 0)) - 474 PUSHENVACC1 + 474 PUSHENVACC1 475 APPTERM3 4 - 477 ACC0 - 478 PUSHCONST0 + 477 ACC0 + 478 PUSHCONST0 479 PUSHGETGLOBAL <0>(0, <0>(7, 0)) - 481 PUSHENVACC1 + 481 PUSHENVACC1 482 APPTERM3 4 - 484 RESTART + 484 RESTART 485 GRAB 2 - 487 ACC1 - 488 PUSHACC1 - 489 PUSHACC4 + 487 ACC1 + 488 PUSHACC1 + 489 PUSHACC4 490 C_CALL3 sys_open 492 C_CALL1 caml_open_descriptor 494 RETURN 3 - 496 ACC0 + 496 ACC0 497 C_CALL1 caml_flush - 499 ACC0 + 499 ACC0 500 C_CALL1 caml_close_channel 502 RETURN 1 - 504 RESTART + 504 RESTART 505 GRAB 1 - 507 CONST0 - 508 PUSHACC2 - 509 PUSHACC2 + 507 CONST0 + 508 PUSHACC2 + 509 PUSHACC2 510 C_CALL3 output_value 512 RETURN 2 - 514 RESTART + 514 RESTART 515 GRAB 3 - 517 CONST0 - 518 PUSHACC3 - 519 LTINT + 517 CONST0 + 518 PUSHACC3 + 519 LTINT 520 BRANCHIF 531 - 522 ACC1 + 522 ACC1 523 C_CALL1 ml_string_length - 525 PUSHACC4 - 526 PUSHACC4 - 527 ADDINT - 528 GTINT + 525 PUSHACC4 + 526 PUSHACC4 + 527 ADDINT + 528 GTINT 529 BRANCHIFNOT 536 531 GETGLOBAL "output" - 533 PUSHENVACC1 + 533 PUSHENVACC1 534 APPTERM1 5 - 536 ACC3 - 537 PUSHACC3 - 538 PUSHACC3 - 539 PUSHACC3 + 536 ACC3 + 537 PUSHACC3 + 538 PUSHACC3 + 539 PUSHACC3 540 C_CALL4 caml_output 542 RETURN 4 - 544 RESTART + 544 RESTART 545 GRAB 1 - 547 ACC1 + 547 ACC1 548 C_CALL1 ml_string_length - 550 PUSHCONST0 - 551 PUSHACC3 - 552 PUSHACC3 + 550 PUSHCONST0 + 551 PUSHACC3 + 552 PUSHACC3 553 C_CALL4 caml_output 555 RETURN 2 - 557 ACC0 + 557 ACC0 558 PUSHCONSTINT 438 560 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(6, 0)))) - 562 PUSHENVACC1 + 562 PUSHENVACC1 563 APPTERM3 4 - 565 ACC0 + 565 ACC0 566 PUSHCONSTINT 438 568 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(7, 0)))) - 570 PUSHENVACC1 + 570 PUSHENVACC1 571 APPTERM3 4 - 573 RESTART + 573 RESTART 574 GRAB 2 - 576 ACC1 - 577 PUSHACC1 - 578 PUSHACC4 + 576 ACC1 + 577 PUSHACC1 + 578 PUSHACC4 579 C_CALL3 sys_open 581 C_CALL1 caml_open_descriptor 583 RETURN 3 - 585 ACC0 + 585 ACC0 586 PUSHGETGLOBAL "%.12g" 588 C_CALL2 format_float 590 RETURN 1 - 592 ACC0 + 592 ACC0 593 PUSHGETGLOBAL "%d" 595 C_CALL2 format_int 597 RETURN 1 599 GETGLOBAL "false" - 601 PUSHACC1 + 601 PUSHACC1 602 C_CALL2 string_equal 604 BRANCHIFNOT 609 - 606 CONST0 + 606 CONST0 607 RETURN 1 609 GETGLOBAL "true" - 611 PUSHACC1 + 611 PUSHACC1 612 C_CALL2 string_equal 614 BRANCHIFNOT 619 - 616 CONST1 + 616 CONST1 617 RETURN 1 619 GETGLOBAL "bool_of_string" - 621 PUSHENVACC1 + 621 PUSHENVACC1 622 APPTERM1 2 - 624 ACC0 + 624 ACC0 625 BRANCHIFNOT 631 627 GETGLOBAL "true" 629 RETURN 1 631 GETGLOBAL "false" 633 RETURN 1 - 635 CONST0 - 636 PUSHACC1 - 637 LTINT + 635 CONST0 + 636 PUSHACC1 + 637 LTINT 638 BRANCHIF 646 640 CONSTINT 255 - 642 PUSHACC1 - 643 GTINT + 642 PUSHACC1 + 643 GTINT 644 BRANCHIFNOT 651 646 GETGLOBAL "char_of_int" - 648 PUSHENVACC1 + 648 PUSHENVACC1 649 APPTERM1 2 - 651 ACC0 + 651 ACC0 652 RETURN 1 - 654 RESTART + 654 RESTART 655 GRAB 1 - 657 ACC0 + 657 ACC0 658 C_CALL1 ml_string_length - 660 PUSHACC2 + 660 PUSHACC2 661 C_CALL1 ml_string_length - 663 PUSHACC0 - 664 PUSHACC2 - 665 ADDINT + 663 PUSHACC0 + 664 PUSHACC2 + 665 ADDINT 666 C_CALL1 create_string - 668 PUSHACC2 - 669 PUSHCONST0 - 670 PUSHACC2 - 671 PUSHCONST0 - 672 PUSHACC7 + 668 PUSHACC2 + 669 PUSHCONST0 + 670 PUSHACC2 + 671 PUSHCONST0 + 672 PUSHACC7 673 C_CALL5 blit_string - 675 ACC1 - 676 PUSHACC3 - 677 PUSHACC2 - 678 PUSHCONST0 + 675 ACC1 + 676 PUSHACC3 + 677 PUSHACC2 + 678 PUSHCONST0 679 PUSHACC 8 681 C_CALL5 blit_string - 683 ACC0 + 683 ACC0 684 RETURN 5 686 CONSTINT -1 - 688 PUSHACC1 - 689 XORINT + 688 PUSHACC1 + 689 XORINT 690 RETURN 1 - 692 CONST0 - 693 PUSHACC1 - 694 GEINT + 692 CONST0 + 693 PUSHACC1 + 694 GEINT 695 BRANCHIFNOT 700 - 697 ACC0 + 697 ACC0 698 RETURN 1 - 700 ACC0 - 701 NEGINT + 700 ACC0 + 701 NEGINT 702 RETURN 1 - 704 RESTART + 704 RESTART 705 GRAB 1 - 707 ACC1 - 708 PUSHACC1 + 707 ACC1 + 708 PUSHACC1 709 C_CALL2 greaterequal 711 BRANCHIFNOT 716 - 713 ACC0 + 713 ACC0 714 RETURN 2 - 716 ACC1 + 716 ACC1 717 RETURN 2 - 719 RESTART + 719 RESTART 720 GRAB 1 - 722 ACC1 - 723 PUSHACC1 + 722 ACC1 + 723 PUSHACC1 724 C_CALL2 lessequal 726 BRANCHIFNOT 731 - 728 ACC0 + 728 ACC0 729 RETURN 2 - 731 ACC1 + 731 ACC1 732 RETURN 2 - 734 ACC0 + 734 ACC0 735 PUSHGETGLOBAL Invalid_argument 737 MAKEBLOCK2 0 - 739 RAISE - 740 ACC0 + 739 RAISE + 740 ACC0 741 PUSHGETGLOBAL Failure 743 MAKEBLOCK2 0 - 745 RAISE + 745 RAISE 746 CLOSURE 0, 740 - 749 PUSH + 749 PUSH 750 CLOSURE 0, 734 753 PUSHGETGLOBAL "Pervasives.Exit" 755 MAKEBLOCK1 0 757 PUSHGETGLOBAL "Pervasives.Assert_failure" 759 MAKEBLOCK1 0 - 761 PUSH + 761 PUSH 762 CLOSURE 0, 720 - 765 PUSH + 765 PUSH 766 CLOSURE 0, 705 - 769 PUSH + 769 PUSH 770 CLOSURE 0, 692 - 773 PUSH + 773 PUSH 774 CLOSURE 0, 686 - 777 PUSHCONST0 + 777 PUSHCONST0 778 PUSHCONSTINT 31 - 780 PUSHCONST1 - 781 LSLINT - 782 EQ + 780 PUSHCONST1 + 781 LSLINT + 782 EQ 783 BRANCHIFNOT 789 785 CONSTINT 30 787 BRANCH 791 789 CONSTINT 62 - 791 PUSHCONST1 - 792 LSLINT - 793 PUSHACC0 + 791 PUSHCONST1 + 792 LSLINT + 793 PUSHACC0 794 OFFSETINT -1 - 796 PUSH + 796 PUSH 797 CLOSURE 0, 655 800 PUSHACC 9 802 CLOSURE 1, 635 - 805 PUSH + 805 PUSH 806 CLOSURE 0, 624 809 PUSHACC 11 811 CLOSURE 1, 599 - 814 PUSH + 814 PUSH 815 CLOSURE 0, 592 - 818 PUSH + 818 PUSH 819 CLOSURE 0, 585 - 822 PUSH + 822 PUSH 823 CLOSUREREC 0, 12 - 827 CONST0 + 827 CONST0 828 C_CALL1 caml_open_descriptor - 830 PUSHCONST1 + 830 PUSHCONST1 831 C_CALL1 caml_open_descriptor - 833 PUSHCONST2 + 833 PUSHCONST2 834 C_CALL1 caml_open_descriptor - 836 PUSH + 836 PUSH 837 CLOSURE 0, 574 - 840 PUSHACC0 + 840 PUSHACC0 841 CLOSURE 1, 565 - 844 PUSHACC1 + 844 PUSHACC1 845 CLOSURE 1, 557 - 848 PUSH + 848 PUSH 849 CLOSURE 0, 545 852 PUSHACC 22 854 CLOSURE 1, 515 - 857 PUSH + 857 PUSH 858 CLOSURE 0, 505 - 861 PUSH + 861 PUSH 862 CLOSURE 0, 496 - 865 PUSH + 865 PUSH 866 CLOSURE 0, 485 - 869 PUSHACC0 + 869 PUSHACC0 870 CLOSURE 1, 477 - 873 PUSHACC1 + 873 PUSHACC1 874 CLOSURE 1, 470 877 PUSHACC 28 879 CLOSURE 1, 441 - 882 PUSH + 882 PUSH 883 CLOSUREREC 0, 32 - 887 ACC0 + 887 ACC0 888 PUSHACC 31 890 CLOSURE 2, 411 893 PUSHACC 22 @@ -646,67 +646,67 @@ if List.fold_left (+) 0 l <> 30000 then raise Not_found 985 PUSHACC 28 987 PUSHACC 30 989 CLOSURE 3, 308 - 992 PUSHACC0 + 992 PUSHACC0 993 CLOSURE 1, 301 - 996 PUSHACC1 + 996 PUSHACC1 997 CLOSURE 1, 294 1000 PUSHACC 29 1002 PUSHACC 31 1004 CLOSURE 2, 286 1007 MAKEBLOCK1 0 - 1009 PUSHACC0 + 1009 PUSHACC0 1010 CLOSURE 1, 275 - 1013 PUSHACC1 + 1013 PUSHACC1 1014 CLOSURE 1, 263 - 1017 PUSHACC0 + 1017 PUSHACC0 1018 CLOSURE 1, 255 - 1021 PUSHACC1 + 1021 PUSHACC1 1022 PUSHACC 22 - 1024 PUSHACC4 - 1025 PUSHACC3 - 1026 PUSH + 1024 PUSHACC4 + 1025 PUSHACC3 + 1026 PUSH 1027 CLOSURE 0, 247 - 1030 PUSH + 1030 PUSH 1031 CLOSURE 0, 241 - 1034 PUSH + 1034 PUSH 1035 CLOSURE 0, 236 - 1038 PUSH + 1038 PUSH 1039 CLOSURE 0, 231 - 1042 PUSH + 1042 PUSH 1043 CLOSURE 0, 223 - 1046 PUSH + 1046 PUSH 1047 CLOSURE 0, 217 - 1050 PUSH + 1050 PUSH 1051 CLOSURE 0, 212 - 1054 PUSH + 1054 PUSH 1055 CLOSURE 0, 207 1058 PUSHACC 32 1060 PUSHACC 35 1062 PUSHACC 33 - 1064 PUSH + 1064 PUSH 1065 CLOSURE 0, 202 1068 PUSHACC 41 1070 PUSHACC 40 1072 PUSHACC 42 - 1074 PUSH + 1074 PUSH 1075 CLOSURE 0, 194 1078 PUSHACC 46 - 1080 PUSH + 1080 PUSH 1081 CLOSURE 0, 188 - 1084 PUSH + 1084 PUSH 1085 CLOSURE 0, 183 - 1088 PUSH + 1088 PUSH 1089 CLOSURE 0, 175 1092 PUSHACC 51 - 1094 PUSH + 1094 PUSH 1095 CLOSURE 0, 166 - 1098 PUSH + 1098 PUSH 1099 CLOSURE 0, 157 1102 PUSHACC 55 1104 PUSHACC 57 - 1106 PUSH + 1106 PUSH 1107 CLOSURE 0, 148 - 1110 PUSH + 1110 PUSH 1111 CLOSURE 0, 142 1114 PUSHACC 63 1116 PUSHACC 62 @@ -750,38 +750,38 @@ if List.fold_left (+) 0 l <> 30000 then raise Not_found 1193 POP 53 1195 SETGLOBAL Pervasives 1197 BRANCH 2177 - 1199 RESTART + 1199 RESTART 1200 GRAB 1 - 1202 ACC1 + 1202 ACC1 1203 BRANCHIFNOT 1213 - 1205 ACC1 - 1206 GETFIELD1 - 1207 PUSHACC1 + 1205 ACC1 + 1206 GETFIELD1 + 1207 PUSHACC1 1208 OFFSETINT 1 - 1210 PUSHOFFSETCLOSURE0 + 1210 PUSHOFFSETCLOSURE0 1211 APPTERM2 4 - 1213 ACC0 + 1213 ACC0 1214 RETURN 2 - 1216 RESTART + 1216 RESTART 1217 GRAB 1 - 1219 ACC0 + 1219 ACC0 1220 BRANCHIFNOT 1251 - 1222 CONST0 - 1223 PUSHACC2 - 1224 EQ + 1222 CONST0 + 1223 PUSHACC2 + 1224 EQ 1225 BRANCHIFNOT 1231 - 1227 ACC0 - 1228 GETFIELD0 + 1227 ACC0 + 1228 GETFIELD0 1229 RETURN 2 - 1231 CONST0 - 1232 PUSHACC2 - 1233 GTINT + 1231 CONST0 + 1232 PUSHACC2 + 1233 GTINT 1234 BRANCHIFNOT 1244 - 1236 ACC1 + 1236 ACC1 1237 OFFSETINT -1 - 1239 PUSHACC1 - 1240 GETFIELD1 - 1241 PUSHOFFSETCLOSURE0 + 1239 PUSHACC1 + 1240 GETFIELD1 + 1241 PUSHOFFSETCLOSURE0 1242 APPTERM2 4 1244 GETGLOBAL "List.nth" 1246 PUSHGETGLOBALFIELD Pervasives, 2 @@ -789,696 +789,696 @@ if List.fold_left (+) 0 l <> 30000 then raise Not_found 1251 GETGLOBAL "nth" 1253 PUSHGETGLOBALFIELD Pervasives, 3 1256 APPTERM1 3 - 1258 RESTART + 1258 RESTART 1259 GRAB 1 - 1261 ACC0 + 1261 ACC0 1262 BRANCHIFNOT 1274 - 1264 ACC1 - 1265 PUSHACC1 - 1266 GETFIELD0 + 1264 ACC1 + 1265 PUSHACC1 + 1266 GETFIELD0 1267 MAKEBLOCK2 0 - 1269 PUSHACC1 - 1270 GETFIELD1 - 1271 PUSHOFFSETCLOSURE0 + 1269 PUSHACC1 + 1270 GETFIELD1 + 1271 PUSHOFFSETCLOSURE0 1272 APPTERM2 4 - 1274 ACC1 + 1274 ACC1 1275 RETURN 2 - 1277 ACC0 + 1277 ACC0 1278 BRANCHIFNOT 1291 - 1280 ACC0 - 1281 GETFIELD1 - 1282 PUSHOFFSETCLOSURE0 - 1283 APPLY1 - 1284 PUSHACC1 - 1285 GETFIELD0 + 1280 ACC0 + 1281 GETFIELD1 + 1282 PUSHOFFSETCLOSURE0 + 1283 APPLY1 + 1284 PUSHACC1 + 1285 GETFIELD0 1286 PUSHGETGLOBALFIELD Pervasives, 16 1289 APPTERM2 3 1291 RETURN 1 - 1293 RESTART + 1293 RESTART 1294 GRAB 1 - 1296 ACC1 + 1296 ACC1 1297 BRANCHIFNOT 1313 - 1299 ACC1 - 1300 GETFIELD0 - 1301 PUSHACC1 - 1302 APPLY1 - 1303 PUSHACC2 - 1304 GETFIELD1 - 1305 PUSHACC2 - 1306 PUSHOFFSETCLOSURE0 - 1307 APPLY2 - 1308 PUSHACC1 + 1299 ACC1 + 1300 GETFIELD0 + 1301 PUSHACC1 + 1302 APPLY1 + 1303 PUSHACC2 + 1304 GETFIELD1 + 1305 PUSHACC2 + 1306 PUSHOFFSETCLOSURE0 + 1307 APPLY2 + 1308 PUSHACC1 1309 MAKEBLOCK2 0 1311 POP 1 1313 RETURN 2 - 1315 RESTART + 1315 RESTART 1316 GRAB 1 - 1318 ACC1 + 1318 ACC1 1319 BRANCHIFNOT 1331 - 1321 ACC1 - 1322 GETFIELD0 - 1323 PUSHACC1 - 1324 APPLY1 - 1325 ACC1 - 1326 GETFIELD1 - 1327 PUSHACC1 - 1328 PUSHOFFSETCLOSURE0 + 1321 ACC1 + 1322 GETFIELD0 + 1323 PUSHACC1 + 1324 APPLY1 + 1325 ACC1 + 1326 GETFIELD1 + 1327 PUSHACC1 + 1328 PUSHOFFSETCLOSURE0 1329 APPTERM2 4 1331 RETURN 2 - 1333 RESTART + 1333 RESTART 1334 GRAB 2 - 1336 ACC2 + 1336 ACC2 1337 BRANCHIFNOT 1350 - 1339 ACC2 - 1340 GETFIELD1 - 1341 PUSHACC3 - 1342 GETFIELD0 - 1343 PUSHACC3 - 1344 PUSHACC3 - 1345 APPLY2 - 1346 PUSHACC2 - 1347 PUSHOFFSETCLOSURE0 + 1339 ACC2 + 1340 GETFIELD1 + 1341 PUSHACC3 + 1342 GETFIELD0 + 1343 PUSHACC3 + 1344 PUSHACC3 + 1345 APPLY2 + 1346 PUSHACC2 + 1347 PUSHOFFSETCLOSURE0 1348 APPTERM3 6 - 1350 ACC1 + 1350 ACC1 1351 RETURN 3 - 1353 RESTART + 1353 RESTART 1354 GRAB 2 - 1356 ACC1 + 1356 ACC1 1357 BRANCHIFNOT 1370 - 1359 ACC2 - 1360 PUSHACC2 - 1361 GETFIELD1 - 1362 PUSHACC2 - 1363 PUSHOFFSETCLOSURE0 - 1364 APPLY3 - 1365 PUSHACC2 - 1366 GETFIELD0 - 1367 PUSHACC2 + 1359 ACC2 + 1360 PUSHACC2 + 1361 GETFIELD1 + 1362 PUSHACC2 + 1363 PUSHOFFSETCLOSURE0 + 1364 APPLY3 + 1365 PUSHACC2 + 1366 GETFIELD0 + 1367 PUSHACC2 1368 APPTERM2 5 - 1370 ACC2 + 1370 ACC2 1371 RETURN 3 - 1373 RESTART + 1373 RESTART 1374 GRAB 2 - 1376 ACC1 + 1376 ACC1 1377 BRANCHIFNOT 1400 - 1379 ACC2 + 1379 ACC2 1380 BRANCHIFNOT 1407 - 1382 ACC2 - 1383 GETFIELD0 - 1384 PUSHACC2 - 1385 GETFIELD0 - 1386 PUSHACC2 - 1387 APPLY2 - 1388 PUSHACC3 - 1389 GETFIELD1 - 1390 PUSHACC3 - 1391 GETFIELD1 - 1392 PUSHACC3 - 1393 PUSHOFFSETCLOSURE0 - 1394 APPLY3 - 1395 PUSHACC1 + 1382 ACC2 + 1383 GETFIELD0 + 1384 PUSHACC2 + 1385 GETFIELD0 + 1386 PUSHACC2 + 1387 APPLY2 + 1388 PUSHACC3 + 1389 GETFIELD1 + 1390 PUSHACC3 + 1391 GETFIELD1 + 1392 PUSHACC3 + 1393 PUSHOFFSETCLOSURE0 + 1394 APPLY3 + 1395 PUSHACC1 1396 MAKEBLOCK2 0 1398 RETURN 4 - 1400 ACC2 + 1400 ACC2 1401 BRANCHIFNOT 1405 1403 BRANCH 1407 1405 RETURN 3 1407 GETGLOBAL "List.map2" 1409 PUSHGETGLOBALFIELD Pervasives, 2 1412 APPTERM1 4 - 1414 RESTART + 1414 RESTART 1415 GRAB 2 - 1417 ACC1 + 1417 ACC1 1418 BRANCHIFNOT 1437 - 1420 ACC2 + 1420 ACC2 1421 BRANCHIFNOT 1444 - 1423 ACC2 - 1424 GETFIELD0 - 1425 PUSHACC2 - 1426 GETFIELD0 - 1427 PUSHACC2 - 1428 APPLY2 - 1429 ACC2 - 1430 GETFIELD1 - 1431 PUSHACC2 - 1432 GETFIELD1 - 1433 PUSHACC2 - 1434 PUSHOFFSETCLOSURE0 + 1423 ACC2 + 1424 GETFIELD0 + 1425 PUSHACC2 + 1426 GETFIELD0 + 1427 PUSHACC2 + 1428 APPLY2 + 1429 ACC2 + 1430 GETFIELD1 + 1431 PUSHACC2 + 1432 GETFIELD1 + 1433 PUSHACC2 + 1434 PUSHOFFSETCLOSURE0 1435 APPTERM3 6 - 1437 ACC2 + 1437 ACC2 1438 BRANCHIFNOT 1442 1440 BRANCH 1444 1442 RETURN 3 1444 GETGLOBAL "List.iter2" 1446 PUSHGETGLOBALFIELD Pervasives, 2 1449 APPTERM1 4 - 1451 RESTART + 1451 RESTART 1452 GRAB 3 - 1454 ACC2 + 1454 ACC2 1455 BRANCHIFNOT 1476 - 1457 ACC3 + 1457 ACC3 1458 BRANCHIFNOT 1482 - 1460 ACC3 - 1461 GETFIELD1 - 1462 PUSHACC3 - 1463 GETFIELD1 - 1464 PUSHACC5 - 1465 GETFIELD0 - 1466 PUSHACC5 - 1467 GETFIELD0 - 1468 PUSHACC5 - 1469 PUSHACC5 - 1470 APPLY3 - 1471 PUSHACC3 - 1472 PUSHOFFSETCLOSURE0 + 1460 ACC3 + 1461 GETFIELD1 + 1462 PUSHACC3 + 1463 GETFIELD1 + 1464 PUSHACC5 + 1465 GETFIELD0 + 1466 PUSHACC5 + 1467 GETFIELD0 + 1468 PUSHACC5 + 1469 PUSHACC5 + 1470 APPLY3 + 1471 PUSHACC3 + 1472 PUSHOFFSETCLOSURE0 1473 APPTERM 4, 8 - 1476 ACC3 + 1476 ACC3 1477 BRANCHIF 1482 - 1479 ACC1 + 1479 ACC1 1480 RETURN 4 1482 GETGLOBAL "List.fold_left2" 1484 PUSHGETGLOBALFIELD Pervasives, 2 1487 APPTERM1 5 - 1489 RESTART + 1489 RESTART 1490 GRAB 3 - 1492 ACC1 + 1492 ACC1 1493 BRANCHIFNOT 1516 - 1495 ACC2 + 1495 ACC2 1496 BRANCHIFNOT 1522 1498 PUSH_RETADDR 1509 - 1500 ACC6 - 1501 PUSHACC6 - 1502 GETFIELD1 - 1503 PUSHACC6 - 1504 GETFIELD1 - 1505 PUSHACC6 - 1506 PUSHOFFSETCLOSURE0 + 1500 ACC6 + 1501 PUSHACC6 + 1502 GETFIELD1 + 1503 PUSHACC6 + 1504 GETFIELD1 + 1505 PUSHACC6 + 1506 PUSHOFFSETCLOSURE0 1507 APPLY 4 - 1509 PUSHACC3 - 1510 GETFIELD0 - 1511 PUSHACC3 - 1512 GETFIELD0 - 1513 PUSHACC3 + 1509 PUSHACC3 + 1510 GETFIELD0 + 1511 PUSHACC3 + 1512 GETFIELD0 + 1513 PUSHACC3 1514 APPTERM3 7 - 1516 ACC2 + 1516 ACC2 1517 BRANCHIF 1522 - 1519 ACC3 + 1519 ACC3 1520 RETURN 4 1522 GETGLOBAL "List.fold_right2" 1524 PUSHGETGLOBALFIELD Pervasives, 2 1527 APPTERM1 5 - 1529 RESTART + 1529 RESTART 1530 GRAB 1 - 1532 ACC1 + 1532 ACC1 1533 BRANCHIFNOT 1549 - 1535 ACC1 - 1536 GETFIELD0 - 1537 PUSHACC1 - 1538 APPLY1 + 1535 ACC1 + 1536 GETFIELD0 + 1537 PUSHACC1 + 1538 APPLY1 1539 BRANCHIFNOT 1547 - 1541 ACC1 - 1542 GETFIELD1 - 1543 PUSHACC1 - 1544 PUSHOFFSETCLOSURE0 + 1541 ACC1 + 1542 GETFIELD1 + 1543 PUSHACC1 + 1544 PUSHOFFSETCLOSURE0 1545 APPTERM2 4 1547 RETURN 2 - 1549 CONST1 + 1549 CONST1 1550 RETURN 2 - 1552 RESTART + 1552 RESTART 1553 GRAB 1 - 1555 ACC1 + 1555 ACC1 1556 BRANCHIFNOT 1570 - 1558 ACC1 - 1559 GETFIELD0 - 1560 PUSHACC1 - 1561 APPLY1 + 1558 ACC1 + 1559 GETFIELD0 + 1560 PUSHACC1 + 1561 APPLY1 1562 BRANCHIF 1570 - 1564 ACC1 - 1565 GETFIELD1 - 1566 PUSHACC1 - 1567 PUSHOFFSETCLOSURE0 + 1564 ACC1 + 1565 GETFIELD1 + 1566 PUSHACC1 + 1567 PUSHOFFSETCLOSURE0 1568 APPTERM2 4 1570 RETURN 2 - 1572 RESTART + 1572 RESTART 1573 GRAB 2 - 1575 ACC1 + 1575 ACC1 1576 BRANCHIFNOT 1599 - 1578 ACC2 + 1578 ACC2 1579 BRANCHIFNOT 1605 - 1581 ACC2 - 1582 GETFIELD0 - 1583 PUSHACC2 - 1584 GETFIELD0 - 1585 PUSHACC2 - 1586 APPLY2 + 1581 ACC2 + 1582 GETFIELD0 + 1583 PUSHACC2 + 1584 GETFIELD0 + 1585 PUSHACC2 + 1586 APPLY2 1587 BRANCHIFNOT 1597 - 1589 ACC2 - 1590 GETFIELD1 - 1591 PUSHACC2 - 1592 GETFIELD1 - 1593 PUSHACC2 - 1594 PUSHOFFSETCLOSURE0 + 1589 ACC2 + 1590 GETFIELD1 + 1591 PUSHACC2 + 1592 GETFIELD1 + 1593 PUSHACC2 + 1594 PUSHOFFSETCLOSURE0 1595 APPTERM3 6 1597 RETURN 3 - 1599 ACC2 + 1599 ACC2 1600 BRANCHIF 1605 - 1602 CONST1 + 1602 CONST1 1603 RETURN 3 1605 GETGLOBAL "List.for_all2" 1607 PUSHGETGLOBALFIELD Pervasives, 2 1610 APPTERM1 4 - 1612 RESTART + 1612 RESTART 1613 GRAB 2 - 1615 ACC1 + 1615 ACC1 1616 BRANCHIFNOT 1639 - 1618 ACC2 + 1618 ACC2 1619 BRANCHIFNOT 1646 - 1621 ACC2 - 1622 GETFIELD0 - 1623 PUSHACC2 - 1624 GETFIELD0 - 1625 PUSHACC2 - 1626 APPLY2 + 1621 ACC2 + 1622 GETFIELD0 + 1623 PUSHACC2 + 1624 GETFIELD0 + 1625 PUSHACC2 + 1626 APPLY2 1627 BRANCHIF 1637 - 1629 ACC2 - 1630 GETFIELD1 - 1631 PUSHACC2 - 1632 GETFIELD1 - 1633 PUSHACC2 - 1634 PUSHOFFSETCLOSURE0 + 1629 ACC2 + 1630 GETFIELD1 + 1631 PUSHACC2 + 1632 GETFIELD1 + 1633 PUSHACC2 + 1634 PUSHOFFSETCLOSURE0 1635 APPTERM3 6 1637 RETURN 3 - 1639 ACC2 + 1639 ACC2 1640 BRANCHIFNOT 1644 1642 BRANCH 1646 1644 RETURN 3 1646 GETGLOBAL "List.exists2" 1648 PUSHGETGLOBALFIELD Pervasives, 2 1651 APPTERM1 4 - 1653 RESTART + 1653 RESTART 1654 GRAB 1 - 1656 ACC1 + 1656 ACC1 1657 BRANCHIFNOT 1672 - 1659 ACC0 - 1660 PUSHACC2 - 1661 GETFIELD0 + 1659 ACC0 + 1660 PUSHACC2 + 1661 GETFIELD0 1662 C_CALL2 equal 1664 BRANCHIF 1672 - 1666 ACC1 - 1667 GETFIELD1 - 1668 PUSHACC1 - 1669 PUSHOFFSETCLOSURE0 + 1666 ACC1 + 1667 GETFIELD1 + 1668 PUSHACC1 + 1669 PUSHOFFSETCLOSURE0 1670 APPTERM2 4 1672 RETURN 2 - 1674 RESTART + 1674 RESTART 1675 GRAB 1 - 1677 ACC1 + 1677 ACC1 1678 BRANCHIFNOT 1692 - 1680 ACC0 - 1681 PUSHACC2 - 1682 GETFIELD0 - 1683 EQ + 1680 ACC0 + 1681 PUSHACC2 + 1682 GETFIELD0 + 1683 EQ 1684 BRANCHIF 1692 - 1686 ACC1 - 1687 GETFIELD1 - 1688 PUSHACC1 - 1689 PUSHOFFSETCLOSURE0 + 1686 ACC1 + 1687 GETFIELD1 + 1688 PUSHACC1 + 1689 PUSHOFFSETCLOSURE0 1690 APPTERM2 4 1692 RETURN 2 - 1694 RESTART + 1694 RESTART 1695 GRAB 1 - 1697 ACC1 + 1697 ACC1 1698 BRANCHIFNOT 1719 - 1700 ACC1 - 1701 GETFIELD0 - 1702 PUSHACC1 - 1703 PUSHACC1 - 1704 GETFIELD0 + 1700 ACC1 + 1701 GETFIELD0 + 1702 PUSHACC1 + 1703 PUSHACC1 + 1704 GETFIELD0 1705 C_CALL2 equal 1707 BRANCHIFNOT 1713 - 1709 ACC0 - 1710 GETFIELD1 + 1709 ACC0 + 1710 GETFIELD1 1711 RETURN 3 - 1713 ACC2 - 1714 GETFIELD1 - 1715 PUSHACC2 - 1716 PUSHOFFSETCLOSURE0 + 1713 ACC2 + 1714 GETFIELD1 + 1715 PUSHACC2 + 1716 PUSHOFFSETCLOSURE0 1717 APPTERM2 5 1719 GETGLOBAL Not_found 1721 MAKEBLOCK1 0 - 1723 RAISE - 1724 RESTART + 1723 RAISE + 1724 RESTART 1725 GRAB 1 - 1727 ACC1 + 1727 ACC1 1728 BRANCHIFNOT 1748 - 1730 ACC1 - 1731 GETFIELD0 - 1732 PUSHACC1 - 1733 PUSHACC1 - 1734 GETFIELD0 - 1735 EQ + 1730 ACC1 + 1731 GETFIELD0 + 1732 PUSHACC1 + 1733 PUSHACC1 + 1734 GETFIELD0 + 1735 EQ 1736 BRANCHIFNOT 1742 - 1738 ACC0 - 1739 GETFIELD1 + 1738 ACC0 + 1739 GETFIELD1 1740 RETURN 3 - 1742 ACC2 - 1743 GETFIELD1 - 1744 PUSHACC2 - 1745 PUSHOFFSETCLOSURE0 + 1742 ACC2 + 1743 GETFIELD1 + 1744 PUSHACC2 + 1745 PUSHOFFSETCLOSURE0 1746 APPTERM2 5 1748 GETGLOBAL Not_found 1750 MAKEBLOCK1 0 - 1752 RAISE - 1753 RESTART + 1752 RAISE + 1753 RESTART 1754 GRAB 1 - 1756 ACC1 + 1756 ACC1 1757 BRANCHIFNOT 1773 - 1759 ACC0 - 1760 PUSHACC2 - 1761 GETFIELD0 - 1762 GETFIELD0 + 1759 ACC0 + 1760 PUSHACC2 + 1761 GETFIELD0 + 1762 GETFIELD0 1763 C_CALL2 equal 1765 BRANCHIF 1773 - 1767 ACC1 - 1768 GETFIELD1 - 1769 PUSHACC1 - 1770 PUSHOFFSETCLOSURE0 + 1767 ACC1 + 1768 GETFIELD1 + 1769 PUSHACC1 + 1770 PUSHOFFSETCLOSURE0 1771 APPTERM2 4 1773 RETURN 2 - 1775 RESTART + 1775 RESTART 1776 GRAB 1 - 1778 ACC1 + 1778 ACC1 1779 BRANCHIFNOT 1794 - 1781 ACC0 - 1782 PUSHACC2 - 1783 GETFIELD0 - 1784 GETFIELD0 - 1785 EQ + 1781 ACC0 + 1782 PUSHACC2 + 1783 GETFIELD0 + 1784 GETFIELD0 + 1785 EQ 1786 BRANCHIF 1794 - 1788 ACC1 - 1789 GETFIELD1 - 1790 PUSHACC1 - 1791 PUSHOFFSETCLOSURE0 + 1788 ACC1 + 1789 GETFIELD1 + 1790 PUSHACC1 + 1791 PUSHOFFSETCLOSURE0 1792 APPTERM2 4 1794 RETURN 2 - 1796 RESTART + 1796 RESTART 1797 GRAB 1 - 1799 ACC1 + 1799 ACC1 1800 BRANCHIFNOT 1825 - 1802 ACC1 - 1803 GETFIELD0 - 1804 PUSHACC2 - 1805 GETFIELD1 - 1806 PUSHACC2 - 1807 PUSHACC2 - 1808 GETFIELD0 + 1802 ACC1 + 1803 GETFIELD0 + 1804 PUSHACC2 + 1805 GETFIELD1 + 1806 PUSHACC2 + 1807 PUSHACC2 + 1808 GETFIELD0 1809 C_CALL2 equal 1811 BRANCHIFNOT 1816 - 1813 ACC0 + 1813 ACC0 1814 RETURN 4 - 1816 ACC0 - 1817 PUSHACC3 - 1818 PUSHOFFSETCLOSURE0 - 1819 APPLY2 - 1820 PUSHACC2 + 1816 ACC0 + 1817 PUSHACC3 + 1818 PUSHOFFSETCLOSURE0 + 1819 APPLY2 + 1820 PUSHACC2 1821 MAKEBLOCK2 0 1823 POP 2 1825 RETURN 2 - 1827 RESTART + 1827 RESTART 1828 GRAB 1 - 1830 ACC1 + 1830 ACC1 1831 BRANCHIFNOT 1855 - 1833 ACC1 - 1834 GETFIELD0 - 1835 PUSHACC2 - 1836 GETFIELD1 - 1837 PUSHACC2 - 1838 PUSHACC2 - 1839 GETFIELD0 - 1840 EQ + 1833 ACC1 + 1834 GETFIELD0 + 1835 PUSHACC2 + 1836 GETFIELD1 + 1837 PUSHACC2 + 1838 PUSHACC2 + 1839 GETFIELD0 + 1840 EQ 1841 BRANCHIFNOT 1846 - 1843 ACC0 + 1843 ACC0 1844 RETURN 4 - 1846 ACC0 - 1847 PUSHACC3 - 1848 PUSHOFFSETCLOSURE0 - 1849 APPLY2 - 1850 PUSHACC2 + 1846 ACC0 + 1847 PUSHACC3 + 1848 PUSHOFFSETCLOSURE0 + 1849 APPLY2 + 1850 PUSHACC2 1851 MAKEBLOCK2 0 1853 POP 2 1855 RETURN 2 - 1857 RESTART + 1857 RESTART 1858 GRAB 1 - 1860 ACC1 + 1860 ACC1 1861 BRANCHIFNOT 1879 - 1863 ACC1 - 1864 GETFIELD0 - 1865 PUSHACC0 - 1866 PUSHACC2 - 1867 APPLY1 + 1863 ACC1 + 1864 GETFIELD0 + 1865 PUSHACC0 + 1866 PUSHACC2 + 1867 APPLY1 1868 BRANCHIFNOT 1873 - 1870 ACC0 + 1870 ACC0 1871 RETURN 3 - 1873 ACC2 - 1874 GETFIELD1 - 1875 PUSHACC2 - 1876 PUSHOFFSETCLOSURE0 + 1873 ACC2 + 1874 GETFIELD1 + 1875 PUSHACC2 + 1876 PUSHOFFSETCLOSURE0 1877 APPTERM2 5 1879 GETGLOBAL Not_found 1881 MAKEBLOCK1 0 - 1883 RAISE - 1884 RESTART + 1883 RAISE + 1884 RESTART 1885 GRAB 2 - 1887 ACC2 + 1887 ACC2 1888 BRANCHIFNOT 1917 - 1890 ACC2 - 1891 GETFIELD0 - 1892 PUSHACC3 - 1893 GETFIELD1 - 1894 PUSHACC1 - 1895 PUSHENVACC2 - 1896 APPLY1 + 1890 ACC2 + 1891 GETFIELD0 + 1892 PUSHACC3 + 1893 GETFIELD1 + 1894 PUSHACC1 + 1895 PUSHENVACC2 + 1896 APPLY1 1897 BRANCHIFNOT 1908 - 1899 ACC0 - 1900 PUSHACC4 - 1901 PUSHACC4 - 1902 PUSHACC4 + 1899 ACC0 + 1900 PUSHACC4 + 1901 PUSHACC4 + 1902 PUSHACC4 1903 MAKEBLOCK2 0 - 1905 PUSHOFFSETCLOSURE0 + 1905 PUSHOFFSETCLOSURE0 1906 APPTERM3 8 - 1908 ACC0 - 1909 PUSHACC4 - 1910 PUSHACC3 + 1908 ACC0 + 1909 PUSHACC4 + 1910 PUSHACC3 1911 MAKEBLOCK2 0 - 1913 PUSHACC4 - 1914 PUSHOFFSETCLOSURE0 + 1913 PUSHACC4 + 1914 PUSHOFFSETCLOSURE0 1915 APPTERM3 8 - 1917 ACC1 - 1918 PUSHENVACC1 - 1919 APPLY1 - 1920 PUSHACC1 - 1921 PUSHENVACC1 - 1922 APPLY1 + 1917 ACC1 + 1918 PUSHENVACC1 + 1919 APPLY1 + 1920 PUSHACC1 + 1921 PUSHENVACC1 + 1922 APPLY1 1923 MAKEBLOCK2 0 1925 RETURN 3 - 1927 RESTART + 1927 RESTART 1928 GRAB 1 - 1930 ACC0 - 1931 PUSHENVACC1 + 1930 ACC0 + 1931 PUSHENVACC1 1932 CLOSUREREC 2, 1885 - 1936 ACC2 - 1937 PUSHCONST0 - 1938 PUSHCONST0 - 1939 PUSHACC3 + 1936 ACC2 + 1937 PUSHCONST0 + 1938 PUSHCONST0 + 1939 PUSHACC3 1940 APPTERM3 6 - 1942 ACC0 + 1942 ACC0 1943 BRANCHIFNOT 1967 - 1945 ACC0 - 1946 GETFIELD0 - 1947 PUSHACC1 - 1948 GETFIELD1 - 1949 PUSHOFFSETCLOSURE0 - 1950 APPLY1 - 1951 PUSHACC0 - 1952 GETFIELD1 - 1953 PUSHACC2 - 1954 GETFIELD1 + 1945 ACC0 + 1946 GETFIELD0 + 1947 PUSHACC1 + 1948 GETFIELD1 + 1949 PUSHOFFSETCLOSURE0 + 1950 APPLY1 + 1951 PUSHACC0 + 1952 GETFIELD1 + 1953 PUSHACC2 + 1954 GETFIELD1 1955 MAKEBLOCK2 0 - 1957 PUSHACC1 - 1958 GETFIELD0 - 1959 PUSHACC3 - 1960 GETFIELD0 + 1957 PUSHACC1 + 1958 GETFIELD0 + 1959 PUSHACC3 + 1960 GETFIELD0 1961 MAKEBLOCK2 0 1963 MAKEBLOCK2 0 1965 RETURN 3 1967 GETGLOBAL <0>(0, 0) 1969 RETURN 1 - 1971 RESTART + 1971 RESTART 1972 GRAB 1 - 1974 ACC0 + 1974 ACC0 1975 BRANCHIFNOT 1996 - 1977 ACC1 + 1977 ACC1 1978 BRANCHIFNOT 2003 - 1980 ACC1 - 1981 GETFIELD1 - 1982 PUSHACC1 - 1983 GETFIELD1 - 1984 PUSHOFFSETCLOSURE0 - 1985 APPLY2 - 1986 PUSHACC2 - 1987 GETFIELD0 - 1988 PUSHACC2 - 1989 GETFIELD0 + 1980 ACC1 + 1981 GETFIELD1 + 1982 PUSHACC1 + 1983 GETFIELD1 + 1984 PUSHOFFSETCLOSURE0 + 1985 APPLY2 + 1986 PUSHACC2 + 1987 GETFIELD0 + 1988 PUSHACC2 + 1989 GETFIELD0 1990 MAKEBLOCK2 0 1992 MAKEBLOCK2 0 1994 RETURN 2 - 1996 ACC1 + 1996 ACC1 1997 BRANCHIFNOT 2001 1999 BRANCH 2003 2001 RETURN 2 2003 GETGLOBAL "List.combine" 2005 PUSHGETGLOBALFIELD Pervasives, 2 2008 APPTERM1 3 - 2010 RESTART + 2010 RESTART 2011 GRAB 1 - 2013 ACC1 + 2013 ACC1 2014 BRANCHIFNOT 2038 - 2016 ACC1 - 2017 GETFIELD0 - 2018 PUSHACC2 - 2019 GETFIELD1 - 2020 PUSHACC1 - 2021 PUSHENVACC2 - 2022 APPLY1 + 2016 ACC1 + 2017 GETFIELD0 + 2018 PUSHACC2 + 2019 GETFIELD1 + 2020 PUSHACC1 + 2021 PUSHENVACC2 + 2022 APPLY1 2023 BRANCHIFNOT 2033 - 2025 ACC0 - 2026 PUSHACC3 - 2027 PUSHACC3 + 2025 ACC0 + 2026 PUSHACC3 + 2027 PUSHACC3 2028 MAKEBLOCK2 0 - 2030 PUSHOFFSETCLOSURE0 + 2030 PUSHOFFSETCLOSURE0 2031 APPTERM2 6 - 2033 ACC0 - 2034 PUSHACC3 - 2035 PUSHOFFSETCLOSURE0 + 2033 ACC0 + 2034 PUSHACC3 + 2035 PUSHOFFSETCLOSURE0 2036 APPTERM2 6 - 2038 ACC0 - 2039 PUSHENVACC1 + 2038 ACC0 + 2039 PUSHENVACC1 2040 APPTERM1 3 - 2042 ACC0 - 2043 PUSHENVACC1 + 2042 ACC0 + 2043 PUSHENVACC1 2044 CLOSUREREC 2, 2011 - 2048 CONST0 - 2049 PUSHACC1 + 2048 CONST0 + 2049 PUSHACC1 2050 APPTERM1 3 - 2052 RESTART + 2052 RESTART 2053 GRAB 2 - 2055 ACC1 + 2055 ACC1 2056 BRANCHIFNOT 2077 - 2058 ACC2 + 2058 ACC2 2059 BRANCHIFNOT 2084 - 2061 ACC2 - 2062 GETFIELD1 - 2063 PUSHACC2 - 2064 GETFIELD1 - 2065 PUSHACC2 - 2066 PUSHACC5 - 2067 GETFIELD0 - 2068 PUSHACC5 - 2069 GETFIELD0 - 2070 PUSHENVACC1 - 2071 APPLY2 + 2061 ACC2 + 2062 GETFIELD1 + 2063 PUSHACC2 + 2064 GETFIELD1 + 2065 PUSHACC2 + 2066 PUSHACC5 + 2067 GETFIELD0 + 2068 PUSHACC5 + 2069 GETFIELD0 + 2070 PUSHENVACC1 + 2071 APPLY2 2072 MAKEBLOCK2 0 - 2074 PUSHOFFSETCLOSURE0 + 2074 PUSHOFFSETCLOSURE0 2075 APPTERM3 6 - 2077 ACC2 + 2077 ACC2 2078 BRANCHIFNOT 2082 2080 BRANCH 2084 2082 RETURN 3 2084 GETGLOBAL "List.rev_map2" 2086 PUSHGETGLOBALFIELD Pervasives, 2 2089 APPTERM1 4 - 2091 RESTART + 2091 RESTART 2092 GRAB 2 - 2094 ACC0 + 2094 ACC0 2095 CLOSUREREC 1, 2053 - 2099 ACC3 - 2100 PUSHACC3 - 2101 PUSHCONST0 - 2102 PUSHACC3 + 2099 ACC3 + 2100 PUSHACC3 + 2101 PUSHCONST0 + 2102 PUSHACC3 2103 APPTERM3 7 - 2105 RESTART + 2105 RESTART 2106 GRAB 1 - 2108 ACC1 + 2108 ACC1 2109 BRANCHIFNOT 2123 - 2111 ACC1 - 2112 GETFIELD1 - 2113 PUSHACC1 - 2114 PUSHACC3 - 2115 GETFIELD0 - 2116 PUSHENVACC1 - 2117 APPLY1 + 2111 ACC1 + 2112 GETFIELD1 + 2113 PUSHACC1 + 2114 PUSHACC3 + 2115 GETFIELD0 + 2116 PUSHENVACC1 + 2117 APPLY1 2118 MAKEBLOCK2 0 - 2120 PUSHOFFSETCLOSURE0 + 2120 PUSHOFFSETCLOSURE0 2121 APPTERM2 4 - 2123 ACC0 + 2123 ACC0 2124 RETURN 2 - 2126 RESTART + 2126 RESTART 2127 GRAB 1 - 2129 ACC0 + 2129 ACC0 2130 CLOSUREREC 1, 2106 - 2134 ACC2 - 2135 PUSHCONST0 - 2136 PUSHACC2 + 2134 ACC2 + 2135 PUSHCONST0 + 2136 PUSHACC2 2137 APPTERM2 5 - 2139 CONST0 - 2140 PUSHACC1 - 2141 PUSHENVACC1 + 2139 CONST0 + 2140 PUSHACC1 + 2141 PUSHENVACC1 2142 APPTERM2 3 - 2144 ACC0 + 2144 ACC0 2145 BRANCHIFNOT 2151 - 2147 ACC0 - 2148 GETFIELD1 + 2147 ACC0 + 2148 GETFIELD1 2149 RETURN 1 2151 GETGLOBAL "tl" 2153 PUSHGETGLOBALFIELD Pervasives, 3 2156 APPTERM1 2 - 2158 ACC0 + 2158 ACC0 2159 BRANCHIFNOT 2165 - 2161 ACC0 - 2162 GETFIELD0 + 2161 ACC0 + 2162 GETFIELD0 2163 RETURN 1 2165 GETGLOBAL "hd" 2167 PUSHGETGLOBALFIELD Pervasives, 3 2170 APPTERM1 2 - 2172 ACC0 - 2173 PUSHCONST0 - 2174 PUSHENVACC1 + 2172 ACC0 + 2173 PUSHCONST0 + 2174 PUSHENVACC1 2175 APPTERM2 3 2177 CLOSUREREC 0, 1200 - 2181 ACC0 + 2181 ACC0 2182 CLOSURE 1, 2172 - 2185 PUSH + 2185 PUSH 2186 CLOSURE 0, 2158 - 2189 PUSH + 2189 PUSH 2190 CLOSURE 0, 2144 - 2193 PUSH + 2193 PUSH 2194 CLOSUREREC 0, 1217 2198 GETGLOBALFIELD Pervasives, 16 - 2201 PUSH + 2201 PUSH 2202 CLOSUREREC 0, 1259 - 2206 ACC0 + 2206 ACC0 2207 CLOSURE 1, 2139 - 2210 PUSH + 2210 PUSH 2211 CLOSUREREC 0, 1277 2215 CLOSUREREC 0, 1294 2219 CLOSURE 0, 2127 - 2222 PUSH + 2222 PUSH 2223 CLOSUREREC 0, 1316 2227 CLOSUREREC 0, 1334 2231 CLOSUREREC 0, 1354 2235 CLOSUREREC 0, 1374 2239 CLOSURE 0, 2092 - 2242 PUSH + 2242 PUSH 2243 CLOSUREREC 0, 1415 2247 CLOSUREREC 0, 1452 2251 CLOSUREREC 0, 1490 @@ -1501,9 +1501,9 @@ if List.fold_left (+) 0 l <> 30000 then raise Not_found 2314 CLOSUREREC 1, 1928 2318 CLOSUREREC 0, 1942 2322 CLOSUREREC 0, 1972 - 2326 ACC0 - 2327 PUSHACC2 - 2328 PUSHACC7 + 2326 ACC0 + 2327 PUSHACC2 + 2328 PUSHACC7 2329 PUSHACC 9 2331 PUSHACC 11 2333 PUSHACC 13 @@ -1542,46 +1542,46 @@ if List.fold_left (+) 0 l <> 30000 then raise Not_found 2400 POP 36 2402 SETGLOBAL List 2404 BRANCH 2435 - 2406 RESTART + 2406 RESTART 2407 GRAB 1 - 2409 CONST0 - 2410 PUSHACC2 - 2411 LEINT + 2409 CONST0 + 2410 PUSHACC2 + 2411 LEINT 2412 BRANCHIFNOT 2417 - 2414 ACC0 + 2414 ACC0 2415 RETURN 2 - 2417 ACC1 + 2417 ACC1 2418 OFFSETINT -1 - 2420 PUSHACC1 - 2421 PUSHCONST1 + 2420 PUSHACC1 + 2421 PUSHCONST1 2422 MAKEBLOCK2 0 - 2424 PUSHOFFSETCLOSURE0 + 2424 PUSHOFFSETCLOSURE0 2425 APPTERM2 4 - 2427 RESTART + 2427 RESTART 2428 GRAB 1 - 2430 ACC1 - 2431 PUSHACC1 - 2432 ADDINT + 2430 ACC1 + 2431 PUSHACC1 + 2432 ADDINT 2433 RETURN 2 2435 CLOSUREREC 0, 2407 2439 CONSTINT 30000 - 2441 PUSHCONST0 - 2442 PUSHACC2 - 2443 APPLY2 + 2441 PUSHCONST0 + 2442 PUSHACC2 + 2443 APPLY2 2444 PUSHCONSTINT 30000 - 2446 PUSHACC1 - 2447 PUSHCONST0 - 2448 PUSH + 2446 PUSHACC1 + 2447 PUSHCONST0 + 2448 PUSH 2449 CLOSURE 0, 2428 2452 PUSHGETGLOBALFIELD List, 12 - 2455 APPLY3 - 2456 NEQ + 2455 APPLY3 + 2456 NEQ 2457 BRANCHIFNOT 2464 2459 GETGLOBAL Not_found 2461 MAKEBLOCK1 0 - 2463 RAISE + 2463 RAISE 2464 POP 2 - 2466 ATOM0 + 2466 ATOM0 2467 SETGLOBAL T310-alloc-1 - 2469 STOP + 2469 STOP **) diff --git a/testsuite/tests/tool-ocaml/t310-alloc-2.ml b/testsuite/tests/tool-ocaml/t310-alloc-2.ml index 81034e78a..efdc399b6 100644 --- a/testsuite/tests/tool-ocaml/t310-alloc-2.ml +++ b/testsuite/tests/tool-ocaml/t310-alloc-2.ml @@ -7,599 +7,599 @@ if !t <> 400000 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 746 - 11 RESTART + 11 RESTART 12 GRAB 1 - 14 ACC0 + 14 ACC0 15 BRANCHIFNOT 28 - 17 ACC1 - 18 PUSHACC1 - 19 GETFIELD1 - 20 PUSHOFFSETCLOSURE0 - 21 APPLY2 - 22 PUSHACC1 - 23 GETFIELD0 + 17 ACC1 + 18 PUSHACC1 + 19 GETFIELD1 + 20 PUSHOFFSETCLOSURE0 + 21 APPLY2 + 22 PUSHACC1 + 23 GETFIELD0 24 MAKEBLOCK2 0 26 RETURN 2 - 28 ACC1 + 28 ACC1 29 RETURN 2 - 31 RESTART + 31 RESTART 32 GRAB 3 - 34 CONST0 - 35 PUSHACC4 - 36 LEINT + 34 CONST0 + 35 PUSHACC4 + 36 LEINT 37 BRANCHIFNOT 42 - 39 CONST0 + 39 CONST0 40 RETURN 4 - 42 ACC3 - 43 PUSHACC3 - 44 PUSHACC3 - 45 PUSHACC3 + 42 ACC3 + 43 PUSHACC3 + 44 PUSHACC3 + 45 PUSHACC3 46 C_CALL4 caml_input - 48 PUSHCONST0 - 49 PUSHACC1 - 50 EQ + 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 + 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 + 70 ACC0 71 C_CALL1 caml_input_scan_line - 73 PUSHCONST0 - 74 PUSHACC1 - 75 EQ + 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 + 82 RAISE + 83 CONST0 + 84 PUSHACC1 + 85 GTINT 86 BRANCHIFNOT 107 - 88 ACC0 + 88 ACC0 89 OFFSETINT -1 91 C_CALL1 create_string - 93 PUSHACC1 + 93 PUSHACC1 94 OFFSETINT -1 - 96 PUSHCONST0 - 97 PUSHACC2 - 98 PUSHACC5 + 96 PUSHCONST0 + 97 PUSHACC2 + 98 PUSHACC5 99 C_CALL4 caml_input - 101 ACC2 + 101 ACC2 102 C_CALL1 caml_input_char - 104 ACC0 + 104 ACC0 105 RETURN 3 - 107 ACC0 - 108 NEGINT + 107 ACC0 + 108 NEGINT 109 C_CALL1 create_string - 111 PUSHACC1 - 112 NEGINT - 113 PUSHCONST0 - 114 PUSHACC2 - 115 PUSHACC5 + 111 PUSHACC1 + 112 NEGINT + 113 PUSHCONST0 + 114 PUSHACC2 + 115 PUSHACC5 116 C_CALL4 caml_input - 118 CONST0 + 118 CONST0 119 PUSHTRAP 130 - 121 ACC6 - 122 PUSHOFFSETCLOSURE0 - 123 APPLY1 - 124 PUSHACC5 - 125 PUSHENVACC1 - 126 APPLY2 - 127 POPTRAP + 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 + 132 PUSHACC1 + 133 GETFIELD0 + 134 EQ 135 BRANCHIFNOT 140 - 137 ACC1 + 137 ACC1 138 RETURN 4 - 140 ACC0 - 141 RAISE - 142 ACC0 + 140 ACC0 + 141 RAISE + 142 ACC0 143 C_CALL1 caml_flush 145 RETURN 1 - 147 RESTART + 147 RESTART 148 GRAB 1 - 150 ACC1 - 151 PUSHACC1 + 150 ACC1 + 151 PUSHACC1 152 C_CALL2 caml_output_char 154 RETURN 2 - 156 RESTART + 156 RESTART 157 GRAB 1 - 159 ACC1 - 160 PUSHACC1 + 159 ACC1 + 160 PUSHACC1 161 C_CALL2 caml_output_char 163 RETURN 2 - 165 RESTART + 165 RESTART 166 GRAB 1 - 168 ACC1 - 169 PUSHACC1 + 168 ACC1 + 169 PUSHACC1 170 C_CALL2 caml_output_int 172 RETURN 2 - 174 RESTART + 174 RESTART 175 GRAB 1 - 177 ACC1 - 178 PUSHACC1 + 177 ACC1 + 178 PUSHACC1 179 C_CALL2 caml_seek_out 181 RETURN 2 - 183 ACC0 + 183 ACC0 184 C_CALL1 caml_pos_out 186 RETURN 1 - 188 ACC0 + 188 ACC0 189 C_CALL1 caml_channel_size 191 RETURN 1 - 193 RESTART + 193 RESTART 194 GRAB 1 - 196 ACC1 - 197 PUSHACC1 + 196 ACC1 + 197 PUSHACC1 198 C_CALL2 caml_set_binary_mode 200 RETURN 2 - 202 ACC0 + 202 ACC0 203 C_CALL1 caml_input_char 205 RETURN 1 - 207 ACC0 + 207 ACC0 208 C_CALL1 caml_input_char 210 RETURN 1 - 212 ACC0 + 212 ACC0 213 C_CALL1 caml_input_int 215 RETURN 1 - 217 ACC0 + 217 ACC0 218 C_CALL1 input_value 220 RETURN 1 - 222 RESTART + 222 RESTART 223 GRAB 1 - 225 ACC1 - 226 PUSHACC1 + 225 ACC1 + 226 PUSHACC1 227 C_CALL2 caml_seek_in 229 RETURN 2 - 231 ACC0 + 231 ACC0 232 C_CALL1 caml_pos_in 234 RETURN 1 - 236 ACC0 + 236 ACC0 237 C_CALL1 caml_channel_size 239 RETURN 1 - 241 ACC0 + 241 ACC0 242 C_CALL1 caml_close_channel 244 RETURN 1 - 246 RESTART + 246 RESTART 247 GRAB 1 - 249 ACC1 - 250 PUSHACC1 + 249 ACC1 + 250 PUSHACC1 251 C_CALL2 caml_set_binary_mode 253 RETURN 2 - 255 CONST0 - 256 PUSHENVACC1 - 257 APPLY1 - 258 ACC0 + 255 CONST0 + 256 PUSHENVACC1 + 257 APPLY1 + 258 ACC0 259 C_CALL1 sys_exit 261 RETURN 1 - 263 CONST0 - 264 PUSHENVACC1 - 265 GETFIELD0 + 263 CONST0 + 264 PUSHENVACC1 + 265 GETFIELD0 266 APPTERM1 2 - 268 CONST0 - 269 PUSHENVACC1 - 270 APPLY1 - 271 CONST0 - 272 PUSHENVACC2 + 268 CONST0 + 269 PUSHENVACC1 + 270 APPLY1 + 271 CONST0 + 272 PUSHENVACC2 273 APPTERM1 2 - 275 ENVACC1 - 276 GETFIELD0 - 277 PUSHACC0 - 278 PUSHACC2 + 275 ENVACC1 + 276 GETFIELD0 + 277 PUSHACC0 + 278 PUSHACC2 279 CLOSURE 2, 268 - 282 PUSHENVACC1 - 283 SETFIELD0 + 282 PUSHENVACC1 + 283 SETFIELD0 284 RETURN 2 - 286 ENVACC1 + 286 ENVACC1 287 C_CALL1 caml_flush - 289 ENVACC2 + 289 ENVACC2 290 C_CALL1 caml_flush 292 RETURN 1 - 294 CONST0 - 295 PUSHENVACC1 - 296 APPLY1 + 294 CONST0 + 295 PUSHENVACC1 + 296 APPLY1 297 C_CALL1 float_of_string 299 RETURN 1 - 301 CONST0 - 302 PUSHENVACC1 - 303 APPLY1 + 301 CONST0 + 302 PUSHENVACC1 + 303 APPLY1 304 C_CALL1 int_of_string 306 RETURN 1 - 308 ENVACC2 + 308 ENVACC2 309 C_CALL1 caml_flush - 311 ENVACC1 - 312 PUSHENVACC3 + 311 ENVACC1 + 312 PUSHENVACC3 313 APPTERM1 2 315 CONSTINT 13 - 317 PUSHENVACC1 + 317 PUSHENVACC1 318 C_CALL2 caml_output_char - 320 ENVACC1 + 320 ENVACC1 321 C_CALL1 caml_flush 323 RETURN 1 - 325 ACC0 - 326 PUSHENVACC1 - 327 PUSHENVACC2 - 328 APPLY2 + 325 ACC0 + 326 PUSHENVACC1 + 327 PUSHENVACC2 + 328 APPLY2 329 CONSTINT 13 - 331 PUSHENVACC1 + 331 PUSHENVACC1 332 C_CALL2 caml_output_char - 334 ENVACC1 + 334 ENVACC1 335 C_CALL1 caml_flush 337 RETURN 1 - 339 ACC0 - 340 PUSHENVACC1 - 341 APPLY1 - 342 PUSHENVACC2 - 343 PUSHENVACC3 + 339 ACC0 + 340 PUSHENVACC1 + 341 APPLY1 + 342 PUSHENVACC2 + 343 PUSHENVACC3 344 APPTERM2 3 - 346 ACC0 - 347 PUSHENVACC1 - 348 APPLY1 - 349 PUSHENVACC2 - 350 PUSHENVACC3 + 346 ACC0 + 347 PUSHENVACC1 + 348 APPLY1 + 349 PUSHENVACC2 + 350 PUSHENVACC3 351 APPTERM2 3 - 353 ACC0 - 354 PUSHENVACC1 - 355 PUSHENVACC2 + 353 ACC0 + 354 PUSHENVACC1 + 355 PUSHENVACC2 356 APPTERM2 3 - 358 ACC0 - 359 PUSHENVACC1 + 358 ACC0 + 359 PUSHENVACC1 360 C_CALL2 caml_output_char 362 RETURN 1 364 CONSTINT 13 - 366 PUSHENVACC1 + 366 PUSHENVACC1 367 C_CALL2 caml_output_char - 369 ENVACC1 + 369 ENVACC1 370 C_CALL1 caml_flush 372 RETURN 1 - 374 ACC0 - 375 PUSHENVACC1 - 376 PUSHENVACC2 - 377 APPLY2 + 374 ACC0 + 375 PUSHENVACC1 + 376 PUSHENVACC2 + 377 APPLY2 378 CONSTINT 13 - 380 PUSHENVACC1 + 380 PUSHENVACC1 381 C_CALL2 caml_output_char 383 RETURN 1 - 385 ACC0 - 386 PUSHENVACC1 - 387 APPLY1 - 388 PUSHENVACC2 - 389 PUSHENVACC3 + 385 ACC0 + 386 PUSHENVACC1 + 387 APPLY1 + 388 PUSHENVACC2 + 389 PUSHENVACC3 390 APPTERM2 3 - 392 ACC0 - 393 PUSHENVACC1 - 394 APPLY1 - 395 PUSHENVACC2 - 396 PUSHENVACC3 + 392 ACC0 + 393 PUSHENVACC1 + 394 APPLY1 + 395 PUSHENVACC2 + 396 PUSHENVACC3 397 APPTERM2 3 - 399 ACC0 - 400 PUSHENVACC1 - 401 PUSHENVACC2 + 399 ACC0 + 400 PUSHENVACC1 + 401 PUSHENVACC2 402 APPTERM2 3 - 404 ACC0 - 405 PUSHENVACC1 + 404 ACC0 + 405 PUSHENVACC1 406 C_CALL2 caml_output_char 408 RETURN 1 - 410 RESTART + 410 RESTART 411 GRAB 3 - 413 CONST0 - 414 PUSHACC3 - 415 LTINT + 413 CONST0 + 414 PUSHACC3 + 415 LTINT 416 BRANCHIF 427 - 418 ACC1 + 418 ACC1 419 C_CALL1 ml_string_length - 421 PUSHACC4 - 422 PUSHACC4 - 423 ADDINT - 424 GTINT + 421 PUSHACC4 + 422 PUSHACC4 + 423 ADDINT + 424 GTINT 425 BRANCHIFNOT 432 427 GETGLOBAL "really_input" - 429 PUSHENVACC1 + 429 PUSHENVACC1 430 APPTERM1 5 - 432 ACC3 - 433 PUSHACC3 - 434 PUSHACC3 - 435 PUSHACC3 - 436 PUSHENVACC2 + 432 ACC3 + 433 PUSHACC3 + 434 PUSHACC3 + 435 PUSHACC3 + 436 PUSHENVACC2 437 APPTERM 4, 8 - 440 RESTART + 440 RESTART 441 GRAB 3 - 443 CONST0 - 444 PUSHACC3 - 445 LTINT + 443 CONST0 + 444 PUSHACC3 + 445 LTINT 446 BRANCHIF 457 - 448 ACC1 + 448 ACC1 449 C_CALL1 ml_string_length - 451 PUSHACC4 - 452 PUSHACC4 - 453 ADDINT - 454 GTINT + 451 PUSHACC4 + 452 PUSHACC4 + 453 ADDINT + 454 GTINT 455 BRANCHIFNOT 462 457 GETGLOBAL "input" - 459 PUSHENVACC1 + 459 PUSHENVACC1 460 APPTERM1 5 - 462 ACC3 - 463 PUSHACC3 - 464 PUSHACC3 - 465 PUSHACC3 + 462 ACC3 + 463 PUSHACC3 + 464 PUSHACC3 + 465 PUSHACC3 466 C_CALL4 caml_input 468 RETURN 4 - 470 ACC0 - 471 PUSHCONST0 + 470 ACC0 + 471 PUSHCONST0 472 PUSHGETGLOBAL <0>(0, <0>(6, 0)) - 474 PUSHENVACC1 + 474 PUSHENVACC1 475 APPTERM3 4 - 477 ACC0 - 478 PUSHCONST0 + 477 ACC0 + 478 PUSHCONST0 479 PUSHGETGLOBAL <0>(0, <0>(7, 0)) - 481 PUSHENVACC1 + 481 PUSHENVACC1 482 APPTERM3 4 - 484 RESTART + 484 RESTART 485 GRAB 2 - 487 ACC1 - 488 PUSHACC1 - 489 PUSHACC4 + 487 ACC1 + 488 PUSHACC1 + 489 PUSHACC4 490 C_CALL3 sys_open 492 C_CALL1 caml_open_descriptor 494 RETURN 3 - 496 ACC0 + 496 ACC0 497 C_CALL1 caml_flush - 499 ACC0 + 499 ACC0 500 C_CALL1 caml_close_channel 502 RETURN 1 - 504 RESTART + 504 RESTART 505 GRAB 1 - 507 CONST0 - 508 PUSHACC2 - 509 PUSHACC2 + 507 CONST0 + 508 PUSHACC2 + 509 PUSHACC2 510 C_CALL3 output_value 512 RETURN 2 - 514 RESTART + 514 RESTART 515 GRAB 3 - 517 CONST0 - 518 PUSHACC3 - 519 LTINT + 517 CONST0 + 518 PUSHACC3 + 519 LTINT 520 BRANCHIF 531 - 522 ACC1 + 522 ACC1 523 C_CALL1 ml_string_length - 525 PUSHACC4 - 526 PUSHACC4 - 527 ADDINT - 528 GTINT + 525 PUSHACC4 + 526 PUSHACC4 + 527 ADDINT + 528 GTINT 529 BRANCHIFNOT 536 531 GETGLOBAL "output" - 533 PUSHENVACC1 + 533 PUSHENVACC1 534 APPTERM1 5 - 536 ACC3 - 537 PUSHACC3 - 538 PUSHACC3 - 539 PUSHACC3 + 536 ACC3 + 537 PUSHACC3 + 538 PUSHACC3 + 539 PUSHACC3 540 C_CALL4 caml_output 542 RETURN 4 - 544 RESTART + 544 RESTART 545 GRAB 1 - 547 ACC1 + 547 ACC1 548 C_CALL1 ml_string_length - 550 PUSHCONST0 - 551 PUSHACC3 - 552 PUSHACC3 + 550 PUSHCONST0 + 551 PUSHACC3 + 552 PUSHACC3 553 C_CALL4 caml_output 555 RETURN 2 - 557 ACC0 + 557 ACC0 558 PUSHCONSTINT 438 560 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(6, 0)))) - 562 PUSHENVACC1 + 562 PUSHENVACC1 563 APPTERM3 4 - 565 ACC0 + 565 ACC0 566 PUSHCONSTINT 438 568 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(7, 0)))) - 570 PUSHENVACC1 + 570 PUSHENVACC1 571 APPTERM3 4 - 573 RESTART + 573 RESTART 574 GRAB 2 - 576 ACC1 - 577 PUSHACC1 - 578 PUSHACC4 + 576 ACC1 + 577 PUSHACC1 + 578 PUSHACC4 579 C_CALL3 sys_open 581 C_CALL1 caml_open_descriptor 583 RETURN 3 - 585 ACC0 + 585 ACC0 586 PUSHGETGLOBAL "%.12g" 588 C_CALL2 format_float 590 RETURN 1 - 592 ACC0 + 592 ACC0 593 PUSHGETGLOBAL "%d" 595 C_CALL2 format_int 597 RETURN 1 599 GETGLOBAL "false" - 601 PUSHACC1 + 601 PUSHACC1 602 C_CALL2 string_equal 604 BRANCHIFNOT 609 - 606 CONST0 + 606 CONST0 607 RETURN 1 609 GETGLOBAL "true" - 611 PUSHACC1 + 611 PUSHACC1 612 C_CALL2 string_equal 614 BRANCHIFNOT 619 - 616 CONST1 + 616 CONST1 617 RETURN 1 619 GETGLOBAL "bool_of_string" - 621 PUSHENVACC1 + 621 PUSHENVACC1 622 APPTERM1 2 - 624 ACC0 + 624 ACC0 625 BRANCHIFNOT 631 627 GETGLOBAL "true" 629 RETURN 1 631 GETGLOBAL "false" 633 RETURN 1 - 635 CONST0 - 636 PUSHACC1 - 637 LTINT + 635 CONST0 + 636 PUSHACC1 + 637 LTINT 638 BRANCHIF 646 640 CONSTINT 255 - 642 PUSHACC1 - 643 GTINT + 642 PUSHACC1 + 643 GTINT 644 BRANCHIFNOT 651 646 GETGLOBAL "char_of_int" - 648 PUSHENVACC1 + 648 PUSHENVACC1 649 APPTERM1 2 - 651 ACC0 + 651 ACC0 652 RETURN 1 - 654 RESTART + 654 RESTART 655 GRAB 1 - 657 ACC0 + 657 ACC0 658 C_CALL1 ml_string_length - 660 PUSHACC2 + 660 PUSHACC2 661 C_CALL1 ml_string_length - 663 PUSHACC0 - 664 PUSHACC2 - 665 ADDINT + 663 PUSHACC0 + 664 PUSHACC2 + 665 ADDINT 666 C_CALL1 create_string - 668 PUSHACC2 - 669 PUSHCONST0 - 670 PUSHACC2 - 671 PUSHCONST0 - 672 PUSHACC7 + 668 PUSHACC2 + 669 PUSHCONST0 + 670 PUSHACC2 + 671 PUSHCONST0 + 672 PUSHACC7 673 C_CALL5 blit_string - 675 ACC1 - 676 PUSHACC3 - 677 PUSHACC2 - 678 PUSHCONST0 + 675 ACC1 + 676 PUSHACC3 + 677 PUSHACC2 + 678 PUSHCONST0 679 PUSHACC 8 681 C_CALL5 blit_string - 683 ACC0 + 683 ACC0 684 RETURN 5 686 CONSTINT -1 - 688 PUSHACC1 - 689 XORINT + 688 PUSHACC1 + 689 XORINT 690 RETURN 1 - 692 CONST0 - 693 PUSHACC1 - 694 GEINT + 692 CONST0 + 693 PUSHACC1 + 694 GEINT 695 BRANCHIFNOT 700 - 697 ACC0 + 697 ACC0 698 RETURN 1 - 700 ACC0 - 701 NEGINT + 700 ACC0 + 701 NEGINT 702 RETURN 1 - 704 RESTART + 704 RESTART 705 GRAB 1 - 707 ACC1 - 708 PUSHACC1 + 707 ACC1 + 708 PUSHACC1 709 C_CALL2 greaterequal 711 BRANCHIFNOT 716 - 713 ACC0 + 713 ACC0 714 RETURN 2 - 716 ACC1 + 716 ACC1 717 RETURN 2 - 719 RESTART + 719 RESTART 720 GRAB 1 - 722 ACC1 - 723 PUSHACC1 + 722 ACC1 + 723 PUSHACC1 724 C_CALL2 lessequal 726 BRANCHIFNOT 731 - 728 ACC0 + 728 ACC0 729 RETURN 2 - 731 ACC1 + 731 ACC1 732 RETURN 2 - 734 ACC0 + 734 ACC0 735 PUSHGETGLOBAL Invalid_argument 737 MAKEBLOCK2 0 - 739 RAISE - 740 ACC0 + 739 RAISE + 740 ACC0 741 PUSHGETGLOBAL Failure 743 MAKEBLOCK2 0 - 745 RAISE + 745 RAISE 746 CLOSURE 0, 740 - 749 PUSH + 749 PUSH 750 CLOSURE 0, 734 753 PUSHGETGLOBAL "Pervasives.Exit" 755 MAKEBLOCK1 0 757 PUSHGETGLOBAL "Pervasives.Assert_failure" 759 MAKEBLOCK1 0 - 761 PUSH + 761 PUSH 762 CLOSURE 0, 720 - 765 PUSH + 765 PUSH 766 CLOSURE 0, 705 - 769 PUSH + 769 PUSH 770 CLOSURE 0, 692 - 773 PUSH + 773 PUSH 774 CLOSURE 0, 686 - 777 PUSHCONST0 + 777 PUSHCONST0 778 PUSHCONSTINT 31 - 780 PUSHCONST1 - 781 LSLINT - 782 EQ + 780 PUSHCONST1 + 781 LSLINT + 782 EQ 783 BRANCHIFNOT 789 785 CONSTINT 30 787 BRANCH 791 789 CONSTINT 62 - 791 PUSHCONST1 - 792 LSLINT - 793 PUSHACC0 + 791 PUSHCONST1 + 792 LSLINT + 793 PUSHACC0 794 OFFSETINT -1 - 796 PUSH + 796 PUSH 797 CLOSURE 0, 655 800 PUSHACC 9 802 CLOSURE 1, 635 - 805 PUSH + 805 PUSH 806 CLOSURE 0, 624 809 PUSHACC 11 811 CLOSURE 1, 599 - 814 PUSH + 814 PUSH 815 CLOSURE 0, 592 - 818 PUSH + 818 PUSH 819 CLOSURE 0, 585 - 822 PUSH + 822 PUSH 823 CLOSUREREC 0, 12 - 827 CONST0 + 827 CONST0 828 C_CALL1 caml_open_descriptor - 830 PUSHCONST1 + 830 PUSHCONST1 831 C_CALL1 caml_open_descriptor - 833 PUSHCONST2 + 833 PUSHCONST2 834 C_CALL1 caml_open_descriptor - 836 PUSH + 836 PUSH 837 CLOSURE 0, 574 - 840 PUSHACC0 + 840 PUSHACC0 841 CLOSURE 1, 565 - 844 PUSHACC1 + 844 PUSHACC1 845 CLOSURE 1, 557 - 848 PUSH + 848 PUSH 849 CLOSURE 0, 545 852 PUSHACC 22 854 CLOSURE 1, 515 - 857 PUSH + 857 PUSH 858 CLOSURE 0, 505 - 861 PUSH + 861 PUSH 862 CLOSURE 0, 496 - 865 PUSH + 865 PUSH 866 CLOSURE 0, 485 - 869 PUSHACC0 + 869 PUSHACC0 870 CLOSURE 1, 477 - 873 PUSHACC1 + 873 PUSHACC1 874 CLOSURE 1, 470 877 PUSHACC 28 879 CLOSURE 1, 441 - 882 PUSH + 882 PUSH 883 CLOSUREREC 0, 32 - 887 ACC0 + 887 ACC0 888 PUSHACC 31 890 CLOSURE 2, 411 893 PUSHACC 22 @@ -644,67 +644,67 @@ if !t <> 400000 then raise Not_found 985 PUSHACC 28 987 PUSHACC 30 989 CLOSURE 3, 308 - 992 PUSHACC0 + 992 PUSHACC0 993 CLOSURE 1, 301 - 996 PUSHACC1 + 996 PUSHACC1 997 CLOSURE 1, 294 1000 PUSHACC 29 1002 PUSHACC 31 1004 CLOSURE 2, 286 1007 MAKEBLOCK1 0 - 1009 PUSHACC0 + 1009 PUSHACC0 1010 CLOSURE 1, 275 - 1013 PUSHACC1 + 1013 PUSHACC1 1014 CLOSURE 1, 263 - 1017 PUSHACC0 + 1017 PUSHACC0 1018 CLOSURE 1, 255 - 1021 PUSHACC1 + 1021 PUSHACC1 1022 PUSHACC 22 - 1024 PUSHACC4 - 1025 PUSHACC3 - 1026 PUSH + 1024 PUSHACC4 + 1025 PUSHACC3 + 1026 PUSH 1027 CLOSURE 0, 247 - 1030 PUSH + 1030 PUSH 1031 CLOSURE 0, 241 - 1034 PUSH + 1034 PUSH 1035 CLOSURE 0, 236 - 1038 PUSH + 1038 PUSH 1039 CLOSURE 0, 231 - 1042 PUSH + 1042 PUSH 1043 CLOSURE 0, 223 - 1046 PUSH + 1046 PUSH 1047 CLOSURE 0, 217 - 1050 PUSH + 1050 PUSH 1051 CLOSURE 0, 212 - 1054 PUSH + 1054 PUSH 1055 CLOSURE 0, 207 1058 PUSHACC 32 1060 PUSHACC 35 1062 PUSHACC 33 - 1064 PUSH + 1064 PUSH 1065 CLOSURE 0, 202 1068 PUSHACC 41 1070 PUSHACC 40 1072 PUSHACC 42 - 1074 PUSH + 1074 PUSH 1075 CLOSURE 0, 194 1078 PUSHACC 46 - 1080 PUSH + 1080 PUSH 1081 CLOSURE 0, 188 - 1084 PUSH + 1084 PUSH 1085 CLOSURE 0, 183 - 1088 PUSH + 1088 PUSH 1089 CLOSURE 0, 175 1092 PUSHACC 51 - 1094 PUSH + 1094 PUSH 1095 CLOSURE 0, 166 - 1098 PUSH + 1098 PUSH 1099 CLOSURE 0, 157 1102 PUSHACC 55 1104 PUSHACC 57 - 1106 PUSH + 1106 PUSH 1107 CLOSURE 0, 148 - 1110 PUSH + 1110 PUSH 1111 CLOSURE 0, 142 1114 PUSHACC 63 1116 PUSHACC 62 @@ -748,38 +748,38 @@ if !t <> 400000 then raise Not_found 1193 POP 53 1195 SETGLOBAL Pervasives 1197 BRANCH 2177 - 1199 RESTART + 1199 RESTART 1200 GRAB 1 - 1202 ACC1 + 1202 ACC1 1203 BRANCHIFNOT 1213 - 1205 ACC1 - 1206 GETFIELD1 - 1207 PUSHACC1 + 1205 ACC1 + 1206 GETFIELD1 + 1207 PUSHACC1 1208 OFFSETINT 1 - 1210 PUSHOFFSETCLOSURE0 + 1210 PUSHOFFSETCLOSURE0 1211 APPTERM2 4 - 1213 ACC0 + 1213 ACC0 1214 RETURN 2 - 1216 RESTART + 1216 RESTART 1217 GRAB 1 - 1219 ACC0 + 1219 ACC0 1220 BRANCHIFNOT 1251 - 1222 CONST0 - 1223 PUSHACC2 - 1224 EQ + 1222 CONST0 + 1223 PUSHACC2 + 1224 EQ 1225 BRANCHIFNOT 1231 - 1227 ACC0 - 1228 GETFIELD0 + 1227 ACC0 + 1228 GETFIELD0 1229 RETURN 2 - 1231 CONST0 - 1232 PUSHACC2 - 1233 GTINT + 1231 CONST0 + 1232 PUSHACC2 + 1233 GTINT 1234 BRANCHIFNOT 1244 - 1236 ACC1 + 1236 ACC1 1237 OFFSETINT -1 - 1239 PUSHACC1 - 1240 GETFIELD1 - 1241 PUSHOFFSETCLOSURE0 + 1239 PUSHACC1 + 1240 GETFIELD1 + 1241 PUSHOFFSETCLOSURE0 1242 APPTERM2 4 1244 GETGLOBAL "List.nth" 1246 PUSHGETGLOBALFIELD Pervasives, 2 @@ -787,696 +787,696 @@ if !t <> 400000 then raise Not_found 1251 GETGLOBAL "nth" 1253 PUSHGETGLOBALFIELD Pervasives, 3 1256 APPTERM1 3 - 1258 RESTART + 1258 RESTART 1259 GRAB 1 - 1261 ACC0 + 1261 ACC0 1262 BRANCHIFNOT 1274 - 1264 ACC1 - 1265 PUSHACC1 - 1266 GETFIELD0 + 1264 ACC1 + 1265 PUSHACC1 + 1266 GETFIELD0 1267 MAKEBLOCK2 0 - 1269 PUSHACC1 - 1270 GETFIELD1 - 1271 PUSHOFFSETCLOSURE0 + 1269 PUSHACC1 + 1270 GETFIELD1 + 1271 PUSHOFFSETCLOSURE0 1272 APPTERM2 4 - 1274 ACC1 + 1274 ACC1 1275 RETURN 2 - 1277 ACC0 + 1277 ACC0 1278 BRANCHIFNOT 1291 - 1280 ACC0 - 1281 GETFIELD1 - 1282 PUSHOFFSETCLOSURE0 - 1283 APPLY1 - 1284 PUSHACC1 - 1285 GETFIELD0 + 1280 ACC0 + 1281 GETFIELD1 + 1282 PUSHOFFSETCLOSURE0 + 1283 APPLY1 + 1284 PUSHACC1 + 1285 GETFIELD0 1286 PUSHGETGLOBALFIELD Pervasives, 16 1289 APPTERM2 3 1291 RETURN 1 - 1293 RESTART + 1293 RESTART 1294 GRAB 1 - 1296 ACC1 + 1296 ACC1 1297 BRANCHIFNOT 1313 - 1299 ACC1 - 1300 GETFIELD0 - 1301 PUSHACC1 - 1302 APPLY1 - 1303 PUSHACC2 - 1304 GETFIELD1 - 1305 PUSHACC2 - 1306 PUSHOFFSETCLOSURE0 - 1307 APPLY2 - 1308 PUSHACC1 + 1299 ACC1 + 1300 GETFIELD0 + 1301 PUSHACC1 + 1302 APPLY1 + 1303 PUSHACC2 + 1304 GETFIELD1 + 1305 PUSHACC2 + 1306 PUSHOFFSETCLOSURE0 + 1307 APPLY2 + 1308 PUSHACC1 1309 MAKEBLOCK2 0 1311 POP 1 1313 RETURN 2 - 1315 RESTART + 1315 RESTART 1316 GRAB 1 - 1318 ACC1 + 1318 ACC1 1319 BRANCHIFNOT 1331 - 1321 ACC1 - 1322 GETFIELD0 - 1323 PUSHACC1 - 1324 APPLY1 - 1325 ACC1 - 1326 GETFIELD1 - 1327 PUSHACC1 - 1328 PUSHOFFSETCLOSURE0 + 1321 ACC1 + 1322 GETFIELD0 + 1323 PUSHACC1 + 1324 APPLY1 + 1325 ACC1 + 1326 GETFIELD1 + 1327 PUSHACC1 + 1328 PUSHOFFSETCLOSURE0 1329 APPTERM2 4 1331 RETURN 2 - 1333 RESTART + 1333 RESTART 1334 GRAB 2 - 1336 ACC2 + 1336 ACC2 1337 BRANCHIFNOT 1350 - 1339 ACC2 - 1340 GETFIELD1 - 1341 PUSHACC3 - 1342 GETFIELD0 - 1343 PUSHACC3 - 1344 PUSHACC3 - 1345 APPLY2 - 1346 PUSHACC2 - 1347 PUSHOFFSETCLOSURE0 + 1339 ACC2 + 1340 GETFIELD1 + 1341 PUSHACC3 + 1342 GETFIELD0 + 1343 PUSHACC3 + 1344 PUSHACC3 + 1345 APPLY2 + 1346 PUSHACC2 + 1347 PUSHOFFSETCLOSURE0 1348 APPTERM3 6 - 1350 ACC1 + 1350 ACC1 1351 RETURN 3 - 1353 RESTART + 1353 RESTART 1354 GRAB 2 - 1356 ACC1 + 1356 ACC1 1357 BRANCHIFNOT 1370 - 1359 ACC2 - 1360 PUSHACC2 - 1361 GETFIELD1 - 1362 PUSHACC2 - 1363 PUSHOFFSETCLOSURE0 - 1364 APPLY3 - 1365 PUSHACC2 - 1366 GETFIELD0 - 1367 PUSHACC2 + 1359 ACC2 + 1360 PUSHACC2 + 1361 GETFIELD1 + 1362 PUSHACC2 + 1363 PUSHOFFSETCLOSURE0 + 1364 APPLY3 + 1365 PUSHACC2 + 1366 GETFIELD0 + 1367 PUSHACC2 1368 APPTERM2 5 - 1370 ACC2 + 1370 ACC2 1371 RETURN 3 - 1373 RESTART + 1373 RESTART 1374 GRAB 2 - 1376 ACC1 + 1376 ACC1 1377 BRANCHIFNOT 1400 - 1379 ACC2 + 1379 ACC2 1380 BRANCHIFNOT 1407 - 1382 ACC2 - 1383 GETFIELD0 - 1384 PUSHACC2 - 1385 GETFIELD0 - 1386 PUSHACC2 - 1387 APPLY2 - 1388 PUSHACC3 - 1389 GETFIELD1 - 1390 PUSHACC3 - 1391 GETFIELD1 - 1392 PUSHACC3 - 1393 PUSHOFFSETCLOSURE0 - 1394 APPLY3 - 1395 PUSHACC1 + 1382 ACC2 + 1383 GETFIELD0 + 1384 PUSHACC2 + 1385 GETFIELD0 + 1386 PUSHACC2 + 1387 APPLY2 + 1388 PUSHACC3 + 1389 GETFIELD1 + 1390 PUSHACC3 + 1391 GETFIELD1 + 1392 PUSHACC3 + 1393 PUSHOFFSETCLOSURE0 + 1394 APPLY3 + 1395 PUSHACC1 1396 MAKEBLOCK2 0 1398 RETURN 4 - 1400 ACC2 + 1400 ACC2 1401 BRANCHIFNOT 1405 1403 BRANCH 1407 1405 RETURN 3 1407 GETGLOBAL "List.map2" 1409 PUSHGETGLOBALFIELD Pervasives, 2 1412 APPTERM1 4 - 1414 RESTART + 1414 RESTART 1415 GRAB 2 - 1417 ACC1 + 1417 ACC1 1418 BRANCHIFNOT 1437 - 1420 ACC2 + 1420 ACC2 1421 BRANCHIFNOT 1444 - 1423 ACC2 - 1424 GETFIELD0 - 1425 PUSHACC2 - 1426 GETFIELD0 - 1427 PUSHACC2 - 1428 APPLY2 - 1429 ACC2 - 1430 GETFIELD1 - 1431 PUSHACC2 - 1432 GETFIELD1 - 1433 PUSHACC2 - 1434 PUSHOFFSETCLOSURE0 + 1423 ACC2 + 1424 GETFIELD0 + 1425 PUSHACC2 + 1426 GETFIELD0 + 1427 PUSHACC2 + 1428 APPLY2 + 1429 ACC2 + 1430 GETFIELD1 + 1431 PUSHACC2 + 1432 GETFIELD1 + 1433 PUSHACC2 + 1434 PUSHOFFSETCLOSURE0 1435 APPTERM3 6 - 1437 ACC2 + 1437 ACC2 1438 BRANCHIFNOT 1442 1440 BRANCH 1444 1442 RETURN 3 1444 GETGLOBAL "List.iter2" 1446 PUSHGETGLOBALFIELD Pervasives, 2 1449 APPTERM1 4 - 1451 RESTART + 1451 RESTART 1452 GRAB 3 - 1454 ACC2 + 1454 ACC2 1455 BRANCHIFNOT 1476 - 1457 ACC3 + 1457 ACC3 1458 BRANCHIFNOT 1482 - 1460 ACC3 - 1461 GETFIELD1 - 1462 PUSHACC3 - 1463 GETFIELD1 - 1464 PUSHACC5 - 1465 GETFIELD0 - 1466 PUSHACC5 - 1467 GETFIELD0 - 1468 PUSHACC5 - 1469 PUSHACC5 - 1470 APPLY3 - 1471 PUSHACC3 - 1472 PUSHOFFSETCLOSURE0 + 1460 ACC3 + 1461 GETFIELD1 + 1462 PUSHACC3 + 1463 GETFIELD1 + 1464 PUSHACC5 + 1465 GETFIELD0 + 1466 PUSHACC5 + 1467 GETFIELD0 + 1468 PUSHACC5 + 1469 PUSHACC5 + 1470 APPLY3 + 1471 PUSHACC3 + 1472 PUSHOFFSETCLOSURE0 1473 APPTERM 4, 8 - 1476 ACC3 + 1476 ACC3 1477 BRANCHIF 1482 - 1479 ACC1 + 1479 ACC1 1480 RETURN 4 1482 GETGLOBAL "List.fold_left2" 1484 PUSHGETGLOBALFIELD Pervasives, 2 1487 APPTERM1 5 - 1489 RESTART + 1489 RESTART 1490 GRAB 3 - 1492 ACC1 + 1492 ACC1 1493 BRANCHIFNOT 1516 - 1495 ACC2 + 1495 ACC2 1496 BRANCHIFNOT 1522 1498 PUSH_RETADDR 1509 - 1500 ACC6 - 1501 PUSHACC6 - 1502 GETFIELD1 - 1503 PUSHACC6 - 1504 GETFIELD1 - 1505 PUSHACC6 - 1506 PUSHOFFSETCLOSURE0 + 1500 ACC6 + 1501 PUSHACC6 + 1502 GETFIELD1 + 1503 PUSHACC6 + 1504 GETFIELD1 + 1505 PUSHACC6 + 1506 PUSHOFFSETCLOSURE0 1507 APPLY 4 - 1509 PUSHACC3 - 1510 GETFIELD0 - 1511 PUSHACC3 - 1512 GETFIELD0 - 1513 PUSHACC3 + 1509 PUSHACC3 + 1510 GETFIELD0 + 1511 PUSHACC3 + 1512 GETFIELD0 + 1513 PUSHACC3 1514 APPTERM3 7 - 1516 ACC2 + 1516 ACC2 1517 BRANCHIF 1522 - 1519 ACC3 + 1519 ACC3 1520 RETURN 4 1522 GETGLOBAL "List.fold_right2" 1524 PUSHGETGLOBALFIELD Pervasives, 2 1527 APPTERM1 5 - 1529 RESTART + 1529 RESTART 1530 GRAB 1 - 1532 ACC1 + 1532 ACC1 1533 BRANCHIFNOT 1549 - 1535 ACC1 - 1536 GETFIELD0 - 1537 PUSHACC1 - 1538 APPLY1 + 1535 ACC1 + 1536 GETFIELD0 + 1537 PUSHACC1 + 1538 APPLY1 1539 BRANCHIFNOT 1547 - 1541 ACC1 - 1542 GETFIELD1 - 1543 PUSHACC1 - 1544 PUSHOFFSETCLOSURE0 + 1541 ACC1 + 1542 GETFIELD1 + 1543 PUSHACC1 + 1544 PUSHOFFSETCLOSURE0 1545 APPTERM2 4 1547 RETURN 2 - 1549 CONST1 + 1549 CONST1 1550 RETURN 2 - 1552 RESTART + 1552 RESTART 1553 GRAB 1 - 1555 ACC1 + 1555 ACC1 1556 BRANCHIFNOT 1570 - 1558 ACC1 - 1559 GETFIELD0 - 1560 PUSHACC1 - 1561 APPLY1 + 1558 ACC1 + 1559 GETFIELD0 + 1560 PUSHACC1 + 1561 APPLY1 1562 BRANCHIF 1570 - 1564 ACC1 - 1565 GETFIELD1 - 1566 PUSHACC1 - 1567 PUSHOFFSETCLOSURE0 + 1564 ACC1 + 1565 GETFIELD1 + 1566 PUSHACC1 + 1567 PUSHOFFSETCLOSURE0 1568 APPTERM2 4 1570 RETURN 2 - 1572 RESTART + 1572 RESTART 1573 GRAB 2 - 1575 ACC1 + 1575 ACC1 1576 BRANCHIFNOT 1599 - 1578 ACC2 + 1578 ACC2 1579 BRANCHIFNOT 1605 - 1581 ACC2 - 1582 GETFIELD0 - 1583 PUSHACC2 - 1584 GETFIELD0 - 1585 PUSHACC2 - 1586 APPLY2 + 1581 ACC2 + 1582 GETFIELD0 + 1583 PUSHACC2 + 1584 GETFIELD0 + 1585 PUSHACC2 + 1586 APPLY2 1587 BRANCHIFNOT 1597 - 1589 ACC2 - 1590 GETFIELD1 - 1591 PUSHACC2 - 1592 GETFIELD1 - 1593 PUSHACC2 - 1594 PUSHOFFSETCLOSURE0 + 1589 ACC2 + 1590 GETFIELD1 + 1591 PUSHACC2 + 1592 GETFIELD1 + 1593 PUSHACC2 + 1594 PUSHOFFSETCLOSURE0 1595 APPTERM3 6 1597 RETURN 3 - 1599 ACC2 + 1599 ACC2 1600 BRANCHIF 1605 - 1602 CONST1 + 1602 CONST1 1603 RETURN 3 1605 GETGLOBAL "List.for_all2" 1607 PUSHGETGLOBALFIELD Pervasives, 2 1610 APPTERM1 4 - 1612 RESTART + 1612 RESTART 1613 GRAB 2 - 1615 ACC1 + 1615 ACC1 1616 BRANCHIFNOT 1639 - 1618 ACC2 + 1618 ACC2 1619 BRANCHIFNOT 1646 - 1621 ACC2 - 1622 GETFIELD0 - 1623 PUSHACC2 - 1624 GETFIELD0 - 1625 PUSHACC2 - 1626 APPLY2 + 1621 ACC2 + 1622 GETFIELD0 + 1623 PUSHACC2 + 1624 GETFIELD0 + 1625 PUSHACC2 + 1626 APPLY2 1627 BRANCHIF 1637 - 1629 ACC2 - 1630 GETFIELD1 - 1631 PUSHACC2 - 1632 GETFIELD1 - 1633 PUSHACC2 - 1634 PUSHOFFSETCLOSURE0 + 1629 ACC2 + 1630 GETFIELD1 + 1631 PUSHACC2 + 1632 GETFIELD1 + 1633 PUSHACC2 + 1634 PUSHOFFSETCLOSURE0 1635 APPTERM3 6 1637 RETURN 3 - 1639 ACC2 + 1639 ACC2 1640 BRANCHIFNOT 1644 1642 BRANCH 1646 1644 RETURN 3 1646 GETGLOBAL "List.exists2" 1648 PUSHGETGLOBALFIELD Pervasives, 2 1651 APPTERM1 4 - 1653 RESTART + 1653 RESTART 1654 GRAB 1 - 1656 ACC1 + 1656 ACC1 1657 BRANCHIFNOT 1672 - 1659 ACC0 - 1660 PUSHACC2 - 1661 GETFIELD0 + 1659 ACC0 + 1660 PUSHACC2 + 1661 GETFIELD0 1662 C_CALL2 equal 1664 BRANCHIF 1672 - 1666 ACC1 - 1667 GETFIELD1 - 1668 PUSHACC1 - 1669 PUSHOFFSETCLOSURE0 + 1666 ACC1 + 1667 GETFIELD1 + 1668 PUSHACC1 + 1669 PUSHOFFSETCLOSURE0 1670 APPTERM2 4 1672 RETURN 2 - 1674 RESTART + 1674 RESTART 1675 GRAB 1 - 1677 ACC1 + 1677 ACC1 1678 BRANCHIFNOT 1692 - 1680 ACC0 - 1681 PUSHACC2 - 1682 GETFIELD0 - 1683 EQ + 1680 ACC0 + 1681 PUSHACC2 + 1682 GETFIELD0 + 1683 EQ 1684 BRANCHIF 1692 - 1686 ACC1 - 1687 GETFIELD1 - 1688 PUSHACC1 - 1689 PUSHOFFSETCLOSURE0 + 1686 ACC1 + 1687 GETFIELD1 + 1688 PUSHACC1 + 1689 PUSHOFFSETCLOSURE0 1690 APPTERM2 4 1692 RETURN 2 - 1694 RESTART + 1694 RESTART 1695 GRAB 1 - 1697 ACC1 + 1697 ACC1 1698 BRANCHIFNOT 1719 - 1700 ACC1 - 1701 GETFIELD0 - 1702 PUSHACC1 - 1703 PUSHACC1 - 1704 GETFIELD0 + 1700 ACC1 + 1701 GETFIELD0 + 1702 PUSHACC1 + 1703 PUSHACC1 + 1704 GETFIELD0 1705 C_CALL2 equal 1707 BRANCHIFNOT 1713 - 1709 ACC0 - 1710 GETFIELD1 + 1709 ACC0 + 1710 GETFIELD1 1711 RETURN 3 - 1713 ACC2 - 1714 GETFIELD1 - 1715 PUSHACC2 - 1716 PUSHOFFSETCLOSURE0 + 1713 ACC2 + 1714 GETFIELD1 + 1715 PUSHACC2 + 1716 PUSHOFFSETCLOSURE0 1717 APPTERM2 5 1719 GETGLOBAL Not_found 1721 MAKEBLOCK1 0 - 1723 RAISE - 1724 RESTART + 1723 RAISE + 1724 RESTART 1725 GRAB 1 - 1727 ACC1 + 1727 ACC1 1728 BRANCHIFNOT 1748 - 1730 ACC1 - 1731 GETFIELD0 - 1732 PUSHACC1 - 1733 PUSHACC1 - 1734 GETFIELD0 - 1735 EQ + 1730 ACC1 + 1731 GETFIELD0 + 1732 PUSHACC1 + 1733 PUSHACC1 + 1734 GETFIELD0 + 1735 EQ 1736 BRANCHIFNOT 1742 - 1738 ACC0 - 1739 GETFIELD1 + 1738 ACC0 + 1739 GETFIELD1 1740 RETURN 3 - 1742 ACC2 - 1743 GETFIELD1 - 1744 PUSHACC2 - 1745 PUSHOFFSETCLOSURE0 + 1742 ACC2 + 1743 GETFIELD1 + 1744 PUSHACC2 + 1745 PUSHOFFSETCLOSURE0 1746 APPTERM2 5 1748 GETGLOBAL Not_found 1750 MAKEBLOCK1 0 - 1752 RAISE - 1753 RESTART + 1752 RAISE + 1753 RESTART 1754 GRAB 1 - 1756 ACC1 + 1756 ACC1 1757 BRANCHIFNOT 1773 - 1759 ACC0 - 1760 PUSHACC2 - 1761 GETFIELD0 - 1762 GETFIELD0 + 1759 ACC0 + 1760 PUSHACC2 + 1761 GETFIELD0 + 1762 GETFIELD0 1763 C_CALL2 equal 1765 BRANCHIF 1773 - 1767 ACC1 - 1768 GETFIELD1 - 1769 PUSHACC1 - 1770 PUSHOFFSETCLOSURE0 + 1767 ACC1 + 1768 GETFIELD1 + 1769 PUSHACC1 + 1770 PUSHOFFSETCLOSURE0 1771 APPTERM2 4 1773 RETURN 2 - 1775 RESTART + 1775 RESTART 1776 GRAB 1 - 1778 ACC1 + 1778 ACC1 1779 BRANCHIFNOT 1794 - 1781 ACC0 - 1782 PUSHACC2 - 1783 GETFIELD0 - 1784 GETFIELD0 - 1785 EQ + 1781 ACC0 + 1782 PUSHACC2 + 1783 GETFIELD0 + 1784 GETFIELD0 + 1785 EQ 1786 BRANCHIF 1794 - 1788 ACC1 - 1789 GETFIELD1 - 1790 PUSHACC1 - 1791 PUSHOFFSETCLOSURE0 + 1788 ACC1 + 1789 GETFIELD1 + 1790 PUSHACC1 + 1791 PUSHOFFSETCLOSURE0 1792 APPTERM2 4 1794 RETURN 2 - 1796 RESTART + 1796 RESTART 1797 GRAB 1 - 1799 ACC1 + 1799 ACC1 1800 BRANCHIFNOT 1825 - 1802 ACC1 - 1803 GETFIELD0 - 1804 PUSHACC2 - 1805 GETFIELD1 - 1806 PUSHACC2 - 1807 PUSHACC2 - 1808 GETFIELD0 + 1802 ACC1 + 1803 GETFIELD0 + 1804 PUSHACC2 + 1805 GETFIELD1 + 1806 PUSHACC2 + 1807 PUSHACC2 + 1808 GETFIELD0 1809 C_CALL2 equal 1811 BRANCHIFNOT 1816 - 1813 ACC0 + 1813 ACC0 1814 RETURN 4 - 1816 ACC0 - 1817 PUSHACC3 - 1818 PUSHOFFSETCLOSURE0 - 1819 APPLY2 - 1820 PUSHACC2 + 1816 ACC0 + 1817 PUSHACC3 + 1818 PUSHOFFSETCLOSURE0 + 1819 APPLY2 + 1820 PUSHACC2 1821 MAKEBLOCK2 0 1823 POP 2 1825 RETURN 2 - 1827 RESTART + 1827 RESTART 1828 GRAB 1 - 1830 ACC1 + 1830 ACC1 1831 BRANCHIFNOT 1855 - 1833 ACC1 - 1834 GETFIELD0 - 1835 PUSHACC2 - 1836 GETFIELD1 - 1837 PUSHACC2 - 1838 PUSHACC2 - 1839 GETFIELD0 - 1840 EQ + 1833 ACC1 + 1834 GETFIELD0 + 1835 PUSHACC2 + 1836 GETFIELD1 + 1837 PUSHACC2 + 1838 PUSHACC2 + 1839 GETFIELD0 + 1840 EQ 1841 BRANCHIFNOT 1846 - 1843 ACC0 + 1843 ACC0 1844 RETURN 4 - 1846 ACC0 - 1847 PUSHACC3 - 1848 PUSHOFFSETCLOSURE0 - 1849 APPLY2 - 1850 PUSHACC2 + 1846 ACC0 + 1847 PUSHACC3 + 1848 PUSHOFFSETCLOSURE0 + 1849 APPLY2 + 1850 PUSHACC2 1851 MAKEBLOCK2 0 1853 POP 2 1855 RETURN 2 - 1857 RESTART + 1857 RESTART 1858 GRAB 1 - 1860 ACC1 + 1860 ACC1 1861 BRANCHIFNOT 1879 - 1863 ACC1 - 1864 GETFIELD0 - 1865 PUSHACC0 - 1866 PUSHACC2 - 1867 APPLY1 + 1863 ACC1 + 1864 GETFIELD0 + 1865 PUSHACC0 + 1866 PUSHACC2 + 1867 APPLY1 1868 BRANCHIFNOT 1873 - 1870 ACC0 + 1870 ACC0 1871 RETURN 3 - 1873 ACC2 - 1874 GETFIELD1 - 1875 PUSHACC2 - 1876 PUSHOFFSETCLOSURE0 + 1873 ACC2 + 1874 GETFIELD1 + 1875 PUSHACC2 + 1876 PUSHOFFSETCLOSURE0 1877 APPTERM2 5 1879 GETGLOBAL Not_found 1881 MAKEBLOCK1 0 - 1883 RAISE - 1884 RESTART + 1883 RAISE + 1884 RESTART 1885 GRAB 2 - 1887 ACC2 + 1887 ACC2 1888 BRANCHIFNOT 1917 - 1890 ACC2 - 1891 GETFIELD0 - 1892 PUSHACC3 - 1893 GETFIELD1 - 1894 PUSHACC1 - 1895 PUSHENVACC2 - 1896 APPLY1 + 1890 ACC2 + 1891 GETFIELD0 + 1892 PUSHACC3 + 1893 GETFIELD1 + 1894 PUSHACC1 + 1895 PUSHENVACC2 + 1896 APPLY1 1897 BRANCHIFNOT 1908 - 1899 ACC0 - 1900 PUSHACC4 - 1901 PUSHACC4 - 1902 PUSHACC4 + 1899 ACC0 + 1900 PUSHACC4 + 1901 PUSHACC4 + 1902 PUSHACC4 1903 MAKEBLOCK2 0 - 1905 PUSHOFFSETCLOSURE0 + 1905 PUSHOFFSETCLOSURE0 1906 APPTERM3 8 - 1908 ACC0 - 1909 PUSHACC4 - 1910 PUSHACC3 + 1908 ACC0 + 1909 PUSHACC4 + 1910 PUSHACC3 1911 MAKEBLOCK2 0 - 1913 PUSHACC4 - 1914 PUSHOFFSETCLOSURE0 + 1913 PUSHACC4 + 1914 PUSHOFFSETCLOSURE0 1915 APPTERM3 8 - 1917 ACC1 - 1918 PUSHENVACC1 - 1919 APPLY1 - 1920 PUSHACC1 - 1921 PUSHENVACC1 - 1922 APPLY1 + 1917 ACC1 + 1918 PUSHENVACC1 + 1919 APPLY1 + 1920 PUSHACC1 + 1921 PUSHENVACC1 + 1922 APPLY1 1923 MAKEBLOCK2 0 1925 RETURN 3 - 1927 RESTART + 1927 RESTART 1928 GRAB 1 - 1930 ACC0 - 1931 PUSHENVACC1 + 1930 ACC0 + 1931 PUSHENVACC1 1932 CLOSUREREC 2, 1885 - 1936 ACC2 - 1937 PUSHCONST0 - 1938 PUSHCONST0 - 1939 PUSHACC3 + 1936 ACC2 + 1937 PUSHCONST0 + 1938 PUSHCONST0 + 1939 PUSHACC3 1940 APPTERM3 6 - 1942 ACC0 + 1942 ACC0 1943 BRANCHIFNOT 1967 - 1945 ACC0 - 1946 GETFIELD0 - 1947 PUSHACC1 - 1948 GETFIELD1 - 1949 PUSHOFFSETCLOSURE0 - 1950 APPLY1 - 1951 PUSHACC0 - 1952 GETFIELD1 - 1953 PUSHACC2 - 1954 GETFIELD1 + 1945 ACC0 + 1946 GETFIELD0 + 1947 PUSHACC1 + 1948 GETFIELD1 + 1949 PUSHOFFSETCLOSURE0 + 1950 APPLY1 + 1951 PUSHACC0 + 1952 GETFIELD1 + 1953 PUSHACC2 + 1954 GETFIELD1 1955 MAKEBLOCK2 0 - 1957 PUSHACC1 - 1958 GETFIELD0 - 1959 PUSHACC3 - 1960 GETFIELD0 + 1957 PUSHACC1 + 1958 GETFIELD0 + 1959 PUSHACC3 + 1960 GETFIELD0 1961 MAKEBLOCK2 0 1963 MAKEBLOCK2 0 1965 RETURN 3 1967 GETGLOBAL <0>(0, 0) 1969 RETURN 1 - 1971 RESTART + 1971 RESTART 1972 GRAB 1 - 1974 ACC0 + 1974 ACC0 1975 BRANCHIFNOT 1996 - 1977 ACC1 + 1977 ACC1 1978 BRANCHIFNOT 2003 - 1980 ACC1 - 1981 GETFIELD1 - 1982 PUSHACC1 - 1983 GETFIELD1 - 1984 PUSHOFFSETCLOSURE0 - 1985 APPLY2 - 1986 PUSHACC2 - 1987 GETFIELD0 - 1988 PUSHACC2 - 1989 GETFIELD0 + 1980 ACC1 + 1981 GETFIELD1 + 1982 PUSHACC1 + 1983 GETFIELD1 + 1984 PUSHOFFSETCLOSURE0 + 1985 APPLY2 + 1986 PUSHACC2 + 1987 GETFIELD0 + 1988 PUSHACC2 + 1989 GETFIELD0 1990 MAKEBLOCK2 0 1992 MAKEBLOCK2 0 1994 RETURN 2 - 1996 ACC1 + 1996 ACC1 1997 BRANCHIFNOT 2001 1999 BRANCH 2003 2001 RETURN 2 2003 GETGLOBAL "List.combine" 2005 PUSHGETGLOBALFIELD Pervasives, 2 2008 APPTERM1 3 - 2010 RESTART + 2010 RESTART 2011 GRAB 1 - 2013 ACC1 + 2013 ACC1 2014 BRANCHIFNOT 2038 - 2016 ACC1 - 2017 GETFIELD0 - 2018 PUSHACC2 - 2019 GETFIELD1 - 2020 PUSHACC1 - 2021 PUSHENVACC2 - 2022 APPLY1 + 2016 ACC1 + 2017 GETFIELD0 + 2018 PUSHACC2 + 2019 GETFIELD1 + 2020 PUSHACC1 + 2021 PUSHENVACC2 + 2022 APPLY1 2023 BRANCHIFNOT 2033 - 2025 ACC0 - 2026 PUSHACC3 - 2027 PUSHACC3 + 2025 ACC0 + 2026 PUSHACC3 + 2027 PUSHACC3 2028 MAKEBLOCK2 0 - 2030 PUSHOFFSETCLOSURE0 + 2030 PUSHOFFSETCLOSURE0 2031 APPTERM2 6 - 2033 ACC0 - 2034 PUSHACC3 - 2035 PUSHOFFSETCLOSURE0 + 2033 ACC0 + 2034 PUSHACC3 + 2035 PUSHOFFSETCLOSURE0 2036 APPTERM2 6 - 2038 ACC0 - 2039 PUSHENVACC1 + 2038 ACC0 + 2039 PUSHENVACC1 2040 APPTERM1 3 - 2042 ACC0 - 2043 PUSHENVACC1 + 2042 ACC0 + 2043 PUSHENVACC1 2044 CLOSUREREC 2, 2011 - 2048 CONST0 - 2049 PUSHACC1 + 2048 CONST0 + 2049 PUSHACC1 2050 APPTERM1 3 - 2052 RESTART + 2052 RESTART 2053 GRAB 2 - 2055 ACC1 + 2055 ACC1 2056 BRANCHIFNOT 2077 - 2058 ACC2 + 2058 ACC2 2059 BRANCHIFNOT 2084 - 2061 ACC2 - 2062 GETFIELD1 - 2063 PUSHACC2 - 2064 GETFIELD1 - 2065 PUSHACC2 - 2066 PUSHACC5 - 2067 GETFIELD0 - 2068 PUSHACC5 - 2069 GETFIELD0 - 2070 PUSHENVACC1 - 2071 APPLY2 + 2061 ACC2 + 2062 GETFIELD1 + 2063 PUSHACC2 + 2064 GETFIELD1 + 2065 PUSHACC2 + 2066 PUSHACC5 + 2067 GETFIELD0 + 2068 PUSHACC5 + 2069 GETFIELD0 + 2070 PUSHENVACC1 + 2071 APPLY2 2072 MAKEBLOCK2 0 - 2074 PUSHOFFSETCLOSURE0 + 2074 PUSHOFFSETCLOSURE0 2075 APPTERM3 6 - 2077 ACC2 + 2077 ACC2 2078 BRANCHIFNOT 2082 2080 BRANCH 2084 2082 RETURN 3 2084 GETGLOBAL "List.rev_map2" 2086 PUSHGETGLOBALFIELD Pervasives, 2 2089 APPTERM1 4 - 2091 RESTART + 2091 RESTART 2092 GRAB 2 - 2094 ACC0 + 2094 ACC0 2095 CLOSUREREC 1, 2053 - 2099 ACC3 - 2100 PUSHACC3 - 2101 PUSHCONST0 - 2102 PUSHACC3 + 2099 ACC3 + 2100 PUSHACC3 + 2101 PUSHCONST0 + 2102 PUSHACC3 2103 APPTERM3 7 - 2105 RESTART + 2105 RESTART 2106 GRAB 1 - 2108 ACC1 + 2108 ACC1 2109 BRANCHIFNOT 2123 - 2111 ACC1 - 2112 GETFIELD1 - 2113 PUSHACC1 - 2114 PUSHACC3 - 2115 GETFIELD0 - 2116 PUSHENVACC1 - 2117 APPLY1 + 2111 ACC1 + 2112 GETFIELD1 + 2113 PUSHACC1 + 2114 PUSHACC3 + 2115 GETFIELD0 + 2116 PUSHENVACC1 + 2117 APPLY1 2118 MAKEBLOCK2 0 - 2120 PUSHOFFSETCLOSURE0 + 2120 PUSHOFFSETCLOSURE0 2121 APPTERM2 4 - 2123 ACC0 + 2123 ACC0 2124 RETURN 2 - 2126 RESTART + 2126 RESTART 2127 GRAB 1 - 2129 ACC0 + 2129 ACC0 2130 CLOSUREREC 1, 2106 - 2134 ACC2 - 2135 PUSHCONST0 - 2136 PUSHACC2 + 2134 ACC2 + 2135 PUSHCONST0 + 2136 PUSHACC2 2137 APPTERM2 5 - 2139 CONST0 - 2140 PUSHACC1 - 2141 PUSHENVACC1 + 2139 CONST0 + 2140 PUSHACC1 + 2141 PUSHENVACC1 2142 APPTERM2 3 - 2144 ACC0 + 2144 ACC0 2145 BRANCHIFNOT 2151 - 2147 ACC0 - 2148 GETFIELD1 + 2147 ACC0 + 2148 GETFIELD1 2149 RETURN 1 2151 GETGLOBAL "tl" 2153 PUSHGETGLOBALFIELD Pervasives, 3 2156 APPTERM1 2 - 2158 ACC0 + 2158 ACC0 2159 BRANCHIFNOT 2165 - 2161 ACC0 - 2162 GETFIELD0 + 2161 ACC0 + 2162 GETFIELD0 2163 RETURN 1 2165 GETGLOBAL "hd" 2167 PUSHGETGLOBALFIELD Pervasives, 3 2170 APPTERM1 2 - 2172 ACC0 - 2173 PUSHCONST0 - 2174 PUSHENVACC1 + 2172 ACC0 + 2173 PUSHCONST0 + 2174 PUSHENVACC1 2175 APPTERM2 3 2177 CLOSUREREC 0, 1200 - 2181 ACC0 + 2181 ACC0 2182 CLOSURE 1, 2172 - 2185 PUSH + 2185 PUSH 2186 CLOSURE 0, 2158 - 2189 PUSH + 2189 PUSH 2190 CLOSURE 0, 2144 - 2193 PUSH + 2193 PUSH 2194 CLOSUREREC 0, 1217 2198 GETGLOBALFIELD Pervasives, 16 - 2201 PUSH + 2201 PUSH 2202 CLOSUREREC 0, 1259 - 2206 ACC0 + 2206 ACC0 2207 CLOSURE 1, 2139 - 2210 PUSH + 2210 PUSH 2211 CLOSUREREC 0, 1277 2215 CLOSUREREC 0, 1294 2219 CLOSURE 0, 2127 - 2222 PUSH + 2222 PUSH 2223 CLOSUREREC 0, 1316 2227 CLOSUREREC 0, 1334 2231 CLOSUREREC 0, 1354 2235 CLOSUREREC 0, 1374 2239 CLOSURE 0, 2092 - 2242 PUSH + 2242 PUSH 2243 CLOSUREREC 0, 1415 2247 CLOSUREREC 0, 1452 2251 CLOSUREREC 0, 1490 @@ -1499,9 +1499,9 @@ if !t <> 400000 then raise Not_found 2314 CLOSUREREC 1, 1928 2318 CLOSUREREC 0, 1942 2322 CLOSUREREC 0, 1972 - 2326 ACC0 - 2327 PUSHACC2 - 2328 PUSHACC7 + 2326 ACC0 + 2327 PUSHACC2 + 2328 PUSHACC7 2329 PUSHACC 9 2331 PUSHACC 11 2333 PUSHACC 13 @@ -1540,729 +1540,729 @@ if !t <> 400000 then raise Not_found 2400 POP 36 2402 SETGLOBAL List 2404 BRANCH 3341 - 2406 RESTART + 2406 RESTART 2407 GRAB 2 - 2409 ACC2 - 2410 PUSHACC2 - 2411 VECTLENGTH + 2409 ACC2 + 2410 PUSHACC2 + 2411 VECTLENGTH 2412 OFFSETINT -1 - 2414 PUSHCONST0 - 2415 PUSH + 2414 PUSHCONST0 + 2415 PUSH 2416 BRANCH 2433 - 2418 CHECK_SIGNALS - 2419 ACC2 - 2420 PUSHACC2 - 2421 PUSHACC6 + 2418 CHECK_SIGNALS + 2419 ACC2 + 2420 PUSHACC2 + 2421 PUSHACC6 2422 C_CALL2 array_unsafe_get - 2424 PUSHACC5 - 2425 APPLY2 + 2424 PUSHACC5 + 2425 APPLY2 2426 ASSIGN 2 - 2428 ACC1 + 2428 ACC1 2429 OFFSETINT -1 2431 ASSIGN 1 - 2433 ACC0 - 2434 PUSHACC2 - 2435 GEINT + 2433 ACC0 + 2434 PUSHACC2 + 2435 GEINT 2436 BRANCHIF 2418 - 2438 CONST0 + 2438 CONST0 2439 POP 2 - 2441 ACC0 + 2441 ACC0 2442 RETURN 4 - 2444 RESTART + 2444 RESTART 2445 GRAB 2 - 2447 ACC1 - 2448 PUSHCONST0 - 2449 PUSHACC4 - 2450 VECTLENGTH + 2447 ACC1 + 2448 PUSHCONST0 + 2449 PUSHACC4 + 2450 VECTLENGTH 2451 OFFSETINT -1 - 2453 PUSH + 2453 PUSH 2454 BRANCH 2471 - 2456 CHECK_SIGNALS - 2457 ACC1 - 2458 PUSHACC6 + 2456 CHECK_SIGNALS + 2457 ACC1 + 2458 PUSHACC6 2459 C_CALL2 array_unsafe_get - 2461 PUSHACC3 - 2462 PUSHACC5 - 2463 APPLY2 + 2461 PUSHACC3 + 2462 PUSHACC5 + 2463 APPLY2 2464 ASSIGN 2 - 2466 ACC1 + 2466 ACC1 2467 OFFSETINT 1 2469 ASSIGN 1 - 2471 ACC0 - 2472 PUSHACC2 - 2473 LEINT + 2471 ACC0 + 2472 PUSHACC2 + 2473 LEINT 2474 BRANCHIF 2456 - 2476 CONST0 + 2476 CONST0 2477 POP 2 - 2479 ACC0 + 2479 ACC0 2480 RETURN 4 - 2482 RESTART + 2482 RESTART 2483 GRAB 1 - 2485 ACC1 + 2485 ACC1 2486 BRANCHIFNOT 2502 - 2488 ACC1 - 2489 GETFIELD0 - 2490 PUSHACC1 - 2491 PUSHENVACC1 + 2488 ACC1 + 2489 GETFIELD0 + 2490 PUSHACC1 + 2491 PUSHENVACC1 2492 C_CALL3 array_unsafe_set - 2494 ACC1 - 2495 GETFIELD1 - 2496 PUSHACC1 + 2494 ACC1 + 2495 GETFIELD1 + 2496 PUSHACC1 2497 OFFSETINT 1 - 2499 PUSHOFFSETCLOSURE0 + 2499 PUSHOFFSETCLOSURE0 2500 APPTERM2 4 - 2502 ENVACC1 + 2502 ENVACC1 2503 RETURN 2 - 2505 ACC0 + 2505 ACC0 2506 BRANCHIFNOT 2531 - 2508 ACC0 - 2509 GETFIELD1 - 2510 PUSHACC1 - 2511 GETFIELD0 - 2512 PUSHACC1 + 2508 ACC0 + 2509 GETFIELD1 + 2510 PUSHACC1 + 2511 GETFIELD0 + 2512 PUSHACC1 2513 PUSHGETGLOBALFIELD List, 0 - 2516 APPLY1 + 2516 APPLY1 2517 OFFSETINT 1 2519 C_CALL2 make_vect - 2521 PUSHACC0 + 2521 PUSHACC0 2522 CLOSUREREC 1, 2483 - 2526 ACC2 - 2527 PUSHCONST1 - 2528 PUSHACC2 + 2526 ACC2 + 2527 PUSHCONST1 + 2528 PUSHACC2 2529 APPTERM2 6 - 2531 ATOM0 + 2531 ATOM0 2532 RETURN 1 - 2534 RESTART + 2534 RESTART 2535 GRAB 1 - 2537 CONST0 - 2538 PUSHACC1 - 2539 LTINT + 2537 CONST0 + 2538 PUSHACC1 + 2539 LTINT 2540 BRANCHIFNOT 2545 - 2542 ACC1 + 2542 ACC1 2543 RETURN 2 - 2545 ACC1 - 2546 PUSHACC1 - 2547 PUSHENVACC1 + 2545 ACC1 + 2546 PUSHACC1 + 2547 PUSHENVACC1 2548 C_CALL2 array_unsafe_get 2550 MAKEBLOCK2 0 - 2552 PUSHACC1 + 2552 PUSHACC1 2553 OFFSETINT -1 - 2555 PUSHOFFSETCLOSURE0 + 2555 PUSHOFFSETCLOSURE0 2556 APPTERM2 4 - 2558 ACC0 + 2558 ACC0 2559 CLOSUREREC 1, 2535 - 2563 CONST0 - 2564 PUSHACC2 - 2565 VECTLENGTH + 2563 CONST0 + 2564 PUSHACC2 + 2565 VECTLENGTH 2566 OFFSETINT -1 - 2568 PUSHACC2 + 2568 PUSHACC2 2569 APPTERM2 4 - 2571 RESTART + 2571 RESTART 2572 GRAB 1 - 2574 ACC1 - 2575 VECTLENGTH - 2576 PUSHCONST0 - 2577 PUSHACC1 - 2578 EQ + 2574 ACC1 + 2575 VECTLENGTH + 2576 PUSHCONST0 + 2577 PUSHACC1 + 2578 EQ 2579 BRANCHIFNOT 2584 - 2581 ATOM0 + 2581 ATOM0 2582 RETURN 3 - 2584 CONST0 - 2585 PUSHACC3 + 2584 CONST0 + 2585 PUSHACC3 2586 C_CALL2 array_unsafe_get - 2588 PUSHCONST0 - 2589 PUSHACC3 - 2590 APPLY2 - 2591 PUSHACC1 + 2588 PUSHCONST0 + 2589 PUSHACC3 + 2590 APPLY2 + 2591 PUSHACC1 2592 C_CALL2 make_vect - 2594 PUSHCONST1 - 2595 PUSHACC2 + 2594 PUSHCONST1 + 2595 PUSHACC2 2596 OFFSETINT -1 - 2598 PUSH + 2598 PUSH 2599 BRANCH 2618 - 2601 CHECK_SIGNALS - 2602 ACC1 - 2603 PUSHACC6 + 2601 CHECK_SIGNALS + 2602 ACC1 + 2603 PUSHACC6 2604 C_CALL2 array_unsafe_get - 2606 PUSHACC2 - 2607 PUSHACC6 - 2608 APPLY2 - 2609 PUSHACC2 - 2610 PUSHACC4 + 2606 PUSHACC2 + 2607 PUSHACC6 + 2608 APPLY2 + 2609 PUSHACC2 + 2610 PUSHACC4 2611 C_CALL3 array_unsafe_set - 2613 ACC1 + 2613 ACC1 2614 OFFSETINT 1 2616 ASSIGN 1 - 2618 ACC0 - 2619 PUSHACC2 - 2620 LEINT + 2618 ACC0 + 2619 PUSHACC2 + 2620 LEINT 2621 BRANCHIF 2601 - 2623 CONST0 + 2623 CONST0 2624 POP 2 - 2626 ACC0 + 2626 ACC0 2627 RETURN 4 - 2629 RESTART + 2629 RESTART 2630 GRAB 1 - 2632 CONST0 - 2633 PUSHACC2 - 2634 VECTLENGTH + 2632 CONST0 + 2633 PUSHACC2 + 2634 VECTLENGTH 2635 OFFSETINT -1 - 2637 PUSH + 2637 PUSH 2638 BRANCH 2653 - 2640 CHECK_SIGNALS - 2641 ACC1 - 2642 PUSHACC4 + 2640 CHECK_SIGNALS + 2641 ACC1 + 2642 PUSHACC4 2643 C_CALL2 array_unsafe_get - 2645 PUSHACC2 - 2646 PUSHACC4 - 2647 APPLY2 - 2648 ACC1 + 2645 PUSHACC2 + 2646 PUSHACC4 + 2647 APPLY2 + 2648 ACC1 2649 OFFSETINT 1 2651 ASSIGN 1 - 2653 ACC0 - 2654 PUSHACC2 - 2655 LEINT + 2653 ACC0 + 2654 PUSHACC2 + 2655 LEINT 2656 BRANCHIF 2640 - 2658 CONST0 + 2658 CONST0 2659 RETURN 4 - 2661 RESTART + 2661 RESTART 2662 GRAB 1 - 2664 ACC1 - 2665 VECTLENGTH - 2666 PUSHCONST0 - 2667 PUSHACC1 - 2668 EQ + 2664 ACC1 + 2665 VECTLENGTH + 2666 PUSHCONST0 + 2667 PUSHACC1 + 2668 EQ 2669 BRANCHIFNOT 2674 - 2671 ATOM0 + 2671 ATOM0 2672 RETURN 3 - 2674 CONST0 - 2675 PUSHACC3 + 2674 CONST0 + 2675 PUSHACC3 2676 C_CALL2 array_unsafe_get - 2678 PUSHACC2 - 2679 APPLY1 - 2680 PUSHACC1 + 2678 PUSHACC2 + 2679 APPLY1 + 2680 PUSHACC1 2681 C_CALL2 make_vect - 2683 PUSHCONST1 - 2684 PUSHACC2 + 2683 PUSHCONST1 + 2684 PUSHACC2 2685 OFFSETINT -1 - 2687 PUSH + 2687 PUSH 2688 BRANCH 2706 - 2690 CHECK_SIGNALS - 2691 ACC1 - 2692 PUSHACC6 + 2690 CHECK_SIGNALS + 2691 ACC1 + 2692 PUSHACC6 2693 C_CALL2 array_unsafe_get - 2695 PUSHACC5 - 2696 APPLY1 - 2697 PUSHACC2 - 2698 PUSHACC4 + 2695 PUSHACC5 + 2696 APPLY1 + 2697 PUSHACC2 + 2698 PUSHACC4 2699 C_CALL3 array_unsafe_set - 2701 ACC1 + 2701 ACC1 2702 OFFSETINT 1 2704 ASSIGN 1 - 2706 ACC0 - 2707 PUSHACC2 - 2708 LEINT + 2706 ACC0 + 2707 PUSHACC2 + 2708 LEINT 2709 BRANCHIF 2690 - 2711 CONST0 + 2711 CONST0 2712 POP 2 - 2714 ACC0 + 2714 ACC0 2715 RETURN 4 - 2717 RESTART + 2717 RESTART 2718 GRAB 1 - 2720 CONST0 - 2721 PUSHACC2 - 2722 VECTLENGTH + 2720 CONST0 + 2721 PUSHACC2 + 2722 VECTLENGTH 2723 OFFSETINT -1 - 2725 PUSH + 2725 PUSH 2726 BRANCH 2740 - 2728 CHECK_SIGNALS - 2729 ACC1 - 2730 PUSHACC4 + 2728 CHECK_SIGNALS + 2729 ACC1 + 2730 PUSHACC4 2731 C_CALL2 array_unsafe_get - 2733 PUSHACC3 - 2734 APPLY1 - 2735 ACC1 + 2733 PUSHACC3 + 2734 APPLY1 + 2735 ACC1 2736 OFFSETINT 1 2738 ASSIGN 1 - 2740 ACC0 - 2741 PUSHACC2 - 2742 LEINT + 2740 ACC0 + 2741 PUSHACC2 + 2742 LEINT 2743 BRANCHIF 2728 - 2745 CONST0 + 2745 CONST0 2746 RETURN 4 - 2748 RESTART + 2748 RESTART 2749 GRAB 4 - 2751 CONST0 - 2752 PUSHACC5 - 2753 LTINT + 2751 CONST0 + 2752 PUSHACC5 + 2753 LTINT 2754 BRANCHIF 2782 - 2756 CONST0 - 2757 PUSHACC2 - 2758 LTINT + 2756 CONST0 + 2757 PUSHACC2 + 2758 LTINT 2759 BRANCHIF 2782 - 2761 ACC0 - 2762 VECTLENGTH - 2763 PUSHACC5 - 2764 PUSHACC3 - 2765 ADDINT - 2766 GTINT + 2761 ACC0 + 2762 VECTLENGTH + 2763 PUSHACC5 + 2764 PUSHACC3 + 2765 ADDINT + 2766 GTINT 2767 BRANCHIF 2782 - 2769 CONST0 - 2770 PUSHACC4 - 2771 LTINT + 2769 CONST0 + 2770 PUSHACC4 + 2771 LTINT 2772 BRANCHIF 2782 - 2774 ACC2 - 2775 VECTLENGTH - 2776 PUSHACC5 - 2777 PUSHACC5 - 2778 ADDINT - 2779 GTINT + 2774 ACC2 + 2775 VECTLENGTH + 2776 PUSHACC5 + 2777 PUSHACC5 + 2778 ADDINT + 2779 GTINT 2780 BRANCHIFNOT 2789 2782 GETGLOBAL "Array.blit" 2784 PUSHGETGLOBALFIELD Pervasives, 2 2787 APPTERM1 6 - 2789 ACC3 - 2790 PUSHACC2 - 2791 LTINT + 2789 ACC3 + 2790 PUSHACC2 + 2791 LTINT 2792 BRANCHIFNOT 2827 - 2794 ACC4 + 2794 ACC4 2795 OFFSETINT -1 - 2797 PUSHCONST0 - 2798 PUSH + 2797 PUSHCONST0 + 2798 PUSH 2799 BRANCH 2819 - 2801 CHECK_SIGNALS - 2802 ACC1 - 2803 PUSHACC4 - 2804 ADDINT - 2805 PUSHACC3 + 2801 CHECK_SIGNALS + 2802 ACC1 + 2803 PUSHACC4 + 2804 ADDINT + 2805 PUSHACC3 2806 C_CALL2 array_unsafe_get - 2808 PUSHACC2 - 2809 PUSHACC7 - 2810 ADDINT - 2811 PUSHACC6 + 2808 PUSHACC2 + 2809 PUSHACC7 + 2810 ADDINT + 2811 PUSHACC6 2812 C_CALL3 array_unsafe_set - 2814 ACC1 + 2814 ACC1 2815 OFFSETINT -1 2817 ASSIGN 1 - 2819 ACC0 - 2820 PUSHACC2 - 2821 GEINT + 2819 ACC0 + 2820 PUSHACC2 + 2821 GEINT 2822 BRANCHIF 2801 - 2824 CONST0 + 2824 CONST0 2825 RETURN 7 - 2827 CONST0 - 2828 PUSHACC5 + 2827 CONST0 + 2828 PUSHACC5 2829 OFFSETINT -1 - 2831 PUSH + 2831 PUSH 2832 BRANCH 2852 - 2834 CHECK_SIGNALS - 2835 ACC1 - 2836 PUSHACC4 - 2837 ADDINT - 2838 PUSHACC3 + 2834 CHECK_SIGNALS + 2835 ACC1 + 2836 PUSHACC4 + 2837 ADDINT + 2838 PUSHACC3 2839 C_CALL2 array_unsafe_get - 2841 PUSHACC2 - 2842 PUSHACC7 - 2843 ADDINT - 2844 PUSHACC6 + 2841 PUSHACC2 + 2842 PUSHACC7 + 2843 ADDINT + 2844 PUSHACC6 2845 C_CALL3 array_unsafe_set - 2847 ACC1 + 2847 ACC1 2848 OFFSETINT 1 2850 ASSIGN 1 - 2852 ACC0 - 2853 PUSHACC2 - 2854 LEINT + 2852 ACC0 + 2853 PUSHACC2 + 2854 LEINT 2855 BRANCHIF 2834 - 2857 CONST0 + 2857 CONST0 2858 RETURN 7 - 2860 RESTART + 2860 RESTART 2861 GRAB 3 - 2863 CONST0 - 2864 PUSHACC2 - 2865 LTINT + 2863 CONST0 + 2864 PUSHACC2 + 2865 LTINT 2866 BRANCHIF 2881 - 2868 CONST0 - 2869 PUSHACC3 - 2870 LTINT + 2868 CONST0 + 2869 PUSHACC3 + 2870 LTINT 2871 BRANCHIF 2881 - 2873 ACC0 - 2874 VECTLENGTH - 2875 PUSHACC3 - 2876 PUSHACC3 - 2877 ADDINT - 2878 GTINT + 2873 ACC0 + 2874 VECTLENGTH + 2875 PUSHACC3 + 2876 PUSHACC3 + 2877 ADDINT + 2878 GTINT 2879 BRANCHIFNOT 2888 2881 GETGLOBAL "Array.fill" 2883 PUSHGETGLOBALFIELD Pervasives, 2 2886 APPTERM1 5 - 2888 ACC1 - 2889 PUSHACC3 - 2890 PUSHACC3 - 2891 ADDINT + 2888 ACC1 + 2889 PUSHACC3 + 2890 PUSHACC3 + 2891 ADDINT 2892 OFFSETINT -1 - 2894 PUSH + 2894 PUSH 2895 BRANCH 2908 - 2897 CHECK_SIGNALS - 2898 ACC5 - 2899 PUSHACC2 - 2900 PUSHACC4 + 2897 CHECK_SIGNALS + 2898 ACC5 + 2899 PUSHACC2 + 2900 PUSHACC4 2901 C_CALL3 array_unsafe_set - 2903 ACC1 + 2903 ACC1 2904 OFFSETINT 1 2906 ASSIGN 1 - 2908 ACC0 - 2909 PUSHACC2 - 2910 LEINT + 2908 ACC0 + 2909 PUSHACC2 + 2910 LEINT 2911 BRANCHIF 2897 - 2913 CONST0 + 2913 CONST0 2914 RETURN 6 - 2916 RESTART + 2916 RESTART 2917 GRAB 2 - 2919 CONST0 - 2920 PUSHACC2 - 2921 LTINT + 2919 CONST0 + 2920 PUSHACC2 + 2921 LTINT 2922 BRANCHIF 2937 - 2924 CONST0 - 2925 PUSHACC3 - 2926 LTINT + 2924 CONST0 + 2925 PUSHACC3 + 2926 LTINT 2927 BRANCHIF 2937 - 2929 ACC0 - 2930 VECTLENGTH - 2931 PUSHACC3 - 2932 PUSHACC3 - 2933 ADDINT - 2934 GTINT + 2929 ACC0 + 2930 VECTLENGTH + 2931 PUSHACC3 + 2932 PUSHACC3 + 2933 ADDINT + 2934 GTINT 2935 BRANCHIFNOT 2944 2937 GETGLOBAL "Array.sub" 2939 PUSHGETGLOBALFIELD Pervasives, 2 2942 APPTERM1 4 - 2944 CONST0 - 2945 PUSHACC3 - 2946 EQ + 2944 CONST0 + 2945 PUSHACC3 + 2946 EQ 2947 BRANCHIFNOT 2952 - 2949 ATOM0 + 2949 ATOM0 2950 RETURN 3 - 2952 ACC1 - 2953 PUSHACC1 + 2952 ACC1 + 2953 PUSHACC1 2954 C_CALL2 array_unsafe_get - 2956 PUSHACC3 + 2956 PUSHACC3 2957 C_CALL2 make_vect - 2959 PUSHCONST1 - 2960 PUSHACC4 + 2959 PUSHCONST1 + 2960 PUSHACC4 2961 OFFSETINT -1 - 2963 PUSH + 2963 PUSH 2964 BRANCH 2982 - 2966 CHECK_SIGNALS - 2967 ACC1 - 2968 PUSHACC5 - 2969 ADDINT - 2970 PUSHACC4 + 2966 CHECK_SIGNALS + 2967 ACC1 + 2968 PUSHACC5 + 2969 ADDINT + 2970 PUSHACC4 2971 C_CALL2 array_unsafe_get - 2973 PUSHACC2 - 2974 PUSHACC4 + 2973 PUSHACC2 + 2974 PUSHACC4 2975 C_CALL3 array_unsafe_set - 2977 ACC1 + 2977 ACC1 2978 OFFSETINT 1 2980 ASSIGN 1 - 2982 ACC0 - 2983 PUSHACC2 - 2984 LEINT + 2982 ACC0 + 2983 PUSHACC2 + 2984 LEINT 2985 BRANCHIF 2966 - 2987 CONST0 + 2987 CONST0 2988 POP 2 - 2990 ACC0 + 2990 ACC0 2991 RETURN 4 - 2993 ACC0 + 2993 ACC0 2994 BRANCHIFNOT 3017 - 2996 ACC0 - 2997 GETFIELD0 - 2998 PUSHCONST0 - 2999 PUSHACC1 - 3000 VECTLENGTH - 3001 GTINT + 2996 ACC0 + 2997 GETFIELD0 + 2998 PUSHCONST0 + 2999 PUSHACC1 + 3000 VECTLENGTH + 3001 GTINT 3002 BRANCHIFNOT 3012 - 3004 ENVACC2 - 3005 PUSHCONST0 - 3006 PUSHACC2 + 3004 ENVACC2 + 3005 PUSHCONST0 + 3006 PUSHACC2 3007 C_CALL2 array_unsafe_get - 3009 PUSHENVACC1 + 3009 PUSHENVACC1 3010 APPTERM2 4 - 3012 ACC1 - 3013 GETFIELD1 - 3014 PUSHOFFSETCLOSURE0 + 3012 ACC1 + 3013 GETFIELD1 + 3014 PUSHOFFSETCLOSURE0 3015 APPTERM1 3 - 3017 ATOM0 + 3017 ATOM0 3018 RETURN 1 - 3020 ACC0 - 3021 PUSHENVACC1 + 3020 ACC0 + 3021 PUSHENVACC1 3022 CLOSUREREC 2, 2993 - 3026 ACC1 - 3027 PUSHACC1 + 3026 ACC1 + 3027 PUSHACC1 3028 APPTERM1 3 - 3030 CONST0 - 3031 PUSHACC1 - 3032 VECTLENGTH + 3030 CONST0 + 3031 PUSHACC1 + 3032 VECTLENGTH 3033 OFFSETINT -1 - 3035 PUSH + 3035 PUSH 3036 BRANCH 3056 - 3038 CHECK_SIGNALS - 3039 ACC1 - 3040 PUSHACC3 + 3038 CHECK_SIGNALS + 3039 ACC1 + 3040 PUSHACC3 3041 C_CALL2 array_unsafe_get - 3043 PUSHENVACC2 - 3044 GETFIELD0 - 3045 PUSHENVACC1 + 3043 PUSHENVACC2 + 3044 GETFIELD0 + 3045 PUSHENVACC1 3046 C_CALL3 array_unsafe_set - 3048 ENVACC2 + 3048 ENVACC2 3049 OFFSETREF 1 - 3051 ACC1 + 3051 ACC1 3052 OFFSETINT 1 3054 ASSIGN 1 - 3056 ACC0 - 3057 PUSHACC2 - 3058 LEINT + 3056 ACC0 + 3057 PUSHACC2 + 3058 LEINT 3059 BRANCHIF 3038 - 3061 CONST0 + 3061 CONST0 3062 RETURN 3 - 3064 RESTART + 3064 RESTART 3065 GRAB 1 - 3067 ACC1 - 3068 VECTLENGTH - 3069 PUSHACC1 - 3070 ADDINT + 3067 ACC1 + 3068 VECTLENGTH + 3069 PUSHACC1 + 3070 ADDINT 3071 RETURN 2 - 3073 RESTART + 3073 RESTART 3074 GRAB 1 - 3076 ACC1 - 3077 PUSHCONST0 - 3078 PUSH + 3076 ACC1 + 3077 PUSHCONST0 + 3078 PUSH 3079 CLOSURE 0, 3065 3082 PUSHGETGLOBALFIELD List, 12 - 3085 APPLY3 - 3086 PUSHACC1 - 3087 PUSHACC1 + 3085 APPLY3 + 3086 PUSHACC1 + 3087 PUSHACC1 3088 C_CALL2 make_vect - 3090 PUSHCONST0 + 3090 PUSHCONST0 3091 MAKEBLOCK1 0 - 3093 PUSHACC4 - 3094 PUSHACC1 - 3095 PUSHACC3 + 3093 PUSHACC4 + 3094 PUSHACC1 + 3095 PUSHACC3 3096 CLOSURE 2, 3030 3099 PUSHGETGLOBALFIELD List, 9 - 3102 APPLY2 - 3103 ACC1 + 3102 APPLY2 + 3103 ACC1 3104 RETURN 5 - 3106 RESTART + 3106 RESTART 3107 GRAB 1 - 3109 ACC0 - 3110 VECTLENGTH - 3111 PUSHACC2 - 3112 VECTLENGTH - 3113 PUSHCONST0 - 3114 PUSHACC2 - 3115 EQ + 3109 ACC0 + 3110 VECTLENGTH + 3111 PUSHACC2 + 3112 VECTLENGTH + 3113 PUSHCONST0 + 3114 PUSHACC2 + 3115 EQ 3116 BRANCHIFNOT 3126 - 3118 CONST0 - 3119 PUSHACC1 - 3120 EQ + 3118 CONST0 + 3119 PUSHACC1 + 3120 EQ 3121 BRANCHIFNOT 3126 - 3123 ATOM0 + 3123 ATOM0 3124 RETURN 4 - 3126 CONST0 - 3127 PUSHCONST0 - 3128 PUSHACC3 - 3129 GTINT + 3126 CONST0 + 3127 PUSHCONST0 + 3128 PUSHACC3 + 3129 GTINT 3130 BRANCHIFNOT 3135 - 3132 ACC3 + 3132 ACC3 3133 BRANCH 3136 - 3135 ACC4 + 3135 ACC4 3136 C_CALL2 array_unsafe_get - 3138 PUSHACC1 - 3139 PUSHACC3 - 3140 ADDINT + 3138 PUSHACC1 + 3139 PUSHACC3 + 3140 ADDINT 3141 C_CALL2 make_vect - 3143 PUSHCONST0 - 3144 PUSHACC3 + 3143 PUSHCONST0 + 3144 PUSHACC3 3145 OFFSETINT -1 - 3147 PUSH + 3147 PUSH 3148 BRANCH 3164 - 3150 CHECK_SIGNALS - 3151 ACC1 - 3152 PUSHACC6 + 3150 CHECK_SIGNALS + 3151 ACC1 + 3152 PUSHACC6 3153 C_CALL2 array_unsafe_get - 3155 PUSHACC2 - 3156 PUSHACC4 + 3155 PUSHACC2 + 3156 PUSHACC4 3157 C_CALL3 array_unsafe_set - 3159 ACC1 + 3159 ACC1 3160 OFFSETINT 1 3162 ASSIGN 1 - 3164 ACC0 - 3165 PUSHACC2 - 3166 LEINT + 3164 ACC0 + 3165 PUSHACC2 + 3166 LEINT 3167 BRANCHIF 3150 - 3169 CONST0 + 3169 CONST0 3170 POP 2 - 3172 CONST0 - 3173 PUSHACC2 + 3172 CONST0 + 3173 PUSHACC2 3174 OFFSETINT -1 - 3176 PUSH + 3176 PUSH 3177 BRANCH 3195 - 3179 CHECK_SIGNALS - 3180 ACC1 - 3181 PUSHACC7 + 3179 CHECK_SIGNALS + 3180 ACC1 + 3181 PUSHACC7 3182 C_CALL2 array_unsafe_get - 3184 PUSHACC5 - 3185 PUSHACC3 - 3186 ADDINT - 3187 PUSHACC4 + 3184 PUSHACC5 + 3185 PUSHACC3 + 3186 ADDINT + 3187 PUSHACC4 3188 C_CALL3 array_unsafe_set - 3190 ACC1 + 3190 ACC1 3191 OFFSETINT 1 3193 ASSIGN 1 - 3195 ACC0 - 3196 PUSHACC2 - 3197 LEINT + 3195 ACC0 + 3196 PUSHACC2 + 3197 LEINT 3198 BRANCHIF 3179 - 3200 CONST0 + 3200 CONST0 3201 POP 2 - 3203 ACC0 + 3203 ACC0 3204 RETURN 5 - 3206 ACC0 - 3207 VECTLENGTH - 3208 PUSHCONST0 - 3209 PUSHACC1 - 3210 EQ + 3206 ACC0 + 3207 VECTLENGTH + 3208 PUSHCONST0 + 3209 PUSHACC1 + 3210 EQ 3211 BRANCHIFNOT 3216 - 3213 ATOM0 + 3213 ATOM0 3214 RETURN 2 - 3216 CONST0 - 3217 PUSHACC2 + 3216 CONST0 + 3217 PUSHACC2 3218 C_CALL2 array_unsafe_get - 3220 PUSHACC1 + 3220 PUSHACC1 3221 C_CALL2 make_vect - 3223 PUSHCONST1 - 3224 PUSHACC2 + 3223 PUSHCONST1 + 3224 PUSHACC2 3225 OFFSETINT -1 - 3227 PUSH + 3227 PUSH 3228 BRANCH 3244 - 3230 CHECK_SIGNALS - 3231 ACC1 - 3232 PUSHACC5 + 3230 CHECK_SIGNALS + 3231 ACC1 + 3232 PUSHACC5 3233 C_CALL2 array_unsafe_get - 3235 PUSHACC2 - 3236 PUSHACC4 + 3235 PUSHACC2 + 3236 PUSHACC4 3237 C_CALL3 array_unsafe_set - 3239 ACC1 + 3239 ACC1 3240 OFFSETINT 1 3242 ASSIGN 1 - 3244 ACC0 - 3245 PUSHACC2 - 3246 LEINT + 3244 ACC0 + 3245 PUSHACC2 + 3246 LEINT 3247 BRANCHIF 3230 - 3249 CONST0 + 3249 CONST0 3250 POP 2 - 3252 ACC0 + 3252 ACC0 3253 RETURN 3 - 3255 RESTART + 3255 RESTART 3256 GRAB 2 - 3258 ATOM0 - 3259 PUSHACC1 + 3258 ATOM0 + 3259 PUSHACC1 3260 C_CALL2 make_vect - 3262 PUSHCONST0 - 3263 PUSHACC2 + 3262 PUSHCONST0 + 3263 PUSHACC2 3264 OFFSETINT -1 - 3266 PUSH + 3266 PUSH 3267 BRANCH 3282 - 3269 CHECK_SIGNALS - 3270 ACC5 - 3271 PUSHACC5 + 3269 CHECK_SIGNALS + 3270 ACC5 + 3271 PUSHACC5 3272 C_CALL2 make_vect - 3274 PUSHACC2 - 3275 PUSHACC4 - 3276 SETVECTITEM - 3277 ACC1 + 3274 PUSHACC2 + 3275 PUSHACC4 + 3276 SETVECTITEM + 3277 ACC1 3278 OFFSETINT 1 3280 ASSIGN 1 - 3282 ACC0 - 3283 PUSHACC2 - 3284 LEINT + 3282 ACC0 + 3283 PUSHACC2 + 3284 LEINT 3285 BRANCHIF 3269 - 3287 CONST0 + 3287 CONST0 3288 POP 2 - 3290 ACC0 + 3290 ACC0 3291 RETURN 4 - 3293 RESTART + 3293 RESTART 3294 GRAB 1 - 3296 CONST0 - 3297 PUSHACC1 - 3298 EQ + 3296 CONST0 + 3297 PUSHACC1 + 3298 EQ 3299 BRANCHIFNOT 3304 - 3301 ATOM0 + 3301 ATOM0 3302 RETURN 2 - 3304 CONST0 - 3305 PUSHACC2 - 3306 APPLY1 - 3307 PUSHACC1 + 3304 CONST0 + 3305 PUSHACC2 + 3306 APPLY1 + 3307 PUSHACC1 3308 C_CALL2 make_vect - 3310 PUSHCONST1 - 3311 PUSHACC2 + 3310 PUSHCONST1 + 3311 PUSHACC2 3312 OFFSETINT -1 - 3314 PUSH + 3314 PUSH 3315 BRANCH 3330 - 3317 CHECK_SIGNALS - 3318 ACC1 - 3319 PUSHACC5 - 3320 APPLY1 - 3321 PUSHACC2 - 3322 PUSHACC4 + 3317 CHECK_SIGNALS + 3318 ACC1 + 3319 PUSHACC5 + 3320 APPLY1 + 3321 PUSHACC2 + 3322 PUSHACC4 3323 C_CALL3 array_unsafe_set - 3325 ACC1 + 3325 ACC1 3326 OFFSETINT 1 3328 ASSIGN 1 - 3330 ACC0 - 3331 PUSHACC2 - 3332 LEINT + 3330 ACC0 + 3331 PUSHACC2 + 3332 LEINT 3333 BRANCHIF 3317 - 3335 CONST0 + 3335 CONST0 3336 POP 2 - 3338 ACC0 + 3338 ACC0 3339 RETURN 3 3341 CLOSURE 0, 3294 - 3344 PUSH + 3344 PUSH 3345 CLOSURE 0, 3256 - 3348 PUSH + 3348 PUSH 3349 CLOSURE 0, 3206 - 3352 PUSH + 3352 PUSH 3353 CLOSURE 0, 3107 - 3356 PUSH + 3356 PUSH 3357 CLOSURE 0, 3074 - 3360 PUSHACC0 + 3360 PUSHACC0 3361 CLOSURE 1, 3020 - 3364 PUSH + 3364 PUSH 3365 CLOSURE 0, 2917 - 3368 PUSH + 3368 PUSH 3369 CLOSURE 0, 2861 - 3372 PUSH + 3372 PUSH 3373 CLOSURE 0, 2749 - 3376 PUSH + 3376 PUSH 3377 CLOSURE 0, 2718 - 3380 PUSH + 3380 PUSH 3381 CLOSURE 0, 2662 - 3384 PUSH + 3384 PUSH 3385 CLOSURE 0, 2630 - 3388 PUSH + 3388 PUSH 3389 CLOSURE 0, 2572 - 3392 PUSH + 3392 PUSH 3393 CLOSURE 0, 2558 - 3396 PUSH + 3396 PUSH 3397 CLOSURE 0, 2505 - 3400 PUSH + 3400 PUSH 3401 CLOSURE 0, 2445 - 3404 PUSH + 3404 PUSH 3405 CLOSURE 0, 2407 - 3408 PUSHACC0 - 3409 PUSHACC2 - 3410 PUSHACC6 + 3408 PUSHACC0 + 3409 PUSHACC2 + 3410 PUSHACC6 3411 PUSHACC 8 3413 PUSHACC 10 3415 PUSHACC 12 @@ -2281,33 +2281,33 @@ if !t <> 400000 then raise Not_found 3442 POP 17 3444 SETGLOBAL Array 3446 BRANCH 3456 - 3448 ACC0 - 3449 PUSHENVACC1 - 3450 GETFIELD0 - 3451 ADDINT - 3452 PUSHENVACC1 - 3453 SETFIELD0 + 3448 ACC0 + 3449 PUSHENVACC1 + 3450 GETFIELD0 + 3451 ADDINT + 3452 PUSHENVACC1 + 3453 SETFIELD0 3454 RETURN 1 - 3456 CONST2 + 3456 CONST2 3457 PUSHCONSTINT 200000 3459 C_CALL2 make_vect - 3461 PUSHCONST0 + 3461 PUSHCONST0 3462 MAKEBLOCK1 0 - 3464 PUSHACC1 - 3465 PUSHACC1 + 3464 PUSHACC1 + 3465 PUSHACC1 3466 CLOSURE 1, 3448 3469 PUSHGETGLOBALFIELD Array, 11 - 3472 APPLY2 + 3472 APPLY2 3473 CONSTINT 400000 - 3475 PUSHACC1 - 3476 GETFIELD0 - 3477 NEQ + 3475 PUSHACC1 + 3476 GETFIELD0 + 3477 NEQ 3478 BRANCHIFNOT 3485 3480 GETGLOBAL Not_found 3482 MAKEBLOCK1 0 - 3484 RAISE + 3484 RAISE 3485 POP 2 - 3487 ATOM0 + 3487 ATOM0 3488 SETGLOBAL T310-alloc-2 - 3490 STOP + 3490 STOP **) diff --git a/testsuite/tests/tool-ocaml/t320-gc-1.ml b/testsuite/tests/tool-ocaml/t320-gc-1.ml index 4d5d6d966..dde4e0b67 100644 --- a/testsuite/tests/tool-ocaml/t320-gc-1.ml +++ b/testsuite/tests/tool-ocaml/t320-gc-1.ml @@ -10,599 +10,599 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 746 - 11 RESTART + 11 RESTART 12 GRAB 1 - 14 ACC0 + 14 ACC0 15 BRANCHIFNOT 28 - 17 ACC1 - 18 PUSHACC1 - 19 GETFIELD1 - 20 PUSHOFFSETCLOSURE0 - 21 APPLY2 - 22 PUSHACC1 - 23 GETFIELD0 + 17 ACC1 + 18 PUSHACC1 + 19 GETFIELD1 + 20 PUSHOFFSETCLOSURE0 + 21 APPLY2 + 22 PUSHACC1 + 23 GETFIELD0 24 MAKEBLOCK2 0 26 RETURN 2 - 28 ACC1 + 28 ACC1 29 RETURN 2 - 31 RESTART + 31 RESTART 32 GRAB 3 - 34 CONST0 - 35 PUSHACC4 - 36 LEINT + 34 CONST0 + 35 PUSHACC4 + 36 LEINT 37 BRANCHIFNOT 42 - 39 CONST0 + 39 CONST0 40 RETURN 4 - 42 ACC3 - 43 PUSHACC3 - 44 PUSHACC3 - 45 PUSHACC3 + 42 ACC3 + 43 PUSHACC3 + 44 PUSHACC3 + 45 PUSHACC3 46 C_CALL4 caml_input - 48 PUSHCONST0 - 49 PUSHACC1 - 50 EQ + 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 + 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 + 70 ACC0 71 C_CALL1 caml_input_scan_line - 73 PUSHCONST0 - 74 PUSHACC1 - 75 EQ + 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 + 82 RAISE + 83 CONST0 + 84 PUSHACC1 + 85 GTINT 86 BRANCHIFNOT 107 - 88 ACC0 + 88 ACC0 89 OFFSETINT -1 91 C_CALL1 create_string - 93 PUSHACC1 + 93 PUSHACC1 94 OFFSETINT -1 - 96 PUSHCONST0 - 97 PUSHACC2 - 98 PUSHACC5 + 96 PUSHCONST0 + 97 PUSHACC2 + 98 PUSHACC5 99 C_CALL4 caml_input - 101 ACC2 + 101 ACC2 102 C_CALL1 caml_input_char - 104 ACC0 + 104 ACC0 105 RETURN 3 - 107 ACC0 - 108 NEGINT + 107 ACC0 + 108 NEGINT 109 C_CALL1 create_string - 111 PUSHACC1 - 112 NEGINT - 113 PUSHCONST0 - 114 PUSHACC2 - 115 PUSHACC5 + 111 PUSHACC1 + 112 NEGINT + 113 PUSHCONST0 + 114 PUSHACC2 + 115 PUSHACC5 116 C_CALL4 caml_input - 118 CONST0 + 118 CONST0 119 PUSHTRAP 130 - 121 ACC6 - 122 PUSHOFFSETCLOSURE0 - 123 APPLY1 - 124 PUSHACC5 - 125 PUSHENVACC1 - 126 APPLY2 - 127 POPTRAP + 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 + 132 PUSHACC1 + 133 GETFIELD0 + 134 EQ 135 BRANCHIFNOT 140 - 137 ACC1 + 137 ACC1 138 RETURN 4 - 140 ACC0 - 141 RAISE - 142 ACC0 + 140 ACC0 + 141 RAISE + 142 ACC0 143 C_CALL1 caml_flush 145 RETURN 1 - 147 RESTART + 147 RESTART 148 GRAB 1 - 150 ACC1 - 151 PUSHACC1 + 150 ACC1 + 151 PUSHACC1 152 C_CALL2 caml_output_char 154 RETURN 2 - 156 RESTART + 156 RESTART 157 GRAB 1 - 159 ACC1 - 160 PUSHACC1 + 159 ACC1 + 160 PUSHACC1 161 C_CALL2 caml_output_char 163 RETURN 2 - 165 RESTART + 165 RESTART 166 GRAB 1 - 168 ACC1 - 169 PUSHACC1 + 168 ACC1 + 169 PUSHACC1 170 C_CALL2 caml_output_int 172 RETURN 2 - 174 RESTART + 174 RESTART 175 GRAB 1 - 177 ACC1 - 178 PUSHACC1 + 177 ACC1 + 178 PUSHACC1 179 C_CALL2 caml_seek_out 181 RETURN 2 - 183 ACC0 + 183 ACC0 184 C_CALL1 caml_pos_out 186 RETURN 1 - 188 ACC0 + 188 ACC0 189 C_CALL1 caml_channel_size 191 RETURN 1 - 193 RESTART + 193 RESTART 194 GRAB 1 - 196 ACC1 - 197 PUSHACC1 + 196 ACC1 + 197 PUSHACC1 198 C_CALL2 caml_set_binary_mode 200 RETURN 2 - 202 ACC0 + 202 ACC0 203 C_CALL1 caml_input_char 205 RETURN 1 - 207 ACC0 + 207 ACC0 208 C_CALL1 caml_input_char 210 RETURN 1 - 212 ACC0 + 212 ACC0 213 C_CALL1 caml_input_int 215 RETURN 1 - 217 ACC0 + 217 ACC0 218 C_CALL1 input_value 220 RETURN 1 - 222 RESTART + 222 RESTART 223 GRAB 1 - 225 ACC1 - 226 PUSHACC1 + 225 ACC1 + 226 PUSHACC1 227 C_CALL2 caml_seek_in 229 RETURN 2 - 231 ACC0 + 231 ACC0 232 C_CALL1 caml_pos_in 234 RETURN 1 - 236 ACC0 + 236 ACC0 237 C_CALL1 caml_channel_size 239 RETURN 1 - 241 ACC0 + 241 ACC0 242 C_CALL1 caml_close_channel 244 RETURN 1 - 246 RESTART + 246 RESTART 247 GRAB 1 - 249 ACC1 - 250 PUSHACC1 + 249 ACC1 + 250 PUSHACC1 251 C_CALL2 caml_set_binary_mode 253 RETURN 2 - 255 CONST0 - 256 PUSHENVACC1 - 257 APPLY1 - 258 ACC0 + 255 CONST0 + 256 PUSHENVACC1 + 257 APPLY1 + 258 ACC0 259 C_CALL1 sys_exit 261 RETURN 1 - 263 CONST0 - 264 PUSHENVACC1 - 265 GETFIELD0 + 263 CONST0 + 264 PUSHENVACC1 + 265 GETFIELD0 266 APPTERM1 2 - 268 CONST0 - 269 PUSHENVACC1 - 270 APPLY1 - 271 CONST0 - 272 PUSHENVACC2 + 268 CONST0 + 269 PUSHENVACC1 + 270 APPLY1 + 271 CONST0 + 272 PUSHENVACC2 273 APPTERM1 2 - 275 ENVACC1 - 276 GETFIELD0 - 277 PUSHACC0 - 278 PUSHACC2 + 275 ENVACC1 + 276 GETFIELD0 + 277 PUSHACC0 + 278 PUSHACC2 279 CLOSURE 2, 268 - 282 PUSHENVACC1 - 283 SETFIELD0 + 282 PUSHENVACC1 + 283 SETFIELD0 284 RETURN 2 - 286 ENVACC1 + 286 ENVACC1 287 C_CALL1 caml_flush - 289 ENVACC2 + 289 ENVACC2 290 C_CALL1 caml_flush 292 RETURN 1 - 294 CONST0 - 295 PUSHENVACC1 - 296 APPLY1 + 294 CONST0 + 295 PUSHENVACC1 + 296 APPLY1 297 C_CALL1 float_of_string 299 RETURN 1 - 301 CONST0 - 302 PUSHENVACC1 - 303 APPLY1 + 301 CONST0 + 302 PUSHENVACC1 + 303 APPLY1 304 C_CALL1 int_of_string 306 RETURN 1 - 308 ENVACC2 + 308 ENVACC2 309 C_CALL1 caml_flush - 311 ENVACC1 - 312 PUSHENVACC3 + 311 ENVACC1 + 312 PUSHENVACC3 313 APPTERM1 2 315 CONSTINT 13 - 317 PUSHENVACC1 + 317 PUSHENVACC1 318 C_CALL2 caml_output_char - 320 ENVACC1 + 320 ENVACC1 321 C_CALL1 caml_flush 323 RETURN 1 - 325 ACC0 - 326 PUSHENVACC1 - 327 PUSHENVACC2 - 328 APPLY2 + 325 ACC0 + 326 PUSHENVACC1 + 327 PUSHENVACC2 + 328 APPLY2 329 CONSTINT 13 - 331 PUSHENVACC1 + 331 PUSHENVACC1 332 C_CALL2 caml_output_char - 334 ENVACC1 + 334 ENVACC1 335 C_CALL1 caml_flush 337 RETURN 1 - 339 ACC0 - 340 PUSHENVACC1 - 341 APPLY1 - 342 PUSHENVACC2 - 343 PUSHENVACC3 + 339 ACC0 + 340 PUSHENVACC1 + 341 APPLY1 + 342 PUSHENVACC2 + 343 PUSHENVACC3 344 APPTERM2 3 - 346 ACC0 - 347 PUSHENVACC1 - 348 APPLY1 - 349 PUSHENVACC2 - 350 PUSHENVACC3 + 346 ACC0 + 347 PUSHENVACC1 + 348 APPLY1 + 349 PUSHENVACC2 + 350 PUSHENVACC3 351 APPTERM2 3 - 353 ACC0 - 354 PUSHENVACC1 - 355 PUSHENVACC2 + 353 ACC0 + 354 PUSHENVACC1 + 355 PUSHENVACC2 356 APPTERM2 3 - 358 ACC0 - 359 PUSHENVACC1 + 358 ACC0 + 359 PUSHENVACC1 360 C_CALL2 caml_output_char 362 RETURN 1 364 CONSTINT 13 - 366 PUSHENVACC1 + 366 PUSHENVACC1 367 C_CALL2 caml_output_char - 369 ENVACC1 + 369 ENVACC1 370 C_CALL1 caml_flush 372 RETURN 1 - 374 ACC0 - 375 PUSHENVACC1 - 376 PUSHENVACC2 - 377 APPLY2 + 374 ACC0 + 375 PUSHENVACC1 + 376 PUSHENVACC2 + 377 APPLY2 378 CONSTINT 13 - 380 PUSHENVACC1 + 380 PUSHENVACC1 381 C_CALL2 caml_output_char 383 RETURN 1 - 385 ACC0 - 386 PUSHENVACC1 - 387 APPLY1 - 388 PUSHENVACC2 - 389 PUSHENVACC3 + 385 ACC0 + 386 PUSHENVACC1 + 387 APPLY1 + 388 PUSHENVACC2 + 389 PUSHENVACC3 390 APPTERM2 3 - 392 ACC0 - 393 PUSHENVACC1 - 394 APPLY1 - 395 PUSHENVACC2 - 396 PUSHENVACC3 + 392 ACC0 + 393 PUSHENVACC1 + 394 APPLY1 + 395 PUSHENVACC2 + 396 PUSHENVACC3 397 APPTERM2 3 - 399 ACC0 - 400 PUSHENVACC1 - 401 PUSHENVACC2 + 399 ACC0 + 400 PUSHENVACC1 + 401 PUSHENVACC2 402 APPTERM2 3 - 404 ACC0 - 405 PUSHENVACC1 + 404 ACC0 + 405 PUSHENVACC1 406 C_CALL2 caml_output_char 408 RETURN 1 - 410 RESTART + 410 RESTART 411 GRAB 3 - 413 CONST0 - 414 PUSHACC3 - 415 LTINT + 413 CONST0 + 414 PUSHACC3 + 415 LTINT 416 BRANCHIF 427 - 418 ACC1 + 418 ACC1 419 C_CALL1 ml_string_length - 421 PUSHACC4 - 422 PUSHACC4 - 423 ADDINT - 424 GTINT + 421 PUSHACC4 + 422 PUSHACC4 + 423 ADDINT + 424 GTINT 425 BRANCHIFNOT 432 427 GETGLOBAL "really_input" - 429 PUSHENVACC1 + 429 PUSHENVACC1 430 APPTERM1 5 - 432 ACC3 - 433 PUSHACC3 - 434 PUSHACC3 - 435 PUSHACC3 - 436 PUSHENVACC2 + 432 ACC3 + 433 PUSHACC3 + 434 PUSHACC3 + 435 PUSHACC3 + 436 PUSHENVACC2 437 APPTERM 4, 8 - 440 RESTART + 440 RESTART 441 GRAB 3 - 443 CONST0 - 444 PUSHACC3 - 445 LTINT + 443 CONST0 + 444 PUSHACC3 + 445 LTINT 446 BRANCHIF 457 - 448 ACC1 + 448 ACC1 449 C_CALL1 ml_string_length - 451 PUSHACC4 - 452 PUSHACC4 - 453 ADDINT - 454 GTINT + 451 PUSHACC4 + 452 PUSHACC4 + 453 ADDINT + 454 GTINT 455 BRANCHIFNOT 462 457 GETGLOBAL "input" - 459 PUSHENVACC1 + 459 PUSHENVACC1 460 APPTERM1 5 - 462 ACC3 - 463 PUSHACC3 - 464 PUSHACC3 - 465 PUSHACC3 + 462 ACC3 + 463 PUSHACC3 + 464 PUSHACC3 + 465 PUSHACC3 466 C_CALL4 caml_input 468 RETURN 4 - 470 ACC0 - 471 PUSHCONST0 + 470 ACC0 + 471 PUSHCONST0 472 PUSHGETGLOBAL <0>(0, <0>(6, 0)) - 474 PUSHENVACC1 + 474 PUSHENVACC1 475 APPTERM3 4 - 477 ACC0 - 478 PUSHCONST0 + 477 ACC0 + 478 PUSHCONST0 479 PUSHGETGLOBAL <0>(0, <0>(7, 0)) - 481 PUSHENVACC1 + 481 PUSHENVACC1 482 APPTERM3 4 - 484 RESTART + 484 RESTART 485 GRAB 2 - 487 ACC1 - 488 PUSHACC1 - 489 PUSHACC4 + 487 ACC1 + 488 PUSHACC1 + 489 PUSHACC4 490 C_CALL3 sys_open 492 C_CALL1 caml_open_descriptor 494 RETURN 3 - 496 ACC0 + 496 ACC0 497 C_CALL1 caml_flush - 499 ACC0 + 499 ACC0 500 C_CALL1 caml_close_channel 502 RETURN 1 - 504 RESTART + 504 RESTART 505 GRAB 1 - 507 CONST0 - 508 PUSHACC2 - 509 PUSHACC2 + 507 CONST0 + 508 PUSHACC2 + 509 PUSHACC2 510 C_CALL3 output_value 512 RETURN 2 - 514 RESTART + 514 RESTART 515 GRAB 3 - 517 CONST0 - 518 PUSHACC3 - 519 LTINT + 517 CONST0 + 518 PUSHACC3 + 519 LTINT 520 BRANCHIF 531 - 522 ACC1 + 522 ACC1 523 C_CALL1 ml_string_length - 525 PUSHACC4 - 526 PUSHACC4 - 527 ADDINT - 528 GTINT + 525 PUSHACC4 + 526 PUSHACC4 + 527 ADDINT + 528 GTINT 529 BRANCHIFNOT 536 531 GETGLOBAL "output" - 533 PUSHENVACC1 + 533 PUSHENVACC1 534 APPTERM1 5 - 536 ACC3 - 537 PUSHACC3 - 538 PUSHACC3 - 539 PUSHACC3 + 536 ACC3 + 537 PUSHACC3 + 538 PUSHACC3 + 539 PUSHACC3 540 C_CALL4 caml_output 542 RETURN 4 - 544 RESTART + 544 RESTART 545 GRAB 1 - 547 ACC1 + 547 ACC1 548 C_CALL1 ml_string_length - 550 PUSHCONST0 - 551 PUSHACC3 - 552 PUSHACC3 + 550 PUSHCONST0 + 551 PUSHACC3 + 552 PUSHACC3 553 C_CALL4 caml_output 555 RETURN 2 - 557 ACC0 + 557 ACC0 558 PUSHCONSTINT 438 560 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(6, 0)))) - 562 PUSHENVACC1 + 562 PUSHENVACC1 563 APPTERM3 4 - 565 ACC0 + 565 ACC0 566 PUSHCONSTINT 438 568 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(7, 0)))) - 570 PUSHENVACC1 + 570 PUSHENVACC1 571 APPTERM3 4 - 573 RESTART + 573 RESTART 574 GRAB 2 - 576 ACC1 - 577 PUSHACC1 - 578 PUSHACC4 + 576 ACC1 + 577 PUSHACC1 + 578 PUSHACC4 579 C_CALL3 sys_open 581 C_CALL1 caml_open_descriptor 583 RETURN 3 - 585 ACC0 + 585 ACC0 586 PUSHGETGLOBAL "%.12g" 588 C_CALL2 format_float 590 RETURN 1 - 592 ACC0 + 592 ACC0 593 PUSHGETGLOBAL "%d" 595 C_CALL2 format_int 597 RETURN 1 599 GETGLOBAL "false" - 601 PUSHACC1 + 601 PUSHACC1 602 C_CALL2 string_equal 604 BRANCHIFNOT 609 - 606 CONST0 + 606 CONST0 607 RETURN 1 609 GETGLOBAL "true" - 611 PUSHACC1 + 611 PUSHACC1 612 C_CALL2 string_equal 614 BRANCHIFNOT 619 - 616 CONST1 + 616 CONST1 617 RETURN 1 619 GETGLOBAL "bool_of_string" - 621 PUSHENVACC1 + 621 PUSHENVACC1 622 APPTERM1 2 - 624 ACC0 + 624 ACC0 625 BRANCHIFNOT 631 627 GETGLOBAL "true" 629 RETURN 1 631 GETGLOBAL "false" 633 RETURN 1 - 635 CONST0 - 636 PUSHACC1 - 637 LTINT + 635 CONST0 + 636 PUSHACC1 + 637 LTINT 638 BRANCHIF 646 640 CONSTINT 255 - 642 PUSHACC1 - 643 GTINT + 642 PUSHACC1 + 643 GTINT 644 BRANCHIFNOT 651 646 GETGLOBAL "char_of_int" - 648 PUSHENVACC1 + 648 PUSHENVACC1 649 APPTERM1 2 - 651 ACC0 + 651 ACC0 652 RETURN 1 - 654 RESTART + 654 RESTART 655 GRAB 1 - 657 ACC0 + 657 ACC0 658 C_CALL1 ml_string_length - 660 PUSHACC2 + 660 PUSHACC2 661 C_CALL1 ml_string_length - 663 PUSHACC0 - 664 PUSHACC2 - 665 ADDINT + 663 PUSHACC0 + 664 PUSHACC2 + 665 ADDINT 666 C_CALL1 create_string - 668 PUSHACC2 - 669 PUSHCONST0 - 670 PUSHACC2 - 671 PUSHCONST0 - 672 PUSHACC7 + 668 PUSHACC2 + 669 PUSHCONST0 + 670 PUSHACC2 + 671 PUSHCONST0 + 672 PUSHACC7 673 C_CALL5 blit_string - 675 ACC1 - 676 PUSHACC3 - 677 PUSHACC2 - 678 PUSHCONST0 + 675 ACC1 + 676 PUSHACC3 + 677 PUSHACC2 + 678 PUSHCONST0 679 PUSHACC 8 681 C_CALL5 blit_string - 683 ACC0 + 683 ACC0 684 RETURN 5 686 CONSTINT -1 - 688 PUSHACC1 - 689 XORINT + 688 PUSHACC1 + 689 XORINT 690 RETURN 1 - 692 CONST0 - 693 PUSHACC1 - 694 GEINT + 692 CONST0 + 693 PUSHACC1 + 694 GEINT 695 BRANCHIFNOT 700 - 697 ACC0 + 697 ACC0 698 RETURN 1 - 700 ACC0 - 701 NEGINT + 700 ACC0 + 701 NEGINT 702 RETURN 1 - 704 RESTART + 704 RESTART 705 GRAB 1 - 707 ACC1 - 708 PUSHACC1 + 707 ACC1 + 708 PUSHACC1 709 C_CALL2 greaterequal 711 BRANCHIFNOT 716 - 713 ACC0 + 713 ACC0 714 RETURN 2 - 716 ACC1 + 716 ACC1 717 RETURN 2 - 719 RESTART + 719 RESTART 720 GRAB 1 - 722 ACC1 - 723 PUSHACC1 + 722 ACC1 + 723 PUSHACC1 724 C_CALL2 lessequal 726 BRANCHIFNOT 731 - 728 ACC0 + 728 ACC0 729 RETURN 2 - 731 ACC1 + 731 ACC1 732 RETURN 2 - 734 ACC0 + 734 ACC0 735 PUSHGETGLOBAL Invalid_argument 737 MAKEBLOCK2 0 - 739 RAISE - 740 ACC0 + 739 RAISE + 740 ACC0 741 PUSHGETGLOBAL Failure 743 MAKEBLOCK2 0 - 745 RAISE + 745 RAISE 746 CLOSURE 0, 740 - 749 PUSH + 749 PUSH 750 CLOSURE 0, 734 753 PUSHGETGLOBAL "Pervasives.Exit" 755 MAKEBLOCK1 0 757 PUSHGETGLOBAL "Pervasives.Assert_failure" 759 MAKEBLOCK1 0 - 761 PUSH + 761 PUSH 762 CLOSURE 0, 720 - 765 PUSH + 765 PUSH 766 CLOSURE 0, 705 - 769 PUSH + 769 PUSH 770 CLOSURE 0, 692 - 773 PUSH + 773 PUSH 774 CLOSURE 0, 686 - 777 PUSHCONST0 + 777 PUSHCONST0 778 PUSHCONSTINT 31 - 780 PUSHCONST1 - 781 LSLINT - 782 EQ + 780 PUSHCONST1 + 781 LSLINT + 782 EQ 783 BRANCHIFNOT 789 785 CONSTINT 30 787 BRANCH 791 789 CONSTINT 62 - 791 PUSHCONST1 - 792 LSLINT - 793 PUSHACC0 + 791 PUSHCONST1 + 792 LSLINT + 793 PUSHACC0 794 OFFSETINT -1 - 796 PUSH + 796 PUSH 797 CLOSURE 0, 655 800 PUSHACC 9 802 CLOSURE 1, 635 - 805 PUSH + 805 PUSH 806 CLOSURE 0, 624 809 PUSHACC 11 811 CLOSURE 1, 599 - 814 PUSH + 814 PUSH 815 CLOSURE 0, 592 - 818 PUSH + 818 PUSH 819 CLOSURE 0, 585 - 822 PUSH + 822 PUSH 823 CLOSUREREC 0, 12 - 827 CONST0 + 827 CONST0 828 C_CALL1 caml_open_descriptor - 830 PUSHCONST1 + 830 PUSHCONST1 831 C_CALL1 caml_open_descriptor - 833 PUSHCONST2 + 833 PUSHCONST2 834 C_CALL1 caml_open_descriptor - 836 PUSH + 836 PUSH 837 CLOSURE 0, 574 - 840 PUSHACC0 + 840 PUSHACC0 841 CLOSURE 1, 565 - 844 PUSHACC1 + 844 PUSHACC1 845 CLOSURE 1, 557 - 848 PUSH + 848 PUSH 849 CLOSURE 0, 545 852 PUSHACC 22 854 CLOSURE 1, 515 - 857 PUSH + 857 PUSH 858 CLOSURE 0, 505 - 861 PUSH + 861 PUSH 862 CLOSURE 0, 496 - 865 PUSH + 865 PUSH 866 CLOSURE 0, 485 - 869 PUSHACC0 + 869 PUSHACC0 870 CLOSURE 1, 477 - 873 PUSHACC1 + 873 PUSHACC1 874 CLOSURE 1, 470 877 PUSHACC 28 879 CLOSURE 1, 441 - 882 PUSH + 882 PUSH 883 CLOSUREREC 0, 32 - 887 ACC0 + 887 ACC0 888 PUSHACC 31 890 CLOSURE 2, 411 893 PUSHACC 22 @@ -647,67 +647,67 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 985 PUSHACC 28 987 PUSHACC 30 989 CLOSURE 3, 308 - 992 PUSHACC0 + 992 PUSHACC0 993 CLOSURE 1, 301 - 996 PUSHACC1 + 996 PUSHACC1 997 CLOSURE 1, 294 1000 PUSHACC 29 1002 PUSHACC 31 1004 CLOSURE 2, 286 1007 MAKEBLOCK1 0 - 1009 PUSHACC0 + 1009 PUSHACC0 1010 CLOSURE 1, 275 - 1013 PUSHACC1 + 1013 PUSHACC1 1014 CLOSURE 1, 263 - 1017 PUSHACC0 + 1017 PUSHACC0 1018 CLOSURE 1, 255 - 1021 PUSHACC1 + 1021 PUSHACC1 1022 PUSHACC 22 - 1024 PUSHACC4 - 1025 PUSHACC3 - 1026 PUSH + 1024 PUSHACC4 + 1025 PUSHACC3 + 1026 PUSH 1027 CLOSURE 0, 247 - 1030 PUSH + 1030 PUSH 1031 CLOSURE 0, 241 - 1034 PUSH + 1034 PUSH 1035 CLOSURE 0, 236 - 1038 PUSH + 1038 PUSH 1039 CLOSURE 0, 231 - 1042 PUSH + 1042 PUSH 1043 CLOSURE 0, 223 - 1046 PUSH + 1046 PUSH 1047 CLOSURE 0, 217 - 1050 PUSH + 1050 PUSH 1051 CLOSURE 0, 212 - 1054 PUSH + 1054 PUSH 1055 CLOSURE 0, 207 1058 PUSHACC 32 1060 PUSHACC 35 1062 PUSHACC 33 - 1064 PUSH + 1064 PUSH 1065 CLOSURE 0, 202 1068 PUSHACC 41 1070 PUSHACC 40 1072 PUSHACC 42 - 1074 PUSH + 1074 PUSH 1075 CLOSURE 0, 194 1078 PUSHACC 46 - 1080 PUSH + 1080 PUSH 1081 CLOSURE 0, 188 - 1084 PUSH + 1084 PUSH 1085 CLOSURE 0, 183 - 1088 PUSH + 1088 PUSH 1089 CLOSURE 0, 175 1092 PUSHACC 51 - 1094 PUSH + 1094 PUSH 1095 CLOSURE 0, 166 - 1098 PUSH + 1098 PUSH 1099 CLOSURE 0, 157 1102 PUSHACC 55 1104 PUSHACC 57 - 1106 PUSH + 1106 PUSH 1107 CLOSURE 0, 148 - 1110 PUSH + 1110 PUSH 1111 CLOSURE 0, 142 1114 PUSHACC 63 1116 PUSHACC 62 @@ -751,38 +751,38 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 1193 POP 53 1195 SETGLOBAL Pervasives 1197 BRANCH 2177 - 1199 RESTART + 1199 RESTART 1200 GRAB 1 - 1202 ACC1 + 1202 ACC1 1203 BRANCHIFNOT 1213 - 1205 ACC1 - 1206 GETFIELD1 - 1207 PUSHACC1 + 1205 ACC1 + 1206 GETFIELD1 + 1207 PUSHACC1 1208 OFFSETINT 1 - 1210 PUSHOFFSETCLOSURE0 + 1210 PUSHOFFSETCLOSURE0 1211 APPTERM2 4 - 1213 ACC0 + 1213 ACC0 1214 RETURN 2 - 1216 RESTART + 1216 RESTART 1217 GRAB 1 - 1219 ACC0 + 1219 ACC0 1220 BRANCHIFNOT 1251 - 1222 CONST0 - 1223 PUSHACC2 - 1224 EQ + 1222 CONST0 + 1223 PUSHACC2 + 1224 EQ 1225 BRANCHIFNOT 1231 - 1227 ACC0 - 1228 GETFIELD0 + 1227 ACC0 + 1228 GETFIELD0 1229 RETURN 2 - 1231 CONST0 - 1232 PUSHACC2 - 1233 GTINT + 1231 CONST0 + 1232 PUSHACC2 + 1233 GTINT 1234 BRANCHIFNOT 1244 - 1236 ACC1 + 1236 ACC1 1237 OFFSETINT -1 - 1239 PUSHACC1 - 1240 GETFIELD1 - 1241 PUSHOFFSETCLOSURE0 + 1239 PUSHACC1 + 1240 GETFIELD1 + 1241 PUSHOFFSETCLOSURE0 1242 APPTERM2 4 1244 GETGLOBAL "List.nth" 1246 PUSHGETGLOBALFIELD Pervasives, 2 @@ -790,696 +790,696 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 1251 GETGLOBAL "nth" 1253 PUSHGETGLOBALFIELD Pervasives, 3 1256 APPTERM1 3 - 1258 RESTART + 1258 RESTART 1259 GRAB 1 - 1261 ACC0 + 1261 ACC0 1262 BRANCHIFNOT 1274 - 1264 ACC1 - 1265 PUSHACC1 - 1266 GETFIELD0 + 1264 ACC1 + 1265 PUSHACC1 + 1266 GETFIELD0 1267 MAKEBLOCK2 0 - 1269 PUSHACC1 - 1270 GETFIELD1 - 1271 PUSHOFFSETCLOSURE0 + 1269 PUSHACC1 + 1270 GETFIELD1 + 1271 PUSHOFFSETCLOSURE0 1272 APPTERM2 4 - 1274 ACC1 + 1274 ACC1 1275 RETURN 2 - 1277 ACC0 + 1277 ACC0 1278 BRANCHIFNOT 1291 - 1280 ACC0 - 1281 GETFIELD1 - 1282 PUSHOFFSETCLOSURE0 - 1283 APPLY1 - 1284 PUSHACC1 - 1285 GETFIELD0 + 1280 ACC0 + 1281 GETFIELD1 + 1282 PUSHOFFSETCLOSURE0 + 1283 APPLY1 + 1284 PUSHACC1 + 1285 GETFIELD0 1286 PUSHGETGLOBALFIELD Pervasives, 16 1289 APPTERM2 3 1291 RETURN 1 - 1293 RESTART + 1293 RESTART 1294 GRAB 1 - 1296 ACC1 + 1296 ACC1 1297 BRANCHIFNOT 1313 - 1299 ACC1 - 1300 GETFIELD0 - 1301 PUSHACC1 - 1302 APPLY1 - 1303 PUSHACC2 - 1304 GETFIELD1 - 1305 PUSHACC2 - 1306 PUSHOFFSETCLOSURE0 - 1307 APPLY2 - 1308 PUSHACC1 + 1299 ACC1 + 1300 GETFIELD0 + 1301 PUSHACC1 + 1302 APPLY1 + 1303 PUSHACC2 + 1304 GETFIELD1 + 1305 PUSHACC2 + 1306 PUSHOFFSETCLOSURE0 + 1307 APPLY2 + 1308 PUSHACC1 1309 MAKEBLOCK2 0 1311 POP 1 1313 RETURN 2 - 1315 RESTART + 1315 RESTART 1316 GRAB 1 - 1318 ACC1 + 1318 ACC1 1319 BRANCHIFNOT 1331 - 1321 ACC1 - 1322 GETFIELD0 - 1323 PUSHACC1 - 1324 APPLY1 - 1325 ACC1 - 1326 GETFIELD1 - 1327 PUSHACC1 - 1328 PUSHOFFSETCLOSURE0 + 1321 ACC1 + 1322 GETFIELD0 + 1323 PUSHACC1 + 1324 APPLY1 + 1325 ACC1 + 1326 GETFIELD1 + 1327 PUSHACC1 + 1328 PUSHOFFSETCLOSURE0 1329 APPTERM2 4 1331 RETURN 2 - 1333 RESTART + 1333 RESTART 1334 GRAB 2 - 1336 ACC2 + 1336 ACC2 1337 BRANCHIFNOT 1350 - 1339 ACC2 - 1340 GETFIELD1 - 1341 PUSHACC3 - 1342 GETFIELD0 - 1343 PUSHACC3 - 1344 PUSHACC3 - 1345 APPLY2 - 1346 PUSHACC2 - 1347 PUSHOFFSETCLOSURE0 + 1339 ACC2 + 1340 GETFIELD1 + 1341 PUSHACC3 + 1342 GETFIELD0 + 1343 PUSHACC3 + 1344 PUSHACC3 + 1345 APPLY2 + 1346 PUSHACC2 + 1347 PUSHOFFSETCLOSURE0 1348 APPTERM3 6 - 1350 ACC1 + 1350 ACC1 1351 RETURN 3 - 1353 RESTART + 1353 RESTART 1354 GRAB 2 - 1356 ACC1 + 1356 ACC1 1357 BRANCHIFNOT 1370 - 1359 ACC2 - 1360 PUSHACC2 - 1361 GETFIELD1 - 1362 PUSHACC2 - 1363 PUSHOFFSETCLOSURE0 - 1364 APPLY3 - 1365 PUSHACC2 - 1366 GETFIELD0 - 1367 PUSHACC2 + 1359 ACC2 + 1360 PUSHACC2 + 1361 GETFIELD1 + 1362 PUSHACC2 + 1363 PUSHOFFSETCLOSURE0 + 1364 APPLY3 + 1365 PUSHACC2 + 1366 GETFIELD0 + 1367 PUSHACC2 1368 APPTERM2 5 - 1370 ACC2 + 1370 ACC2 1371 RETURN 3 - 1373 RESTART + 1373 RESTART 1374 GRAB 2 - 1376 ACC1 + 1376 ACC1 1377 BRANCHIFNOT 1400 - 1379 ACC2 + 1379 ACC2 1380 BRANCHIFNOT 1407 - 1382 ACC2 - 1383 GETFIELD0 - 1384 PUSHACC2 - 1385 GETFIELD0 - 1386 PUSHACC2 - 1387 APPLY2 - 1388 PUSHACC3 - 1389 GETFIELD1 - 1390 PUSHACC3 - 1391 GETFIELD1 - 1392 PUSHACC3 - 1393 PUSHOFFSETCLOSURE0 - 1394 APPLY3 - 1395 PUSHACC1 + 1382 ACC2 + 1383 GETFIELD0 + 1384 PUSHACC2 + 1385 GETFIELD0 + 1386 PUSHACC2 + 1387 APPLY2 + 1388 PUSHACC3 + 1389 GETFIELD1 + 1390 PUSHACC3 + 1391 GETFIELD1 + 1392 PUSHACC3 + 1393 PUSHOFFSETCLOSURE0 + 1394 APPLY3 + 1395 PUSHACC1 1396 MAKEBLOCK2 0 1398 RETURN 4 - 1400 ACC2 + 1400 ACC2 1401 BRANCHIFNOT 1405 1403 BRANCH 1407 1405 RETURN 3 1407 GETGLOBAL "List.map2" 1409 PUSHGETGLOBALFIELD Pervasives, 2 1412 APPTERM1 4 - 1414 RESTART + 1414 RESTART 1415 GRAB 2 - 1417 ACC1 + 1417 ACC1 1418 BRANCHIFNOT 1437 - 1420 ACC2 + 1420 ACC2 1421 BRANCHIFNOT 1444 - 1423 ACC2 - 1424 GETFIELD0 - 1425 PUSHACC2 - 1426 GETFIELD0 - 1427 PUSHACC2 - 1428 APPLY2 - 1429 ACC2 - 1430 GETFIELD1 - 1431 PUSHACC2 - 1432 GETFIELD1 - 1433 PUSHACC2 - 1434 PUSHOFFSETCLOSURE0 + 1423 ACC2 + 1424 GETFIELD0 + 1425 PUSHACC2 + 1426 GETFIELD0 + 1427 PUSHACC2 + 1428 APPLY2 + 1429 ACC2 + 1430 GETFIELD1 + 1431 PUSHACC2 + 1432 GETFIELD1 + 1433 PUSHACC2 + 1434 PUSHOFFSETCLOSURE0 1435 APPTERM3 6 - 1437 ACC2 + 1437 ACC2 1438 BRANCHIFNOT 1442 1440 BRANCH 1444 1442 RETURN 3 1444 GETGLOBAL "List.iter2" 1446 PUSHGETGLOBALFIELD Pervasives, 2 1449 APPTERM1 4 - 1451 RESTART + 1451 RESTART 1452 GRAB 3 - 1454 ACC2 + 1454 ACC2 1455 BRANCHIFNOT 1476 - 1457 ACC3 + 1457 ACC3 1458 BRANCHIFNOT 1482 - 1460 ACC3 - 1461 GETFIELD1 - 1462 PUSHACC3 - 1463 GETFIELD1 - 1464 PUSHACC5 - 1465 GETFIELD0 - 1466 PUSHACC5 - 1467 GETFIELD0 - 1468 PUSHACC5 - 1469 PUSHACC5 - 1470 APPLY3 - 1471 PUSHACC3 - 1472 PUSHOFFSETCLOSURE0 + 1460 ACC3 + 1461 GETFIELD1 + 1462 PUSHACC3 + 1463 GETFIELD1 + 1464 PUSHACC5 + 1465 GETFIELD0 + 1466 PUSHACC5 + 1467 GETFIELD0 + 1468 PUSHACC5 + 1469 PUSHACC5 + 1470 APPLY3 + 1471 PUSHACC3 + 1472 PUSHOFFSETCLOSURE0 1473 APPTERM 4, 8 - 1476 ACC3 + 1476 ACC3 1477 BRANCHIF 1482 - 1479 ACC1 + 1479 ACC1 1480 RETURN 4 1482 GETGLOBAL "List.fold_left2" 1484 PUSHGETGLOBALFIELD Pervasives, 2 1487 APPTERM1 5 - 1489 RESTART + 1489 RESTART 1490 GRAB 3 - 1492 ACC1 + 1492 ACC1 1493 BRANCHIFNOT 1516 - 1495 ACC2 + 1495 ACC2 1496 BRANCHIFNOT 1522 1498 PUSH_RETADDR 1509 - 1500 ACC6 - 1501 PUSHACC6 - 1502 GETFIELD1 - 1503 PUSHACC6 - 1504 GETFIELD1 - 1505 PUSHACC6 - 1506 PUSHOFFSETCLOSURE0 + 1500 ACC6 + 1501 PUSHACC6 + 1502 GETFIELD1 + 1503 PUSHACC6 + 1504 GETFIELD1 + 1505 PUSHACC6 + 1506 PUSHOFFSETCLOSURE0 1507 APPLY 4 - 1509 PUSHACC3 - 1510 GETFIELD0 - 1511 PUSHACC3 - 1512 GETFIELD0 - 1513 PUSHACC3 + 1509 PUSHACC3 + 1510 GETFIELD0 + 1511 PUSHACC3 + 1512 GETFIELD0 + 1513 PUSHACC3 1514 APPTERM3 7 - 1516 ACC2 + 1516 ACC2 1517 BRANCHIF 1522 - 1519 ACC3 + 1519 ACC3 1520 RETURN 4 1522 GETGLOBAL "List.fold_right2" 1524 PUSHGETGLOBALFIELD Pervasives, 2 1527 APPTERM1 5 - 1529 RESTART + 1529 RESTART 1530 GRAB 1 - 1532 ACC1 + 1532 ACC1 1533 BRANCHIFNOT 1549 - 1535 ACC1 - 1536 GETFIELD0 - 1537 PUSHACC1 - 1538 APPLY1 + 1535 ACC1 + 1536 GETFIELD0 + 1537 PUSHACC1 + 1538 APPLY1 1539 BRANCHIFNOT 1547 - 1541 ACC1 - 1542 GETFIELD1 - 1543 PUSHACC1 - 1544 PUSHOFFSETCLOSURE0 + 1541 ACC1 + 1542 GETFIELD1 + 1543 PUSHACC1 + 1544 PUSHOFFSETCLOSURE0 1545 APPTERM2 4 1547 RETURN 2 - 1549 CONST1 + 1549 CONST1 1550 RETURN 2 - 1552 RESTART + 1552 RESTART 1553 GRAB 1 - 1555 ACC1 + 1555 ACC1 1556 BRANCHIFNOT 1570 - 1558 ACC1 - 1559 GETFIELD0 - 1560 PUSHACC1 - 1561 APPLY1 + 1558 ACC1 + 1559 GETFIELD0 + 1560 PUSHACC1 + 1561 APPLY1 1562 BRANCHIF 1570 - 1564 ACC1 - 1565 GETFIELD1 - 1566 PUSHACC1 - 1567 PUSHOFFSETCLOSURE0 + 1564 ACC1 + 1565 GETFIELD1 + 1566 PUSHACC1 + 1567 PUSHOFFSETCLOSURE0 1568 APPTERM2 4 1570 RETURN 2 - 1572 RESTART + 1572 RESTART 1573 GRAB 2 - 1575 ACC1 + 1575 ACC1 1576 BRANCHIFNOT 1599 - 1578 ACC2 + 1578 ACC2 1579 BRANCHIFNOT 1605 - 1581 ACC2 - 1582 GETFIELD0 - 1583 PUSHACC2 - 1584 GETFIELD0 - 1585 PUSHACC2 - 1586 APPLY2 + 1581 ACC2 + 1582 GETFIELD0 + 1583 PUSHACC2 + 1584 GETFIELD0 + 1585 PUSHACC2 + 1586 APPLY2 1587 BRANCHIFNOT 1597 - 1589 ACC2 - 1590 GETFIELD1 - 1591 PUSHACC2 - 1592 GETFIELD1 - 1593 PUSHACC2 - 1594 PUSHOFFSETCLOSURE0 + 1589 ACC2 + 1590 GETFIELD1 + 1591 PUSHACC2 + 1592 GETFIELD1 + 1593 PUSHACC2 + 1594 PUSHOFFSETCLOSURE0 1595 APPTERM3 6 1597 RETURN 3 - 1599 ACC2 + 1599 ACC2 1600 BRANCHIF 1605 - 1602 CONST1 + 1602 CONST1 1603 RETURN 3 1605 GETGLOBAL "List.for_all2" 1607 PUSHGETGLOBALFIELD Pervasives, 2 1610 APPTERM1 4 - 1612 RESTART + 1612 RESTART 1613 GRAB 2 - 1615 ACC1 + 1615 ACC1 1616 BRANCHIFNOT 1639 - 1618 ACC2 + 1618 ACC2 1619 BRANCHIFNOT 1646 - 1621 ACC2 - 1622 GETFIELD0 - 1623 PUSHACC2 - 1624 GETFIELD0 - 1625 PUSHACC2 - 1626 APPLY2 + 1621 ACC2 + 1622 GETFIELD0 + 1623 PUSHACC2 + 1624 GETFIELD0 + 1625 PUSHACC2 + 1626 APPLY2 1627 BRANCHIF 1637 - 1629 ACC2 - 1630 GETFIELD1 - 1631 PUSHACC2 - 1632 GETFIELD1 - 1633 PUSHACC2 - 1634 PUSHOFFSETCLOSURE0 + 1629 ACC2 + 1630 GETFIELD1 + 1631 PUSHACC2 + 1632 GETFIELD1 + 1633 PUSHACC2 + 1634 PUSHOFFSETCLOSURE0 1635 APPTERM3 6 1637 RETURN 3 - 1639 ACC2 + 1639 ACC2 1640 BRANCHIFNOT 1644 1642 BRANCH 1646 1644 RETURN 3 1646 GETGLOBAL "List.exists2" 1648 PUSHGETGLOBALFIELD Pervasives, 2 1651 APPTERM1 4 - 1653 RESTART + 1653 RESTART 1654 GRAB 1 - 1656 ACC1 + 1656 ACC1 1657 BRANCHIFNOT 1672 - 1659 ACC0 - 1660 PUSHACC2 - 1661 GETFIELD0 + 1659 ACC0 + 1660 PUSHACC2 + 1661 GETFIELD0 1662 C_CALL2 equal 1664 BRANCHIF 1672 - 1666 ACC1 - 1667 GETFIELD1 - 1668 PUSHACC1 - 1669 PUSHOFFSETCLOSURE0 + 1666 ACC1 + 1667 GETFIELD1 + 1668 PUSHACC1 + 1669 PUSHOFFSETCLOSURE0 1670 APPTERM2 4 1672 RETURN 2 - 1674 RESTART + 1674 RESTART 1675 GRAB 1 - 1677 ACC1 + 1677 ACC1 1678 BRANCHIFNOT 1692 - 1680 ACC0 - 1681 PUSHACC2 - 1682 GETFIELD0 - 1683 EQ + 1680 ACC0 + 1681 PUSHACC2 + 1682 GETFIELD0 + 1683 EQ 1684 BRANCHIF 1692 - 1686 ACC1 - 1687 GETFIELD1 - 1688 PUSHACC1 - 1689 PUSHOFFSETCLOSURE0 + 1686 ACC1 + 1687 GETFIELD1 + 1688 PUSHACC1 + 1689 PUSHOFFSETCLOSURE0 1690 APPTERM2 4 1692 RETURN 2 - 1694 RESTART + 1694 RESTART 1695 GRAB 1 - 1697 ACC1 + 1697 ACC1 1698 BRANCHIFNOT 1719 - 1700 ACC1 - 1701 GETFIELD0 - 1702 PUSHACC1 - 1703 PUSHACC1 - 1704 GETFIELD0 + 1700 ACC1 + 1701 GETFIELD0 + 1702 PUSHACC1 + 1703 PUSHACC1 + 1704 GETFIELD0 1705 C_CALL2 equal 1707 BRANCHIFNOT 1713 - 1709 ACC0 - 1710 GETFIELD1 + 1709 ACC0 + 1710 GETFIELD1 1711 RETURN 3 - 1713 ACC2 - 1714 GETFIELD1 - 1715 PUSHACC2 - 1716 PUSHOFFSETCLOSURE0 + 1713 ACC2 + 1714 GETFIELD1 + 1715 PUSHACC2 + 1716 PUSHOFFSETCLOSURE0 1717 APPTERM2 5 1719 GETGLOBAL Not_found 1721 MAKEBLOCK1 0 - 1723 RAISE - 1724 RESTART + 1723 RAISE + 1724 RESTART 1725 GRAB 1 - 1727 ACC1 + 1727 ACC1 1728 BRANCHIFNOT 1748 - 1730 ACC1 - 1731 GETFIELD0 - 1732 PUSHACC1 - 1733 PUSHACC1 - 1734 GETFIELD0 - 1735 EQ + 1730 ACC1 + 1731 GETFIELD0 + 1732 PUSHACC1 + 1733 PUSHACC1 + 1734 GETFIELD0 + 1735 EQ 1736 BRANCHIFNOT 1742 - 1738 ACC0 - 1739 GETFIELD1 + 1738 ACC0 + 1739 GETFIELD1 1740 RETURN 3 - 1742 ACC2 - 1743 GETFIELD1 - 1744 PUSHACC2 - 1745 PUSHOFFSETCLOSURE0 + 1742 ACC2 + 1743 GETFIELD1 + 1744 PUSHACC2 + 1745 PUSHOFFSETCLOSURE0 1746 APPTERM2 5 1748 GETGLOBAL Not_found 1750 MAKEBLOCK1 0 - 1752 RAISE - 1753 RESTART + 1752 RAISE + 1753 RESTART 1754 GRAB 1 - 1756 ACC1 + 1756 ACC1 1757 BRANCHIFNOT 1773 - 1759 ACC0 - 1760 PUSHACC2 - 1761 GETFIELD0 - 1762 GETFIELD0 + 1759 ACC0 + 1760 PUSHACC2 + 1761 GETFIELD0 + 1762 GETFIELD0 1763 C_CALL2 equal 1765 BRANCHIF 1773 - 1767 ACC1 - 1768 GETFIELD1 - 1769 PUSHACC1 - 1770 PUSHOFFSETCLOSURE0 + 1767 ACC1 + 1768 GETFIELD1 + 1769 PUSHACC1 + 1770 PUSHOFFSETCLOSURE0 1771 APPTERM2 4 1773 RETURN 2 - 1775 RESTART + 1775 RESTART 1776 GRAB 1 - 1778 ACC1 + 1778 ACC1 1779 BRANCHIFNOT 1794 - 1781 ACC0 - 1782 PUSHACC2 - 1783 GETFIELD0 - 1784 GETFIELD0 - 1785 EQ + 1781 ACC0 + 1782 PUSHACC2 + 1783 GETFIELD0 + 1784 GETFIELD0 + 1785 EQ 1786 BRANCHIF 1794 - 1788 ACC1 - 1789 GETFIELD1 - 1790 PUSHACC1 - 1791 PUSHOFFSETCLOSURE0 + 1788 ACC1 + 1789 GETFIELD1 + 1790 PUSHACC1 + 1791 PUSHOFFSETCLOSURE0 1792 APPTERM2 4 1794 RETURN 2 - 1796 RESTART + 1796 RESTART 1797 GRAB 1 - 1799 ACC1 + 1799 ACC1 1800 BRANCHIFNOT 1825 - 1802 ACC1 - 1803 GETFIELD0 - 1804 PUSHACC2 - 1805 GETFIELD1 - 1806 PUSHACC2 - 1807 PUSHACC2 - 1808 GETFIELD0 + 1802 ACC1 + 1803 GETFIELD0 + 1804 PUSHACC2 + 1805 GETFIELD1 + 1806 PUSHACC2 + 1807 PUSHACC2 + 1808 GETFIELD0 1809 C_CALL2 equal 1811 BRANCHIFNOT 1816 - 1813 ACC0 + 1813 ACC0 1814 RETURN 4 - 1816 ACC0 - 1817 PUSHACC3 - 1818 PUSHOFFSETCLOSURE0 - 1819 APPLY2 - 1820 PUSHACC2 + 1816 ACC0 + 1817 PUSHACC3 + 1818 PUSHOFFSETCLOSURE0 + 1819 APPLY2 + 1820 PUSHACC2 1821 MAKEBLOCK2 0 1823 POP 2 1825 RETURN 2 - 1827 RESTART + 1827 RESTART 1828 GRAB 1 - 1830 ACC1 + 1830 ACC1 1831 BRANCHIFNOT 1855 - 1833 ACC1 - 1834 GETFIELD0 - 1835 PUSHACC2 - 1836 GETFIELD1 - 1837 PUSHACC2 - 1838 PUSHACC2 - 1839 GETFIELD0 - 1840 EQ + 1833 ACC1 + 1834 GETFIELD0 + 1835 PUSHACC2 + 1836 GETFIELD1 + 1837 PUSHACC2 + 1838 PUSHACC2 + 1839 GETFIELD0 + 1840 EQ 1841 BRANCHIFNOT 1846 - 1843 ACC0 + 1843 ACC0 1844 RETURN 4 - 1846 ACC0 - 1847 PUSHACC3 - 1848 PUSHOFFSETCLOSURE0 - 1849 APPLY2 - 1850 PUSHACC2 + 1846 ACC0 + 1847 PUSHACC3 + 1848 PUSHOFFSETCLOSURE0 + 1849 APPLY2 + 1850 PUSHACC2 1851 MAKEBLOCK2 0 1853 POP 2 1855 RETURN 2 - 1857 RESTART + 1857 RESTART 1858 GRAB 1 - 1860 ACC1 + 1860 ACC1 1861 BRANCHIFNOT 1879 - 1863 ACC1 - 1864 GETFIELD0 - 1865 PUSHACC0 - 1866 PUSHACC2 - 1867 APPLY1 + 1863 ACC1 + 1864 GETFIELD0 + 1865 PUSHACC0 + 1866 PUSHACC2 + 1867 APPLY1 1868 BRANCHIFNOT 1873 - 1870 ACC0 + 1870 ACC0 1871 RETURN 3 - 1873 ACC2 - 1874 GETFIELD1 - 1875 PUSHACC2 - 1876 PUSHOFFSETCLOSURE0 + 1873 ACC2 + 1874 GETFIELD1 + 1875 PUSHACC2 + 1876 PUSHOFFSETCLOSURE0 1877 APPTERM2 5 1879 GETGLOBAL Not_found 1881 MAKEBLOCK1 0 - 1883 RAISE - 1884 RESTART + 1883 RAISE + 1884 RESTART 1885 GRAB 2 - 1887 ACC2 + 1887 ACC2 1888 BRANCHIFNOT 1917 - 1890 ACC2 - 1891 GETFIELD0 - 1892 PUSHACC3 - 1893 GETFIELD1 - 1894 PUSHACC1 - 1895 PUSHENVACC2 - 1896 APPLY1 + 1890 ACC2 + 1891 GETFIELD0 + 1892 PUSHACC3 + 1893 GETFIELD1 + 1894 PUSHACC1 + 1895 PUSHENVACC2 + 1896 APPLY1 1897 BRANCHIFNOT 1908 - 1899 ACC0 - 1900 PUSHACC4 - 1901 PUSHACC4 - 1902 PUSHACC4 + 1899 ACC0 + 1900 PUSHACC4 + 1901 PUSHACC4 + 1902 PUSHACC4 1903 MAKEBLOCK2 0 - 1905 PUSHOFFSETCLOSURE0 + 1905 PUSHOFFSETCLOSURE0 1906 APPTERM3 8 - 1908 ACC0 - 1909 PUSHACC4 - 1910 PUSHACC3 + 1908 ACC0 + 1909 PUSHACC4 + 1910 PUSHACC3 1911 MAKEBLOCK2 0 - 1913 PUSHACC4 - 1914 PUSHOFFSETCLOSURE0 + 1913 PUSHACC4 + 1914 PUSHOFFSETCLOSURE0 1915 APPTERM3 8 - 1917 ACC1 - 1918 PUSHENVACC1 - 1919 APPLY1 - 1920 PUSHACC1 - 1921 PUSHENVACC1 - 1922 APPLY1 + 1917 ACC1 + 1918 PUSHENVACC1 + 1919 APPLY1 + 1920 PUSHACC1 + 1921 PUSHENVACC1 + 1922 APPLY1 1923 MAKEBLOCK2 0 1925 RETURN 3 - 1927 RESTART + 1927 RESTART 1928 GRAB 1 - 1930 ACC0 - 1931 PUSHENVACC1 + 1930 ACC0 + 1931 PUSHENVACC1 1932 CLOSUREREC 2, 1885 - 1936 ACC2 - 1937 PUSHCONST0 - 1938 PUSHCONST0 - 1939 PUSHACC3 + 1936 ACC2 + 1937 PUSHCONST0 + 1938 PUSHCONST0 + 1939 PUSHACC3 1940 APPTERM3 6 - 1942 ACC0 + 1942 ACC0 1943 BRANCHIFNOT 1967 - 1945 ACC0 - 1946 GETFIELD0 - 1947 PUSHACC1 - 1948 GETFIELD1 - 1949 PUSHOFFSETCLOSURE0 - 1950 APPLY1 - 1951 PUSHACC0 - 1952 GETFIELD1 - 1953 PUSHACC2 - 1954 GETFIELD1 + 1945 ACC0 + 1946 GETFIELD0 + 1947 PUSHACC1 + 1948 GETFIELD1 + 1949 PUSHOFFSETCLOSURE0 + 1950 APPLY1 + 1951 PUSHACC0 + 1952 GETFIELD1 + 1953 PUSHACC2 + 1954 GETFIELD1 1955 MAKEBLOCK2 0 - 1957 PUSHACC1 - 1958 GETFIELD0 - 1959 PUSHACC3 - 1960 GETFIELD0 + 1957 PUSHACC1 + 1958 GETFIELD0 + 1959 PUSHACC3 + 1960 GETFIELD0 1961 MAKEBLOCK2 0 1963 MAKEBLOCK2 0 1965 RETURN 3 1967 GETGLOBAL <0>(0, 0) 1969 RETURN 1 - 1971 RESTART + 1971 RESTART 1972 GRAB 1 - 1974 ACC0 + 1974 ACC0 1975 BRANCHIFNOT 1996 - 1977 ACC1 + 1977 ACC1 1978 BRANCHIFNOT 2003 - 1980 ACC1 - 1981 GETFIELD1 - 1982 PUSHACC1 - 1983 GETFIELD1 - 1984 PUSHOFFSETCLOSURE0 - 1985 APPLY2 - 1986 PUSHACC2 - 1987 GETFIELD0 - 1988 PUSHACC2 - 1989 GETFIELD0 + 1980 ACC1 + 1981 GETFIELD1 + 1982 PUSHACC1 + 1983 GETFIELD1 + 1984 PUSHOFFSETCLOSURE0 + 1985 APPLY2 + 1986 PUSHACC2 + 1987 GETFIELD0 + 1988 PUSHACC2 + 1989 GETFIELD0 1990 MAKEBLOCK2 0 1992 MAKEBLOCK2 0 1994 RETURN 2 - 1996 ACC1 + 1996 ACC1 1997 BRANCHIFNOT 2001 1999 BRANCH 2003 2001 RETURN 2 2003 GETGLOBAL "List.combine" 2005 PUSHGETGLOBALFIELD Pervasives, 2 2008 APPTERM1 3 - 2010 RESTART + 2010 RESTART 2011 GRAB 1 - 2013 ACC1 + 2013 ACC1 2014 BRANCHIFNOT 2038 - 2016 ACC1 - 2017 GETFIELD0 - 2018 PUSHACC2 - 2019 GETFIELD1 - 2020 PUSHACC1 - 2021 PUSHENVACC2 - 2022 APPLY1 + 2016 ACC1 + 2017 GETFIELD0 + 2018 PUSHACC2 + 2019 GETFIELD1 + 2020 PUSHACC1 + 2021 PUSHENVACC2 + 2022 APPLY1 2023 BRANCHIFNOT 2033 - 2025 ACC0 - 2026 PUSHACC3 - 2027 PUSHACC3 + 2025 ACC0 + 2026 PUSHACC3 + 2027 PUSHACC3 2028 MAKEBLOCK2 0 - 2030 PUSHOFFSETCLOSURE0 + 2030 PUSHOFFSETCLOSURE0 2031 APPTERM2 6 - 2033 ACC0 - 2034 PUSHACC3 - 2035 PUSHOFFSETCLOSURE0 + 2033 ACC0 + 2034 PUSHACC3 + 2035 PUSHOFFSETCLOSURE0 2036 APPTERM2 6 - 2038 ACC0 - 2039 PUSHENVACC1 + 2038 ACC0 + 2039 PUSHENVACC1 2040 APPTERM1 3 - 2042 ACC0 - 2043 PUSHENVACC1 + 2042 ACC0 + 2043 PUSHENVACC1 2044 CLOSUREREC 2, 2011 - 2048 CONST0 - 2049 PUSHACC1 + 2048 CONST0 + 2049 PUSHACC1 2050 APPTERM1 3 - 2052 RESTART + 2052 RESTART 2053 GRAB 2 - 2055 ACC1 + 2055 ACC1 2056 BRANCHIFNOT 2077 - 2058 ACC2 + 2058 ACC2 2059 BRANCHIFNOT 2084 - 2061 ACC2 - 2062 GETFIELD1 - 2063 PUSHACC2 - 2064 GETFIELD1 - 2065 PUSHACC2 - 2066 PUSHACC5 - 2067 GETFIELD0 - 2068 PUSHACC5 - 2069 GETFIELD0 - 2070 PUSHENVACC1 - 2071 APPLY2 + 2061 ACC2 + 2062 GETFIELD1 + 2063 PUSHACC2 + 2064 GETFIELD1 + 2065 PUSHACC2 + 2066 PUSHACC5 + 2067 GETFIELD0 + 2068 PUSHACC5 + 2069 GETFIELD0 + 2070 PUSHENVACC1 + 2071 APPLY2 2072 MAKEBLOCK2 0 - 2074 PUSHOFFSETCLOSURE0 + 2074 PUSHOFFSETCLOSURE0 2075 APPTERM3 6 - 2077 ACC2 + 2077 ACC2 2078 BRANCHIFNOT 2082 2080 BRANCH 2084 2082 RETURN 3 2084 GETGLOBAL "List.rev_map2" 2086 PUSHGETGLOBALFIELD Pervasives, 2 2089 APPTERM1 4 - 2091 RESTART + 2091 RESTART 2092 GRAB 2 - 2094 ACC0 + 2094 ACC0 2095 CLOSUREREC 1, 2053 - 2099 ACC3 - 2100 PUSHACC3 - 2101 PUSHCONST0 - 2102 PUSHACC3 + 2099 ACC3 + 2100 PUSHACC3 + 2101 PUSHCONST0 + 2102 PUSHACC3 2103 APPTERM3 7 - 2105 RESTART + 2105 RESTART 2106 GRAB 1 - 2108 ACC1 + 2108 ACC1 2109 BRANCHIFNOT 2123 - 2111 ACC1 - 2112 GETFIELD1 - 2113 PUSHACC1 - 2114 PUSHACC3 - 2115 GETFIELD0 - 2116 PUSHENVACC1 - 2117 APPLY1 + 2111 ACC1 + 2112 GETFIELD1 + 2113 PUSHACC1 + 2114 PUSHACC3 + 2115 GETFIELD0 + 2116 PUSHENVACC1 + 2117 APPLY1 2118 MAKEBLOCK2 0 - 2120 PUSHOFFSETCLOSURE0 + 2120 PUSHOFFSETCLOSURE0 2121 APPTERM2 4 - 2123 ACC0 + 2123 ACC0 2124 RETURN 2 - 2126 RESTART + 2126 RESTART 2127 GRAB 1 - 2129 ACC0 + 2129 ACC0 2130 CLOSUREREC 1, 2106 - 2134 ACC2 - 2135 PUSHCONST0 - 2136 PUSHACC2 + 2134 ACC2 + 2135 PUSHCONST0 + 2136 PUSHACC2 2137 APPTERM2 5 - 2139 CONST0 - 2140 PUSHACC1 - 2141 PUSHENVACC1 + 2139 CONST0 + 2140 PUSHACC1 + 2141 PUSHENVACC1 2142 APPTERM2 3 - 2144 ACC0 + 2144 ACC0 2145 BRANCHIFNOT 2151 - 2147 ACC0 - 2148 GETFIELD1 + 2147 ACC0 + 2148 GETFIELD1 2149 RETURN 1 2151 GETGLOBAL "tl" 2153 PUSHGETGLOBALFIELD Pervasives, 3 2156 APPTERM1 2 - 2158 ACC0 + 2158 ACC0 2159 BRANCHIFNOT 2165 - 2161 ACC0 - 2162 GETFIELD0 + 2161 ACC0 + 2162 GETFIELD0 2163 RETURN 1 2165 GETGLOBAL "hd" 2167 PUSHGETGLOBALFIELD Pervasives, 3 2170 APPTERM1 2 - 2172 ACC0 - 2173 PUSHCONST0 - 2174 PUSHENVACC1 + 2172 ACC0 + 2173 PUSHCONST0 + 2174 PUSHENVACC1 2175 APPTERM2 3 2177 CLOSUREREC 0, 1200 - 2181 ACC0 + 2181 ACC0 2182 CLOSURE 1, 2172 - 2185 PUSH + 2185 PUSH 2186 CLOSURE 0, 2158 - 2189 PUSH + 2189 PUSH 2190 CLOSURE 0, 2144 - 2193 PUSH + 2193 PUSH 2194 CLOSUREREC 0, 1217 2198 GETGLOBALFIELD Pervasives, 16 - 2201 PUSH + 2201 PUSH 2202 CLOSUREREC 0, 1259 - 2206 ACC0 + 2206 ACC0 2207 CLOSURE 1, 2139 - 2210 PUSH + 2210 PUSH 2211 CLOSUREREC 0, 1277 2215 CLOSUREREC 0, 1294 2219 CLOSURE 0, 2127 - 2222 PUSH + 2222 PUSH 2223 CLOSUREREC 0, 1316 2227 CLOSUREREC 0, 1334 2231 CLOSUREREC 0, 1354 2235 CLOSUREREC 0, 1374 2239 CLOSURE 0, 2092 - 2242 PUSH + 2242 PUSH 2243 CLOSUREREC 0, 1415 2247 CLOSUREREC 0, 1452 2251 CLOSUREREC 0, 1490 @@ -1502,9 +1502,9 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 2314 CLOSUREREC 1, 1928 2318 CLOSUREREC 0, 1942 2322 CLOSUREREC 0, 1972 - 2326 ACC0 - 2327 PUSHACC2 - 2328 PUSHACC7 + 2326 ACC0 + 2327 PUSHACC2 + 2328 PUSHACC7 2329 PUSHACC 9 2331 PUSHACC 11 2333 PUSHACC 13 @@ -1543,47 +1543,47 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 2400 POP 36 2402 SETGLOBAL List 2404 BRANCH 2432 - 2406 CONST0 - 2407 PUSHACC1 - 2408 LEINT + 2406 CONST0 + 2407 PUSHACC1 + 2408 LEINT 2409 BRANCHIFNOT 2414 - 2411 CONST0 + 2411 CONST0 2412 RETURN 1 - 2414 ACC0 + 2414 ACC0 2415 OFFSETINT -1 - 2417 PUSHOFFSETCLOSURE0 - 2418 APPLY1 - 2419 PUSHACC1 + 2417 PUSHOFFSETCLOSURE0 + 2418 APPLY1 + 2419 PUSHACC1 2420 MAKEBLOCK2 0 2422 RETURN 1 - 2424 RESTART + 2424 RESTART 2425 GRAB 1 - 2427 ACC1 - 2428 PUSHACC1 - 2429 ADDINT + 2427 ACC1 + 2428 PUSHACC1 + 2429 ADDINT 2430 RETURN 2 2432 CLOSUREREC 0, 2406 2436 CONSTINT 300 - 2438 PUSHACC1 - 2439 APPLY1 - 2440 PUSHCONST0 + 2438 PUSHACC1 + 2439 APPLY1 + 2440 PUSHCONST0 2441 C_CALL1 gc_minor 2443 CONSTINT 150 2445 PUSHCONSTINT 301 - 2447 MULINT - 2448 PUSHACC1 - 2449 PUSHCONST0 - 2450 PUSH + 2447 MULINT + 2448 PUSHACC1 + 2449 PUSHCONST0 + 2450 PUSH 2451 CLOSURE 0, 2425 2454 PUSHGETGLOBALFIELD List, 12 - 2457 APPLY3 - 2458 NEQ + 2457 APPLY3 + 2458 NEQ 2459 BRANCHIFNOT 2466 2461 GETGLOBAL Not_found 2463 MAKEBLOCK1 0 - 2465 RAISE + 2465 RAISE 2466 POP 2 - 2468 ATOM0 + 2468 ATOM0 2469 SETGLOBAL T320-gc-1 - 2471 STOP + 2471 STOP **) diff --git a/testsuite/tests/tool-ocaml/t320-gc-2.ml b/testsuite/tests/tool-ocaml/t320-gc-2.ml index f607f6512..39ec57c46 100644 --- a/testsuite/tests/tool-ocaml/t320-gc-2.ml +++ b/testsuite/tests/tool-ocaml/t320-gc-2.ml @@ -10,599 +10,599 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 746 - 11 RESTART + 11 RESTART 12 GRAB 1 - 14 ACC0 + 14 ACC0 15 BRANCHIFNOT 28 - 17 ACC1 - 18 PUSHACC1 - 19 GETFIELD1 - 20 PUSHOFFSETCLOSURE0 - 21 APPLY2 - 22 PUSHACC1 - 23 GETFIELD0 + 17 ACC1 + 18 PUSHACC1 + 19 GETFIELD1 + 20 PUSHOFFSETCLOSURE0 + 21 APPLY2 + 22 PUSHACC1 + 23 GETFIELD0 24 MAKEBLOCK2 0 26 RETURN 2 - 28 ACC1 + 28 ACC1 29 RETURN 2 - 31 RESTART + 31 RESTART 32 GRAB 3 - 34 CONST0 - 35 PUSHACC4 - 36 LEINT + 34 CONST0 + 35 PUSHACC4 + 36 LEINT 37 BRANCHIFNOT 42 - 39 CONST0 + 39 CONST0 40 RETURN 4 - 42 ACC3 - 43 PUSHACC3 - 44 PUSHACC3 - 45 PUSHACC3 + 42 ACC3 + 43 PUSHACC3 + 44 PUSHACC3 + 45 PUSHACC3 46 C_CALL4 caml_input - 48 PUSHCONST0 - 49 PUSHACC1 - 50 EQ + 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 + 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 + 70 ACC0 71 C_CALL1 caml_input_scan_line - 73 PUSHCONST0 - 74 PUSHACC1 - 75 EQ + 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 + 82 RAISE + 83 CONST0 + 84 PUSHACC1 + 85 GTINT 86 BRANCHIFNOT 107 - 88 ACC0 + 88 ACC0 89 OFFSETINT -1 91 C_CALL1 create_string - 93 PUSHACC1 + 93 PUSHACC1 94 OFFSETINT -1 - 96 PUSHCONST0 - 97 PUSHACC2 - 98 PUSHACC5 + 96 PUSHCONST0 + 97 PUSHACC2 + 98 PUSHACC5 99 C_CALL4 caml_input - 101 ACC2 + 101 ACC2 102 C_CALL1 caml_input_char - 104 ACC0 + 104 ACC0 105 RETURN 3 - 107 ACC0 - 108 NEGINT + 107 ACC0 + 108 NEGINT 109 C_CALL1 create_string - 111 PUSHACC1 - 112 NEGINT - 113 PUSHCONST0 - 114 PUSHACC2 - 115 PUSHACC5 + 111 PUSHACC1 + 112 NEGINT + 113 PUSHCONST0 + 114 PUSHACC2 + 115 PUSHACC5 116 C_CALL4 caml_input - 118 CONST0 + 118 CONST0 119 PUSHTRAP 130 - 121 ACC6 - 122 PUSHOFFSETCLOSURE0 - 123 APPLY1 - 124 PUSHACC5 - 125 PUSHENVACC1 - 126 APPLY2 - 127 POPTRAP + 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 + 132 PUSHACC1 + 133 GETFIELD0 + 134 EQ 135 BRANCHIFNOT 140 - 137 ACC1 + 137 ACC1 138 RETURN 4 - 140 ACC0 - 141 RAISE - 142 ACC0 + 140 ACC0 + 141 RAISE + 142 ACC0 143 C_CALL1 caml_flush 145 RETURN 1 - 147 RESTART + 147 RESTART 148 GRAB 1 - 150 ACC1 - 151 PUSHACC1 + 150 ACC1 + 151 PUSHACC1 152 C_CALL2 caml_output_char 154 RETURN 2 - 156 RESTART + 156 RESTART 157 GRAB 1 - 159 ACC1 - 160 PUSHACC1 + 159 ACC1 + 160 PUSHACC1 161 C_CALL2 caml_output_char 163 RETURN 2 - 165 RESTART + 165 RESTART 166 GRAB 1 - 168 ACC1 - 169 PUSHACC1 + 168 ACC1 + 169 PUSHACC1 170 C_CALL2 caml_output_int 172 RETURN 2 - 174 RESTART + 174 RESTART 175 GRAB 1 - 177 ACC1 - 178 PUSHACC1 + 177 ACC1 + 178 PUSHACC1 179 C_CALL2 caml_seek_out 181 RETURN 2 - 183 ACC0 + 183 ACC0 184 C_CALL1 caml_pos_out 186 RETURN 1 - 188 ACC0 + 188 ACC0 189 C_CALL1 caml_channel_size 191 RETURN 1 - 193 RESTART + 193 RESTART 194 GRAB 1 - 196 ACC1 - 197 PUSHACC1 + 196 ACC1 + 197 PUSHACC1 198 C_CALL2 caml_set_binary_mode 200 RETURN 2 - 202 ACC0 + 202 ACC0 203 C_CALL1 caml_input_char 205 RETURN 1 - 207 ACC0 + 207 ACC0 208 C_CALL1 caml_input_char 210 RETURN 1 - 212 ACC0 + 212 ACC0 213 C_CALL1 caml_input_int 215 RETURN 1 - 217 ACC0 + 217 ACC0 218 C_CALL1 input_value 220 RETURN 1 - 222 RESTART + 222 RESTART 223 GRAB 1 - 225 ACC1 - 226 PUSHACC1 + 225 ACC1 + 226 PUSHACC1 227 C_CALL2 caml_seek_in 229 RETURN 2 - 231 ACC0 + 231 ACC0 232 C_CALL1 caml_pos_in 234 RETURN 1 - 236 ACC0 + 236 ACC0 237 C_CALL1 caml_channel_size 239 RETURN 1 - 241 ACC0 + 241 ACC0 242 C_CALL1 caml_close_channel 244 RETURN 1 - 246 RESTART + 246 RESTART 247 GRAB 1 - 249 ACC1 - 250 PUSHACC1 + 249 ACC1 + 250 PUSHACC1 251 C_CALL2 caml_set_binary_mode 253 RETURN 2 - 255 CONST0 - 256 PUSHENVACC1 - 257 APPLY1 - 258 ACC0 + 255 CONST0 + 256 PUSHENVACC1 + 257 APPLY1 + 258 ACC0 259 C_CALL1 sys_exit 261 RETURN 1 - 263 CONST0 - 264 PUSHENVACC1 - 265 GETFIELD0 + 263 CONST0 + 264 PUSHENVACC1 + 265 GETFIELD0 266 APPTERM1 2 - 268 CONST0 - 269 PUSHENVACC1 - 270 APPLY1 - 271 CONST0 - 272 PUSHENVACC2 + 268 CONST0 + 269 PUSHENVACC1 + 270 APPLY1 + 271 CONST0 + 272 PUSHENVACC2 273 APPTERM1 2 - 275 ENVACC1 - 276 GETFIELD0 - 277 PUSHACC0 - 278 PUSHACC2 + 275 ENVACC1 + 276 GETFIELD0 + 277 PUSHACC0 + 278 PUSHACC2 279 CLOSURE 2, 268 - 282 PUSHENVACC1 - 283 SETFIELD0 + 282 PUSHENVACC1 + 283 SETFIELD0 284 RETURN 2 - 286 ENVACC1 + 286 ENVACC1 287 C_CALL1 caml_flush - 289 ENVACC2 + 289 ENVACC2 290 C_CALL1 caml_flush 292 RETURN 1 - 294 CONST0 - 295 PUSHENVACC1 - 296 APPLY1 + 294 CONST0 + 295 PUSHENVACC1 + 296 APPLY1 297 C_CALL1 float_of_string 299 RETURN 1 - 301 CONST0 - 302 PUSHENVACC1 - 303 APPLY1 + 301 CONST0 + 302 PUSHENVACC1 + 303 APPLY1 304 C_CALL1 int_of_string 306 RETURN 1 - 308 ENVACC2 + 308 ENVACC2 309 C_CALL1 caml_flush - 311 ENVACC1 - 312 PUSHENVACC3 + 311 ENVACC1 + 312 PUSHENVACC3 313 APPTERM1 2 315 CONSTINT 13 - 317 PUSHENVACC1 + 317 PUSHENVACC1 318 C_CALL2 caml_output_char - 320 ENVACC1 + 320 ENVACC1 321 C_CALL1 caml_flush 323 RETURN 1 - 325 ACC0 - 326 PUSHENVACC1 - 327 PUSHENVACC2 - 328 APPLY2 + 325 ACC0 + 326 PUSHENVACC1 + 327 PUSHENVACC2 + 328 APPLY2 329 CONSTINT 13 - 331 PUSHENVACC1 + 331 PUSHENVACC1 332 C_CALL2 caml_output_char - 334 ENVACC1 + 334 ENVACC1 335 C_CALL1 caml_flush 337 RETURN 1 - 339 ACC0 - 340 PUSHENVACC1 - 341 APPLY1 - 342 PUSHENVACC2 - 343 PUSHENVACC3 + 339 ACC0 + 340 PUSHENVACC1 + 341 APPLY1 + 342 PUSHENVACC2 + 343 PUSHENVACC3 344 APPTERM2 3 - 346 ACC0 - 347 PUSHENVACC1 - 348 APPLY1 - 349 PUSHENVACC2 - 350 PUSHENVACC3 + 346 ACC0 + 347 PUSHENVACC1 + 348 APPLY1 + 349 PUSHENVACC2 + 350 PUSHENVACC3 351 APPTERM2 3 - 353 ACC0 - 354 PUSHENVACC1 - 355 PUSHENVACC2 + 353 ACC0 + 354 PUSHENVACC1 + 355 PUSHENVACC2 356 APPTERM2 3 - 358 ACC0 - 359 PUSHENVACC1 + 358 ACC0 + 359 PUSHENVACC1 360 C_CALL2 caml_output_char 362 RETURN 1 364 CONSTINT 13 - 366 PUSHENVACC1 + 366 PUSHENVACC1 367 C_CALL2 caml_output_char - 369 ENVACC1 + 369 ENVACC1 370 C_CALL1 caml_flush 372 RETURN 1 - 374 ACC0 - 375 PUSHENVACC1 - 376 PUSHENVACC2 - 377 APPLY2 + 374 ACC0 + 375 PUSHENVACC1 + 376 PUSHENVACC2 + 377 APPLY2 378 CONSTINT 13 - 380 PUSHENVACC1 + 380 PUSHENVACC1 381 C_CALL2 caml_output_char 383 RETURN 1 - 385 ACC0 - 386 PUSHENVACC1 - 387 APPLY1 - 388 PUSHENVACC2 - 389 PUSHENVACC3 + 385 ACC0 + 386 PUSHENVACC1 + 387 APPLY1 + 388 PUSHENVACC2 + 389 PUSHENVACC3 390 APPTERM2 3 - 392 ACC0 - 393 PUSHENVACC1 - 394 APPLY1 - 395 PUSHENVACC2 - 396 PUSHENVACC3 + 392 ACC0 + 393 PUSHENVACC1 + 394 APPLY1 + 395 PUSHENVACC2 + 396 PUSHENVACC3 397 APPTERM2 3 - 399 ACC0 - 400 PUSHENVACC1 - 401 PUSHENVACC2 + 399 ACC0 + 400 PUSHENVACC1 + 401 PUSHENVACC2 402 APPTERM2 3 - 404 ACC0 - 405 PUSHENVACC1 + 404 ACC0 + 405 PUSHENVACC1 406 C_CALL2 caml_output_char 408 RETURN 1 - 410 RESTART + 410 RESTART 411 GRAB 3 - 413 CONST0 - 414 PUSHACC3 - 415 LTINT + 413 CONST0 + 414 PUSHACC3 + 415 LTINT 416 BRANCHIF 427 - 418 ACC1 + 418 ACC1 419 C_CALL1 ml_string_length - 421 PUSHACC4 - 422 PUSHACC4 - 423 ADDINT - 424 GTINT + 421 PUSHACC4 + 422 PUSHACC4 + 423 ADDINT + 424 GTINT 425 BRANCHIFNOT 432 427 GETGLOBAL "really_input" - 429 PUSHENVACC1 + 429 PUSHENVACC1 430 APPTERM1 5 - 432 ACC3 - 433 PUSHACC3 - 434 PUSHACC3 - 435 PUSHACC3 - 436 PUSHENVACC2 + 432 ACC3 + 433 PUSHACC3 + 434 PUSHACC3 + 435 PUSHACC3 + 436 PUSHENVACC2 437 APPTERM 4, 8 - 440 RESTART + 440 RESTART 441 GRAB 3 - 443 CONST0 - 444 PUSHACC3 - 445 LTINT + 443 CONST0 + 444 PUSHACC3 + 445 LTINT 446 BRANCHIF 457 - 448 ACC1 + 448 ACC1 449 C_CALL1 ml_string_length - 451 PUSHACC4 - 452 PUSHACC4 - 453 ADDINT - 454 GTINT + 451 PUSHACC4 + 452 PUSHACC4 + 453 ADDINT + 454 GTINT 455 BRANCHIFNOT 462 457 GETGLOBAL "input" - 459 PUSHENVACC1 + 459 PUSHENVACC1 460 APPTERM1 5 - 462 ACC3 - 463 PUSHACC3 - 464 PUSHACC3 - 465 PUSHACC3 + 462 ACC3 + 463 PUSHACC3 + 464 PUSHACC3 + 465 PUSHACC3 466 C_CALL4 caml_input 468 RETURN 4 - 470 ACC0 - 471 PUSHCONST0 + 470 ACC0 + 471 PUSHCONST0 472 PUSHGETGLOBAL <0>(0, <0>(6, 0)) - 474 PUSHENVACC1 + 474 PUSHENVACC1 475 APPTERM3 4 - 477 ACC0 - 478 PUSHCONST0 + 477 ACC0 + 478 PUSHCONST0 479 PUSHGETGLOBAL <0>(0, <0>(7, 0)) - 481 PUSHENVACC1 + 481 PUSHENVACC1 482 APPTERM3 4 - 484 RESTART + 484 RESTART 485 GRAB 2 - 487 ACC1 - 488 PUSHACC1 - 489 PUSHACC4 + 487 ACC1 + 488 PUSHACC1 + 489 PUSHACC4 490 C_CALL3 sys_open 492 C_CALL1 caml_open_descriptor 494 RETURN 3 - 496 ACC0 + 496 ACC0 497 C_CALL1 caml_flush - 499 ACC0 + 499 ACC0 500 C_CALL1 caml_close_channel 502 RETURN 1 - 504 RESTART + 504 RESTART 505 GRAB 1 - 507 CONST0 - 508 PUSHACC2 - 509 PUSHACC2 + 507 CONST0 + 508 PUSHACC2 + 509 PUSHACC2 510 C_CALL3 output_value 512 RETURN 2 - 514 RESTART + 514 RESTART 515 GRAB 3 - 517 CONST0 - 518 PUSHACC3 - 519 LTINT + 517 CONST0 + 518 PUSHACC3 + 519 LTINT 520 BRANCHIF 531 - 522 ACC1 + 522 ACC1 523 C_CALL1 ml_string_length - 525 PUSHACC4 - 526 PUSHACC4 - 527 ADDINT - 528 GTINT + 525 PUSHACC4 + 526 PUSHACC4 + 527 ADDINT + 528 GTINT 529 BRANCHIFNOT 536 531 GETGLOBAL "output" - 533 PUSHENVACC1 + 533 PUSHENVACC1 534 APPTERM1 5 - 536 ACC3 - 537 PUSHACC3 - 538 PUSHACC3 - 539 PUSHACC3 + 536 ACC3 + 537 PUSHACC3 + 538 PUSHACC3 + 539 PUSHACC3 540 C_CALL4 caml_output 542 RETURN 4 - 544 RESTART + 544 RESTART 545 GRAB 1 - 547 ACC1 + 547 ACC1 548 C_CALL1 ml_string_length - 550 PUSHCONST0 - 551 PUSHACC3 - 552 PUSHACC3 + 550 PUSHCONST0 + 551 PUSHACC3 + 552 PUSHACC3 553 C_CALL4 caml_output 555 RETURN 2 - 557 ACC0 + 557 ACC0 558 PUSHCONSTINT 438 560 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(6, 0)))) - 562 PUSHENVACC1 + 562 PUSHENVACC1 563 APPTERM3 4 - 565 ACC0 + 565 ACC0 566 PUSHCONSTINT 438 568 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(7, 0)))) - 570 PUSHENVACC1 + 570 PUSHENVACC1 571 APPTERM3 4 - 573 RESTART + 573 RESTART 574 GRAB 2 - 576 ACC1 - 577 PUSHACC1 - 578 PUSHACC4 + 576 ACC1 + 577 PUSHACC1 + 578 PUSHACC4 579 C_CALL3 sys_open 581 C_CALL1 caml_open_descriptor 583 RETURN 3 - 585 ACC0 + 585 ACC0 586 PUSHGETGLOBAL "%.12g" 588 C_CALL2 format_float 590 RETURN 1 - 592 ACC0 + 592 ACC0 593 PUSHGETGLOBAL "%d" 595 C_CALL2 format_int 597 RETURN 1 599 GETGLOBAL "false" - 601 PUSHACC1 + 601 PUSHACC1 602 C_CALL2 string_equal 604 BRANCHIFNOT 609 - 606 CONST0 + 606 CONST0 607 RETURN 1 609 GETGLOBAL "true" - 611 PUSHACC1 + 611 PUSHACC1 612 C_CALL2 string_equal 614 BRANCHIFNOT 619 - 616 CONST1 + 616 CONST1 617 RETURN 1 619 GETGLOBAL "bool_of_string" - 621 PUSHENVACC1 + 621 PUSHENVACC1 622 APPTERM1 2 - 624 ACC0 + 624 ACC0 625 BRANCHIFNOT 631 627 GETGLOBAL "true" 629 RETURN 1 631 GETGLOBAL "false" 633 RETURN 1 - 635 CONST0 - 636 PUSHACC1 - 637 LTINT + 635 CONST0 + 636 PUSHACC1 + 637 LTINT 638 BRANCHIF 646 640 CONSTINT 255 - 642 PUSHACC1 - 643 GTINT + 642 PUSHACC1 + 643 GTINT 644 BRANCHIFNOT 651 646 GETGLOBAL "char_of_int" - 648 PUSHENVACC1 + 648 PUSHENVACC1 649 APPTERM1 2 - 651 ACC0 + 651 ACC0 652 RETURN 1 - 654 RESTART + 654 RESTART 655 GRAB 1 - 657 ACC0 + 657 ACC0 658 C_CALL1 ml_string_length - 660 PUSHACC2 + 660 PUSHACC2 661 C_CALL1 ml_string_length - 663 PUSHACC0 - 664 PUSHACC2 - 665 ADDINT + 663 PUSHACC0 + 664 PUSHACC2 + 665 ADDINT 666 C_CALL1 create_string - 668 PUSHACC2 - 669 PUSHCONST0 - 670 PUSHACC2 - 671 PUSHCONST0 - 672 PUSHACC7 + 668 PUSHACC2 + 669 PUSHCONST0 + 670 PUSHACC2 + 671 PUSHCONST0 + 672 PUSHACC7 673 C_CALL5 blit_string - 675 ACC1 - 676 PUSHACC3 - 677 PUSHACC2 - 678 PUSHCONST0 + 675 ACC1 + 676 PUSHACC3 + 677 PUSHACC2 + 678 PUSHCONST0 679 PUSHACC 8 681 C_CALL5 blit_string - 683 ACC0 + 683 ACC0 684 RETURN 5 686 CONSTINT -1 - 688 PUSHACC1 - 689 XORINT + 688 PUSHACC1 + 689 XORINT 690 RETURN 1 - 692 CONST0 - 693 PUSHACC1 - 694 GEINT + 692 CONST0 + 693 PUSHACC1 + 694 GEINT 695 BRANCHIFNOT 700 - 697 ACC0 + 697 ACC0 698 RETURN 1 - 700 ACC0 - 701 NEGINT + 700 ACC0 + 701 NEGINT 702 RETURN 1 - 704 RESTART + 704 RESTART 705 GRAB 1 - 707 ACC1 - 708 PUSHACC1 + 707 ACC1 + 708 PUSHACC1 709 C_CALL2 greaterequal 711 BRANCHIFNOT 716 - 713 ACC0 + 713 ACC0 714 RETURN 2 - 716 ACC1 + 716 ACC1 717 RETURN 2 - 719 RESTART + 719 RESTART 720 GRAB 1 - 722 ACC1 - 723 PUSHACC1 + 722 ACC1 + 723 PUSHACC1 724 C_CALL2 lessequal 726 BRANCHIFNOT 731 - 728 ACC0 + 728 ACC0 729 RETURN 2 - 731 ACC1 + 731 ACC1 732 RETURN 2 - 734 ACC0 + 734 ACC0 735 PUSHGETGLOBAL Invalid_argument 737 MAKEBLOCK2 0 - 739 RAISE - 740 ACC0 + 739 RAISE + 740 ACC0 741 PUSHGETGLOBAL Failure 743 MAKEBLOCK2 0 - 745 RAISE + 745 RAISE 746 CLOSURE 0, 740 - 749 PUSH + 749 PUSH 750 CLOSURE 0, 734 753 PUSHGETGLOBAL "Pervasives.Exit" 755 MAKEBLOCK1 0 757 PUSHGETGLOBAL "Pervasives.Assert_failure" 759 MAKEBLOCK1 0 - 761 PUSH + 761 PUSH 762 CLOSURE 0, 720 - 765 PUSH + 765 PUSH 766 CLOSURE 0, 705 - 769 PUSH + 769 PUSH 770 CLOSURE 0, 692 - 773 PUSH + 773 PUSH 774 CLOSURE 0, 686 - 777 PUSHCONST0 + 777 PUSHCONST0 778 PUSHCONSTINT 31 - 780 PUSHCONST1 - 781 LSLINT - 782 EQ + 780 PUSHCONST1 + 781 LSLINT + 782 EQ 783 BRANCHIFNOT 789 785 CONSTINT 30 787 BRANCH 791 789 CONSTINT 62 - 791 PUSHCONST1 - 792 LSLINT - 793 PUSHACC0 + 791 PUSHCONST1 + 792 LSLINT + 793 PUSHACC0 794 OFFSETINT -1 - 796 PUSH + 796 PUSH 797 CLOSURE 0, 655 800 PUSHACC 9 802 CLOSURE 1, 635 - 805 PUSH + 805 PUSH 806 CLOSURE 0, 624 809 PUSHACC 11 811 CLOSURE 1, 599 - 814 PUSH + 814 PUSH 815 CLOSURE 0, 592 - 818 PUSH + 818 PUSH 819 CLOSURE 0, 585 - 822 PUSH + 822 PUSH 823 CLOSUREREC 0, 12 - 827 CONST0 + 827 CONST0 828 C_CALL1 caml_open_descriptor - 830 PUSHCONST1 + 830 PUSHCONST1 831 C_CALL1 caml_open_descriptor - 833 PUSHCONST2 + 833 PUSHCONST2 834 C_CALL1 caml_open_descriptor - 836 PUSH + 836 PUSH 837 CLOSURE 0, 574 - 840 PUSHACC0 + 840 PUSHACC0 841 CLOSURE 1, 565 - 844 PUSHACC1 + 844 PUSHACC1 845 CLOSURE 1, 557 - 848 PUSH + 848 PUSH 849 CLOSURE 0, 545 852 PUSHACC 22 854 CLOSURE 1, 515 - 857 PUSH + 857 PUSH 858 CLOSURE 0, 505 - 861 PUSH + 861 PUSH 862 CLOSURE 0, 496 - 865 PUSH + 865 PUSH 866 CLOSURE 0, 485 - 869 PUSHACC0 + 869 PUSHACC0 870 CLOSURE 1, 477 - 873 PUSHACC1 + 873 PUSHACC1 874 CLOSURE 1, 470 877 PUSHACC 28 879 CLOSURE 1, 441 - 882 PUSH + 882 PUSH 883 CLOSUREREC 0, 32 - 887 ACC0 + 887 ACC0 888 PUSHACC 31 890 CLOSURE 2, 411 893 PUSHACC 22 @@ -647,67 +647,67 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 985 PUSHACC 28 987 PUSHACC 30 989 CLOSURE 3, 308 - 992 PUSHACC0 + 992 PUSHACC0 993 CLOSURE 1, 301 - 996 PUSHACC1 + 996 PUSHACC1 997 CLOSURE 1, 294 1000 PUSHACC 29 1002 PUSHACC 31 1004 CLOSURE 2, 286 1007 MAKEBLOCK1 0 - 1009 PUSHACC0 + 1009 PUSHACC0 1010 CLOSURE 1, 275 - 1013 PUSHACC1 + 1013 PUSHACC1 1014 CLOSURE 1, 263 - 1017 PUSHACC0 + 1017 PUSHACC0 1018 CLOSURE 1, 255 - 1021 PUSHACC1 + 1021 PUSHACC1 1022 PUSHACC 22 - 1024 PUSHACC4 - 1025 PUSHACC3 - 1026 PUSH + 1024 PUSHACC4 + 1025 PUSHACC3 + 1026 PUSH 1027 CLOSURE 0, 247 - 1030 PUSH + 1030 PUSH 1031 CLOSURE 0, 241 - 1034 PUSH + 1034 PUSH 1035 CLOSURE 0, 236 - 1038 PUSH + 1038 PUSH 1039 CLOSURE 0, 231 - 1042 PUSH + 1042 PUSH 1043 CLOSURE 0, 223 - 1046 PUSH + 1046 PUSH 1047 CLOSURE 0, 217 - 1050 PUSH + 1050 PUSH 1051 CLOSURE 0, 212 - 1054 PUSH + 1054 PUSH 1055 CLOSURE 0, 207 1058 PUSHACC 32 1060 PUSHACC 35 1062 PUSHACC 33 - 1064 PUSH + 1064 PUSH 1065 CLOSURE 0, 202 1068 PUSHACC 41 1070 PUSHACC 40 1072 PUSHACC 42 - 1074 PUSH + 1074 PUSH 1075 CLOSURE 0, 194 1078 PUSHACC 46 - 1080 PUSH + 1080 PUSH 1081 CLOSURE 0, 188 - 1084 PUSH + 1084 PUSH 1085 CLOSURE 0, 183 - 1088 PUSH + 1088 PUSH 1089 CLOSURE 0, 175 1092 PUSHACC 51 - 1094 PUSH + 1094 PUSH 1095 CLOSURE 0, 166 - 1098 PUSH + 1098 PUSH 1099 CLOSURE 0, 157 1102 PUSHACC 55 1104 PUSHACC 57 - 1106 PUSH + 1106 PUSH 1107 CLOSURE 0, 148 - 1110 PUSH + 1110 PUSH 1111 CLOSURE 0, 142 1114 PUSHACC 63 1116 PUSHACC 62 @@ -751,38 +751,38 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 1193 POP 53 1195 SETGLOBAL Pervasives 1197 BRANCH 2177 - 1199 RESTART + 1199 RESTART 1200 GRAB 1 - 1202 ACC1 + 1202 ACC1 1203 BRANCHIFNOT 1213 - 1205 ACC1 - 1206 GETFIELD1 - 1207 PUSHACC1 + 1205 ACC1 + 1206 GETFIELD1 + 1207 PUSHACC1 1208 OFFSETINT 1 - 1210 PUSHOFFSETCLOSURE0 + 1210 PUSHOFFSETCLOSURE0 1211 APPTERM2 4 - 1213 ACC0 + 1213 ACC0 1214 RETURN 2 - 1216 RESTART + 1216 RESTART 1217 GRAB 1 - 1219 ACC0 + 1219 ACC0 1220 BRANCHIFNOT 1251 - 1222 CONST0 - 1223 PUSHACC2 - 1224 EQ + 1222 CONST0 + 1223 PUSHACC2 + 1224 EQ 1225 BRANCHIFNOT 1231 - 1227 ACC0 - 1228 GETFIELD0 + 1227 ACC0 + 1228 GETFIELD0 1229 RETURN 2 - 1231 CONST0 - 1232 PUSHACC2 - 1233 GTINT + 1231 CONST0 + 1232 PUSHACC2 + 1233 GTINT 1234 BRANCHIFNOT 1244 - 1236 ACC1 + 1236 ACC1 1237 OFFSETINT -1 - 1239 PUSHACC1 - 1240 GETFIELD1 - 1241 PUSHOFFSETCLOSURE0 + 1239 PUSHACC1 + 1240 GETFIELD1 + 1241 PUSHOFFSETCLOSURE0 1242 APPTERM2 4 1244 GETGLOBAL "List.nth" 1246 PUSHGETGLOBALFIELD Pervasives, 2 @@ -790,696 +790,696 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 1251 GETGLOBAL "nth" 1253 PUSHGETGLOBALFIELD Pervasives, 3 1256 APPTERM1 3 - 1258 RESTART + 1258 RESTART 1259 GRAB 1 - 1261 ACC0 + 1261 ACC0 1262 BRANCHIFNOT 1274 - 1264 ACC1 - 1265 PUSHACC1 - 1266 GETFIELD0 + 1264 ACC1 + 1265 PUSHACC1 + 1266 GETFIELD0 1267 MAKEBLOCK2 0 - 1269 PUSHACC1 - 1270 GETFIELD1 - 1271 PUSHOFFSETCLOSURE0 + 1269 PUSHACC1 + 1270 GETFIELD1 + 1271 PUSHOFFSETCLOSURE0 1272 APPTERM2 4 - 1274 ACC1 + 1274 ACC1 1275 RETURN 2 - 1277 ACC0 + 1277 ACC0 1278 BRANCHIFNOT 1291 - 1280 ACC0 - 1281 GETFIELD1 - 1282 PUSHOFFSETCLOSURE0 - 1283 APPLY1 - 1284 PUSHACC1 - 1285 GETFIELD0 + 1280 ACC0 + 1281 GETFIELD1 + 1282 PUSHOFFSETCLOSURE0 + 1283 APPLY1 + 1284 PUSHACC1 + 1285 GETFIELD0 1286 PUSHGETGLOBALFIELD Pervasives, 16 1289 APPTERM2 3 1291 RETURN 1 - 1293 RESTART + 1293 RESTART 1294 GRAB 1 - 1296 ACC1 + 1296 ACC1 1297 BRANCHIFNOT 1313 - 1299 ACC1 - 1300 GETFIELD0 - 1301 PUSHACC1 - 1302 APPLY1 - 1303 PUSHACC2 - 1304 GETFIELD1 - 1305 PUSHACC2 - 1306 PUSHOFFSETCLOSURE0 - 1307 APPLY2 - 1308 PUSHACC1 + 1299 ACC1 + 1300 GETFIELD0 + 1301 PUSHACC1 + 1302 APPLY1 + 1303 PUSHACC2 + 1304 GETFIELD1 + 1305 PUSHACC2 + 1306 PUSHOFFSETCLOSURE0 + 1307 APPLY2 + 1308 PUSHACC1 1309 MAKEBLOCK2 0 1311 POP 1 1313 RETURN 2 - 1315 RESTART + 1315 RESTART 1316 GRAB 1 - 1318 ACC1 + 1318 ACC1 1319 BRANCHIFNOT 1331 - 1321 ACC1 - 1322 GETFIELD0 - 1323 PUSHACC1 - 1324 APPLY1 - 1325 ACC1 - 1326 GETFIELD1 - 1327 PUSHACC1 - 1328 PUSHOFFSETCLOSURE0 + 1321 ACC1 + 1322 GETFIELD0 + 1323 PUSHACC1 + 1324 APPLY1 + 1325 ACC1 + 1326 GETFIELD1 + 1327 PUSHACC1 + 1328 PUSHOFFSETCLOSURE0 1329 APPTERM2 4 1331 RETURN 2 - 1333 RESTART + 1333 RESTART 1334 GRAB 2 - 1336 ACC2 + 1336 ACC2 1337 BRANCHIFNOT 1350 - 1339 ACC2 - 1340 GETFIELD1 - 1341 PUSHACC3 - 1342 GETFIELD0 - 1343 PUSHACC3 - 1344 PUSHACC3 - 1345 APPLY2 - 1346 PUSHACC2 - 1347 PUSHOFFSETCLOSURE0 + 1339 ACC2 + 1340 GETFIELD1 + 1341 PUSHACC3 + 1342 GETFIELD0 + 1343 PUSHACC3 + 1344 PUSHACC3 + 1345 APPLY2 + 1346 PUSHACC2 + 1347 PUSHOFFSETCLOSURE0 1348 APPTERM3 6 - 1350 ACC1 + 1350 ACC1 1351 RETURN 3 - 1353 RESTART + 1353 RESTART 1354 GRAB 2 - 1356 ACC1 + 1356 ACC1 1357 BRANCHIFNOT 1370 - 1359 ACC2 - 1360 PUSHACC2 - 1361 GETFIELD1 - 1362 PUSHACC2 - 1363 PUSHOFFSETCLOSURE0 - 1364 APPLY3 - 1365 PUSHACC2 - 1366 GETFIELD0 - 1367 PUSHACC2 + 1359 ACC2 + 1360 PUSHACC2 + 1361 GETFIELD1 + 1362 PUSHACC2 + 1363 PUSHOFFSETCLOSURE0 + 1364 APPLY3 + 1365 PUSHACC2 + 1366 GETFIELD0 + 1367 PUSHACC2 1368 APPTERM2 5 - 1370 ACC2 + 1370 ACC2 1371 RETURN 3 - 1373 RESTART + 1373 RESTART 1374 GRAB 2 - 1376 ACC1 + 1376 ACC1 1377 BRANCHIFNOT 1400 - 1379 ACC2 + 1379 ACC2 1380 BRANCHIFNOT 1407 - 1382 ACC2 - 1383 GETFIELD0 - 1384 PUSHACC2 - 1385 GETFIELD0 - 1386 PUSHACC2 - 1387 APPLY2 - 1388 PUSHACC3 - 1389 GETFIELD1 - 1390 PUSHACC3 - 1391 GETFIELD1 - 1392 PUSHACC3 - 1393 PUSHOFFSETCLOSURE0 - 1394 APPLY3 - 1395 PUSHACC1 + 1382 ACC2 + 1383 GETFIELD0 + 1384 PUSHACC2 + 1385 GETFIELD0 + 1386 PUSHACC2 + 1387 APPLY2 + 1388 PUSHACC3 + 1389 GETFIELD1 + 1390 PUSHACC3 + 1391 GETFIELD1 + 1392 PUSHACC3 + 1393 PUSHOFFSETCLOSURE0 + 1394 APPLY3 + 1395 PUSHACC1 1396 MAKEBLOCK2 0 1398 RETURN 4 - 1400 ACC2 + 1400 ACC2 1401 BRANCHIFNOT 1405 1403 BRANCH 1407 1405 RETURN 3 1407 GETGLOBAL "List.map2" 1409 PUSHGETGLOBALFIELD Pervasives, 2 1412 APPTERM1 4 - 1414 RESTART + 1414 RESTART 1415 GRAB 2 - 1417 ACC1 + 1417 ACC1 1418 BRANCHIFNOT 1437 - 1420 ACC2 + 1420 ACC2 1421 BRANCHIFNOT 1444 - 1423 ACC2 - 1424 GETFIELD0 - 1425 PUSHACC2 - 1426 GETFIELD0 - 1427 PUSHACC2 - 1428 APPLY2 - 1429 ACC2 - 1430 GETFIELD1 - 1431 PUSHACC2 - 1432 GETFIELD1 - 1433 PUSHACC2 - 1434 PUSHOFFSETCLOSURE0 + 1423 ACC2 + 1424 GETFIELD0 + 1425 PUSHACC2 + 1426 GETFIELD0 + 1427 PUSHACC2 + 1428 APPLY2 + 1429 ACC2 + 1430 GETFIELD1 + 1431 PUSHACC2 + 1432 GETFIELD1 + 1433 PUSHACC2 + 1434 PUSHOFFSETCLOSURE0 1435 APPTERM3 6 - 1437 ACC2 + 1437 ACC2 1438 BRANCHIFNOT 1442 1440 BRANCH 1444 1442 RETURN 3 1444 GETGLOBAL "List.iter2" 1446 PUSHGETGLOBALFIELD Pervasives, 2 1449 APPTERM1 4 - 1451 RESTART + 1451 RESTART 1452 GRAB 3 - 1454 ACC2 + 1454 ACC2 1455 BRANCHIFNOT 1476 - 1457 ACC3 + 1457 ACC3 1458 BRANCHIFNOT 1482 - 1460 ACC3 - 1461 GETFIELD1 - 1462 PUSHACC3 - 1463 GETFIELD1 - 1464 PUSHACC5 - 1465 GETFIELD0 - 1466 PUSHACC5 - 1467 GETFIELD0 - 1468 PUSHACC5 - 1469 PUSHACC5 - 1470 APPLY3 - 1471 PUSHACC3 - 1472 PUSHOFFSETCLOSURE0 + 1460 ACC3 + 1461 GETFIELD1 + 1462 PUSHACC3 + 1463 GETFIELD1 + 1464 PUSHACC5 + 1465 GETFIELD0 + 1466 PUSHACC5 + 1467 GETFIELD0 + 1468 PUSHACC5 + 1469 PUSHACC5 + 1470 APPLY3 + 1471 PUSHACC3 + 1472 PUSHOFFSETCLOSURE0 1473 APPTERM 4, 8 - 1476 ACC3 + 1476 ACC3 1477 BRANCHIF 1482 - 1479 ACC1 + 1479 ACC1 1480 RETURN 4 1482 GETGLOBAL "List.fold_left2" 1484 PUSHGETGLOBALFIELD Pervasives, 2 1487 APPTERM1 5 - 1489 RESTART + 1489 RESTART 1490 GRAB 3 - 1492 ACC1 + 1492 ACC1 1493 BRANCHIFNOT 1516 - 1495 ACC2 + 1495 ACC2 1496 BRANCHIFNOT 1522 1498 PUSH_RETADDR 1509 - 1500 ACC6 - 1501 PUSHACC6 - 1502 GETFIELD1 - 1503 PUSHACC6 - 1504 GETFIELD1 - 1505 PUSHACC6 - 1506 PUSHOFFSETCLOSURE0 + 1500 ACC6 + 1501 PUSHACC6 + 1502 GETFIELD1 + 1503 PUSHACC6 + 1504 GETFIELD1 + 1505 PUSHACC6 + 1506 PUSHOFFSETCLOSURE0 1507 APPLY 4 - 1509 PUSHACC3 - 1510 GETFIELD0 - 1511 PUSHACC3 - 1512 GETFIELD0 - 1513 PUSHACC3 + 1509 PUSHACC3 + 1510 GETFIELD0 + 1511 PUSHACC3 + 1512 GETFIELD0 + 1513 PUSHACC3 1514 APPTERM3 7 - 1516 ACC2 + 1516 ACC2 1517 BRANCHIF 1522 - 1519 ACC3 + 1519 ACC3 1520 RETURN 4 1522 GETGLOBAL "List.fold_right2" 1524 PUSHGETGLOBALFIELD Pervasives, 2 1527 APPTERM1 5 - 1529 RESTART + 1529 RESTART 1530 GRAB 1 - 1532 ACC1 + 1532 ACC1 1533 BRANCHIFNOT 1549 - 1535 ACC1 - 1536 GETFIELD0 - 1537 PUSHACC1 - 1538 APPLY1 + 1535 ACC1 + 1536 GETFIELD0 + 1537 PUSHACC1 + 1538 APPLY1 1539 BRANCHIFNOT 1547 - 1541 ACC1 - 1542 GETFIELD1 - 1543 PUSHACC1 - 1544 PUSHOFFSETCLOSURE0 + 1541 ACC1 + 1542 GETFIELD1 + 1543 PUSHACC1 + 1544 PUSHOFFSETCLOSURE0 1545 APPTERM2 4 1547 RETURN 2 - 1549 CONST1 + 1549 CONST1 1550 RETURN 2 - 1552 RESTART + 1552 RESTART 1553 GRAB 1 - 1555 ACC1 + 1555 ACC1 1556 BRANCHIFNOT 1570 - 1558 ACC1 - 1559 GETFIELD0 - 1560 PUSHACC1 - 1561 APPLY1 + 1558 ACC1 + 1559 GETFIELD0 + 1560 PUSHACC1 + 1561 APPLY1 1562 BRANCHIF 1570 - 1564 ACC1 - 1565 GETFIELD1 - 1566 PUSHACC1 - 1567 PUSHOFFSETCLOSURE0 + 1564 ACC1 + 1565 GETFIELD1 + 1566 PUSHACC1 + 1567 PUSHOFFSETCLOSURE0 1568 APPTERM2 4 1570 RETURN 2 - 1572 RESTART + 1572 RESTART 1573 GRAB 2 - 1575 ACC1 + 1575 ACC1 1576 BRANCHIFNOT 1599 - 1578 ACC2 + 1578 ACC2 1579 BRANCHIFNOT 1605 - 1581 ACC2 - 1582 GETFIELD0 - 1583 PUSHACC2 - 1584 GETFIELD0 - 1585 PUSHACC2 - 1586 APPLY2 + 1581 ACC2 + 1582 GETFIELD0 + 1583 PUSHACC2 + 1584 GETFIELD0 + 1585 PUSHACC2 + 1586 APPLY2 1587 BRANCHIFNOT 1597 - 1589 ACC2 - 1590 GETFIELD1 - 1591 PUSHACC2 - 1592 GETFIELD1 - 1593 PUSHACC2 - 1594 PUSHOFFSETCLOSURE0 + 1589 ACC2 + 1590 GETFIELD1 + 1591 PUSHACC2 + 1592 GETFIELD1 + 1593 PUSHACC2 + 1594 PUSHOFFSETCLOSURE0 1595 APPTERM3 6 1597 RETURN 3 - 1599 ACC2 + 1599 ACC2 1600 BRANCHIF 1605 - 1602 CONST1 + 1602 CONST1 1603 RETURN 3 1605 GETGLOBAL "List.for_all2" 1607 PUSHGETGLOBALFIELD Pervasives, 2 1610 APPTERM1 4 - 1612 RESTART + 1612 RESTART 1613 GRAB 2 - 1615 ACC1 + 1615 ACC1 1616 BRANCHIFNOT 1639 - 1618 ACC2 + 1618 ACC2 1619 BRANCHIFNOT 1646 - 1621 ACC2 - 1622 GETFIELD0 - 1623 PUSHACC2 - 1624 GETFIELD0 - 1625 PUSHACC2 - 1626 APPLY2 + 1621 ACC2 + 1622 GETFIELD0 + 1623 PUSHACC2 + 1624 GETFIELD0 + 1625 PUSHACC2 + 1626 APPLY2 1627 BRANCHIF 1637 - 1629 ACC2 - 1630 GETFIELD1 - 1631 PUSHACC2 - 1632 GETFIELD1 - 1633 PUSHACC2 - 1634 PUSHOFFSETCLOSURE0 + 1629 ACC2 + 1630 GETFIELD1 + 1631 PUSHACC2 + 1632 GETFIELD1 + 1633 PUSHACC2 + 1634 PUSHOFFSETCLOSURE0 1635 APPTERM3 6 1637 RETURN 3 - 1639 ACC2 + 1639 ACC2 1640 BRANCHIFNOT 1644 1642 BRANCH 1646 1644 RETURN 3 1646 GETGLOBAL "List.exists2" 1648 PUSHGETGLOBALFIELD Pervasives, 2 1651 APPTERM1 4 - 1653 RESTART + 1653 RESTART 1654 GRAB 1 - 1656 ACC1 + 1656 ACC1 1657 BRANCHIFNOT 1672 - 1659 ACC0 - 1660 PUSHACC2 - 1661 GETFIELD0 + 1659 ACC0 + 1660 PUSHACC2 + 1661 GETFIELD0 1662 C_CALL2 equal 1664 BRANCHIF 1672 - 1666 ACC1 - 1667 GETFIELD1 - 1668 PUSHACC1 - 1669 PUSHOFFSETCLOSURE0 + 1666 ACC1 + 1667 GETFIELD1 + 1668 PUSHACC1 + 1669 PUSHOFFSETCLOSURE0 1670 APPTERM2 4 1672 RETURN 2 - 1674 RESTART + 1674 RESTART 1675 GRAB 1 - 1677 ACC1 + 1677 ACC1 1678 BRANCHIFNOT 1692 - 1680 ACC0 - 1681 PUSHACC2 - 1682 GETFIELD0 - 1683 EQ + 1680 ACC0 + 1681 PUSHACC2 + 1682 GETFIELD0 + 1683 EQ 1684 BRANCHIF 1692 - 1686 ACC1 - 1687 GETFIELD1 - 1688 PUSHACC1 - 1689 PUSHOFFSETCLOSURE0 + 1686 ACC1 + 1687 GETFIELD1 + 1688 PUSHACC1 + 1689 PUSHOFFSETCLOSURE0 1690 APPTERM2 4 1692 RETURN 2 - 1694 RESTART + 1694 RESTART 1695 GRAB 1 - 1697 ACC1 + 1697 ACC1 1698 BRANCHIFNOT 1719 - 1700 ACC1 - 1701 GETFIELD0 - 1702 PUSHACC1 - 1703 PUSHACC1 - 1704 GETFIELD0 + 1700 ACC1 + 1701 GETFIELD0 + 1702 PUSHACC1 + 1703 PUSHACC1 + 1704 GETFIELD0 1705 C_CALL2 equal 1707 BRANCHIFNOT 1713 - 1709 ACC0 - 1710 GETFIELD1 + 1709 ACC0 + 1710 GETFIELD1 1711 RETURN 3 - 1713 ACC2 - 1714 GETFIELD1 - 1715 PUSHACC2 - 1716 PUSHOFFSETCLOSURE0 + 1713 ACC2 + 1714 GETFIELD1 + 1715 PUSHACC2 + 1716 PUSHOFFSETCLOSURE0 1717 APPTERM2 5 1719 GETGLOBAL Not_found 1721 MAKEBLOCK1 0 - 1723 RAISE - 1724 RESTART + 1723 RAISE + 1724 RESTART 1725 GRAB 1 - 1727 ACC1 + 1727 ACC1 1728 BRANCHIFNOT 1748 - 1730 ACC1 - 1731 GETFIELD0 - 1732 PUSHACC1 - 1733 PUSHACC1 - 1734 GETFIELD0 - 1735 EQ + 1730 ACC1 + 1731 GETFIELD0 + 1732 PUSHACC1 + 1733 PUSHACC1 + 1734 GETFIELD0 + 1735 EQ 1736 BRANCHIFNOT 1742 - 1738 ACC0 - 1739 GETFIELD1 + 1738 ACC0 + 1739 GETFIELD1 1740 RETURN 3 - 1742 ACC2 - 1743 GETFIELD1 - 1744 PUSHACC2 - 1745 PUSHOFFSETCLOSURE0 + 1742 ACC2 + 1743 GETFIELD1 + 1744 PUSHACC2 + 1745 PUSHOFFSETCLOSURE0 1746 APPTERM2 5 1748 GETGLOBAL Not_found 1750 MAKEBLOCK1 0 - 1752 RAISE - 1753 RESTART + 1752 RAISE + 1753 RESTART 1754 GRAB 1 - 1756 ACC1 + 1756 ACC1 1757 BRANCHIFNOT 1773 - 1759 ACC0 - 1760 PUSHACC2 - 1761 GETFIELD0 - 1762 GETFIELD0 + 1759 ACC0 + 1760 PUSHACC2 + 1761 GETFIELD0 + 1762 GETFIELD0 1763 C_CALL2 equal 1765 BRANCHIF 1773 - 1767 ACC1 - 1768 GETFIELD1 - 1769 PUSHACC1 - 1770 PUSHOFFSETCLOSURE0 + 1767 ACC1 + 1768 GETFIELD1 + 1769 PUSHACC1 + 1770 PUSHOFFSETCLOSURE0 1771 APPTERM2 4 1773 RETURN 2 - 1775 RESTART + 1775 RESTART 1776 GRAB 1 - 1778 ACC1 + 1778 ACC1 1779 BRANCHIFNOT 1794 - 1781 ACC0 - 1782 PUSHACC2 - 1783 GETFIELD0 - 1784 GETFIELD0 - 1785 EQ + 1781 ACC0 + 1782 PUSHACC2 + 1783 GETFIELD0 + 1784 GETFIELD0 + 1785 EQ 1786 BRANCHIF 1794 - 1788 ACC1 - 1789 GETFIELD1 - 1790 PUSHACC1 - 1791 PUSHOFFSETCLOSURE0 + 1788 ACC1 + 1789 GETFIELD1 + 1790 PUSHACC1 + 1791 PUSHOFFSETCLOSURE0 1792 APPTERM2 4 1794 RETURN 2 - 1796 RESTART + 1796 RESTART 1797 GRAB 1 - 1799 ACC1 + 1799 ACC1 1800 BRANCHIFNOT 1825 - 1802 ACC1 - 1803 GETFIELD0 - 1804 PUSHACC2 - 1805 GETFIELD1 - 1806 PUSHACC2 - 1807 PUSHACC2 - 1808 GETFIELD0 + 1802 ACC1 + 1803 GETFIELD0 + 1804 PUSHACC2 + 1805 GETFIELD1 + 1806 PUSHACC2 + 1807 PUSHACC2 + 1808 GETFIELD0 1809 C_CALL2 equal 1811 BRANCHIFNOT 1816 - 1813 ACC0 + 1813 ACC0 1814 RETURN 4 - 1816 ACC0 - 1817 PUSHACC3 - 1818 PUSHOFFSETCLOSURE0 - 1819 APPLY2 - 1820 PUSHACC2 + 1816 ACC0 + 1817 PUSHACC3 + 1818 PUSHOFFSETCLOSURE0 + 1819 APPLY2 + 1820 PUSHACC2 1821 MAKEBLOCK2 0 1823 POP 2 1825 RETURN 2 - 1827 RESTART + 1827 RESTART 1828 GRAB 1 - 1830 ACC1 + 1830 ACC1 1831 BRANCHIFNOT 1855 - 1833 ACC1 - 1834 GETFIELD0 - 1835 PUSHACC2 - 1836 GETFIELD1 - 1837 PUSHACC2 - 1838 PUSHACC2 - 1839 GETFIELD0 - 1840 EQ + 1833 ACC1 + 1834 GETFIELD0 + 1835 PUSHACC2 + 1836 GETFIELD1 + 1837 PUSHACC2 + 1838 PUSHACC2 + 1839 GETFIELD0 + 1840 EQ 1841 BRANCHIFNOT 1846 - 1843 ACC0 + 1843 ACC0 1844 RETURN 4 - 1846 ACC0 - 1847 PUSHACC3 - 1848 PUSHOFFSETCLOSURE0 - 1849 APPLY2 - 1850 PUSHACC2 + 1846 ACC0 + 1847 PUSHACC3 + 1848 PUSHOFFSETCLOSURE0 + 1849 APPLY2 + 1850 PUSHACC2 1851 MAKEBLOCK2 0 1853 POP 2 1855 RETURN 2 - 1857 RESTART + 1857 RESTART 1858 GRAB 1 - 1860 ACC1 + 1860 ACC1 1861 BRANCHIFNOT 1879 - 1863 ACC1 - 1864 GETFIELD0 - 1865 PUSHACC0 - 1866 PUSHACC2 - 1867 APPLY1 + 1863 ACC1 + 1864 GETFIELD0 + 1865 PUSHACC0 + 1866 PUSHACC2 + 1867 APPLY1 1868 BRANCHIFNOT 1873 - 1870 ACC0 + 1870 ACC0 1871 RETURN 3 - 1873 ACC2 - 1874 GETFIELD1 - 1875 PUSHACC2 - 1876 PUSHOFFSETCLOSURE0 + 1873 ACC2 + 1874 GETFIELD1 + 1875 PUSHACC2 + 1876 PUSHOFFSETCLOSURE0 1877 APPTERM2 5 1879 GETGLOBAL Not_found 1881 MAKEBLOCK1 0 - 1883 RAISE - 1884 RESTART + 1883 RAISE + 1884 RESTART 1885 GRAB 2 - 1887 ACC2 + 1887 ACC2 1888 BRANCHIFNOT 1917 - 1890 ACC2 - 1891 GETFIELD0 - 1892 PUSHACC3 - 1893 GETFIELD1 - 1894 PUSHACC1 - 1895 PUSHENVACC2 - 1896 APPLY1 + 1890 ACC2 + 1891 GETFIELD0 + 1892 PUSHACC3 + 1893 GETFIELD1 + 1894 PUSHACC1 + 1895 PUSHENVACC2 + 1896 APPLY1 1897 BRANCHIFNOT 1908 - 1899 ACC0 - 1900 PUSHACC4 - 1901 PUSHACC4 - 1902 PUSHACC4 + 1899 ACC0 + 1900 PUSHACC4 + 1901 PUSHACC4 + 1902 PUSHACC4 1903 MAKEBLOCK2 0 - 1905 PUSHOFFSETCLOSURE0 + 1905 PUSHOFFSETCLOSURE0 1906 APPTERM3 8 - 1908 ACC0 - 1909 PUSHACC4 - 1910 PUSHACC3 + 1908 ACC0 + 1909 PUSHACC4 + 1910 PUSHACC3 1911 MAKEBLOCK2 0 - 1913 PUSHACC4 - 1914 PUSHOFFSETCLOSURE0 + 1913 PUSHACC4 + 1914 PUSHOFFSETCLOSURE0 1915 APPTERM3 8 - 1917 ACC1 - 1918 PUSHENVACC1 - 1919 APPLY1 - 1920 PUSHACC1 - 1921 PUSHENVACC1 - 1922 APPLY1 + 1917 ACC1 + 1918 PUSHENVACC1 + 1919 APPLY1 + 1920 PUSHACC1 + 1921 PUSHENVACC1 + 1922 APPLY1 1923 MAKEBLOCK2 0 1925 RETURN 3 - 1927 RESTART + 1927 RESTART 1928 GRAB 1 - 1930 ACC0 - 1931 PUSHENVACC1 + 1930 ACC0 + 1931 PUSHENVACC1 1932 CLOSUREREC 2, 1885 - 1936 ACC2 - 1937 PUSHCONST0 - 1938 PUSHCONST0 - 1939 PUSHACC3 + 1936 ACC2 + 1937 PUSHCONST0 + 1938 PUSHCONST0 + 1939 PUSHACC3 1940 APPTERM3 6 - 1942 ACC0 + 1942 ACC0 1943 BRANCHIFNOT 1967 - 1945 ACC0 - 1946 GETFIELD0 - 1947 PUSHACC1 - 1948 GETFIELD1 - 1949 PUSHOFFSETCLOSURE0 - 1950 APPLY1 - 1951 PUSHACC0 - 1952 GETFIELD1 - 1953 PUSHACC2 - 1954 GETFIELD1 + 1945 ACC0 + 1946 GETFIELD0 + 1947 PUSHACC1 + 1948 GETFIELD1 + 1949 PUSHOFFSETCLOSURE0 + 1950 APPLY1 + 1951 PUSHACC0 + 1952 GETFIELD1 + 1953 PUSHACC2 + 1954 GETFIELD1 1955 MAKEBLOCK2 0 - 1957 PUSHACC1 - 1958 GETFIELD0 - 1959 PUSHACC3 - 1960 GETFIELD0 + 1957 PUSHACC1 + 1958 GETFIELD0 + 1959 PUSHACC3 + 1960 GETFIELD0 1961 MAKEBLOCK2 0 1963 MAKEBLOCK2 0 1965 RETURN 3 1967 GETGLOBAL <0>(0, 0) 1969 RETURN 1 - 1971 RESTART + 1971 RESTART 1972 GRAB 1 - 1974 ACC0 + 1974 ACC0 1975 BRANCHIFNOT 1996 - 1977 ACC1 + 1977 ACC1 1978 BRANCHIFNOT 2003 - 1980 ACC1 - 1981 GETFIELD1 - 1982 PUSHACC1 - 1983 GETFIELD1 - 1984 PUSHOFFSETCLOSURE0 - 1985 APPLY2 - 1986 PUSHACC2 - 1987 GETFIELD0 - 1988 PUSHACC2 - 1989 GETFIELD0 + 1980 ACC1 + 1981 GETFIELD1 + 1982 PUSHACC1 + 1983 GETFIELD1 + 1984 PUSHOFFSETCLOSURE0 + 1985 APPLY2 + 1986 PUSHACC2 + 1987 GETFIELD0 + 1988 PUSHACC2 + 1989 GETFIELD0 1990 MAKEBLOCK2 0 1992 MAKEBLOCK2 0 1994 RETURN 2 - 1996 ACC1 + 1996 ACC1 1997 BRANCHIFNOT 2001 1999 BRANCH 2003 2001 RETURN 2 2003 GETGLOBAL "List.combine" 2005 PUSHGETGLOBALFIELD Pervasives, 2 2008 APPTERM1 3 - 2010 RESTART + 2010 RESTART 2011 GRAB 1 - 2013 ACC1 + 2013 ACC1 2014 BRANCHIFNOT 2038 - 2016 ACC1 - 2017 GETFIELD0 - 2018 PUSHACC2 - 2019 GETFIELD1 - 2020 PUSHACC1 - 2021 PUSHENVACC2 - 2022 APPLY1 + 2016 ACC1 + 2017 GETFIELD0 + 2018 PUSHACC2 + 2019 GETFIELD1 + 2020 PUSHACC1 + 2021 PUSHENVACC2 + 2022 APPLY1 2023 BRANCHIFNOT 2033 - 2025 ACC0 - 2026 PUSHACC3 - 2027 PUSHACC3 + 2025 ACC0 + 2026 PUSHACC3 + 2027 PUSHACC3 2028 MAKEBLOCK2 0 - 2030 PUSHOFFSETCLOSURE0 + 2030 PUSHOFFSETCLOSURE0 2031 APPTERM2 6 - 2033 ACC0 - 2034 PUSHACC3 - 2035 PUSHOFFSETCLOSURE0 + 2033 ACC0 + 2034 PUSHACC3 + 2035 PUSHOFFSETCLOSURE0 2036 APPTERM2 6 - 2038 ACC0 - 2039 PUSHENVACC1 + 2038 ACC0 + 2039 PUSHENVACC1 2040 APPTERM1 3 - 2042 ACC0 - 2043 PUSHENVACC1 + 2042 ACC0 + 2043 PUSHENVACC1 2044 CLOSUREREC 2, 2011 - 2048 CONST0 - 2049 PUSHACC1 + 2048 CONST0 + 2049 PUSHACC1 2050 APPTERM1 3 - 2052 RESTART + 2052 RESTART 2053 GRAB 2 - 2055 ACC1 + 2055 ACC1 2056 BRANCHIFNOT 2077 - 2058 ACC2 + 2058 ACC2 2059 BRANCHIFNOT 2084 - 2061 ACC2 - 2062 GETFIELD1 - 2063 PUSHACC2 - 2064 GETFIELD1 - 2065 PUSHACC2 - 2066 PUSHACC5 - 2067 GETFIELD0 - 2068 PUSHACC5 - 2069 GETFIELD0 - 2070 PUSHENVACC1 - 2071 APPLY2 + 2061 ACC2 + 2062 GETFIELD1 + 2063 PUSHACC2 + 2064 GETFIELD1 + 2065 PUSHACC2 + 2066 PUSHACC5 + 2067 GETFIELD0 + 2068 PUSHACC5 + 2069 GETFIELD0 + 2070 PUSHENVACC1 + 2071 APPLY2 2072 MAKEBLOCK2 0 - 2074 PUSHOFFSETCLOSURE0 + 2074 PUSHOFFSETCLOSURE0 2075 APPTERM3 6 - 2077 ACC2 + 2077 ACC2 2078 BRANCHIFNOT 2082 2080 BRANCH 2084 2082 RETURN 3 2084 GETGLOBAL "List.rev_map2" 2086 PUSHGETGLOBALFIELD Pervasives, 2 2089 APPTERM1 4 - 2091 RESTART + 2091 RESTART 2092 GRAB 2 - 2094 ACC0 + 2094 ACC0 2095 CLOSUREREC 1, 2053 - 2099 ACC3 - 2100 PUSHACC3 - 2101 PUSHCONST0 - 2102 PUSHACC3 + 2099 ACC3 + 2100 PUSHACC3 + 2101 PUSHCONST0 + 2102 PUSHACC3 2103 APPTERM3 7 - 2105 RESTART + 2105 RESTART 2106 GRAB 1 - 2108 ACC1 + 2108 ACC1 2109 BRANCHIFNOT 2123 - 2111 ACC1 - 2112 GETFIELD1 - 2113 PUSHACC1 - 2114 PUSHACC3 - 2115 GETFIELD0 - 2116 PUSHENVACC1 - 2117 APPLY1 + 2111 ACC1 + 2112 GETFIELD1 + 2113 PUSHACC1 + 2114 PUSHACC3 + 2115 GETFIELD0 + 2116 PUSHENVACC1 + 2117 APPLY1 2118 MAKEBLOCK2 0 - 2120 PUSHOFFSETCLOSURE0 + 2120 PUSHOFFSETCLOSURE0 2121 APPTERM2 4 - 2123 ACC0 + 2123 ACC0 2124 RETURN 2 - 2126 RESTART + 2126 RESTART 2127 GRAB 1 - 2129 ACC0 + 2129 ACC0 2130 CLOSUREREC 1, 2106 - 2134 ACC2 - 2135 PUSHCONST0 - 2136 PUSHACC2 + 2134 ACC2 + 2135 PUSHCONST0 + 2136 PUSHACC2 2137 APPTERM2 5 - 2139 CONST0 - 2140 PUSHACC1 - 2141 PUSHENVACC1 + 2139 CONST0 + 2140 PUSHACC1 + 2141 PUSHENVACC1 2142 APPTERM2 3 - 2144 ACC0 + 2144 ACC0 2145 BRANCHIFNOT 2151 - 2147 ACC0 - 2148 GETFIELD1 + 2147 ACC0 + 2148 GETFIELD1 2149 RETURN 1 2151 GETGLOBAL "tl" 2153 PUSHGETGLOBALFIELD Pervasives, 3 2156 APPTERM1 2 - 2158 ACC0 + 2158 ACC0 2159 BRANCHIFNOT 2165 - 2161 ACC0 - 2162 GETFIELD0 + 2161 ACC0 + 2162 GETFIELD0 2163 RETURN 1 2165 GETGLOBAL "hd" 2167 PUSHGETGLOBALFIELD Pervasives, 3 2170 APPTERM1 2 - 2172 ACC0 - 2173 PUSHCONST0 - 2174 PUSHENVACC1 + 2172 ACC0 + 2173 PUSHCONST0 + 2174 PUSHENVACC1 2175 APPTERM2 3 2177 CLOSUREREC 0, 1200 - 2181 ACC0 + 2181 ACC0 2182 CLOSURE 1, 2172 - 2185 PUSH + 2185 PUSH 2186 CLOSURE 0, 2158 - 2189 PUSH + 2189 PUSH 2190 CLOSURE 0, 2144 - 2193 PUSH + 2193 PUSH 2194 CLOSUREREC 0, 1217 2198 GETGLOBALFIELD Pervasives, 16 - 2201 PUSH + 2201 PUSH 2202 CLOSUREREC 0, 1259 - 2206 ACC0 + 2206 ACC0 2207 CLOSURE 1, 2139 - 2210 PUSH + 2210 PUSH 2211 CLOSUREREC 0, 1277 2215 CLOSUREREC 0, 1294 2219 CLOSURE 0, 2127 - 2222 PUSH + 2222 PUSH 2223 CLOSUREREC 0, 1316 2227 CLOSUREREC 0, 1334 2231 CLOSUREREC 0, 1354 2235 CLOSUREREC 0, 1374 2239 CLOSURE 0, 2092 - 2242 PUSH + 2242 PUSH 2243 CLOSUREREC 0, 1415 2247 CLOSUREREC 0, 1452 2251 CLOSUREREC 0, 1490 @@ -1502,9 +1502,9 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 2314 CLOSUREREC 1, 1928 2318 CLOSUREREC 0, 1942 2322 CLOSUREREC 0, 1972 - 2326 ACC0 - 2327 PUSHACC2 - 2328 PUSHACC7 + 2326 ACC0 + 2327 PUSHACC2 + 2328 PUSHACC7 2329 PUSHACC 9 2331 PUSHACC 11 2333 PUSHACC 13 @@ -1543,47 +1543,47 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 2400 POP 36 2402 SETGLOBAL List 2404 BRANCH 2432 - 2406 CONST0 - 2407 PUSHACC1 - 2408 LEINT + 2406 CONST0 + 2407 PUSHACC1 + 2408 LEINT 2409 BRANCHIFNOT 2414 - 2411 CONST0 + 2411 CONST0 2412 RETURN 1 - 2414 ACC0 + 2414 ACC0 2415 OFFSETINT -1 - 2417 PUSHOFFSETCLOSURE0 - 2418 APPLY1 - 2419 PUSHACC1 + 2417 PUSHOFFSETCLOSURE0 + 2418 APPLY1 + 2419 PUSHACC1 2420 MAKEBLOCK2 0 2422 RETURN 1 - 2424 RESTART + 2424 RESTART 2425 GRAB 1 - 2427 ACC1 - 2428 PUSHACC1 - 2429 ADDINT + 2427 ACC1 + 2428 PUSHACC1 + 2429 ADDINT 2430 RETURN 2 2432 CLOSUREREC 0, 2406 2436 CONSTINT 300 - 2438 PUSHACC1 - 2439 APPLY1 - 2440 PUSHCONST0 + 2438 PUSHACC1 + 2439 APPLY1 + 2440 PUSHCONST0 2441 C_CALL1 gc_major 2443 CONSTINT 150 2445 PUSHCONSTINT 301 - 2447 MULINT - 2448 PUSHACC1 - 2449 PUSHCONST0 - 2450 PUSH + 2447 MULINT + 2448 PUSHACC1 + 2449 PUSHCONST0 + 2450 PUSH 2451 CLOSURE 0, 2425 2454 PUSHGETGLOBALFIELD List, 12 - 2457 APPLY3 - 2458 NEQ + 2457 APPLY3 + 2458 NEQ 2459 BRANCHIFNOT 2466 2461 GETGLOBAL Not_found 2463 MAKEBLOCK1 0 - 2465 RAISE + 2465 RAISE 2466 POP 2 - 2468 ATOM0 + 2468 ATOM0 2469 SETGLOBAL T320-gc-2 - 2471 STOP + 2471 STOP **) diff --git a/testsuite/tests/tool-ocaml/t320-gc-3.ml b/testsuite/tests/tool-ocaml/t320-gc-3.ml index 7c33d2fd1..69a636823 100644 --- a/testsuite/tests/tool-ocaml/t320-gc-3.ml +++ b/testsuite/tests/tool-ocaml/t320-gc-3.ml @@ -10,599 +10,599 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 746 - 11 RESTART + 11 RESTART 12 GRAB 1 - 14 ACC0 + 14 ACC0 15 BRANCHIFNOT 28 - 17 ACC1 - 18 PUSHACC1 - 19 GETFIELD1 - 20 PUSHOFFSETCLOSURE0 - 21 APPLY2 - 22 PUSHACC1 - 23 GETFIELD0 + 17 ACC1 + 18 PUSHACC1 + 19 GETFIELD1 + 20 PUSHOFFSETCLOSURE0 + 21 APPLY2 + 22 PUSHACC1 + 23 GETFIELD0 24 MAKEBLOCK2 0 26 RETURN 2 - 28 ACC1 + 28 ACC1 29 RETURN 2 - 31 RESTART + 31 RESTART 32 GRAB 3 - 34 CONST0 - 35 PUSHACC4 - 36 LEINT + 34 CONST0 + 35 PUSHACC4 + 36 LEINT 37 BRANCHIFNOT 42 - 39 CONST0 + 39 CONST0 40 RETURN 4 - 42 ACC3 - 43 PUSHACC3 - 44 PUSHACC3 - 45 PUSHACC3 + 42 ACC3 + 43 PUSHACC3 + 44 PUSHACC3 + 45 PUSHACC3 46 C_CALL4 caml_input - 48 PUSHCONST0 - 49 PUSHACC1 - 50 EQ + 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 + 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 + 70 ACC0 71 C_CALL1 caml_input_scan_line - 73 PUSHCONST0 - 74 PUSHACC1 - 75 EQ + 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 + 82 RAISE + 83 CONST0 + 84 PUSHACC1 + 85 GTINT 86 BRANCHIFNOT 107 - 88 ACC0 + 88 ACC0 89 OFFSETINT -1 91 C_CALL1 create_string - 93 PUSHACC1 + 93 PUSHACC1 94 OFFSETINT -1 - 96 PUSHCONST0 - 97 PUSHACC2 - 98 PUSHACC5 + 96 PUSHCONST0 + 97 PUSHACC2 + 98 PUSHACC5 99 C_CALL4 caml_input - 101 ACC2 + 101 ACC2 102 C_CALL1 caml_input_char - 104 ACC0 + 104 ACC0 105 RETURN 3 - 107 ACC0 - 108 NEGINT + 107 ACC0 + 108 NEGINT 109 C_CALL1 create_string - 111 PUSHACC1 - 112 NEGINT - 113 PUSHCONST0 - 114 PUSHACC2 - 115 PUSHACC5 + 111 PUSHACC1 + 112 NEGINT + 113 PUSHCONST0 + 114 PUSHACC2 + 115 PUSHACC5 116 C_CALL4 caml_input - 118 CONST0 + 118 CONST0 119 PUSHTRAP 130 - 121 ACC6 - 122 PUSHOFFSETCLOSURE0 - 123 APPLY1 - 124 PUSHACC5 - 125 PUSHENVACC1 - 126 APPLY2 - 127 POPTRAP + 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 + 132 PUSHACC1 + 133 GETFIELD0 + 134 EQ 135 BRANCHIFNOT 140 - 137 ACC1 + 137 ACC1 138 RETURN 4 - 140 ACC0 - 141 RAISE - 142 ACC0 + 140 ACC0 + 141 RAISE + 142 ACC0 143 C_CALL1 caml_flush 145 RETURN 1 - 147 RESTART + 147 RESTART 148 GRAB 1 - 150 ACC1 - 151 PUSHACC1 + 150 ACC1 + 151 PUSHACC1 152 C_CALL2 caml_output_char 154 RETURN 2 - 156 RESTART + 156 RESTART 157 GRAB 1 - 159 ACC1 - 160 PUSHACC1 + 159 ACC1 + 160 PUSHACC1 161 C_CALL2 caml_output_char 163 RETURN 2 - 165 RESTART + 165 RESTART 166 GRAB 1 - 168 ACC1 - 169 PUSHACC1 + 168 ACC1 + 169 PUSHACC1 170 C_CALL2 caml_output_int 172 RETURN 2 - 174 RESTART + 174 RESTART 175 GRAB 1 - 177 ACC1 - 178 PUSHACC1 + 177 ACC1 + 178 PUSHACC1 179 C_CALL2 caml_seek_out 181 RETURN 2 - 183 ACC0 + 183 ACC0 184 C_CALL1 caml_pos_out 186 RETURN 1 - 188 ACC0 + 188 ACC0 189 C_CALL1 caml_channel_size 191 RETURN 1 - 193 RESTART + 193 RESTART 194 GRAB 1 - 196 ACC1 - 197 PUSHACC1 + 196 ACC1 + 197 PUSHACC1 198 C_CALL2 caml_set_binary_mode 200 RETURN 2 - 202 ACC0 + 202 ACC0 203 C_CALL1 caml_input_char 205 RETURN 1 - 207 ACC0 + 207 ACC0 208 C_CALL1 caml_input_char 210 RETURN 1 - 212 ACC0 + 212 ACC0 213 C_CALL1 caml_input_int 215 RETURN 1 - 217 ACC0 + 217 ACC0 218 C_CALL1 input_value 220 RETURN 1 - 222 RESTART + 222 RESTART 223 GRAB 1 - 225 ACC1 - 226 PUSHACC1 + 225 ACC1 + 226 PUSHACC1 227 C_CALL2 caml_seek_in 229 RETURN 2 - 231 ACC0 + 231 ACC0 232 C_CALL1 caml_pos_in 234 RETURN 1 - 236 ACC0 + 236 ACC0 237 C_CALL1 caml_channel_size 239 RETURN 1 - 241 ACC0 + 241 ACC0 242 C_CALL1 caml_close_channel 244 RETURN 1 - 246 RESTART + 246 RESTART 247 GRAB 1 - 249 ACC1 - 250 PUSHACC1 + 249 ACC1 + 250 PUSHACC1 251 C_CALL2 caml_set_binary_mode 253 RETURN 2 - 255 CONST0 - 256 PUSHENVACC1 - 257 APPLY1 - 258 ACC0 + 255 CONST0 + 256 PUSHENVACC1 + 257 APPLY1 + 258 ACC0 259 C_CALL1 sys_exit 261 RETURN 1 - 263 CONST0 - 264 PUSHENVACC1 - 265 GETFIELD0 + 263 CONST0 + 264 PUSHENVACC1 + 265 GETFIELD0 266 APPTERM1 2 - 268 CONST0 - 269 PUSHENVACC1 - 270 APPLY1 - 271 CONST0 - 272 PUSHENVACC2 + 268 CONST0 + 269 PUSHENVACC1 + 270 APPLY1 + 271 CONST0 + 272 PUSHENVACC2 273 APPTERM1 2 - 275 ENVACC1 - 276 GETFIELD0 - 277 PUSHACC0 - 278 PUSHACC2 + 275 ENVACC1 + 276 GETFIELD0 + 277 PUSHACC0 + 278 PUSHACC2 279 CLOSURE 2, 268 - 282 PUSHENVACC1 - 283 SETFIELD0 + 282 PUSHENVACC1 + 283 SETFIELD0 284 RETURN 2 - 286 ENVACC1 + 286 ENVACC1 287 C_CALL1 caml_flush - 289 ENVACC2 + 289 ENVACC2 290 C_CALL1 caml_flush 292 RETURN 1 - 294 CONST0 - 295 PUSHENVACC1 - 296 APPLY1 + 294 CONST0 + 295 PUSHENVACC1 + 296 APPLY1 297 C_CALL1 float_of_string 299 RETURN 1 - 301 CONST0 - 302 PUSHENVACC1 - 303 APPLY1 + 301 CONST0 + 302 PUSHENVACC1 + 303 APPLY1 304 C_CALL1 int_of_string 306 RETURN 1 - 308 ENVACC2 + 308 ENVACC2 309 C_CALL1 caml_flush - 311 ENVACC1 - 312 PUSHENVACC3 + 311 ENVACC1 + 312 PUSHENVACC3 313 APPTERM1 2 315 CONSTINT 13 - 317 PUSHENVACC1 + 317 PUSHENVACC1 318 C_CALL2 caml_output_char - 320 ENVACC1 + 320 ENVACC1 321 C_CALL1 caml_flush 323 RETURN 1 - 325 ACC0 - 326 PUSHENVACC1 - 327 PUSHENVACC2 - 328 APPLY2 + 325 ACC0 + 326 PUSHENVACC1 + 327 PUSHENVACC2 + 328 APPLY2 329 CONSTINT 13 - 331 PUSHENVACC1 + 331 PUSHENVACC1 332 C_CALL2 caml_output_char - 334 ENVACC1 + 334 ENVACC1 335 C_CALL1 caml_flush 337 RETURN 1 - 339 ACC0 - 340 PUSHENVACC1 - 341 APPLY1 - 342 PUSHENVACC2 - 343 PUSHENVACC3 + 339 ACC0 + 340 PUSHENVACC1 + 341 APPLY1 + 342 PUSHENVACC2 + 343 PUSHENVACC3 344 APPTERM2 3 - 346 ACC0 - 347 PUSHENVACC1 - 348 APPLY1 - 349 PUSHENVACC2 - 350 PUSHENVACC3 + 346 ACC0 + 347 PUSHENVACC1 + 348 APPLY1 + 349 PUSHENVACC2 + 350 PUSHENVACC3 351 APPTERM2 3 - 353 ACC0 - 354 PUSHENVACC1 - 355 PUSHENVACC2 + 353 ACC0 + 354 PUSHENVACC1 + 355 PUSHENVACC2 356 APPTERM2 3 - 358 ACC0 - 359 PUSHENVACC1 + 358 ACC0 + 359 PUSHENVACC1 360 C_CALL2 caml_output_char 362 RETURN 1 364 CONSTINT 13 - 366 PUSHENVACC1 + 366 PUSHENVACC1 367 C_CALL2 caml_output_char - 369 ENVACC1 + 369 ENVACC1 370 C_CALL1 caml_flush 372 RETURN 1 - 374 ACC0 - 375 PUSHENVACC1 - 376 PUSHENVACC2 - 377 APPLY2 + 374 ACC0 + 375 PUSHENVACC1 + 376 PUSHENVACC2 + 377 APPLY2 378 CONSTINT 13 - 380 PUSHENVACC1 + 380 PUSHENVACC1 381 C_CALL2 caml_output_char 383 RETURN 1 - 385 ACC0 - 386 PUSHENVACC1 - 387 APPLY1 - 388 PUSHENVACC2 - 389 PUSHENVACC3 + 385 ACC0 + 386 PUSHENVACC1 + 387 APPLY1 + 388 PUSHENVACC2 + 389 PUSHENVACC3 390 APPTERM2 3 - 392 ACC0 - 393 PUSHENVACC1 - 394 APPLY1 - 395 PUSHENVACC2 - 396 PUSHENVACC3 + 392 ACC0 + 393 PUSHENVACC1 + 394 APPLY1 + 395 PUSHENVACC2 + 396 PUSHENVACC3 397 APPTERM2 3 - 399 ACC0 - 400 PUSHENVACC1 - 401 PUSHENVACC2 + 399 ACC0 + 400 PUSHENVACC1 + 401 PUSHENVACC2 402 APPTERM2 3 - 404 ACC0 - 405 PUSHENVACC1 + 404 ACC0 + 405 PUSHENVACC1 406 C_CALL2 caml_output_char 408 RETURN 1 - 410 RESTART + 410 RESTART 411 GRAB 3 - 413 CONST0 - 414 PUSHACC3 - 415 LTINT + 413 CONST0 + 414 PUSHACC3 + 415 LTINT 416 BRANCHIF 427 - 418 ACC1 + 418 ACC1 419 C_CALL1 ml_string_length - 421 PUSHACC4 - 422 PUSHACC4 - 423 ADDINT - 424 GTINT + 421 PUSHACC4 + 422 PUSHACC4 + 423 ADDINT + 424 GTINT 425 BRANCHIFNOT 432 427 GETGLOBAL "really_input" - 429 PUSHENVACC1 + 429 PUSHENVACC1 430 APPTERM1 5 - 432 ACC3 - 433 PUSHACC3 - 434 PUSHACC3 - 435 PUSHACC3 - 436 PUSHENVACC2 + 432 ACC3 + 433 PUSHACC3 + 434 PUSHACC3 + 435 PUSHACC3 + 436 PUSHENVACC2 437 APPTERM 4, 8 - 440 RESTART + 440 RESTART 441 GRAB 3 - 443 CONST0 - 444 PUSHACC3 - 445 LTINT + 443 CONST0 + 444 PUSHACC3 + 445 LTINT 446 BRANCHIF 457 - 448 ACC1 + 448 ACC1 449 C_CALL1 ml_string_length - 451 PUSHACC4 - 452 PUSHACC4 - 453 ADDINT - 454 GTINT + 451 PUSHACC4 + 452 PUSHACC4 + 453 ADDINT + 454 GTINT 455 BRANCHIFNOT 462 457 GETGLOBAL "input" - 459 PUSHENVACC1 + 459 PUSHENVACC1 460 APPTERM1 5 - 462 ACC3 - 463 PUSHACC3 - 464 PUSHACC3 - 465 PUSHACC3 + 462 ACC3 + 463 PUSHACC3 + 464 PUSHACC3 + 465 PUSHACC3 466 C_CALL4 caml_input 468 RETURN 4 - 470 ACC0 - 471 PUSHCONST0 + 470 ACC0 + 471 PUSHCONST0 472 PUSHGETGLOBAL <0>(0, <0>(6, 0)) - 474 PUSHENVACC1 + 474 PUSHENVACC1 475 APPTERM3 4 - 477 ACC0 - 478 PUSHCONST0 + 477 ACC0 + 478 PUSHCONST0 479 PUSHGETGLOBAL <0>(0, <0>(7, 0)) - 481 PUSHENVACC1 + 481 PUSHENVACC1 482 APPTERM3 4 - 484 RESTART + 484 RESTART 485 GRAB 2 - 487 ACC1 - 488 PUSHACC1 - 489 PUSHACC4 + 487 ACC1 + 488 PUSHACC1 + 489 PUSHACC4 490 C_CALL3 sys_open 492 C_CALL1 caml_open_descriptor 494 RETURN 3 - 496 ACC0 + 496 ACC0 497 C_CALL1 caml_flush - 499 ACC0 + 499 ACC0 500 C_CALL1 caml_close_channel 502 RETURN 1 - 504 RESTART + 504 RESTART 505 GRAB 1 - 507 CONST0 - 508 PUSHACC2 - 509 PUSHACC2 + 507 CONST0 + 508 PUSHACC2 + 509 PUSHACC2 510 C_CALL3 output_value 512 RETURN 2 - 514 RESTART + 514 RESTART 515 GRAB 3 - 517 CONST0 - 518 PUSHACC3 - 519 LTINT + 517 CONST0 + 518 PUSHACC3 + 519 LTINT 520 BRANCHIF 531 - 522 ACC1 + 522 ACC1 523 C_CALL1 ml_string_length - 525 PUSHACC4 - 526 PUSHACC4 - 527 ADDINT - 528 GTINT + 525 PUSHACC4 + 526 PUSHACC4 + 527 ADDINT + 528 GTINT 529 BRANCHIFNOT 536 531 GETGLOBAL "output" - 533 PUSHENVACC1 + 533 PUSHENVACC1 534 APPTERM1 5 - 536 ACC3 - 537 PUSHACC3 - 538 PUSHACC3 - 539 PUSHACC3 + 536 ACC3 + 537 PUSHACC3 + 538 PUSHACC3 + 539 PUSHACC3 540 C_CALL4 caml_output 542 RETURN 4 - 544 RESTART + 544 RESTART 545 GRAB 1 - 547 ACC1 + 547 ACC1 548 C_CALL1 ml_string_length - 550 PUSHCONST0 - 551 PUSHACC3 - 552 PUSHACC3 + 550 PUSHCONST0 + 551 PUSHACC3 + 552 PUSHACC3 553 C_CALL4 caml_output 555 RETURN 2 - 557 ACC0 + 557 ACC0 558 PUSHCONSTINT 438 560 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(6, 0)))) - 562 PUSHENVACC1 + 562 PUSHENVACC1 563 APPTERM3 4 - 565 ACC0 + 565 ACC0 566 PUSHCONSTINT 438 568 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(7, 0)))) - 570 PUSHENVACC1 + 570 PUSHENVACC1 571 APPTERM3 4 - 573 RESTART + 573 RESTART 574 GRAB 2 - 576 ACC1 - 577 PUSHACC1 - 578 PUSHACC4 + 576 ACC1 + 577 PUSHACC1 + 578 PUSHACC4 579 C_CALL3 sys_open 581 C_CALL1 caml_open_descriptor 583 RETURN 3 - 585 ACC0 + 585 ACC0 586 PUSHGETGLOBAL "%.12g" 588 C_CALL2 format_float 590 RETURN 1 - 592 ACC0 + 592 ACC0 593 PUSHGETGLOBAL "%d" 595 C_CALL2 format_int 597 RETURN 1 599 GETGLOBAL "false" - 601 PUSHACC1 + 601 PUSHACC1 602 C_CALL2 string_equal 604 BRANCHIFNOT 609 - 606 CONST0 + 606 CONST0 607 RETURN 1 609 GETGLOBAL "true" - 611 PUSHACC1 + 611 PUSHACC1 612 C_CALL2 string_equal 614 BRANCHIFNOT 619 - 616 CONST1 + 616 CONST1 617 RETURN 1 619 GETGLOBAL "bool_of_string" - 621 PUSHENVACC1 + 621 PUSHENVACC1 622 APPTERM1 2 - 624 ACC0 + 624 ACC0 625 BRANCHIFNOT 631 627 GETGLOBAL "true" 629 RETURN 1 631 GETGLOBAL "false" 633 RETURN 1 - 635 CONST0 - 636 PUSHACC1 - 637 LTINT + 635 CONST0 + 636 PUSHACC1 + 637 LTINT 638 BRANCHIF 646 640 CONSTINT 255 - 642 PUSHACC1 - 643 GTINT + 642 PUSHACC1 + 643 GTINT 644 BRANCHIFNOT 651 646 GETGLOBAL "char_of_int" - 648 PUSHENVACC1 + 648 PUSHENVACC1 649 APPTERM1 2 - 651 ACC0 + 651 ACC0 652 RETURN 1 - 654 RESTART + 654 RESTART 655 GRAB 1 - 657 ACC0 + 657 ACC0 658 C_CALL1 ml_string_length - 660 PUSHACC2 + 660 PUSHACC2 661 C_CALL1 ml_string_length - 663 PUSHACC0 - 664 PUSHACC2 - 665 ADDINT + 663 PUSHACC0 + 664 PUSHACC2 + 665 ADDINT 666 C_CALL1 create_string - 668 PUSHACC2 - 669 PUSHCONST0 - 670 PUSHACC2 - 671 PUSHCONST0 - 672 PUSHACC7 + 668 PUSHACC2 + 669 PUSHCONST0 + 670 PUSHACC2 + 671 PUSHCONST0 + 672 PUSHACC7 673 C_CALL5 blit_string - 675 ACC1 - 676 PUSHACC3 - 677 PUSHACC2 - 678 PUSHCONST0 + 675 ACC1 + 676 PUSHACC3 + 677 PUSHACC2 + 678 PUSHCONST0 679 PUSHACC 8 681 C_CALL5 blit_string - 683 ACC0 + 683 ACC0 684 RETURN 5 686 CONSTINT -1 - 688 PUSHACC1 - 689 XORINT + 688 PUSHACC1 + 689 XORINT 690 RETURN 1 - 692 CONST0 - 693 PUSHACC1 - 694 GEINT + 692 CONST0 + 693 PUSHACC1 + 694 GEINT 695 BRANCHIFNOT 700 - 697 ACC0 + 697 ACC0 698 RETURN 1 - 700 ACC0 - 701 NEGINT + 700 ACC0 + 701 NEGINT 702 RETURN 1 - 704 RESTART + 704 RESTART 705 GRAB 1 - 707 ACC1 - 708 PUSHACC1 + 707 ACC1 + 708 PUSHACC1 709 C_CALL2 greaterequal 711 BRANCHIFNOT 716 - 713 ACC0 + 713 ACC0 714 RETURN 2 - 716 ACC1 + 716 ACC1 717 RETURN 2 - 719 RESTART + 719 RESTART 720 GRAB 1 - 722 ACC1 - 723 PUSHACC1 + 722 ACC1 + 723 PUSHACC1 724 C_CALL2 lessequal 726 BRANCHIFNOT 731 - 728 ACC0 + 728 ACC0 729 RETURN 2 - 731 ACC1 + 731 ACC1 732 RETURN 2 - 734 ACC0 + 734 ACC0 735 PUSHGETGLOBAL Invalid_argument 737 MAKEBLOCK2 0 - 739 RAISE - 740 ACC0 + 739 RAISE + 740 ACC0 741 PUSHGETGLOBAL Failure 743 MAKEBLOCK2 0 - 745 RAISE + 745 RAISE 746 CLOSURE 0, 740 - 749 PUSH + 749 PUSH 750 CLOSURE 0, 734 753 PUSHGETGLOBAL "Pervasives.Exit" 755 MAKEBLOCK1 0 757 PUSHGETGLOBAL "Pervasives.Assert_failure" 759 MAKEBLOCK1 0 - 761 PUSH + 761 PUSH 762 CLOSURE 0, 720 - 765 PUSH + 765 PUSH 766 CLOSURE 0, 705 - 769 PUSH + 769 PUSH 770 CLOSURE 0, 692 - 773 PUSH + 773 PUSH 774 CLOSURE 0, 686 - 777 PUSHCONST0 + 777 PUSHCONST0 778 PUSHCONSTINT 31 - 780 PUSHCONST1 - 781 LSLINT - 782 EQ + 780 PUSHCONST1 + 781 LSLINT + 782 EQ 783 BRANCHIFNOT 789 785 CONSTINT 30 787 BRANCH 791 789 CONSTINT 62 - 791 PUSHCONST1 - 792 LSLINT - 793 PUSHACC0 + 791 PUSHCONST1 + 792 LSLINT + 793 PUSHACC0 794 OFFSETINT -1 - 796 PUSH + 796 PUSH 797 CLOSURE 0, 655 800 PUSHACC 9 802 CLOSURE 1, 635 - 805 PUSH + 805 PUSH 806 CLOSURE 0, 624 809 PUSHACC 11 811 CLOSURE 1, 599 - 814 PUSH + 814 PUSH 815 CLOSURE 0, 592 - 818 PUSH + 818 PUSH 819 CLOSURE 0, 585 - 822 PUSH + 822 PUSH 823 CLOSUREREC 0, 12 - 827 CONST0 + 827 CONST0 828 C_CALL1 caml_open_descriptor - 830 PUSHCONST1 + 830 PUSHCONST1 831 C_CALL1 caml_open_descriptor - 833 PUSHCONST2 + 833 PUSHCONST2 834 C_CALL1 caml_open_descriptor - 836 PUSH + 836 PUSH 837 CLOSURE 0, 574 - 840 PUSHACC0 + 840 PUSHACC0 841 CLOSURE 1, 565 - 844 PUSHACC1 + 844 PUSHACC1 845 CLOSURE 1, 557 - 848 PUSH + 848 PUSH 849 CLOSURE 0, 545 852 PUSHACC 22 854 CLOSURE 1, 515 - 857 PUSH + 857 PUSH 858 CLOSURE 0, 505 - 861 PUSH + 861 PUSH 862 CLOSURE 0, 496 - 865 PUSH + 865 PUSH 866 CLOSURE 0, 485 - 869 PUSHACC0 + 869 PUSHACC0 870 CLOSURE 1, 477 - 873 PUSHACC1 + 873 PUSHACC1 874 CLOSURE 1, 470 877 PUSHACC 28 879 CLOSURE 1, 441 - 882 PUSH + 882 PUSH 883 CLOSUREREC 0, 32 - 887 ACC0 + 887 ACC0 888 PUSHACC 31 890 CLOSURE 2, 411 893 PUSHACC 22 @@ -647,67 +647,67 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 985 PUSHACC 28 987 PUSHACC 30 989 CLOSURE 3, 308 - 992 PUSHACC0 + 992 PUSHACC0 993 CLOSURE 1, 301 - 996 PUSHACC1 + 996 PUSHACC1 997 CLOSURE 1, 294 1000 PUSHACC 29 1002 PUSHACC 31 1004 CLOSURE 2, 286 1007 MAKEBLOCK1 0 - 1009 PUSHACC0 + 1009 PUSHACC0 1010 CLOSURE 1, 275 - 1013 PUSHACC1 + 1013 PUSHACC1 1014 CLOSURE 1, 263 - 1017 PUSHACC0 + 1017 PUSHACC0 1018 CLOSURE 1, 255 - 1021 PUSHACC1 + 1021 PUSHACC1 1022 PUSHACC 22 - 1024 PUSHACC4 - 1025 PUSHACC3 - 1026 PUSH + 1024 PUSHACC4 + 1025 PUSHACC3 + 1026 PUSH 1027 CLOSURE 0, 247 - 1030 PUSH + 1030 PUSH 1031 CLOSURE 0, 241 - 1034 PUSH + 1034 PUSH 1035 CLOSURE 0, 236 - 1038 PUSH + 1038 PUSH 1039 CLOSURE 0, 231 - 1042 PUSH + 1042 PUSH 1043 CLOSURE 0, 223 - 1046 PUSH + 1046 PUSH 1047 CLOSURE 0, 217 - 1050 PUSH + 1050 PUSH 1051 CLOSURE 0, 212 - 1054 PUSH + 1054 PUSH 1055 CLOSURE 0, 207 1058 PUSHACC 32 1060 PUSHACC 35 1062 PUSHACC 33 - 1064 PUSH + 1064 PUSH 1065 CLOSURE 0, 202 1068 PUSHACC 41 1070 PUSHACC 40 1072 PUSHACC 42 - 1074 PUSH + 1074 PUSH 1075 CLOSURE 0, 194 1078 PUSHACC 46 - 1080 PUSH + 1080 PUSH 1081 CLOSURE 0, 188 - 1084 PUSH + 1084 PUSH 1085 CLOSURE 0, 183 - 1088 PUSH + 1088 PUSH 1089 CLOSURE 0, 175 1092 PUSHACC 51 - 1094 PUSH + 1094 PUSH 1095 CLOSURE 0, 166 - 1098 PUSH + 1098 PUSH 1099 CLOSURE 0, 157 1102 PUSHACC 55 1104 PUSHACC 57 - 1106 PUSH + 1106 PUSH 1107 CLOSURE 0, 148 - 1110 PUSH + 1110 PUSH 1111 CLOSURE 0, 142 1114 PUSHACC 63 1116 PUSHACC 62 @@ -751,38 +751,38 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 1193 POP 53 1195 SETGLOBAL Pervasives 1197 BRANCH 2177 - 1199 RESTART + 1199 RESTART 1200 GRAB 1 - 1202 ACC1 + 1202 ACC1 1203 BRANCHIFNOT 1213 - 1205 ACC1 - 1206 GETFIELD1 - 1207 PUSHACC1 + 1205 ACC1 + 1206 GETFIELD1 + 1207 PUSHACC1 1208 OFFSETINT 1 - 1210 PUSHOFFSETCLOSURE0 + 1210 PUSHOFFSETCLOSURE0 1211 APPTERM2 4 - 1213 ACC0 + 1213 ACC0 1214 RETURN 2 - 1216 RESTART + 1216 RESTART 1217 GRAB 1 - 1219 ACC0 + 1219 ACC0 1220 BRANCHIFNOT 1251 - 1222 CONST0 - 1223 PUSHACC2 - 1224 EQ + 1222 CONST0 + 1223 PUSHACC2 + 1224 EQ 1225 BRANCHIFNOT 1231 - 1227 ACC0 - 1228 GETFIELD0 + 1227 ACC0 + 1228 GETFIELD0 1229 RETURN 2 - 1231 CONST0 - 1232 PUSHACC2 - 1233 GTINT + 1231 CONST0 + 1232 PUSHACC2 + 1233 GTINT 1234 BRANCHIFNOT 1244 - 1236 ACC1 + 1236 ACC1 1237 OFFSETINT -1 - 1239 PUSHACC1 - 1240 GETFIELD1 - 1241 PUSHOFFSETCLOSURE0 + 1239 PUSHACC1 + 1240 GETFIELD1 + 1241 PUSHOFFSETCLOSURE0 1242 APPTERM2 4 1244 GETGLOBAL "List.nth" 1246 PUSHGETGLOBALFIELD Pervasives, 2 @@ -790,696 +790,696 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 1251 GETGLOBAL "nth" 1253 PUSHGETGLOBALFIELD Pervasives, 3 1256 APPTERM1 3 - 1258 RESTART + 1258 RESTART 1259 GRAB 1 - 1261 ACC0 + 1261 ACC0 1262 BRANCHIFNOT 1274 - 1264 ACC1 - 1265 PUSHACC1 - 1266 GETFIELD0 + 1264 ACC1 + 1265 PUSHACC1 + 1266 GETFIELD0 1267 MAKEBLOCK2 0 - 1269 PUSHACC1 - 1270 GETFIELD1 - 1271 PUSHOFFSETCLOSURE0 + 1269 PUSHACC1 + 1270 GETFIELD1 + 1271 PUSHOFFSETCLOSURE0 1272 APPTERM2 4 - 1274 ACC1 + 1274 ACC1 1275 RETURN 2 - 1277 ACC0 + 1277 ACC0 1278 BRANCHIFNOT 1291 - 1280 ACC0 - 1281 GETFIELD1 - 1282 PUSHOFFSETCLOSURE0 - 1283 APPLY1 - 1284 PUSHACC1 - 1285 GETFIELD0 + 1280 ACC0 + 1281 GETFIELD1 + 1282 PUSHOFFSETCLOSURE0 + 1283 APPLY1 + 1284 PUSHACC1 + 1285 GETFIELD0 1286 PUSHGETGLOBALFIELD Pervasives, 16 1289 APPTERM2 3 1291 RETURN 1 - 1293 RESTART + 1293 RESTART 1294 GRAB 1 - 1296 ACC1 + 1296 ACC1 1297 BRANCHIFNOT 1313 - 1299 ACC1 - 1300 GETFIELD0 - 1301 PUSHACC1 - 1302 APPLY1 - 1303 PUSHACC2 - 1304 GETFIELD1 - 1305 PUSHACC2 - 1306 PUSHOFFSETCLOSURE0 - 1307 APPLY2 - 1308 PUSHACC1 + 1299 ACC1 + 1300 GETFIELD0 + 1301 PUSHACC1 + 1302 APPLY1 + 1303 PUSHACC2 + 1304 GETFIELD1 + 1305 PUSHACC2 + 1306 PUSHOFFSETCLOSURE0 + 1307 APPLY2 + 1308 PUSHACC1 1309 MAKEBLOCK2 0 1311 POP 1 1313 RETURN 2 - 1315 RESTART + 1315 RESTART 1316 GRAB 1 - 1318 ACC1 + 1318 ACC1 1319 BRANCHIFNOT 1331 - 1321 ACC1 - 1322 GETFIELD0 - 1323 PUSHACC1 - 1324 APPLY1 - 1325 ACC1 - 1326 GETFIELD1 - 1327 PUSHACC1 - 1328 PUSHOFFSETCLOSURE0 + 1321 ACC1 + 1322 GETFIELD0 + 1323 PUSHACC1 + 1324 APPLY1 + 1325 ACC1 + 1326 GETFIELD1 + 1327 PUSHACC1 + 1328 PUSHOFFSETCLOSURE0 1329 APPTERM2 4 1331 RETURN 2 - 1333 RESTART + 1333 RESTART 1334 GRAB 2 - 1336 ACC2 + 1336 ACC2 1337 BRANCHIFNOT 1350 - 1339 ACC2 - 1340 GETFIELD1 - 1341 PUSHACC3 - 1342 GETFIELD0 - 1343 PUSHACC3 - 1344 PUSHACC3 - 1345 APPLY2 - 1346 PUSHACC2 - 1347 PUSHOFFSETCLOSURE0 + 1339 ACC2 + 1340 GETFIELD1 + 1341 PUSHACC3 + 1342 GETFIELD0 + 1343 PUSHACC3 + 1344 PUSHACC3 + 1345 APPLY2 + 1346 PUSHACC2 + 1347 PUSHOFFSETCLOSURE0 1348 APPTERM3 6 - 1350 ACC1 + 1350 ACC1 1351 RETURN 3 - 1353 RESTART + 1353 RESTART 1354 GRAB 2 - 1356 ACC1 + 1356 ACC1 1357 BRANCHIFNOT 1370 - 1359 ACC2 - 1360 PUSHACC2 - 1361 GETFIELD1 - 1362 PUSHACC2 - 1363 PUSHOFFSETCLOSURE0 - 1364 APPLY3 - 1365 PUSHACC2 - 1366 GETFIELD0 - 1367 PUSHACC2 + 1359 ACC2 + 1360 PUSHACC2 + 1361 GETFIELD1 + 1362 PUSHACC2 + 1363 PUSHOFFSETCLOSURE0 + 1364 APPLY3 + 1365 PUSHACC2 + 1366 GETFIELD0 + 1367 PUSHACC2 1368 APPTERM2 5 - 1370 ACC2 + 1370 ACC2 1371 RETURN 3 - 1373 RESTART + 1373 RESTART 1374 GRAB 2 - 1376 ACC1 + 1376 ACC1 1377 BRANCHIFNOT 1400 - 1379 ACC2 + 1379 ACC2 1380 BRANCHIFNOT 1407 - 1382 ACC2 - 1383 GETFIELD0 - 1384 PUSHACC2 - 1385 GETFIELD0 - 1386 PUSHACC2 - 1387 APPLY2 - 1388 PUSHACC3 - 1389 GETFIELD1 - 1390 PUSHACC3 - 1391 GETFIELD1 - 1392 PUSHACC3 - 1393 PUSHOFFSETCLOSURE0 - 1394 APPLY3 - 1395 PUSHACC1 + 1382 ACC2 + 1383 GETFIELD0 + 1384 PUSHACC2 + 1385 GETFIELD0 + 1386 PUSHACC2 + 1387 APPLY2 + 1388 PUSHACC3 + 1389 GETFIELD1 + 1390 PUSHACC3 + 1391 GETFIELD1 + 1392 PUSHACC3 + 1393 PUSHOFFSETCLOSURE0 + 1394 APPLY3 + 1395 PUSHACC1 1396 MAKEBLOCK2 0 1398 RETURN 4 - 1400 ACC2 + 1400 ACC2 1401 BRANCHIFNOT 1405 1403 BRANCH 1407 1405 RETURN 3 1407 GETGLOBAL "List.map2" 1409 PUSHGETGLOBALFIELD Pervasives, 2 1412 APPTERM1 4 - 1414 RESTART + 1414 RESTART 1415 GRAB 2 - 1417 ACC1 + 1417 ACC1 1418 BRANCHIFNOT 1437 - 1420 ACC2 + 1420 ACC2 1421 BRANCHIFNOT 1444 - 1423 ACC2 - 1424 GETFIELD0 - 1425 PUSHACC2 - 1426 GETFIELD0 - 1427 PUSHACC2 - 1428 APPLY2 - 1429 ACC2 - 1430 GETFIELD1 - 1431 PUSHACC2 - 1432 GETFIELD1 - 1433 PUSHACC2 - 1434 PUSHOFFSETCLOSURE0 + 1423 ACC2 + 1424 GETFIELD0 + 1425 PUSHACC2 + 1426 GETFIELD0 + 1427 PUSHACC2 + 1428 APPLY2 + 1429 ACC2 + 1430 GETFIELD1 + 1431 PUSHACC2 + 1432 GETFIELD1 + 1433 PUSHACC2 + 1434 PUSHOFFSETCLOSURE0 1435 APPTERM3 6 - 1437 ACC2 + 1437 ACC2 1438 BRANCHIFNOT 1442 1440 BRANCH 1444 1442 RETURN 3 1444 GETGLOBAL "List.iter2" 1446 PUSHGETGLOBALFIELD Pervasives, 2 1449 APPTERM1 4 - 1451 RESTART + 1451 RESTART 1452 GRAB 3 - 1454 ACC2 + 1454 ACC2 1455 BRANCHIFNOT 1476 - 1457 ACC3 + 1457 ACC3 1458 BRANCHIFNOT 1482 - 1460 ACC3 - 1461 GETFIELD1 - 1462 PUSHACC3 - 1463 GETFIELD1 - 1464 PUSHACC5 - 1465 GETFIELD0 - 1466 PUSHACC5 - 1467 GETFIELD0 - 1468 PUSHACC5 - 1469 PUSHACC5 - 1470 APPLY3 - 1471 PUSHACC3 - 1472 PUSHOFFSETCLOSURE0 + 1460 ACC3 + 1461 GETFIELD1 + 1462 PUSHACC3 + 1463 GETFIELD1 + 1464 PUSHACC5 + 1465 GETFIELD0 + 1466 PUSHACC5 + 1467 GETFIELD0 + 1468 PUSHACC5 + 1469 PUSHACC5 + 1470 APPLY3 + 1471 PUSHACC3 + 1472 PUSHOFFSETCLOSURE0 1473 APPTERM 4, 8 - 1476 ACC3 + 1476 ACC3 1477 BRANCHIF 1482 - 1479 ACC1 + 1479 ACC1 1480 RETURN 4 1482 GETGLOBAL "List.fold_left2" 1484 PUSHGETGLOBALFIELD Pervasives, 2 1487 APPTERM1 5 - 1489 RESTART + 1489 RESTART 1490 GRAB 3 - 1492 ACC1 + 1492 ACC1 1493 BRANCHIFNOT 1516 - 1495 ACC2 + 1495 ACC2 1496 BRANCHIFNOT 1522 1498 PUSH_RETADDR 1509 - 1500 ACC6 - 1501 PUSHACC6 - 1502 GETFIELD1 - 1503 PUSHACC6 - 1504 GETFIELD1 - 1505 PUSHACC6 - 1506 PUSHOFFSETCLOSURE0 + 1500 ACC6 + 1501 PUSHACC6 + 1502 GETFIELD1 + 1503 PUSHACC6 + 1504 GETFIELD1 + 1505 PUSHACC6 + 1506 PUSHOFFSETCLOSURE0 1507 APPLY 4 - 1509 PUSHACC3 - 1510 GETFIELD0 - 1511 PUSHACC3 - 1512 GETFIELD0 - 1513 PUSHACC3 + 1509 PUSHACC3 + 1510 GETFIELD0 + 1511 PUSHACC3 + 1512 GETFIELD0 + 1513 PUSHACC3 1514 APPTERM3 7 - 1516 ACC2 + 1516 ACC2 1517 BRANCHIF 1522 - 1519 ACC3 + 1519 ACC3 1520 RETURN 4 1522 GETGLOBAL "List.fold_right2" 1524 PUSHGETGLOBALFIELD Pervasives, 2 1527 APPTERM1 5 - 1529 RESTART + 1529 RESTART 1530 GRAB 1 - 1532 ACC1 + 1532 ACC1 1533 BRANCHIFNOT 1549 - 1535 ACC1 - 1536 GETFIELD0 - 1537 PUSHACC1 - 1538 APPLY1 + 1535 ACC1 + 1536 GETFIELD0 + 1537 PUSHACC1 + 1538 APPLY1 1539 BRANCHIFNOT 1547 - 1541 ACC1 - 1542 GETFIELD1 - 1543 PUSHACC1 - 1544 PUSHOFFSETCLOSURE0 + 1541 ACC1 + 1542 GETFIELD1 + 1543 PUSHACC1 + 1544 PUSHOFFSETCLOSURE0 1545 APPTERM2 4 1547 RETURN 2 - 1549 CONST1 + 1549 CONST1 1550 RETURN 2 - 1552 RESTART + 1552 RESTART 1553 GRAB 1 - 1555 ACC1 + 1555 ACC1 1556 BRANCHIFNOT 1570 - 1558 ACC1 - 1559 GETFIELD0 - 1560 PUSHACC1 - 1561 APPLY1 + 1558 ACC1 + 1559 GETFIELD0 + 1560 PUSHACC1 + 1561 APPLY1 1562 BRANCHIF 1570 - 1564 ACC1 - 1565 GETFIELD1 - 1566 PUSHACC1 - 1567 PUSHOFFSETCLOSURE0 + 1564 ACC1 + 1565 GETFIELD1 + 1566 PUSHACC1 + 1567 PUSHOFFSETCLOSURE0 1568 APPTERM2 4 1570 RETURN 2 - 1572 RESTART + 1572 RESTART 1573 GRAB 2 - 1575 ACC1 + 1575 ACC1 1576 BRANCHIFNOT 1599 - 1578 ACC2 + 1578 ACC2 1579 BRANCHIFNOT 1605 - 1581 ACC2 - 1582 GETFIELD0 - 1583 PUSHACC2 - 1584 GETFIELD0 - 1585 PUSHACC2 - 1586 APPLY2 + 1581 ACC2 + 1582 GETFIELD0 + 1583 PUSHACC2 + 1584 GETFIELD0 + 1585 PUSHACC2 + 1586 APPLY2 1587 BRANCHIFNOT 1597 - 1589 ACC2 - 1590 GETFIELD1 - 1591 PUSHACC2 - 1592 GETFIELD1 - 1593 PUSHACC2 - 1594 PUSHOFFSETCLOSURE0 + 1589 ACC2 + 1590 GETFIELD1 + 1591 PUSHACC2 + 1592 GETFIELD1 + 1593 PUSHACC2 + 1594 PUSHOFFSETCLOSURE0 1595 APPTERM3 6 1597 RETURN 3 - 1599 ACC2 + 1599 ACC2 1600 BRANCHIF 1605 - 1602 CONST1 + 1602 CONST1 1603 RETURN 3 1605 GETGLOBAL "List.for_all2" 1607 PUSHGETGLOBALFIELD Pervasives, 2 1610 APPTERM1 4 - 1612 RESTART + 1612 RESTART 1613 GRAB 2 - 1615 ACC1 + 1615 ACC1 1616 BRANCHIFNOT 1639 - 1618 ACC2 + 1618 ACC2 1619 BRANCHIFNOT 1646 - 1621 ACC2 - 1622 GETFIELD0 - 1623 PUSHACC2 - 1624 GETFIELD0 - 1625 PUSHACC2 - 1626 APPLY2 + 1621 ACC2 + 1622 GETFIELD0 + 1623 PUSHACC2 + 1624 GETFIELD0 + 1625 PUSHACC2 + 1626 APPLY2 1627 BRANCHIF 1637 - 1629 ACC2 - 1630 GETFIELD1 - 1631 PUSHACC2 - 1632 GETFIELD1 - 1633 PUSHACC2 - 1634 PUSHOFFSETCLOSURE0 + 1629 ACC2 + 1630 GETFIELD1 + 1631 PUSHACC2 + 1632 GETFIELD1 + 1633 PUSHACC2 + 1634 PUSHOFFSETCLOSURE0 1635 APPTERM3 6 1637 RETURN 3 - 1639 ACC2 + 1639 ACC2 1640 BRANCHIFNOT 1644 1642 BRANCH 1646 1644 RETURN 3 1646 GETGLOBAL "List.exists2" 1648 PUSHGETGLOBALFIELD Pervasives, 2 1651 APPTERM1 4 - 1653 RESTART + 1653 RESTART 1654 GRAB 1 - 1656 ACC1 + 1656 ACC1 1657 BRANCHIFNOT 1672 - 1659 ACC0 - 1660 PUSHACC2 - 1661 GETFIELD0 + 1659 ACC0 + 1660 PUSHACC2 + 1661 GETFIELD0 1662 C_CALL2 equal 1664 BRANCHIF 1672 - 1666 ACC1 - 1667 GETFIELD1 - 1668 PUSHACC1 - 1669 PUSHOFFSETCLOSURE0 + 1666 ACC1 + 1667 GETFIELD1 + 1668 PUSHACC1 + 1669 PUSHOFFSETCLOSURE0 1670 APPTERM2 4 1672 RETURN 2 - 1674 RESTART + 1674 RESTART 1675 GRAB 1 - 1677 ACC1 + 1677 ACC1 1678 BRANCHIFNOT 1692 - 1680 ACC0 - 1681 PUSHACC2 - 1682 GETFIELD0 - 1683 EQ + 1680 ACC0 + 1681 PUSHACC2 + 1682 GETFIELD0 + 1683 EQ 1684 BRANCHIF 1692 - 1686 ACC1 - 1687 GETFIELD1 - 1688 PUSHACC1 - 1689 PUSHOFFSETCLOSURE0 + 1686 ACC1 + 1687 GETFIELD1 + 1688 PUSHACC1 + 1689 PUSHOFFSETCLOSURE0 1690 APPTERM2 4 1692 RETURN 2 - 1694 RESTART + 1694 RESTART 1695 GRAB 1 - 1697 ACC1 + 1697 ACC1 1698 BRANCHIFNOT 1719 - 1700 ACC1 - 1701 GETFIELD0 - 1702 PUSHACC1 - 1703 PUSHACC1 - 1704 GETFIELD0 + 1700 ACC1 + 1701 GETFIELD0 + 1702 PUSHACC1 + 1703 PUSHACC1 + 1704 GETFIELD0 1705 C_CALL2 equal 1707 BRANCHIFNOT 1713 - 1709 ACC0 - 1710 GETFIELD1 + 1709 ACC0 + 1710 GETFIELD1 1711 RETURN 3 - 1713 ACC2 - 1714 GETFIELD1 - 1715 PUSHACC2 - 1716 PUSHOFFSETCLOSURE0 + 1713 ACC2 + 1714 GETFIELD1 + 1715 PUSHACC2 + 1716 PUSHOFFSETCLOSURE0 1717 APPTERM2 5 1719 GETGLOBAL Not_found 1721 MAKEBLOCK1 0 - 1723 RAISE - 1724 RESTART + 1723 RAISE + 1724 RESTART 1725 GRAB 1 - 1727 ACC1 + 1727 ACC1 1728 BRANCHIFNOT 1748 - 1730 ACC1 - 1731 GETFIELD0 - 1732 PUSHACC1 - 1733 PUSHACC1 - 1734 GETFIELD0 - 1735 EQ + 1730 ACC1 + 1731 GETFIELD0 + 1732 PUSHACC1 + 1733 PUSHACC1 + 1734 GETFIELD0 + 1735 EQ 1736 BRANCHIFNOT 1742 - 1738 ACC0 - 1739 GETFIELD1 + 1738 ACC0 + 1739 GETFIELD1 1740 RETURN 3 - 1742 ACC2 - 1743 GETFIELD1 - 1744 PUSHACC2 - 1745 PUSHOFFSETCLOSURE0 + 1742 ACC2 + 1743 GETFIELD1 + 1744 PUSHACC2 + 1745 PUSHOFFSETCLOSURE0 1746 APPTERM2 5 1748 GETGLOBAL Not_found 1750 MAKEBLOCK1 0 - 1752 RAISE - 1753 RESTART + 1752 RAISE + 1753 RESTART 1754 GRAB 1 - 1756 ACC1 + 1756 ACC1 1757 BRANCHIFNOT 1773 - 1759 ACC0 - 1760 PUSHACC2 - 1761 GETFIELD0 - 1762 GETFIELD0 + 1759 ACC0 + 1760 PUSHACC2 + 1761 GETFIELD0 + 1762 GETFIELD0 1763 C_CALL2 equal 1765 BRANCHIF 1773 - 1767 ACC1 - 1768 GETFIELD1 - 1769 PUSHACC1 - 1770 PUSHOFFSETCLOSURE0 + 1767 ACC1 + 1768 GETFIELD1 + 1769 PUSHACC1 + 1770 PUSHOFFSETCLOSURE0 1771 APPTERM2 4 1773 RETURN 2 - 1775 RESTART + 1775 RESTART 1776 GRAB 1 - 1778 ACC1 + 1778 ACC1 1779 BRANCHIFNOT 1794 - 1781 ACC0 - 1782 PUSHACC2 - 1783 GETFIELD0 - 1784 GETFIELD0 - 1785 EQ + 1781 ACC0 + 1782 PUSHACC2 + 1783 GETFIELD0 + 1784 GETFIELD0 + 1785 EQ 1786 BRANCHIF 1794 - 1788 ACC1 - 1789 GETFIELD1 - 1790 PUSHACC1 - 1791 PUSHOFFSETCLOSURE0 + 1788 ACC1 + 1789 GETFIELD1 + 1790 PUSHACC1 + 1791 PUSHOFFSETCLOSURE0 1792 APPTERM2 4 1794 RETURN 2 - 1796 RESTART + 1796 RESTART 1797 GRAB 1 - 1799 ACC1 + 1799 ACC1 1800 BRANCHIFNOT 1825 - 1802 ACC1 - 1803 GETFIELD0 - 1804 PUSHACC2 - 1805 GETFIELD1 - 1806 PUSHACC2 - 1807 PUSHACC2 - 1808 GETFIELD0 + 1802 ACC1 + 1803 GETFIELD0 + 1804 PUSHACC2 + 1805 GETFIELD1 + 1806 PUSHACC2 + 1807 PUSHACC2 + 1808 GETFIELD0 1809 C_CALL2 equal 1811 BRANCHIFNOT 1816 - 1813 ACC0 + 1813 ACC0 1814 RETURN 4 - 1816 ACC0 - 1817 PUSHACC3 - 1818 PUSHOFFSETCLOSURE0 - 1819 APPLY2 - 1820 PUSHACC2 + 1816 ACC0 + 1817 PUSHACC3 + 1818 PUSHOFFSETCLOSURE0 + 1819 APPLY2 + 1820 PUSHACC2 1821 MAKEBLOCK2 0 1823 POP 2 1825 RETURN 2 - 1827 RESTART + 1827 RESTART 1828 GRAB 1 - 1830 ACC1 + 1830 ACC1 1831 BRANCHIFNOT 1855 - 1833 ACC1 - 1834 GETFIELD0 - 1835 PUSHACC2 - 1836 GETFIELD1 - 1837 PUSHACC2 - 1838 PUSHACC2 - 1839 GETFIELD0 - 1840 EQ + 1833 ACC1 + 1834 GETFIELD0 + 1835 PUSHACC2 + 1836 GETFIELD1 + 1837 PUSHACC2 + 1838 PUSHACC2 + 1839 GETFIELD0 + 1840 EQ 1841 BRANCHIFNOT 1846 - 1843 ACC0 + 1843 ACC0 1844 RETURN 4 - 1846 ACC0 - 1847 PUSHACC3 - 1848 PUSHOFFSETCLOSURE0 - 1849 APPLY2 - 1850 PUSHACC2 + 1846 ACC0 + 1847 PUSHACC3 + 1848 PUSHOFFSETCLOSURE0 + 1849 APPLY2 + 1850 PUSHACC2 1851 MAKEBLOCK2 0 1853 POP 2 1855 RETURN 2 - 1857 RESTART + 1857 RESTART 1858 GRAB 1 - 1860 ACC1 + 1860 ACC1 1861 BRANCHIFNOT 1879 - 1863 ACC1 - 1864 GETFIELD0 - 1865 PUSHACC0 - 1866 PUSHACC2 - 1867 APPLY1 + 1863 ACC1 + 1864 GETFIELD0 + 1865 PUSHACC0 + 1866 PUSHACC2 + 1867 APPLY1 1868 BRANCHIFNOT 1873 - 1870 ACC0 + 1870 ACC0 1871 RETURN 3 - 1873 ACC2 - 1874 GETFIELD1 - 1875 PUSHACC2 - 1876 PUSHOFFSETCLOSURE0 + 1873 ACC2 + 1874 GETFIELD1 + 1875 PUSHACC2 + 1876 PUSHOFFSETCLOSURE0 1877 APPTERM2 5 1879 GETGLOBAL Not_found 1881 MAKEBLOCK1 0 - 1883 RAISE - 1884 RESTART + 1883 RAISE + 1884 RESTART 1885 GRAB 2 - 1887 ACC2 + 1887 ACC2 1888 BRANCHIFNOT 1917 - 1890 ACC2 - 1891 GETFIELD0 - 1892 PUSHACC3 - 1893 GETFIELD1 - 1894 PUSHACC1 - 1895 PUSHENVACC2 - 1896 APPLY1 + 1890 ACC2 + 1891 GETFIELD0 + 1892 PUSHACC3 + 1893 GETFIELD1 + 1894 PUSHACC1 + 1895 PUSHENVACC2 + 1896 APPLY1 1897 BRANCHIFNOT 1908 - 1899 ACC0 - 1900 PUSHACC4 - 1901 PUSHACC4 - 1902 PUSHACC4 + 1899 ACC0 + 1900 PUSHACC4 + 1901 PUSHACC4 + 1902 PUSHACC4 1903 MAKEBLOCK2 0 - 1905 PUSHOFFSETCLOSURE0 + 1905 PUSHOFFSETCLOSURE0 1906 APPTERM3 8 - 1908 ACC0 - 1909 PUSHACC4 - 1910 PUSHACC3 + 1908 ACC0 + 1909 PUSHACC4 + 1910 PUSHACC3 1911 MAKEBLOCK2 0 - 1913 PUSHACC4 - 1914 PUSHOFFSETCLOSURE0 + 1913 PUSHACC4 + 1914 PUSHOFFSETCLOSURE0 1915 APPTERM3 8 - 1917 ACC1 - 1918 PUSHENVACC1 - 1919 APPLY1 - 1920 PUSHACC1 - 1921 PUSHENVACC1 - 1922 APPLY1 + 1917 ACC1 + 1918 PUSHENVACC1 + 1919 APPLY1 + 1920 PUSHACC1 + 1921 PUSHENVACC1 + 1922 APPLY1 1923 MAKEBLOCK2 0 1925 RETURN 3 - 1927 RESTART + 1927 RESTART 1928 GRAB 1 - 1930 ACC0 - 1931 PUSHENVACC1 + 1930 ACC0 + 1931 PUSHENVACC1 1932 CLOSUREREC 2, 1885 - 1936 ACC2 - 1937 PUSHCONST0 - 1938 PUSHCONST0 - 1939 PUSHACC3 + 1936 ACC2 + 1937 PUSHCONST0 + 1938 PUSHCONST0 + 1939 PUSHACC3 1940 APPTERM3 6 - 1942 ACC0 + 1942 ACC0 1943 BRANCHIFNOT 1967 - 1945 ACC0 - 1946 GETFIELD0 - 1947 PUSHACC1 - 1948 GETFIELD1 - 1949 PUSHOFFSETCLOSURE0 - 1950 APPLY1 - 1951 PUSHACC0 - 1952 GETFIELD1 - 1953 PUSHACC2 - 1954 GETFIELD1 + 1945 ACC0 + 1946 GETFIELD0 + 1947 PUSHACC1 + 1948 GETFIELD1 + 1949 PUSHOFFSETCLOSURE0 + 1950 APPLY1 + 1951 PUSHACC0 + 1952 GETFIELD1 + 1953 PUSHACC2 + 1954 GETFIELD1 1955 MAKEBLOCK2 0 - 1957 PUSHACC1 - 1958 GETFIELD0 - 1959 PUSHACC3 - 1960 GETFIELD0 + 1957 PUSHACC1 + 1958 GETFIELD0 + 1959 PUSHACC3 + 1960 GETFIELD0 1961 MAKEBLOCK2 0 1963 MAKEBLOCK2 0 1965 RETURN 3 1967 GETGLOBAL <0>(0, 0) 1969 RETURN 1 - 1971 RESTART + 1971 RESTART 1972 GRAB 1 - 1974 ACC0 + 1974 ACC0 1975 BRANCHIFNOT 1996 - 1977 ACC1 + 1977 ACC1 1978 BRANCHIFNOT 2003 - 1980 ACC1 - 1981 GETFIELD1 - 1982 PUSHACC1 - 1983 GETFIELD1 - 1984 PUSHOFFSETCLOSURE0 - 1985 APPLY2 - 1986 PUSHACC2 - 1987 GETFIELD0 - 1988 PUSHACC2 - 1989 GETFIELD0 + 1980 ACC1 + 1981 GETFIELD1 + 1982 PUSHACC1 + 1983 GETFIELD1 + 1984 PUSHOFFSETCLOSURE0 + 1985 APPLY2 + 1986 PUSHACC2 + 1987 GETFIELD0 + 1988 PUSHACC2 + 1989 GETFIELD0 1990 MAKEBLOCK2 0 1992 MAKEBLOCK2 0 1994 RETURN 2 - 1996 ACC1 + 1996 ACC1 1997 BRANCHIFNOT 2001 1999 BRANCH 2003 2001 RETURN 2 2003 GETGLOBAL "List.combine" 2005 PUSHGETGLOBALFIELD Pervasives, 2 2008 APPTERM1 3 - 2010 RESTART + 2010 RESTART 2011 GRAB 1 - 2013 ACC1 + 2013 ACC1 2014 BRANCHIFNOT 2038 - 2016 ACC1 - 2017 GETFIELD0 - 2018 PUSHACC2 - 2019 GETFIELD1 - 2020 PUSHACC1 - 2021 PUSHENVACC2 - 2022 APPLY1 + 2016 ACC1 + 2017 GETFIELD0 + 2018 PUSHACC2 + 2019 GETFIELD1 + 2020 PUSHACC1 + 2021 PUSHENVACC2 + 2022 APPLY1 2023 BRANCHIFNOT 2033 - 2025 ACC0 - 2026 PUSHACC3 - 2027 PUSHACC3 + 2025 ACC0 + 2026 PUSHACC3 + 2027 PUSHACC3 2028 MAKEBLOCK2 0 - 2030 PUSHOFFSETCLOSURE0 + 2030 PUSHOFFSETCLOSURE0 2031 APPTERM2 6 - 2033 ACC0 - 2034 PUSHACC3 - 2035 PUSHOFFSETCLOSURE0 + 2033 ACC0 + 2034 PUSHACC3 + 2035 PUSHOFFSETCLOSURE0 2036 APPTERM2 6 - 2038 ACC0 - 2039 PUSHENVACC1 + 2038 ACC0 + 2039 PUSHENVACC1 2040 APPTERM1 3 - 2042 ACC0 - 2043 PUSHENVACC1 + 2042 ACC0 + 2043 PUSHENVACC1 2044 CLOSUREREC 2, 2011 - 2048 CONST0 - 2049 PUSHACC1 + 2048 CONST0 + 2049 PUSHACC1 2050 APPTERM1 3 - 2052 RESTART + 2052 RESTART 2053 GRAB 2 - 2055 ACC1 + 2055 ACC1 2056 BRANCHIFNOT 2077 - 2058 ACC2 + 2058 ACC2 2059 BRANCHIFNOT 2084 - 2061 ACC2 - 2062 GETFIELD1 - 2063 PUSHACC2 - 2064 GETFIELD1 - 2065 PUSHACC2 - 2066 PUSHACC5 - 2067 GETFIELD0 - 2068 PUSHACC5 - 2069 GETFIELD0 - 2070 PUSHENVACC1 - 2071 APPLY2 + 2061 ACC2 + 2062 GETFIELD1 + 2063 PUSHACC2 + 2064 GETFIELD1 + 2065 PUSHACC2 + 2066 PUSHACC5 + 2067 GETFIELD0 + 2068 PUSHACC5 + 2069 GETFIELD0 + 2070 PUSHENVACC1 + 2071 APPLY2 2072 MAKEBLOCK2 0 - 2074 PUSHOFFSETCLOSURE0 + 2074 PUSHOFFSETCLOSURE0 2075 APPTERM3 6 - 2077 ACC2 + 2077 ACC2 2078 BRANCHIFNOT 2082 2080 BRANCH 2084 2082 RETURN 3 2084 GETGLOBAL "List.rev_map2" 2086 PUSHGETGLOBALFIELD Pervasives, 2 2089 APPTERM1 4 - 2091 RESTART + 2091 RESTART 2092 GRAB 2 - 2094 ACC0 + 2094 ACC0 2095 CLOSUREREC 1, 2053 - 2099 ACC3 - 2100 PUSHACC3 - 2101 PUSHCONST0 - 2102 PUSHACC3 + 2099 ACC3 + 2100 PUSHACC3 + 2101 PUSHCONST0 + 2102 PUSHACC3 2103 APPTERM3 7 - 2105 RESTART + 2105 RESTART 2106 GRAB 1 - 2108 ACC1 + 2108 ACC1 2109 BRANCHIFNOT 2123 - 2111 ACC1 - 2112 GETFIELD1 - 2113 PUSHACC1 - 2114 PUSHACC3 - 2115 GETFIELD0 - 2116 PUSHENVACC1 - 2117 APPLY1 + 2111 ACC1 + 2112 GETFIELD1 + 2113 PUSHACC1 + 2114 PUSHACC3 + 2115 GETFIELD0 + 2116 PUSHENVACC1 + 2117 APPLY1 2118 MAKEBLOCK2 0 - 2120 PUSHOFFSETCLOSURE0 + 2120 PUSHOFFSETCLOSURE0 2121 APPTERM2 4 - 2123 ACC0 + 2123 ACC0 2124 RETURN 2 - 2126 RESTART + 2126 RESTART 2127 GRAB 1 - 2129 ACC0 + 2129 ACC0 2130 CLOSUREREC 1, 2106 - 2134 ACC2 - 2135 PUSHCONST0 - 2136 PUSHACC2 + 2134 ACC2 + 2135 PUSHCONST0 + 2136 PUSHACC2 2137 APPTERM2 5 - 2139 CONST0 - 2140 PUSHACC1 - 2141 PUSHENVACC1 + 2139 CONST0 + 2140 PUSHACC1 + 2141 PUSHENVACC1 2142 APPTERM2 3 - 2144 ACC0 + 2144 ACC0 2145 BRANCHIFNOT 2151 - 2147 ACC0 - 2148 GETFIELD1 + 2147 ACC0 + 2148 GETFIELD1 2149 RETURN 1 2151 GETGLOBAL "tl" 2153 PUSHGETGLOBALFIELD Pervasives, 3 2156 APPTERM1 2 - 2158 ACC0 + 2158 ACC0 2159 BRANCHIFNOT 2165 - 2161 ACC0 - 2162 GETFIELD0 + 2161 ACC0 + 2162 GETFIELD0 2163 RETURN 1 2165 GETGLOBAL "hd" 2167 PUSHGETGLOBALFIELD Pervasives, 3 2170 APPTERM1 2 - 2172 ACC0 - 2173 PUSHCONST0 - 2174 PUSHENVACC1 + 2172 ACC0 + 2173 PUSHCONST0 + 2174 PUSHENVACC1 2175 APPTERM2 3 2177 CLOSUREREC 0, 1200 - 2181 ACC0 + 2181 ACC0 2182 CLOSURE 1, 2172 - 2185 PUSH + 2185 PUSH 2186 CLOSURE 0, 2158 - 2189 PUSH + 2189 PUSH 2190 CLOSURE 0, 2144 - 2193 PUSH + 2193 PUSH 2194 CLOSUREREC 0, 1217 2198 GETGLOBALFIELD Pervasives, 16 - 2201 PUSH + 2201 PUSH 2202 CLOSUREREC 0, 1259 - 2206 ACC0 + 2206 ACC0 2207 CLOSURE 1, 2139 - 2210 PUSH + 2210 PUSH 2211 CLOSUREREC 0, 1277 2215 CLOSUREREC 0, 1294 2219 CLOSURE 0, 2127 - 2222 PUSH + 2222 PUSH 2223 CLOSUREREC 0, 1316 2227 CLOSUREREC 0, 1334 2231 CLOSUREREC 0, 1354 2235 CLOSUREREC 0, 1374 2239 CLOSURE 0, 2092 - 2242 PUSH + 2242 PUSH 2243 CLOSUREREC 0, 1415 2247 CLOSUREREC 0, 1452 2251 CLOSUREREC 0, 1490 @@ -1502,9 +1502,9 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 2314 CLOSUREREC 1, 1928 2318 CLOSUREREC 0, 1942 2322 CLOSUREREC 0, 1972 - 2326 ACC0 - 2327 PUSHACC2 - 2328 PUSHACC7 + 2326 ACC0 + 2327 PUSHACC2 + 2328 PUSHACC7 2329 PUSHACC 9 2331 PUSHACC 11 2333 PUSHACC 13 @@ -1543,47 +1543,47 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 2400 POP 36 2402 SETGLOBAL List 2404 BRANCH 2432 - 2406 CONST0 - 2407 PUSHACC1 - 2408 LEINT + 2406 CONST0 + 2407 PUSHACC1 + 2408 LEINT 2409 BRANCHIFNOT 2414 - 2411 CONST0 + 2411 CONST0 2412 RETURN 1 - 2414 ACC0 + 2414 ACC0 2415 OFFSETINT -1 - 2417 PUSHOFFSETCLOSURE0 - 2418 APPLY1 - 2419 PUSHACC1 + 2417 PUSHOFFSETCLOSURE0 + 2418 APPLY1 + 2419 PUSHACC1 2420 MAKEBLOCK2 0 2422 RETURN 1 - 2424 RESTART + 2424 RESTART 2425 GRAB 1 - 2427 ACC1 - 2428 PUSHACC1 - 2429 ADDINT + 2427 ACC1 + 2428 PUSHACC1 + 2429 ADDINT 2430 RETURN 2 2432 CLOSUREREC 0, 2406 2436 CONSTINT 300 - 2438 PUSHACC1 - 2439 APPLY1 - 2440 PUSHCONST0 + 2438 PUSHACC1 + 2439 APPLY1 + 2440 PUSHCONST0 2441 C_CALL1 gc_full_major 2443 CONSTINT 150 2445 PUSHCONSTINT 301 - 2447 MULINT - 2448 PUSHACC1 - 2449 PUSHCONST0 - 2450 PUSH + 2447 MULINT + 2448 PUSHACC1 + 2449 PUSHCONST0 + 2450 PUSH 2451 CLOSURE 0, 2425 2454 PUSHGETGLOBALFIELD List, 12 - 2457 APPLY3 - 2458 NEQ + 2457 APPLY3 + 2458 NEQ 2459 BRANCHIFNOT 2466 2461 GETGLOBAL Not_found 2463 MAKEBLOCK1 0 - 2465 RAISE + 2465 RAISE 2466 POP 2 - 2468 ATOM0 + 2468 ATOM0 2469 SETGLOBAL T320-gc-3 - 2471 STOP + 2471 STOP **) diff --git a/testsuite/tests/tool-ocaml/t330-compact-1.ml b/testsuite/tests/tool-ocaml/t330-compact-1.ml index efa958fd2..aaa80f0fe 100644 --- a/testsuite/tests/tool-ocaml/t330-compact-1.ml +++ b/testsuite/tests/tool-ocaml/t330-compact-1.ml @@ -3,13 +3,13 @@ Gc.compact ();; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib - 9 CONST0 + 9 CONST0 10 C_CALL1 gc_compaction - 12 ATOM0 + 12 ATOM0 13 SETGLOBAL T330-compact-1 - 15 STOP + 15 STOP **) diff --git a/testsuite/tests/tool-ocaml/t330-compact-2.ml b/testsuite/tests/tool-ocaml/t330-compact-2.ml index 62ab0141d..fa91834e6 100644 --- a/testsuite/tests/tool-ocaml/t330-compact-2.ml +++ b/testsuite/tests/tool-ocaml/t330-compact-2.ml @@ -4,599 +4,599 @@ let _ = Pervasives.do_at_exit();; (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 746 - 11 RESTART + 11 RESTART 12 GRAB 1 - 14 ACC0 + 14 ACC0 15 BRANCHIFNOT 28 - 17 ACC1 - 18 PUSHACC1 - 19 GETFIELD1 - 20 PUSHOFFSETCLOSURE0 - 21 APPLY2 - 22 PUSHACC1 - 23 GETFIELD0 + 17 ACC1 + 18 PUSHACC1 + 19 GETFIELD1 + 20 PUSHOFFSETCLOSURE0 + 21 APPLY2 + 22 PUSHACC1 + 23 GETFIELD0 24 MAKEBLOCK2 0 26 RETURN 2 - 28 ACC1 + 28 ACC1 29 RETURN 2 - 31 RESTART + 31 RESTART 32 GRAB 3 - 34 CONST0 - 35 PUSHACC4 - 36 LEINT + 34 CONST0 + 35 PUSHACC4 + 36 LEINT 37 BRANCHIFNOT 42 - 39 CONST0 + 39 CONST0 40 RETURN 4 - 42 ACC3 - 43 PUSHACC3 - 44 PUSHACC3 - 45 PUSHACC3 + 42 ACC3 + 43 PUSHACC3 + 44 PUSHACC3 + 45 PUSHACC3 46 C_CALL4 caml_input - 48 PUSHCONST0 - 49 PUSHACC1 - 50 EQ + 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 + 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 + 70 ACC0 71 C_CALL1 caml_input_scan_line - 73 PUSHCONST0 - 74 PUSHACC1 - 75 EQ + 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 + 82 RAISE + 83 CONST0 + 84 PUSHACC1 + 85 GTINT 86 BRANCHIFNOT 107 - 88 ACC0 + 88 ACC0 89 OFFSETINT -1 91 C_CALL1 create_string - 93 PUSHACC1 + 93 PUSHACC1 94 OFFSETINT -1 - 96 PUSHCONST0 - 97 PUSHACC2 - 98 PUSHACC5 + 96 PUSHCONST0 + 97 PUSHACC2 + 98 PUSHACC5 99 C_CALL4 caml_input - 101 ACC2 + 101 ACC2 102 C_CALL1 caml_input_char - 104 ACC0 + 104 ACC0 105 RETURN 3 - 107 ACC0 - 108 NEGINT + 107 ACC0 + 108 NEGINT 109 C_CALL1 create_string - 111 PUSHACC1 - 112 NEGINT - 113 PUSHCONST0 - 114 PUSHACC2 - 115 PUSHACC5 + 111 PUSHACC1 + 112 NEGINT + 113 PUSHCONST0 + 114 PUSHACC2 + 115 PUSHACC5 116 C_CALL4 caml_input - 118 CONST0 + 118 CONST0 119 PUSHTRAP 130 - 121 ACC6 - 122 PUSHOFFSETCLOSURE0 - 123 APPLY1 - 124 PUSHACC5 - 125 PUSHENVACC1 - 126 APPLY2 - 127 POPTRAP + 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 + 132 PUSHACC1 + 133 GETFIELD0 + 134 EQ 135 BRANCHIFNOT 140 - 137 ACC1 + 137 ACC1 138 RETURN 4 - 140 ACC0 - 141 RAISE - 142 ACC0 + 140 ACC0 + 141 RAISE + 142 ACC0 143 C_CALL1 caml_flush 145 RETURN 1 - 147 RESTART + 147 RESTART 148 GRAB 1 - 150 ACC1 - 151 PUSHACC1 + 150 ACC1 + 151 PUSHACC1 152 C_CALL2 caml_output_char 154 RETURN 2 - 156 RESTART + 156 RESTART 157 GRAB 1 - 159 ACC1 - 160 PUSHACC1 + 159 ACC1 + 160 PUSHACC1 161 C_CALL2 caml_output_char 163 RETURN 2 - 165 RESTART + 165 RESTART 166 GRAB 1 - 168 ACC1 - 169 PUSHACC1 + 168 ACC1 + 169 PUSHACC1 170 C_CALL2 caml_output_int 172 RETURN 2 - 174 RESTART + 174 RESTART 175 GRAB 1 - 177 ACC1 - 178 PUSHACC1 + 177 ACC1 + 178 PUSHACC1 179 C_CALL2 caml_seek_out 181 RETURN 2 - 183 ACC0 + 183 ACC0 184 C_CALL1 caml_pos_out 186 RETURN 1 - 188 ACC0 + 188 ACC0 189 C_CALL1 caml_channel_size 191 RETURN 1 - 193 RESTART + 193 RESTART 194 GRAB 1 - 196 ACC1 - 197 PUSHACC1 + 196 ACC1 + 197 PUSHACC1 198 C_CALL2 caml_set_binary_mode 200 RETURN 2 - 202 ACC0 + 202 ACC0 203 C_CALL1 caml_input_char 205 RETURN 1 - 207 ACC0 + 207 ACC0 208 C_CALL1 caml_input_char 210 RETURN 1 - 212 ACC0 + 212 ACC0 213 C_CALL1 caml_input_int 215 RETURN 1 - 217 ACC0 + 217 ACC0 218 C_CALL1 input_value 220 RETURN 1 - 222 RESTART + 222 RESTART 223 GRAB 1 - 225 ACC1 - 226 PUSHACC1 + 225 ACC1 + 226 PUSHACC1 227 C_CALL2 caml_seek_in 229 RETURN 2 - 231 ACC0 + 231 ACC0 232 C_CALL1 caml_pos_in 234 RETURN 1 - 236 ACC0 + 236 ACC0 237 C_CALL1 caml_channel_size 239 RETURN 1 - 241 ACC0 + 241 ACC0 242 C_CALL1 caml_close_channel 244 RETURN 1 - 246 RESTART + 246 RESTART 247 GRAB 1 - 249 ACC1 - 250 PUSHACC1 + 249 ACC1 + 250 PUSHACC1 251 C_CALL2 caml_set_binary_mode 253 RETURN 2 - 255 CONST0 - 256 PUSHENVACC1 - 257 APPLY1 - 258 ACC0 + 255 CONST0 + 256 PUSHENVACC1 + 257 APPLY1 + 258 ACC0 259 C_CALL1 sys_exit 261 RETURN 1 - 263 CONST0 - 264 PUSHENVACC1 - 265 GETFIELD0 + 263 CONST0 + 264 PUSHENVACC1 + 265 GETFIELD0 266 APPTERM1 2 - 268 CONST0 - 269 PUSHENVACC1 - 270 APPLY1 - 271 CONST0 - 272 PUSHENVACC2 + 268 CONST0 + 269 PUSHENVACC1 + 270 APPLY1 + 271 CONST0 + 272 PUSHENVACC2 273 APPTERM1 2 - 275 ENVACC1 - 276 GETFIELD0 - 277 PUSHACC0 - 278 PUSHACC2 + 275 ENVACC1 + 276 GETFIELD0 + 277 PUSHACC0 + 278 PUSHACC2 279 CLOSURE 2, 268 - 282 PUSHENVACC1 - 283 SETFIELD0 + 282 PUSHENVACC1 + 283 SETFIELD0 284 RETURN 2 - 286 ENVACC1 + 286 ENVACC1 287 C_CALL1 caml_flush - 289 ENVACC2 + 289 ENVACC2 290 C_CALL1 caml_flush 292 RETURN 1 - 294 CONST0 - 295 PUSHENVACC1 - 296 APPLY1 + 294 CONST0 + 295 PUSHENVACC1 + 296 APPLY1 297 C_CALL1 float_of_string 299 RETURN 1 - 301 CONST0 - 302 PUSHENVACC1 - 303 APPLY1 + 301 CONST0 + 302 PUSHENVACC1 + 303 APPLY1 304 C_CALL1 int_of_string 306 RETURN 1 - 308 ENVACC2 + 308 ENVACC2 309 C_CALL1 caml_flush - 311 ENVACC1 - 312 PUSHENVACC3 + 311 ENVACC1 + 312 PUSHENVACC3 313 APPTERM1 2 315 CONSTINT 13 - 317 PUSHENVACC1 + 317 PUSHENVACC1 318 C_CALL2 caml_output_char - 320 ENVACC1 + 320 ENVACC1 321 C_CALL1 caml_flush 323 RETURN 1 - 325 ACC0 - 326 PUSHENVACC1 - 327 PUSHENVACC2 - 328 APPLY2 + 325 ACC0 + 326 PUSHENVACC1 + 327 PUSHENVACC2 + 328 APPLY2 329 CONSTINT 13 - 331 PUSHENVACC1 + 331 PUSHENVACC1 332 C_CALL2 caml_output_char - 334 ENVACC1 + 334 ENVACC1 335 C_CALL1 caml_flush 337 RETURN 1 - 339 ACC0 - 340 PUSHENVACC1 - 341 APPLY1 - 342 PUSHENVACC2 - 343 PUSHENVACC3 + 339 ACC0 + 340 PUSHENVACC1 + 341 APPLY1 + 342 PUSHENVACC2 + 343 PUSHENVACC3 344 APPTERM2 3 - 346 ACC0 - 347 PUSHENVACC1 - 348 APPLY1 - 349 PUSHENVACC2 - 350 PUSHENVACC3 + 346 ACC0 + 347 PUSHENVACC1 + 348 APPLY1 + 349 PUSHENVACC2 + 350 PUSHENVACC3 351 APPTERM2 3 - 353 ACC0 - 354 PUSHENVACC1 - 355 PUSHENVACC2 + 353 ACC0 + 354 PUSHENVACC1 + 355 PUSHENVACC2 356 APPTERM2 3 - 358 ACC0 - 359 PUSHENVACC1 + 358 ACC0 + 359 PUSHENVACC1 360 C_CALL2 caml_output_char 362 RETURN 1 364 CONSTINT 13 - 366 PUSHENVACC1 + 366 PUSHENVACC1 367 C_CALL2 caml_output_char - 369 ENVACC1 + 369 ENVACC1 370 C_CALL1 caml_flush 372 RETURN 1 - 374 ACC0 - 375 PUSHENVACC1 - 376 PUSHENVACC2 - 377 APPLY2 + 374 ACC0 + 375 PUSHENVACC1 + 376 PUSHENVACC2 + 377 APPLY2 378 CONSTINT 13 - 380 PUSHENVACC1 + 380 PUSHENVACC1 381 C_CALL2 caml_output_char 383 RETURN 1 - 385 ACC0 - 386 PUSHENVACC1 - 387 APPLY1 - 388 PUSHENVACC2 - 389 PUSHENVACC3 + 385 ACC0 + 386 PUSHENVACC1 + 387 APPLY1 + 388 PUSHENVACC2 + 389 PUSHENVACC3 390 APPTERM2 3 - 392 ACC0 - 393 PUSHENVACC1 - 394 APPLY1 - 395 PUSHENVACC2 - 396 PUSHENVACC3 + 392 ACC0 + 393 PUSHENVACC1 + 394 APPLY1 + 395 PUSHENVACC2 + 396 PUSHENVACC3 397 APPTERM2 3 - 399 ACC0 - 400 PUSHENVACC1 - 401 PUSHENVACC2 + 399 ACC0 + 400 PUSHENVACC1 + 401 PUSHENVACC2 402 APPTERM2 3 - 404 ACC0 - 405 PUSHENVACC1 + 404 ACC0 + 405 PUSHENVACC1 406 C_CALL2 caml_output_char 408 RETURN 1 - 410 RESTART + 410 RESTART 411 GRAB 3 - 413 CONST0 - 414 PUSHACC3 - 415 LTINT + 413 CONST0 + 414 PUSHACC3 + 415 LTINT 416 BRANCHIF 427 - 418 ACC1 + 418 ACC1 419 C_CALL1 ml_string_length - 421 PUSHACC4 - 422 PUSHACC4 - 423 ADDINT - 424 GTINT + 421 PUSHACC4 + 422 PUSHACC4 + 423 ADDINT + 424 GTINT 425 BRANCHIFNOT 432 427 GETGLOBAL "really_input" - 429 PUSHENVACC1 + 429 PUSHENVACC1 430 APPTERM1 5 - 432 ACC3 - 433 PUSHACC3 - 434 PUSHACC3 - 435 PUSHACC3 - 436 PUSHENVACC2 + 432 ACC3 + 433 PUSHACC3 + 434 PUSHACC3 + 435 PUSHACC3 + 436 PUSHENVACC2 437 APPTERM 4, 8 - 440 RESTART + 440 RESTART 441 GRAB 3 - 443 CONST0 - 444 PUSHACC3 - 445 LTINT + 443 CONST0 + 444 PUSHACC3 + 445 LTINT 446 BRANCHIF 457 - 448 ACC1 + 448 ACC1 449 C_CALL1 ml_string_length - 451 PUSHACC4 - 452 PUSHACC4 - 453 ADDINT - 454 GTINT + 451 PUSHACC4 + 452 PUSHACC4 + 453 ADDINT + 454 GTINT 455 BRANCHIFNOT 462 457 GETGLOBAL "input" - 459 PUSHENVACC1 + 459 PUSHENVACC1 460 APPTERM1 5 - 462 ACC3 - 463 PUSHACC3 - 464 PUSHACC3 - 465 PUSHACC3 + 462 ACC3 + 463 PUSHACC3 + 464 PUSHACC3 + 465 PUSHACC3 466 C_CALL4 caml_input 468 RETURN 4 - 470 ACC0 - 471 PUSHCONST0 + 470 ACC0 + 471 PUSHCONST0 472 PUSHGETGLOBAL <0>(0, <0>(6, 0)) - 474 PUSHENVACC1 + 474 PUSHENVACC1 475 APPTERM3 4 - 477 ACC0 - 478 PUSHCONST0 + 477 ACC0 + 478 PUSHCONST0 479 PUSHGETGLOBAL <0>(0, <0>(7, 0)) - 481 PUSHENVACC1 + 481 PUSHENVACC1 482 APPTERM3 4 - 484 RESTART + 484 RESTART 485 GRAB 2 - 487 ACC1 - 488 PUSHACC1 - 489 PUSHACC4 + 487 ACC1 + 488 PUSHACC1 + 489 PUSHACC4 490 C_CALL3 sys_open 492 C_CALL1 caml_open_descriptor 494 RETURN 3 - 496 ACC0 + 496 ACC0 497 C_CALL1 caml_flush - 499 ACC0 + 499 ACC0 500 C_CALL1 caml_close_channel 502 RETURN 1 - 504 RESTART + 504 RESTART 505 GRAB 1 - 507 CONST0 - 508 PUSHACC2 - 509 PUSHACC2 + 507 CONST0 + 508 PUSHACC2 + 509 PUSHACC2 510 C_CALL3 output_value 512 RETURN 2 - 514 RESTART + 514 RESTART 515 GRAB 3 - 517 CONST0 - 518 PUSHACC3 - 519 LTINT + 517 CONST0 + 518 PUSHACC3 + 519 LTINT 520 BRANCHIF 531 - 522 ACC1 + 522 ACC1 523 C_CALL1 ml_string_length - 525 PUSHACC4 - 526 PUSHACC4 - 527 ADDINT - 528 GTINT + 525 PUSHACC4 + 526 PUSHACC4 + 527 ADDINT + 528 GTINT 529 BRANCHIFNOT 536 531 GETGLOBAL "output" - 533 PUSHENVACC1 + 533 PUSHENVACC1 534 APPTERM1 5 - 536 ACC3 - 537 PUSHACC3 - 538 PUSHACC3 - 539 PUSHACC3 + 536 ACC3 + 537 PUSHACC3 + 538 PUSHACC3 + 539 PUSHACC3 540 C_CALL4 caml_output 542 RETURN 4 - 544 RESTART + 544 RESTART 545 GRAB 1 - 547 ACC1 + 547 ACC1 548 C_CALL1 ml_string_length - 550 PUSHCONST0 - 551 PUSHACC3 - 552 PUSHACC3 + 550 PUSHCONST0 + 551 PUSHACC3 + 552 PUSHACC3 553 C_CALL4 caml_output 555 RETURN 2 - 557 ACC0 + 557 ACC0 558 PUSHCONSTINT 438 560 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(6, 0)))) - 562 PUSHENVACC1 + 562 PUSHENVACC1 563 APPTERM3 4 - 565 ACC0 + 565 ACC0 566 PUSHCONSTINT 438 568 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(7, 0)))) - 570 PUSHENVACC1 + 570 PUSHENVACC1 571 APPTERM3 4 - 573 RESTART + 573 RESTART 574 GRAB 2 - 576 ACC1 - 577 PUSHACC1 - 578 PUSHACC4 + 576 ACC1 + 577 PUSHACC1 + 578 PUSHACC4 579 C_CALL3 sys_open 581 C_CALL1 caml_open_descriptor 583 RETURN 3 - 585 ACC0 + 585 ACC0 586 PUSHGETGLOBAL "%.12g" 588 C_CALL2 format_float 590 RETURN 1 - 592 ACC0 + 592 ACC0 593 PUSHGETGLOBAL "%d" 595 C_CALL2 format_int 597 RETURN 1 599 GETGLOBAL "false" - 601 PUSHACC1 + 601 PUSHACC1 602 C_CALL2 string_equal 604 BRANCHIFNOT 609 - 606 CONST0 + 606 CONST0 607 RETURN 1 609 GETGLOBAL "true" - 611 PUSHACC1 + 611 PUSHACC1 612 C_CALL2 string_equal 614 BRANCHIFNOT 619 - 616 CONST1 + 616 CONST1 617 RETURN 1 619 GETGLOBAL "bool_of_string" - 621 PUSHENVACC1 + 621 PUSHENVACC1 622 APPTERM1 2 - 624 ACC0 + 624 ACC0 625 BRANCHIFNOT 631 627 GETGLOBAL "true" 629 RETURN 1 631 GETGLOBAL "false" 633 RETURN 1 - 635 CONST0 - 636 PUSHACC1 - 637 LTINT + 635 CONST0 + 636 PUSHACC1 + 637 LTINT 638 BRANCHIF 646 640 CONSTINT 255 - 642 PUSHACC1 - 643 GTINT + 642 PUSHACC1 + 643 GTINT 644 BRANCHIFNOT 651 646 GETGLOBAL "char_of_int" - 648 PUSHENVACC1 + 648 PUSHENVACC1 649 APPTERM1 2 - 651 ACC0 + 651 ACC0 652 RETURN 1 - 654 RESTART + 654 RESTART 655 GRAB 1 - 657 ACC0 + 657 ACC0 658 C_CALL1 ml_string_length - 660 PUSHACC2 + 660 PUSHACC2 661 C_CALL1 ml_string_length - 663 PUSHACC0 - 664 PUSHACC2 - 665 ADDINT + 663 PUSHACC0 + 664 PUSHACC2 + 665 ADDINT 666 C_CALL1 create_string - 668 PUSHACC2 - 669 PUSHCONST0 - 670 PUSHACC2 - 671 PUSHCONST0 - 672 PUSHACC7 + 668 PUSHACC2 + 669 PUSHCONST0 + 670 PUSHACC2 + 671 PUSHCONST0 + 672 PUSHACC7 673 C_CALL5 blit_string - 675 ACC1 - 676 PUSHACC3 - 677 PUSHACC2 - 678 PUSHCONST0 + 675 ACC1 + 676 PUSHACC3 + 677 PUSHACC2 + 678 PUSHCONST0 679 PUSHACC 8 681 C_CALL5 blit_string - 683 ACC0 + 683 ACC0 684 RETURN 5 686 CONSTINT -1 - 688 PUSHACC1 - 689 XORINT + 688 PUSHACC1 + 689 XORINT 690 RETURN 1 - 692 CONST0 - 693 PUSHACC1 - 694 GEINT + 692 CONST0 + 693 PUSHACC1 + 694 GEINT 695 BRANCHIFNOT 700 - 697 ACC0 + 697 ACC0 698 RETURN 1 - 700 ACC0 - 701 NEGINT + 700 ACC0 + 701 NEGINT 702 RETURN 1 - 704 RESTART + 704 RESTART 705 GRAB 1 - 707 ACC1 - 708 PUSHACC1 + 707 ACC1 + 708 PUSHACC1 709 C_CALL2 greaterequal 711 BRANCHIFNOT 716 - 713 ACC0 + 713 ACC0 714 RETURN 2 - 716 ACC1 + 716 ACC1 717 RETURN 2 - 719 RESTART + 719 RESTART 720 GRAB 1 - 722 ACC1 - 723 PUSHACC1 + 722 ACC1 + 723 PUSHACC1 724 C_CALL2 lessequal 726 BRANCHIFNOT 731 - 728 ACC0 + 728 ACC0 729 RETURN 2 - 731 ACC1 + 731 ACC1 732 RETURN 2 - 734 ACC0 + 734 ACC0 735 PUSHGETGLOBAL Invalid_argument 737 MAKEBLOCK2 0 - 739 RAISE - 740 ACC0 + 739 RAISE + 740 ACC0 741 PUSHGETGLOBAL Failure 743 MAKEBLOCK2 0 - 745 RAISE + 745 RAISE 746 CLOSURE 0, 740 - 749 PUSH + 749 PUSH 750 CLOSURE 0, 734 753 PUSHGETGLOBAL "Pervasives.Exit" 755 MAKEBLOCK1 0 757 PUSHGETGLOBAL "Pervasives.Assert_failure" 759 MAKEBLOCK1 0 - 761 PUSH + 761 PUSH 762 CLOSURE 0, 720 - 765 PUSH + 765 PUSH 766 CLOSURE 0, 705 - 769 PUSH + 769 PUSH 770 CLOSURE 0, 692 - 773 PUSH + 773 PUSH 774 CLOSURE 0, 686 - 777 PUSHCONST0 + 777 PUSHCONST0 778 PUSHCONSTINT 31 - 780 PUSHCONST1 - 781 LSLINT - 782 EQ + 780 PUSHCONST1 + 781 LSLINT + 782 EQ 783 BRANCHIFNOT 789 785 CONSTINT 30 787 BRANCH 791 789 CONSTINT 62 - 791 PUSHCONST1 - 792 LSLINT - 793 PUSHACC0 + 791 PUSHCONST1 + 792 LSLINT + 793 PUSHACC0 794 OFFSETINT -1 - 796 PUSH + 796 PUSH 797 CLOSURE 0, 655 800 PUSHACC 9 802 CLOSURE 1, 635 - 805 PUSH + 805 PUSH 806 CLOSURE 0, 624 809 PUSHACC 11 811 CLOSURE 1, 599 - 814 PUSH + 814 PUSH 815 CLOSURE 0, 592 - 818 PUSH + 818 PUSH 819 CLOSURE 0, 585 - 822 PUSH + 822 PUSH 823 CLOSUREREC 0, 12 - 827 CONST0 + 827 CONST0 828 C_CALL1 caml_open_descriptor - 830 PUSHCONST1 + 830 PUSHCONST1 831 C_CALL1 caml_open_descriptor - 833 PUSHCONST2 + 833 PUSHCONST2 834 C_CALL1 caml_open_descriptor - 836 PUSH + 836 PUSH 837 CLOSURE 0, 574 - 840 PUSHACC0 + 840 PUSHACC0 841 CLOSURE 1, 565 - 844 PUSHACC1 + 844 PUSHACC1 845 CLOSURE 1, 557 - 848 PUSH + 848 PUSH 849 CLOSURE 0, 545 852 PUSHACC 22 854 CLOSURE 1, 515 - 857 PUSH + 857 PUSH 858 CLOSURE 0, 505 - 861 PUSH + 861 PUSH 862 CLOSURE 0, 496 - 865 PUSH + 865 PUSH 866 CLOSURE 0, 485 - 869 PUSHACC0 + 869 PUSHACC0 870 CLOSURE 1, 477 - 873 PUSHACC1 + 873 PUSHACC1 874 CLOSURE 1, 470 877 PUSHACC 28 879 CLOSURE 1, 441 - 882 PUSH + 882 PUSH 883 CLOSUREREC 0, 32 - 887 ACC0 + 887 ACC0 888 PUSHACC 31 890 CLOSURE 2, 411 893 PUSHACC 22 @@ -641,67 +641,67 @@ let _ = Pervasives.do_at_exit();; 985 PUSHACC 28 987 PUSHACC 30 989 CLOSURE 3, 308 - 992 PUSHACC0 + 992 PUSHACC0 993 CLOSURE 1, 301 - 996 PUSHACC1 + 996 PUSHACC1 997 CLOSURE 1, 294 1000 PUSHACC 29 1002 PUSHACC 31 1004 CLOSURE 2, 286 1007 MAKEBLOCK1 0 - 1009 PUSHACC0 + 1009 PUSHACC0 1010 CLOSURE 1, 275 - 1013 PUSHACC1 + 1013 PUSHACC1 1014 CLOSURE 1, 263 - 1017 PUSHACC0 + 1017 PUSHACC0 1018 CLOSURE 1, 255 - 1021 PUSHACC1 + 1021 PUSHACC1 1022 PUSHACC 22 - 1024 PUSHACC4 - 1025 PUSHACC3 - 1026 PUSH + 1024 PUSHACC4 + 1025 PUSHACC3 + 1026 PUSH 1027 CLOSURE 0, 247 - 1030 PUSH + 1030 PUSH 1031 CLOSURE 0, 241 - 1034 PUSH + 1034 PUSH 1035 CLOSURE 0, 236 - 1038 PUSH + 1038 PUSH 1039 CLOSURE 0, 231 - 1042 PUSH + 1042 PUSH 1043 CLOSURE 0, 223 - 1046 PUSH + 1046 PUSH 1047 CLOSURE 0, 217 - 1050 PUSH + 1050 PUSH 1051 CLOSURE 0, 212 - 1054 PUSH + 1054 PUSH 1055 CLOSURE 0, 207 1058 PUSHACC 32 1060 PUSHACC 35 1062 PUSHACC 33 - 1064 PUSH + 1064 PUSH 1065 CLOSURE 0, 202 1068 PUSHACC 41 1070 PUSHACC 40 1072 PUSHACC 42 - 1074 PUSH + 1074 PUSH 1075 CLOSURE 0, 194 1078 PUSHACC 46 - 1080 PUSH + 1080 PUSH 1081 CLOSURE 0, 188 - 1084 PUSH + 1084 PUSH 1085 CLOSURE 0, 183 - 1088 PUSH + 1088 PUSH 1089 CLOSURE 0, 175 1092 PUSHACC 51 - 1094 PUSH + 1094 PUSH 1095 CLOSURE 0, 166 - 1098 PUSH + 1098 PUSH 1099 CLOSURE 0, 157 1102 PUSHACC 55 1104 PUSHACC 57 - 1106 PUSH + 1106 PUSH 1107 CLOSURE 0, 148 - 1110 PUSH + 1110 PUSH 1111 CLOSURE 0, 142 1114 PUSHACC 63 1116 PUSHACC 62 @@ -744,12 +744,12 @@ let _ = Pervasives.do_at_exit();; 1190 MAKEBLOCK 69, 0 1193 POP 53 1195 SETGLOBAL Pervasives - 1197 CONST0 + 1197 CONST0 1198 C_CALL1 gc_compaction - 1200 CONST0 + 1200 CONST0 1201 PUSHGETGLOBALFIELD Pervasives, 68 - 1204 APPLY1 - 1205 ATOM0 + 1204 APPLY1 + 1205 ATOM0 1206 SETGLOBAL T330-compact-2 - 1208 STOP + 1208 STOP **) diff --git a/testsuite/tests/tool-ocaml/t330-compact-3.ml b/testsuite/tests/tool-ocaml/t330-compact-3.ml index f25c64ef0..44d80a7d2 100644 --- a/testsuite/tests/tool-ocaml/t330-compact-3.ml +++ b/testsuite/tests/tool-ocaml/t330-compact-3.ml @@ -10,599 +10,599 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 746 - 11 RESTART + 11 RESTART 12 GRAB 1 - 14 ACC0 + 14 ACC0 15 BRANCHIFNOT 28 - 17 ACC1 - 18 PUSHACC1 - 19 GETFIELD1 - 20 PUSHOFFSETCLOSURE0 - 21 APPLY2 - 22 PUSHACC1 - 23 GETFIELD0 + 17 ACC1 + 18 PUSHACC1 + 19 GETFIELD1 + 20 PUSHOFFSETCLOSURE0 + 21 APPLY2 + 22 PUSHACC1 + 23 GETFIELD0 24 MAKEBLOCK2 0 26 RETURN 2 - 28 ACC1 + 28 ACC1 29 RETURN 2 - 31 RESTART + 31 RESTART 32 GRAB 3 - 34 CONST0 - 35 PUSHACC4 - 36 LEINT + 34 CONST0 + 35 PUSHACC4 + 36 LEINT 37 BRANCHIFNOT 42 - 39 CONST0 + 39 CONST0 40 RETURN 4 - 42 ACC3 - 43 PUSHACC3 - 44 PUSHACC3 - 45 PUSHACC3 + 42 ACC3 + 43 PUSHACC3 + 44 PUSHACC3 + 45 PUSHACC3 46 C_CALL4 caml_input - 48 PUSHCONST0 - 49 PUSHACC1 - 50 EQ + 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 + 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 + 70 ACC0 71 C_CALL1 caml_input_scan_line - 73 PUSHCONST0 - 74 PUSHACC1 - 75 EQ + 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 + 82 RAISE + 83 CONST0 + 84 PUSHACC1 + 85 GTINT 86 BRANCHIFNOT 107 - 88 ACC0 + 88 ACC0 89 OFFSETINT -1 91 C_CALL1 create_string - 93 PUSHACC1 + 93 PUSHACC1 94 OFFSETINT -1 - 96 PUSHCONST0 - 97 PUSHACC2 - 98 PUSHACC5 + 96 PUSHCONST0 + 97 PUSHACC2 + 98 PUSHACC5 99 C_CALL4 caml_input - 101 ACC2 + 101 ACC2 102 C_CALL1 caml_input_char - 104 ACC0 + 104 ACC0 105 RETURN 3 - 107 ACC0 - 108 NEGINT + 107 ACC0 + 108 NEGINT 109 C_CALL1 create_string - 111 PUSHACC1 - 112 NEGINT - 113 PUSHCONST0 - 114 PUSHACC2 - 115 PUSHACC5 + 111 PUSHACC1 + 112 NEGINT + 113 PUSHCONST0 + 114 PUSHACC2 + 115 PUSHACC5 116 C_CALL4 caml_input - 118 CONST0 + 118 CONST0 119 PUSHTRAP 130 - 121 ACC6 - 122 PUSHOFFSETCLOSURE0 - 123 APPLY1 - 124 PUSHACC5 - 125 PUSHENVACC1 - 126 APPLY2 - 127 POPTRAP + 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 + 132 PUSHACC1 + 133 GETFIELD0 + 134 EQ 135 BRANCHIFNOT 140 - 137 ACC1 + 137 ACC1 138 RETURN 4 - 140 ACC0 - 141 RAISE - 142 ACC0 + 140 ACC0 + 141 RAISE + 142 ACC0 143 C_CALL1 caml_flush 145 RETURN 1 - 147 RESTART + 147 RESTART 148 GRAB 1 - 150 ACC1 - 151 PUSHACC1 + 150 ACC1 + 151 PUSHACC1 152 C_CALL2 caml_output_char 154 RETURN 2 - 156 RESTART + 156 RESTART 157 GRAB 1 - 159 ACC1 - 160 PUSHACC1 + 159 ACC1 + 160 PUSHACC1 161 C_CALL2 caml_output_char 163 RETURN 2 - 165 RESTART + 165 RESTART 166 GRAB 1 - 168 ACC1 - 169 PUSHACC1 + 168 ACC1 + 169 PUSHACC1 170 C_CALL2 caml_output_int 172 RETURN 2 - 174 RESTART + 174 RESTART 175 GRAB 1 - 177 ACC1 - 178 PUSHACC1 + 177 ACC1 + 178 PUSHACC1 179 C_CALL2 caml_seek_out 181 RETURN 2 - 183 ACC0 + 183 ACC0 184 C_CALL1 caml_pos_out 186 RETURN 1 - 188 ACC0 + 188 ACC0 189 C_CALL1 caml_channel_size 191 RETURN 1 - 193 RESTART + 193 RESTART 194 GRAB 1 - 196 ACC1 - 197 PUSHACC1 + 196 ACC1 + 197 PUSHACC1 198 C_CALL2 caml_set_binary_mode 200 RETURN 2 - 202 ACC0 + 202 ACC0 203 C_CALL1 caml_input_char 205 RETURN 1 - 207 ACC0 + 207 ACC0 208 C_CALL1 caml_input_char 210 RETURN 1 - 212 ACC0 + 212 ACC0 213 C_CALL1 caml_input_int 215 RETURN 1 - 217 ACC0 + 217 ACC0 218 C_CALL1 input_value 220 RETURN 1 - 222 RESTART + 222 RESTART 223 GRAB 1 - 225 ACC1 - 226 PUSHACC1 + 225 ACC1 + 226 PUSHACC1 227 C_CALL2 caml_seek_in 229 RETURN 2 - 231 ACC0 + 231 ACC0 232 C_CALL1 caml_pos_in 234 RETURN 1 - 236 ACC0 + 236 ACC0 237 C_CALL1 caml_channel_size 239 RETURN 1 - 241 ACC0 + 241 ACC0 242 C_CALL1 caml_close_channel 244 RETURN 1 - 246 RESTART + 246 RESTART 247 GRAB 1 - 249 ACC1 - 250 PUSHACC1 + 249 ACC1 + 250 PUSHACC1 251 C_CALL2 caml_set_binary_mode 253 RETURN 2 - 255 CONST0 - 256 PUSHENVACC1 - 257 APPLY1 - 258 ACC0 + 255 CONST0 + 256 PUSHENVACC1 + 257 APPLY1 + 258 ACC0 259 C_CALL1 sys_exit 261 RETURN 1 - 263 CONST0 - 264 PUSHENVACC1 - 265 GETFIELD0 + 263 CONST0 + 264 PUSHENVACC1 + 265 GETFIELD0 266 APPTERM1 2 - 268 CONST0 - 269 PUSHENVACC1 - 270 APPLY1 - 271 CONST0 - 272 PUSHENVACC2 + 268 CONST0 + 269 PUSHENVACC1 + 270 APPLY1 + 271 CONST0 + 272 PUSHENVACC2 273 APPTERM1 2 - 275 ENVACC1 - 276 GETFIELD0 - 277 PUSHACC0 - 278 PUSHACC2 + 275 ENVACC1 + 276 GETFIELD0 + 277 PUSHACC0 + 278 PUSHACC2 279 CLOSURE 2, 268 - 282 PUSHENVACC1 - 283 SETFIELD0 + 282 PUSHENVACC1 + 283 SETFIELD0 284 RETURN 2 - 286 ENVACC1 + 286 ENVACC1 287 C_CALL1 caml_flush - 289 ENVACC2 + 289 ENVACC2 290 C_CALL1 caml_flush 292 RETURN 1 - 294 CONST0 - 295 PUSHENVACC1 - 296 APPLY1 + 294 CONST0 + 295 PUSHENVACC1 + 296 APPLY1 297 C_CALL1 float_of_string 299 RETURN 1 - 301 CONST0 - 302 PUSHENVACC1 - 303 APPLY1 + 301 CONST0 + 302 PUSHENVACC1 + 303 APPLY1 304 C_CALL1 int_of_string 306 RETURN 1 - 308 ENVACC2 + 308 ENVACC2 309 C_CALL1 caml_flush - 311 ENVACC1 - 312 PUSHENVACC3 + 311 ENVACC1 + 312 PUSHENVACC3 313 APPTERM1 2 315 CONSTINT 13 - 317 PUSHENVACC1 + 317 PUSHENVACC1 318 C_CALL2 caml_output_char - 320 ENVACC1 + 320 ENVACC1 321 C_CALL1 caml_flush 323 RETURN 1 - 325 ACC0 - 326 PUSHENVACC1 - 327 PUSHENVACC2 - 328 APPLY2 + 325 ACC0 + 326 PUSHENVACC1 + 327 PUSHENVACC2 + 328 APPLY2 329 CONSTINT 13 - 331 PUSHENVACC1 + 331 PUSHENVACC1 332 C_CALL2 caml_output_char - 334 ENVACC1 + 334 ENVACC1 335 C_CALL1 caml_flush 337 RETURN 1 - 339 ACC0 - 340 PUSHENVACC1 - 341 APPLY1 - 342 PUSHENVACC2 - 343 PUSHENVACC3 + 339 ACC0 + 340 PUSHENVACC1 + 341 APPLY1 + 342 PUSHENVACC2 + 343 PUSHENVACC3 344 APPTERM2 3 - 346 ACC0 - 347 PUSHENVACC1 - 348 APPLY1 - 349 PUSHENVACC2 - 350 PUSHENVACC3 + 346 ACC0 + 347 PUSHENVACC1 + 348 APPLY1 + 349 PUSHENVACC2 + 350 PUSHENVACC3 351 APPTERM2 3 - 353 ACC0 - 354 PUSHENVACC1 - 355 PUSHENVACC2 + 353 ACC0 + 354 PUSHENVACC1 + 355 PUSHENVACC2 356 APPTERM2 3 - 358 ACC0 - 359 PUSHENVACC1 + 358 ACC0 + 359 PUSHENVACC1 360 C_CALL2 caml_output_char 362 RETURN 1 364 CONSTINT 13 - 366 PUSHENVACC1 + 366 PUSHENVACC1 367 C_CALL2 caml_output_char - 369 ENVACC1 + 369 ENVACC1 370 C_CALL1 caml_flush 372 RETURN 1 - 374 ACC0 - 375 PUSHENVACC1 - 376 PUSHENVACC2 - 377 APPLY2 + 374 ACC0 + 375 PUSHENVACC1 + 376 PUSHENVACC2 + 377 APPLY2 378 CONSTINT 13 - 380 PUSHENVACC1 + 380 PUSHENVACC1 381 C_CALL2 caml_output_char 383 RETURN 1 - 385 ACC0 - 386 PUSHENVACC1 - 387 APPLY1 - 388 PUSHENVACC2 - 389 PUSHENVACC3 + 385 ACC0 + 386 PUSHENVACC1 + 387 APPLY1 + 388 PUSHENVACC2 + 389 PUSHENVACC3 390 APPTERM2 3 - 392 ACC0 - 393 PUSHENVACC1 - 394 APPLY1 - 395 PUSHENVACC2 - 396 PUSHENVACC3 + 392 ACC0 + 393 PUSHENVACC1 + 394 APPLY1 + 395 PUSHENVACC2 + 396 PUSHENVACC3 397 APPTERM2 3 - 399 ACC0 - 400 PUSHENVACC1 - 401 PUSHENVACC2 + 399 ACC0 + 400 PUSHENVACC1 + 401 PUSHENVACC2 402 APPTERM2 3 - 404 ACC0 - 405 PUSHENVACC1 + 404 ACC0 + 405 PUSHENVACC1 406 C_CALL2 caml_output_char 408 RETURN 1 - 410 RESTART + 410 RESTART 411 GRAB 3 - 413 CONST0 - 414 PUSHACC3 - 415 LTINT + 413 CONST0 + 414 PUSHACC3 + 415 LTINT 416 BRANCHIF 427 - 418 ACC1 + 418 ACC1 419 C_CALL1 ml_string_length - 421 PUSHACC4 - 422 PUSHACC4 - 423 ADDINT - 424 GTINT + 421 PUSHACC4 + 422 PUSHACC4 + 423 ADDINT + 424 GTINT 425 BRANCHIFNOT 432 427 GETGLOBAL "really_input" - 429 PUSHENVACC1 + 429 PUSHENVACC1 430 APPTERM1 5 - 432 ACC3 - 433 PUSHACC3 - 434 PUSHACC3 - 435 PUSHACC3 - 436 PUSHENVACC2 + 432 ACC3 + 433 PUSHACC3 + 434 PUSHACC3 + 435 PUSHACC3 + 436 PUSHENVACC2 437 APPTERM 4, 8 - 440 RESTART + 440 RESTART 441 GRAB 3 - 443 CONST0 - 444 PUSHACC3 - 445 LTINT + 443 CONST0 + 444 PUSHACC3 + 445 LTINT 446 BRANCHIF 457 - 448 ACC1 + 448 ACC1 449 C_CALL1 ml_string_length - 451 PUSHACC4 - 452 PUSHACC4 - 453 ADDINT - 454 GTINT + 451 PUSHACC4 + 452 PUSHACC4 + 453 ADDINT + 454 GTINT 455 BRANCHIFNOT 462 457 GETGLOBAL "input" - 459 PUSHENVACC1 + 459 PUSHENVACC1 460 APPTERM1 5 - 462 ACC3 - 463 PUSHACC3 - 464 PUSHACC3 - 465 PUSHACC3 + 462 ACC3 + 463 PUSHACC3 + 464 PUSHACC3 + 465 PUSHACC3 466 C_CALL4 caml_input 468 RETURN 4 - 470 ACC0 - 471 PUSHCONST0 + 470 ACC0 + 471 PUSHCONST0 472 PUSHGETGLOBAL <0>(0, <0>(6, 0)) - 474 PUSHENVACC1 + 474 PUSHENVACC1 475 APPTERM3 4 - 477 ACC0 - 478 PUSHCONST0 + 477 ACC0 + 478 PUSHCONST0 479 PUSHGETGLOBAL <0>(0, <0>(7, 0)) - 481 PUSHENVACC1 + 481 PUSHENVACC1 482 APPTERM3 4 - 484 RESTART + 484 RESTART 485 GRAB 2 - 487 ACC1 - 488 PUSHACC1 - 489 PUSHACC4 + 487 ACC1 + 488 PUSHACC1 + 489 PUSHACC4 490 C_CALL3 sys_open 492 C_CALL1 caml_open_descriptor 494 RETURN 3 - 496 ACC0 + 496 ACC0 497 C_CALL1 caml_flush - 499 ACC0 + 499 ACC0 500 C_CALL1 caml_close_channel 502 RETURN 1 - 504 RESTART + 504 RESTART 505 GRAB 1 - 507 CONST0 - 508 PUSHACC2 - 509 PUSHACC2 + 507 CONST0 + 508 PUSHACC2 + 509 PUSHACC2 510 C_CALL3 output_value 512 RETURN 2 - 514 RESTART + 514 RESTART 515 GRAB 3 - 517 CONST0 - 518 PUSHACC3 - 519 LTINT + 517 CONST0 + 518 PUSHACC3 + 519 LTINT 520 BRANCHIF 531 - 522 ACC1 + 522 ACC1 523 C_CALL1 ml_string_length - 525 PUSHACC4 - 526 PUSHACC4 - 527 ADDINT - 528 GTINT + 525 PUSHACC4 + 526 PUSHACC4 + 527 ADDINT + 528 GTINT 529 BRANCHIFNOT 536 531 GETGLOBAL "output" - 533 PUSHENVACC1 + 533 PUSHENVACC1 534 APPTERM1 5 - 536 ACC3 - 537 PUSHACC3 - 538 PUSHACC3 - 539 PUSHACC3 + 536 ACC3 + 537 PUSHACC3 + 538 PUSHACC3 + 539 PUSHACC3 540 C_CALL4 caml_output 542 RETURN 4 - 544 RESTART + 544 RESTART 545 GRAB 1 - 547 ACC1 + 547 ACC1 548 C_CALL1 ml_string_length - 550 PUSHCONST0 - 551 PUSHACC3 - 552 PUSHACC3 + 550 PUSHCONST0 + 551 PUSHACC3 + 552 PUSHACC3 553 C_CALL4 caml_output 555 RETURN 2 - 557 ACC0 + 557 ACC0 558 PUSHCONSTINT 438 560 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(6, 0)))) - 562 PUSHENVACC1 + 562 PUSHENVACC1 563 APPTERM3 4 - 565 ACC0 + 565 ACC0 566 PUSHCONSTINT 438 568 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(7, 0)))) - 570 PUSHENVACC1 + 570 PUSHENVACC1 571 APPTERM3 4 - 573 RESTART + 573 RESTART 574 GRAB 2 - 576 ACC1 - 577 PUSHACC1 - 578 PUSHACC4 + 576 ACC1 + 577 PUSHACC1 + 578 PUSHACC4 579 C_CALL3 sys_open 581 C_CALL1 caml_open_descriptor 583 RETURN 3 - 585 ACC0 + 585 ACC0 586 PUSHGETGLOBAL "%.12g" 588 C_CALL2 format_float 590 RETURN 1 - 592 ACC0 + 592 ACC0 593 PUSHGETGLOBAL "%d" 595 C_CALL2 format_int 597 RETURN 1 599 GETGLOBAL "false" - 601 PUSHACC1 + 601 PUSHACC1 602 C_CALL2 string_equal 604 BRANCHIFNOT 609 - 606 CONST0 + 606 CONST0 607 RETURN 1 609 GETGLOBAL "true" - 611 PUSHACC1 + 611 PUSHACC1 612 C_CALL2 string_equal 614 BRANCHIFNOT 619 - 616 CONST1 + 616 CONST1 617 RETURN 1 619 GETGLOBAL "bool_of_string" - 621 PUSHENVACC1 + 621 PUSHENVACC1 622 APPTERM1 2 - 624 ACC0 + 624 ACC0 625 BRANCHIFNOT 631 627 GETGLOBAL "true" 629 RETURN 1 631 GETGLOBAL "false" 633 RETURN 1 - 635 CONST0 - 636 PUSHACC1 - 637 LTINT + 635 CONST0 + 636 PUSHACC1 + 637 LTINT 638 BRANCHIF 646 640 CONSTINT 255 - 642 PUSHACC1 - 643 GTINT + 642 PUSHACC1 + 643 GTINT 644 BRANCHIFNOT 651 646 GETGLOBAL "char_of_int" - 648 PUSHENVACC1 + 648 PUSHENVACC1 649 APPTERM1 2 - 651 ACC0 + 651 ACC0 652 RETURN 1 - 654 RESTART + 654 RESTART 655 GRAB 1 - 657 ACC0 + 657 ACC0 658 C_CALL1 ml_string_length - 660 PUSHACC2 + 660 PUSHACC2 661 C_CALL1 ml_string_length - 663 PUSHACC0 - 664 PUSHACC2 - 665 ADDINT + 663 PUSHACC0 + 664 PUSHACC2 + 665 ADDINT 666 C_CALL1 create_string - 668 PUSHACC2 - 669 PUSHCONST0 - 670 PUSHACC2 - 671 PUSHCONST0 - 672 PUSHACC7 + 668 PUSHACC2 + 669 PUSHCONST0 + 670 PUSHACC2 + 671 PUSHCONST0 + 672 PUSHACC7 673 C_CALL5 blit_string - 675 ACC1 - 676 PUSHACC3 - 677 PUSHACC2 - 678 PUSHCONST0 + 675 ACC1 + 676 PUSHACC3 + 677 PUSHACC2 + 678 PUSHCONST0 679 PUSHACC 8 681 C_CALL5 blit_string - 683 ACC0 + 683 ACC0 684 RETURN 5 686 CONSTINT -1 - 688 PUSHACC1 - 689 XORINT + 688 PUSHACC1 + 689 XORINT 690 RETURN 1 - 692 CONST0 - 693 PUSHACC1 - 694 GEINT + 692 CONST0 + 693 PUSHACC1 + 694 GEINT 695 BRANCHIFNOT 700 - 697 ACC0 + 697 ACC0 698 RETURN 1 - 700 ACC0 - 701 NEGINT + 700 ACC0 + 701 NEGINT 702 RETURN 1 - 704 RESTART + 704 RESTART 705 GRAB 1 - 707 ACC1 - 708 PUSHACC1 + 707 ACC1 + 708 PUSHACC1 709 C_CALL2 greaterequal 711 BRANCHIFNOT 716 - 713 ACC0 + 713 ACC0 714 RETURN 2 - 716 ACC1 + 716 ACC1 717 RETURN 2 - 719 RESTART + 719 RESTART 720 GRAB 1 - 722 ACC1 - 723 PUSHACC1 + 722 ACC1 + 723 PUSHACC1 724 C_CALL2 lessequal 726 BRANCHIFNOT 731 - 728 ACC0 + 728 ACC0 729 RETURN 2 - 731 ACC1 + 731 ACC1 732 RETURN 2 - 734 ACC0 + 734 ACC0 735 PUSHGETGLOBAL Invalid_argument 737 MAKEBLOCK2 0 - 739 RAISE - 740 ACC0 + 739 RAISE + 740 ACC0 741 PUSHGETGLOBAL Failure 743 MAKEBLOCK2 0 - 745 RAISE + 745 RAISE 746 CLOSURE 0, 740 - 749 PUSH + 749 PUSH 750 CLOSURE 0, 734 753 PUSHGETGLOBAL "Pervasives.Exit" 755 MAKEBLOCK1 0 757 PUSHGETGLOBAL "Pervasives.Assert_failure" 759 MAKEBLOCK1 0 - 761 PUSH + 761 PUSH 762 CLOSURE 0, 720 - 765 PUSH + 765 PUSH 766 CLOSURE 0, 705 - 769 PUSH + 769 PUSH 770 CLOSURE 0, 692 - 773 PUSH + 773 PUSH 774 CLOSURE 0, 686 - 777 PUSHCONST0 + 777 PUSHCONST0 778 PUSHCONSTINT 31 - 780 PUSHCONST1 - 781 LSLINT - 782 EQ + 780 PUSHCONST1 + 781 LSLINT + 782 EQ 783 BRANCHIFNOT 789 785 CONSTINT 30 787 BRANCH 791 789 CONSTINT 62 - 791 PUSHCONST1 - 792 LSLINT - 793 PUSHACC0 + 791 PUSHCONST1 + 792 LSLINT + 793 PUSHACC0 794 OFFSETINT -1 - 796 PUSH + 796 PUSH 797 CLOSURE 0, 655 800 PUSHACC 9 802 CLOSURE 1, 635 - 805 PUSH + 805 PUSH 806 CLOSURE 0, 624 809 PUSHACC 11 811 CLOSURE 1, 599 - 814 PUSH + 814 PUSH 815 CLOSURE 0, 592 - 818 PUSH + 818 PUSH 819 CLOSURE 0, 585 - 822 PUSH + 822 PUSH 823 CLOSUREREC 0, 12 - 827 CONST0 + 827 CONST0 828 C_CALL1 caml_open_descriptor - 830 PUSHCONST1 + 830 PUSHCONST1 831 C_CALL1 caml_open_descriptor - 833 PUSHCONST2 + 833 PUSHCONST2 834 C_CALL1 caml_open_descriptor - 836 PUSH + 836 PUSH 837 CLOSURE 0, 574 - 840 PUSHACC0 + 840 PUSHACC0 841 CLOSURE 1, 565 - 844 PUSHACC1 + 844 PUSHACC1 845 CLOSURE 1, 557 - 848 PUSH + 848 PUSH 849 CLOSURE 0, 545 852 PUSHACC 22 854 CLOSURE 1, 515 - 857 PUSH + 857 PUSH 858 CLOSURE 0, 505 - 861 PUSH + 861 PUSH 862 CLOSURE 0, 496 - 865 PUSH + 865 PUSH 866 CLOSURE 0, 485 - 869 PUSHACC0 + 869 PUSHACC0 870 CLOSURE 1, 477 - 873 PUSHACC1 + 873 PUSHACC1 874 CLOSURE 1, 470 877 PUSHACC 28 879 CLOSURE 1, 441 - 882 PUSH + 882 PUSH 883 CLOSUREREC 0, 32 - 887 ACC0 + 887 ACC0 888 PUSHACC 31 890 CLOSURE 2, 411 893 PUSHACC 22 @@ -647,67 +647,67 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 985 PUSHACC 28 987 PUSHACC 30 989 CLOSURE 3, 308 - 992 PUSHACC0 + 992 PUSHACC0 993 CLOSURE 1, 301 - 996 PUSHACC1 + 996 PUSHACC1 997 CLOSURE 1, 294 1000 PUSHACC 29 1002 PUSHACC 31 1004 CLOSURE 2, 286 1007 MAKEBLOCK1 0 - 1009 PUSHACC0 + 1009 PUSHACC0 1010 CLOSURE 1, 275 - 1013 PUSHACC1 + 1013 PUSHACC1 1014 CLOSURE 1, 263 - 1017 PUSHACC0 + 1017 PUSHACC0 1018 CLOSURE 1, 255 - 1021 PUSHACC1 + 1021 PUSHACC1 1022 PUSHACC 22 - 1024 PUSHACC4 - 1025 PUSHACC3 - 1026 PUSH + 1024 PUSHACC4 + 1025 PUSHACC3 + 1026 PUSH 1027 CLOSURE 0, 247 - 1030 PUSH + 1030 PUSH 1031 CLOSURE 0, 241 - 1034 PUSH + 1034 PUSH 1035 CLOSURE 0, 236 - 1038 PUSH + 1038 PUSH 1039 CLOSURE 0, 231 - 1042 PUSH + 1042 PUSH 1043 CLOSURE 0, 223 - 1046 PUSH + 1046 PUSH 1047 CLOSURE 0, 217 - 1050 PUSH + 1050 PUSH 1051 CLOSURE 0, 212 - 1054 PUSH + 1054 PUSH 1055 CLOSURE 0, 207 1058 PUSHACC 32 1060 PUSHACC 35 1062 PUSHACC 33 - 1064 PUSH + 1064 PUSH 1065 CLOSURE 0, 202 1068 PUSHACC 41 1070 PUSHACC 40 1072 PUSHACC 42 - 1074 PUSH + 1074 PUSH 1075 CLOSURE 0, 194 1078 PUSHACC 46 - 1080 PUSH + 1080 PUSH 1081 CLOSURE 0, 188 - 1084 PUSH + 1084 PUSH 1085 CLOSURE 0, 183 - 1088 PUSH + 1088 PUSH 1089 CLOSURE 0, 175 1092 PUSHACC 51 - 1094 PUSH + 1094 PUSH 1095 CLOSURE 0, 166 - 1098 PUSH + 1098 PUSH 1099 CLOSURE 0, 157 1102 PUSHACC 55 1104 PUSHACC 57 - 1106 PUSH + 1106 PUSH 1107 CLOSURE 0, 148 - 1110 PUSH + 1110 PUSH 1111 CLOSURE 0, 142 1114 PUSHACC 63 1116 PUSHACC 62 @@ -751,38 +751,38 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 1193 POP 53 1195 SETGLOBAL Pervasives 1197 BRANCH 2177 - 1199 RESTART + 1199 RESTART 1200 GRAB 1 - 1202 ACC1 + 1202 ACC1 1203 BRANCHIFNOT 1213 - 1205 ACC1 - 1206 GETFIELD1 - 1207 PUSHACC1 + 1205 ACC1 + 1206 GETFIELD1 + 1207 PUSHACC1 1208 OFFSETINT 1 - 1210 PUSHOFFSETCLOSURE0 + 1210 PUSHOFFSETCLOSURE0 1211 APPTERM2 4 - 1213 ACC0 + 1213 ACC0 1214 RETURN 2 - 1216 RESTART + 1216 RESTART 1217 GRAB 1 - 1219 ACC0 + 1219 ACC0 1220 BRANCHIFNOT 1251 - 1222 CONST0 - 1223 PUSHACC2 - 1224 EQ + 1222 CONST0 + 1223 PUSHACC2 + 1224 EQ 1225 BRANCHIFNOT 1231 - 1227 ACC0 - 1228 GETFIELD0 + 1227 ACC0 + 1228 GETFIELD0 1229 RETURN 2 - 1231 CONST0 - 1232 PUSHACC2 - 1233 GTINT + 1231 CONST0 + 1232 PUSHACC2 + 1233 GTINT 1234 BRANCHIFNOT 1244 - 1236 ACC1 + 1236 ACC1 1237 OFFSETINT -1 - 1239 PUSHACC1 - 1240 GETFIELD1 - 1241 PUSHOFFSETCLOSURE0 + 1239 PUSHACC1 + 1240 GETFIELD1 + 1241 PUSHOFFSETCLOSURE0 1242 APPTERM2 4 1244 GETGLOBAL "List.nth" 1246 PUSHGETGLOBALFIELD Pervasives, 2 @@ -790,696 +790,696 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 1251 GETGLOBAL "nth" 1253 PUSHGETGLOBALFIELD Pervasives, 3 1256 APPTERM1 3 - 1258 RESTART + 1258 RESTART 1259 GRAB 1 - 1261 ACC0 + 1261 ACC0 1262 BRANCHIFNOT 1274 - 1264 ACC1 - 1265 PUSHACC1 - 1266 GETFIELD0 + 1264 ACC1 + 1265 PUSHACC1 + 1266 GETFIELD0 1267 MAKEBLOCK2 0 - 1269 PUSHACC1 - 1270 GETFIELD1 - 1271 PUSHOFFSETCLOSURE0 + 1269 PUSHACC1 + 1270 GETFIELD1 + 1271 PUSHOFFSETCLOSURE0 1272 APPTERM2 4 - 1274 ACC1 + 1274 ACC1 1275 RETURN 2 - 1277 ACC0 + 1277 ACC0 1278 BRANCHIFNOT 1291 - 1280 ACC0 - 1281 GETFIELD1 - 1282 PUSHOFFSETCLOSURE0 - 1283 APPLY1 - 1284 PUSHACC1 - 1285 GETFIELD0 + 1280 ACC0 + 1281 GETFIELD1 + 1282 PUSHOFFSETCLOSURE0 + 1283 APPLY1 + 1284 PUSHACC1 + 1285 GETFIELD0 1286 PUSHGETGLOBALFIELD Pervasives, 16 1289 APPTERM2 3 1291 RETURN 1 - 1293 RESTART + 1293 RESTART 1294 GRAB 1 - 1296 ACC1 + 1296 ACC1 1297 BRANCHIFNOT 1313 - 1299 ACC1 - 1300 GETFIELD0 - 1301 PUSHACC1 - 1302 APPLY1 - 1303 PUSHACC2 - 1304 GETFIELD1 - 1305 PUSHACC2 - 1306 PUSHOFFSETCLOSURE0 - 1307 APPLY2 - 1308 PUSHACC1 + 1299 ACC1 + 1300 GETFIELD0 + 1301 PUSHACC1 + 1302 APPLY1 + 1303 PUSHACC2 + 1304 GETFIELD1 + 1305 PUSHACC2 + 1306 PUSHOFFSETCLOSURE0 + 1307 APPLY2 + 1308 PUSHACC1 1309 MAKEBLOCK2 0 1311 POP 1 1313 RETURN 2 - 1315 RESTART + 1315 RESTART 1316 GRAB 1 - 1318 ACC1 + 1318 ACC1 1319 BRANCHIFNOT 1331 - 1321 ACC1 - 1322 GETFIELD0 - 1323 PUSHACC1 - 1324 APPLY1 - 1325 ACC1 - 1326 GETFIELD1 - 1327 PUSHACC1 - 1328 PUSHOFFSETCLOSURE0 + 1321 ACC1 + 1322 GETFIELD0 + 1323 PUSHACC1 + 1324 APPLY1 + 1325 ACC1 + 1326 GETFIELD1 + 1327 PUSHACC1 + 1328 PUSHOFFSETCLOSURE0 1329 APPTERM2 4 1331 RETURN 2 - 1333 RESTART + 1333 RESTART 1334 GRAB 2 - 1336 ACC2 + 1336 ACC2 1337 BRANCHIFNOT 1350 - 1339 ACC2 - 1340 GETFIELD1 - 1341 PUSHACC3 - 1342 GETFIELD0 - 1343 PUSHACC3 - 1344 PUSHACC3 - 1345 APPLY2 - 1346 PUSHACC2 - 1347 PUSHOFFSETCLOSURE0 + 1339 ACC2 + 1340 GETFIELD1 + 1341 PUSHACC3 + 1342 GETFIELD0 + 1343 PUSHACC3 + 1344 PUSHACC3 + 1345 APPLY2 + 1346 PUSHACC2 + 1347 PUSHOFFSETCLOSURE0 1348 APPTERM3 6 - 1350 ACC1 + 1350 ACC1 1351 RETURN 3 - 1353 RESTART + 1353 RESTART 1354 GRAB 2 - 1356 ACC1 + 1356 ACC1 1357 BRANCHIFNOT 1370 - 1359 ACC2 - 1360 PUSHACC2 - 1361 GETFIELD1 - 1362 PUSHACC2 - 1363 PUSHOFFSETCLOSURE0 - 1364 APPLY3 - 1365 PUSHACC2 - 1366 GETFIELD0 - 1367 PUSHACC2 + 1359 ACC2 + 1360 PUSHACC2 + 1361 GETFIELD1 + 1362 PUSHACC2 + 1363 PUSHOFFSETCLOSURE0 + 1364 APPLY3 + 1365 PUSHACC2 + 1366 GETFIELD0 + 1367 PUSHACC2 1368 APPTERM2 5 - 1370 ACC2 + 1370 ACC2 1371 RETURN 3 - 1373 RESTART + 1373 RESTART 1374 GRAB 2 - 1376 ACC1 + 1376 ACC1 1377 BRANCHIFNOT 1400 - 1379 ACC2 + 1379 ACC2 1380 BRANCHIFNOT 1407 - 1382 ACC2 - 1383 GETFIELD0 - 1384 PUSHACC2 - 1385 GETFIELD0 - 1386 PUSHACC2 - 1387 APPLY2 - 1388 PUSHACC3 - 1389 GETFIELD1 - 1390 PUSHACC3 - 1391 GETFIELD1 - 1392 PUSHACC3 - 1393 PUSHOFFSETCLOSURE0 - 1394 APPLY3 - 1395 PUSHACC1 + 1382 ACC2 + 1383 GETFIELD0 + 1384 PUSHACC2 + 1385 GETFIELD0 + 1386 PUSHACC2 + 1387 APPLY2 + 1388 PUSHACC3 + 1389 GETFIELD1 + 1390 PUSHACC3 + 1391 GETFIELD1 + 1392 PUSHACC3 + 1393 PUSHOFFSETCLOSURE0 + 1394 APPLY3 + 1395 PUSHACC1 1396 MAKEBLOCK2 0 1398 RETURN 4 - 1400 ACC2 + 1400 ACC2 1401 BRANCHIFNOT 1405 1403 BRANCH 1407 1405 RETURN 3 1407 GETGLOBAL "List.map2" 1409 PUSHGETGLOBALFIELD Pervasives, 2 1412 APPTERM1 4 - 1414 RESTART + 1414 RESTART 1415 GRAB 2 - 1417 ACC1 + 1417 ACC1 1418 BRANCHIFNOT 1437 - 1420 ACC2 + 1420 ACC2 1421 BRANCHIFNOT 1444 - 1423 ACC2 - 1424 GETFIELD0 - 1425 PUSHACC2 - 1426 GETFIELD0 - 1427 PUSHACC2 - 1428 APPLY2 - 1429 ACC2 - 1430 GETFIELD1 - 1431 PUSHACC2 - 1432 GETFIELD1 - 1433 PUSHACC2 - 1434 PUSHOFFSETCLOSURE0 + 1423 ACC2 + 1424 GETFIELD0 + 1425 PUSHACC2 + 1426 GETFIELD0 + 1427 PUSHACC2 + 1428 APPLY2 + 1429 ACC2 + 1430 GETFIELD1 + 1431 PUSHACC2 + 1432 GETFIELD1 + 1433 PUSHACC2 + 1434 PUSHOFFSETCLOSURE0 1435 APPTERM3 6 - 1437 ACC2 + 1437 ACC2 1438 BRANCHIFNOT 1442 1440 BRANCH 1444 1442 RETURN 3 1444 GETGLOBAL "List.iter2" 1446 PUSHGETGLOBALFIELD Pervasives, 2 1449 APPTERM1 4 - 1451 RESTART + 1451 RESTART 1452 GRAB 3 - 1454 ACC2 + 1454 ACC2 1455 BRANCHIFNOT 1476 - 1457 ACC3 + 1457 ACC3 1458 BRANCHIFNOT 1482 - 1460 ACC3 - 1461 GETFIELD1 - 1462 PUSHACC3 - 1463 GETFIELD1 - 1464 PUSHACC5 - 1465 GETFIELD0 - 1466 PUSHACC5 - 1467 GETFIELD0 - 1468 PUSHACC5 - 1469 PUSHACC5 - 1470 APPLY3 - 1471 PUSHACC3 - 1472 PUSHOFFSETCLOSURE0 + 1460 ACC3 + 1461 GETFIELD1 + 1462 PUSHACC3 + 1463 GETFIELD1 + 1464 PUSHACC5 + 1465 GETFIELD0 + 1466 PUSHACC5 + 1467 GETFIELD0 + 1468 PUSHACC5 + 1469 PUSHACC5 + 1470 APPLY3 + 1471 PUSHACC3 + 1472 PUSHOFFSETCLOSURE0 1473 APPTERM 4, 8 - 1476 ACC3 + 1476 ACC3 1477 BRANCHIF 1482 - 1479 ACC1 + 1479 ACC1 1480 RETURN 4 1482 GETGLOBAL "List.fold_left2" 1484 PUSHGETGLOBALFIELD Pervasives, 2 1487 APPTERM1 5 - 1489 RESTART + 1489 RESTART 1490 GRAB 3 - 1492 ACC1 + 1492 ACC1 1493 BRANCHIFNOT 1516 - 1495 ACC2 + 1495 ACC2 1496 BRANCHIFNOT 1522 1498 PUSH_RETADDR 1509 - 1500 ACC6 - 1501 PUSHACC6 - 1502 GETFIELD1 - 1503 PUSHACC6 - 1504 GETFIELD1 - 1505 PUSHACC6 - 1506 PUSHOFFSETCLOSURE0 + 1500 ACC6 + 1501 PUSHACC6 + 1502 GETFIELD1 + 1503 PUSHACC6 + 1504 GETFIELD1 + 1505 PUSHACC6 + 1506 PUSHOFFSETCLOSURE0 1507 APPLY 4 - 1509 PUSHACC3 - 1510 GETFIELD0 - 1511 PUSHACC3 - 1512 GETFIELD0 - 1513 PUSHACC3 + 1509 PUSHACC3 + 1510 GETFIELD0 + 1511 PUSHACC3 + 1512 GETFIELD0 + 1513 PUSHACC3 1514 APPTERM3 7 - 1516 ACC2 + 1516 ACC2 1517 BRANCHIF 1522 - 1519 ACC3 + 1519 ACC3 1520 RETURN 4 1522 GETGLOBAL "List.fold_right2" 1524 PUSHGETGLOBALFIELD Pervasives, 2 1527 APPTERM1 5 - 1529 RESTART + 1529 RESTART 1530 GRAB 1 - 1532 ACC1 + 1532 ACC1 1533 BRANCHIFNOT 1549 - 1535 ACC1 - 1536 GETFIELD0 - 1537 PUSHACC1 - 1538 APPLY1 + 1535 ACC1 + 1536 GETFIELD0 + 1537 PUSHACC1 + 1538 APPLY1 1539 BRANCHIFNOT 1547 - 1541 ACC1 - 1542 GETFIELD1 - 1543 PUSHACC1 - 1544 PUSHOFFSETCLOSURE0 + 1541 ACC1 + 1542 GETFIELD1 + 1543 PUSHACC1 + 1544 PUSHOFFSETCLOSURE0 1545 APPTERM2 4 1547 RETURN 2 - 1549 CONST1 + 1549 CONST1 1550 RETURN 2 - 1552 RESTART + 1552 RESTART 1553 GRAB 1 - 1555 ACC1 + 1555 ACC1 1556 BRANCHIFNOT 1570 - 1558 ACC1 - 1559 GETFIELD0 - 1560 PUSHACC1 - 1561 APPLY1 + 1558 ACC1 + 1559 GETFIELD0 + 1560 PUSHACC1 + 1561 APPLY1 1562 BRANCHIF 1570 - 1564 ACC1 - 1565 GETFIELD1 - 1566 PUSHACC1 - 1567 PUSHOFFSETCLOSURE0 + 1564 ACC1 + 1565 GETFIELD1 + 1566 PUSHACC1 + 1567 PUSHOFFSETCLOSURE0 1568 APPTERM2 4 1570 RETURN 2 - 1572 RESTART + 1572 RESTART 1573 GRAB 2 - 1575 ACC1 + 1575 ACC1 1576 BRANCHIFNOT 1599 - 1578 ACC2 + 1578 ACC2 1579 BRANCHIFNOT 1605 - 1581 ACC2 - 1582 GETFIELD0 - 1583 PUSHACC2 - 1584 GETFIELD0 - 1585 PUSHACC2 - 1586 APPLY2 + 1581 ACC2 + 1582 GETFIELD0 + 1583 PUSHACC2 + 1584 GETFIELD0 + 1585 PUSHACC2 + 1586 APPLY2 1587 BRANCHIFNOT 1597 - 1589 ACC2 - 1590 GETFIELD1 - 1591 PUSHACC2 - 1592 GETFIELD1 - 1593 PUSHACC2 - 1594 PUSHOFFSETCLOSURE0 + 1589 ACC2 + 1590 GETFIELD1 + 1591 PUSHACC2 + 1592 GETFIELD1 + 1593 PUSHACC2 + 1594 PUSHOFFSETCLOSURE0 1595 APPTERM3 6 1597 RETURN 3 - 1599 ACC2 + 1599 ACC2 1600 BRANCHIF 1605 - 1602 CONST1 + 1602 CONST1 1603 RETURN 3 1605 GETGLOBAL "List.for_all2" 1607 PUSHGETGLOBALFIELD Pervasives, 2 1610 APPTERM1 4 - 1612 RESTART + 1612 RESTART 1613 GRAB 2 - 1615 ACC1 + 1615 ACC1 1616 BRANCHIFNOT 1639 - 1618 ACC2 + 1618 ACC2 1619 BRANCHIFNOT 1646 - 1621 ACC2 - 1622 GETFIELD0 - 1623 PUSHACC2 - 1624 GETFIELD0 - 1625 PUSHACC2 - 1626 APPLY2 + 1621 ACC2 + 1622 GETFIELD0 + 1623 PUSHACC2 + 1624 GETFIELD0 + 1625 PUSHACC2 + 1626 APPLY2 1627 BRANCHIF 1637 - 1629 ACC2 - 1630 GETFIELD1 - 1631 PUSHACC2 - 1632 GETFIELD1 - 1633 PUSHACC2 - 1634 PUSHOFFSETCLOSURE0 + 1629 ACC2 + 1630 GETFIELD1 + 1631 PUSHACC2 + 1632 GETFIELD1 + 1633 PUSHACC2 + 1634 PUSHOFFSETCLOSURE0 1635 APPTERM3 6 1637 RETURN 3 - 1639 ACC2 + 1639 ACC2 1640 BRANCHIFNOT 1644 1642 BRANCH 1646 1644 RETURN 3 1646 GETGLOBAL "List.exists2" 1648 PUSHGETGLOBALFIELD Pervasives, 2 1651 APPTERM1 4 - 1653 RESTART + 1653 RESTART 1654 GRAB 1 - 1656 ACC1 + 1656 ACC1 1657 BRANCHIFNOT 1672 - 1659 ACC0 - 1660 PUSHACC2 - 1661 GETFIELD0 + 1659 ACC0 + 1660 PUSHACC2 + 1661 GETFIELD0 1662 C_CALL2 equal 1664 BRANCHIF 1672 - 1666 ACC1 - 1667 GETFIELD1 - 1668 PUSHACC1 - 1669 PUSHOFFSETCLOSURE0 + 1666 ACC1 + 1667 GETFIELD1 + 1668 PUSHACC1 + 1669 PUSHOFFSETCLOSURE0 1670 APPTERM2 4 1672 RETURN 2 - 1674 RESTART + 1674 RESTART 1675 GRAB 1 - 1677 ACC1 + 1677 ACC1 1678 BRANCHIFNOT 1692 - 1680 ACC0 - 1681 PUSHACC2 - 1682 GETFIELD0 - 1683 EQ + 1680 ACC0 + 1681 PUSHACC2 + 1682 GETFIELD0 + 1683 EQ 1684 BRANCHIF 1692 - 1686 ACC1 - 1687 GETFIELD1 - 1688 PUSHACC1 - 1689 PUSHOFFSETCLOSURE0 + 1686 ACC1 + 1687 GETFIELD1 + 1688 PUSHACC1 + 1689 PUSHOFFSETCLOSURE0 1690 APPTERM2 4 1692 RETURN 2 - 1694 RESTART + 1694 RESTART 1695 GRAB 1 - 1697 ACC1 + 1697 ACC1 1698 BRANCHIFNOT 1719 - 1700 ACC1 - 1701 GETFIELD0 - 1702 PUSHACC1 - 1703 PUSHACC1 - 1704 GETFIELD0 + 1700 ACC1 + 1701 GETFIELD0 + 1702 PUSHACC1 + 1703 PUSHACC1 + 1704 GETFIELD0 1705 C_CALL2 equal 1707 BRANCHIFNOT 1713 - 1709 ACC0 - 1710 GETFIELD1 + 1709 ACC0 + 1710 GETFIELD1 1711 RETURN 3 - 1713 ACC2 - 1714 GETFIELD1 - 1715 PUSHACC2 - 1716 PUSHOFFSETCLOSURE0 + 1713 ACC2 + 1714 GETFIELD1 + 1715 PUSHACC2 + 1716 PUSHOFFSETCLOSURE0 1717 APPTERM2 5 1719 GETGLOBAL Not_found 1721 MAKEBLOCK1 0 - 1723 RAISE - 1724 RESTART + 1723 RAISE + 1724 RESTART 1725 GRAB 1 - 1727 ACC1 + 1727 ACC1 1728 BRANCHIFNOT 1748 - 1730 ACC1 - 1731 GETFIELD0 - 1732 PUSHACC1 - 1733 PUSHACC1 - 1734 GETFIELD0 - 1735 EQ + 1730 ACC1 + 1731 GETFIELD0 + 1732 PUSHACC1 + 1733 PUSHACC1 + 1734 GETFIELD0 + 1735 EQ 1736 BRANCHIFNOT 1742 - 1738 ACC0 - 1739 GETFIELD1 + 1738 ACC0 + 1739 GETFIELD1 1740 RETURN 3 - 1742 ACC2 - 1743 GETFIELD1 - 1744 PUSHACC2 - 1745 PUSHOFFSETCLOSURE0 + 1742 ACC2 + 1743 GETFIELD1 + 1744 PUSHACC2 + 1745 PUSHOFFSETCLOSURE0 1746 APPTERM2 5 1748 GETGLOBAL Not_found 1750 MAKEBLOCK1 0 - 1752 RAISE - 1753 RESTART + 1752 RAISE + 1753 RESTART 1754 GRAB 1 - 1756 ACC1 + 1756 ACC1 1757 BRANCHIFNOT 1773 - 1759 ACC0 - 1760 PUSHACC2 - 1761 GETFIELD0 - 1762 GETFIELD0 + 1759 ACC0 + 1760 PUSHACC2 + 1761 GETFIELD0 + 1762 GETFIELD0 1763 C_CALL2 equal 1765 BRANCHIF 1773 - 1767 ACC1 - 1768 GETFIELD1 - 1769 PUSHACC1 - 1770 PUSHOFFSETCLOSURE0 + 1767 ACC1 + 1768 GETFIELD1 + 1769 PUSHACC1 + 1770 PUSHOFFSETCLOSURE0 1771 APPTERM2 4 1773 RETURN 2 - 1775 RESTART + 1775 RESTART 1776 GRAB 1 - 1778 ACC1 + 1778 ACC1 1779 BRANCHIFNOT 1794 - 1781 ACC0 - 1782 PUSHACC2 - 1783 GETFIELD0 - 1784 GETFIELD0 - 1785 EQ + 1781 ACC0 + 1782 PUSHACC2 + 1783 GETFIELD0 + 1784 GETFIELD0 + 1785 EQ 1786 BRANCHIF 1794 - 1788 ACC1 - 1789 GETFIELD1 - 1790 PUSHACC1 - 1791 PUSHOFFSETCLOSURE0 + 1788 ACC1 + 1789 GETFIELD1 + 1790 PUSHACC1 + 1791 PUSHOFFSETCLOSURE0 1792 APPTERM2 4 1794 RETURN 2 - 1796 RESTART + 1796 RESTART 1797 GRAB 1 - 1799 ACC1 + 1799 ACC1 1800 BRANCHIFNOT 1825 - 1802 ACC1 - 1803 GETFIELD0 - 1804 PUSHACC2 - 1805 GETFIELD1 - 1806 PUSHACC2 - 1807 PUSHACC2 - 1808 GETFIELD0 + 1802 ACC1 + 1803 GETFIELD0 + 1804 PUSHACC2 + 1805 GETFIELD1 + 1806 PUSHACC2 + 1807 PUSHACC2 + 1808 GETFIELD0 1809 C_CALL2 equal 1811 BRANCHIFNOT 1816 - 1813 ACC0 + 1813 ACC0 1814 RETURN 4 - 1816 ACC0 - 1817 PUSHACC3 - 1818 PUSHOFFSETCLOSURE0 - 1819 APPLY2 - 1820 PUSHACC2 + 1816 ACC0 + 1817 PUSHACC3 + 1818 PUSHOFFSETCLOSURE0 + 1819 APPLY2 + 1820 PUSHACC2 1821 MAKEBLOCK2 0 1823 POP 2 1825 RETURN 2 - 1827 RESTART + 1827 RESTART 1828 GRAB 1 - 1830 ACC1 + 1830 ACC1 1831 BRANCHIFNOT 1855 - 1833 ACC1 - 1834 GETFIELD0 - 1835 PUSHACC2 - 1836 GETFIELD1 - 1837 PUSHACC2 - 1838 PUSHACC2 - 1839 GETFIELD0 - 1840 EQ + 1833 ACC1 + 1834 GETFIELD0 + 1835 PUSHACC2 + 1836 GETFIELD1 + 1837 PUSHACC2 + 1838 PUSHACC2 + 1839 GETFIELD0 + 1840 EQ 1841 BRANCHIFNOT 1846 - 1843 ACC0 + 1843 ACC0 1844 RETURN 4 - 1846 ACC0 - 1847 PUSHACC3 - 1848 PUSHOFFSETCLOSURE0 - 1849 APPLY2 - 1850 PUSHACC2 + 1846 ACC0 + 1847 PUSHACC3 + 1848 PUSHOFFSETCLOSURE0 + 1849 APPLY2 + 1850 PUSHACC2 1851 MAKEBLOCK2 0 1853 POP 2 1855 RETURN 2 - 1857 RESTART + 1857 RESTART 1858 GRAB 1 - 1860 ACC1 + 1860 ACC1 1861 BRANCHIFNOT 1879 - 1863 ACC1 - 1864 GETFIELD0 - 1865 PUSHACC0 - 1866 PUSHACC2 - 1867 APPLY1 + 1863 ACC1 + 1864 GETFIELD0 + 1865 PUSHACC0 + 1866 PUSHACC2 + 1867 APPLY1 1868 BRANCHIFNOT 1873 - 1870 ACC0 + 1870 ACC0 1871 RETURN 3 - 1873 ACC2 - 1874 GETFIELD1 - 1875 PUSHACC2 - 1876 PUSHOFFSETCLOSURE0 + 1873 ACC2 + 1874 GETFIELD1 + 1875 PUSHACC2 + 1876 PUSHOFFSETCLOSURE0 1877 APPTERM2 5 1879 GETGLOBAL Not_found 1881 MAKEBLOCK1 0 - 1883 RAISE - 1884 RESTART + 1883 RAISE + 1884 RESTART 1885 GRAB 2 - 1887 ACC2 + 1887 ACC2 1888 BRANCHIFNOT 1917 - 1890 ACC2 - 1891 GETFIELD0 - 1892 PUSHACC3 - 1893 GETFIELD1 - 1894 PUSHACC1 - 1895 PUSHENVACC2 - 1896 APPLY1 + 1890 ACC2 + 1891 GETFIELD0 + 1892 PUSHACC3 + 1893 GETFIELD1 + 1894 PUSHACC1 + 1895 PUSHENVACC2 + 1896 APPLY1 1897 BRANCHIFNOT 1908 - 1899 ACC0 - 1900 PUSHACC4 - 1901 PUSHACC4 - 1902 PUSHACC4 + 1899 ACC0 + 1900 PUSHACC4 + 1901 PUSHACC4 + 1902 PUSHACC4 1903 MAKEBLOCK2 0 - 1905 PUSHOFFSETCLOSURE0 + 1905 PUSHOFFSETCLOSURE0 1906 APPTERM3 8 - 1908 ACC0 - 1909 PUSHACC4 - 1910 PUSHACC3 + 1908 ACC0 + 1909 PUSHACC4 + 1910 PUSHACC3 1911 MAKEBLOCK2 0 - 1913 PUSHACC4 - 1914 PUSHOFFSETCLOSURE0 + 1913 PUSHACC4 + 1914 PUSHOFFSETCLOSURE0 1915 APPTERM3 8 - 1917 ACC1 - 1918 PUSHENVACC1 - 1919 APPLY1 - 1920 PUSHACC1 - 1921 PUSHENVACC1 - 1922 APPLY1 + 1917 ACC1 + 1918 PUSHENVACC1 + 1919 APPLY1 + 1920 PUSHACC1 + 1921 PUSHENVACC1 + 1922 APPLY1 1923 MAKEBLOCK2 0 1925 RETURN 3 - 1927 RESTART + 1927 RESTART 1928 GRAB 1 - 1930 ACC0 - 1931 PUSHENVACC1 + 1930 ACC0 + 1931 PUSHENVACC1 1932 CLOSUREREC 2, 1885 - 1936 ACC2 - 1937 PUSHCONST0 - 1938 PUSHCONST0 - 1939 PUSHACC3 + 1936 ACC2 + 1937 PUSHCONST0 + 1938 PUSHCONST0 + 1939 PUSHACC3 1940 APPTERM3 6 - 1942 ACC0 + 1942 ACC0 1943 BRANCHIFNOT 1967 - 1945 ACC0 - 1946 GETFIELD0 - 1947 PUSHACC1 - 1948 GETFIELD1 - 1949 PUSHOFFSETCLOSURE0 - 1950 APPLY1 - 1951 PUSHACC0 - 1952 GETFIELD1 - 1953 PUSHACC2 - 1954 GETFIELD1 + 1945 ACC0 + 1946 GETFIELD0 + 1947 PUSHACC1 + 1948 GETFIELD1 + 1949 PUSHOFFSETCLOSURE0 + 1950 APPLY1 + 1951 PUSHACC0 + 1952 GETFIELD1 + 1953 PUSHACC2 + 1954 GETFIELD1 1955 MAKEBLOCK2 0 - 1957 PUSHACC1 - 1958 GETFIELD0 - 1959 PUSHACC3 - 1960 GETFIELD0 + 1957 PUSHACC1 + 1958 GETFIELD0 + 1959 PUSHACC3 + 1960 GETFIELD0 1961 MAKEBLOCK2 0 1963 MAKEBLOCK2 0 1965 RETURN 3 1967 GETGLOBAL <0>(0, 0) 1969 RETURN 1 - 1971 RESTART + 1971 RESTART 1972 GRAB 1 - 1974 ACC0 + 1974 ACC0 1975 BRANCHIFNOT 1996 - 1977 ACC1 + 1977 ACC1 1978 BRANCHIFNOT 2003 - 1980 ACC1 - 1981 GETFIELD1 - 1982 PUSHACC1 - 1983 GETFIELD1 - 1984 PUSHOFFSETCLOSURE0 - 1985 APPLY2 - 1986 PUSHACC2 - 1987 GETFIELD0 - 1988 PUSHACC2 - 1989 GETFIELD0 + 1980 ACC1 + 1981 GETFIELD1 + 1982 PUSHACC1 + 1983 GETFIELD1 + 1984 PUSHOFFSETCLOSURE0 + 1985 APPLY2 + 1986 PUSHACC2 + 1987 GETFIELD0 + 1988 PUSHACC2 + 1989 GETFIELD0 1990 MAKEBLOCK2 0 1992 MAKEBLOCK2 0 1994 RETURN 2 - 1996 ACC1 + 1996 ACC1 1997 BRANCHIFNOT 2001 1999 BRANCH 2003 2001 RETURN 2 2003 GETGLOBAL "List.combine" 2005 PUSHGETGLOBALFIELD Pervasives, 2 2008 APPTERM1 3 - 2010 RESTART + 2010 RESTART 2011 GRAB 1 - 2013 ACC1 + 2013 ACC1 2014 BRANCHIFNOT 2038 - 2016 ACC1 - 2017 GETFIELD0 - 2018 PUSHACC2 - 2019 GETFIELD1 - 2020 PUSHACC1 - 2021 PUSHENVACC2 - 2022 APPLY1 + 2016 ACC1 + 2017 GETFIELD0 + 2018 PUSHACC2 + 2019 GETFIELD1 + 2020 PUSHACC1 + 2021 PUSHENVACC2 + 2022 APPLY1 2023 BRANCHIFNOT 2033 - 2025 ACC0 - 2026 PUSHACC3 - 2027 PUSHACC3 + 2025 ACC0 + 2026 PUSHACC3 + 2027 PUSHACC3 2028 MAKEBLOCK2 0 - 2030 PUSHOFFSETCLOSURE0 + 2030 PUSHOFFSETCLOSURE0 2031 APPTERM2 6 - 2033 ACC0 - 2034 PUSHACC3 - 2035 PUSHOFFSETCLOSURE0 + 2033 ACC0 + 2034 PUSHACC3 + 2035 PUSHOFFSETCLOSURE0 2036 APPTERM2 6 - 2038 ACC0 - 2039 PUSHENVACC1 + 2038 ACC0 + 2039 PUSHENVACC1 2040 APPTERM1 3 - 2042 ACC0 - 2043 PUSHENVACC1 + 2042 ACC0 + 2043 PUSHENVACC1 2044 CLOSUREREC 2, 2011 - 2048 CONST0 - 2049 PUSHACC1 + 2048 CONST0 + 2049 PUSHACC1 2050 APPTERM1 3 - 2052 RESTART + 2052 RESTART 2053 GRAB 2 - 2055 ACC1 + 2055 ACC1 2056 BRANCHIFNOT 2077 - 2058 ACC2 + 2058 ACC2 2059 BRANCHIFNOT 2084 - 2061 ACC2 - 2062 GETFIELD1 - 2063 PUSHACC2 - 2064 GETFIELD1 - 2065 PUSHACC2 - 2066 PUSHACC5 - 2067 GETFIELD0 - 2068 PUSHACC5 - 2069 GETFIELD0 - 2070 PUSHENVACC1 - 2071 APPLY2 + 2061 ACC2 + 2062 GETFIELD1 + 2063 PUSHACC2 + 2064 GETFIELD1 + 2065 PUSHACC2 + 2066 PUSHACC5 + 2067 GETFIELD0 + 2068 PUSHACC5 + 2069 GETFIELD0 + 2070 PUSHENVACC1 + 2071 APPLY2 2072 MAKEBLOCK2 0 - 2074 PUSHOFFSETCLOSURE0 + 2074 PUSHOFFSETCLOSURE0 2075 APPTERM3 6 - 2077 ACC2 + 2077 ACC2 2078 BRANCHIFNOT 2082 2080 BRANCH 2084 2082 RETURN 3 2084 GETGLOBAL "List.rev_map2" 2086 PUSHGETGLOBALFIELD Pervasives, 2 2089 APPTERM1 4 - 2091 RESTART + 2091 RESTART 2092 GRAB 2 - 2094 ACC0 + 2094 ACC0 2095 CLOSUREREC 1, 2053 - 2099 ACC3 - 2100 PUSHACC3 - 2101 PUSHCONST0 - 2102 PUSHACC3 + 2099 ACC3 + 2100 PUSHACC3 + 2101 PUSHCONST0 + 2102 PUSHACC3 2103 APPTERM3 7 - 2105 RESTART + 2105 RESTART 2106 GRAB 1 - 2108 ACC1 + 2108 ACC1 2109 BRANCHIFNOT 2123 - 2111 ACC1 - 2112 GETFIELD1 - 2113 PUSHACC1 - 2114 PUSHACC3 - 2115 GETFIELD0 - 2116 PUSHENVACC1 - 2117 APPLY1 + 2111 ACC1 + 2112 GETFIELD1 + 2113 PUSHACC1 + 2114 PUSHACC3 + 2115 GETFIELD0 + 2116 PUSHENVACC1 + 2117 APPLY1 2118 MAKEBLOCK2 0 - 2120 PUSHOFFSETCLOSURE0 + 2120 PUSHOFFSETCLOSURE0 2121 APPTERM2 4 - 2123 ACC0 + 2123 ACC0 2124 RETURN 2 - 2126 RESTART + 2126 RESTART 2127 GRAB 1 - 2129 ACC0 + 2129 ACC0 2130 CLOSUREREC 1, 2106 - 2134 ACC2 - 2135 PUSHCONST0 - 2136 PUSHACC2 + 2134 ACC2 + 2135 PUSHCONST0 + 2136 PUSHACC2 2137 APPTERM2 5 - 2139 CONST0 - 2140 PUSHACC1 - 2141 PUSHENVACC1 + 2139 CONST0 + 2140 PUSHACC1 + 2141 PUSHENVACC1 2142 APPTERM2 3 - 2144 ACC0 + 2144 ACC0 2145 BRANCHIFNOT 2151 - 2147 ACC0 - 2148 GETFIELD1 + 2147 ACC0 + 2148 GETFIELD1 2149 RETURN 1 2151 GETGLOBAL "tl" 2153 PUSHGETGLOBALFIELD Pervasives, 3 2156 APPTERM1 2 - 2158 ACC0 + 2158 ACC0 2159 BRANCHIFNOT 2165 - 2161 ACC0 - 2162 GETFIELD0 + 2161 ACC0 + 2162 GETFIELD0 2163 RETURN 1 2165 GETGLOBAL "hd" 2167 PUSHGETGLOBALFIELD Pervasives, 3 2170 APPTERM1 2 - 2172 ACC0 - 2173 PUSHCONST0 - 2174 PUSHENVACC1 + 2172 ACC0 + 2173 PUSHCONST0 + 2174 PUSHENVACC1 2175 APPTERM2 3 2177 CLOSUREREC 0, 1200 - 2181 ACC0 + 2181 ACC0 2182 CLOSURE 1, 2172 - 2185 PUSH + 2185 PUSH 2186 CLOSURE 0, 2158 - 2189 PUSH + 2189 PUSH 2190 CLOSURE 0, 2144 - 2193 PUSH + 2193 PUSH 2194 CLOSUREREC 0, 1217 2198 GETGLOBALFIELD Pervasives, 16 - 2201 PUSH + 2201 PUSH 2202 CLOSUREREC 0, 1259 - 2206 ACC0 + 2206 ACC0 2207 CLOSURE 1, 2139 - 2210 PUSH + 2210 PUSH 2211 CLOSUREREC 0, 1277 2215 CLOSUREREC 0, 1294 2219 CLOSURE 0, 2127 - 2222 PUSH + 2222 PUSH 2223 CLOSUREREC 0, 1316 2227 CLOSUREREC 0, 1334 2231 CLOSUREREC 0, 1354 2235 CLOSUREREC 0, 1374 2239 CLOSURE 0, 2092 - 2242 PUSH + 2242 PUSH 2243 CLOSUREREC 0, 1415 2247 CLOSUREREC 0, 1452 2251 CLOSUREREC 0, 1490 @@ -1502,9 +1502,9 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 2314 CLOSUREREC 1, 1928 2318 CLOSUREREC 0, 1942 2322 CLOSUREREC 0, 1972 - 2326 ACC0 - 2327 PUSHACC2 - 2328 PUSHACC7 + 2326 ACC0 + 2327 PUSHACC2 + 2328 PUSHACC7 2329 PUSHACC 9 2331 PUSHACC 11 2333 PUSHACC 13 @@ -1543,47 +1543,47 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 2400 POP 36 2402 SETGLOBAL List 2404 BRANCH 2432 - 2406 CONST0 - 2407 PUSHACC1 - 2408 LEINT + 2406 CONST0 + 2407 PUSHACC1 + 2408 LEINT 2409 BRANCHIFNOT 2414 - 2411 CONST0 + 2411 CONST0 2412 RETURN 1 - 2414 ACC0 + 2414 ACC0 2415 OFFSETINT -1 - 2417 PUSHOFFSETCLOSURE0 - 2418 APPLY1 - 2419 PUSHACC1 + 2417 PUSHOFFSETCLOSURE0 + 2418 APPLY1 + 2419 PUSHACC1 2420 MAKEBLOCK2 0 2422 RETURN 1 - 2424 RESTART + 2424 RESTART 2425 GRAB 1 - 2427 ACC1 - 2428 PUSHACC1 - 2429 ADDINT + 2427 ACC1 + 2428 PUSHACC1 + 2429 ADDINT 2430 RETURN 2 2432 CLOSUREREC 0, 2406 2436 CONSTINT 300 - 2438 PUSHACC1 - 2439 APPLY1 - 2440 PUSHCONST0 + 2438 PUSHACC1 + 2439 APPLY1 + 2440 PUSHCONST0 2441 C_CALL1 gc_compaction 2443 CONSTINT 150 2445 PUSHCONSTINT 301 - 2447 MULINT - 2448 PUSHACC1 - 2449 PUSHCONST0 - 2450 PUSH + 2447 MULINT + 2448 PUSHACC1 + 2449 PUSHCONST0 + 2450 PUSH 2451 CLOSURE 0, 2425 2454 PUSHGETGLOBALFIELD List, 12 - 2457 APPLY3 - 2458 NEQ + 2457 APPLY3 + 2458 NEQ 2459 BRANCHIFNOT 2466 2461 GETGLOBAL Not_found 2463 MAKEBLOCK1 0 - 2465 RAISE + 2465 RAISE 2466 POP 2 - 2468 ATOM0 + 2468 ATOM0 2469 SETGLOBAL T330-compact-3 - 2471 STOP + 2471 STOP **) diff --git a/testsuite/tests/tool-ocaml/t330-compact-4.ml b/testsuite/tests/tool-ocaml/t330-compact-4.ml index 1c190f750..60161a5f5 100644 --- a/testsuite/tests/tool-ocaml/t330-compact-4.ml +++ b/testsuite/tests/tool-ocaml/t330-compact-4.ml @@ -10,599 +10,599 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 746 - 11 RESTART + 11 RESTART 12 GRAB 1 - 14 ACC0 + 14 ACC0 15 BRANCHIFNOT 28 - 17 ACC1 - 18 PUSHACC1 - 19 GETFIELD1 - 20 PUSHOFFSETCLOSURE0 - 21 APPLY2 - 22 PUSHACC1 - 23 GETFIELD0 + 17 ACC1 + 18 PUSHACC1 + 19 GETFIELD1 + 20 PUSHOFFSETCLOSURE0 + 21 APPLY2 + 22 PUSHACC1 + 23 GETFIELD0 24 MAKEBLOCK2 0 26 RETURN 2 - 28 ACC1 + 28 ACC1 29 RETURN 2 - 31 RESTART + 31 RESTART 32 GRAB 3 - 34 CONST0 - 35 PUSHACC4 - 36 LEINT + 34 CONST0 + 35 PUSHACC4 + 36 LEINT 37 BRANCHIFNOT 42 - 39 CONST0 + 39 CONST0 40 RETURN 4 - 42 ACC3 - 43 PUSHACC3 - 44 PUSHACC3 - 45 PUSHACC3 + 42 ACC3 + 43 PUSHACC3 + 44 PUSHACC3 + 45 PUSHACC3 46 C_CALL4 caml_input - 48 PUSHCONST0 - 49 PUSHACC1 - 50 EQ + 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 + 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 + 70 ACC0 71 C_CALL1 caml_input_scan_line - 73 PUSHCONST0 - 74 PUSHACC1 - 75 EQ + 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 + 82 RAISE + 83 CONST0 + 84 PUSHACC1 + 85 GTINT 86 BRANCHIFNOT 107 - 88 ACC0 + 88 ACC0 89 OFFSETINT -1 91 C_CALL1 create_string - 93 PUSHACC1 + 93 PUSHACC1 94 OFFSETINT -1 - 96 PUSHCONST0 - 97 PUSHACC2 - 98 PUSHACC5 + 96 PUSHCONST0 + 97 PUSHACC2 + 98 PUSHACC5 99 C_CALL4 caml_input - 101 ACC2 + 101 ACC2 102 C_CALL1 caml_input_char - 104 ACC0 + 104 ACC0 105 RETURN 3 - 107 ACC0 - 108 NEGINT + 107 ACC0 + 108 NEGINT 109 C_CALL1 create_string - 111 PUSHACC1 - 112 NEGINT - 113 PUSHCONST0 - 114 PUSHACC2 - 115 PUSHACC5 + 111 PUSHACC1 + 112 NEGINT + 113 PUSHCONST0 + 114 PUSHACC2 + 115 PUSHACC5 116 C_CALL4 caml_input - 118 CONST0 + 118 CONST0 119 PUSHTRAP 130 - 121 ACC6 - 122 PUSHOFFSETCLOSURE0 - 123 APPLY1 - 124 PUSHACC5 - 125 PUSHENVACC1 - 126 APPLY2 - 127 POPTRAP + 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 + 132 PUSHACC1 + 133 GETFIELD0 + 134 EQ 135 BRANCHIFNOT 140 - 137 ACC1 + 137 ACC1 138 RETURN 4 - 140 ACC0 - 141 RAISE - 142 ACC0 + 140 ACC0 + 141 RAISE + 142 ACC0 143 C_CALL1 caml_flush 145 RETURN 1 - 147 RESTART + 147 RESTART 148 GRAB 1 - 150 ACC1 - 151 PUSHACC1 + 150 ACC1 + 151 PUSHACC1 152 C_CALL2 caml_output_char 154 RETURN 2 - 156 RESTART + 156 RESTART 157 GRAB 1 - 159 ACC1 - 160 PUSHACC1 + 159 ACC1 + 160 PUSHACC1 161 C_CALL2 caml_output_char 163 RETURN 2 - 165 RESTART + 165 RESTART 166 GRAB 1 - 168 ACC1 - 169 PUSHACC1 + 168 ACC1 + 169 PUSHACC1 170 C_CALL2 caml_output_int 172 RETURN 2 - 174 RESTART + 174 RESTART 175 GRAB 1 - 177 ACC1 - 178 PUSHACC1 + 177 ACC1 + 178 PUSHACC1 179 C_CALL2 caml_seek_out 181 RETURN 2 - 183 ACC0 + 183 ACC0 184 C_CALL1 caml_pos_out 186 RETURN 1 - 188 ACC0 + 188 ACC0 189 C_CALL1 caml_channel_size 191 RETURN 1 - 193 RESTART + 193 RESTART 194 GRAB 1 - 196 ACC1 - 197 PUSHACC1 + 196 ACC1 + 197 PUSHACC1 198 C_CALL2 caml_set_binary_mode 200 RETURN 2 - 202 ACC0 + 202 ACC0 203 C_CALL1 caml_input_char 205 RETURN 1 - 207 ACC0 + 207 ACC0 208 C_CALL1 caml_input_char 210 RETURN 1 - 212 ACC0 + 212 ACC0 213 C_CALL1 caml_input_int 215 RETURN 1 - 217 ACC0 + 217 ACC0 218 C_CALL1 input_value 220 RETURN 1 - 222 RESTART + 222 RESTART 223 GRAB 1 - 225 ACC1 - 226 PUSHACC1 + 225 ACC1 + 226 PUSHACC1 227 C_CALL2 caml_seek_in 229 RETURN 2 - 231 ACC0 + 231 ACC0 232 C_CALL1 caml_pos_in 234 RETURN 1 - 236 ACC0 + 236 ACC0 237 C_CALL1 caml_channel_size 239 RETURN 1 - 241 ACC0 + 241 ACC0 242 C_CALL1 caml_close_channel 244 RETURN 1 - 246 RESTART + 246 RESTART 247 GRAB 1 - 249 ACC1 - 250 PUSHACC1 + 249 ACC1 + 250 PUSHACC1 251 C_CALL2 caml_set_binary_mode 253 RETURN 2 - 255 CONST0 - 256 PUSHENVACC1 - 257 APPLY1 - 258 ACC0 + 255 CONST0 + 256 PUSHENVACC1 + 257 APPLY1 + 258 ACC0 259 C_CALL1 sys_exit 261 RETURN 1 - 263 CONST0 - 264 PUSHENVACC1 - 265 GETFIELD0 + 263 CONST0 + 264 PUSHENVACC1 + 265 GETFIELD0 266 APPTERM1 2 - 268 CONST0 - 269 PUSHENVACC1 - 270 APPLY1 - 271 CONST0 - 272 PUSHENVACC2 + 268 CONST0 + 269 PUSHENVACC1 + 270 APPLY1 + 271 CONST0 + 272 PUSHENVACC2 273 APPTERM1 2 - 275 ENVACC1 - 276 GETFIELD0 - 277 PUSHACC0 - 278 PUSHACC2 + 275 ENVACC1 + 276 GETFIELD0 + 277 PUSHACC0 + 278 PUSHACC2 279 CLOSURE 2, 268 - 282 PUSHENVACC1 - 283 SETFIELD0 + 282 PUSHENVACC1 + 283 SETFIELD0 284 RETURN 2 - 286 ENVACC1 + 286 ENVACC1 287 C_CALL1 caml_flush - 289 ENVACC2 + 289 ENVACC2 290 C_CALL1 caml_flush 292 RETURN 1 - 294 CONST0 - 295 PUSHENVACC1 - 296 APPLY1 + 294 CONST0 + 295 PUSHENVACC1 + 296 APPLY1 297 C_CALL1 float_of_string 299 RETURN 1 - 301 CONST0 - 302 PUSHENVACC1 - 303 APPLY1 + 301 CONST0 + 302 PUSHENVACC1 + 303 APPLY1 304 C_CALL1 int_of_string 306 RETURN 1 - 308 ENVACC2 + 308 ENVACC2 309 C_CALL1 caml_flush - 311 ENVACC1 - 312 PUSHENVACC3 + 311 ENVACC1 + 312 PUSHENVACC3 313 APPTERM1 2 315 CONSTINT 13 - 317 PUSHENVACC1 + 317 PUSHENVACC1 318 C_CALL2 caml_output_char - 320 ENVACC1 + 320 ENVACC1 321 C_CALL1 caml_flush 323 RETURN 1 - 325 ACC0 - 326 PUSHENVACC1 - 327 PUSHENVACC2 - 328 APPLY2 + 325 ACC0 + 326 PUSHENVACC1 + 327 PUSHENVACC2 + 328 APPLY2 329 CONSTINT 13 - 331 PUSHENVACC1 + 331 PUSHENVACC1 332 C_CALL2 caml_output_char - 334 ENVACC1 + 334 ENVACC1 335 C_CALL1 caml_flush 337 RETURN 1 - 339 ACC0 - 340 PUSHENVACC1 - 341 APPLY1 - 342 PUSHENVACC2 - 343 PUSHENVACC3 + 339 ACC0 + 340 PUSHENVACC1 + 341 APPLY1 + 342 PUSHENVACC2 + 343 PUSHENVACC3 344 APPTERM2 3 - 346 ACC0 - 347 PUSHENVACC1 - 348 APPLY1 - 349 PUSHENVACC2 - 350 PUSHENVACC3 + 346 ACC0 + 347 PUSHENVACC1 + 348 APPLY1 + 349 PUSHENVACC2 + 350 PUSHENVACC3 351 APPTERM2 3 - 353 ACC0 - 354 PUSHENVACC1 - 355 PUSHENVACC2 + 353 ACC0 + 354 PUSHENVACC1 + 355 PUSHENVACC2 356 APPTERM2 3 - 358 ACC0 - 359 PUSHENVACC1 + 358 ACC0 + 359 PUSHENVACC1 360 C_CALL2 caml_output_char 362 RETURN 1 364 CONSTINT 13 - 366 PUSHENVACC1 + 366 PUSHENVACC1 367 C_CALL2 caml_output_char - 369 ENVACC1 + 369 ENVACC1 370 C_CALL1 caml_flush 372 RETURN 1 - 374 ACC0 - 375 PUSHENVACC1 - 376 PUSHENVACC2 - 377 APPLY2 + 374 ACC0 + 375 PUSHENVACC1 + 376 PUSHENVACC2 + 377 APPLY2 378 CONSTINT 13 - 380 PUSHENVACC1 + 380 PUSHENVACC1 381 C_CALL2 caml_output_char 383 RETURN 1 - 385 ACC0 - 386 PUSHENVACC1 - 387 APPLY1 - 388 PUSHENVACC2 - 389 PUSHENVACC3 + 385 ACC0 + 386 PUSHENVACC1 + 387 APPLY1 + 388 PUSHENVACC2 + 389 PUSHENVACC3 390 APPTERM2 3 - 392 ACC0 - 393 PUSHENVACC1 - 394 APPLY1 - 395 PUSHENVACC2 - 396 PUSHENVACC3 + 392 ACC0 + 393 PUSHENVACC1 + 394 APPLY1 + 395 PUSHENVACC2 + 396 PUSHENVACC3 397 APPTERM2 3 - 399 ACC0 - 400 PUSHENVACC1 - 401 PUSHENVACC2 + 399 ACC0 + 400 PUSHENVACC1 + 401 PUSHENVACC2 402 APPTERM2 3 - 404 ACC0 - 405 PUSHENVACC1 + 404 ACC0 + 405 PUSHENVACC1 406 C_CALL2 caml_output_char 408 RETURN 1 - 410 RESTART + 410 RESTART 411 GRAB 3 - 413 CONST0 - 414 PUSHACC3 - 415 LTINT + 413 CONST0 + 414 PUSHACC3 + 415 LTINT 416 BRANCHIF 427 - 418 ACC1 + 418 ACC1 419 C_CALL1 ml_string_length - 421 PUSHACC4 - 422 PUSHACC4 - 423 ADDINT - 424 GTINT + 421 PUSHACC4 + 422 PUSHACC4 + 423 ADDINT + 424 GTINT 425 BRANCHIFNOT 432 427 GETGLOBAL "really_input" - 429 PUSHENVACC1 + 429 PUSHENVACC1 430 APPTERM1 5 - 432 ACC3 - 433 PUSHACC3 - 434 PUSHACC3 - 435 PUSHACC3 - 436 PUSHENVACC2 + 432 ACC3 + 433 PUSHACC3 + 434 PUSHACC3 + 435 PUSHACC3 + 436 PUSHENVACC2 437 APPTERM 4, 8 - 440 RESTART + 440 RESTART 441 GRAB 3 - 443 CONST0 - 444 PUSHACC3 - 445 LTINT + 443 CONST0 + 444 PUSHACC3 + 445 LTINT 446 BRANCHIF 457 - 448 ACC1 + 448 ACC1 449 C_CALL1 ml_string_length - 451 PUSHACC4 - 452 PUSHACC4 - 453 ADDINT - 454 GTINT + 451 PUSHACC4 + 452 PUSHACC4 + 453 ADDINT + 454 GTINT 455 BRANCHIFNOT 462 457 GETGLOBAL "input" - 459 PUSHENVACC1 + 459 PUSHENVACC1 460 APPTERM1 5 - 462 ACC3 - 463 PUSHACC3 - 464 PUSHACC3 - 465 PUSHACC3 + 462 ACC3 + 463 PUSHACC3 + 464 PUSHACC3 + 465 PUSHACC3 466 C_CALL4 caml_input 468 RETURN 4 - 470 ACC0 - 471 PUSHCONST0 + 470 ACC0 + 471 PUSHCONST0 472 PUSHGETGLOBAL <0>(0, <0>(6, 0)) - 474 PUSHENVACC1 + 474 PUSHENVACC1 475 APPTERM3 4 - 477 ACC0 - 478 PUSHCONST0 + 477 ACC0 + 478 PUSHCONST0 479 PUSHGETGLOBAL <0>(0, <0>(7, 0)) - 481 PUSHENVACC1 + 481 PUSHENVACC1 482 APPTERM3 4 - 484 RESTART + 484 RESTART 485 GRAB 2 - 487 ACC1 - 488 PUSHACC1 - 489 PUSHACC4 + 487 ACC1 + 488 PUSHACC1 + 489 PUSHACC4 490 C_CALL3 sys_open 492 C_CALL1 caml_open_descriptor 494 RETURN 3 - 496 ACC0 + 496 ACC0 497 C_CALL1 caml_flush - 499 ACC0 + 499 ACC0 500 C_CALL1 caml_close_channel 502 RETURN 1 - 504 RESTART + 504 RESTART 505 GRAB 1 - 507 CONST0 - 508 PUSHACC2 - 509 PUSHACC2 + 507 CONST0 + 508 PUSHACC2 + 509 PUSHACC2 510 C_CALL3 output_value 512 RETURN 2 - 514 RESTART + 514 RESTART 515 GRAB 3 - 517 CONST0 - 518 PUSHACC3 - 519 LTINT + 517 CONST0 + 518 PUSHACC3 + 519 LTINT 520 BRANCHIF 531 - 522 ACC1 + 522 ACC1 523 C_CALL1 ml_string_length - 525 PUSHACC4 - 526 PUSHACC4 - 527 ADDINT - 528 GTINT + 525 PUSHACC4 + 526 PUSHACC4 + 527 ADDINT + 528 GTINT 529 BRANCHIFNOT 536 531 GETGLOBAL "output" - 533 PUSHENVACC1 + 533 PUSHENVACC1 534 APPTERM1 5 - 536 ACC3 - 537 PUSHACC3 - 538 PUSHACC3 - 539 PUSHACC3 + 536 ACC3 + 537 PUSHACC3 + 538 PUSHACC3 + 539 PUSHACC3 540 C_CALL4 caml_output 542 RETURN 4 - 544 RESTART + 544 RESTART 545 GRAB 1 - 547 ACC1 + 547 ACC1 548 C_CALL1 ml_string_length - 550 PUSHCONST0 - 551 PUSHACC3 - 552 PUSHACC3 + 550 PUSHCONST0 + 551 PUSHACC3 + 552 PUSHACC3 553 C_CALL4 caml_output 555 RETURN 2 - 557 ACC0 + 557 ACC0 558 PUSHCONSTINT 438 560 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(6, 0)))) - 562 PUSHENVACC1 + 562 PUSHENVACC1 563 APPTERM3 4 - 565 ACC0 + 565 ACC0 566 PUSHCONSTINT 438 568 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(7, 0)))) - 570 PUSHENVACC1 + 570 PUSHENVACC1 571 APPTERM3 4 - 573 RESTART + 573 RESTART 574 GRAB 2 - 576 ACC1 - 577 PUSHACC1 - 578 PUSHACC4 + 576 ACC1 + 577 PUSHACC1 + 578 PUSHACC4 579 C_CALL3 sys_open 581 C_CALL1 caml_open_descriptor 583 RETURN 3 - 585 ACC0 + 585 ACC0 586 PUSHGETGLOBAL "%.12g" 588 C_CALL2 format_float 590 RETURN 1 - 592 ACC0 + 592 ACC0 593 PUSHGETGLOBAL "%d" 595 C_CALL2 format_int 597 RETURN 1 599 GETGLOBAL "false" - 601 PUSHACC1 + 601 PUSHACC1 602 C_CALL2 string_equal 604 BRANCHIFNOT 609 - 606 CONST0 + 606 CONST0 607 RETURN 1 609 GETGLOBAL "true" - 611 PUSHACC1 + 611 PUSHACC1 612 C_CALL2 string_equal 614 BRANCHIFNOT 619 - 616 CONST1 + 616 CONST1 617 RETURN 1 619 GETGLOBAL "bool_of_string" - 621 PUSHENVACC1 + 621 PUSHENVACC1 622 APPTERM1 2 - 624 ACC0 + 624 ACC0 625 BRANCHIFNOT 631 627 GETGLOBAL "true" 629 RETURN 1 631 GETGLOBAL "false" 633 RETURN 1 - 635 CONST0 - 636 PUSHACC1 - 637 LTINT + 635 CONST0 + 636 PUSHACC1 + 637 LTINT 638 BRANCHIF 646 640 CONSTINT 255 - 642 PUSHACC1 - 643 GTINT + 642 PUSHACC1 + 643 GTINT 644 BRANCHIFNOT 651 646 GETGLOBAL "char_of_int" - 648 PUSHENVACC1 + 648 PUSHENVACC1 649 APPTERM1 2 - 651 ACC0 + 651 ACC0 652 RETURN 1 - 654 RESTART + 654 RESTART 655 GRAB 1 - 657 ACC0 + 657 ACC0 658 C_CALL1 ml_string_length - 660 PUSHACC2 + 660 PUSHACC2 661 C_CALL1 ml_string_length - 663 PUSHACC0 - 664 PUSHACC2 - 665 ADDINT + 663 PUSHACC0 + 664 PUSHACC2 + 665 ADDINT 666 C_CALL1 create_string - 668 PUSHACC2 - 669 PUSHCONST0 - 670 PUSHACC2 - 671 PUSHCONST0 - 672 PUSHACC7 + 668 PUSHACC2 + 669 PUSHCONST0 + 670 PUSHACC2 + 671 PUSHCONST0 + 672 PUSHACC7 673 C_CALL5 blit_string - 675 ACC1 - 676 PUSHACC3 - 677 PUSHACC2 - 678 PUSHCONST0 + 675 ACC1 + 676 PUSHACC3 + 677 PUSHACC2 + 678 PUSHCONST0 679 PUSHACC 8 681 C_CALL5 blit_string - 683 ACC0 + 683 ACC0 684 RETURN 5 686 CONSTINT -1 - 688 PUSHACC1 - 689 XORINT + 688 PUSHACC1 + 689 XORINT 690 RETURN 1 - 692 CONST0 - 693 PUSHACC1 - 694 GEINT + 692 CONST0 + 693 PUSHACC1 + 694 GEINT 695 BRANCHIFNOT 700 - 697 ACC0 + 697 ACC0 698 RETURN 1 - 700 ACC0 - 701 NEGINT + 700 ACC0 + 701 NEGINT 702 RETURN 1 - 704 RESTART + 704 RESTART 705 GRAB 1 - 707 ACC1 - 708 PUSHACC1 + 707 ACC1 + 708 PUSHACC1 709 C_CALL2 greaterequal 711 BRANCHIFNOT 716 - 713 ACC0 + 713 ACC0 714 RETURN 2 - 716 ACC1 + 716 ACC1 717 RETURN 2 - 719 RESTART + 719 RESTART 720 GRAB 1 - 722 ACC1 - 723 PUSHACC1 + 722 ACC1 + 723 PUSHACC1 724 C_CALL2 lessequal 726 BRANCHIFNOT 731 - 728 ACC0 + 728 ACC0 729 RETURN 2 - 731 ACC1 + 731 ACC1 732 RETURN 2 - 734 ACC0 + 734 ACC0 735 PUSHGETGLOBAL Invalid_argument 737 MAKEBLOCK2 0 - 739 RAISE - 740 ACC0 + 739 RAISE + 740 ACC0 741 PUSHGETGLOBAL Failure 743 MAKEBLOCK2 0 - 745 RAISE + 745 RAISE 746 CLOSURE 0, 740 - 749 PUSH + 749 PUSH 750 CLOSURE 0, 734 753 PUSHGETGLOBAL "Pervasives.Exit" 755 MAKEBLOCK1 0 757 PUSHGETGLOBAL "Pervasives.Assert_failure" 759 MAKEBLOCK1 0 - 761 PUSH + 761 PUSH 762 CLOSURE 0, 720 - 765 PUSH + 765 PUSH 766 CLOSURE 0, 705 - 769 PUSH + 769 PUSH 770 CLOSURE 0, 692 - 773 PUSH + 773 PUSH 774 CLOSURE 0, 686 - 777 PUSHCONST0 + 777 PUSHCONST0 778 PUSHCONSTINT 31 - 780 PUSHCONST1 - 781 LSLINT - 782 EQ + 780 PUSHCONST1 + 781 LSLINT + 782 EQ 783 BRANCHIFNOT 789 785 CONSTINT 30 787 BRANCH 791 789 CONSTINT 62 - 791 PUSHCONST1 - 792 LSLINT - 793 PUSHACC0 + 791 PUSHCONST1 + 792 LSLINT + 793 PUSHACC0 794 OFFSETINT -1 - 796 PUSH + 796 PUSH 797 CLOSURE 0, 655 800 PUSHACC 9 802 CLOSURE 1, 635 - 805 PUSH + 805 PUSH 806 CLOSURE 0, 624 809 PUSHACC 11 811 CLOSURE 1, 599 - 814 PUSH + 814 PUSH 815 CLOSURE 0, 592 - 818 PUSH + 818 PUSH 819 CLOSURE 0, 585 - 822 PUSH + 822 PUSH 823 CLOSUREREC 0, 12 - 827 CONST0 + 827 CONST0 828 C_CALL1 caml_open_descriptor - 830 PUSHCONST1 + 830 PUSHCONST1 831 C_CALL1 caml_open_descriptor - 833 PUSHCONST2 + 833 PUSHCONST2 834 C_CALL1 caml_open_descriptor - 836 PUSH + 836 PUSH 837 CLOSURE 0, 574 - 840 PUSHACC0 + 840 PUSHACC0 841 CLOSURE 1, 565 - 844 PUSHACC1 + 844 PUSHACC1 845 CLOSURE 1, 557 - 848 PUSH + 848 PUSH 849 CLOSURE 0, 545 852 PUSHACC 22 854 CLOSURE 1, 515 - 857 PUSH + 857 PUSH 858 CLOSURE 0, 505 - 861 PUSH + 861 PUSH 862 CLOSURE 0, 496 - 865 PUSH + 865 PUSH 866 CLOSURE 0, 485 - 869 PUSHACC0 + 869 PUSHACC0 870 CLOSURE 1, 477 - 873 PUSHACC1 + 873 PUSHACC1 874 CLOSURE 1, 470 877 PUSHACC 28 879 CLOSURE 1, 441 - 882 PUSH + 882 PUSH 883 CLOSUREREC 0, 32 - 887 ACC0 + 887 ACC0 888 PUSHACC 31 890 CLOSURE 2, 411 893 PUSHACC 22 @@ -647,67 +647,67 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 985 PUSHACC 28 987 PUSHACC 30 989 CLOSURE 3, 308 - 992 PUSHACC0 + 992 PUSHACC0 993 CLOSURE 1, 301 - 996 PUSHACC1 + 996 PUSHACC1 997 CLOSURE 1, 294 1000 PUSHACC 29 1002 PUSHACC 31 1004 CLOSURE 2, 286 1007 MAKEBLOCK1 0 - 1009 PUSHACC0 + 1009 PUSHACC0 1010 CLOSURE 1, 275 - 1013 PUSHACC1 + 1013 PUSHACC1 1014 CLOSURE 1, 263 - 1017 PUSHACC0 + 1017 PUSHACC0 1018 CLOSURE 1, 255 - 1021 PUSHACC1 + 1021 PUSHACC1 1022 PUSHACC 22 - 1024 PUSHACC4 - 1025 PUSHACC3 - 1026 PUSH + 1024 PUSHACC4 + 1025 PUSHACC3 + 1026 PUSH 1027 CLOSURE 0, 247 - 1030 PUSH + 1030 PUSH 1031 CLOSURE 0, 241 - 1034 PUSH + 1034 PUSH 1035 CLOSURE 0, 236 - 1038 PUSH + 1038 PUSH 1039 CLOSURE 0, 231 - 1042 PUSH + 1042 PUSH 1043 CLOSURE 0, 223 - 1046 PUSH + 1046 PUSH 1047 CLOSURE 0, 217 - 1050 PUSH + 1050 PUSH 1051 CLOSURE 0, 212 - 1054 PUSH + 1054 PUSH 1055 CLOSURE 0, 207 1058 PUSHACC 32 1060 PUSHACC 35 1062 PUSHACC 33 - 1064 PUSH + 1064 PUSH 1065 CLOSURE 0, 202 1068 PUSHACC 41 1070 PUSHACC 40 1072 PUSHACC 42 - 1074 PUSH + 1074 PUSH 1075 CLOSURE 0, 194 1078 PUSHACC 46 - 1080 PUSH + 1080 PUSH 1081 CLOSURE 0, 188 - 1084 PUSH + 1084 PUSH 1085 CLOSURE 0, 183 - 1088 PUSH + 1088 PUSH 1089 CLOSURE 0, 175 1092 PUSHACC 51 - 1094 PUSH + 1094 PUSH 1095 CLOSURE 0, 166 - 1098 PUSH + 1098 PUSH 1099 CLOSURE 0, 157 1102 PUSHACC 55 1104 PUSHACC 57 - 1106 PUSH + 1106 PUSH 1107 CLOSURE 0, 148 - 1110 PUSH + 1110 PUSH 1111 CLOSURE 0, 142 1114 PUSHACC 63 1116 PUSHACC 62 @@ -751,38 +751,38 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 1193 POP 53 1195 SETGLOBAL Pervasives 1197 BRANCH 2177 - 1199 RESTART + 1199 RESTART 1200 GRAB 1 - 1202 ACC1 + 1202 ACC1 1203 BRANCHIFNOT 1213 - 1205 ACC1 - 1206 GETFIELD1 - 1207 PUSHACC1 + 1205 ACC1 + 1206 GETFIELD1 + 1207 PUSHACC1 1208 OFFSETINT 1 - 1210 PUSHOFFSETCLOSURE0 + 1210 PUSHOFFSETCLOSURE0 1211 APPTERM2 4 - 1213 ACC0 + 1213 ACC0 1214 RETURN 2 - 1216 RESTART + 1216 RESTART 1217 GRAB 1 - 1219 ACC0 + 1219 ACC0 1220 BRANCHIFNOT 1251 - 1222 CONST0 - 1223 PUSHACC2 - 1224 EQ + 1222 CONST0 + 1223 PUSHACC2 + 1224 EQ 1225 BRANCHIFNOT 1231 - 1227 ACC0 - 1228 GETFIELD0 + 1227 ACC0 + 1228 GETFIELD0 1229 RETURN 2 - 1231 CONST0 - 1232 PUSHACC2 - 1233 GTINT + 1231 CONST0 + 1232 PUSHACC2 + 1233 GTINT 1234 BRANCHIFNOT 1244 - 1236 ACC1 + 1236 ACC1 1237 OFFSETINT -1 - 1239 PUSHACC1 - 1240 GETFIELD1 - 1241 PUSHOFFSETCLOSURE0 + 1239 PUSHACC1 + 1240 GETFIELD1 + 1241 PUSHOFFSETCLOSURE0 1242 APPTERM2 4 1244 GETGLOBAL "List.nth" 1246 PUSHGETGLOBALFIELD Pervasives, 2 @@ -790,696 +790,696 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 1251 GETGLOBAL "nth" 1253 PUSHGETGLOBALFIELD Pervasives, 3 1256 APPTERM1 3 - 1258 RESTART + 1258 RESTART 1259 GRAB 1 - 1261 ACC0 + 1261 ACC0 1262 BRANCHIFNOT 1274 - 1264 ACC1 - 1265 PUSHACC1 - 1266 GETFIELD0 + 1264 ACC1 + 1265 PUSHACC1 + 1266 GETFIELD0 1267 MAKEBLOCK2 0 - 1269 PUSHACC1 - 1270 GETFIELD1 - 1271 PUSHOFFSETCLOSURE0 + 1269 PUSHACC1 + 1270 GETFIELD1 + 1271 PUSHOFFSETCLOSURE0 1272 APPTERM2 4 - 1274 ACC1 + 1274 ACC1 1275 RETURN 2 - 1277 ACC0 + 1277 ACC0 1278 BRANCHIFNOT 1291 - 1280 ACC0 - 1281 GETFIELD1 - 1282 PUSHOFFSETCLOSURE0 - 1283 APPLY1 - 1284 PUSHACC1 - 1285 GETFIELD0 + 1280 ACC0 + 1281 GETFIELD1 + 1282 PUSHOFFSETCLOSURE0 + 1283 APPLY1 + 1284 PUSHACC1 + 1285 GETFIELD0 1286 PUSHGETGLOBALFIELD Pervasives, 16 1289 APPTERM2 3 1291 RETURN 1 - 1293 RESTART + 1293 RESTART 1294 GRAB 1 - 1296 ACC1 + 1296 ACC1 1297 BRANCHIFNOT 1313 - 1299 ACC1 - 1300 GETFIELD0 - 1301 PUSHACC1 - 1302 APPLY1 - 1303 PUSHACC2 - 1304 GETFIELD1 - 1305 PUSHACC2 - 1306 PUSHOFFSETCLOSURE0 - 1307 APPLY2 - 1308 PUSHACC1 + 1299 ACC1 + 1300 GETFIELD0 + 1301 PUSHACC1 + 1302 APPLY1 + 1303 PUSHACC2 + 1304 GETFIELD1 + 1305 PUSHACC2 + 1306 PUSHOFFSETCLOSURE0 + 1307 APPLY2 + 1308 PUSHACC1 1309 MAKEBLOCK2 0 1311 POP 1 1313 RETURN 2 - 1315 RESTART + 1315 RESTART 1316 GRAB 1 - 1318 ACC1 + 1318 ACC1 1319 BRANCHIFNOT 1331 - 1321 ACC1 - 1322 GETFIELD0 - 1323 PUSHACC1 - 1324 APPLY1 - 1325 ACC1 - 1326 GETFIELD1 - 1327 PUSHACC1 - 1328 PUSHOFFSETCLOSURE0 + 1321 ACC1 + 1322 GETFIELD0 + 1323 PUSHACC1 + 1324 APPLY1 + 1325 ACC1 + 1326 GETFIELD1 + 1327 PUSHACC1 + 1328 PUSHOFFSETCLOSURE0 1329 APPTERM2 4 1331 RETURN 2 - 1333 RESTART + 1333 RESTART 1334 GRAB 2 - 1336 ACC2 + 1336 ACC2 1337 BRANCHIFNOT 1350 - 1339 ACC2 - 1340 GETFIELD1 - 1341 PUSHACC3 - 1342 GETFIELD0 - 1343 PUSHACC3 - 1344 PUSHACC3 - 1345 APPLY2 - 1346 PUSHACC2 - 1347 PUSHOFFSETCLOSURE0 + 1339 ACC2 + 1340 GETFIELD1 + 1341 PUSHACC3 + 1342 GETFIELD0 + 1343 PUSHACC3 + 1344 PUSHACC3 + 1345 APPLY2 + 1346 PUSHACC2 + 1347 PUSHOFFSETCLOSURE0 1348 APPTERM3 6 - 1350 ACC1 + 1350 ACC1 1351 RETURN 3 - 1353 RESTART + 1353 RESTART 1354 GRAB 2 - 1356 ACC1 + 1356 ACC1 1357 BRANCHIFNOT 1370 - 1359 ACC2 - 1360 PUSHACC2 - 1361 GETFIELD1 - 1362 PUSHACC2 - 1363 PUSHOFFSETCLOSURE0 - 1364 APPLY3 - 1365 PUSHACC2 - 1366 GETFIELD0 - 1367 PUSHACC2 + 1359 ACC2 + 1360 PUSHACC2 + 1361 GETFIELD1 + 1362 PUSHACC2 + 1363 PUSHOFFSETCLOSURE0 + 1364 APPLY3 + 1365 PUSHACC2 + 1366 GETFIELD0 + 1367 PUSHACC2 1368 APPTERM2 5 - 1370 ACC2 + 1370 ACC2 1371 RETURN 3 - 1373 RESTART + 1373 RESTART 1374 GRAB 2 - 1376 ACC1 + 1376 ACC1 1377 BRANCHIFNOT 1400 - 1379 ACC2 + 1379 ACC2 1380 BRANCHIFNOT 1407 - 1382 ACC2 - 1383 GETFIELD0 - 1384 PUSHACC2 - 1385 GETFIELD0 - 1386 PUSHACC2 - 1387 APPLY2 - 1388 PUSHACC3 - 1389 GETFIELD1 - 1390 PUSHACC3 - 1391 GETFIELD1 - 1392 PUSHACC3 - 1393 PUSHOFFSETCLOSURE0 - 1394 APPLY3 - 1395 PUSHACC1 + 1382 ACC2 + 1383 GETFIELD0 + 1384 PUSHACC2 + 1385 GETFIELD0 + 1386 PUSHACC2 + 1387 APPLY2 + 1388 PUSHACC3 + 1389 GETFIELD1 + 1390 PUSHACC3 + 1391 GETFIELD1 + 1392 PUSHACC3 + 1393 PUSHOFFSETCLOSURE0 + 1394 APPLY3 + 1395 PUSHACC1 1396 MAKEBLOCK2 0 1398 RETURN 4 - 1400 ACC2 + 1400 ACC2 1401 BRANCHIFNOT 1405 1403 BRANCH 1407 1405 RETURN 3 1407 GETGLOBAL "List.map2" 1409 PUSHGETGLOBALFIELD Pervasives, 2 1412 APPTERM1 4 - 1414 RESTART + 1414 RESTART 1415 GRAB 2 - 1417 ACC1 + 1417 ACC1 1418 BRANCHIFNOT 1437 - 1420 ACC2 + 1420 ACC2 1421 BRANCHIFNOT 1444 - 1423 ACC2 - 1424 GETFIELD0 - 1425 PUSHACC2 - 1426 GETFIELD0 - 1427 PUSHACC2 - 1428 APPLY2 - 1429 ACC2 - 1430 GETFIELD1 - 1431 PUSHACC2 - 1432 GETFIELD1 - 1433 PUSHACC2 - 1434 PUSHOFFSETCLOSURE0 + 1423 ACC2 + 1424 GETFIELD0 + 1425 PUSHACC2 + 1426 GETFIELD0 + 1427 PUSHACC2 + 1428 APPLY2 + 1429 ACC2 + 1430 GETFIELD1 + 1431 PUSHACC2 + 1432 GETFIELD1 + 1433 PUSHACC2 + 1434 PUSHOFFSETCLOSURE0 1435 APPTERM3 6 - 1437 ACC2 + 1437 ACC2 1438 BRANCHIFNOT 1442 1440 BRANCH 1444 1442 RETURN 3 1444 GETGLOBAL "List.iter2" 1446 PUSHGETGLOBALFIELD Pervasives, 2 1449 APPTERM1 4 - 1451 RESTART + 1451 RESTART 1452 GRAB 3 - 1454 ACC2 + 1454 ACC2 1455 BRANCHIFNOT 1476 - 1457 ACC3 + 1457 ACC3 1458 BRANCHIFNOT 1482 - 1460 ACC3 - 1461 GETFIELD1 - 1462 PUSHACC3 - 1463 GETFIELD1 - 1464 PUSHACC5 - 1465 GETFIELD0 - 1466 PUSHACC5 - 1467 GETFIELD0 - 1468 PUSHACC5 - 1469 PUSHACC5 - 1470 APPLY3 - 1471 PUSHACC3 - 1472 PUSHOFFSETCLOSURE0 + 1460 ACC3 + 1461 GETFIELD1 + 1462 PUSHACC3 + 1463 GETFIELD1 + 1464 PUSHACC5 + 1465 GETFIELD0 + 1466 PUSHACC5 + 1467 GETFIELD0 + 1468 PUSHACC5 + 1469 PUSHACC5 + 1470 APPLY3 + 1471 PUSHACC3 + 1472 PUSHOFFSETCLOSURE0 1473 APPTERM 4, 8 - 1476 ACC3 + 1476 ACC3 1477 BRANCHIF 1482 - 1479 ACC1 + 1479 ACC1 1480 RETURN 4 1482 GETGLOBAL "List.fold_left2" 1484 PUSHGETGLOBALFIELD Pervasives, 2 1487 APPTERM1 5 - 1489 RESTART + 1489 RESTART 1490 GRAB 3 - 1492 ACC1 + 1492 ACC1 1493 BRANCHIFNOT 1516 - 1495 ACC2 + 1495 ACC2 1496 BRANCHIFNOT 1522 1498 PUSH_RETADDR 1509 - 1500 ACC6 - 1501 PUSHACC6 - 1502 GETFIELD1 - 1503 PUSHACC6 - 1504 GETFIELD1 - 1505 PUSHACC6 - 1506 PUSHOFFSETCLOSURE0 + 1500 ACC6 + 1501 PUSHACC6 + 1502 GETFIELD1 + 1503 PUSHACC6 + 1504 GETFIELD1 + 1505 PUSHACC6 + 1506 PUSHOFFSETCLOSURE0 1507 APPLY 4 - 1509 PUSHACC3 - 1510 GETFIELD0 - 1511 PUSHACC3 - 1512 GETFIELD0 - 1513 PUSHACC3 + 1509 PUSHACC3 + 1510 GETFIELD0 + 1511 PUSHACC3 + 1512 GETFIELD0 + 1513 PUSHACC3 1514 APPTERM3 7 - 1516 ACC2 + 1516 ACC2 1517 BRANCHIF 1522 - 1519 ACC3 + 1519 ACC3 1520 RETURN 4 1522 GETGLOBAL "List.fold_right2" 1524 PUSHGETGLOBALFIELD Pervasives, 2 1527 APPTERM1 5 - 1529 RESTART + 1529 RESTART 1530 GRAB 1 - 1532 ACC1 + 1532 ACC1 1533 BRANCHIFNOT 1549 - 1535 ACC1 - 1536 GETFIELD0 - 1537 PUSHACC1 - 1538 APPLY1 + 1535 ACC1 + 1536 GETFIELD0 + 1537 PUSHACC1 + 1538 APPLY1 1539 BRANCHIFNOT 1547 - 1541 ACC1 - 1542 GETFIELD1 - 1543 PUSHACC1 - 1544 PUSHOFFSETCLOSURE0 + 1541 ACC1 + 1542 GETFIELD1 + 1543 PUSHACC1 + 1544 PUSHOFFSETCLOSURE0 1545 APPTERM2 4 1547 RETURN 2 - 1549 CONST1 + 1549 CONST1 1550 RETURN 2 - 1552 RESTART + 1552 RESTART 1553 GRAB 1 - 1555 ACC1 + 1555 ACC1 1556 BRANCHIFNOT 1570 - 1558 ACC1 - 1559 GETFIELD0 - 1560 PUSHACC1 - 1561 APPLY1 + 1558 ACC1 + 1559 GETFIELD0 + 1560 PUSHACC1 + 1561 APPLY1 1562 BRANCHIF 1570 - 1564 ACC1 - 1565 GETFIELD1 - 1566 PUSHACC1 - 1567 PUSHOFFSETCLOSURE0 + 1564 ACC1 + 1565 GETFIELD1 + 1566 PUSHACC1 + 1567 PUSHOFFSETCLOSURE0 1568 APPTERM2 4 1570 RETURN 2 - 1572 RESTART + 1572 RESTART 1573 GRAB 2 - 1575 ACC1 + 1575 ACC1 1576 BRANCHIFNOT 1599 - 1578 ACC2 + 1578 ACC2 1579 BRANCHIFNOT 1605 - 1581 ACC2 - 1582 GETFIELD0 - 1583 PUSHACC2 - 1584 GETFIELD0 - 1585 PUSHACC2 - 1586 APPLY2 + 1581 ACC2 + 1582 GETFIELD0 + 1583 PUSHACC2 + 1584 GETFIELD0 + 1585 PUSHACC2 + 1586 APPLY2 1587 BRANCHIFNOT 1597 - 1589 ACC2 - 1590 GETFIELD1 - 1591 PUSHACC2 - 1592 GETFIELD1 - 1593 PUSHACC2 - 1594 PUSHOFFSETCLOSURE0 + 1589 ACC2 + 1590 GETFIELD1 + 1591 PUSHACC2 + 1592 GETFIELD1 + 1593 PUSHACC2 + 1594 PUSHOFFSETCLOSURE0 1595 APPTERM3 6 1597 RETURN 3 - 1599 ACC2 + 1599 ACC2 1600 BRANCHIF 1605 - 1602 CONST1 + 1602 CONST1 1603 RETURN 3 1605 GETGLOBAL "List.for_all2" 1607 PUSHGETGLOBALFIELD Pervasives, 2 1610 APPTERM1 4 - 1612 RESTART + 1612 RESTART 1613 GRAB 2 - 1615 ACC1 + 1615 ACC1 1616 BRANCHIFNOT 1639 - 1618 ACC2 + 1618 ACC2 1619 BRANCHIFNOT 1646 - 1621 ACC2 - 1622 GETFIELD0 - 1623 PUSHACC2 - 1624 GETFIELD0 - 1625 PUSHACC2 - 1626 APPLY2 + 1621 ACC2 + 1622 GETFIELD0 + 1623 PUSHACC2 + 1624 GETFIELD0 + 1625 PUSHACC2 + 1626 APPLY2 1627 BRANCHIF 1637 - 1629 ACC2 - 1630 GETFIELD1 - 1631 PUSHACC2 - 1632 GETFIELD1 - 1633 PUSHACC2 - 1634 PUSHOFFSETCLOSURE0 + 1629 ACC2 + 1630 GETFIELD1 + 1631 PUSHACC2 + 1632 GETFIELD1 + 1633 PUSHACC2 + 1634 PUSHOFFSETCLOSURE0 1635 APPTERM3 6 1637 RETURN 3 - 1639 ACC2 + 1639 ACC2 1640 BRANCHIFNOT 1644 1642 BRANCH 1646 1644 RETURN 3 1646 GETGLOBAL "List.exists2" 1648 PUSHGETGLOBALFIELD Pervasives, 2 1651 APPTERM1 4 - 1653 RESTART + 1653 RESTART 1654 GRAB 1 - 1656 ACC1 + 1656 ACC1 1657 BRANCHIFNOT 1672 - 1659 ACC0 - 1660 PUSHACC2 - 1661 GETFIELD0 + 1659 ACC0 + 1660 PUSHACC2 + 1661 GETFIELD0 1662 C_CALL2 equal 1664 BRANCHIF 1672 - 1666 ACC1 - 1667 GETFIELD1 - 1668 PUSHACC1 - 1669 PUSHOFFSETCLOSURE0 + 1666 ACC1 + 1667 GETFIELD1 + 1668 PUSHACC1 + 1669 PUSHOFFSETCLOSURE0 1670 APPTERM2 4 1672 RETURN 2 - 1674 RESTART + 1674 RESTART 1675 GRAB 1 - 1677 ACC1 + 1677 ACC1 1678 BRANCHIFNOT 1692 - 1680 ACC0 - 1681 PUSHACC2 - 1682 GETFIELD0 - 1683 EQ + 1680 ACC0 + 1681 PUSHACC2 + 1682 GETFIELD0 + 1683 EQ 1684 BRANCHIF 1692 - 1686 ACC1 - 1687 GETFIELD1 - 1688 PUSHACC1 - 1689 PUSHOFFSETCLOSURE0 + 1686 ACC1 + 1687 GETFIELD1 + 1688 PUSHACC1 + 1689 PUSHOFFSETCLOSURE0 1690 APPTERM2 4 1692 RETURN 2 - 1694 RESTART + 1694 RESTART 1695 GRAB 1 - 1697 ACC1 + 1697 ACC1 1698 BRANCHIFNOT 1719 - 1700 ACC1 - 1701 GETFIELD0 - 1702 PUSHACC1 - 1703 PUSHACC1 - 1704 GETFIELD0 + 1700 ACC1 + 1701 GETFIELD0 + 1702 PUSHACC1 + 1703 PUSHACC1 + 1704 GETFIELD0 1705 C_CALL2 equal 1707 BRANCHIFNOT 1713 - 1709 ACC0 - 1710 GETFIELD1 + 1709 ACC0 + 1710 GETFIELD1 1711 RETURN 3 - 1713 ACC2 - 1714 GETFIELD1 - 1715 PUSHACC2 - 1716 PUSHOFFSETCLOSURE0 + 1713 ACC2 + 1714 GETFIELD1 + 1715 PUSHACC2 + 1716 PUSHOFFSETCLOSURE0 1717 APPTERM2 5 1719 GETGLOBAL Not_found 1721 MAKEBLOCK1 0 - 1723 RAISE - 1724 RESTART + 1723 RAISE + 1724 RESTART 1725 GRAB 1 - 1727 ACC1 + 1727 ACC1 1728 BRANCHIFNOT 1748 - 1730 ACC1 - 1731 GETFIELD0 - 1732 PUSHACC1 - 1733 PUSHACC1 - 1734 GETFIELD0 - 1735 EQ + 1730 ACC1 + 1731 GETFIELD0 + 1732 PUSHACC1 + 1733 PUSHACC1 + 1734 GETFIELD0 + 1735 EQ 1736 BRANCHIFNOT 1742 - 1738 ACC0 - 1739 GETFIELD1 + 1738 ACC0 + 1739 GETFIELD1 1740 RETURN 3 - 1742 ACC2 - 1743 GETFIELD1 - 1744 PUSHACC2 - 1745 PUSHOFFSETCLOSURE0 + 1742 ACC2 + 1743 GETFIELD1 + 1744 PUSHACC2 + 1745 PUSHOFFSETCLOSURE0 1746 APPTERM2 5 1748 GETGLOBAL Not_found 1750 MAKEBLOCK1 0 - 1752 RAISE - 1753 RESTART + 1752 RAISE + 1753 RESTART 1754 GRAB 1 - 1756 ACC1 + 1756 ACC1 1757 BRANCHIFNOT 1773 - 1759 ACC0 - 1760 PUSHACC2 - 1761 GETFIELD0 - 1762 GETFIELD0 + 1759 ACC0 + 1760 PUSHACC2 + 1761 GETFIELD0 + 1762 GETFIELD0 1763 C_CALL2 equal 1765 BRANCHIF 1773 - 1767 ACC1 - 1768 GETFIELD1 - 1769 PUSHACC1 - 1770 PUSHOFFSETCLOSURE0 + 1767 ACC1 + 1768 GETFIELD1 + 1769 PUSHACC1 + 1770 PUSHOFFSETCLOSURE0 1771 APPTERM2 4 1773 RETURN 2 - 1775 RESTART + 1775 RESTART 1776 GRAB 1 - 1778 ACC1 + 1778 ACC1 1779 BRANCHIFNOT 1794 - 1781 ACC0 - 1782 PUSHACC2 - 1783 GETFIELD0 - 1784 GETFIELD0 - 1785 EQ + 1781 ACC0 + 1782 PUSHACC2 + 1783 GETFIELD0 + 1784 GETFIELD0 + 1785 EQ 1786 BRANCHIF 1794 - 1788 ACC1 - 1789 GETFIELD1 - 1790 PUSHACC1 - 1791 PUSHOFFSETCLOSURE0 + 1788 ACC1 + 1789 GETFIELD1 + 1790 PUSHACC1 + 1791 PUSHOFFSETCLOSURE0 1792 APPTERM2 4 1794 RETURN 2 - 1796 RESTART + 1796 RESTART 1797 GRAB 1 - 1799 ACC1 + 1799 ACC1 1800 BRANCHIFNOT 1825 - 1802 ACC1 - 1803 GETFIELD0 - 1804 PUSHACC2 - 1805 GETFIELD1 - 1806 PUSHACC2 - 1807 PUSHACC2 - 1808 GETFIELD0 + 1802 ACC1 + 1803 GETFIELD0 + 1804 PUSHACC2 + 1805 GETFIELD1 + 1806 PUSHACC2 + 1807 PUSHACC2 + 1808 GETFIELD0 1809 C_CALL2 equal 1811 BRANCHIFNOT 1816 - 1813 ACC0 + 1813 ACC0 1814 RETURN 4 - 1816 ACC0 - 1817 PUSHACC3 - 1818 PUSHOFFSETCLOSURE0 - 1819 APPLY2 - 1820 PUSHACC2 + 1816 ACC0 + 1817 PUSHACC3 + 1818 PUSHOFFSETCLOSURE0 + 1819 APPLY2 + 1820 PUSHACC2 1821 MAKEBLOCK2 0 1823 POP 2 1825 RETURN 2 - 1827 RESTART + 1827 RESTART 1828 GRAB 1 - 1830 ACC1 + 1830 ACC1 1831 BRANCHIFNOT 1855 - 1833 ACC1 - 1834 GETFIELD0 - 1835 PUSHACC2 - 1836 GETFIELD1 - 1837 PUSHACC2 - 1838 PUSHACC2 - 1839 GETFIELD0 - 1840 EQ + 1833 ACC1 + 1834 GETFIELD0 + 1835 PUSHACC2 + 1836 GETFIELD1 + 1837 PUSHACC2 + 1838 PUSHACC2 + 1839 GETFIELD0 + 1840 EQ 1841 BRANCHIFNOT 1846 - 1843 ACC0 + 1843 ACC0 1844 RETURN 4 - 1846 ACC0 - 1847 PUSHACC3 - 1848 PUSHOFFSETCLOSURE0 - 1849 APPLY2 - 1850 PUSHACC2 + 1846 ACC0 + 1847 PUSHACC3 + 1848 PUSHOFFSETCLOSURE0 + 1849 APPLY2 + 1850 PUSHACC2 1851 MAKEBLOCK2 0 1853 POP 2 1855 RETURN 2 - 1857 RESTART + 1857 RESTART 1858 GRAB 1 - 1860 ACC1 + 1860 ACC1 1861 BRANCHIFNOT 1879 - 1863 ACC1 - 1864 GETFIELD0 - 1865 PUSHACC0 - 1866 PUSHACC2 - 1867 APPLY1 + 1863 ACC1 + 1864 GETFIELD0 + 1865 PUSHACC0 + 1866 PUSHACC2 + 1867 APPLY1 1868 BRANCHIFNOT 1873 - 1870 ACC0 + 1870 ACC0 1871 RETURN 3 - 1873 ACC2 - 1874 GETFIELD1 - 1875 PUSHACC2 - 1876 PUSHOFFSETCLOSURE0 + 1873 ACC2 + 1874 GETFIELD1 + 1875 PUSHACC2 + 1876 PUSHOFFSETCLOSURE0 1877 APPTERM2 5 1879 GETGLOBAL Not_found 1881 MAKEBLOCK1 0 - 1883 RAISE - 1884 RESTART + 1883 RAISE + 1884 RESTART 1885 GRAB 2 - 1887 ACC2 + 1887 ACC2 1888 BRANCHIFNOT 1917 - 1890 ACC2 - 1891 GETFIELD0 - 1892 PUSHACC3 - 1893 GETFIELD1 - 1894 PUSHACC1 - 1895 PUSHENVACC2 - 1896 APPLY1 + 1890 ACC2 + 1891 GETFIELD0 + 1892 PUSHACC3 + 1893 GETFIELD1 + 1894 PUSHACC1 + 1895 PUSHENVACC2 + 1896 APPLY1 1897 BRANCHIFNOT 1908 - 1899 ACC0 - 1900 PUSHACC4 - 1901 PUSHACC4 - 1902 PUSHACC4 + 1899 ACC0 + 1900 PUSHACC4 + 1901 PUSHACC4 + 1902 PUSHACC4 1903 MAKEBLOCK2 0 - 1905 PUSHOFFSETCLOSURE0 + 1905 PUSHOFFSETCLOSURE0 1906 APPTERM3 8 - 1908 ACC0 - 1909 PUSHACC4 - 1910 PUSHACC3 + 1908 ACC0 + 1909 PUSHACC4 + 1910 PUSHACC3 1911 MAKEBLOCK2 0 - 1913 PUSHACC4 - 1914 PUSHOFFSETCLOSURE0 + 1913 PUSHACC4 + 1914 PUSHOFFSETCLOSURE0 1915 APPTERM3 8 - 1917 ACC1 - 1918 PUSHENVACC1 - 1919 APPLY1 - 1920 PUSHACC1 - 1921 PUSHENVACC1 - 1922 APPLY1 + 1917 ACC1 + 1918 PUSHENVACC1 + 1919 APPLY1 + 1920 PUSHACC1 + 1921 PUSHENVACC1 + 1922 APPLY1 1923 MAKEBLOCK2 0 1925 RETURN 3 - 1927 RESTART + 1927 RESTART 1928 GRAB 1 - 1930 ACC0 - 1931 PUSHENVACC1 + 1930 ACC0 + 1931 PUSHENVACC1 1932 CLOSUREREC 2, 1885 - 1936 ACC2 - 1937 PUSHCONST0 - 1938 PUSHCONST0 - 1939 PUSHACC3 + 1936 ACC2 + 1937 PUSHCONST0 + 1938 PUSHCONST0 + 1939 PUSHACC3 1940 APPTERM3 6 - 1942 ACC0 + 1942 ACC0 1943 BRANCHIFNOT 1967 - 1945 ACC0 - 1946 GETFIELD0 - 1947 PUSHACC1 - 1948 GETFIELD1 - 1949 PUSHOFFSETCLOSURE0 - 1950 APPLY1 - 1951 PUSHACC0 - 1952 GETFIELD1 - 1953 PUSHACC2 - 1954 GETFIELD1 + 1945 ACC0 + 1946 GETFIELD0 + 1947 PUSHACC1 + 1948 GETFIELD1 + 1949 PUSHOFFSETCLOSURE0 + 1950 APPLY1 + 1951 PUSHACC0 + 1952 GETFIELD1 + 1953 PUSHACC2 + 1954 GETFIELD1 1955 MAKEBLOCK2 0 - 1957 PUSHACC1 - 1958 GETFIELD0 - 1959 PUSHACC3 - 1960 GETFIELD0 + 1957 PUSHACC1 + 1958 GETFIELD0 + 1959 PUSHACC3 + 1960 GETFIELD0 1961 MAKEBLOCK2 0 1963 MAKEBLOCK2 0 1965 RETURN 3 1967 GETGLOBAL <0>(0, 0) 1969 RETURN 1 - 1971 RESTART + 1971 RESTART 1972 GRAB 1 - 1974 ACC0 + 1974 ACC0 1975 BRANCHIFNOT 1996 - 1977 ACC1 + 1977 ACC1 1978 BRANCHIFNOT 2003 - 1980 ACC1 - 1981 GETFIELD1 - 1982 PUSHACC1 - 1983 GETFIELD1 - 1984 PUSHOFFSETCLOSURE0 - 1985 APPLY2 - 1986 PUSHACC2 - 1987 GETFIELD0 - 1988 PUSHACC2 - 1989 GETFIELD0 + 1980 ACC1 + 1981 GETFIELD1 + 1982 PUSHACC1 + 1983 GETFIELD1 + 1984 PUSHOFFSETCLOSURE0 + 1985 APPLY2 + 1986 PUSHACC2 + 1987 GETFIELD0 + 1988 PUSHACC2 + 1989 GETFIELD0 1990 MAKEBLOCK2 0 1992 MAKEBLOCK2 0 1994 RETURN 2 - 1996 ACC1 + 1996 ACC1 1997 BRANCHIFNOT 2001 1999 BRANCH 2003 2001 RETURN 2 2003 GETGLOBAL "List.combine" 2005 PUSHGETGLOBALFIELD Pervasives, 2 2008 APPTERM1 3 - 2010 RESTART + 2010 RESTART 2011 GRAB 1 - 2013 ACC1 + 2013 ACC1 2014 BRANCHIFNOT 2038 - 2016 ACC1 - 2017 GETFIELD0 - 2018 PUSHACC2 - 2019 GETFIELD1 - 2020 PUSHACC1 - 2021 PUSHENVACC2 - 2022 APPLY1 + 2016 ACC1 + 2017 GETFIELD0 + 2018 PUSHACC2 + 2019 GETFIELD1 + 2020 PUSHACC1 + 2021 PUSHENVACC2 + 2022 APPLY1 2023 BRANCHIFNOT 2033 - 2025 ACC0 - 2026 PUSHACC3 - 2027 PUSHACC3 + 2025 ACC0 + 2026 PUSHACC3 + 2027 PUSHACC3 2028 MAKEBLOCK2 0 - 2030 PUSHOFFSETCLOSURE0 + 2030 PUSHOFFSETCLOSURE0 2031 APPTERM2 6 - 2033 ACC0 - 2034 PUSHACC3 - 2035 PUSHOFFSETCLOSURE0 + 2033 ACC0 + 2034 PUSHACC3 + 2035 PUSHOFFSETCLOSURE0 2036 APPTERM2 6 - 2038 ACC0 - 2039 PUSHENVACC1 + 2038 ACC0 + 2039 PUSHENVACC1 2040 APPTERM1 3 - 2042 ACC0 - 2043 PUSHENVACC1 + 2042 ACC0 + 2043 PUSHENVACC1 2044 CLOSUREREC 2, 2011 - 2048 CONST0 - 2049 PUSHACC1 + 2048 CONST0 + 2049 PUSHACC1 2050 APPTERM1 3 - 2052 RESTART + 2052 RESTART 2053 GRAB 2 - 2055 ACC1 + 2055 ACC1 2056 BRANCHIFNOT 2077 - 2058 ACC2 + 2058 ACC2 2059 BRANCHIFNOT 2084 - 2061 ACC2 - 2062 GETFIELD1 - 2063 PUSHACC2 - 2064 GETFIELD1 - 2065 PUSHACC2 - 2066 PUSHACC5 - 2067 GETFIELD0 - 2068 PUSHACC5 - 2069 GETFIELD0 - 2070 PUSHENVACC1 - 2071 APPLY2 + 2061 ACC2 + 2062 GETFIELD1 + 2063 PUSHACC2 + 2064 GETFIELD1 + 2065 PUSHACC2 + 2066 PUSHACC5 + 2067 GETFIELD0 + 2068 PUSHACC5 + 2069 GETFIELD0 + 2070 PUSHENVACC1 + 2071 APPLY2 2072 MAKEBLOCK2 0 - 2074 PUSHOFFSETCLOSURE0 + 2074 PUSHOFFSETCLOSURE0 2075 APPTERM3 6 - 2077 ACC2 + 2077 ACC2 2078 BRANCHIFNOT 2082 2080 BRANCH 2084 2082 RETURN 3 2084 GETGLOBAL "List.rev_map2" 2086 PUSHGETGLOBALFIELD Pervasives, 2 2089 APPTERM1 4 - 2091 RESTART + 2091 RESTART 2092 GRAB 2 - 2094 ACC0 + 2094 ACC0 2095 CLOSUREREC 1, 2053 - 2099 ACC3 - 2100 PUSHACC3 - 2101 PUSHCONST0 - 2102 PUSHACC3 + 2099 ACC3 + 2100 PUSHACC3 + 2101 PUSHCONST0 + 2102 PUSHACC3 2103 APPTERM3 7 - 2105 RESTART + 2105 RESTART 2106 GRAB 1 - 2108 ACC1 + 2108 ACC1 2109 BRANCHIFNOT 2123 - 2111 ACC1 - 2112 GETFIELD1 - 2113 PUSHACC1 - 2114 PUSHACC3 - 2115 GETFIELD0 - 2116 PUSHENVACC1 - 2117 APPLY1 + 2111 ACC1 + 2112 GETFIELD1 + 2113 PUSHACC1 + 2114 PUSHACC3 + 2115 GETFIELD0 + 2116 PUSHENVACC1 + 2117 APPLY1 2118 MAKEBLOCK2 0 - 2120 PUSHOFFSETCLOSURE0 + 2120 PUSHOFFSETCLOSURE0 2121 APPTERM2 4 - 2123 ACC0 + 2123 ACC0 2124 RETURN 2 - 2126 RESTART + 2126 RESTART 2127 GRAB 1 - 2129 ACC0 + 2129 ACC0 2130 CLOSUREREC 1, 2106 - 2134 ACC2 - 2135 PUSHCONST0 - 2136 PUSHACC2 + 2134 ACC2 + 2135 PUSHCONST0 + 2136 PUSHACC2 2137 APPTERM2 5 - 2139 CONST0 - 2140 PUSHACC1 - 2141 PUSHENVACC1 + 2139 CONST0 + 2140 PUSHACC1 + 2141 PUSHENVACC1 2142 APPTERM2 3 - 2144 ACC0 + 2144 ACC0 2145 BRANCHIFNOT 2151 - 2147 ACC0 - 2148 GETFIELD1 + 2147 ACC0 + 2148 GETFIELD1 2149 RETURN 1 2151 GETGLOBAL "tl" 2153 PUSHGETGLOBALFIELD Pervasives, 3 2156 APPTERM1 2 - 2158 ACC0 + 2158 ACC0 2159 BRANCHIFNOT 2165 - 2161 ACC0 - 2162 GETFIELD0 + 2161 ACC0 + 2162 GETFIELD0 2163 RETURN 1 2165 GETGLOBAL "hd" 2167 PUSHGETGLOBALFIELD Pervasives, 3 2170 APPTERM1 2 - 2172 ACC0 - 2173 PUSHCONST0 - 2174 PUSHENVACC1 + 2172 ACC0 + 2173 PUSHCONST0 + 2174 PUSHENVACC1 2175 APPTERM2 3 2177 CLOSUREREC 0, 1200 - 2181 ACC0 + 2181 ACC0 2182 CLOSURE 1, 2172 - 2185 PUSH + 2185 PUSH 2186 CLOSURE 0, 2158 - 2189 PUSH + 2189 PUSH 2190 CLOSURE 0, 2144 - 2193 PUSH + 2193 PUSH 2194 CLOSUREREC 0, 1217 2198 GETGLOBALFIELD Pervasives, 16 - 2201 PUSH + 2201 PUSH 2202 CLOSUREREC 0, 1259 - 2206 ACC0 + 2206 ACC0 2207 CLOSURE 1, 2139 - 2210 PUSH + 2210 PUSH 2211 CLOSUREREC 0, 1277 2215 CLOSUREREC 0, 1294 2219 CLOSURE 0, 2127 - 2222 PUSH + 2222 PUSH 2223 CLOSUREREC 0, 1316 2227 CLOSUREREC 0, 1334 2231 CLOSUREREC 0, 1354 2235 CLOSUREREC 0, 1374 2239 CLOSURE 0, 2092 - 2242 PUSH + 2242 PUSH 2243 CLOSUREREC 0, 1415 2247 CLOSUREREC 0, 1452 2251 CLOSUREREC 0, 1490 @@ -1502,9 +1502,9 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 2314 CLOSUREREC 1, 1928 2318 CLOSUREREC 0, 1942 2322 CLOSUREREC 0, 1972 - 2326 ACC0 - 2327 PUSHACC2 - 2328 PUSHACC7 + 2326 ACC0 + 2327 PUSHACC2 + 2328 PUSHACC7 2329 PUSHACC 9 2331 PUSHACC 11 2333 PUSHACC 13 @@ -1543,47 +1543,47 @@ if List.fold_left (+) 0 l <> 301 * 150 then raise Not_found 2400 POP 36 2402 SETGLOBAL List 2404 BRANCH 2432 - 2406 CONST0 - 2407 PUSHACC1 - 2408 LEINT + 2406 CONST0 + 2407 PUSHACC1 + 2408 LEINT 2409 BRANCHIFNOT 2414 - 2411 CONST0 + 2411 CONST0 2412 RETURN 1 - 2414 ACC0 + 2414 ACC0 2415 OFFSETINT -1 - 2417 PUSHOFFSETCLOSURE0 - 2418 APPLY1 - 2419 PUSHACC1 + 2417 PUSHOFFSETCLOSURE0 + 2418 APPLY1 + 2419 PUSHACC1 2420 MAKEBLOCK2 0 2422 RETURN 1 - 2424 RESTART + 2424 RESTART 2425 GRAB 1 - 2427 ACC1 - 2428 PUSHACC1 - 2429 ADDINT + 2427 ACC1 + 2428 PUSHACC1 + 2429 ADDINT 2430 RETURN 2 2432 CLOSUREREC 0, 2406 - 2436 CONST0 + 2436 CONST0 2437 C_CALL1 gc_compaction 2439 CONSTINT 300 - 2441 PUSHACC1 - 2442 APPLY1 + 2441 PUSHACC1 + 2442 APPLY1 2443 PUSHCONSTINT 150 2445 PUSHCONSTINT 301 - 2447 MULINT - 2448 PUSHACC1 - 2449 PUSHCONST0 - 2450 PUSH + 2447 MULINT + 2448 PUSHACC1 + 2449 PUSHCONST0 + 2450 PUSH 2451 CLOSURE 0, 2425 2454 PUSHGETGLOBALFIELD List, 12 - 2457 APPLY3 - 2458 NEQ + 2457 APPLY3 + 2458 NEQ 2459 BRANCHIFNOT 2466 2461 GETGLOBAL Not_found 2463 MAKEBLOCK1 0 - 2465 RAISE + 2465 RAISE 2466 POP 2 - 2468 ATOM0 + 2468 ATOM0 2469 SETGLOBAL T330-compact-4 - 2471 STOP + 2471 STOP **) diff --git a/testsuite/tests/tool-ocaml/t360-stacks-1.ml b/testsuite/tests/tool-ocaml/t360-stacks-1.ml index 100fbabb2..2c257a793 100644 --- a/testsuite/tests/tool-ocaml/t360-stacks-1.ml +++ b/testsuite/tests/tool-ocaml/t360-stacks-1.ml @@ -8,36 +8,36 @@ if f 30000 <> 30012 then raise Not_found (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 29 - 11 CONST0 - 12 PUSHACC1 - 13 LEINT + 11 CONST0 + 12 PUSHACC1 + 13 LEINT 14 BRANCHIFNOT 20 16 CONSTINT 12 18 RETURN 1 - 20 ACC0 + 20 ACC0 21 OFFSETINT -1 - 23 PUSHOFFSETCLOSURE0 - 24 APPLY1 - 25 PUSHCONST1 - 26 ADDINT + 23 PUSHOFFSETCLOSURE0 + 24 APPLY1 + 25 PUSHCONST1 + 26 ADDINT 27 RETURN 1 29 CLOSUREREC 0, 11 33 CONSTINT 30012 35 PUSHCONSTINT 30000 - 37 PUSHACC2 - 38 APPLY1 - 39 NEQ + 37 PUSHACC2 + 38 APPLY1 + 39 NEQ 40 BRANCHIFNOT 47 42 GETGLOBAL Not_found 44 MAKEBLOCK1 0 - 46 RAISE + 46 RAISE 47 POP 1 - 49 ATOM0 + 49 ATOM0 50 SETGLOBAL T360-stacks-1 - 52 STOP + 52 STOP **) diff --git a/testsuite/tests/tool-ocaml/t360-stacks-2.ml b/testsuite/tests/tool-ocaml/t360-stacks-2.ml index 8d13c7d7f..88a884c7f 100644 --- a/testsuite/tests/tool-ocaml/t360-stacks-2.ml +++ b/testsuite/tests/tool-ocaml/t360-stacks-2.ml @@ -11,44 +11,44 @@ with Stack_overflow -> () (** 0 CONSTINT 42 - 2 PUSHACC0 + 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 29 - 11 CONST0 - 12 PUSHACC1 - 13 LEINT + 11 CONST0 + 12 PUSHACC1 + 13 LEINT 14 BRANCHIFNOT 20 16 CONSTINT 12 18 RETURN 1 - 20 ACC0 + 20 ACC0 21 OFFSETINT -1 - 23 PUSHOFFSETCLOSURE0 - 24 APPLY1 - 25 PUSHCONST1 - 26 ADDINT + 23 PUSHOFFSETCLOSURE0 + 24 APPLY1 + 25 PUSHCONST1 + 26 ADDINT 27 RETURN 1 29 CLOSUREREC 0, 11 33 PUSHTRAP 44 35 CONSTINT 3000000 - 37 PUSHACC5 - 38 APPLY1 + 37 PUSHACC5 + 38 APPLY1 39 GETGLOBAL Not_found 41 MAKEBLOCK1 0 - 43 RAISE + 43 RAISE 44 PUSHGETGLOBAL Stack_overflow - 46 PUSHACC1 - 47 GETFIELD0 - 48 EQ + 46 PUSHACC1 + 47 GETFIELD0 + 48 EQ 49 BRANCHIFNOT 54 - 51 CONST0 + 51 CONST0 52 BRANCH 56 - 54 ACC0 - 55 RAISE + 54 ACC0 + 55 RAISE 56 POP 1 58 POP 1 - 60 ATOM0 + 60 ATOM0 61 SETGLOBAL T360-stacks-2 - 63 STOP + 63 STOP **) diff --git a/testsuite/tests/translprim/ref_spec.ml b/testsuite/tests/translprim/ref_spec.ml index 3a01bf8db..068fa884f 100644 --- a/testsuite/tests/translprim/ref_spec.ml +++ b/testsuite/tests/translprim/ref_spec.ml @@ -49,4 +49,6 @@ let set_open_poly (r:[< `Bar | `Foo | `Baz > `Foo `Bar] ref) y = r := y ;; let set_open_poly (r:[>`Foo of int] ref) y = r := y ;; let set_open_poly (r:[<`Foo of int] ref) y = r := y ;; let set_open_poly (r:[`Foo of int] ref) y = r := y ;; -let set_open_poly (r:[< `Bar | `Foo of float | `Baz > `Foo `Bar] ref) y = r := y ;; +let set_open_poly (r:[< `Bar | `Foo of float | `Baz > `Foo `Bar] ref) y = + r := y +;; diff --git a/testsuite/tests/typing-gadts/pr5332.ml b/testsuite/tests/typing-gadts/pr5332.ml index 862706326..700e37b1c 100644 --- a/testsuite/tests/typing-gadts/pr5332.ml +++ b/testsuite/tests/typing-gadts/pr5332.ml @@ -15,4 +15,3 @@ let f : type env a. (env, a) typ -> (env, a) typ -> int = fun ta tb -> | _ -> . (* error *) ;; (* let x = f Tint (Tvar Zero) ;; *) - diff --git a/testsuite/tests/typing-gadts/pr5332.ml.reference b/testsuite/tests/typing-gadts/pr5332.ml.reference index c6c936ed0..3abbcffff 100644 --- a/testsuite/tests/typing-gadts/pr5332.ml.reference +++ b/testsuite/tests/typing-gadts/pr5332.ml.reference @@ -11,4 +11,4 @@ ^ Error: This match case could not be refuted. Here is an example of a value that would reach it: (Tint, Tvar Zero) -# +# diff --git a/testsuite/tests/typing-gadts/pr6980.ml b/testsuite/tests/typing-gadts/pr6980.ml index d42002ad3..7538b25fb 100644 --- a/testsuite/tests/typing-gadts/pr6980.ml +++ b/testsuite/tests/typing-gadts/pr6980.ml @@ -2,7 +2,7 @@ type 'a t = [< `Foo | `Bar] as 'a;; type 'a s = [< `Foo | `Bar | `Baz > `Bar] as 'a;; type 'a first = First : 'a second -> ('b t as 'a) first -and 'a second = Second : ('b s as 'a) second;; +and 'a second = Second : ('b s as 'a) second;; type aux = Aux : 'a t second * ('a -> int) -> aux;; diff --git a/testsuite/tests/typing-misc-bugs/core_array_reduced_ok.ml b/testsuite/tests/typing-misc-bugs/core_array_reduced_ok.ml index 9b2cf5293..bd55cc0a4 100644 --- a/testsuite/tests/typing-misc-bugs/core_array_reduced_ok.ml +++ b/testsuite/tests/typing-misc-bugs/core_array_reduced_ok.ml @@ -20,7 +20,7 @@ module T = struct type t_ = int array let _ = fun (_ : t_) -> () - + let t__of_sexp: sexp -> t_ = let _tp_loc = "core_array.ml.T.Int.t_" in fun t -> (array_of_sexp int_of_sexp) t @@ -61,7 +61,7 @@ module Permissioned : struct type ('a,-'perms) t = 'a array let _ = fun (_ : ('a,'perms) t) -> () - + let t_of_sexp : 'a 'perms . (sexp -> 'a) -> @@ -80,7 +80,7 @@ module Permissioned : include T.Int type -'perms t = t_ let _ = fun (_ : 'perms t) -> () - + let t_of_sexp : 'perms . (sexp -> 'perms) -> sexp -> 'perms t= let _tp_loc = "core_array.ml.Permissioned.Int.t" in @@ -91,4 +91,4 @@ module Permissioned : fun _of_perms -> fun v -> sexp_of_t_ v let _ = sexp_of_t end - end + end diff --git a/testsuite/tests/typing-misc/printing.ml b/testsuite/tests/typing-misc/printing.ml index 2703052e7..8a9c23108 100644 --- a/testsuite/tests/typing-misc/printing.ml +++ b/testsuite/tests/typing-misc/printing.ml @@ -5,4 +5,3 @@ type t = [ 'A_name | `Hi ];; let f (x:'id_arg) = x;; let f (x:'Id_arg) = x;; - diff --git a/testsuite/tests/typing-misc/printing.ml.reference b/testsuite/tests/typing-misc/printing.ml.reference index 267d6e252..21763b2df 100644 --- a/testsuite/tests/typing-misc/printing.ml.reference +++ b/testsuite/tests/typing-misc/printing.ml.reference @@ -6,4 +6,4 @@ Error: The type 'A_name is not a polymorphic variant type Hint: Did you mean `A_name? # val f : 'id_arg -> 'id_arg = # val f : 'Id_arg -> 'Id_arg = -# +# diff --git a/testsuite/tests/typing-warnings/ambiguous_guarded_disjunction.ml b/testsuite/tests/typing-warnings/ambiguous_guarded_disjunction.ml index 7863ebef5..78557072c 100644 --- a/testsuite/tests/typing-warnings/ambiguous_guarded_disjunction.ml +++ b/testsuite/tests/typing-warnings/ambiguous_guarded_disjunction.ml @@ -108,7 +108,8 @@ let ambiguous__in_depth = function let not_ambiguous__several_orpats = function | `A ((`B (x, Some _, _) | `B (x, _, Some _)), (`C (y, Some _, _) | `C (y, _, Some _)), - (`D1 (_, z, Some _, _) | `D2 (_, z, _, Some _))) when x < y && x < z -> () + (`D1 (_, z, Some _, _) | `D2 (_, z, _, Some _))) when x < y && x < z -> + () | _ -> () ;; diff --git a/testsuite/tests/typing-warnings/ambiguous_guarded_disjunction.ml.reference b/testsuite/tests/typing-warnings/ambiguous_guarded_disjunction.ml.reference index 8700fe7a0..b0e69e5a3 100644 --- a/testsuite/tests/typing-warnings/ambiguous_guarded_disjunction.ml.reference +++ b/testsuite/tests/typing-warnings/ambiguous_guarded_disjunction.ml.reference @@ -57,7 +57,7 @@ val ambiguous__x_y_z : [> `B of 'a * 'a option * 'a option ] -> unit = Warning 57: Ambiguous guarded pattern, variable x may match different or-pattern arguments val ambiguous__in_depth : [> `A of [> `B of bool option * bool option ] ] -> unit = -# val not_ambiguous__several_orpats : +# val not_ambiguous__several_orpats : [> `A of [> `B of 'a * 'b option * 'c option ] * [> `C of 'a * 'd option * 'e option ] * diff --git a/testsuite/tests/unwind/Makefile b/testsuite/tests/unwind/Makefile index e261b7f3b..66deadb5c 100644 --- a/testsuite/tests/unwind/Makefile +++ b/testsuite/tests/unwind/Makefile @@ -15,7 +15,8 @@ unwind_test: @$(OCAMLOPT) -c driver.ml @$(OCAMLOPT) -c mylib.ml @$(OCAMLOPT) -c stack_walker.c - @$(OCAMLOPT) -cclib -Wl,-keep_dwarf_unwind -o unwind_test mylib.cmx driver.cmx stack_walker.o + @$(OCAMLOPT) -cclib -Wl,-keep_dwarf_unwind -o unwind_test mylib.cmx \ + driver.cmx stack_walker.o clean: @rm -f *.cm* *.o unwind_test diff --git a/testsuite/tests/unwind/mylib.ml b/testsuite/tests/unwind/mylib.ml index 1fba6f341..318b537ad 100644 --- a/testsuite/tests/unwind/mylib.ml +++ b/testsuite/tests/unwind/mylib.ml @@ -4,7 +4,9 @@ let foo1 f x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 = let foo2 f x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 = f x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 -external func_with_10_params: int -> int -> int -> int -> int -> int -> int -> int -> int -> int -> unit = "ml_func_with_10_params_bytecode" "ml_func_with_10_params_native" +external func_with_10_params: + int -> int -> int -> int -> int -> int -> int -> int -> int -> int -> unit + = "ml_func_with_10_params_bytecode" "ml_func_with_10_params_native" let bar x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 = func_with_10_params x1 x2 x3 x4 x5 x6 x7 x8 x9 x10; diff --git a/testsuite/tests/unwind/mylib.mli b/testsuite/tests/unwind/mylib.mli index 7cc935995..c1655228f 100644 --- a/testsuite/tests/unwind/mylib.mli +++ b/testsuite/tests/unwind/mylib.mli @@ -1,6 +1,10 @@ -val foo1: ('a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> unit) -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> unit +val foo1: ('a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> unit) + -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> unit -val foo2: ('a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> unit) -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> unit +val foo2: ('a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> unit) + -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> 'a -> unit -val bar: int -> int -> int -> int -> int -> int -> int -> int -> int -> int -> unit -val baz: int -> int -> int -> int -> int -> int -> int -> int -> int -> int -> unit +val bar: + int -> int -> int -> int -> int -> int -> int -> int -> int -> int -> unit +val baz: + int -> int -> int -> int -> int -> int -> int -> int -> int -> int -> unit diff --git a/testsuite/tests/unwind/stack_walker.c b/testsuite/tests/unwind/stack_walker.c index 846c84417..09afcadd7 100644 --- a/testsuite/tests/unwind/stack_walker.c +++ b/testsuite/tests/unwind/stack_walker.c @@ -5,8 +5,9 @@ #include #include -value ml_func_with_10_params_native(value x1, value x2, value x3, value x4, value x5, - value x6, value x7, value x8, value x9, value x10) { +value ml_func_with_10_params_native(value x1, value x2, value x3, value x4, + value x5, value x6, value x7, value x8, + value x9, value x10) { return Val_unit; } @@ -30,7 +31,8 @@ void perform_stack_walk() { { char procname[256]; unw_word_t ip_offset; // IP - start_of_proc - int result = unw_get_proc_name(&cursor, procname, sizeof(procname), &ip_offset); + int result = unw_get_proc_name(&cursor, procname, sizeof(procname), + &ip_offset); if (result != 0) error(); if (strcmp(procname, "main") == 0) reached_main = 1; diff --git a/testsuite/tests/warnings/w55.opt_backend.clambda.opt_reference b/testsuite/tests/warnings/w55.opt_backend.clambda.opt_reference index 6f66b9f20..933e5d2a9 100644 --- a/testsuite/tests/warnings/w55.opt_backend.clambda.opt_reference +++ b/testsuite/tests/warnings/w55.opt_backend.clambda.opt_reference @@ -1,12 +1,12 @@ -File "w55.opt.ml", line 4, characters 10-26: -Warning 55: Inlining impossible in this context: Function information unavailable -File "w55.opt.ml", line 8, characters 10-27: -Warning 55: Inlining impossible in this context: Unknown function -File "w55.opt.ml", line 12, characters 10-26: -Warning 55: Inlining impossible in this context: Partial application -File "w55.opt.ml", line 18, characters 12-30: -Warning 55: Inlining impossible in this context: Over-application -File "w55.opt.ml", line 18, characters 12-30: -Warning 55: Inlining impossible in this context: Function information unavailable -File "w55.opt.ml", line 21, characters 10-26: -Warning 55: Inlining impossible in this context: Function information unavailable +File "w55.opt_backend.ml", line 4, characters 10-26: +Warning 55: Cannot inline: Function information unavailable +File "w55.opt_backend.ml", line 8, characters 10-27: +Warning 55: Cannot inline: Unknown function +File "w55.opt_backend.ml", line 12, characters 10-26: +Warning 55: Cannot inline: Partial application +File "w55.opt_backend.ml", line 18, characters 12-30: +Warning 55: Cannot inline: Over-application +File "w55.opt_backend.ml", line 18, characters 12-30: +Warning 55: Cannot inline: Function information unavailable +File "w55.opt_backend.ml", line 21, characters 10-26: +Warning 55: Cannot inline: Function information unavailable diff --git a/testsuite/tests/warnings/w55.opt_backend.flambda.opt_reference b/testsuite/tests/warnings/w55.opt_backend.flambda.opt_reference index 39f36156f..b1b512056 100644 --- a/testsuite/tests/warnings/w55.opt_backend.flambda.opt_reference +++ b/testsuite/tests/warnings/w55.opt_backend.flambda.opt_reference @@ -1,6 +1,6 @@ File "w55.opt_backend.ml", line 12, characters 10-26: -Warning 55: Inlining impossible in this context: [@inlined] attributes may not be used on partial applications +Warning 55: Cannot inline: [@inlined] attributes may not be used on partial applications File "w55.opt_backend.ml", line 8, characters 10-27: -Warning 55: Inlining impossible in this context: [@inlined] attribute was not used on this function application (the optimizer did not know what function was being applied) +Warning 55: Cannot inline: [@inlined] attribute was not used on this function application (the optimizer did not know what function was being applied) File "w55.opt_backend.ml", line 18, characters 12-30: -Warning 55: Inlining impossible in this context: [@inlined] attribute was not used on this function application (the optimizer did not know what function was being applied) +Warning 55: Cannot inline: [@inlined] attribute was not used on this function application (the optimizer did not know what function was being applied) diff --git a/tools/Makefile.nt b/tools/Makefile.nt index 789026715..39799278f 100644 --- a/tools/Makefile.nt +++ b/tools/Makefile.nt @@ -12,12 +12,15 @@ include Makefile.shared -CAMLOPT:=$(if $(wildcard ../flexdll/Makefile),OCAML_FLEXLINK="../boot/ocamlrun ../flexdll/flexlink.exe") $(CAMLOPT) +ifneq "$(wildcard ../flexdll/Makefile)" + CAMLOPT:=OCAML_FLEXLINK="../boot/ocamlrun ../flexdll/flexlink.exe" $(CAMLOPT) +endif # To make custom toplevels OCAMLMKTOP=ocamlmktop.cmo -OCAMLMKTOP_IMPORTS=misc.cmo identifiable.cmo numbers.cmo config.cmo arg_helper.cmo clflags.cmo ccomp.cmo +OCAMLMKTOP_IMPORTS=misc.cmo identifiable.cmo numbers.cmo config.cmo \ + arg_helper.cmo clflags.cmo ccomp.cmo ocamlmktop: $(OCAMLMKTOP) $(CAMLC) $(LINKFLAGS) -o ocamlmktop $(OCAMLMKTOP_IMPORTS) $(OCAMLMKTOP) diff --git a/tools/Makefile.shared b/tools/Makefile.shared index 18ecb1708..884c1a98a 100644 --- a/tools/Makefile.shared +++ b/tools/Makefile.shared @@ -39,7 +39,8 @@ CAMLDEP_IMPORTS=timings.cmo misc.cmo config.cmo identifiable.cmo numbers.cmo \ arg_helper.cmo clflags.cmo terminfo.cmo \ warnings.cmo location.cmo longident.cmo docstrings.cmo \ syntaxerr.cmo ast_helper.cmo parser.cmo lexer.cmo parse.cmo \ - ccomp.cmo ast_mapper.cmo ast_iterator.cmo ast_invariants.cmo pparse.cmo compenv.cmo \ + ccomp.cmo ast_mapper.cmo ast_iterator.cmo ast_invariants.cmo pparse.cmo \ + compenv.cmo \ builtin_attributes.cmo ocamldep: depend.cmi $(CAMLDEP_OBJ) @@ -77,11 +78,13 @@ ocamlprof: $(CSLPROF) profiling.cmo ocamlcp: ocamlcp.cmo $(CAMLC) $(LINKFLAGS) -o ocamlcp misc.cmo warnings.cmo config.cmo \ - identifiable.cmo numbers.cmo arg_helper.cmo clflags.cmo main_args.cmo ocamlcp.cmo + identifiable.cmo numbers.cmo arg_helper.cmo clflags.cmo \ + main_args.cmo ocamlcp.cmo ocamloptp: ocamloptp.cmo $(CAMLC) $(LINKFLAGS) -o ocamloptp misc.cmo warnings.cmo config.cmo \ - identifiable.cmo numbers.cmo arg_helper.cmo clflags.cmo main_args.cmo \ + identifiable.cmo numbers.cmo arg_helper.cmo clflags.cmo \ + main_args.cmo \ ocamloptp.cmo opt:: profiling.cmx @@ -102,7 +105,8 @@ clean:: # To help building mixed-mode libraries (OCaml + C) ocamlmklib: ocamlmklibconfig.cmo ocamlmklib.cmo - $(CAMLC) $(LINKFLAGS) -o ocamlmklib ocamlmklibconfig.cmo config.cmo ocamlmklib.cmo + $(CAMLC) $(LINKFLAGS) -o ocamlmklib ocamlmklibconfig.cmo config.cmo \ + ocamlmklib.cmo install:: cp ocamlmklib "$(INSTALL_BINDIR)/ocamlmklib$(EXE)" diff --git a/tools/check-typo b/tools/check-typo index 464264d3e..510b5e31a 100755 --- a/tools/check-typo +++ b/tools/check-typo @@ -38,6 +38,7 @@ # - Any file whose name matches one of the following patterns is # automatically exempt from all rules # *.reference +# *.opt_reference # */reference # */.depend* # - Any file whose name begins with "Makefile" is automatically exempt @@ -149,7 +150,7 @@ IGNORE_DIRS=" case "$f" in Makefile*|*/Makefile*) rules="tab,$rules";; *.mlpack|*.mllib|*.mltop|*.odocl|*.itarget|*.clib) add_hd;; - *.reference|*/reference|*/.depend*) continue;; + *.reference|*.opt_reference|*/reference|*/.depend*) continue;; esac case "$f" in ocamldoc/*|*/ocamldoc/*) rules="long-line,$rules";; @@ -230,11 +231,15 @@ IGNORE_DIRS=" if (!empty_file && match(prev_line, /^$/)){ err("white-at-eof", "empty line(s) at EOF"); } - if (NR >= 10 && !(header_ocaml && header_copyright)){ - NR = 1; - RSTART = 1; - RLENGTH = 0; - err("missing-header", "missing copyright header"); + if (!(header_ocaml && header_copyright)){ + if (NR >= 10){ + NR = 1; + RSTART = 1; + RLENGTH = 0; + err("missing-header", "missing copyright header"); + }else{ + counts["missing-header"] = 1; + } } split(svnrules, r, "[, ]"); for (i in r){ diff --git a/tools/cmpbyt.ml b/tools/cmpbyt.ml index 5f2a96890..a4c720d48 100644 --- a/tools/cmpbyt.ml +++ b/tools/cmpbyt.ml @@ -82,4 +82,3 @@ let _ = exit 2 end; if cmpbyt Sys.argv.(1) Sys.argv.(2) then exit 0 else exit 2 - diff --git a/tools/ocaml-instr-graph b/tools/ocaml-instr-graph index 1547631ab..04e8c3fb8 100755 --- a/tools/ocaml-instr-graph +++ b/tools/ocaml-instr-graph @@ -14,10 +14,12 @@ # Use this script on OCAML_INSTR_FILE files +default_curves=major,minor,coll,dispatch + usage () { echo 'usage: ocaml-instr-graph file [options]' echo ' options:' - echo ' -d names plot the data for names (default major,minor,coll,dispatch)' + echo " -d names plot the data for names (default: $default_curves)" echo ' -t title set the graph title' echo ' -m n clip the values to n (default 1G)' echo ' -rt n set the range for times to 0..n' @@ -52,7 +54,7 @@ while [[ $# > 0 ]]; do done if [[ "$curves" = , ]]; then - curves=,major,minor,coll,dispatch, + curves=,$default_curves, fi if ! $titleset; then @@ -81,7 +83,7 @@ awk -v curves="$curves" -v clip=$max -v tmpfile="$tmpfile" -v from=$from \ } BEGIN {starttime = 9e18;} $1 != "@@" { next; } - $2 < starttime { starttime = $2 } + $2 < starttime { starttime = $2 } { output($4); } ' $datafile @@ -98,7 +100,9 @@ awk -v curves="$curves" -v clip=$max -v tmpfile="$tmpfile" -v from=$from \ f=$tmpfile-${curve//\//:} if [ -f $f ]; then case $f in - *#) printf "\"%s\" using 1:2 axes x1y2 title '%s', " "$f" "$curve";; + *#) printf "\"%s\" using 1:2 axes x1y2 title '%s', " "$f" \ + "$curve" + ;; *) printf "\"%s\" using 1:2 title '%s', " "$f" "$curve";; esac fi diff --git a/tools/stripdebug.ml b/tools/stripdebug.ml index 7af1333cb..984bb8412 100644 --- a/tools/stripdebug.ml +++ b/tools/stripdebug.ml @@ -10,7 +10,7 @@ (* *) (***********************************************************************) -(* Copy a bytecode executable, removing debugging information +(* Copy a bytecode executable, removing debugging information and #! header from the copy. Usage: stripdebug *) @@ -52,6 +52,3 @@ let _ = eprintf "Usage: stripdebug \n"; exit 2 end - - - diff --git a/toplevel/opttoploop.ml b/toplevel/opttoploop.ml index 58fffb577..c37a73c34 100644 --- a/toplevel/opttoploop.ml +++ b/toplevel/opttoploop.ml @@ -369,15 +369,15 @@ let execute_phrase print_outcome ppf phr = | Directive_none f, Pdir_none -> f (); true | Directive_string f, Pdir_string s -> f s; true | Directive_int f, Pdir_int (n,None) -> - begin match Int_literal_converter.int n with - | n -> f n; true - | exception _ -> - fprintf ppf "Integer literal exceeds the range of \ - representable integers for directive `%s'.@." - dir_name; - false - end - | Directive_int f, Pdir_int (n, Some _) -> + begin match Int_literal_converter.int n with + | n -> f n; true + | exception _ -> + fprintf ppf "Integer literal exceeds the range of \ + representable integers for directive `%s'.@." + dir_name; + false + end + | Directive_int f, Pdir_int (n, Some _) -> fprintf ppf "Wrong integer literal for directive `%s'.@." dir_name; false diff --git a/toplevel/opttoploop.mli b/toplevel/opttoploop.mli index 24b44e08a..dccce0da3 100644 --- a/toplevel/opttoploop.mli +++ b/toplevel/opttoploop.mli @@ -47,7 +47,8 @@ val execute_phrase : bool -> formatter -> Parsetree.toplevel_phrase -> bool phrase executed with no errors and [false] otherwise. First bool says whether the values and types of the results should be printed. Uncaught exceptions are always printed. *) -val preprocess_phrase : formatter -> Parsetree.toplevel_phrase -> Parsetree.toplevel_phrase +val preprocess_phrase : + formatter -> Parsetree.toplevel_phrase -> Parsetree.toplevel_phrase (* Preprocess the given toplevel phrase using regular and ppx preprocessors. Return the updated phrase. *) val use_file : formatter -> string -> bool diff --git a/toplevel/topdirs.ml b/toplevel/topdirs.ml index 52bfd94c7..9eaed97f6 100644 --- a/toplevel/topdirs.ml +++ b/toplevel/topdirs.ml @@ -73,7 +73,8 @@ let dir_directory s = let _ = add_directive "directory" (Directive_string dir_directory) { section = section_run; - doc = "Add the given directory to search path for source and compiled files."; + doc = "Add the given directory to search path for source and compiled \ + files."; } (* To remove a directory from the load path *) diff --git a/toplevel/toploop.ml b/toplevel/toploop.ml index a724954dc..01e91019a 100644 --- a/toplevel/toploop.ml +++ b/toplevel/toploop.ml @@ -323,15 +323,15 @@ let execute_phrase print_outcome ppf phr = | Directive_none f, Pdir_none -> f (); true | Directive_string f, Pdir_string s -> f s; true | Directive_int f, Pdir_int (n,None) -> - begin match Int_literal_converter.int n with - | n -> f n; true - | exception _ -> - fprintf ppf "Integer literal exceeds the range of \ - representable integers for directive `%s'.@." - dir_name; - false - end - | Directive_int f, Pdir_int (n, Some _) -> + begin match Int_literal_converter.int n with + | n -> f n; true + | exception _ -> + fprintf ppf "Integer literal exceeds the range of \ + representable integers for directive `%s'.@." + dir_name; + false + end + | Directive_int f, Pdir_int (n, Some _) -> fprintf ppf "Wrong integer literal for directive `%s'.@." dir_name; false diff --git a/typing/btype.ml b/typing/btype.ml index dd5e993a2..d0e248870 100644 --- a/typing/btype.ml +++ b/typing/btype.ml @@ -722,8 +722,8 @@ let undo_compress (changes, old) = | Change _ -> let log = rev_compress_log [] changes in List.iter - (fun r -> match !r with - Change (Ccompress (ty, desc, d), next) when ty.desc == d -> - ty.desc <- desc; r := !next - | _ -> ()) - log + (fun r -> match !r with + Change (Ccompress (ty, desc, d), next) when ty.desc == d -> + ty.desc <- desc; r := !next + | _ -> ()) + log diff --git a/typing/ctype.mli b/typing/ctype.mli index 53f0bca96..84eb61232 100644 --- a/typing/ctype.mli +++ b/typing/ctype.mli @@ -279,7 +279,7 @@ val wrap_trace_gadt_instances: Env.t -> ('a -> 'b) -> 'a -> 'b val reset_reified_var_counter: unit -> unit val maybe_pointer_type : Env.t -> type_expr -> bool - (* True if type is possibly pointer, false if definitely not a pointer *) + (* True if type is possibly pointer, false if definitely not a pointer *) (* Stubs *) val package_subtype : diff --git a/typing/env.ml b/typing/env.ml index 82f68d26f..07e2b4355 100644 --- a/typing/env.ml +++ b/typing/env.ml @@ -183,7 +183,8 @@ type t = { and module_components = { deprecated: string option; - comps: (t * Subst.t * Path.t * Types.module_type, module_components_repr) EnvLazy.t; + comps: (t * Subst.t * Path.t * Types.module_type, module_components_repr) + EnvLazy.t; } and module_components_repr = diff --git a/typing/parmatch.ml b/typing/parmatch.ml index 2698d6c8a..295d7be3e 100644 --- a/typing/parmatch.ml +++ b/typing/parmatch.ml @@ -1704,7 +1704,7 @@ module Conv = struct let rec loop pat = match pat.pat_desc with Tpat_or (pa,pb,_) -> - mkpat (Ppat_or (loop pa, loop pb)) + mkpat (Ppat_or (loop pa, loop pb)) | Tpat_any | Tpat_var _ -> mkpat Ppat_any @@ -1712,35 +1712,35 @@ module Conv = struct mkpat (Ppat_constant (Untypeast.constant c)) | Tpat_alias (p,_,_) -> loop p | Tpat_tuple lst -> - mkpat (Ppat_tuple (List.map loop lst)) + mkpat (Ppat_tuple (List.map loop lst)) | Tpat_construct (cstr_lid, cstr, lst) -> let id = fresh cstr.cstr_name in let lid = { cstr_lid with txt = Longident.Lident id } in Hashtbl.add constrs id cstr; - let arg = - match List.map loop lst with + let arg = + match List.map loop lst with | [] -> None | [p] -> Some p - | lst -> Some (mkpat (Ppat_tuple lst)) + | lst -> Some (mkpat (Ppat_tuple lst)) in - mkpat (Ppat_construct(lid, arg)) + mkpat (Ppat_construct(lid, arg)) | Tpat_variant(label,p_opt,row_desc) -> - let arg = Misc.may_map loop p_opt in + let arg = Misc.may_map loop p_opt in mkpat (Ppat_variant(label, arg)) | Tpat_record (subpatterns, _closed_flag) -> - let fields = - List.map - (fun (_, lbl, p) -> + let fields = + List.map + (fun (_, lbl, p) -> let id = fresh lbl.lbl_name in Hashtbl.add labels id lbl; (mknoloc (Longident.Lident id), loop p)) - subpatterns - in - mkpat (Ppat_record (fields, Open)) + subpatterns + in + mkpat (Ppat_record (fields, Open)) | Tpat_array lst -> - mkpat (Ppat_array (List.map loop lst)) + mkpat (Ppat_array (List.map loop lst)) | Tpat_lazy p -> - mkpat (Ppat_lazy (loop p)) + mkpat (Ppat_lazy (loop p)) in let ps = loop typed in (ps, constrs, labels) diff --git a/typing/predef.ml b/typing/predef.ml index c1f8ee272..7afd3ed47 100644 --- a/typing/predef.ml +++ b/typing/predef.ml @@ -75,7 +75,8 @@ and type_int32 = newgenty (Tconstr(path_int32, [], ref Mnil)) and type_int64 = newgenty (Tconstr(path_int64, [], ref Mnil)) and type_lazy_t t = newgenty (Tconstr(path_lazy_t, [t], ref Mnil)) and type_string = newgenty (Tconstr(path_string, [], ref Mnil)) -and type_extension_constructor = newgenty (Tconstr(path_extension_constructor, [], ref Mnil)) +and type_extension_constructor = + newgenty (Tconstr(path_extension_constructor, [], ref Mnil)) let ident_match_failure = ident_create_predef_exn "Match_failure" and ident_out_of_memory = ident_create_predef_exn "Out_of_memory" @@ -190,7 +191,9 @@ let common_initial_env add_type add_extension empty_env = ext_ret_type = None; ext_private = Asttypes.Public; ext_loc = Location.none; - ext_attributes = [{Asttypes.txt="ocaml.warn_on_literal_pattern";loc=Location.none}, Parsetree.PStr[]] } + ext_attributes = [{Asttypes.txt="ocaml.warn_on_literal_pattern"; + loc=Location.none}, + Parsetree.PStr[]] } in add_extension ident_match_failure [newgenty (Ttuple[type_string; type_int; type_int])] ( diff --git a/typing/printtyp.ml b/typing/printtyp.ml index db37f743c..42b953332 100644 --- a/typing/printtyp.ml +++ b/typing/printtyp.ml @@ -1452,7 +1452,8 @@ let warn_on_missing_def env ppf t = ignore(Env.find_type p env : Types.type_declaration) with Not_found -> fprintf ppf - "@,@[%a is abstract because no corresponding cmi file was found in path.@]" path p + "@,@[%a is abstract because no corresponding cmi file was found \ + in path.@]" path p end | _ -> () diff --git a/typing/typecore.ml b/typing/typecore.ml index 153135903..d877c7246 100644 --- a/typing/typecore.ml +++ b/typing/typecore.ml @@ -264,7 +264,8 @@ let type_constant = function | Const_int64 _ -> instance_def Predef.type_int64 | Const_nativeint _ -> instance_def Predef.type_nativeint -let constant : Parsetree.constant -> (Asttypes.constant, error) result = function +let constant : Parsetree.constant -> (Asttypes.constant, error) result = + function | Pconst_integer (i,None) -> begin try Ok (Const_int (Misc.Int_literal_converter.int i)) @@ -993,7 +994,7 @@ let rec type_pat ~constrs ~labels ~no_existentials ~mode ~explode ~env in if explode > 0 then let (sp, constrs, labels) = Parmatch.ppat_of_type !env expected_ty in - if sp.ppat_desc = Parsetree.Ppat_any then k' Tpat_any else + if sp.ppat_desc = Parsetree.Ppat_any then k' Tpat_any else if mode = Inside_or then raise Need_backtrack else let explode = match sp.ppat_desc with @@ -2883,7 +2884,8 @@ and type_expect_ ?in_function ?(recarg=Rejected) env sexp ty_expected = exp.exp_extra; } - | Pexp_extension ({ txt = ("ocaml.extension_constructor"|"extension_constructor"); _ }, + | Pexp_extension ({ txt = ("ocaml.extension_constructor" + |"extension_constructor"); _ }, payload) -> begin match payload with | PStr [ { pstr_desc = @@ -3987,8 +3989,8 @@ and type_let ?(check = fun s -> Warnings.Unused_var s) generalize_structure ty' end; let exp = - Builtin_attributes.with_warning_attribute pvb_attributes (fun () -> - type_expect exp_env sexp ty') + Builtin_attributes.with_warning_attribute pvb_attributes + (fun () -> type_expect exp_env sexp ty') in end_def (); check_univars env true "definition" exp pat.pat_type vars; diff --git a/typing/typedecl.ml b/typing/typedecl.ml index 0e68bcd52..eebb05354 100644 --- a/typing/typedecl.ml +++ b/typing/typedecl.ml @@ -1437,7 +1437,8 @@ let error_if_has_deep_native_repr_attributes core_type = get_native_repr_attribute core_type.ptyp_attributes ~global_repr:None with | Native_repr_attr_present kind -> - raise (Error (core_type.ptyp_loc, Deep_unbox_or_untag_attribute kind)) + raise (Error (core_type.ptyp_loc, + Deep_unbox_or_untag_attribute kind)) | Native_repr_attr_absent -> () end; default_iterator.typ iterator core_type } diff --git a/typing/typedtree.mli b/typing/typedtree.mli index 24439d113..ac8c01633 100644 --- a/typing/typedtree.mli +++ b/typing/typedtree.mli @@ -48,7 +48,7 @@ and pat_extra = *) | Tpat_type of Path.t * Longident.t loc (** #tconst { pat_desc = disjunction - ; pat_extra = (Tpat_type (P, "tconst"), _, _) :: ... } + ; pat_extra = (Tpat_type (P, "tconst"), _, _) :: ...} where [disjunction] is a [Tpat_or _] representing the branches of [tconst]. @@ -97,7 +97,8 @@ and pattern_desc = | Tpat_or of pattern * pattern * row_desc option (** P1 | P2 - [row_desc = Some _] when translating [Ppat_type _], [None] otherwise. + [row_desc] = [Some _] when translating [Ppat_type _], + [None] otherwise. *) | Tpat_lazy of pattern (** lazy P *) @@ -119,8 +120,8 @@ and exp_extra = E : T0 :> T [Texp_coerce (Some T0, T)] *) | Texp_open of override_flag * Path.t * Longident.t loc * Env.t - (** let open[!] M in [Texp_open (!, P, M, env)] - where [env] is the environment after opening [P] + (** let open[!] M in [Texp_open (!, P, M, env)] + where [env] is the environment after opening [P] *) | Texp_poly of core_type option (** Used for method bodies. *) diff --git a/typing/types.mli b/typing/types.mli index bc13fe5af..384f07d4a 100644 --- a/typing/types.mli +++ b/typing/types.mli @@ -87,9 +87,10 @@ and type_desc = There are also special cases for so-called "class-types", cf. [Typeclass] and [Ctype.set_object_name]: - [Tobject (Tfield(_,_,…(Tfield(_,_,rv)…), Some(`A.#ct`, [rv;t1;…;tn])] - ==> [(t1, …, tn) #A.ct] - [Tobject (_, Some(`A.#ct`, [Tnil;t1;…;tn])] ==> [(t1, …, tn) A.ct] + [Tobject (Tfield(_,_,...(Tfield(_,_,rv)...), + Some(`A.#ct`, [rv;t1;...;tn])] + ==> [(t1, ..., tn) #A.ct] + [Tobject (_, Some(`A.#ct`, [Tnil;t1;...;tn])] ==> [(t1, ..., tn) A.ct] where [rv] is the hidden row variable. *) diff --git a/utils/warnings.ml b/utils/warnings.ml index ef401592b..c3f6abdb8 100644 --- a/utils/warnings.ml +++ b/utils/warnings.ml @@ -442,7 +442,7 @@ let message = function expression" attr_name | Inlining_impossible reason -> - Printf.sprintf "Inlining impossible in this context: %s" reason + Printf.sprintf "Cannot inline: %s" reason | Ambiguous_pattern vars -> let msg = let vars = List.sort String.compare vars in