home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 141.EXTENDED.PAS < prev    next >
Pascal/Delphi Source File  |  1988-04-12  |  783b  |  26 lines
  1. UNIT Extended_Reals;
  2.  
  3. INTERFACE
  4.  
  5. {----------------------------------------------------------------------------}
  6. {---   Define real data types dependent upon whether an 8087 is present   ---}
  7. {----------------------------------------------------------------------------}
  8. {$IFOPT N+}
  9. TYPE
  10.    REAL = extended;                                { use 10 bit real numbers }
  11. {$ELSE}
  12. TYPE
  13.    single   = REAL;                          { use only six bit real numbers }
  14.    double   = REAL;
  15.    extended = REAL;
  16.    comp     = REAL;
  17. {$ENDIF}
  18.  
  19. (****************************************************************************)
  20.  
  21. IMPLEMENTATION
  22.  
  23. (****************************************************************************)
  24.  
  25. BEGIN   {Initialization}
  26. END.   {UNIT Extended_Reals}