testasmcomp/i386nt.asm

   1 ;*********************************************************************
   2 ;
   3 ;                           Objective Caml
   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 ; $Id$
  14
  15         .386
  16         .MODEL FLAT
  17
  18         .CODE
  19         PUBLIC  _call_gen_code
  20         ALIGN   4
  21 _call_gen_code:
  22         push    ebp
  23         mov     ebp, esp
  24         push    ebx
  25         push    esi
  26         push    edi
  27         mov     eax, [ebp+12]
  28         mov     ebx, [ebp+16]
  29         mov     ecx, [ebp+20]
  30         mov     edx, [ebp+24]
  31         call    DWORD PTR [ebp+8]
  32         pop     edi
  33         pop     esi
  34         pop     ebx
  35         pop     ebp
  36         ret
  37
  38         PUBLIC  _caml_c_call
  39         ALIGN   4
  40 _caml_c_call:
  41         ffree   st(0)
  42         ffree   st(1)
  43         ffree   st(2)
  44         ffree   st(3)
  45         jmp     eax
  46
  47         PUBLIC  _caml_call_gc
  48         PUBLIC  _caml_alloc
  49         PUBLIC  _caml_alloc1
  50         PUBLIC  _caml_alloc2
  51         PUBLIC  _caml_alloc3
  52 _caml_call_gc:
  53 _caml_alloc:
  54 _caml_alloc1:
  55 _caml_alloc2:
  56 _caml_alloc3:
  57         int     3
  58
  59         .DATA
  60         PUBLIC  _caml_exception_pointer
  61 _caml_exception_pointer dword 0
  62         PUBLIC  _young_ptr
  63 _young_ptr      dword 0
  64         PUBLIC  _young_limit
  65 _young_limit    dword 0
  66
  67         END