paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-18 20:31:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* few small freebsd fixes backported from debugging linux

Browse Source
This commit is contained in:
marco 2004-01-01 17:07:21 +00:00
parent 0ab36d6e91
commit fdf4095798
3 changed files with 38 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
rtl/bsd/unxsysc.inc
View File

@ -1,3 +1,17 @@
{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 2003 Marco van de Voort
member of the Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY;without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
function fpNice(N:cint):cint;
{
@ -96,22 +110,10 @@ begin
fpreadlink:=do_syscall(syscall_nr_readlink, TSysParam(name),TSysParam(linkname),maxlen);
end;
Function fpReadLink(Name:pathstr):pathstr;
{
Read a link (where it points to)
$Log$
Revision 1.4 2004-01-01 17:07:21 marco
* few small freebsd fixes backported from debugging linux
}
var
LinkName : pathstr;
i : cint;
begin
Name:=Name+#0;
i:=fpReadLink(@Name[1],@LinkName[1],high(linkname));
if i>0 then
begin
linkname[0]:=chr(i);
fpReadLink:=LinkName;
end
else
fpReadLink:='';
end;

6
rtl/bsd/unxsysch.inc
View File

@ -20,14 +20,16 @@ Function fpLstat(path:pchar;Info:pstat):cint;
Function fpLstat(Filename: PathStr;Info:pstat):cint;
Function fpSymlink(oldname,newname:pchar):cint;
Function fpReadLink(name,linkname:pchar;maxlen:cint):cint;
Function fpReadLink(name:PathStr):PathStr;
Function Fpmmap(start:pointer;len:size_t;prot:cint;flags:cint;fd:cint;offst:off_t):pointer; external name 'FPC_SYSC_MMAP';
Function Fpmunmap(start:pointer;len:size_t):cint; external name 'FPC_SYSC_MUNMAP';
function fpgettimeofday(tp: ptimeval;tzp:ptimezone):cint; external name 'FPC_SYSC_GETTIMEOFDAY';
{
$Log$
Revision 1.4 2003-12-30 12:26:21 marco
Revision 1.5 2004-01-01 17:07:21 marco
* few small freebsd fixes backported from debugging linux
Revision 1.4 2003/12/30 12:26:21 marco
* FPC_USE_LIBC
}

16
rtl/freebsd/unixsysc.inc
View File

@ -86,6 +86,17 @@ begin
fStatFS:=do_syscall(syscall_nr_fstatfs,fd,longint(@info));
end;
Function StatFS(path:pchar;Var Info:tstatfs):cint;
{
Get all information on a fileSystem, and return it in Info.
Fd is the file descriptor of a file/directory on the fileSystem
you wish to investigate.
}
begin
StatFS:=do_syscall(syscall_nr_statfs,longint(path),longint(@info));
end;
// needs oldfpccall;
Function intAssignPipe(var pipe_in,pipe_out:longint;var errn:cint):cint; {$ifndef ver1_0} oldfpccall;{$endif}
{
@ -264,7 +275,10 @@ end;
{
$Log$
Revision 1.17 2003-12-30 12:32:30 marco
Revision 1.18 2004-01-01 17:07:21 marco
* few small freebsd fixes backported from debugging linux
Revision 1.17 2003/12/30 12:32:30 marco
*** empty log message ***
Revision 1.16 2003/11/19 17:11:40 marco