paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 13:28:07 +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;
end; end;
if vo_is_public in sym.varoptions then if not parse_generic then
current_module.add_public_asmsym(sym.mangledname,AB_GLOBAL,AT_DATA); 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 if not(target_info.system in systems_typed_constants_node_init) then
begin begin
{ only now get the final asmlist, because inserting the symbol { only now get the final asmlist, because inserting the symbol
information depends on potential section information set above } information depends on potential section information set above }
tasmlisttypedconstbuilder(tcbuilder).get_final_asmlists(reslist,datalist); tasmlisttypedconstbuilder(tcbuilder).get_final_asmlists(reslist,datalist);
{ add the parsed value } { add the parsed value }
list.concatlist(reslist); list.concatlist(reslist);
{ and pointed data, if any } { and pointed data, if any }
current_asmdata.asmlists[al_const].concatlist(datalist); current_asmdata.asmlists[al_const].concatlist(datalist);
{ the (empty) lists themselves are freed by tcbuilder } { the (empty) lists themselves are freed by tcbuilder }
end end
else else
begin begin
{ nothing to do } { nothing to do }
end;
end; end;
tcbuilder.free; tcbuilder.free;