diff options
Diffstat (limited to 'test/testinterp/t252-pushoffsetclosure.ml')
| -rw-r--r-- | test/testinterp/t252-pushoffsetclosure.ml | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/test/testinterp/t252-pushoffsetclosure.ml b/test/testinterp/t252-pushoffsetclosure.ml deleted file mode 100644 index 1887133453..0000000000 --- a/test/testinterp/t252-pushoffsetclosure.ml +++ /dev/null @@ -1,38 +0,0 @@ -open Lib;; -let rec f x = x - and g _ = f 4 - and h _ = f 6 -in -if h 1 <> 6 then raise Not_found -;; - -(** - 0 CONSTINT 42 - 2 PUSHACC0 - 3 MAKEBLOCK1 0 - 5 POP 1 - 7 SETGLOBAL Lib - 9 BRANCH 25 - 11 ACC0 - 12 RETURN 1 - 14 CONSTINT 4 - 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 - 37 BRANCHIFNOT 44 - 39 GETGLOBAL Not_found - 41 MAKEBLOCK1 0 - 43 RAISE - 44 POP 3 - 46 ATOM0 - 47 SETGLOBAL T252-pushoffsetclosure - 49 STOP -**) |
