equal
deleted
inserted
replaced
202 |
202 |
203 |cls sel| |
203 |cls sel| |
204 |
204 |
205 "type-byte" |
205 "type-byte" |
206 stream nextByte == 0 ifTrue:[ |
206 stream nextByte == 0 ifTrue:[ |
207 " |
207 " |
208 built-in method |
208 built-in method |
209 " |
209 " |
210 cls := manager nextObject. |
210 cls := manager nextObject. |
211 sel := manager nextObject. |
211 sel := manager nextObject. |
212 |
212 |
213 " |
213 " |
214 mhmh - on the source system, this was a machinecode |
214 mhmh - on the source system, this was a machinecode |
215 method, while here its an interpreted one ... |
215 method, while here its an interpreted one ... |
216 " |
216 " |
217 cls isLoaded ifFalse:[ |
217 cls := cls autoload. |
218 cls autoload |
218 ^ cls compiledMethodAt:sel |
219 ]. |
|
220 ^ cls compiledMethodAt:sel |
|
221 ]. |
219 ]. |
222 " |
220 " |
223 bytecode method |
221 bytecode method |
224 " |
222 " |
225 ^ super binaryDefinitionFrom:stream manager:manager |
223 ^ super binaryDefinitionFrom:stream manager:manager |
2915 ! ! |
2913 ! ! |
2916 |
2914 |
2917 !Method class methodsFor:'documentation'! |
2915 !Method class methodsFor:'documentation'! |
2918 |
2916 |
2919 version |
2917 version |
2920 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.272 2004-03-29 16:31:05 cg Exp $' |
2918 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.273 2004-04-15 08:45:17 stefan Exp $' |
2921 ! ! |
2919 ! ! |
2922 |
2920 |
2923 Method initialize! |
2921 Method initialize! |