paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 11:32:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Forgot external name's

Browse Source
This commit is contained in:
marco 2002-09-08 16:20:27 +00:00
parent e9dee45162
commit 2c73b6c7a8
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/bsd/bsdfuncs.inc
View File

@ -15,8 +15,8 @@
**********************************************************************} **********************************************************************}
function sys_uname(var name:utsname):cint; external name 'FPC_SYSC_UNAME';
function sys_uname(var name:utsname):cint;
Var Var
mib : array[0..1] of cint; mib : array[0..1] of cint;
rval : cint; rval : cint;
@ -57,9 +57,9 @@ Begin
sys_Uname:=rval; sys_Uname:=rval;
end; end;
function GetDomainName(Name:PChar; NameLen:Cint):cint; function GetDomainName(Name:PChar; NameLen:Cint):cint; external name 'FPC_SYSC_GETDOMAINNAME';
Const Mib_GetDomainname : array[0..1] of cint=(CTL_KERN,KERN_NISDOMAINNAME); Const Mib_GetDomainName : array[0..1] of cint=(CTL_KERN,KERN_NISDOMAINNAME);
VAR VAR
tsize : size_t; tsize : size_t;
@ -71,7 +71,7 @@ begin
GetDomainName:=0; GetDomainName:=0;
end; end;
function GetHostName(Name:PChar; NameLen:Cint):cint; function GetHostName(Name:PChar; NameLen:Cint):cint; external name 'FPC_SYSC_GETHOSTNAME';
Const Mib_GetHostName : array[0..1] of cint=(CTL_KERN,KERN_HOSTNAME); Const Mib_GetHostName : array[0..1] of cint=(CTL_KERN,KERN_HOSTNAME);
@ -87,7 +87,10 @@ End;
{ {
$Log$ $Log$
Revision 1.3 2002-09-08 16:11:59 marco Revision 1.4 2002-09-08 16:20:27 marco
* Forgot external name's
Revision 1.3 2002/09/08 16:11:59 marco
* Added GetDomainName and that other one .. * Added GetDomainName and that other one ..
Revision 1.2 2002/09/07 16:01:17 peter Revision 1.2 2002/09/07 16:01:17 peter