Explorar o código

* fixed possible problem with null termination

olle %!s(int64=21) %!d(string=hai) anos
pai
achega
135be09271
Modificáronse 1 ficheiros con 5 adicións e 1 borrados
  1. 5 1
      compiler/utils/ppudump.pp

+ 5 - 1
compiler/utils/ppudump.pp

@@ -1068,6 +1068,7 @@ begin
                    len:=getlongint;
                    getmem(pc,len+1);
                    getdata(pc^,len);
+                   (pc+len)^:= #0;
                    writeln(space,'      Length: ',len);
                    writeln(space,'       Value: "',pc,'"');
                    freemem(pc,len+1);
@@ -1983,7 +1984,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.56  2004-09-27 18:04:11  olle
+  Revision 1.57  2004-11-02 22:17:25  olle
+    * fixed possible problem with null termination
+
+  Revision 1.56  2004/09/27 18:04:11  olle
     + added -h option to show help
 
   Revision 1.55  2004/09/04 21:11:49  armin