paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 10:49:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* additions

Browse Source
This commit is contained in:
marco 2004-01-04 15:55:47 +00:00
parent a4c55617d4
commit 3dc9241d0d
3 changed files with 29 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/netbsd/signal.inc
View File

@ -126,12 +126,15 @@ type sigset_t = array[0..3] of cardinal;
SignalRestorer = Procedure;cdecl;
PSignalRestorer = ^SignalRestorer;
{$ifdef powerpc}
TSigaction= procedure(Sig: Longint); cdecl;
{$else}
{$define BSDHandler}
{$ifdef BSDHandler}
TSigAction = procedure(Sig: Longint; code:longint;var SigContext: SigContextRec);cdecl;
{$else}
TSigAction = procedure(Sig: Longint; var sininfo:tsiginfo_t;var SigContext: SigContextRec);cdecl;
{$endif}
{$endif}
Sigset=sigset_t;
@ -161,7 +164,10 @@ type sigset_t = array[0..3] of cardinal;
{
$Log$
Revision 1.3 2004-01-04 01:11:28 marco
Revision 1.4 2004-01-04 15:55:47 marco
* additions
Revision 1.3 2004/01/04 01:11:28 marco
* a new qod port of the freebsd rtl. To be refined in the coming days.
Revision 1.2 2003/01/21 15:39:45 marco

25
rtl/netbsd/sysofft.inc
View File

@ -15,10 +15,11 @@ asm
mr r8,r12
li r6,0
li r4,199
crclr 4*cr1+eq
// crclr cr1*4+eq
crxor 6,6,6
li r0,198
sc
bso cerrorlseek
bso .Lcerrorlseek
// mr r0,r3
// mr r3,r4
// mr r4,r0
@ -26,7 +27,7 @@ asm
mtlr r0
addi r1,r1,16
blr
cerrorlseek:
.Lcerrorlseek:
lis r4,Errno@ha
stw r3,Errno@l(r4)
li r3,-1
@ -48,16 +49,18 @@ mr r5,r3
li r3,0
li r4,201
li r6,0
crclr 4*cr1+eq
//crclr cr1*4+eq
crxor 6,6,6
li r0,198
sc
bso cerrortrunc
bso .Lcerrortrunc
mr r4,r3
lwz r0,20(r1)
mtlr r0
addi r1,r1,16
blr
cerrortrunc:
.Lcerrortrunc:
lis r4,Errno@ha
stw r3,Errno@l(r4)
li r3,-1
@ -66,8 +69,9 @@ cerrortrunc:
addi r1,r1,16
end;
Function Fpmmap(start:pointer;len:size_t;prot:cint;flags:cint;fd:cint;offst:off_t):pointer; assembler; [public, alias: 'FPC_SYSC_MMAP'];
Function Fpmmap(adr,len,prot,flags,fdes,off:longint):longint; assembler; [public, alias : 'FPC_SYSC_MMAP'];
//Function Fpmmap(adr,len,prot,flags,fdes,off:longint):longint; assembler; [public, alias : 'FPC_SYSC_MMAP'];
asm
stwu r1,-16(r1)
@ -84,16 +88,17 @@ asm
mr r7,r0
li r4,197
li r10,0
crclr 4*cr1+eq
// crclr cr1*4+eq
crxor 6,6,6
li r0,198
sc
bso cerrormmap
bso .Lcerrormmap
mr r4,r3
lwz r0,20(r1)
mtlr r0
addi r1,r1,16
blr
cerrormmap:
.Lcerrormmap:
lis r4,Errno@ha
stw r3,Errno@l(r4)
li r3,-1

7
rtl/netbsd/unixsysc.inc
View File

@ -106,6 +106,7 @@ Function intAssignPipe(var pipe_in,pipe_out:longint;var errn:cint):cint; {$ifnde
}
begin
{$ifdef i386}
asm
mov $42,%eax
int $0x80
@ -124,6 +125,7 @@ begin
mov Errn,%edx
mov %ebx,(%edx)
end;
{$endif}
end;
@ -275,7 +277,10 @@ end;
{
$Log$
Revision 1.5 2004-01-04 01:11:28 marco
Revision 1.6 2004-01-04 15:55:47 marco
* additions
Revision 1.5 2004/01/04 01:11:28 marco
* a new qod port of the freebsd rtl. To be refined in the coming days.
Revision 1.18 2004/01/01 17:07:21 marco