paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-29 15:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Avoid adding size if tf_needs_symbol_size is not in target_info.flags

Browse Source
This commit is contained in:
Pierre Muller 2025-05-13 08:11:14 +00:00
parent 4aaf65e9f8
commit 0610d691b6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ncgcon.pas
View File

@ -178,7 +178,8 @@ implementation
internalerror(10120); internalerror(10120);
{$endif not cpufloat128} {$endif not cpufloat128}
end; end;
current_asmdata.asmlists[al_typedconsts].concat(Tai_symbol_end.Create(lastlabel)); if (tf_needs_symbol_size in target_info.flags) then
current_asmdata.asmlists[al_typedconsts].concat(Tai_symbol_end.Create(lastlabel));
end; end;
end; end;
location.reference.symbol:=lab_real; location.reference.symbol:=lab_real;