summaryrefslogtreecommitdiff
path: root/ocaml-binary-annot/testsuite/tests/tool-ocaml/t092-pushacc6.ml
diff options
context:
space:
mode:
Diffstat (limited to 'ocaml-binary-annot/testsuite/tests/tool-ocaml/t092-pushacc6.ml')
-rw-r--r--ocaml-binary-annot/testsuite/tests/tool-ocaml/t092-pushacc6.ml34
1 files changed, 34 insertions, 0 deletions
diff --git a/ocaml-binary-annot/testsuite/tests/tool-ocaml/t092-pushacc6.ml b/ocaml-binary-annot/testsuite/tests/tool-ocaml/t092-pushacc6.ml
new file mode 100644
index 0000000000..9c67b808e4
--- /dev/null
+++ b/ocaml-binary-annot/testsuite/tests/tool-ocaml/t092-pushacc6.ml
@@ -0,0 +1,34 @@
+open Lib;;
+let x = false in
+let y = true in
+let z = true in
+let a = true in
+let b = true in
+let c = true in
+let d = true in
+if x then raise Not_found
+;;
+
+(**
+ 0 CONSTINT 42
+ 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
+ 17 BRANCHIFNOT 24
+ 19 GETGLOBAL Not_found
+ 21 MAKEBLOCK1 0
+ 23 RAISE
+ 24 POP 7
+ 26 ATOM0
+ 27 SETGLOBAL T092-pushacc6
+ 29 STOP
+**)