68 lines | 1884 chars
| 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 |