Liren Large Software Subsidy 7/07.iso/c/c220/4.ddi/LIB/SRC/87.PF

Text File | 1990-12-16 | 582 b | 16 lines

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;