[openfirmware] r1043 - cpu/x86

svn at openfirmware.info svn at openfirmware.info
Wed Dec 24 01:15:58 CET 2008


Author: wmb
Date: 2008-12-24 01:15:58 +0100 (Wed, 24 Dec 2008)
New Revision: 1043

Modified:
   cpu/x86/call.fth
Log:
x86/call.fth - Increased the number of arguments passed to a
C routine, in case we need to change the API for crypto calls.



Modified: cpu/x86/call.fth
===================================================================
--- cpu/x86/call.fth	2008-12-24 00:14:56 UTC (rev 1042)
+++ cpu/x86/call.fth	2008-12-24 00:15:58 UTC (rev 1043)
@@ -1,7 +1,7 @@
 \ See license at end of file
 purpose: From Forth, call the C subroutine whose address is on the stack
 
-code sp-call  ( [ arg7 .. arg0 ] adr sp -- [ arg5 .. arg0 ] result )
+code sp-call  ( [ arg19 .. arg0 ] adr sp -- [ arg19 .. arg0 ] result )
    bx  pop			\ Get the new stack pointer
    ax  pop			\ Get the subroutine address
 
@@ -9,7 +9,21 @@
    rp  'user saved-rp  mov	\ Save for callbacks
 
    sp  bx  xchg			\ Switch to new SP, with EBX set to old SP
-   7 /n* [ebx]  push		\ Copy the arguments to the new stack
+
+   \ Copy the arguments to the new stack
+   d# 19 /n* [ebx]  push
+   d# 18 /n* [ebx]  push
+   d# 17 /n* [ebx]  push
+   d# 16 /n* [ebx]  push
+   d# 15 /n* [ebx]  push
+   d# 14 /n* [ebx]  push
+   d# 13 /n* [ebx]  push
+   d# 12 /n* [ebx]  push
+   d# 11 /n* [ebx]  push
+   d# 10 /n* [ebx]  push
+   9 /n* [ebx]  push
+   8 /n* [ebx]  push
+   7 /n* [ebx]  push
    6 /n* [ebx]  push
    5 /n* [ebx]  push
    4 /n* [ebx]  push




More information about the openfirmware mailing list