浏览代码

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

git-svn-id: trunk@48007 -
svenbarth 4 年之前
父节点
当前提交
b8578f804f
共有 1 个文件被更改,包括 3 次插入0 次删除
  1. 3 0
      compiler/dbgstabs.pas

+ 3 - 0
compiler/dbgstabs.pas

@@ -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