* fixed possible problem with null termination

This commit is contained in:
olle 2004-11-02 22:17:25 +00:00
parent 52a01abafa
commit 135be09271

View File

@ -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