paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 10:18:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed recording generics token line info on big endian systems

Browse Source 
git-svn-id: trunk@23926 -
This commit is contained in:
Jonas Maebe 2013-03-18 13:29:15 +00:00
parent cf760602ef
commit 8b7071c8e8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/scanner.pas
View File

@ -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;