From 98a230d20f0842398257bb6923096044fc2ed5a6 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Wed, 6 Nov 2013 09:44:29 +0000
Subject: [PATCH]   * don't call swapendian for shortint (it's 1 byte -> upcast
 to word and then     swapped, which is wrong)

git-svn-id: trunk@25949 -
---
 compiler/scanner.pas | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/compiler/scanner.pas b/compiler/scanner.pas
index 61a83a789f..57830d33de 100644
--- a/compiler/scanner.pas
+++ b/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;