فهرست منبع

Added one more conversion procedure.

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6492 8c9fc860-2736-0410-a75d-ab315db34111
eth.tmartiel 9 سال پیش
والد
کامیت
bce79453d7
1فایلهای تغییر یافته به همراه4 افزوده شده و 0 حذف شده
  1. 4 0
      source/ARM.ARMRuntime.Mod

+ 4 - 0
source/ARM.ARMRuntime.Mod

@@ -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;