oops - performWithArguments was wrong with 8+ arguments.
--- 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!