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