Răsfoiți Sursa

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

florian 3 ani în urmă
părinte
comite
5065e4ba50
2 a modificat fișierele cu 5 adăugiri și 1 ștergeri
  1. 1 1
      compiler/globals.pas
  2. 4 0
      tests/webtbs/tw39357.pp

+ 1 - 1
compiler/globals.pas

@@ -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 - 0
tests/webtbs/tw39357.pp

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