paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 03:59:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes for old syscall() convention removing

Browse Source
This commit is contained in:
marco 2003-10-30 16:42:58 +00:00
parent 221f926099
commit 049d2cbd1a
1 changed files with 10 additions and 6 deletions

16
rtl/unix/unix.pp
View File

@ -280,7 +280,11 @@ Uses Strings;
{$i filerec.inc}
{ Raw System calls are in Syscalls.inc}
{$ifdef Linux} // Linux has more "oldlinux" compability.
{$i sysc11.inc}
{$else}
{$i syscalls.inc}
{$endif}
{$i unixsysc.inc} {Syscalls only used in unit Unix/Linux}
@ -647,13 +651,10 @@ End;
{$ifndef BSD}
{$ifdef linux}
Function stime (t : longint) : Boolean;
var
sr : Syscallregs;
begin
sr.reg2:=longint(@t);
SysCall(Syscall_nr_stime,sr);
do_SysCall(Syscall_nr_stime,longint(@t));
linuxerror:=fpgeterrno;;
stime:=linuxerror=0;
stime:=linuxerror=0;
end;
{$endif}
{$endif}
@ -1714,7 +1715,10 @@ End.
{
$Log$
Revision 1.41 2003-10-12 19:40:43 marco
Revision 1.42 2003-10-30 16:42:58 marco
* fixes for old syscall() convention removing
Revision 1.41 2003/10/12 19:40:43 marco
* ioctl fixes. IDE now starts, but
Revision 1.40 2003/09/29 14:36:06 peter