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

* should now also ignore comment starting with ; (bug 45something)

Browse Source 
git-svn-id: trunk@1720 -
This commit is contained in:
marco 2005-11-11 09:30:08 +00:00
parent 59d3cd95a8
commit 2765cc28bc
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -209,7 +209,13 @@ begin
Readln(R,L);
I:=Pos('#',L);
If (I<>0) then
L:=Copy(L,1,I-1);
L:=Copy(L,1,I-1)
else
begin
I:=Pos(';',L);
If (I<>0) then
L:=Copy(L,1,I-1)
end;
If CheckDirective('nameserver') then
begin
H:=HostToNet(StrToHostAddr(L));