paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 06:50:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* rest of syscalls has constants now

Browse Source
This commit is contained in:
marco 2000-04-05 13:46:22 +00:00
parent 2d0e7cadad
commit 100dcf470c
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/bsd/linux.pp
View File

@ -1021,7 +1021,7 @@ Function WaitPid(Pid:longint;Status:pointer;Options:Integer):Longint;
begin begin
WaitPID:=do_syscall(syscall_nr_WaitPID,PID,longint(Status),options,0); WaitPID:=do_syscall(syscall_nr_WaitPID,PID,longint(Status),options,0);
LinuxError:=ErrNo; LinuxError:=ErrNo;
end; end;
@ -2069,7 +2069,7 @@ var
res : longint; res : longint;
begin begin
do_syscall(6,Textrec(F).Handle); do_syscall(syscall_nr_close,Textrec(F).Handle);
{ closed our side, Now wait for the other - this appears to be needed ?? } { closed our side, Now wait for the other - this appears to be needed ?? }
pl:=@(textrec(f).userdata[2]); pl:=@(textrec(f).userdata[2]);
waitpid(pl^,@res,0); waitpid(pl^,@res,0);
@ -2594,7 +2594,7 @@ Procedure SigSuspend(Mask:Sigset);
} }
begin begin
do_syscall(111,mask); do_syscall(syscall_nr_sigsuspend,mask);
LinuxError:=Errno; LinuxError:=Errno;
end; end;
@ -2660,7 +2660,7 @@ Function IOCtl(Handle,Ndx: Longint;Data: Pointer):boolean;
} }
begin begin
IOCtl:=Do_Syscall(54,handle,ndx,longint(data))=0; IOCtl:=Do_Syscall(syscall_nr_ioctl,handle,ndx,longint(data))=0;
LinuxError:=Errno; LinuxError:=Errno;
end; end;
@ -3418,7 +3418,7 @@ function MMap(const m:tmmapargs):longint;
begin begin
{Last argument (offset) is actually 64-bit under BSD. Therefore extra 0} {Last argument (offset) is actually 64-bit under BSD. Therefore extra 0}
do_syscall(197,m.address,m.size,m.prot,m.flags,m.fd,m.offset,0); do_syscall(syscall_nr_mmap,m.address,m.size,m.prot,m.flags,m.fd,m.offset,0);
LinuxError:=Errno; LinuxError:=Errno;
end; end;
@ -3644,7 +3644,10 @@ End.
{ {
$Log$ $Log$
Revision 1.9 2000-04-05 13:07:03 marco Revision 1.10 2000-04-05 13:46:22 marco
* rest of syscalls has constants now
Revision 1.9 2000/04/05 13:07:03 marco
* replaced about half of the syscall nr's by symbols from sysnr.inc * replaced about half of the syscall nr's by symbols from sysnr.inc
Revision 1.8 2000/03/17 12:58:57 marco Revision 1.8 2000/03/17 12:58:57 marco