Mercurial Mercurial > hg > stx-libbasic / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Block.st
changeset 7149 6fe44e7713f0
parent 7092 630807cd320f
child 7151 a112bb7a6748 
--- a/Block.st	Mon Mar 31 18:32:39 2003 +0200
+++ b/Block.st	Mon Mar 31 19:52:01 2003 +0200
@@ -638,33 +638,33 @@
 
     if (__INST(nargs) == __MKSMALLINT(0)) {
 #if defined(THIS_CONTEXT)
-	if (__ISVALID_ILC_LNO(__pilc))
-	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+        if (__ISVALID_ILC_LNO(__pilc))
+            __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
 #endif
 
-	thecode = __BlockInstPtr(self)->b_code;
+        thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
-	if (thecode != (OBJFUNC)nil) {
-	    /* compiled machine code */
-	    RETURN ( (*thecode)(self) );
-	}
-	/* interpreted code */
+        if (thecode != (OBJFUNC)nil) {
+            /* compiled machine code */
+            RETURN ( (*thecode)(self) );
+        }
+        /* interpreted code */
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 0, nil, nil, nil, nil) );
+        RETURN ( __interpret(self, 0, nil, nil, nil, nil) );
 # else
-	RETURN ( __interpret(self, 0, nil, nil, nil, nil) );
+        RETURN ( __interpret(self, 0, nil, nil, nil, nil) );
 # endif
 #else
-	home = __BlockInstPtr(self)->b_home;
-	if (thecode != (OBJFUNC)nil) {
-	    /* compiled machine code */
-	    RETURN ( (*thecode)(home) );
-	}
-	/* interpreted code */
+        home = __BlockInstPtr(self)->b_home;
+        if (thecode != (OBJFUNC)nil) {
+            /* compiled machine code */
+            RETURN ( (*thecode)(home) );
+        }
+        /* interpreted code */
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 0, nil, home, nil, nil) );
+        RETURN ( __interpret(self, 0, nil, home, nil, nil) );
 # else
-	RETURN ( __interpret(self, 0, nil, home, nil, nil) );
+        RETURN ( __interpret(self, 0, nil, home, nil, nil) );
 # endif
 #endif
     }
@@ -683,30 +683,30 @@
 
     if (__INST(nargs) == __MKSMALLINT(1)) {
 #if defined(THIS_CONTEXT)
-	if (__ISVALID_ILC_LNO(__pilc))
-	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+        if (__ISVALID_ILC_LNO(__pilc))
+            __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
 #endif
-	thecode = __BlockInstPtr(self)->b_code;
+        thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
-	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(self, arg) );
-	}
-	/* interpreted code */
+        if (thecode != (OBJFUNC)nil) {
+            RETURN ( (*thecode)(self, arg) );
+        }
+        /* interpreted code */
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 1, nil, nil, nil, nil, &arg) );
+        RETURN ( __interpret(self, 1, nil, nil, nil, nil, &arg) );
 # else
-	RETURN ( __interpret(self, 1, nil, nil, nil, nil, arg) );
+        RETURN ( __interpret(self, 1, nil, nil, nil, nil, arg) );
 # endif
 #else
-	home = __BlockInstPtr(self)->b_home;
-	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(home, arg) );
-	}
-	/* interpreted code */
+        home = __BlockInstPtr(self)->b_home;
+        if (thecode != (OBJFUNC)nil) {
+            RETURN ( (*thecode)(home, arg) );
+        }
+        /* interpreted code */
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 1, nil, home, nil, nil, &arg) );
+        RETURN ( __interpret(self, 1, nil, home, nil, nil, &arg) );
 # else
-	RETURN ( __interpret(self, 1, nil, home, nil, nil, arg) );
+        RETURN ( __interpret(self, 1, nil, home, nil, nil, arg) );
 # endif
 #endif
     }
@@ -725,28 +725,28 @@
 
     if (__INST(nargs) == __MKSMALLINT(2)) {
 #if defined(THIS_CONTEXT)
-	if (__ISVALID_ILC_LNO(__pilc))
-	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+        if (__ISVALID_ILC_LNO(__pilc))
+            __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
 #endif
-	thecode = __BlockInstPtr(self)->b_code;
+        thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
-	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(self, arg1, arg2) );
-	}
+        if (thecode != (OBJFUNC)nil) {
+            RETURN ( (*thecode)(self, arg1, arg2) );
+        }
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 2, nil, nil, nil, nil, &arg1) );
+        RETURN ( __interpret(self, 2, nil, nil, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 2, nil, nil, nil, nil, arg1, arg2) );
+        RETURN ( __interpret(self, 2, nil, nil, nil, nil, arg1, arg2) );
 # endif
 #else
-	home = __BlockInstPtr(self)->b_home;
-	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(home, arg1, arg2) );
-	}
+        home = __BlockInstPtr(self)->b_home;
+        if (thecode != (OBJFUNC)nil) {
+            RETURN ( (*thecode)(home, arg1, arg2) );
+        }
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 2, nil, home, nil, nil, &arg1) );
+        RETURN ( __interpret(self, 2, nil, home, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 2, nil, home, nil, nil, arg1, arg2) );
+        RETURN ( __interpret(self, 2, nil, home, nil, nil, arg1, arg2) );
 # endif
 #endif
     }
@@ -765,28 +765,28 @@
 
     if (__INST(nargs) == __MKSMALLINT(3)) {
 #if defined(THIS_CONTEXT)
-	if (__ISVALID_ILC_LNO(__pilc))
-	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+        if (__ISVALID_ILC_LNO(__pilc))
+            __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
 #endif
-	thecode = __BlockInstPtr(self)->b_code;
+        thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
-	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(self, arg1, arg2, arg3) );
-	}
+        if (thecode != (OBJFUNC)nil) {
+            RETURN ( (*thecode)(self, arg1, arg2, arg3) );
+        }
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 3, nil, nil, nil, nil, &arg1) );
+        RETURN ( __interpret(self, 3, nil, nil, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 3, nil, nil, nil, nil, arg1, arg2, arg3) );
+        RETURN ( __interpret(self, 3, nil, nil, nil, nil, arg1, arg2, arg3) );
 # endif
 #else
-	home = __BlockInstPtr(self)->b_home;
-	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(home, arg1, arg2, arg3) );
-	}
+        home = __BlockInstPtr(self)->b_home;
+        if (thecode != (OBJFUNC)nil) {
+            RETURN ( (*thecode)(home, arg1, arg2, arg3) );
+        }
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 3, nil, home, nil, nil, &arg1) );
+        RETURN ( __interpret(self, 3, nil, home, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 3, nil, home, nil, nil, arg1, arg2, arg3) );
+        RETURN ( __interpret(self, 3, nil, home, nil, nil, arg1, arg2, arg3) );
 # endif
 #endif
     }
@@ -805,28 +805,28 @@
 
     if (__INST(nargs) == __MKSMALLINT(4)) {
 #if defined(THIS_CONTEXT)
-	if (__ISVALID_ILC_LNO(__pilc))
-	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+        if (__ISVALID_ILC_LNO(__pilc))
+            __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
 #endif
-	thecode = __BlockInstPtr(self)->b_code;
+        thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
-	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4) );
-	}
+        if (thecode != (OBJFUNC)nil) {
+            RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4) );
+        }
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 4, nil, nil, nil, nil, &arg1) );
+        RETURN ( __interpret(self, 4, nil, nil, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 4, nil, nil, nil, nil, arg1, arg2, arg3, arg4) );
+        RETURN ( __interpret(self, 4, nil, nil, nil, nil, arg1, arg2, arg3, arg4) );
 # endif
 #else
-	home = __BlockInstPtr(self)->b_home;
-	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4) );
-	}
+        home = __BlockInstPtr(self)->b_home;
+        if (thecode != (OBJFUNC)nil) {
+            RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4) );
+        }
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 4, nil, home, nil, nil, &arg1) );
+        RETURN ( __interpret(self, 4, nil, home, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 4, nil, home, nil, nil, arg1, arg2, arg3, arg4) );
+        RETURN ( __interpret(self, 4, nil, home, nil, nil, arg1, arg2, arg3, arg4) );
 # endif
 #endif
     }
@@ -845,28 +845,28 @@
 
     if (__INST(nargs) == __MKSMALLINT(5)) {
 #if defined(THIS_CONTEXT)
-	if (__ISVALID_ILC_LNO(__pilc))
-	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+        if (__ISVALID_ILC_LNO(__pilc))
+            __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
 #endif
-	thecode = __BlockInstPtr(self)->b_code;
+        thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
-	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5) );
-	}
+        if (thecode != (OBJFUNC)nil) {
+            RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5) );
+        }
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 5, nil, nil, nil, nil, &arg1) );
+        RETURN ( __interpret(self, 5, nil, nil, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 5, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5) );
+        RETURN ( __interpret(self, 5, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5) );
 # endif
 #else
-	home = __BlockInstPtr(self)->b_home;
-	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5) );
-	}
+        home = __BlockInstPtr(self)->b_home;
+        if (thecode != (OBJFUNC)nil) {
+            RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5) );
+        }
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 5, nil, home, nil, nil, &arg1) );
+        RETURN ( __interpret(self, 5, nil, home, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 5, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5) );
+        RETURN ( __interpret(self, 5, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5) );
 # endif
 #endif
     }
@@ -885,28 +885,28 @@
 
     if (__INST(nargs) == __MKSMALLINT(6)) {
 #if defined(THIS_CONTEXT)
-	if (__ISVALID_ILC_LNO(__pilc))
-	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+        if (__ISVALID_ILC_LNO(__pilc))
+            __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
 #endif
-	thecode = __BlockInstPtr(self)->b_code;
+        thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
-	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6) );
-	}
+        if (thecode != (OBJFUNC)nil) {
+            RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6) );
+        }
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 6, nil, nil, nil, nil, &arg1) );
+        RETURN ( __interpret(self, 6, nil, nil, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 6, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6) );
+        RETURN ( __interpret(self, 6, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6) );
 # endif
 #else
-	home = __BlockInstPtr(self)->b_home;
-	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6) );
-	}
+        home = __BlockInstPtr(self)->b_home;
+        if (thecode != (OBJFUNC)nil) {
+            RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6) );
+        }
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 6, nil, home, nil, nil, &arg1) );
+        RETURN ( __interpret(self, 6, nil, home, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 6, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6) );
+        RETURN ( __interpret(self, 6, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6) );
 # endif
 #endif
     }
@@ -925,28 +925,28 @@
 
     if (__INST(nargs) == __MKSMALLINT(7)) {
 #if defined(THIS_CONTEXT)
-	if (__ISVALID_ILC_LNO(__pilc))
-	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+        if (__ISVALID_ILC_LNO(__pilc))
+            __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
 #endif
-	thecode = __BlockInstPtr(self)->b_code;
+        thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
-	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
-	}
+        if (thecode != (OBJFUNC)nil) {
+            RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
+        }
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 7, nil, nil, nil, nil, &arg1) );
+        RETURN ( __interpret(self, 7, nil, nil, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 7, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
+        RETURN ( __interpret(self, 7, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
 # endif
 #else
-	home = __BlockInstPtr(self)->b_home;
-	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
-	}
+        home = __BlockInstPtr(self)->b_home;
+        if (thecode != (OBJFUNC)nil) {
+            RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
+        }
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 7, nil, home, nil, nil, &arg1) );
+        RETURN ( __interpret(self, 7, nil, home, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 7, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
+        RETURN ( __interpret(self, 7, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
 # endif
 #endif
     }
@@ -965,28 +965,28 @@
 
     if (__INST(nargs) == __MKSMALLINT(8)) {
 #if defined(THIS_CONTEXT)
-	if (__ISVALID_ILC_LNO(__pilc))
-	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+        if (__ISVALID_ILC_LNO(__pilc))
+            __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
 #endif
-	thecode = __BlockInstPtr(self)->b_code;
+        thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
-	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
-	}
+        if (thecode != (OBJFUNC)nil) {
+            RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
+        }
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 8, nil, nil, nil, nil, &arg1) );
+        RETURN ( __interpret(self, 8, nil, nil, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 8, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
+        RETURN ( __interpret(self, 8, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
 # endif
 #else
-	home = __BlockInstPtr(self)->b_home;
-	if (thecode != (OBJFUNC)nil) {
-	    RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
-	}
+        home = __BlockInstPtr(self)->b_home;
+        if (thecode != (OBJFUNC)nil) {
+            RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
+        }
 # ifdef PASS_ARG_POINTER
-	RETURN ( __interpret(self, 8, nil, home, nil, nil, &arg1) );
+        RETURN ( __interpret(self, 8, nil, home, nil, nil, &arg1) );
 # else
-	RETURN ( __interpret(self, 8, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
+        RETURN ( __interpret(self, 8, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
 # endif
 #endif
     }
@@ -1028,10 +1028,10 @@
     |a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12|
 
     (argArray notNil and:[(argArray class ~~ Array) and:[argArray isArray not]]) ifTrue:[
-	^ self badArgumentArry
+        ^ self badArgumentArray:argArray
     ].
     (argArray size == nargs) ifFalse:[
-	^ self wrongNumberOfArguments:(argArray size)
+        ^ self wrongNumberOfArguments:argArray size
     ].
 %{
 
@@ -1042,7 +1042,7 @@
 
 #if defined(THIS_CONTEXT)
     if (__ISVALID_ILC_LNO(__pilc))
-	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+            __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
 #endif
     thecode = __BlockInstPtr(self)->b_code;
 
@@ -1051,84 +1051,84 @@
 #ifndef NEW_BLOCK_CALL
     home = __BlockInstPtr(self)->b_home;
     if (thecode != (OBJFUNC)nil) {
-	/* the most common case (0 args) here (without a switch) */
+        /* the most common case (0 args) here (without a switch) */
 
-	if (nA == __MKSMALLINT(0)) {
-	    RETURN ( (*thecode)(home) );
-	}
+        if (nA == __MKSMALLINT(0)) {
+            RETURN ( (*thecode)(home) );
+        }
 
-	ap = __arrayVal(argArray);   /* nonNil after above test (size is known to be ok) */
-	switch ((INT)(nA)) {
-	    default:
-		goto error;
-	    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):
-		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]) );
-	    case (INT)__MKSMALLINT(10):
-		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9]) );
-	    case (INT)__MKSMALLINT(9):
-		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8]) );
-	    case (INT)__MKSMALLINT(8):
-		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7]) );
-	    case (INT)__MKSMALLINT(7):
-		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6]) );
-	    case (INT)__MKSMALLINT(6):
-		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5]) );
-	    case (INT)__MKSMALLINT(5):
-		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4]) );
-	    case (INT)__MKSMALLINT(4):
-		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3]) );
-	    case (INT)__MKSMALLINT(3):
-		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2]) );
-	    case (INT)__MKSMALLINT(2):
-		RETURN ( (*thecode)(home, ap[0], ap[1]) );
-	    case (INT)__MKSMALLINT(1):
-		RETURN ( (*thecode)(home, ap[0]) );
-	    case (INT)__MKSMALLINT(0):
-		RETURN ( (*thecode)(home) );
-		break;
-	}
+        ap = __arrayVal(argArray);   /* nonNil after above test (size is known to be ok) */
+        switch ((INT)(nA)) {
+            default:
+                goto error;
+            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):
+                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]) );
+            case (INT)__MKSMALLINT(10):
+                RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9]) );
+            case (INT)__MKSMALLINT(9):
+                RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8]) );
+            case (INT)__MKSMALLINT(8):
+                RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7]) );
+            case (INT)__MKSMALLINT(7):
+                RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6]) );
+            case (INT)__MKSMALLINT(6):
+                RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5]) );
+            case (INT)__MKSMALLINT(5):
+                RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4]) );
+            case (INT)__MKSMALLINT(4):
+                RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3]) );
+            case (INT)__MKSMALLINT(3):
+                RETURN ( (*thecode)(home, ap[0], ap[1], ap[2]) );
+            case (INT)__MKSMALLINT(2):
+                RETURN ( (*thecode)(home, ap[0], ap[1]) );
+            case (INT)__MKSMALLINT(1):
+                RETURN ( (*thecode)(home, ap[0]) );
+            case (INT)__MKSMALLINT(0):
+                RETURN ( (*thecode)(home) );
+                break;
+        }
     }
 #endif
 
     if (nA != __MKSMALLINT(0)) {
-	ap = __arrayVal(argArray);   /* nonNil after above test (size is known to be ok) */
-	switch ((INT)nA) {
-	    default:
-		goto error;
-	    case (INT)__MKSMALLINT(12):
-		a12 = ap[11];
-	    case (INT)__MKSMALLINT(11):
-		a11 = ap[10];
-	    case (INT)__MKSMALLINT(10):
-		a10 = ap[9];
-	    case (INT)__MKSMALLINT(9):
-		a9 = ap[8];
-	    case (INT)__MKSMALLINT(8):
-		a8 = ap[7];
-	    case (INT)__MKSMALLINT(7):
-		a7 = ap[6];
-	    case (INT)__MKSMALLINT(6):
-		a6 = ap[5];
-	    case (INT)__MKSMALLINT(5):
-		a5 = ap[4];
-	    case (INT)__MKSMALLINT(4):
-		a4 = ap[3];
-	    case (INT)__MKSMALLINT(3):
-		a3 = ap[2];
-	    case (INT)__MKSMALLINT(2):
-		a2 = ap[1];
-	    case (INT)__MKSMALLINT(1):
-		a1 = ap[0];
-	    case (INT)__MKSMALLINT(0):
-		break;
-	}
+        ap = __arrayVal(argArray);   /* nonNil after above test (size is known to be ok) */
+        switch ((INT)nA) {
+            default:
+                goto error;
+            case (INT)__MKSMALLINT(12):
+                a12 = ap[11];
+            case (INT)__MKSMALLINT(11):
+                a11 = ap[10];
+            case (INT)__MKSMALLINT(10):
+                a10 = ap[9];
+            case (INT)__MKSMALLINT(9):
+                a9 = ap[8];
+            case (INT)__MKSMALLINT(8):
+                a8 = ap[7];
+            case (INT)__MKSMALLINT(7):
+                a7 = ap[6];
+            case (INT)__MKSMALLINT(6):
+                a6 = ap[5];
+            case (INT)__MKSMALLINT(5):
+                a5 = ap[4];
+            case (INT)__MKSMALLINT(4):
+                a4 = ap[3];
+            case (INT)__MKSMALLINT(3):
+                a3 = ap[2];
+            case (INT)__MKSMALLINT(2):
+                a2 = ap[1];
+            case (INT)__MKSMALLINT(1):
+                a1 = ap[0];
+            case (INT)__MKSMALLINT(0):
+                break;
+        }
     }
 
 #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) );
     }
 # ifdef PASS_ARG_POINTER
     RETURN ( __interpret(self, __intVal(nA), nil, nil, nil, nil, &a1) );
@@ -1152,8 +1152,8 @@
      the above code only supports up-to 12 arguments
     "
     ^ ArgumentSignal
-	raiseRequestWith:self
-	errorString:'only blocks with up-to 12 arguments supported'
+        raiseRequestWith:self
+        errorString:'only blocks with up-to 12 arguments supported'
 !
 
 valueWithOptionalArgument:arg
@@ -1947,7 +1947,7 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.127 2003-03-02 20:38:58 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.128 2003-03-31 17:52:01 cg Exp $'
 ! !
 
 Block initialize!
hg/stx-libbasic