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

+ Fixed win32 compilation

Browse Source
This commit is contained in:
michael 2004-02-03 10:37:32 +00:00
parent 20e4eac32d
commit 9dd71e8668
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fcl/inc/resolve.pp
View File

@ -497,7 +497,7 @@ begin
Result:=Inherited NameLookup(S); Result:=Inherited NameLookup(S);
If Result then If Result then
begin begin
FHostEntry:=ResolveHostByName(pchar(FName)); FHostEntry:=GetHostByName(pchar(FName));
Result:=FHostEntry<>Nil; Result:=FHostEntry<>Nil;
If Result then If Result then
SaveHostEntry(FHostEntry) SaveHostEntry(FHostEntry)
@ -540,7 +540,7 @@ Var
begin begin
ClearData; ClearData;
FHostEntry:=ResolveHostByAddr(Pchar(@Address),SizeOf(Address),AF_INET); FHostEntry:=GetHostByAddr(Pchar(@Address),SizeOf(Address),AF_INET);
Result:=FHostEntry<>Nil; Result:=FHostEntry<>Nil;
If Result then If Result then
SaveHostEntry(FHostEntry) SaveHostEntry(FHostEntry)
@ -952,7 +952,10 @@ Finalization
end. end.
{ {
$Log$ $Log$
Revision 1.8 2004-02-02 14:42:00 marco Revision 1.9 2004-02-03 10:37:32 michael
+ Fixed win32 compilation
Revision 1.8 2004/02/02 14:42:00 marco
* more small fixes * more small fixes
Revision 1.7 2004/01/31 19:02:50 sg Revision 1.7 2004/01/31 19:02:50 sg