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