[Vm-dev] PrimitiveFailed: primitive #elementsForwardIdentityTo: in Array failed

[Henrik Johansen]

Yes, you need a new VM built from Cog sources after June, hopefully a newer can be promoted to stable soon...

https://pharo.fogbugz.com/f/cases/18711/Cannot-commit-a-special-character-into-Monticello

Cheers,
Henry



> On 21 Sep 2016, at 7:19 , Hernán Morales Durand <hernan.morales at gmail.com> wrote:
> 
> Hi
> 
> I don't know if this was reported. Apparently there is a problem when migrating a large number of instances, I have aprox. 270,000 instances from which I simply pulled up an ivar in their class to a higher superclass, and a PrimitiveFailed raised.
> 
> It can be reproduced by installing Territorial in Pharo 5.0 with Spur VM 5.0 from 4 May 2016 in Windows 8.1 (this is the standard image installed using wget command line in msys).
> 
> Gofer it
>     smalltalkhubUser: 'hernan' project: 'Territorial';
>     configuration;
>     loadDevelopment.
> TCityOrganization addOpenGeoCode
> 
> Then manually install Territorial-HernanMoralesDurand.163 from Monticello. Backwards (installing .163, populating, then .166) also reproduces the issue.
> 
> Is there a fix for this?
> 
> --- The full stack ---
> Array(Object)>>primitiveFailed:
> Array(Object)>>primitiveFailed
> Array>>elementsForwardIdentityTo:
> TerritorialCity class(ClassDescription)>>updateInstances:from:isMeta:
> TerritorialCity class(ClassDescription)>>updateInstancesFrom:
> PharoClassInstaller>>updateClass:to:
> [ 1 to: old size do: [ :index | self updateClass: (old at: index) to: (new at: index) ].
> old elementsForwardIdentityTo: new.
> " Garbage collect away the zombie instances left behind in garbage memory in #updateInstancesFrom: "
> " If we don't clean up this garbage, a second update would revive them with a wrong layout! "
> " (newClass rather than oldClass, since they are now both newClass) "
> Smalltalk garbageCollect ] in PharoClassInstaller>>migrateClasses:to:using:
> BlockClosure>>ensure:
> BlockClosure>>valueUnpreemptively
> PharoClassInstaller>>migrateClasses:to:using:
> SlotClassBuilder>>migrateClasses:
> SlotClassBuilder>>apply:
> SlotClassBuilder>>build
> PharoClassInstaller class(AbstractClassInstaller class)>>make:
> [ PharoClassInstaller
>     make: [ :builder |
>         builder
>             superclass: superClass;
>             name: name;
>             layoutClass: (ObjectLayout layoutForType: type);
>             slots: self instanceVariables;
>             sharedVariables: self classVariables;
>             sharedPools: self sharedPoolsString;
>             classSlots: self classInstanceVariables;
>             traitComposition: self traitCompositionCompiled;
>             classTraitComposition: self classTraitCompositionCompiled;
>             comment: comment stamp: commentStamp;
>             category: category;
>             environment: superClass environment ] ] in MCClassDefinition>>createClass
> BlockClosure>>on:do:
> MCClassDefinition>>createClass
> MCClassDefinition>>load
> MCClassDefinition(MCDefinition)>>addMethodAdditionTo:
> [ :each | each addMethodAdditionTo: methodAdditions ] in MCPackageLoader>>basicLoadDefinitions
> [ :each |
> | newLabel |
> "Special handling for first and last element"
> (count = 0
>     or: [ count + 1 = size
>             or: [ (Time millisecondsSince: lastUpdate) >= msecs ] ])
>     ifTrue: [ bar current: count.
>         oldLabel = (newLabel := (labelBlock cull: each) ifNil: [ oldLabel ])
>             ifFalse: [ bar label: newLabel.
>                 oldLabel := newLabel ].
>         lastUpdate := Time millisecondClockValue ].
> aBlock value: each.
> count := count + 1 ] in [ :bar |
> labelBlock := aStringOrBlock isString
>     ifTrue: [ bar label: aStringOrBlock.
>         [ :dummyItem | aStringOrBlock ] ]
>     ifFalse: [ aStringOrBlock ].
> self
>     do: [ :each |
>         | newLabel |
>         "Special handling for first and last element"
>         (count = 0
>             or: [ count + 1 = size
>                     or: [ (Time millisecondsSince: lastUpdate) >= msecs ] ])
>             ifTrue: [ bar current: count.
>                 oldLabel
>                     = (newLabel := (labelBlock cull: each) ifNil: [ oldLabel ])
>                     ifFalse: [ bar label: newLabel.
>                         oldLabel := newLabel ].
>                 lastUpdate := Time millisecondClockValue ].
>         aBlock value: each.
>         count := count + 1 ] ] in OrderedCollection(Collection)>>do:displayingProgress:every:
> OrderedCollection>>do:
> [ :bar |
> labelBlock := aStringOrBlock isString
>     ifTrue: [ bar label: aStringOrBlock.
>         [ :dummyItem | aStringOrBlock ] ]
>     ifFalse: [ aStringOrBlock ].
> self
>     do: [ :each |
>         | newLabel |
>         "Special handling for first and last element"
>         (count = 0
>             or: [ count + 1 = size
>                     or: [ (Time millisecondsSince: lastUpdate) >= msecs ] ])
>             ifTrue: [ bar current: count.
>                 oldLabel
>                     = (newLabel := (labelBlock cull: each) ifNil: [ oldLabel ])
>                     ifFalse: [ bar label: newLabel.
>                         oldLabel := newLabel ].
>                 lastUpdate := Time millisecondClockValue ].
>         aBlock value: each.
>         count := count + 1 ] ] in OrderedCollection(Collection)>>do:displayingProgress:every:
> BlockClosure>>cull:
> [ ^ block cull: self ] in [ self prepareForRunning.
> CurrentJob value: self during: [ ^ block cull: self ] ] in Job>>run
> [ p psValueAt: index put: anObject.
> aBlock value ] in CurrentJob(DynamicVariable)>>value:during:
> BlockClosure>>ensure:
> CurrentJob(DynamicVariable)>>value:during:
> CurrentJob class(DynamicVariable class)>>value:during:
> [ self prepareForRunning.
> CurrentJob value: self during: [ ^ block cull: self ] ] in Job>>run
> BlockClosure>>ensure:
> Job>>run
> MorphicUIManager(UIManager)>>displayProgress:from:to:during:
> ByteString(String)>>displayProgressFrom:to:during:
> OrderedCollection(Collection)>>do:displayingProgress:every:
> OrderedCollection(Collection)>>do:displayingProgress:
> MCPackageLoader>>basicLoadDefinitions
> [ self basicLoadDefinitions ] in [ self handleLoadErrorsDuring: [ self basicLoadDefinitions ] ] in MCPackageLoader>>basicLoad
> BlockClosure>>on:do:
>  - - - - - - - - - - - - - - -
>             - - - - - - - - - - - - - - - - - -
> [ aBlock
>     on: InMidstOfFileinNotification
>     do: [ :notification | notification resume: true ] ] in MCPackageLoader>>handleLoadErrorsDuring:
> BlockClosure>>on:do:
> MCPackageLoader>>handleLoadErrorsDuring:
> [ self handleLoadErrorsDuring: [ self basicLoadDefinitions ] ] in MCPackageLoader>>basicLoad
> BlockClosure>>ensure:
> MCPackageLoader>>basicLoad
> [ self basicLoad ] in MCPackageLoader>>loadWithNameLike:
> BlockClosure>>ensure:
> MCPackageLoader>>useChangeSetNamed:during:
> MCPackageLoader>>useNewChangeSetNamedLike:during:
> MCPackageLoader>>loadWithNameLike:
> MCThreeWayMerger(MCMerger)>>loadWithNameLike:
> MCVersionMerger>>mergeWithNameLike:
> MCVersionMerger class>>mergeVersion:
> MCVersion>>merge
> MCFileRepositoryInspector(MCVersionInspector)>>merge
> MCFileRepositoryInspector>>merge
> MCFileRepositoryInspector(MCTool)>>performButtonAction:enabled:
> PluggableButtonMorph>>performAction:
> [ :m |
> (m containsPoint: evt cursorPoint)
>     ifTrue: [ m enabled
>             ifTrue: [ m performAction: evt ] ] ] in PluggableButtonMorph>>mouseUp:
> Array(SequenceableCollection)>>do:
> PluggableButtonMorph>>mouseUp:
> PluggableButtonMorph(Morph)>>handleMouseUp:
> MouseButtonEvent>>sentTo:
> PluggableButtonMorph(Morph)>>handleEvent:
> PluggableButtonMorph(Morph)>>handleFocusEvent:
> [ ActiveHand := self.
> ActiveEvent := anEvent.
> result := focusHolder
>     handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self)) ] in HandMorph>>sendFocusEvent:to:clear:
> BlockClosure>>on:do:
> WorldMorph(PasteUpMorph)>>becomeActiveDuring:
> HandMorph>>sendFocusEvent:to:clear:
> HandMorph>>sendEvent:focus:clear:
> HandMorph>>sendMouseEvent:
> HandMorph>>handleEvent:
> HandMorph>>processEvents
> [ :h |
> ActiveHand := h.
> h processEvents.
> ActiveHand := nil ] in WorldState>>doOneCycleNowFor:
> Array(SequenceableCollection)>>do:
> WorldState>>handsDo:
> WorldState>>doOneCycleNowFor:
> WorldState>>doOneCycleFor:
> WorldMorph>>doOneCycle
> [ [ World doOneCycle.
> Processor yield.
> false ] whileFalse: [  ] ] in MorphicUIManager>>spawnNewProcess
> [ self value.
> Processor terminateActive ] in BlockClosure>>newProcess
> -------------------------------------------------------------------------------
> 
> 
> 
> Hernán
> 

-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 842 bytes
Desc: Message signed with OpenPGP using GPGMail
Url : http://lists.squeakfoundation.org/pipermail/vm-dev/attachments/20160921/63d7725d/signature.pgp