|
@@ -475,8 +475,11 @@ begin
|
|
|
FpNanoSleep:=Do_SysCall(syscall_nr_nanosleep,TSysParam(req),TSysParam(rem));
|
|
|
end;
|
|
|
|
|
|
-// The following belongs here, but this should be researched more.
|
|
|
-// function Fpgetcwd(pt:pchar; _size:size_t):pchar;[public, alias :'FPC_SYSC_GETCWD'];
|
|
|
+function fpgetcwd(path : pchar; siz:tsize):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'];
|
|
|
|