paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 03:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed possible problem with null termination

Browse Source
This commit is contained in:
olle 2004-11-02 22:17:25 +00:00
parent 52a01abafa
commit 135be09271
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/utils/ppudump.pp
View File

@ -1068,6 +1068,7 @@ begin
len:=getlongint; len:=getlongint;
getmem(pc,len+1); getmem(pc,len+1);
getdata(pc^,len); getdata(pc^,len);
(pc+len)^:= #0;
writeln(space,' Length: ',len); writeln(space,' Length: ',len);
writeln(space,' Value: "',pc,'"'); writeln(space,' Value: "',pc,'"');
freemem(pc,len+1); freemem(pc,len+1);
@ -1983,7 +1984,10 @@ begin
end. end.
{ {
$Log$ $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 + added -h option to show help
Revision 1.55 2004/09/04 21:11:49 armin Revision 1.55 2004/09/04 21:11:49 armin