68 lines | 1884 chars
1 | ;*********************************************************************; |
2 | ; ; |
3 | ; OCaml ; |
4 | ; ; |
5 | ; Xavier Leroy, projet Cristal, INRIA Rocquencourt ; |
6 | ; ; |
7 | ; Copyright 1996 Institut National de Recherche en Informatique et ; |
8 | ; en Automatique. All rights reserved. This file is distributed ; |
9 | ; under the terms of the Q Public License version 1.0. ; |
10 | ; ; |
11 | ;*********************************************************************; |
12 | |
13 | .386 |
14 | .MODEL FLAT |
15 | |
16 | .CODE |
17 | PUBLIC _call_gen_code |
18 | ALIGN 4 |
19 | _call_gen_code: |
20 | push ebp |
21 | mov ebp, esp |
22 | push ebx |
23 | push esi |
24 | push edi |
25 | mov eax, [ebp+12] |
26 | mov ebx, [ebp+16] |
27 | mov ecx, [ebp+20] |
28 | mov edx, [ebp+24] |
29 | call DWORD PTR [ebp+8] |
30 | pop edi |
31 | pop esi |
32 | pop ebx |
33 | pop ebp |
34 | ret |
35 | |
36 | PUBLIC _caml_c_call |
37 | ALIGN 4 |
38 | _caml_c_call: |
39 | ffree st(0) |
40 | ffree st(1) |
41 | ffree st(2) |
42 | ffree st(3) |
43 | jmp eax |
44 | |
45 | PUBLIC _caml_call_gc |
46 | PUBLIC _caml_alloc |
47 | PUBLIC _caml_alloc1 |
48 | PUBLIC _caml_alloc2 |
49 | PUBLIC _caml_alloc3 |
50 | PUBLIC _caml_allocN |
51 | PUBLIC _caml_extra_params |
52 | PUBLIC _caml_raise_exn |
53 | _caml_call_gc: |
54 | _caml_alloc: |
55 | _caml_alloc1: |
56 | _caml_alloc2: |
57 | _caml_alloc3: |
58 | _caml_allocN: |
59 | _caml_extra_params: |
60 | _caml_raise_exn: |
61 | int 3 |
62 | |
63 | .DATA |
64 | PUBLIC _Caml_state |
65 | _Caml_state dword 0 |
66 | |
67 | END |
68 |