mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 17:39:25 +02:00
* Singled out the off_t calls, because on *BSD they will often be OS/Arch specific.
This commit is contained in:
parent
ca1f21b99f
commit
654ba30d20
100
rtl/netbsd/sysofft.inc
Normal file
100
rtl/netbsd/sysofft.inc
Normal file
@ -0,0 +1,100 @@
|
||||
|
||||
|
||||
function Fplseek(fd : cint; offset : off_t; whence : cint): off_t; assembler; [public, alias : 'FPC_SYSC_LSEEK'];
|
||||
|
||||
asm
|
||||
stwu r1,-16(r1)
|
||||
mflr r0
|
||||
stw r0,20(r1)
|
||||
mr r11,r5
|
||||
mr r12,r4
|
||||
mr r5,r3
|
||||
mr r9,r6
|
||||
li r3,0
|
||||
mr r7,r11
|
||||
mr r8,r12
|
||||
li r6,0
|
||||
li r4,199
|
||||
crclr 4*cr1+eq
|
||||
li r0,198
|
||||
sc
|
||||
bso cerrorlseek
|
||||
lwz r0,20(r1)
|
||||
mtlr r0
|
||||
addi r1,r1,16
|
||||
blr
|
||||
cerrorlseek:
|
||||
lis r4,Errno@ha
|
||||
stw r3,Errno@l(r4)
|
||||
li r3,-1
|
||||
li r4,-1
|
||||
lwz r0,20(r1)
|
||||
mtlr r0
|
||||
addi r1,r1,16
|
||||
end;
|
||||
|
||||
function Fpftruncate(fd : cint; flength : off_t): cint; assembler; [public, alias : 'FPC_SYSC_FTRUNCATE'];
|
||||
|
||||
asm
|
||||
stwu r1,-16(r1)
|
||||
mflr r0
|
||||
stw r0,20(r1)
|
||||
mr r7,r5
|
||||
mr r8,r6
|
||||
mr r5,r3
|
||||
li r3,0
|
||||
li r4,201
|
||||
li r6,0
|
||||
crclr 4*cr1+eq
|
||||
li r0,198
|
||||
sc
|
||||
bso cerrortrunc
|
||||
mr r4,r3
|
||||
lwz r0,20(r1)
|
||||
mtlr r0
|
||||
addi r1,r1,16
|
||||
blr
|
||||
cerrortrunc:
|
||||
lis r4,Errno@ha
|
||||
stw r3,Errno@l(r4)
|
||||
li r3,-1
|
||||
lwz r0,20(r1)
|
||||
mtlr r0
|
||||
addi r1,r1,16
|
||||
end;
|
||||
|
||||
|
||||
Function Fpmmap(adr,len,prot,flags,fdes,off:longint):longint; assembler; [public, alias : 'FPC_SYSC_MMAP'];
|
||||
|
||||
asm
|
||||
stwu r1,-16(r1)
|
||||
mflr r0
|
||||
stw r0,20(r1)
|
||||
mr r0,r5
|
||||
mr r8,r6
|
||||
stw r9,8(r1)
|
||||
stw r10,12(r1)
|
||||
mr r5,r3
|
||||
mr r6,r4
|
||||
mr r9,r7
|
||||
li r3,0
|
||||
mr r7,r0
|
||||
li r4,197
|
||||
li r10,0
|
||||
crclr 4*cr1+eq
|
||||
li r0,198
|
||||
sc
|
||||
bso cerrormmap
|
||||
mr r4,r3
|
||||
lwz r0,20(r1)
|
||||
mtlr r0
|
||||
addi r1,r1,16
|
||||
blr
|
||||
cerrormmap:
|
||||
lis r4,Errno@ha
|
||||
stw r3,Errno@l(r4)
|
||||
li r3,-1
|
||||
lwz r0,20(r1)
|
||||
mtlr r0
|
||||
addi r1,r1,16
|
||||
end;
|
Loading…
Reference in New Issue
Block a user