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

* Should be alias.

Browse Source
This commit is contained in:
marco 2002-10-25 15:46:48 +00:00
parent 567ae5a4e1
commit 809550f7dc
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/bsd/bsdfuncs.inc
View File

@ -15,7 +15,7 @@
**********************************************************************} **********************************************************************}
function sys_uname(var name:utsname):cint; external name 'FPC_SYSC_UNAME'; function sys_uname(var name:utsname):cint; [public,alias:'FPC_SYSC_UNAME'];
Var Var
mib : array[0..1] of cint; mib : array[0..1] of cint;
@ -57,7 +57,7 @@ Begin
sys_Uname:=rval; sys_Uname:=rval;
end; end;
function GetDomainName(Name:PChar; NameLen:Cint):cint; external name 'FPC_SYSC_GETDOMAINNAME'; function GetDomainName(Name:PChar; NameLen:Cint):cint; [public,alias:'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);
@ -71,7 +71,7 @@ begin
GetDomainName:=0; GetDomainName:=0;
end; end;
function GetHostName(Name:PChar; NameLen:Cint):cint; external name 'FPC_SYSC_GETHOSTNAME'; function GetHostName(Name:PChar; NameLen:Cint):cint;[public,alias:'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.4 2002-09-08 16:20:27 marco Revision 1.5 2002-10-25 15:46:48 marco
* Should be alias.
Revision 1.4 2002/09/08 16:20:27 marco
* Forgot external name's * Forgot external name's
Revision 1.3 2002/09/08 16:11:59 marco Revision 1.3 2002/09/08 16:11:59 marco