Explorar el Código

* fix writing of long stabstr entries

git-svn-id: trunk@3279 -
peter hace 19 años
padre
commit
ead6c6a29a
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  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