From c6a4d10f61ba77d95211d68be0d77e3bd8e7bea4 Mon Sep 17 00:00:00 2001 From: svenbarth Date: Thu, 30 Jan 2020 21:49:07 +0000 Subject: [PATCH] * for deciding whether to swap a generic's buffer use the module's flag instead of the def's git-svn-id: trunk@44073 - --- compiler/pgenutil.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/pgenutil.pas b/compiler/pgenutil.pas index cf7623cc26..07d038ad66 100644 --- a/compiler/pgenutil.pas +++ b/compiler/pgenutil.pas @@ -970,7 +970,7 @@ uses replaydepth:=current_scanner.replay_stack_depth; if genericdef.typ=procdef then 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); if assigned(pd) then begin @@ -984,7 +984,7 @@ uses end else begin - current_scanner.startreplaytokens(genericdef.generictokenbuf,genericdef.generic_buf_needs_swapping); + current_scanner.startreplaytokens(genericdef.generictokenbuf,hmodule.change_endian); hadtypetoken:=false; read_named_type(result,srsym,genericdef,generictypelist,false,hadtypetoken); ttypesym(srsym).typedef:=result; @@ -1632,7 +1632,7 @@ uses { use the index the module got from the current compilation process } current_filepos.moduleindex:=hmodule.unit_index; 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); current_filepos:=oldcurrent_filepos; end