paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-05 23:50:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

* ensure that softfloat and libgcc float never use rfs/wfs

Browse Source 
git-svn-id: trunk@7229 -
This commit is contained in:
florian 2007-05-01 11:47:19 +00:00
parent 6c3611caa7
commit d78071f8b2
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/arm/arm.inc
View File

@ -23,7 +23,7 @@ const
procedure fpc_cpuinit;
begin
{$if not(defined(wince)) and not(defined(gba)) and not(defined(nds))}
{$if not(defined(wince)) and not(defined(gba)) and not(defined(nds)) and not(defined(FPUSOFT)) and not(defined(FPULIBGCC))}
asm
rfs r0
and r0,r0,#0xffe0ffff

6
rtl/arm/mathu.inc
View File

@ -212,7 +212,7 @@ end;
}
{$if not(defined(gba)) and not(defined(nds))}
{$if not(defined(gba)) and not(defined(nds)) and not(defined(FPUSOFT)) and not(defined(FPULIBGCC))}
const
_FPU_MASK_IM = $00010000; { invalid operation }
_FPU_MASK_ZM = $00020000; { divide by zero }
@ -263,7 +263,7 @@ function GetExceptionMask: TFPUExceptionMask;
var
cw : dword;
begin
{$if not(defined(gba)) and not(defined(nds))}
{$if not(defined(gba)) and not(defined(nds)) and not(defined(FPUSOFT)) and not(defined(FPULIBGCC))}
Result:=[];
cw:=FPU_GetCW;
@ -294,7 +294,7 @@ function SetExceptionMask(const Mask: TFPUExceptionMask): TFPUExceptionMask;
var
cw : dword;
begin
{$if not(defined(gba)) and not(defined(nds))}
{$if not(defined(gba)) and not(defined(nds)) and not(defined(FPUSOFT)) and not(defined(FPULIBGCC))}
cw:=FPU_GetCW or _FPU_MASK_ALL;
if exInvalidOp in Mask then