|
a/IEEE.def.m2pp |
|
b/IEEE.def.m2pp |
|
... |
|
... |
17 |
(*------------------------------------------------------------------------*)
|
17 |
(*------------------------------------------------------------------------*)
|
18 |
(* Implementation : Michael Riedl *)
|
18 |
(* Implementation : Michael Riedl *)
|
19 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
19 |
(* Licence : GNU Lesser General Public License (LGPL) *)
|
20 |
(*------------------------------------------------------------------------*)
|
20 |
(*------------------------------------------------------------------------*)
|
21 |
|
21 |
|
22 |
(* $Id: IEEE.def.m2pp,v 1.1 2018/05/26 16:35:35 mriedl Exp mriedl $ *)
|
22 |
(* $Id: IEEE.def.m2pp,v 1.2 2019/02/01 22:24:03 mriedl Exp mriedl $ *)
|
23 |
|
23 |
|
24 |
<* IF (__XDS__) THEN *>
|
24 |
<* IF (__XDS__) THEN *>
|
25 |
FROM SYSTEM IMPORT CARD8;
|
25 |
FROM SYSTEM IMPORT CARD8;
|
26 |
<* END *>
|
26 |
<* END *>
|
27 |
<* IF (__GM2__) THEN *>
|
27 |
<* IF (__GM2__) THEN *>
|
|
... |
|
... |
69 |
|
69 |
|
70 |
INF = inf.R8;
|
70 |
INF = inf.R8;
|
71 |
NAN = nan.R8;
|
71 |
NAN = nan.R8;
|
72 |
<* END *>
|
72 |
<* END *>
|
73 |
|
73 |
|
|
|
74 |
PROCEDURE IsLittleEndian() : BOOLEAN;
|
|
|
75 |
|
|
|
76 |
(*---------------------------------------------------------------*)
|
|
|
77 |
(* Returns true if machine is little endian, false otherwise *)
|
|
|
78 |
(*---------------------------------------------------------------*)
|
|
|
79 |
|
74 |
END IEEE.
|
80 |
END IEEE.
|