[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