OSDN Git Service

* lib/libio.exp (test_libio): Use additional_flags, not
[pf3gnuchains/gcc-fork.git] / boehm-gc / gc_watcom.asm
1
2         name    gc_watcom
3
4 .386p
5
6         extrn   _edata              : byte  ; end of DATA (start of BSS)
7         extrn   _end                : byte  ; end of BSS (start of STACK)
8         extrn   __nullarea          : word
9
10         extrn   "C",_STACKLOW          : dword
11         extrn   "C",_STACKTOP          : dword
12
13
14 DGROUP  group   _DATA
15
16 _DATA   segment dword public 'DATA'
17 _DATA   ends
18
19 _TEXT   segment para public use32 'CODE'
20         assume  cs:_TEXT, ds:DGROUP, ss:DGROUP
21
22         public  Get_DATASTART
23         align   4
24 Get_DATASTART   proc near
25
26         mov     eax,offset DGROUP:__nullarea
27         ret
28
29 Get_DATASTART   endp
30
31         public  Get_DATAEND
32         align   4
33 Get_DATAEND     proc near
34
35         mov     eax,offset DGROUP:_end
36         ret
37
38 Get_DATAEND     endp
39
40         public  Get_STACKBOTTOM
41         align   4
42 Get_STACKBOTTOM proc near
43
44         mov     eax,_STACKTOP
45         ret
46
47 Get_STACKBOTTOM endp
48
49 _TEXT   ends
50
51         end