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

* keep track of the current specialization state of the current module

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-12-27 16:18:36 +01:00
parent 5d65194777
commit db83f9c696
3 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/fmodule.pas
View File

@ -232,6 +232,7 @@ interface
waitingunits: tfpobjectlist;
finishstate: pointer;
specializestate : pointer;
namespace: pshortstring; { for JVM target: corresponds to Java package name }

4
compiler/pgentype.pas
View File

@ -34,10 +34,12 @@ const
inline_specialization_block_types = [bt_type,bt_var_type,bt_const_type,bt_body,bt_except];
type
pspecializationstate = ^tspecializationstate;
tspecializationstate = record
oldsymtablestack : tsymtablestack;
oldextendeddefs : tfphashobjectlist;
oldgenericdummysyms: tfphashobjectlist;
oldgenericdummysyms : tfphashobjectlist;
oldspecializestate : pspecializationstate;
end;
tspecializationcontext=class

3
compiler/pgenutil.pas
View File

@ -2740,6 +2740,8 @@ uses
state.oldsymtablestack:=symtablestack;
state.oldextendeddefs:=current_module.extendeddefs;
state.oldgenericdummysyms:=current_module.genericdummysyms;
state.oldspecializestate:=pspecializationstate(current_module.specializestate);
current_module.specializestate:=@state;
current_module.extendeddefs:=TFPHashObjectList.create(true);
current_module.genericdummysyms:=tfphashobjectlist.create(true);
symtablestack:=tdefawaresymtablestack.create;
@ -2819,6 +2821,7 @@ uses
current_module.extendeddefs:=state.oldextendeddefs;
current_module.genericdummysyms.free;
current_module.genericdummysyms:=state.oldgenericdummysyms;
current_module.specializestate:=state.oldspecializestate;
symtablestack.free;
symtablestack:=state.oldsymtablestack;
{ clear the state record to be on the safe side }