paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 22:13:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* for deciding whether to swap a generic's buffer use the module's flag instead of the def's

Browse Source 
git-svn-id: trunk@44073 -
This commit is contained in:
svenbarth 2020-01-30 21:49:07 +00:00
parent 84dc6621cb
commit c6a4d10f61
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/pgenutil.pas
View File

@ -970,7 +970,7 @@ uses
replaydepth:=current_scanner.replay_stack_depth; replaydepth:=current_scanner.replay_stack_depth;
if genericdef.typ=procdef then if genericdef.typ=procdef then
begin begin
current_scanner.startreplaytokens(tprocdef(genericdef).genericdecltokenbuf,tprocdef(genericdef).generic_buf_needs_swapping); current_scanner.startreplaytokens(tprocdef(genericdef).genericdecltokenbuf,hmodule.change_endian);
parse_proc_head(tprocdef(genericdef).struct,tprocdef(genericdef).proctypeoption,false,genericdef,generictypelist,pd); parse_proc_head(tprocdef(genericdef).struct,tprocdef(genericdef).proctypeoption,false,genericdef,generictypelist,pd);
if assigned(pd) then if assigned(pd) then
begin begin
@ -984,7 +984,7 @@ uses
end end
else else
begin begin
current_scanner.startreplaytokens(genericdef.generictokenbuf,genericdef.generic_buf_needs_swapping); current_scanner.startreplaytokens(genericdef.generictokenbuf,hmodule.change_endian);
hadtypetoken:=false; hadtypetoken:=false;
read_named_type(result,srsym,genericdef,generictypelist,false,hadtypetoken); read_named_type(result,srsym,genericdef,generictypelist,false,hadtypetoken);
ttypesym(srsym).typedef:=result; ttypesym(srsym).typedef:=result;
@ -1632,7 +1632,7 @@ uses
{ use the index the module got from the current compilation process } { use the index the module got from the current compilation process }
current_filepos.moduleindex:=hmodule.unit_index; current_filepos.moduleindex:=hmodule.unit_index;
current_tokenpos:=current_filepos; current_tokenpos:=current_filepos;
current_scanner.startreplaytokens(tprocdef(def.genericdef).generictokenbuf,tprocdef(def.genericdef).generic_buf_needs_swapping); current_scanner.startreplaytokens(tprocdef(def.genericdef).generictokenbuf,hmodule.change_endian);
read_proc_body(def); read_proc_body(def);
current_filepos:=oldcurrent_filepos; current_filepos:=oldcurrent_filepos;
end end