@@ -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}
@@ -6,8 +6,12 @@ function get_sign(d: double): Integer;
get_sign:=1;
p:=pbyte(@d);
+ inc(p,4);
+{$else}
+{$endif}
{$endif}
if (p^ and $80)=0 then
get_sign:=-1;