43 lines
1.2 KiB
OpenEdge ABL
43 lines
1.2 KiB
OpenEdge ABL
IFND LIBRARIES_MATHLIBRARY_I
|
|
LIBRARIES_MATHLIBRARY_I SET 1
|
|
**
|
|
** $Filename: libraries/mathlibrary.i $
|
|
** $Release: 1.3 $
|
|
**
|
|
**
|
|
**
|
|
** (C) Copyright 1987,1988 Commodore-Amiga, Inc.
|
|
** All Rights Reserved
|
|
**
|
|
|
|
ifnd EXEC_TYPES_I
|
|
include "exec/types.i"
|
|
endc
|
|
|
|
ifnd EXEC_LIBRARIES_I
|
|
include "exec/libraries.i"
|
|
endc
|
|
|
|
STRUCTURE MathIEEEBase,0
|
|
STRUCT MathIEEEBase_LibNode,LIB_SIZE
|
|
UBYTE MathIEEEBase_Flags
|
|
UBYTE MathIEEEBase_reserved1
|
|
APTR MathIEEEBase_68881 ; ptr to base of 68881 io
|
|
APTR MathIEEEBase_SysLib
|
|
APTR MathIEEEBase_SegList
|
|
APTR MathIEEEBase_Resource ; ptr to math resource found
|
|
APTR MathIEEEBase_TaskOpenLib ; hook
|
|
APTR MathIEEEBase_TaskCloseLib ; hook
|
|
* This structure may be extended in the future */
|
|
LABEL MathIEEEBase_SIZE
|
|
|
|
; Math resources may need to know when a program opens or closes this
|
|
; library. The functions TaskOpenLib and TaskCloseLib are called when
|
|
; a task opens or closes this library. The yare initialized to point
|
|
; local initialization pertaining to 68881 stuff if 68881 resources
|
|
; are found. To override the default the vendor must provide appropriate
|
|
; hooks in the MathIEEEResource. If specified, these will be called
|
|
; when the library initializes.
|
|
|
|
ENDC ; LIBRARIES_MATHLIBRARY_I
|