--- 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.