paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-02 22:27:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix code for ARM FPA, just in case ...

Browse Source
This commit is contained in:
florian 2021-09-13 22:55:44 +02:00
parent 9bd785c06b
commit 5065e4ba50
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/globals.pas
View File

@ -1112,7 +1112,7 @@ implementation
p: pbyte;
begin
p := pbyte(@r);
{$ifdef CPU_ARM}
{$ifdef FPUARM_HAS_FPA}
inc(p,4);
{$else}
{$ifdef FPC_LITTLE_ENDIAN}

4
tests/webtbs/tw39357.pp
View File

@ -6,8 +6,12 @@ function get_sign(d: double): Integer;
begin
get_sign:=1;
p:=pbyte(@d);
{$ifdef FPUARM_HAS_FPA}
inc(p,4);
{$else}
{$ifdef FPC_LITTLE_ENDIAN}
inc(p,4);
{$endif}
{$endif}
if (p^ and $80)=0 then
get_sign:=-1;