mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-28 11:22:38 +02:00
477 lines
10 KiB
PHP
477 lines
10 KiB
PHP
{
|
|
$Id$
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1999-2000 by Michael Van Canneyt,
|
|
member of the Free Pascal development team.
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
|
|
{ Include syscall itself }
|
|
{$i syscallo.inc}
|
|
|
|
{*****************************************************************************
|
|
--- Time:Time handling related calls ---
|
|
*****************************************************************************}
|
|
|
|
Function Sys_Time:longint;
|
|
var
|
|
regs : SysCallregs;
|
|
begin
|
|
regs.reg2:=0;
|
|
Sys_Time:=SysCall(SysCall_nr_time,regs);
|
|
end;
|
|
|
|
|
|
{*****************************************************************************
|
|
--- File:File handling related calls ---
|
|
*****************************************************************************}
|
|
|
|
|
|
Function Sys_Open(f:pchar;flags:longint;mode:integer):longint;
|
|
var
|
|
regs : SysCallregs;
|
|
Begin
|
|
regs.reg2:=longint(f);
|
|
regs.reg3:=flags;
|
|
regs.reg4:=mode;
|
|
Sys_Open:=SysCall(SysCall_nr_open,regs);
|
|
End;
|
|
|
|
|
|
|
|
Function Sys_Close(f:longint):longint;
|
|
var
|
|
regs : SysCallregs;
|
|
begin
|
|
regs.reg2:=f;
|
|
Sys_Close:=SysCall(SysCall_nr_close,regs);
|
|
end;
|
|
|
|
|
|
|
|
Function Sys_Lseek(F:longint;Off:longint;Whence:longint):longint;
|
|
var
|
|
regs : SysCallregs;
|
|
begin
|
|
regs.reg2:=f;
|
|
regs.reg3:=off;
|
|
regs.reg4:=Whence;
|
|
Sys_lseek:=SysCall(SysCall_nr_lseek,regs);
|
|
end;
|
|
|
|
|
|
|
|
Function Sys_Read(f:longint;buffer:pchar;count:longint):longint;
|
|
var
|
|
regs : SysCallregs;
|
|
begin
|
|
regs.reg2:=f;
|
|
regs.reg3:=longint(buffer);
|
|
regs.reg4:=count;
|
|
Sys_Read:=SysCall(SysCall_nr_read,regs);
|
|
end;
|
|
|
|
|
|
|
|
Function Sys_Write(f:longint;buffer:pchar;count:longint):longint;
|
|
var
|
|
regs : SysCallregs;
|
|
begin
|
|
regs.reg2:=f;
|
|
regs.reg3:=longint(buffer);
|
|
regs.reg4:=count;
|
|
Sys_Write:=SysCall(SysCall_nr_write,regs);
|
|
end;
|
|
|
|
|
|
|
|
Function Sys_Unlink(Filename:pchar):longint;
|
|
var
|
|
regs : SysCallregs;
|
|
begin
|
|
regs.reg2:=longint(filename);
|
|
Sys_Unlink:=SysCall(SysCall_nr_unlink,regs);
|
|
end;
|
|
|
|
|
|
Function Sys_fstat(fd : longint;var Info:stat):Longint;
|
|
var
|
|
regs : SysCallregs;
|
|
begin
|
|
regs.reg2:=fd;
|
|
regs.reg3:=longint(@Info);
|
|
Sys_fStat:=SysCall(SysCall_nr_fstat,regs);
|
|
end;
|
|
|
|
|
|
Function Sys_Rename(Oldname,Newname:pchar):longint;
|
|
var
|
|
regs : SysCallregs;
|
|
begin
|
|
regs.reg2:=longint(oldname);
|
|
regs.reg3:=longint(newname);
|
|
Sys_Rename:=SysCall(SysCall_nr_rename,regs);
|
|
end;
|
|
|
|
|
|
|
|
Function Sys_Stat(Filename:pchar;var Buffer: stat):longint;
|
|
{
|
|
We need this for getcwd
|
|
}
|
|
var
|
|
regs : SysCallregs;
|
|
begin
|
|
regs.reg2:=longint(filename);
|
|
regs.reg3:=longint(@buffer);
|
|
Sys_Stat:=SysCall(SysCall_nr_stat,regs);
|
|
end;
|
|
|
|
|
|
Function Sys_Symlink(oldname,newname:pchar):longint;
|
|
{
|
|
We need this for erase
|
|
}
|
|
var
|
|
regs : SysCallregs;
|
|
begin
|
|
regs.reg2:=longint(oldname);
|
|
regs.reg3:=longint(newname);
|
|
Sys_symlink:=SysCall(SysCall_nr_symlink,regs);
|
|
end;
|
|
|
|
|
|
Function Sys_ReadLink(name,linkname:pchar;maxlen:longint):longint;
|
|
var
|
|
regs : SysCallRegs;
|
|
begin
|
|
regs.reg2:=longint(name);
|
|
regs.reg3:=longint(linkname);
|
|
regs.reg4:=maxlen;
|
|
Sys_ReadLink:=SysCall(Syscall_nr_readlink,regs);
|
|
end;
|
|
|
|
|
|
{*****************************************************************************
|
|
--- Directory:Directory related calls ---
|
|
*****************************************************************************}
|
|
|
|
|
|
Function Sys_Chdir(Filename:pchar):longint;
|
|
var
|
|
regs : SysCallregs;
|
|
|
|
begin
|
|
regs.reg2:=longint(filename);
|
|
Sys_ChDir:=SysCall(SysCall_nr_chdir,regs);
|
|
end;
|
|
|
|
|
|
|
|
Function Sys_Mkdir(Filename:pchar;mode:longint):longint;
|
|
var
|
|
regs : SysCallregs;
|
|
begin
|
|
regs.reg2:=longint(filename);
|
|
regs.reg3:=mode;
|
|
Sys_MkDir:=SysCall(SysCall_nr_mkdir,regs);
|
|
end;
|
|
|
|
|
|
|
|
Function Sys_Rmdir(Filename:pchar):longint;
|
|
var
|
|
regs : SysCallregs;
|
|
begin
|
|
regs.reg2:=longint(filename);
|
|
Sys_Rmdir:=SysCall(SysCall_nr_rmdir,regs);
|
|
end;
|
|
|
|
|
|
|
|
{ we need this for getcwd }
|
|
Function OpenDir(f:pchar):pdir;
|
|
var
|
|
fd:integer;
|
|
st:stat;
|
|
ptr:pdir;
|
|
begin
|
|
opendir:=nil;
|
|
if sys_stat(f,st)<0 then
|
|
exit;
|
|
{ Is it a dir ? }
|
|
if not((st.mode and $f000)=$4000)then
|
|
begin
|
|
errno:=ESysENOTDIR;
|
|
exit
|
|
end;
|
|
{ Open it}
|
|
fd:=sys_open(f,OPEN_RDONLY,438);
|
|
if fd<0 then
|
|
exit;
|
|
new(ptr);
|
|
if ptr=nil then
|
|
exit;
|
|
new(ptr^.buf);
|
|
if ptr^.buf=nil then
|
|
exit;
|
|
ptr^.fd:=fd;
|
|
ptr^.loc:=0;
|
|
ptr^.size:=0;
|
|
ptr^.dd_max:=sizeof(ptr^.buf^);
|
|
opendir:=ptr;
|
|
end;
|
|
|
|
|
|
|
|
function CloseDir(p:pdir):integer;
|
|
begin
|
|
closedir:=sys_close(p^.fd);
|
|
dispose(p^.buf);
|
|
dispose(p);
|
|
end;
|
|
|
|
|
|
|
|
Function Sys_ReadDir(p:pdir):pdirent;
|
|
var
|
|
regs :SysCallregs;
|
|
dummy:longint;
|
|
begin
|
|
regs.reg3:=longint(p^.buf);
|
|
regs.reg2:=p^.fd;
|
|
regs.reg4:=1;
|
|
dummy:=SysCall(SysCall_nr_readdir,regs);
|
|
{ the readdir system call returns the number of bytes written }
|
|
if dummy=0 then
|
|
sys_readdir:=nil
|
|
else
|
|
sys_readdir:=p^.buf
|
|
end;
|
|
|
|
|
|
{*****************************************************************************
|
|
--- Process:Process & program handling - related calls ---
|
|
*****************************************************************************}
|
|
|
|
Function Sys_GetPid:LongInt;
|
|
var
|
|
regs : SysCallregs;
|
|
begin
|
|
Sys_GetPid:=SysCall(SysCall_nr_getpid,regs);
|
|
end;
|
|
|
|
|
|
Procedure Sys_Exit(ExitCode:Integer);
|
|
var
|
|
regs : SysCallregs;
|
|
begin
|
|
regs.reg2:=exitcode;
|
|
SysCall(SysCall_nr_exit,regs)
|
|
end;
|
|
|
|
Procedure SigAction(Signum:longint;Act,OldAct:PSigActionRec );
|
|
{
|
|
Change action of process upon receipt of a signal.
|
|
Signum specifies the signal (all except SigKill and SigStop).
|
|
If Act is non-nil, it is used to specify the new action.
|
|
If OldAct is non-nil the previous action is saved there.
|
|
}
|
|
Var
|
|
sr : Syscallregs;
|
|
begin
|
|
sr.reg2:=Signum;
|
|
sr.reg3:=Longint(act);
|
|
sr.reg4:=Longint(oldact);
|
|
SysCall(Syscall_nr_sigaction,sr);
|
|
end;
|
|
|
|
function Sys_FTruncate(Handle,Pos:longint):longint; //moved from sysunix.inc Do_Truncate
|
|
var
|
|
sr : syscallregs;
|
|
begin
|
|
sr.reg2:=Handle;
|
|
sr.reg3:=Pos;
|
|
Sys_FTruncate:=syscall(syscall_nr_ftruncate,sr);
|
|
end;
|
|
|
|
Function Sys_mmap(adr,len,prot,flags,fdes,off:longint):longint; // moved from sysunix.inc, used in sbrk
|
|
type
|
|
tmmapargs=packed record
|
|
address : longint;
|
|
size : longint;
|
|
prot : longint;
|
|
flags : longint;
|
|
fd : longint;
|
|
offset : longint;
|
|
end;
|
|
var
|
|
t : syscallregs;
|
|
mmapargs : tmmapargs;
|
|
begin
|
|
mmapargs.address:=adr;
|
|
mmapargs.size:=len;
|
|
mmapargs.prot:=prot;
|
|
mmapargs.flags:=flags;
|
|
mmapargs.fd:=fdes;
|
|
mmapargs.offset:=off;
|
|
t.reg2:=longint(@mmapargs);
|
|
Sys_mmap:=syscall(syscall_nr_mmap,t);
|
|
end;
|
|
|
|
Function Sys_munmap(adr,len:longint):longint; // moved from sysunix.inc, used in sbrk
|
|
var
|
|
t : syscallregs;
|
|
begin
|
|
t.reg2:=adr;
|
|
t.reg3:=len;
|
|
Sys_munmap:=syscall(syscall_nr_munmap,t);
|
|
end;
|
|
|
|
|
|
function Clone(func:TCloneFunc;sp:pointer;flags:longint;args:pointer):longint;
|
|
begin
|
|
if (pointer(func)=nil) or (sp=nil) then
|
|
exit(-1); // give an error result
|
|
{$ifdef i386}
|
|
asm
|
|
{ Insert the argument onto the new stack. }
|
|
movl sp,%ecx
|
|
subl $8,%ecx
|
|
movl args,%eax
|
|
movl %eax,4(%ecx)
|
|
|
|
{ Save the function pointer as the zeroth argument.
|
|
It will be popped off in the child in the ebx frobbing below. }
|
|
movl func,%eax
|
|
movl %eax,0(%ecx)
|
|
|
|
{ Do the system call }
|
|
pushl %ebx
|
|
movl flags,%ebx
|
|
movl SysCall_nr_clone,%eax
|
|
int $0x80
|
|
popl %ebx
|
|
test %eax,%eax
|
|
jnz .Lclone_end
|
|
|
|
{ We're in the new thread }
|
|
subl %ebp,%ebp { terminate the stack frame }
|
|
call *%ebx
|
|
{ exit process }
|
|
movl %eax,%ebx
|
|
movl $1,%eax
|
|
int $0x80
|
|
|
|
.Lclone_end:
|
|
movl %eax,__RESULT
|
|
end;
|
|
{$endif i386}
|
|
{$ifdef m68k}
|
|
{ No yet translated, my m68k assembler is too weak for such things PM }
|
|
(*
|
|
asm
|
|
{ Insert the argument onto the new stack. }
|
|
movl sp,%ecx
|
|
subl $8,%ecx
|
|
movl args,%eax
|
|
movl %eax,4(%ecx)
|
|
|
|
{ Save the function pointer as the zeroth argument.
|
|
It will be popped off in the child in the ebx frobbing below. }
|
|
movl func,%eax
|
|
movl %eax,0(%ecx)
|
|
|
|
{ Do the system call }
|
|
pushl %ebx
|
|
movl flags,%ebx
|
|
movl SysCall_nr_clone,%eax
|
|
int $0x80
|
|
popl %ebx
|
|
test %eax,%eax
|
|
jnz .Lclone_end
|
|
|
|
{ We're in the new thread }
|
|
subl %ebp,%ebp { terminate the stack frame }
|
|
call *%ebx
|
|
{ exit process }
|
|
movl %eax,%ebx
|
|
movl $1,%eax
|
|
int $0x80
|
|
|
|
.Lclone_end:
|
|
movl %eax,__RESULT
|
|
end;
|
|
*)
|
|
{$endif m68k}
|
|
end;
|
|
|
|
|
|
|
|
{
|
|
Interface to Unix ioctl call.
|
|
Performs various operations on the filedescriptor Handle.
|
|
Ndx describes the operation to perform.
|
|
Data points to data needed for the Ndx function. The structure of this
|
|
data is function-dependent.
|
|
}
|
|
Function Sys_IOCtl(Handle,Ndx: Longint;Data: Pointer):LongInt; // This was missing here, instead hardcode in Do_IsDevice
|
|
var
|
|
sr: SysCallRegs;
|
|
begin
|
|
sr.reg2:=Handle;
|
|
sr.reg3:=Ndx;
|
|
sr.reg4:=Longint(Data);
|
|
Sys_IOCtl:=SysCall(Syscall_nr_ioctl,sr);
|
|
end;
|
|
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.17 2002-12-18 16:43:26 marco
|
|
* new unix rtl, linux part.....
|
|
|
|
Revision 1.16 2002/11/11 21:40:26 marco
|
|
* rename syscall.inc -> syscallo.inc
|
|
|
|
Revision 1.15 2002/10/14 19:39:17 peter
|
|
* threads unit added for thread support
|
|
|
|
Revision 1.14 2002/09/10 21:32:14 jonas
|
|
+ added "nop" after sc instruction, since normally in case of success,
|
|
sc returns to the second instruction after itself
|
|
|
|
Revision 1.13 2002/09/07 16:01:19 peter
|
|
* old logs removed and tabs fixed
|
|
|
|
Revision 1.12 2002/09/07 13:14:04 florian
|
|
* hopefully final fix for ppc syscall BTW: The regX numbering is somehow messy
|
|
|
|
Revision 1.11 2002/09/03 21:37:54 florian
|
|
* hopefully final fix for ppc syscall
|
|
|
|
Revision 1.10 2002/09/02 20:42:22 florian
|
|
* another ppc syscall fix
|
|
|
|
Revision 1.9 2002/09/02 20:03:20 florian
|
|
* ppc syscall code fixed
|
|
|
|
Revision 1.8 2002/08/19 18:24:05 jonas
|
|
+ ppc support for do_syscall
|
|
|
|
Revision 1.7 2002/07/29 21:28:17 florian
|
|
* several fixes to get further with linux/ppc system unit compilation
|
|
|
|
Revision 1.6 2002/07/28 20:43:48 florian
|
|
* several fixes for linux/powerpc
|
|
* several fixes to MT
|
|
|
|
}
|