Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.682.mcz
==================== Summary ====================
Name: Kernel-eem.682 Author: eem Time: 25 April 2012, 10:58:44.627 am UUID: 700ce759-d9db-45ed-9929-20018642651d Ancestors: Kernel-bf.681
Faster non-local return through unwind-protects by not ignoring the firstUnwindContext supplied by the VM.
=============== Diff against Kernel-bf.681 ===============
Item was added: + ----- Method: ContextPart>>resume:through: (in category 'controlling') ----- + resume: value through: firstUnwindCtxt + "Unwind thisContext to self and resume with value as result of last send. + Execute any unwind blocks while unwinding. + ASSUMES self is a sender of thisContext." + + | ctxt unwindBlock | + self isDead ifTrue: [self cannotReturn: value to: self]. + ctxt := firstUnwindCtxt. + [ctxt isNil] whileFalse: + [(ctxt tempAt: 2) ifNil: + [ctxt tempAt: 2 put: true. + unwindBlock := ctxt tempAt: 1. + thisContext terminateTo: ctxt. + unwindBlock value]. + ctxt := ctxt findNextUnwindContextUpTo: self]. + thisContext terminateTo: self. + ^value + !
Item was added: + ----- Method: ContextPart>>return:through: (in category 'controlling') ----- + return: value through: firstUnwindContext + "Unwind thisContext to self and return value to self's sender. + Execute any unwind blocks while unwinding. + ASSUMES self is a sender of thisContext." + + sender ifNil: [self cannotReturn: value to: sender]. + sender resume: value through: firstUnwindContext!
Item was changed: ----- Method: MethodContext>>aboutToReturn:through: (in category 'private') ----- aboutToReturn: result through: firstUnwindContext "Called from VM when an unwindBlock is found between self and its home. Return to home's sender, executing unwind blocks on the way."
+ self methodReturnContext return: result through: firstUnwindContext! - self methodReturnContext return: result!