paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-08 04:46:11 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/unix/unix.pp
View File

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