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

* fixed web bug #4934

Browse Source 
git-svn-id: trunk@3019 -
This commit is contained in:
Jonas Maebe 2006-03-23 14:24:49 +00:00
parent 422b29759b
commit 42a2ef5e90
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/base/netdb/netdb.pp
View File

@ -365,7 +365,8 @@ begin
Inc(I,P+1);
Inc(O,P);
end;
Until (Payload[I]=#0);
Until (Payload[I]=#0);
setlength(result,o-1);
end;