mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 07:19:35 +02:00
* fixed possible problem with null termination
This commit is contained in:
parent
52a01abafa
commit
135be09271
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user