paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 11:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed SetPrecisionMode/GetPrecisionMode for wince.

Browse Source 
git-svn-id: trunk@5673 -
This commit is contained in:
yury 2006-12-22 00:49:17 +00:00
parent 8765e488ac
commit 68a71f4ca3
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/arm/mathu.inc
View File

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