← Back to branch summary

~ubuntu-branches/debian/sid/ocaml/sid

« back to all changes in this revision

Viewing changes to testsuite/tests/tool-ocaml/t161-apply1.ml

  • Committer: Bazaar Package Importer
  • Author(s): Stéphane Glondu
  • Date: 2011-04-21 21:35:08 UTC
  • mfrom: (1.1.11 upstream) (12.1.14 sid)
  • Revision ID: james.westby@ubuntu.com-20110421213508-kg34453aqmb0moha
* Fixes related to -output-obj with g++ (in debian/patches):
  - add Declare-primitive-name-table-as-const-char
  - add Avoid-multiple-declarations-in-generated-.c-files-in
  - fix Embed-bytecode-in-C-object-when-using-custom: the closing
    brace for extern "C" { ... } was missing in some cases

Show diffs side-by-side

added added

removed removed

Lines of Context:
testsuite/tests/tool-ocaml/t161-apply1.ml
 
1
open Lib;;
 
2
let f _ = raise End_of_file in
 
3
try
 
4
  f 0;
 
5
  raise Not_found;
 
6
with End_of_file -> 0
 
7
;;
 
8
 
 
9
(**
 
10
       0 CONSTINT 42
 
11
       2 PUSHACC0 
 
12
       3 MAKEBLOCK1 0
 
13
       5 POP 1
 
14
       7 SETGLOBAL Lib
 
15
       9 BRANCH 16
 
16
      11 GETGLOBAL End_of_file
 
17
      13 MAKEBLOCK1 0
 
18
      15 RAISE 
 
19
      16 CLOSURE 0, 11
 
20
      19 PUSH 
 
21
      20 PUSHTRAP 30
 
22
      22 CONST0 
 
23
      23 PUSHACC5 
 
24
      24 APPLY1 
 
25
      25 GETGLOBAL Not_found
 
26
      27 MAKEBLOCK1 0
 
27
      29 RAISE 
 
28
      30 PUSHGETGLOBAL End_of_file
 
29
      32 PUSHACC1 
 
30
      33 GETFIELD0 
 
31
      34 EQ 
 
32
      35 BRANCHIFNOT 40
 
33
      37 CONST0 
 
34
      38 BRANCH 42
 
35
      40 ACC0 
 
36
      41 RAISE 
 
37
      42 POP 1
 
38
      44 POP 1
 
39
      46 ATOM0 
 
40
      47 SETGLOBAL T161-apply1
 
41
      49 STOP 
 
42
**)