paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 20:09:33 +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

9
compiler/pgentype.pas
View File

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

1
compiler/pgenutil.pas
View File

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