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

* Working!

Browse Source
This commit is contained in:
marco 2000-04-14 17:04:13 +00:00
parent 1aa53af40f
commit 5dee9ce5c7
1 changed files with 415 additions and 500 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

233
rtl/bsd/syscalls.inc
View File

@ -38,109 +38,64 @@ paste to and AS source). Ultimately I hope to design something like this}
ret ret
} }
{
procedure actualsyscall; cdecl; EXTERNAL NAME '_actualsyscall'; procedure actualsyscall; cdecl; EXTERNAL NAME '_actualsyscall';
}
function Do_SysCall(sysnr:LONGINT):longint; procedure _actualsyscall; assembler;
var retval:longint;
begin
asm asm
int $0x80
jb .LErrorcode
xor %ebx,%ebx
ret
.LErrorcode:
mov %eax,%ebx
mov $-1,%eax
end['EAX','EBX','ECX','EDX','ESI','EDI'];
function Do_SysCall(sysnr:LONGINT):longint; assembler;
asm
movl sysnr,%eax movl sysnr,%eax
call actualsyscall call actualsyscall
mov %eax,Retval movw %bx,Errno
end;
if RetVal<0 then
begin
ErrNo:=-RetVal;
do_syscall:=-1;
end
else
begin
do_syscall:=Retval;
errno:=0
end;
end; end;
function Do_SysCall(sysnr,param1:LONGINT):longint; function Do_SysCall(sysnr,param1:LONGINT):longint; assembler;
var retval:longint; asm
movl sysnr,%eax
pushl Param1
call actualsyscall
addl $4,%esp
movw %bx,Errno
end;
function Do_SysCall(sysnr:longint;param1:longint):longint; assembler;
begin
asm asm
movl sysnr,%eax movl sysnr,%eax
pushl Param1 pushl Param1
call actualsyscall call actualsyscall
addl $4,%esp addl $4,%esp
mov %eax,Retval movw %bx,Errno
end; end;
if RetVal<0 then
begin
ErrNo:=-RetVal;
do_syscall:=-1;
end
else
begin
do_syscall:=Retval;
errno:=0
end;
end;
function Do_SysCall(sysnr:longint;param1:integer):longint; function Do_SysCall(sysnr,param1,param2:LONGINT):longint; assembler;
var retval:longint;
begin
asm
movl sysnr,%eax
pushw Param1
call actualsyscall
addl $2,%esp
mov %eax,Retval
end;
if RetVal<0 then
begin
ErrNo:=-RetVal;
do_syscall:=-1;
end
else
begin
do_syscall:=Retval;
errno:=0
end;
end;
function Do_SysCall(sysnr,param1,param2:LONGINT):longint;
var retval:longint;
begin
asm asm
movl sysnr,%eax movl sysnr,%eax
pushl param2 pushl param2
pushl Param1 pushl Param1
call actualsyscall call actualsyscall
addl $8,%esp addl $8,%esp
mov %eax,Retval movw %bx,Errno
end;
if RetVal<0 then
begin
ErrNo:=-RetVal;
do_syscall:=-1;
end
else
begin
do_syscall:=Retval;
errno:=0
end;
end; end;
function Do_SysCall(sysnr,param1,param2,param3:LONGINT):longint; function Do_SysCall(sysnr,param1,param2,param3:LONGINT):longint; assembler;
var retval:longint;
begin
asm asm
movl sysnr,%eax movl sysnr,%eax
pushl param3 pushl param3
@ -148,52 +103,25 @@ begin
pushl Param1 pushl Param1
call actualsyscall call actualsyscall
addl $12,%esp addl $12,%esp
mov %eax,Retval movw %bx,Errno
end; end;
if RetVal<0 then
begin
ErrNo:=-RetVal;
do_syscall:=-1;
end
else
begin
do_syscall:=Retval;
errno:=0
end;
end;
function Do_SysCall(sysnr,param1,param2:longint;param3:word):longint; function Do_SysCall(sysnr,param1,param2:longint;param3:integer):longint; assembler;
var retval:longint;
begin
asm asm
movl sysnr,%eax movl sysnr,%eax
pushw param3 pushw param3
pushl param2 pushl param2
pushl Param1 pushl Param1
call actualsyscall call actualsyscall
addl $12,%esp addl $10,%esp
mov %eax,Retval movw %bx,Errno
end;
if RetVal<0 then
begin
ErrNo:=-RetVal;
do_syscall:=-1;
end
else
begin
do_syscall:=Retval;
errno:=0
end;
end; end;
function Do_SysCall(sysnr,param1,param2,param3,param4:LONGINT):longint; function Do_SysCall(sysnr,param1,param2,param3,param4:LONGINT):longint; assembler;
var retval:longint; asm
begin
asm
movl sysnr,%eax movl sysnr,%eax
pushl param4 pushl param4
pushl param3 pushl param3
@ -201,26 +129,12 @@ begin
pushl Param1 pushl Param1
call actualsyscall call actualsyscall
addl $16,%esp addl $16,%esp
mov %eax,Retval movw %bx,Errno
end; end;
if RetVal<0 then
begin
ErrNo:=-RetVal;
do_syscall:=-1;
end
else
begin
do_syscall:=Retval;
errno:=0
end;
end;
function Do_SysCall(sysnr,param1,param2,param3,param4,param5:LONGINT):longint; function Do_SysCall(sysnr,param1,param2,param3,param4,param5:LONGINT):longint; assembler;
var retval:longint;
begin
asm asm
movl sysnr,%eax movl sysnr,%eax
pushl param5 pushl param5
@ -230,26 +144,12 @@ begin
pushl Param1 pushl Param1
call actualsyscall call actualsyscall
addl $20,%esp addl $20,%esp
mov %eax,Retval movw %bx,Errno
end;
if RetVal<0 then
begin
ErrNo:=-RetVal;
do_syscall:=-1;
end
else
begin
do_syscall:=Retval;
errno:=0
end;
end; end;
function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6,param7:LONGINT):longint; function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6,param7:LONGINT):longint; assembler;
var retval:longint; asm
begin
asm
movl sysnr,%eax movl sysnr,%eax
pushl param7 pushl param7
pushl param6 pushl param6
@ -260,19 +160,8 @@ begin
pushl Param1 pushl Param1
call actualsyscall call actualsyscall
addl $28,%esp addl $28,%esp
mov %eax,Retval movw %bx,Errno
end; end;
if RetVal<0 then
begin
ErrNo:=-RetVal;
do_syscall:=-1;
end
else
begin
do_syscall:=Retval;
errno:=0
end;
end;
Function Sys_Time:longint; Function Sys_Time:longint;
@ -305,15 +194,37 @@ begin
sys_close:=do_syscall(syscall_nr_close,f); sys_close:=do_syscall(syscall_nr_close,f);
end; end;
{
Function Sys_Lseek(F:longint;Off:longint;Whence:longint):longint; Function Sys_Lseek(F:longint;Off:longint;Whence:longint):longint;
var returnvalue64 : array[0..1] of longint; var returnvalue64 : array[0..1] of longint;
begin {Lseek's offset is 64-bit, the highword is the 0} begin
do_syscall(syscall_nr_lseek,@returnvalue64,F,Off,0,Whence); {Lseek's offset is 64-bit, the highword is the 0}
do_syscall(syscall_nr_lseek,longint(@returnvalue64),F,Off,0,Whence);
sys_lseek:=returnvalue64[0]; sys_lseek:=returnvalue64[0];
end; end;
}
Function Sys_Lseek(F:longint;Off:longint;Whence:longint):longint; assembler;
{this one is special for the return value being 64-bit..}
asm
pushl Whence
pushl $0 // high dword
pushl Off
pushl $0
pushl F
pushl $0 // Your guess is as good as mine.
pushl $0xc7 // Actual lseek syscall number.
movl $0xc6,%eax
call actualsyscall
addl $28,%esp
mov %ebx,Errno
end;
Function Sys_Read(f:longint;buffer:pchar;count:longint):longint; Function Sys_Read(f:longint;buffer:pchar;count:longint):longint;
begin begin
@ -472,7 +383,10 @@ end;
{ {
$Log$ $Log$
Revision 1.13 2000-04-10 15:46:52 marco Revision 1.14 2000-04-14 17:04:13 marco
* Working!
Revision 1.13 2000/04/10 15:46:52 marco
* worked all day. probably a lot changed * worked all day. probably a lot changed
Revision 1.11 2000/04/05 13:58:40 marco Revision 1.11 2000/04/05 13:58:40 marco
@ -511,3 +425,4 @@ end;
* Initial BSD version. Still needs a lot of work. * Initial BSD version. Still needs a lot of work.
} }