diff options
Diffstat (limited to 'ocaml-binary-annot/testsuite/tests/asmcomp/i386nt.asm')
| -rw-r--r-- | ocaml-binary-annot/testsuite/tests/asmcomp/i386nt.asm | 67 |
1 files changed, 67 insertions, 0 deletions
diff --git a/ocaml-binary-annot/testsuite/tests/asmcomp/i386nt.asm b/ocaml-binary-annot/testsuite/tests/asmcomp/i386nt.asm new file mode 100644 index 0000000000..0ad5247565 --- /dev/null +++ b/ocaml-binary-annot/testsuite/tests/asmcomp/i386nt.asm @@ -0,0 +1,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: i386nt.asm 2553 1999-11-17 18:59:06Z xleroy $ + + .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 |