Liren Large Software Subsidy 7/07.iso/c/c221/5.ddi/MWHC.005/O2

Text File | 1992-12-09 | 660 b | 18 lines

{ (C) Copyright  1986-1992 MetaWare Incorporated;  Santa Cruz, CA 95060. }

pragma C_include('implement.pf');

package I87;
   pragma Data(Import);
   -- This variable is True if an 8087 or 287 exists at run-time.
   -- If True the floating-point emulatuion library will use the chip rather
   -- than emulating floating-point instructions.  You can prevent the
   -- use of the chip by setting this variable to False.
   var _87_exists: Boolean;
   -- This is true if we have a 387.
   var _387_exists: Boolean;
   pragma Data;
   pragma Alias(_87_exists,Implement.RTE || '8087');
   pragma Alias(_387_exists,Implement.RTE || '387');
   end;