← Back to branch summary

~ubuntu-branches/debian/sid/ocaml/sid

« back to all changes in this revision

Viewing changes to testsuite/tests/asmcomp/i386nt.asm

  • Committer: Bazaar Package Importer
  • Author(s): Stéphane Glondu
  • Date: 2011-04-21 21:35:08 UTC
  • mfrom: (1.1.11 upstream) (12.1.14 sid)
  • Revision ID: james.westby@ubuntu.com-20110421213508-kg34453aqmb0moha
* Fixes related to -output-obj with g++ (in debian/patches):
  - add Declare-primitive-name-table-as-const-char
  - add Avoid-multiple-declarations-in-generated-.c-files-in
  - fix Embed-bytecode-in-C-object-when-using-custom: the closing
    brace for extern "C" { ... } was missing in some cases

Show diffs side-by-side

added added

removed removed

Lines of Context:
testsuite/tests/asmcomp/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: i386nt.asm 2553 1999-11-17 18:59:06Z xleroy $
 
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