From 2c73b6c7a853630b8a2cff8ff327dc6cc80ef66a Mon Sep 17 00:00:00 2001 From: marco Date: Sun, 8 Sep 2002 16:20:27 +0000 Subject: [PATCH] * Forgot external name's --- rtl/bsd/bsdfuncs.inc | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/rtl/bsd/bsdfuncs.inc b/rtl/bsd/bsdfuncs.inc index 04adfda204..973b218f6d 100644 --- a/rtl/bsd/bsdfuncs.inc +++ b/rtl/bsd/bsdfuncs.inc @@ -15,8 +15,8 @@ **********************************************************************} +function sys_uname(var name:utsname):cint; external name 'FPC_SYSC_UNAME'; -function sys_uname(var name:utsname):cint; Var mib : array[0..1] of cint; rval : cint; @@ -57,9 +57,9 @@ Begin sys_Uname:=rval; 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 tsize : size_t; @@ -71,7 +71,7 @@ begin GetDomainName:=0; 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); @@ -87,7 +87,10 @@ End; { $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 .. Revision 1.2 2002/09/07 16:01:17 peter