xinit.inc

来自「开放源码的编译器open watcom 1.6.0版的源代码」· INC 代码 · 共 97 行

;*****************************************************************************
;*
;*                            Open Watcom Project
;*
;*    Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
;*
;*  ========================================================================
;*
;*    This file contains Original Code and/or Modifications of Original
;*    Code as defined in and that are subject to the Sybase Open Watcom
;*    Public License version 1.0 (the 'License'). You may not use this file
;*    except in compliance with the License. BY USING THIS FILE YOU AGREE TO
;*    ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
;*    provided with the Original Code and Modifications, and is also
;*    available at www.sybase.com/developer/opensource.
;*
;*    The Original Code and all software distributed under the License are
;*    distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
;*    EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
;*    ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
;*    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
;*    NON-INFRINGEMENT. Please see the License for the specific language
;*    governing rights and limitations under the License.
;*
;*  ========================================================================
;*
;* Description:  WHEN YOU FIGURE OUT WHAT THIS FILE DOES, PLEASE
;*               DESCRIBE IT HERE!
;*
;*****************************************************************************


PNEAR   equ     0
PFAR    equ     1

xinit   macro   rtn,priority
XI      segment word public 'DATA'
if _MODEL and _BIG_CODE
        db      PFAR
        db      priority
        dd      rtn
else
if _MODEL and _USE_32_SEGS
        db      PNEAR
        db      priority
        dd      rtn
else
        db      PNEAR
        db      priority
        dw      rtn
        dw      0
endif
endif
XI      ends
        endm

xfini   macro   rtn,priority
YI      segment word public 'DATA'
if _MODEL and _BIG_CODE
        db      PFAR
        db      priority
        dd      rtn
else
if _MODEL and _USE_32_SEGS
        db      PNEAR
        db      priority
        dd      rtn
else
        db      PNEAR
        db      priority
        dw      rtn
        dw      0
endif
endif
YI      ends
        endm

DEF_PRIORITY equ        32

DGROUP  group   _DATA,XIB,XI,XIE,YIB,YI,YIE

_DATA   segment word public 'DATA'
_DATA   ends
XIB     segment word public 'DATA'
XIB     ends
XI      segment word public 'DATA'
XI      ends
XIE     segment word public 'DATA'
XIE     ends

YIB     segment word public 'DATA'
YIB     ends
YI      segment word public 'DATA'
YI      ends
YIE     segment word public 'DATA'
YIE     ends