[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