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

* also store, reset and restore the current module's procinfo

Browse Source 
git-svn-id: trunk@43566 -
This commit is contained in:
svenbarth 2019-11-24 00:04:23 +00:00
parent c882828fd0
commit d79e2ee9da
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pgenutil.pas
View File

@ -737,6 +737,7 @@ uses
old_current_specializedef, old_current_specializedef,
old_current_genericdef : tstoreddef; old_current_genericdef : tstoreddef;
old_current_procinfo : tprocinfo; old_current_procinfo : tprocinfo;
old_module_procinfo : tobject;
hmodule : tmodule; hmodule : tmodule;
oldcurrent_filepos : tfileposinfo; oldcurrent_filepos : tfileposinfo;
recordbuf : tdynamicarray; recordbuf : tdynamicarray;
@ -945,8 +946,10 @@ uses
old_current_genericdef:=nil; old_current_genericdef:=nil;
old_current_structdef:=nil; old_current_structdef:=nil;
old_current_procinfo:=current_procinfo; old_current_procinfo:=current_procinfo;
old_module_procinfo:=current_module.procinfo;
current_procinfo:=nil; current_procinfo:=nil;
current_module.procinfo:=nil;
if parse_class_parent then if parse_class_parent then
begin begin
@ -1128,6 +1131,7 @@ uses
block_type:=old_block_type; block_type:=old_block_type;
current_procinfo:=old_current_procinfo; current_procinfo:=old_current_procinfo;
current_module.procinfo:=old_module_procinfo;
if parse_class_parent then if parse_class_parent then
begin begin
current_structdef:=old_current_structdef; current_structdef:=old_current_structdef;