|
@@ -401,6 +401,10 @@ TYPE
|
|
|
BEGIN RETURN FPE64.Fix(SYSTEM.VAL(FPE64.Float64,x))
|
|
|
END ConvS32F64;
|
|
|
|
|
|
+ PROCEDURE ConvS64F64*(x: FLOAT64): LONGINT;
|
|
|
+ BEGIN RETURN FPE64.Fix(SYSTEM.VAL(FPE64.Float64,x))
|
|
|
+ END ConvS64F64;
|
|
|
+
|
|
|
PROCEDURE ConvF32F64*(x: FLOAT64): FLOAT32;
|
|
|
BEGIN RETURN SYSTEM.VAL(FLOAT32, FPE64.Single(SYSTEM.VAL(FPE64.Float64,x)))
|
|
|
END ConvF32F64;
|