فهرست منبع

* 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 12 سال پیش
والد
کامیت
98a230d20f
1فایلهای تغییر یافته به همراه0 افزوده شده و 3 حذف شده
  1. 0 3
      compiler/scanner.pas

+ 0 - 3
compiler/scanner.pas

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