home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / M2CMP20.ZIP / M2REALS.DEF < prev    next >
Encoding:
Modula Definition  |  1988-11-19  |  1.3 KB  |  38 lines
  1. DEFINITION MODULE M2REALS;
  2.  
  3. (* (C) Copyright 1987,1988 Fitted Software Tools. All rights reserved. *)
  4.  
  5. (*
  6.     This module's implementation is in M2REALS.ASM.
  7.     Since the compiler knows about this module, it MAY NOT
  8.     be changed by the user in any way that would change the
  9.     procedure numbers assigned to each of these peocedures.
  10. *)
  11.  
  12. (* REAL stuff *)
  13. PROCEDURE FPADD( x, y :REAL ) :REAL;
  14. PROCEDURE FPSUB( x, y :REAL ) :REAL;
  15. PROCEDURE FPMUL( x, y :REAL ) :REAL;
  16. PROCEDURE FPDIV( x, y :REAL ) :REAL;
  17. PROCEDURE FPNEG( x    :REAL ) :REAL;
  18. PROCEDURE FPABS( x    :REAL ) :REAL;
  19. PROCEDURE FPCMP( x, y :REAL ) :CARDINAL;
  20. PROCEDURE FPFLOAT( n  :CARDINAL ) :REAL;
  21. PROCEDURE FPTRUNC( x  :REAL )     :CARDINAL;
  22. (* LONGREAL stuff *)
  23. PROCEDURE FPDADD( x, y :LONGREAL ) :LONGREAL;
  24. PROCEDURE FPDSUB( x, y :LONGREAL ) :LONGREAL;
  25. PROCEDURE FPDMUL( x, y :LONGREAL ) :LONGREAL;
  26. PROCEDURE FPDDIV( x, y :LONGREAL ) :LONGREAL;
  27. PROCEDURE FPDNEG( x    :LONGREAL ) :LONGREAL;
  28. PROCEDURE FPDABS( x    :LONGREAL ) :LONGREAL;
  29. PROCEDURE FPDCMP( x, y :LONGREAL ) :CARDINAL;
  30. PROCEDURE FPDFLOAT( x  :LONGCARD ) :LONGREAL;
  31. PROCEDURE FPDTRUNC( x  :LONGREAL ) :LONGCARD;
  32. (* LONG / SHORT *)
  33. PROCEDURE FPSHORT ( x  :LONGREAL ) :REAL;
  34. PROCEDURE FPLONG  ( x  :REAL     ) :LONGREAL;
  35. (* 8087 in the system ? *)
  36. PROCEDURE IS8087PRESENT() :BOOLEAN;
  37.  
  38. END M2REALS.