--- a/IEEE.def.m2pp
+++ b/IEEE.def.m2pp
@@ -19,7 +19,7 @@
(* Licence : GNU Lesser General Public License (LGPL) *)
(*------------------------------------------------------------------------*)
- (* $Id: IEEE.def.m2pp,v 1.1 2018/05/26 16:35:35 mriedl Exp mriedl $ *)
+ (* $Id: IEEE.def.m2pp,v 1.2 2019/02/01 22:24:03 mriedl Exp mriedl $ *)
<* IF (__XDS__) THEN *>
FROM SYSTEM IMPORT CARD8;
@@ -71,4 +71,10 @@
NAN = nan.R8;
<* END *>
+PROCEDURE IsLittleEndian() : BOOLEAN;
+
+ (*---------------------------------------------------------------*)
+ (* Returns true if machine is little endian, false otherwise *)
+ (*---------------------------------------------------------------*)
+
END IEEE.