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

* fixed BSD getdomainname for FPC_USE_LIBC

Browse Source
This commit is contained in:
Jonas Maebe 2004-07-18 14:54:42 +00:00
parent db96c04104
commit aa6475e9fd
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/unix/unix.pp
View File

@ -1494,7 +1494,12 @@ end;
{$ifdef BSD} {$ifdef BSD}
function intGetDomainName(Name:PChar; NameLen:Cint):cint; external name 'FPC_SYSC_GETDOMAINNAME'; function intGetDomainName(Name:PChar; NameLen:Cint):cint;
{$ifndef FPC_USE_LIBC}
external name 'FPC_SYSC_GETDOMAINNAME';
{$else FPC_USE_LIBC}
cdecl; external clib name 'getdomainname';
{$endif FPC_USE_LIBC}
Function GetDomainName:String; { linux only!} Function GetDomainName:String; { linux only!}
// domainname is a glibc extension. // domainname is a glibc extension.
@ -1772,7 +1777,10 @@ End.
{ {
$Log$ $Log$
Revision 1.73 2004-07-18 11:27:54 marco Revision 1.74 2004-07-18 14:54:42 jonas
* fixed BSD getdomainname for FPC_USE_LIBC
Revision 1.73 2004/07/18 11:27:54 marco
* small fix for BSD getdomainname. BSD version is based on Sysctl * small fix for BSD getdomainname. BSD version is based on Sysctl
Revision 1.72 2004/07/03 13:18:06 daniel Revision 1.72 2004/07/03 13:18:06 daniel