Hi
Ok, I had an 3.9 7051 image that was very close at 32 MB. I could either rebuild a new image from scratch or use the patch from Klaus. Now I knew about the risks (wich are why it's not in 3.9) and that it has not seen enough testing. But if nobody tests it because it has not seen enough testing then nobody will test it and it will never see enogh testing. So it basically boiled down to 'Who if not me? When if not now?'
So I did
- loaded LargeSourceFilePointers-kwl.0.cs (said Proceed) - did the doit - loaded LargeSourceFilePointers-kwl.1.cs - did the doit
loaded RefactoringEngine run Lint on a package, did some fixes, commited via Monticello run Lint on an other package, did some fixes, oops trace below
As you can see a CompiledMethod is in the preamble. size of changes file: 31377626
From: 2 October 2006 8:36:33 pm
VM: unix - a SmalltalkImage Image: Squeak3.9alpha [latest update: #7051]
SecurityManager state: Restricted: false FileAccess: true SocketAccess: true
CompiledMethod(Object)>>doesNotUnderstand: #findString:startingAt: Receiver: a CompiledMethod (614) Arguments and temporary variables: aMessage: findString: ''methodsFor:'' startingAt: 1 Receiver''s instance variables: a CompiledMethod (614)
CompiledMethod>>timeStamp Receiver: a CompiledMethod (614) Arguments and temporary variables: file: MultiByteFileStream: ''/home/upnip/data/uni/masterarbeit/images/7051/Squea...etc... preamble: a CompiledMethod (614) stamp: '''' tokens: nil tokenCount: nil ex: nil Receiver''s instance variables: a CompiledMethod (614)
MethodReference>>timeStamp Receiver: a MethodReference PKBarLayout >> initialize Arguments and temporary variables:
Receiver''s instance variables: classSymbol: #PKBarLayout classIsMeta: false methodSymbol: #initialize stringVersion: ''PKBarLayout initialize''
MCMethodDefinition class>>forMethodReference: Receiver: MCMethodDefinition Arguments and temporary variables: aMethodReference: a MethodReference PKBarLayout >> initialize definition: nil Receiver''s instance variables: superclass: MCDefinition methodDict: a MethodDictionary(#=->a CompiledMethod (643) #accept:->a CompiledM...etc... format: 142 instanceVariables: #(''classIsMeta'' ''source'' ''category'' ''selector'' ''className'' ''...etc... organization: (''accessing'' actualClass category classIsMeta className fullTimeS...etc... subclasses: nil name: #MCMethodDefinition classPool: a Dictionary(#Definitions->a WeakIdentityKeyDictionary(size 239) ) sharedPools: nil environment: a SystemDictionary(lots of globals) category: #''Monticello-Modeling'' traitComposition: nil localSelectors: nil
--- The full stack --- CompiledMethod(Object)>>doesNotUnderstand: #findString:startingAt: CompiledMethod>>timeStamp MethodReference>>timeStamp MCMethodDefinition class>>forMethodReference: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - MethodReference>>asMethodDefinition [] in MCPackage>>snapshot {[:ea | definitions add: ea asMethodDefinition]} [] in Array(SequenceableCollection)>>do:displayingProgress: {[:each :i | bar value: i. aBlock value: each]} Array(SequenceableCollection)>>withIndexDo: [] in Array(SequenceableCollection)>>do:displayingProgress: {[:bar | self withIndexDo: [:each :i | bar value: i. aBlock value: e...]} [] in ProgressInitiationException>>defaultMorphicAction {[result := workBlock value: progress]} BlockContext>>ensure: ProgressInitiationException>>defaultMorphicAction ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: ByteString(String)>>displayProgressAt:from:to:during: Array(SequenceableCollection)>>do:displayingProgress: MCPackage>>snapshot MCWorkingCopy>>changesRelativeToRepository: MCWorkingCopyBrowser>>viewChanges PluggableButtonMorphPlus(PluggableButtonMorph)>>performAction PluggableButtonMorphPlus>>performAction [] in PluggableButtonMorphPlus(PluggableButtonMorph)>>mouseUp: {[:m | (m containsPoint: evt cursorPoint) ifTrue: [m performAction]]} Array(SequenceableCollection)>>do: PluggableButtonMorphPlus(PluggableButtonMorph)>>mouseUp: PluggableButtonMorphPlus>>mouseUp: PluggableButtonMorphPlus(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorphPlus(Morph)>>handleEvent: PluggableButtonMorphPlus(Morph)>>handleFocusEvent: [] in HandMorph>>sendFocusEvent:to:clear: {[ActiveHand := self. ActiveEvent := anEvent. result := focusHolder han...]} [] in PasteUpMorph>>becomeActiveDuring: {[aBlock value]} BlockContext>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: {[:h | ActiveHand := h. h processEvents. capturingGesture := capturingGest...]} ...etc...
Cheers Philippe