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

* ensure that nothing assembly related is generated for generics when a typed constant (this also includes local variable initializations) are parsed

Browse Source 
git-svn-id: trunk@43534 -
This commit is contained in:
svenbarth 2019-11-21 21:44:16 +00:00
parent 04984e9af9
commit 276f5bdef8
1 changed files with 19 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
compiler/ptconst.pas
View File

@ -123,23 +123,26 @@ implementation
end;
end;
if vo_is_public in sym.varoptions then
current_module.add_public_asmsym(sym.mangledname,AB_GLOBAL,AT_DATA);
if not parse_generic then
begin
if vo_is_public in sym.varoptions then
current_module.add_public_asmsym(sym.mangledname,AB_GLOBAL,AT_DATA);
if not(target_info.system in systems_typed_constants_node_init) then
begin
{ only now get the final asmlist, because inserting the symbol
information depends on potential section information set above }
tasmlisttypedconstbuilder(tcbuilder).get_final_asmlists(reslist,datalist);
{ add the parsed value }
list.concatlist(reslist);
{ and pointed data, if any }
current_asmdata.asmlists[al_const].concatlist(datalist);
{ the (empty) lists themselves are freed by tcbuilder }
end
else
begin
{ nothing to do }
if not(target_info.system in systems_typed_constants_node_init) then
begin
{ only now get the final asmlist, because inserting the symbol
information depends on potential section information set above }
tasmlisttypedconstbuilder(tcbuilder).get_final_asmlists(reslist,datalist);
{ add the parsed value }
list.concatlist(reslist);
{ and pointed data, if any }
current_asmdata.asmlists[al_const].concatlist(datalist);
{ the (empty) lists themselves are freed by tcbuilder }
end
else
begin
{ nothing to do }
end;
end;
tcbuilder.free;