浏览代码

Merged revisions 10197 via svnmerge from
http://svn.freepascal.org/svn/fpc/trunk

........
r10197 | jonas | 2008-02-03 22:45:59 +0100 (Sun, 03 Feb 2008) | 2 lines

* fixed debug info for enum types after r10189
........

git-svn-id: branches/fixes_2_2@10200 -

peter 17 年之前
父节点
当前提交
8a0528fcd0
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      compiler/dbgstabs.pas

+ 2 - 1
compiler/dbgstabs.pas

@@ -574,7 +574,8 @@ implementation
             st:=st+GetSymName(p)+':'+tostr(p.value)+',';
             p:=p.nextenum;
           end;
-        st[length(st)]:=';';
+        { the final ',' is required to have a valid stabs }
+        st:=st+';';
         write_def_stabstr(list,def,st);
       end;