paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 08:09:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

Try to fix bug introduced in previous commit , hopefully fixing bug report 35902

Browse Source 
git-svn-id: trunk@42528 -
This commit is contained in:
pierre 2019-07-29 11:54:27 +00:00
parent f2b200e4f0
commit 92f085fdd9
1 changed files with 12 additions and 13 deletions

25
compiler/scanner.pas
View File

@ -146,7 +146,7 @@ interface
{ true, if we are parsing preprocessor expressions }
in_preproc_comp_expr : boolean;
{ true if cross-compiling for a CPU in opposite endianess}
change_endian : boolean;
change_endian_for_tokens : boolean;
constructor Create(const fn:string; is_macro: boolean = false);
destructor Destroy;override;
@ -286,7 +286,7 @@ implementation
symbase,symtable,symtype,symsym,symconst,symdef,defutil,
{ This is needed for tcputype }
cpuinfo,
fmodule,
fmodule,fppu,
{ this is needed for $I %CURRENTROUTINE%}
procinfo
{$if FPC_FULLVERSION<20700}
@ -2709,11 +2709,10 @@ type
lasttoken:=NOTOKEN;
nexttoken:=NOTOKEN;
ignoredirectives:=TFPHashList.Create;
{$ifdef FPC_BIG_ENDIAN}
change_endian:=(target_info.endian=endian_little);
{$else}
change_endian:=(target_info.endian=endian_big);
{$endif}
if (current_module is tppumodule) and assigned(tppumodule(current_module).ppufile) then
change_endian_for_tokens:=tppumodule(current_module).ppufile.change_endian
else
change_endian_for_tokens:=false;
end;
@ -2914,7 +2913,7 @@ type
val : asizeint;
begin
replaytokenbuf.read(val,sizeof(asizeint));
if change_endian then
if change_endian_for_tokens then
val:=swapendian(val);
result:=val;
end;
@ -2924,7 +2923,7 @@ type
val : longword;
begin
replaytokenbuf.read(val,sizeof(longword));
if change_endian then
if change_endian_for_tokens then
val:=swapendian(val);
result:=val;
end;
@ -2934,7 +2933,7 @@ type
val : longint;
begin
replaytokenbuf.read(val,sizeof(longint));
if change_endian then
if change_endian_for_tokens then
val:=swapendian(val);
result:=val;
end;
@ -2960,7 +2959,7 @@ type
val : smallint;
begin
replaytokenbuf.read(val,sizeof(smallint));
if change_endian then
if change_endian_for_tokens then
val:=swapendian(val);
result:=val;
end;
@ -2970,7 +2969,7 @@ type
val : word;
begin
replaytokenbuf.read(val,sizeof(word));
if change_endian then
if change_endian_for_tokens then
val:=swapendian(val);
result:=val;
end;
@ -2992,7 +2991,7 @@ type
i : longint;
begin
replaytokenbuf.read(b,size);
if change_endian then
if change_endian_for_tokens then
for i:=0 to size-1 do
Pbyte(@b)[i]:=reverse_byte(Pbyte(@b)[i]);
end;