From 8b7071c8e80d26844db27207c39607ac0283dae1 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Mon, 18 Mar 2013 13:29:15 +0000
Subject: [PATCH]   * fixed recording generics token line info on big endian
 systems

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

diff --git a/compiler/scanner.pas b/compiler/scanner.pas
index d25b38346d..648eba17a2 100644
--- a/compiler/scanner.pas
+++ b/compiler/scanner.pas
@@ -2596,7 +2596,7 @@ In case not, the value returned can be arbitrary.
             s:=ST_LINE;
             writetoken(t);
             recordtokenbuf.write(s,1);
-            recordtokenbuf.write(current_tokenpos.line,sizeof(current_tokenpos.line));
+            tokenwritelongint(current_tokenpos.line);
             last_filepos.line:=current_tokenpos.line;
           end;
         if current_tokenpos.column<>last_filepos.column then
@@ -2612,7 +2612,7 @@ In case not, the value returned can be arbitrary.
             else
               begin
                 recordtokenbuf.write(s,1);
-                recordtokenbuf.write(current_tokenpos.column,sizeof(current_tokenpos.column));
+                tokenwriteword(current_tokenpos.column);
               end;
             last_filepos.column:=current_tokenpos.column;
           end;
@@ -2621,7 +2621,7 @@ In case not, the value returned can be arbitrary.
             s:=ST_FILEINDEX;
             writetoken(t);
             recordtokenbuf.write(s,1);
-            recordtokenbuf.write(current_tokenpos.fileindex,sizeof(current_tokenpos.fileindex));
+            tokenwriteword(current_tokenpos.fileindex);
             last_filepos.fileindex:=current_tokenpos.fileindex;
           end;