Pārlūkot izejas kodu

Fix tentryfile.getrealsize soft fpux80 code

Pierre Muller 2 mēneši atpakaļ
vecāks
revīzija
5c9a86794d
1 mainītis faili ar 1 papildinājumiem un 1 dzēšanām
  1. 1 1
      compiler/entfile.pas

+ 1 - 1
compiler/entfile.pas

@@ -1329,7 +1329,7 @@ begin
 	floatx80_ba:=swapendian_floatx80entryreal(floatx80_ba);
 {$ifdef FPC_BIG_ENDIAN}
       floatx80_e.high:=pword(@floatx80_ba[0])^;
-      floatx80_e.low:=pqword(@floatx80_ba[8])^;
+      floatx80_e.low:=pqword(@floatx80_ba[2])^;
 {$else}
       floatx80_e.high:=pword(@floatx80_ba[8])^;
       floatx80_e.low:=pqword(@floatx80_ba[0])^;