paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 14:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Thumb(2): fix compilation after FPU control word changes

Browse Source 
Resolves #39966
This commit is contained in:
Jonas Maebe 2022-10-20 22:24:25 +02:00
parent dd0711a27e
commit 229d88c50f
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/arm/cpuh.inc
View File

@ -13,6 +13,9 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$if defined(CPUTHUMB) or defined(CPUTHUMB2)}
{$define FPC_SYSTEM_FPUCW_IMMUTABLE}
{$else}
type
TNativeFPUControlWord = dword;
{$endif}

2
rtl/arm/thumb2.inc
View File

@ -62,7 +62,6 @@ begin
{ FPU precision 64 bit, rounding to nearest, affine infinity }
_controlfp($000C0003, $030F031F);
end;
{$endif wince}
{$define FPC_SYSTEM_HAS_GETSETNATIVEFPUCONTROLWORD}
function GetNativeFPUControlWord: TNativeFPUControlWord;
@ -74,6 +73,7 @@ procedure SetNativeFPUControlWord(const cw: TNativeFPUControlWord);
begin
_controlfp(cw,$ffffffff);
end;
{$endif wince}
{****************************************************************************