paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 11:10:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Getting NetBSD/i386 to compile.

Browse Source
This commit is contained in:
marco 2003-05-30 19:58:40 +00:00
parent 031693de28
commit e3c50b2399
4 changed files with 31 additions and 135 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/bsd/i386/syscallh.inc
View File

@ -36,7 +36,7 @@ Type
function Do_SysCall(sysnr:TSysParam):TSysResult; external name 'FPC_DOSYS0';
function Do_SysCall(sysnr,param1:TSysParam):TSysResult; external name 'FPC_DOSYS1';
function Do_SysCall(sysnr,param1:integer):TSysResult; external name 'FPC_DOSYS1w';
//function Do_SysCall(sysnr,param1:integer):TSysResult; external name 'FPC_DOSYS1w';
function Do_SysCall(sysnr,param1,param2:TSysParam):TSysResult; external name 'FPC_DOSYS2';
function Do_SysCall(sysnr,param1,param2,param3:TSysParam):TSysResult; external name 'FPC_DOSYS3';
function Do_SysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult; external name 'FPC_DOSYS4';
@ -46,7 +46,10 @@ function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6,param7:TSysP
{
$Log$
Revision 1.5 2003-01-05 19:01:28 marco
Revision 1.6 2003-05-30 19:58:40 marco
* Getting NetBSD/i386 to compile.
Revision 1.5 2003/01/05 19:01:28 marco
* FreeBSD compiles now with baseunix mods.
Revision 1.4 2002/10/16 18:44:00 marco

141
rtl/netbsd/syscalls.inc
View File

@ -30,131 +30,15 @@
For now I do them in assembler, which makes it easier to test them (copy and
paste to and AS source). Ultimately I hope to design something like this}
procedure actualsyscall; assembler; {inline requires a dummy push IIRC}
asm
int $0x80
jb .LErrorcode
xor %ebx,%ebx
ret
.LErrorcode:
mov %eax,%ebx
mov $-1,%eax
end;
function Do_SysCall(sysnr:LONGINT):longint; assembler;
asm
movl sysnr,%eax
call actualsyscall
movw %bx,Errno
end;
function Do_SysCall(sysnr,param1:longint):longint; assembler;
asm
movl sysnr,%eax
pushl Param1
call actualsyscall
addl $4,%esp
movw %bx,Errno
end;
{
function Do_SysCall(sysnr,param1:integer):longint; assembler;
asm
movl sysnr,%eax
pushw Param1
call actualsyscall
add $2,%esp
movw %bx,Errno
end;
}
function Do_SysCall(sysnr,param1,param2:LONGINT):longint; assembler;
asm
movl sysnr,%eax
pushl param2
pushl Param1
call actualsyscall
addl $8,%esp
movw %bx,Errno
end;
function Do_SysCall(sysnr,param1,param2,param3:LONGINT):longint; assembler;
asm
movl sysnr,%eax
pushl param3
pushl param2
pushl Param1
call actualsyscall
addl $12,%esp
movw %bx,Errno
end;
function Do_SysCall(sysnr,param1,param2,param3,param4:LONGINT):longint; assembler;
asm
movl sysnr,%eax
pushl param4
pushl param3
pushl param2
pushl Param1
call actualsyscall
addl $16,%esp
movw %bx,Errno
end;
type size_t=longint;
off_t=int64;
cint=longint;
function Do_SysCall(sysnr,param1,param2,param3,param4,param5:LONGINT):longint; assembler;
asm
movl sysnr,%eax
pushl param5
pushl param4
pushl param3
pushl param2
pushl Param1
call actualsyscall
addl $20,%esp
movw %bx,Errno
end;
function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6:LONGINT):longint; assembler;
asm
movl sysnr,%eax
pushl param6
pushl param5
pushl param4
pushl param3
pushl param2
pushl Param1
call actualsyscall
addl $24,%esp
movw %bx,Errno
end;
function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6,param7:LONGINT):longint; assembler;
asm
movl sysnr,%eax
pushl param7
pushl param6
pushl param5
pushl param4
pushl param3
pushl param2
pushl Param1
call actualsyscall
addl $28,%esp
movw %bx,Errno
end;
{$i syscallh.inc}
{$i ossysch.inc}
function Fplseek(fd : cint; offset : off_t; whence : cint): off_t; cdecl; external name 'FPC_SYSC_LSEEK';
Function Sys_Time:longint;
@ -192,14 +76,17 @@ Function Sys_Lseek(F:longint;Off:longint;Whence:longint):longint;
var returnvalue64 : int64;
begin
{Lseek's offset is 64-bit, the highword is the 0}
// do_syscall(syscall_nr_lseek,longint(@returnvalue64),F,Off,0,Whence);
{$ifdef i386}
do_syscall(syscall_nr___syscall,syscall_nr_lseek,0,f,0,off,0,whence);
asm
lea returnvalue64,%ebx
movl %eax,(%ebx)
movl %edx,4(%ebx)
end;
sys_lseek:=longint(returnvalue64);
sys_lseek:=longint(returnvalue64);
{$else} // powerpc
sys_lseek:=fplseek(f,off,whence);
{$endif}
end;
{$endif m68k}
@ -461,14 +348,14 @@ end;
Function Sys_mmap(adr,len,prot,flags,fdes,off:longint):longint; // moved from sysunix.inc, used in sbrk
begin
Sys_mmap:=do_syscall(syscall_nr_mmap,Adr,Len,Prot,Flags,fdes,off,0);
Sys_mmap:=fpmmap(Adr,Len,Prot,Flags,fdes,off);
end;
{
$Log$
Revision 1.4 2003-05-30 19:37:14 marco
* small changes
Revision 1.5 2003-05-30 19:58:40 marco
* Getting NetBSD/i386 to compile.
Revision 1.3 2003/01/21 15:39:45 marco
* NetBSD first rtl. Still not 100%, but close

9
rtl/unix/linux.pp
View File

@ -167,8 +167,8 @@ function Do_SysCall(sysnr,param1,param2:LONGINT):longint;
function Do_SysCall(sysnr,param1,param2,param3:LONGINT):longint;
function Do_SysCall(sysnr,param1,param2,param3,param4:LONGINT):longint;
function Do_SysCall(sysnr,param1,param2,param3,param4,param5:LONGINT):longint;
function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6:LONGINT):longint;
function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6,param7:LONGINT):longint;
function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6:LONGINT):int64;
function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6,param7:LONGINT):int64;
{$else}
Function SysCall(callnr:longint;var regs:SysCallregs):longint;
{$endif}
@ -3032,7 +3032,10 @@ End.
{
$Log$
Revision 1.29 2003-05-30 19:37:14 marco
Revision 1.30 2003-05-30 19:58:40 marco
* Getting NetBSD/i386 to compile.
Revision 1.29 2003/05/30 19:37:14 marco
* small changes
Revision 1.28 2003/03/11 08:26:50 michael

9
rtl/unix/unix.pp
View File

@ -166,8 +166,8 @@ function Do_SysCall(sysnr,param1,param2:LONGINT):longint;
function Do_SysCall(sysnr,param1,param2,param3:LONGINT):longint;
function Do_SysCall(sysnr,param1,param2,param3,param4:LONGINT):longint;
function Do_SysCall(sysnr,param1,param2,param3,param4,param5:LONGINT):longint;
function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6:LONGINT):longint;
function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6,param7:LONGINT):longint;
function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6:LONGINT):int64;
function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6,param7:LONGINT):int64;
{$else}
Function SysCall(callnr:longint;var regs:SysCallregs):longint;
{$endif}
@ -3059,7 +3059,10 @@ End.
{
$Log$
Revision 1.28 2003-05-29 19:16:16 marco
Revision 1.29 2003-05-30 19:58:40 marco
* Getting NetBSD/i386 to compile.
Revision 1.28 2003/05/29 19:16:16 marco
* fixed a small *BSD gotcha
Revision 1.27 2003/05/24 20:39:54 jonas