IMPLEMENTATION MODULE IEEE;
IMPORT TIO;
(*------------------------------------------------------------------------*)
(* IEEE positive infinity (NAN) and infinity (INF) constants for *)
(* IEEE 754 machines - no implementation module needed *)
(*------------------------------------------------------------------------*)
(* 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) *)
(*------------------------------------------------------------------------*)
(* $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.