瀏覽代碼

* syscall stuff fixed

florian 22 年之前
父節點
當前提交
aa81ac3921
共有 1 個文件被更改,包括 21 次插入18 次删除
  1. 21 18
      rtl/linux/powerpc/syscall.inc

+ 21 - 18
rtl/linux/powerpc/syscall.inc

@@ -23,7 +23,7 @@
                      --- Main:The System Call Self ---
                      --- Main:The System Call Self ---
 *****************************************************************************}
 *****************************************************************************}
 
 
-function Do_SysCall(sysnr:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL1'];
+function FpSysCall(sysnr:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL1'];
 {
 {
   This function puts the registers in place, does the call, and then
   This function puts the registers in place, does the call, and then
   copies back the registers as they are after the SysCall.
   copies back the registers as they are after the SysCall.
@@ -38,14 +38,14 @@ asm
   li    r3,-1
   li    r3,-1
 end;
 end;
 
 
-function Do_SysCall(sysnr,param1:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL1'];
+function FpSysCall(sysnr,param1:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL1'];
 {
 {
   This function puts the registers in place, does the call, and then
   This function puts the registers in place, does the call, and then
   copies back the registers as they are after the SysCall.
   copies back the registers as they are after the SysCall.
 }
 }
 asm
 asm
   mr  r0,r3
   mr  r0,r3
-  mr  r3,r4   
+  mr  r3,r4
   sc
   sc
   bnslr
   bnslr
   neg   r3, r3
   neg   r3, r3
@@ -55,14 +55,14 @@ asm
 end;
 end;
 
 
 
 
-function Do_SysCall(sysnr,param1,param2:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL2'];
+function FpSysCall(sysnr,param1,param2:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL2'];
 {
 {
   This function puts the registers in place, does the call, and then
   This function puts the registers in place, does the call, and then
   copies back the registers as they are after the SysCall.
   copies back the registers as they are after the SysCall.
 }
 }
 asm
 asm
   mr  r0,r3
   mr  r0,r3
-  mr  r3,r4   
+  mr  r3,r4
   mr  r4,r5
   mr  r4,r5
   sc
   sc
    bnslr
    bnslr
@@ -72,17 +72,17 @@ asm
    li    r3,-1
    li    r3,-1
 end;
 end;
 
 
-function Do_SysCall(sysnr,param1,param2,param3:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL3'];
+function FpSysCall(sysnr,param1,param2,param3:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL3'];
 {
 {
   This function puts the registers in place, does the call, and then
   This function puts the registers in place, does the call, and then
   copies back the registers as they are after the SysCall.
   copies back the registers as they are after the SysCall.
 }
 }
 asm
 asm
   mr  r0,r3
   mr  r0,r3
-  mr  r3,r4   
+  mr  r3,r4
   mr  r4,r5
   mr  r4,r5
   mr  r5,r6
   mr  r5,r6
-  sc 
+  sc
    bnslr
    bnslr
    neg   r3, r3
    neg   r3, r3
    lis   r4,Errno@ha
    lis   r4,Errno@ha
@@ -92,18 +92,18 @@ asm
 end;
 end;
 
 
 
 
-function Do_SysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL4'];
+function FpSysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL4'];
 {
 {
   This function puts the registers in place, does the call, and then
   This function puts the registers in place, does the call, and then
   copies back the registers as they are after the SysCall.
   copies back the registers as they are after the SysCall.
 }
 }
 asm
 asm
   mr  r0,r3
   mr  r0,r3
-  mr  r3,r4   
+  mr  r3,r4
   mr  r4,r5
   mr  r4,r5
   mr  r5,r6
   mr  r5,r6
   mr  r6,r7
   mr  r6,r7
-  sc 
+  sc
    bnslr
    bnslr
    neg   r3, r3
    neg   r3, r3
    lis   r4,Errno@ha
    lis   r4,Errno@ha
@@ -111,19 +111,19 @@ asm
    li    r3,-1
    li    r3,-1
 end;
 end;
 
 
-function Do_SysCall(sysnr,param1,param2,param3,param4,param5:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL5'];
+function FpSysCall(sysnr,param1,param2,param3,param4,param5:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL5'];
 {
 {
   This function puts the registers in place, does the call, and then
   This function puts the registers in place, does the call, and then
   copies back the registers as they are after the SysCall.
   copies back the registers as they are after the SysCall.
 }
 }
 asm
 asm
   mr  r0,r3
   mr  r0,r3
-  mr  r3,r4   
+  mr  r3,r4
   mr  r4,r5
   mr  r4,r5
   mr  r5,r6
   mr  r5,r6
   mr  r6,r7
   mr  r6,r7
   mr  r7,r8
   mr  r7,r8
-  sc 
+  sc
    bnslr
    bnslr
    neg   r3, r3
    neg   r3, r3
    lis   r4,Errno@ha
    lis   r4,Errno@ha
@@ -134,7 +134,7 @@ end;
 // Old style syscall:
 // Old style syscall:
 // Better use ktrace/strace/gdb for debugging.
 // Better use ktrace/strace/gdb for debugging.
 
 
-Procedure Do_SysCall( callnr:longint;var regs : SysCallregs );assembler;
+Procedure FpSysCall( callnr:longint;var regs : SysCallregs );assembler;
 {
 {
   This function puts the registers in place, does the call, and then
   This function puts the registers in place, does the call, and then
   copies back the registers as they are after the SysCall.
   copies back the registers as they are after the SysCall.
@@ -178,7 +178,7 @@ Function SysCall( callnr:longint;var regs : SysCallregs ):longint;
   SysCall result in errno. Otherwise, it returns the SysCall return value
   SysCall result in errno. Otherwise, it returns the SysCall return value
 }
 }
 begin
 begin
-  do_SysCall(callnr,regs);
+  FpSysCall(callnr,regs);
   if regs.reg1<0 then
   if regs.reg1<0 then
    begin
    begin
 {$IFDEF SYSCALL_DEBUG}
 {$IFDEF SYSCALL_DEBUG}
@@ -216,7 +216,10 @@ end;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2002-12-22 16:00:28  jonas
+  Revision 1.3  2003-01-09 13:38:26  florian
+    * syscall stuff fixed
+
+  Revision 1.2  2002/12/22 16:00:28  jonas
     + added syscallh.inc, adapted syscall.inc
     + added syscallh.inc, adapted syscall.inc
 
 
   Revision 1.1  2002/11/09 20:32:14  marco
   Revision 1.1  2002/11/09 20:32:14  marco
@@ -226,4 +229,4 @@ end;
     * syscall moved into seperate include
     * syscall moved into seperate include
 
 
 }
 }
- 
+