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

LLVM: fix missing line debug info for some invokes in specialised functions

Browse Source 
Required when the code can be inlined. Fixes compilation with debug info of
system.messaging.pp
This commit is contained in:
Jonas Maebe 2024-01-02 21:55:18 +01:00
parent 9a1083c98e
commit 8147185907
1 changed files with 9 additions and 4 deletions

13
compiler/llvm/dbgllvm.pas
View File

@ -2937,18 +2937,23 @@ implementation
functionscope.addint64('scopeLine',tailineinfo(hp).fileinfo.line);
firstline:=false;
end;
positionmeta:=filepos_getmetanode(tailineinfo(hp).fileinfo,procdeffileinfo,functionscope,nolineinfolevel<>0);
end
end;
{ LLVM requires line info for call instructions that may
potentially be inlined }
else if taillvm(hp).llvmopcode in [la_call,la_invoke] then
if (taillvm(hp).llvmopcode in [la_call,la_invoke]) and
not assigned(positionmeta) then
begin
positionmeta:=filepos_getmetanode(tailineinfo(hp).fileinfo,procdeffileinfo,functionscope,true);
positionmeta:=filepos_getmetanode(procdeffileinfo,procdeffileinfo,functionscope,true);
end;
if assigned(positionmeta) then
taillvm(hp).addinsmetadata(tai_llvmmetadatareferenceoperand.createreferenceto('dbg',positionmeta));
if (cs_debuginfo in current_settings.moduleswitches) and
(taillvm(hp).llvmopcode=la_call) then
(taillvm(hp).llvmopcode = la_call) then
updatelocalvardbginfo(taillvm(hp),pd,functionscope);
end;
hp:=tai(hp.next);