* fixed SetPrecisionMode/GetPrecisionMode for wince.

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@5673 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 4 insertions, 7 deletions

diff --git a/rtl/arm/mathu.inc b/rtl/arm/mathu.inc
index c16c187f31..45eb17509f 100644
--- a/rtl/arm/mathu.inc
+++ b/rtl/arm/mathu.inc
@@ -67,7 +67,7 @@ var
   c: dword;
 begin
   c:=_controlfp(0, 0);
-  if c and _PC_64 <> 0 then
+  if c and _MCW_PC = _PC_64 then
     Result:=pmDouble
   else
     Result:=pmSingle;
@@ -77,15 +77,12 @@ function SetPrecisionMode(const Precision: TFPUPrecisionMode): TFPUPrecisionMode
 var
   c: dword;
 begin
+  Result:=GetPrecisionMode;
   if Precision = pmSingle then
-    c:=_PC_53
+    c:=_PC_24
   else
     c:=_PC_64;
-  c:=_controlfp(c, _MCW_PC);
-  if c and _PC_64 <> 0 then
-    Result:=pmDouble
-  else
-    Result:=pmSingle;
+  _controlfp(c, _MCW_PC);
 end;
 
 function ConvertExceptionMask(em: dword): TFPUExceptionMask;