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

* small fix

Browse Source
This commit is contained in:
marco 2003-09-15 20:29:50 +00:00
parent cf0c2af370
commit 25beeda7b5
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/linux/ossysc.inc
View File

@ -443,18 +443,21 @@ end;
// The following belongs here, but this should be researched more. // 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(pt:pchar; _size:size_t):pchar;[public, alias :'FPC_SYSC_GETCWD'];
function gettimeofday(tp: ptimeval;tzp:ptimezone):cint; [public, alias: function fpgettimeofday(tp: ptimeval;tzp:ptimezone):cint; [public, alias:
'FPC_SYSC_GETTIMEOFDAY']; 'FPC_SYSC_GETTIMEOFDAY'];
begin begin
gettimeofday:=do_syscall(syscall_nr_gettimeofday,TSysParam(tp),TSysParam(tzp)); fpgettimeofday:=do_syscall(syscall_nr_gettimeofday,TSysParam(tp),TSysParam(tzp));
end; end;
{$ENDIF} {$ENDIF}
{ {
$Log$ $Log$
Revision 1.4 2003-09-14 20:15:01 marco Revision 1.5 2003-09-15 20:29:50 marco
* small fix
Revision 1.4 2003/09/14 20:15:01 marco
* Unix reform stage two. Remove all calls from Unix that exist in Baseunix. * Unix reform stage two. Remove all calls from Unix that exist in Baseunix.
Revision 1.3 2003/05/11 16:07:55 jonas Revision 1.3 2003/05/11 16:07:55 jonas

7
rtl/linux/ossysch.inc
View File

@ -21,11 +21,14 @@ Function FpIOCtl(handle:cint;ndx:culong;Data: Pointer):cint; external name 'FPC
Function FpGetPid:pid_t; external name 'FPC_SYSC_GETPID'; Function FpGetPid:pid_t; external name 'FPC_SYSC_GETPID';
Function FpReadLink(name,linkname:pchar;maxlen:size_t):cint; external name 'FPC_SYSC_READLINK'; Function FpReadLink(name,linkname:pchar;maxlen:size_t):cint; external name 'FPC_SYSC_READLINK';
Function FpNanoSleep(const req : timespec;rem : ptimespec) : longint; external name 'FPC_SYSC_NANOSLEEP'; Function FpNanoSleep(const req : timespec;rem : ptimespec) : longint; external name 'FPC_SYSC_NANOSLEEP';
function gettimeofday(tp: ptimeval;tzp:ptimezone):cint; external name 'FPC_SYSC_GETTIMEOFDAY'; function fpgettimeofday(tp: ptimeval;tzp:ptimezone):cint; external name 'FPC_SYSC_GETTIMEOFDAY';
{ {
$Log$ $Log$
Revision 1.2 2003-09-14 20:15:01 marco Revision 1.3 2003-09-15 20:29:50 marco
* small fix
Revision 1.2 2003/09/14 20:15:01 marco
* Unix reform stage two. Remove all calls from Unix that exist in Baseunix. * Unix reform stage two. Remove all calls from Unix that exist in Baseunix.
Revision 1.1 2002/12/18 16:43:26 marco Revision 1.1 2002/12/18 16:43:26 marco