[squeak-dev] The Trunk: Kernel-ar.452.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue May 25 03:44:47 UTC 2010
Andreas Raab uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-ar.452.mcz
==================== Summary ====================
Name: Kernel-ar.452
Author: ar
Time: 24 May 2010, 8:43:58.049 pm
UUID: 468fbdc7-4fcb-9845-8223-5333334177b8
Ancestors: Kernel-nice.451
Eliot's fix for ContextPart>>tryNamedPrim...
=============== Diff against Kernel-nice.451 ===============
Item was changed:
----- Method: ContextPart>>tryNamedPrimitiveIn:for:withArgs: (in category 'private') -----
tryNamedPrimitiveIn: aCompiledMethod for: aReceiver withArgs: arguments
"Hack. Attempt to execute the named primitive from the given compiled method"
| selector theMethod spec |
arguments size > 8 ifTrue:[^PrimitiveFailToken].
selector := #(
tryNamedPrimitive
tryNamedPrimitive:
tryNamedPrimitive:with:
tryNamedPrimitive:with:with:
tryNamedPrimitive:with:with:with:
tryNamedPrimitive:with:with:with:with:
tryNamedPrimitive:with:with:with:with:with:
tryNamedPrimitive:with:with:with:with:with:with:
tryNamedPrimitive:with:with:with:with:with:with:with:) at: arguments size+1.
theMethod := aReceiver class lookupSelector: selector.
theMethod == nil ifTrue:[^PrimitiveFailToken].
spec := theMethod literalAt: 1.
spec replaceFrom: 1 to: spec size with: (aCompiledMethod literalAt: 1) startingAt: 1.
+ theMethod flushCache.
+ selector flushCache.
^aReceiver perform: selector withArguments: arguments!
More information about the Squeak-dev
mailing list
|