home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacMETH 3.2.1 / Sources / MacC2.6 / FPUControl.MOD < prev    next >
Encoding:
Modula Implementation  |  1992-05-29  |  799 b   |  36 lines  |  [TEXT/MEDT]
  1. IMPLEMENTATION MODULE FPUControl; (* HS 11.9.91 / 29.5.92 *)
  2.  
  3.   FROM System IMPORT TermProcedure;
  4.  
  5.   CONST SetEnvironment  = 1;
  6.         GetEnvironment  = 3;
  7.  
  8.   TYPE  Environment = BITSET;
  9.  
  10.   VAR environ : Environment; ok : BOOLEAN;
  11.  
  12.   PROCEDURE SANE(VAR e: Environment; OpWord: CARDINAL); CODE 0A9EBH;
  13.  
  14.   PROCEDURE SaveFPEnv;
  15.   BEGIN
  16.     SANE(environ, GetEnvironment)
  17.   END SaveFPEnv;
  18.  
  19.   PROCEDURE ClearFPEnv;
  20.   VAR e: Environment;
  21.   BEGIN e := {};
  22.     SANE(e, SetEnvironment)
  23.   END ClearFPEnv;
  24.  
  25.   PROCEDURE RestoreFPEnv;
  26.   VAR e: Environment;
  27.   BEGIN e := environ;
  28.     SANE(e, SetEnvironment)
  29.   END RestoreFPEnv;
  30.  
  31. BEGIN
  32.   SaveFPEnv; ClearFPEnv;
  33.   TermProcedure(RestoreFPEnv,ok);
  34.   IF ~ok THEN RestoreFPEnv END;
  35. END FPUControl. (* Copyright Departement Informatik, ETH Zuerich, Switzerland, 1992 *)
  36.