--- a/IEEE.def
+++ b/IEEE.def
@@ -21,27 +21,60 @@
(* $Id: IEEE.def.m2pp,v 1.1 2018/05/26 16:35:35 mriedl Exp mriedl $ *)
-FROM SYSTEM IMPORT CARD8;
+
+
+
+
+FROM SYSTEM IMPORT CARDINAL8;
+
TYPE LongReal = RECORD
CASE : BOOLEAN OF
- |TRUE : C8 : ARRAY [0..7] OF CARD8;
+
+
+
+
+ |TRUE : C8 : ARRAY [0..7] OF CARDINAL8;
+
|FALSE: R8 : LONGREAL;
END;
END;
-(* LITTLE ENDIAN *)
-(* Not accepted by XDS
- *
- * CONST INF = {000H,000H,000H,000H,000H,000H,0F0H,07FH };
- * NAN = {000H,000H,000H,000H,000H,000H,0F8H,07FH };
- *)
-CONST inf = LongReal{TRUE,{000H,000H,000H,000H,000H,000H,0F0H,07FH}};
- nan = LongReal{TRUE,{000H,000H,000H,000H,000H,000H,0F8H,07FH}};
- INF = inf.R8;
- NAN = nan.R8;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+PROCEDURE IsLittleEndian() : BOOLEAN;
+
+ (*---------------------------------------------------------------*)
+ (* Returns true if machine is little endian, false otherwise *)
+ (*---------------------------------------------------------------*)
END IEEE.