diff options
Diffstat (limited to 'testasmcomp/i386nt.asm')
| -rw-r--r-- | testasmcomp/i386nt.asm | 66 |
1 files changed, 66 insertions, 0 deletions
diff --git a/testasmcomp/i386nt.asm b/testasmcomp/i386nt.asm new file mode 100644 index 000000000..1bcbf84f8 --- /dev/null +++ b/testasmcomp/i386nt.asm @@ -0,0 +1,66 @@ +;********************************************************************* +; +; Caml Special Light +; +; Xavier Leroy, projet Cristal, INRIA Rocquencourt +; +; Copyright 1995 Institut National de Recherche en Informatique et +; Automatique. Distributed only by permission. +; +;********************************************************************* + +; $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 |