paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 01:38:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* keep track of the current generic def in the specialization state

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-12-27 16:19:51 +01:00
parent db83f9c696
commit 8f81b213dc
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pgentype.pas
View File

@ -36,10 +36,11 @@ const
type
pspecializationstate = ^tspecializationstate;
tspecializationstate = record
oldsymtablestack : tsymtablestack;
oldextendeddefs : tfphashobjectlist;
oldgenericdummysyms : tfphashobjectlist;
oldspecializestate : pspecializationstate;
oldsymtablestack : tsymtablestack;
oldextendeddefs : tfphashobjectlist;
oldgenericdummysyms : tfphashobjectlist;
oldspecializestate : pspecializationstate;
oldcurrent_genericdef : tdef;
end;
tspecializationcontext=class

1
compiler/pgenutil.pas
View File

@ -2740,6 +2740,7 @@ uses
state.oldsymtablestack:=symtablestack;
state.oldextendeddefs:=current_module.extendeddefs;
state.oldgenericdummysyms:=current_module.genericdummysyms;
state.oldcurrent_genericdef:=current_genericdef;
state.oldspecializestate:=pspecializationstate(current_module.specializestate);
current_module.specializestate:=@state;
current_module.extendeddefs:=TFPHashObjectList.create(true);