equal
deleted
inserted
replaced
81 [see also:] |
81 [see also:] |
82 |
82 |
83 " |
83 " |
84 ! ! |
84 ! ! |
85 |
85 |
|
86 !PolymorphicInlineCache methodsFor:'* uncategorized *'! |
|
87 |
|
88 bind: aMethod to: initialSearchClass |
|
89 | selector | |
|
90 selector := aMethod selector. |
|
91 %{ |
|
92 inlineCachePtr pIlc; |
|
93 OBJ srch; |
|
94 OBJFUNC code; |
|
95 |
|
96 pIlc = __externalAddressVal(__INST(xyz)); |
|
97 srch = initialSearchClass; |
|
98 code = __MethodInstrPtr(aMethod)->m_code; |
|
99 |
|
100 __poly_enter(pIlc, srch, code, __SEND0ADDR__, selector); |
|
101 RETURN(1); |
|
102 %}. |
|
103 |
|
104 self primitiveFailed. |
|
105 |
|
106 "Created: / 02-10-2011 / 18:05:26 / Jan Kurs <kursjan@fit.cvut.cz>" |
|
107 ! ! |
|
108 |
86 !PolymorphicInlineCache class methodsFor:'documentation'! |
109 !PolymorphicInlineCache class methodsFor:'documentation'! |
87 |
110 |
88 version_SVN |
111 version_SVN |
89 ^ '$Id: PolymorphicInlineCache.st 10704 2011-10-01 18:43:30Z kursjan $' |
112 ^ '$Id: PolymorphicInlineCache.st 10707 2011-10-02 16:42:05Z kursjan $' |
90 ! ! |
113 ! ! |