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

* adds fpgetcwd support to sysdir.inc and fixes compilation

Browse Source 
git-svn-id: trunk@2969 -
This commit is contained in:
Almindor 2006-03-19 17:10:04 +00:00
parent b8e3723bb0
commit 827abd27d7
2 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/linux/bunxsysc.inc
View File

@ -381,12 +381,6 @@ begin
fptimes:=Do_syscall(syscall_nr_times,TSysParam(@buffer)); fptimes:=Do_syscall(syscall_nr_times,TSysParam(@buffer));
end; end;
function pfpgetcwd(path : pchar; siz:tsize):pchar; [public, alias : 'FPC_SYSC_GETCWD'];
begin
pfpgetcwd:=pchar(Do_Syscall(Syscall_nr_getcwd,TSysParam(Path),TSysParam(siz)));
end;
Function fpSelect(N:cint;readfds,writefds,exceptfds:pfdSet;TimeOut:PTimeVal):cint; Function fpSelect(N:cint;readfds,writefds,exceptfds:pfdSet;TimeOut:PTimeVal):cint;
{ {
Select checks whether the file descriptor sets in readfs/writefs/exceptfs Select checks whether the file descriptor sets in readfs/writefs/exceptfs

7
rtl/linux/ossysc.inc
View File

@ -475,8 +475,11 @@ begin
FpNanoSleep:=Do_SysCall(syscall_nr_nanosleep,TSysParam(req),TSysParam(rem)); FpNanoSleep:=Do_SysCall(syscall_nr_nanosleep,TSysParam(req),TSysParam(rem));
end; end;
// The following belongs here, but this should be researched more. function fpgetcwd(path : pchar; siz:tsize):pchar; [public, alias : 'FPC_SYSC_GETCWD'];
// function Fpgetcwd(pt:pchar; _size:size_t):pchar;[public, alias :'FPC_SYSC_GETCWD'];
begin
fpgetcwd:=pchar(Do_Syscall(Syscall_nr_getcwd,TSysParam(Path),TSysParam(siz)));
end;
function fpgettimeofday(tp: ptimeval;tzp:ptimezone):cint; [public, alias: 'FPC_SYSC_GETTIMEOFDAY']; function fpgettimeofday(tp: ptimeval;tzp:ptimezone):cint; [public, alias: 'FPC_SYSC_GETTIMEOFDAY'];