oops - performWithArguments was wrong with 8+ arguments.
authorClaus Gittinger <cg@exept.de>
Tue, 11 Jul 2000 13:18:56 +0200
changeset 5457 e447e2f06b58
parent 5456 a96c23f8da35
child 5458 2aa89d4fad64
oops - performWithArguments was wrong with 8+ arguments.
Object.st
--- a/Object.st	Tue Jul 11 12:24:59 2000 +0200
+++ b/Object.st	Tue Jul 11 13:18:56 2000 +0200
@@ -5282,6 +5282,10 @@
         case 8:
             if ((InterruptPending != nil) || (aSelector != last8)) {
                 ilc8.ilc_func = __SEND8ADDR__;
+                if (ilc8.ilc_poly) {
+                    __flushPolyCache(ilc8.ilc_poly);
+                    ilc8.ilc_poly = 0;
+                }
                 last8 = aSelector;
             }
 #ifdef xxTHIS_CONTEXT /* not because this has a context */
@@ -5294,6 +5298,10 @@
         case 9: 
             if ((InterruptPending != nil) || (aSelector != last9)) {
                 ilc9.ilc_func = __SEND9ADDR__;
+                if (ilc9.ilc_poly) {
+                    __flushPolyCache(ilc9.ilc_poly);
+                    ilc9.ilc_poly = 0;
+                }
                 last9 = aSelector;
             }
 #ifdef xxTHIS_CONTEXT /* not because this has a context */
@@ -5306,6 +5314,10 @@
         case 10: 
             if ((InterruptPending != nil) || (aSelector != last10)) {
                 ilc10.ilc_func = __SEND10ADDR__;
+                if (ilc10.ilc_poly) {
+                    __flushPolyCache(ilc10.ilc_poly);
+                    ilc10.ilc_poly = 0;
+                }
                 last10 = aSelector;
             }
 #ifdef xxTHIS_CONTEXT /* not because this has a context */
@@ -5318,6 +5330,10 @@
         case 11: 
             if ((InterruptPending != nil) || (aSelector != last11)) {
                 ilc11.ilc_func = __SEND11ADDR__;
+                if (ilc11.ilc_poly) {
+                    __flushPolyCache(ilc11.ilc_poly);
+                    ilc11.ilc_poly = 0;
+                }
                 last11 = aSelector;
             }
 #ifdef xxTHIS_CONTEXT /* not because this has a context */
@@ -5331,6 +5347,10 @@
         case 12: 
             if ((InterruptPending != nil) || (aSelector != last12)) {
                 ilc12.ilc_func = __SEND12ADDR__;
+                if (ilc12.ilc_poly) {
+                    __flushPolyCache(ilc12.ilc_poly);
+                    ilc12.ilc_poly = 0;
+                }
                 last12 = aSelector;
             }
 #ifdef xxTHIS_CONTEXT /* not because this has a context */
@@ -5344,6 +5364,10 @@
         case 13: 
             if ((InterruptPending != nil) || (aSelector != last13)) {
                 ilc13.ilc_func = __SEND13ADDR__;
+                if (ilc13.ilc_poly) {
+                    __flushPolyCache(ilc13.ilc_poly);
+                    ilc13.ilc_poly = 0;
+                }
                 last13 = aSelector;
             }
 #ifdef xxTHIS_CONTEXT /* not because this has a context */
@@ -5357,6 +5381,10 @@
         case 14: 
             if ((InterruptPending != nil) || (aSelector != last14)) {
                 ilc14.ilc_func = __SEND14ADDR__;
+                if (ilc14.ilc_poly) {
+                    __flushPolyCache(ilc14.ilc_poly);
+                    ilc14.ilc_poly = 0;
+                }
                 last14 = aSelector;
             }
 #ifdef xxTHIS_CONTEXT /* not because this has a context */
@@ -5370,6 +5398,10 @@
         case 15: 
             if ((InterruptPending != nil) || (aSelector != last15)) {
                 ilc15.ilc_func = __SEND15ADDR__;
+                if (ilc15.ilc_poly) {
+                    __flushPolyCache(ilc15.ilc_poly);
+                    ilc15.ilc_poly = 0;
+                }
                 last15 = aSelector;
             }
 #ifdef xxTHIS_CONTEXT /* not because this has a context */
@@ -7973,6 +8005,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.330 2000-07-08 18:49:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.331 2000-07-11 11:18:56 cg Exp $'
 ! !
 Object initialize!