hg/stx-libbasic: comparison CompiledCode.st

equal deleted inserted replaced

-:3f5ed291c362
+:55c5c4a38728
 } else {
 searchClass = dummy.ilc_class = aClass;
 }
 if (nargs <= 15) {
-	  OBJ rslt;
+OBJ rslt;
 #ifdef CONTEXT_DEBUG
-	  OBJ sav = __thisContext;
+OBJ sav = __thisContext;
 #endif
 /*
 * add virtual sender (unwinding) here later,
 * to allow hiding contexts in lazy methods.
 if (code) {
 /* compiled code */
 switch (nargs) {
 case 0:
 rslt = (*code)(anObject, aSymbol, searchClass, &dummy);
-		    break;
+break;
 case 1:
 rslt = (*code)(anObject, aSymbol, searchClass, &dummy, ap[0]);
-		    break;
+break;
 case 2:
 rslt = (*code)(anObject, aSymbol, searchClass, &dummy, ap[0], ap[1]);
-		    break;
+break;
 case 3:
 rslt = (*code)(anObject, aSymbol, searchClass, &dummy, ap[0], ap[1], ap[2]);
-		    break;
+break;
 case 4:
 rslt = (*code)(anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3]);
-		    break;
+break;
 case 5:
 rslt = (*code)(anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3], ap[4]);
-		    break;
+break;
 case 6:
 rslt = (*code)(anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3], ap[4], ap[5]);
-		    break;
+break;
 case 7:
 rslt = (*code)(anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6]);
-		    break;
+break;
 case 8:
 rslt = (*code)(anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7]);
-		    break;
+break;
 case 9:
 rslt = (*code)(anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8]);
-		    break;
+break;
 case 10:
 rslt = (*code)(anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8],
 ap[9]);
-		    break;
+break;
 case 11:
 rslt = (*code)(anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8],
 ap[9], ap[10]);
-		    break;
+break;
 case 12:
 rslt = (*code)(anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8],
 ap[9], ap[10], ap[11]);
-		    break;
+break;
 case 13:
 rslt = (*code)(anObject, aSymbol, searchClass, &dummy,
 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]);
-		    break;
+break;
 case 14:
 rslt = (*code)(anObject, aSymbol, searchClass, &dummy,
 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]);
-		    break;
+break;
 case 15:
 rslt = (*code)(anObject, aSymbol, searchClass, &dummy,
 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]);
-		    break;
+break;
 }
 } else {
 /* interpreted code */
 #ifdef PASS_ARG_POINTER
 rslt = __interpret(self, nargs, anObject, aSymbol, searchClass, &dummy, ap);
 #else
 switch (nargs) {
 case 0:
 rslt = __interpret(self, 0, anObject, aSymbol, searchClass, &dummy);
-		    break;
+break;
 case 1:
 rslt = __interpret(self, 1, anObject, aSymbol, searchClass, &dummy,
 ap[0]);
-		    break;
+break;
 case 2:
 rslt = __interpret(self, 2, anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1]);
-		    break;
+break;
 case 3:
 rslt = __interpret(self, 3, anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2]);
-		    break;
+break;
 case 4:
 rslt = __interpret(self, 4, anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3]);
-		    break;
+break;
 case 5:
 rslt = __interpret(self, 5, anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3], ap[4]);
-		    break;
+break;
 case 6:
 rslt = __interpret(self, 6, anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3], ap[4], ap[5]);
-		    break;
+break;
 case 7:
 rslt = __interpret(self, 7, anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6]);
-		    break;
+break;
 case 8:
 rslt = __interpret(self, 8, anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
 ap[7]);
-		    break;
+break;
 case 9:
 rslt = __interpret(self, 9, anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
 ap[7], ap[8]);
-		    break;
+break;
 case 10:
 rslt = __interpret(self, 10, anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
 ap[7], ap[8], ap[9]);
-		    break;
+break;
 case 11:
 rslt = __interpret(self, 11, anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
 ap[7], ap[8], ap[9], ap[10]);
-		    break;
+break;
 case 12:
 rslt = __interpret(self, 12, anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
-ap[7], ap[8], ap[9], ap[11]);
+ap[7], ap[8], ap[9], ap[10], ap[11]);
-		    break;
+break;
 case 13:
 rslt = __interpret(self, 13, anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
-ap[7], ap[8], ap[9], ap[11], ap[12]);
+ap[7], ap[8], ap[9], ap[10], ap[11], ap[12]);
-		    break;
+break;
 case 14:
 rslt = __interpret(self, 14, anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
-ap[7], ap[8], ap[9], ap[11], ap[12], ap[13]);
+ap[7], ap[8], ap[9], ap[10], ap[11], ap[12], ap[13]);
-		    break;
+break;
 case 15:
 rslt = __interpret(self, 15, anObject, aSymbol, searchClass, &dummy,
 ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6],
-ap[7], ap[8], ap[9], ap[11], ap[12], ap[13], ap[14]);
+ap[7], ap[8], ap[9], ap[10], ap[11], ap[12], ap[13], ap[14]);
-		    break;
+break;
 }
 #endif
 }
 #ifdef CONTEXT_DEBUG
-	  if (sav != __thisContext) {
+if (sav != __thisContext) {
-	      if (code) {
+if (code) {
-	          printf("CONTEXT BOTCH after execution of %x\n", code);
+printf("CONTEXT BOTCH after execution of %x\n", code);
-	      } else {
+} else {
-	          printf("CONTEXT BOTCH after execution of interpreted method\n");
+printf("CONTEXT BOTCH after execution of interpreted method\n");
-	          printf("code now: %x\n", __MethodInstPtr(self)->m_code);
+printf("code now: %x\n", __MethodInstPtr(self)->m_code);
-	      }
+}
-	      printf("context before:\n");
+printf("context before:\n");
-	      __dumpObject__(sav);
+__dumpObject__(sav);
-	      printf("context now:\n");
+printf("context now:\n");
-	      __dumpObject__(__thisContext);
+__dumpObject__(__thisContext);
-	  }
+}
 #endif
-	  RETURN (rslt);
+RETURN (rslt);
 }
 }
 badArgs: ;
 %}.
 (argArray isMemberOf:Array) ifFalse:[
 ! !
 !CompiledCode class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.70 1999-10-04 10:43:22 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.71 1999-10-06 15:59:11 ca Exp $'
 ! !
 CompiledCode initialize!

changeset 4854	55c5c4a38728
parent 4836	dc0c027c3c85
child 4977	17a819360ad5