Преглед изворни кода

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