The Trunk: Kernel-ar.452.mcz

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!