|
@@ -96,6 +96,7 @@ Software IEC/IEEE floating-point types.
|
|
|
}
|
|
|
TYPE
|
|
|
float32 = longword;
|
|
|
+{$define FPC_SYSTEM_HAS_float32}
|
|
|
{ we use here a record in the function header because
|
|
|
the record allows bitwise conversion to single }
|
|
|
float32rec = record
|
|
@@ -165,6 +166,9 @@ TYPE
|
|
|
end;
|
|
|
{$endif}
|
|
|
|
|
|
+{$define FPC_SYSTEM_HAS_float64}
|
|
|
+
|
|
|
+
|
|
|
{*
|
|
|
-------------------------------------------------------------------------------
|
|
|
Returns 1 if the double-precision floating-point value `a' is less than
|