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

+ patch by J. Gareth Moreton: New label debugging feature, resolves #38980

Browse Source 
git-svn-id: trunk@49494 -
This commit is contained in:
florian 2021-06-10 20:26:17 +00:00
parent 214936b90e
commit 464730dc44
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/aggas.pas
View File

@ -1323,13 +1323,17 @@ implementation
begin
if (tai_label(hp).labsym.is_used) then
begin
if (tai_label(hp).labsym.bind=AB_PRIVATE_EXTERN) then
begin
writer.AsmWrite(#9'.private_extern ');
writer.AsmWriteln(tai_label(hp).labsym.name);
end;
{$ifdef DEBUG_LABEL}
writer.AsmWrite(asminfo^.comment);
writer.AsmWriteLn('References = ' + tostr(tai_label(hp).labsym.getrefs));
{$endif DEBUG_LABEL}
if tai_label(hp).labsym.bind in [AB_GLOBAL,AB_PRIVATE_EXTERN] then
begin
if (tai_label(hp).labsym.bind=AB_PRIVATE_EXTERN) then
begin
writer.AsmWrite(#9'.private_extern ');
writer.AsmWriteln(tai_label(hp).labsym.name);
end;
{$ifdef arm}
{ do no change arm mode accidently, .globl seems to reset the mode }
if GenerateThumbCode or GenerateThumb2Code then