Hi John, I see this method: ------------ fixedPlusIndexableSizeFor: object "Return my total number of fields" (object isContextPart) ifTrue: [^ object class instSize + object frameSize]. object isCompiledMethod ifTrue: [^ object basicSize + (self pcDeltaForMethod: object)]. ^ object class instSize + object basicSize ------------- So maybe it needs a line like: ------------- (object class = BlockClosure) ifTrue: [^ object class instSize + (self pcDeltaForMethod: object method)]. ------------- But this one does not work.... Do you have an idea ? Or maybe I am not on the good way. Cheers, Jannik On Dec 7, 2009, at 04:59 , John M McIntosh wrote:
Eliot and I spent 30 minutes chatting about what is wrong. The conclusion is we *think* we are doing the right thing, yet the Virtual Machine says the image is busted. So a quick fix is not apparent, and we'll dig more.
On 2009-12-05, at 11:42 PM, John M McIntosh wrote:
On 2009-12-05, at 9:46 PM, Laval Jannik wrote:
I added object class = BlockClosure ifTrue: [(object instVarAt: 3) ifNotNil: ["May need to adjust PC and startPC if changing wordSize..." results at: 2 put: (block value: (object instVarAt: 2)+(self pcDeltaForMethod: object method) value: 2)]].
Oops should be
object class = BlockClosure ifTrue: ["May need to adjust PC and startPC if changing wordSize..." results at: 2 put: (block value: (object instVarAt: 2)+(self pcDeltaForMethod: object method) value: 2)].
Post your current change set so we can see
However that just gives me, which is where I was earlier.
<PastedGraphic-2.tiff>
-- =========================================================================== John M. McIntosh <johnmci@smalltalkconsulting.com> Twitter: squeaker68882 Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com ===========================================================================