Browse Source

* Last changes before next test. ppc386 -h works with these srcs.

marco 25 years ago
parent
commit
d6c9ca025c
1 changed files with 15 additions and 10 deletions
  1. 15 10
      rtl/bsd/syscalls.inc

+ 15 - 10
rtl/bsd/syscalls.inc

@@ -38,6 +38,8 @@ paste to and AS source). Ultimately I hope to design something like this}
                    ret
 }
 
+procedure actualsyscall; cdecl; EXTERNAL NAME '_actualsyscall';
+
 function Do_SysCall(sysnr:LONGINT):longint;
 
 var retval:longint;
@@ -45,7 +47,7 @@ var retval:longint;
 begin
  asm
   movl  sysnr,%eax
-  call  _actualsyscall
+  call  actualsyscall
   mov   %eax,Retval
  end;
  if RetVal<0 then
@@ -68,7 +70,7 @@ begin
  asm
   movl  sysnr,%eax
   pushl Param1
-  call  _actualsyscall
+  call  actualsyscall
   addl  $4,%esp
   mov   %eax,Retval
  end;
@@ -93,7 +95,7 @@ begin
  asm
   movl  sysnr,%eax
   pushw Param1
-  call  _actualsyscall
+  call  actualsyscall
   addl  $2,%esp
   mov   %eax,Retval
  end;
@@ -119,7 +121,7 @@ begin
    movl  sysnr,%eax
    pushl param2
    pushl Param1
-   call  _actualsyscall
+   call  actualsyscall
    addl  $8,%esp
    mov   %eax,Retval
  end;
@@ -144,7 +146,7 @@ begin
    pushl param3
    pushl param2
    pushl Param1
-   call  _actualsyscall
+   call  actualsyscall
    addl  $12,%esp
    mov   %eax,Retval
  end;
@@ -169,7 +171,7 @@ begin
    pushw param3
    pushl param2
    pushl Param1
-   call  _actualsyscall
+   call  actualsyscall
    addl  $12,%esp
    mov   %eax,Retval
  end;
@@ -197,7 +199,7 @@ begin
    pushl param3
    pushl param2
    pushl Param1
-   call  _actualsyscall
+   call  actualsyscall
    addl  $16,%esp
    mov   %eax,Retval
  end;
@@ -226,7 +228,7 @@ begin
    pushl param3
    pushl param2
    pushl Param1
-   call  _actualsyscall
+   call  actualsyscall
    addl  $20,%esp
    mov   %eax,Retval
  end;
@@ -256,7 +258,7 @@ begin
    pushl param3
    pushl param2
    pushl Param1
-   call  _actualsyscall
+   call  actualsyscall
    addl  $28,%esp
    mov   %eax,Retval
  end;
@@ -507,7 +509,10 @@ end;
 
 {
   $Log$
-  Revision 1.9  2000-03-02 15:34:07  marco
+  Revision 1.10  2000-03-16 16:18:12  marco
+   * Last changes before next test. ppc386 -h works with these srcs.
+
+  Revision 1.9  2000/03/02 15:34:07  marco
    * added a syscall for 5 longints
 
   Revision 1.8  2000/03/01 20:03:57  marco