瀏覽代碼

* fix writing of long stabstr entries

git-svn-id: trunk@3279 -
peter 19 年之前
父節點
當前提交
ead6c6a29a
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/ogbase.pas

+ 1 - 1
compiler/ogbase.pas

@@ -1887,7 +1887,7 @@ implementation
                                   inc(bufend);
                                 end;
                               mergedstabstrsec.write(buf,bufend);
-                            until (bufend<>-1) or (bufsize<sizeof(buf));
+                            until (buf[bufend-1]=0) or (bufsize<sizeof(buf));
                           end;
                         { Copy and Update the relocation }
                         if assigned(hstabreloc) then