2
0
Эх сурвалжийг харах

* don't call swapendian for shortint (it's 1 byte -> upcast to word and then
swapped, which is wrong)

git-svn-id: trunk@25949 -

Jonas Maebe 11 жил өмнө
parent
commit
98a230d20f

+ 0 - 3
compiler/scanner.pas

@@ -2715,9 +2715,6 @@ type
 
 
     procedure tscannerfile.tokenwriteshortint(val : shortint);
     procedure tscannerfile.tokenwriteshortint(val : shortint);
       begin
       begin
-{$ifdef FPC_BIG_ENDIAN}
-        val:=swapendian(val);
-{$endif}
         recordtokenbuf.write(val,sizeof(shortint));
         recordtokenbuf.write(val,sizeof(shortint));
       end;
       end;