equal
deleted
inserted
replaced
89 bindTo: aMethod forClass: aClass |
89 bindTo: aMethod forClass: aClass |
90 |
90 |
91 | selector | |
91 | selector | |
92 selector := aMethod selector. |
92 selector := aMethod selector. |
93 %{ |
93 %{ |
94 __ilcBind(__externalAddressVal(__INST(address)), |
94 __ilcBind(self, aClass, aMethod, selector); |
95 __intVal(__INST(numArgs)), |
|
96 aClass, aMethod, selector); |
|
97 RETURN(self); |
95 RETURN(self); |
98 %}. |
96 %}. |
99 |
|
100 self primitiveFailed. |
97 self primitiveFailed. |
101 |
98 |
102 "Created: / 02-10-2011 / 18:05:26 / Jan Kurs <kursjan@fit.cvut.cz>" |
99 "Created: / 02-10-2011 / 18:05:26 / Jan Kurs <kursjan@fit.cvut.cz>" |
103 ! ! |
100 ! ! |
104 |
101 |
105 !PolymorphicInlineCache class methodsFor:'documentation'! |
102 !PolymorphicInlineCache class methodsFor:'documentation'! |
106 |
103 |
107 version_SVN |
104 version_SVN |
108 ^ '$Id: PolymorphicInlineCache.st 10709 2011-10-03 10:58:18Z vranyj1 $' |
105 ^ '$Id: PolymorphicInlineCache.st 10712 2011-10-04 21:59:41Z kursjan $' |
109 ! ! |
106 ! ! |