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

* fix compilation on targets that use Stabs debug information: ignore generic dummy symbols with no procdefs for generating stabs data

Browse Source 
git-svn-id: trunk@48007 -
This commit is contained in:
svenbarth 2021-01-03 12:11:44 +00:00
parent 4a274cd63a
commit b8578f804f
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/dbgstabs.pas
View File

@ -480,6 +480,9 @@ implementation
begin begin
if tsym(p).typ = procsym then if tsym(p).typ = procsym then
begin begin
if (sp_generic_dummy in tsym(p).symoptions) and
(tprocsym(p).procdeflist.count=0) then
exit;
pd :=tprocdef(tprocsym(p).ProcdefList[0]); pd :=tprocdef(tprocsym(p).ProcdefList[0]);
if (po_virtualmethod in pd.procoptions) and if (po_virtualmethod in pd.procoptions) and
not is_objectpascal_helper(pd.struct) then not is_objectpascal_helper(pd.struct) then