@@ -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
+end;
+function Fpftruncate(fd : cint; flength : off_t): cint; assembler; [public, alias : 'FPC_SYSC_FTRUNCATE'];
+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:
+Function Fpmmap(adr,len,prot,flags,fdes,off:longint):longint; assembler; [public, alias : 'FPC_SYSC_MMAP'];
+ mr r0,r5
+ mr r8,r6
+ stw r9,8(r1)
+ stw r10,12(r1)
+ mr r6,r4
+ mr r9,r7
+ mr r7,r0
+ li r4,197
+ li r10,0
+ bso cerrormmap
+ mr r4,r3
+cerrormmap: