--- a/IEEE.mod
+++ b/IEEE.mod
@@ -1,4 +1,6 @@
IMPLEMENTATION MODULE IEEE;
+
+IMPORT TIO;
(*------------------------------------------------------------------------*)
(* IEEE positive infinity (NAN) and infinity (INF) constants for *)
@@ -6,6 +8,7 @@
(*------------------------------------------------------------------------*)
(* 27.02.96, MRi: Erstellen der ersten Version *)
(* 26.05.18, MRi: Einfuegen varianter Records um XDS "auszutricksen" *)
+ (* 11.01.19, MRi: Einfuegen von IsLittleEndian *)
(*------------------------------------------------------------------------*)
(* Implementation : Michael Riedl *)
(* Licence : GNU Lesser General Public License (LGPL) *)
@@ -13,4 +16,19 @@
(* $Id: IEEE.mod,v 1.1 2018/05/26 15:54:11 mriedl Exp mriedl $ *)
+PROCEDURE IsLittleEndian() : BOOLEAN;
+
+ TYPE VarR = RECORD
+ CASE : BOOLEAN OF
+ |TRUE: lc : LONGCARD;
+ |FALSE: ca : ARRAY [0..SIZE(LONGCARD)-1] OF CHAR;
+ END;
+ END;
+
+ VAR vr : VarR;
+BEGIN
+ vr.lc := 1;
+ RETURN vr.ca[SIZE(LONGCARD)-1] = CHR(1);
+END IsLittleEndian;
+
END IEEE.