--- a/Block.st Fri Feb 27 18:05:02 2004 +0100
+++ b/Block.st Fri Feb 27 21:46:26 2004 +0100
@@ -1035,7 +1035,7 @@
ArgArray must be either an Array or nil.
The size of the argArray must match the number of arguments the receiver expects."
- |a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12|
+ |a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15|
(argArray notNil and:[(argArray class ~~ Array) and:[argArray isArray not]]) ifTrue:[
^ self badArgumentArray:argArray
@@ -1071,6 +1071,12 @@
switch ((INT)(nA)) {
default:
goto error;
+ case (INT)__MKSMALLINT(15):
+ RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10], ap[11], ap[12], ap[13], ap[14]) );
+ case (INT)__MKSMALLINT(14):
+ RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10], ap[11], ap[12], ap[13]) );
+ case (INT)__MKSMALLINT(13):
+ RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10], ap[11], ap[12]) );
case (INT)__MKSMALLINT(12):
RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10], ap[11]) );
case (INT)__MKSMALLINT(11):
@@ -1107,6 +1113,12 @@
switch ((INT)nA) {
default:
goto error;
+ case (INT)__MKSMALLINT(15):
+ a15 = ap[14];
+ case (INT)__MKSMALLINT(14):
+ a14 = ap[13];
+ case (INT)__MKSMALLINT(13):
+ a13 = ap[12];
case (INT)__MKSMALLINT(12):
a12 = ap[11];
case (INT)__MKSMALLINT(11):
@@ -1138,12 +1150,12 @@
#ifdef NEW_BLOCK_CALL
if (thecode != (OBJFUNC)nil) {
- RETURN ( (*thecode)(self, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12) );
+ RETURN ( (*thecode)(self, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15) );
}
# ifdef PASS_ARG_POINTER
RETURN ( __interpret(self, __intVal(nA), nil, nil, nil, nil, &a1) );
# else
- RETURN ( __interpret(self, __intVal(nA), nil, nil, nil, nil, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12) );
+ RETURN ( __interpret(self, __intVal(nA), nil, nil, nil, nil, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15) );
# endif
#else
@@ -1151,7 +1163,7 @@
# ifdef PASS_ARG_POINTER
RETURN ( __interpret(self, __intVal(nA), nil, home, nil, nil, &a1) );
# else
- RETURN ( __interpret(self, __intVal(nA), nil, home, nil, nil, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12) );
+ RETURN ( __interpret(self, __intVal(nA), nil, home, nil, nil, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15) );
# endif
#endif
@@ -1159,11 +1171,11 @@
error: ;
%}.
"
- the above code only supports up-to 12 arguments
+ the above code only supports up-to 15 arguments
"
^ ArgumentError
raiseRequestWith:self
- errorString:'only blocks with up-to 12 arguments supported'
+ errorString:'only blocks with up-to 15 arguments supported'
!
valueWithOptionalArgument:arg
@@ -2052,7 +2064,7 @@
!Block class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.136 2003-10-10 16:38:05 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.137 2004-02-27 20:46:26 cg Exp $'
! !
Block initialize!