paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 19:30:44 +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; c: dword;
begin begin
c:=_controlfp(0, 0); c:=_controlfp(0, 0);
if c and _PC_64 <> 0 then if c and _MCW_PC = _PC_64 then
Result:=pmDouble Result:=pmDouble
else else
Result:=pmSingle; Result:=pmSingle;
@ -77,15 +77,12 @@ function SetPrecisionMode(const Precision: TFPUPrecisionMode): TFPUPrecisionMode
var var
c: dword; c: dword;
begin begin
Result:=GetPrecisionMode;
if Precision = pmSingle then if Precision = pmSingle then
c:=_PC_53 c:=_PC_24
else else
c:=_PC_64; c:=_PC_64;
c:=_controlfp(c, _MCW_PC); _controlfp(c, _MCW_PC);
if c and _PC_64 <> 0 then
Result:=pmDouble
else
Result:=pmSingle;
end; end;
function ConvertExceptionMask(em: dword): TFPUExceptionMask; function ConvertExceptionMask(em: dword): TFPUExceptionMask;