Eliot Miranda uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections.spur-topa.638.mcz
==================== Summary ====================
Name: Collections.spur-topa.638
Author: eem
Time: 8 July 2015, 5:19:46.214 pm
UUID: 74b2d4fa-c030-48a7-ae6c-c6809bd0318a
Ancestors: Collections-topa.638, Collections.spur-topa.637
Collections-topa.638 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.270
Let's say PluggableTextAttributes are not serializable.
=============== Diff against Collections-topa.638 ===============
Item was changed:
----- Method: Array>>elementsExchangeIdentityWith: (in category 'converting') -----
elementsExchangeIdentityWith: otherArray
+ "This primitive performs a bulk mutation, causing all pointers to the elements of the
+ receiver to be replaced by pointers to the corresponding elements of otherArray.
+ At the same time, all pointers to the elements of otherArray are replaced by
+ pointers to the corresponding elements of this array. The identityHashes remain
+ with the pointers rather than with the objects so that objects in hashed structures
+ should still be properly indexed after the mutation."
- "This primitive performs a bulk mutation, causing all pointers to the elements of this array to be replaced by pointers to the corresponding elements of otherArray. At the same time, all pointers to the elements of otherArray are replaced by pointers to the corresponding elements of this array. The identityHashes remain with the pointers rather than with the objects so that objects in hashed structures should still be properly indexed after the mutation."
+ <primitive: 128 error: ec>
+ ec == #'bad receiver' ifTrue:
+ [^self error: 'receiver must be of class Array'].
+ ec == #'bad argument' ifTrue:
+ [^self error: (otherArray class == Array
+ ifTrue: ['arg must be of class Array']
+ ifFalse: ['receiver and argument must have the same size'])].
+ ec == #'inappropriate operation' ifTrue:
+ [^self error: 'can''t become immediates such as SmallIntegers or Characters'].
+ ec == #'no modification' ifTrue:
+ [^self error: 'can''t become immutable objects'].
+ ec == #'object is pinned' ifTrue:
+ [^self error: 'can''t become pinned objects'].
+ ec == #'insufficient object memory' ifTrue:
+ [Smalltalk garbageCollect < 1048576 ifTrue:
+ [Smalltalk growMemoryByAtLeast: 1048576].
+ ^self elementsExchangeIdentityWith: otherArray].
+ self primitiveFailed!
- <primitive: 128>
- otherArray class == Array ifFalse: [^ self error: 'arg must be array'].
- self size = otherArray size ifFalse: [^ self error: 'arrays must be same size'].
- (self anySatisfy: [:obj | obj class == SmallInteger]) ifTrue: [^ self error: 'can''t become SmallIntegers'].
- (otherArray anySatisfy: [:obj | obj class == SmallInteger]) ifTrue: [^ self error: 'can''t become SmallIntegers'].
- self with: otherArray do:[:a :b| a == b ifTrue:[^self error:'can''t become yourself']].
-
- "Must have failed because not enough space in forwarding table (see ObjectMemory-prepareForwardingTableForBecoming:with:twoWay:). Do GC and try again only once"
- (Smalltalk bytesLeft: true) = Smalltalk primitiveGarbageCollect
- ifTrue: [^ self primitiveFailed].
- ^ self elementsExchangeIdentityWith: otherArray!
Item was changed:
----- Method: Array>>elementsForwardIdentityTo: (in category 'converting') -----
elementsForwardIdentityTo: otherArray
+ "This primitive performs a bulk mutation, causing all pointers to the elements of the
+ receiver to be replaced by pointers to the corresponding elements of otherArray.
+ The identityHashes remain with the pointers rather than with the objects so that
+ the objects in this array should still be properly indexed in any existing hashed
+ structures after the mutation."
+ <primitive: 72 error: ec>
- "This primitive performs a bulk mutation, causing all pointers to the elements of this array to be replaced by pointers to the corresponding elements of otherArray. The identityHashes remain with the pointers rather than with the objects so that the objects in this array should still be properly indexed in any existing hashed structures after the mutation."
- <primitive: 72>
self primitiveFailed!
Item was changed:
----- Method: Array>>elementsForwardIdentityTo:copyHash: (in category 'converting') -----
elementsForwardIdentityTo: otherArray copyHash: copyHash
+ "This primitive performs a bulk mutation, causing all pointers to the elements of the
+ receiver to be replaced by pointers to the corresponding elements of otherArray.
+ If copyHash is true, the identityHashes remain with the pointers rather than with the
+ objects so that the objects in the receiver should still be properly indexed in any
+ existing hashed structures after the mutation. If copyHash is false, then the hashes
+ of the objects in otherArray remain unchanged. If you know what you're doing this
+ may indeed be what you want."
+ <primitive: 249 error: ec>
- "This primitive performs a bulk mutation, causing all pointers to the elements of this array to be replaced by pointers to the corresponding elements of otherArray. The identityHashes remain with the pointers rather than with the objects so that the objects in this array should still be properly indexed in any existing hashed structures after the mutation."
- <primitive: 249>
self primitiveFailed!
Item was changed:
==== ERROR ===
Error: Unrecognized class type
9 July 2015 12:20:49.041 am
VM: unix - a SmalltalkImage
Image: Squeak3.11alpha [latest update: #8824]
SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir /home/squeaksource
Trusted Dir /home/squeaksource/secure
Untrusted Dir /home/squeaksource/My Squeak
MCClassDefinition(Object)>>error:
Receiver: a MCClassDefinition(Character)
Arguments and temporary variables:
aString: 'Unrecognized class type'
Receiver's instance variables:
name: #Character
superclassName: #Magnitude
variables: an OrderedCollection(a MCClassVariableDefinition(AlphaNumericMask) a...etc...
category: #'Collections-Strings'
type: #immediate
comment: 'I represent a character by storing its associated Unicode as an unsig...etc...
commentStamp: 'eem 8/12/2014 14:53'
traitComposition: nil
classTraitComposition: nil
MCClassDefinition>>kindOfSubclass
Receiver: a MCClassDefinition(Character)
Arguments and temporary variables:
Receiver's instance variables:
name: #Character
superclassName: #Magnitude
variables: an OrderedCollection(a MCClassVariableDefinition(AlphaNumericMask) a...etc...
category: #'Collections-Strings'
type: #immediate
comment: 'I represent a character by storing its associated Unicode as an unsig...etc...
commentStamp: 'eem 8/12/2014 14:53'
traitComposition: nil
classTraitComposition: nil
MCClassDefinition>>printDefinitionOn:
Receiver: a MCClassDefinition(Character)
Arguments and temporary variables:
stream: a WriteStream
Receiver's instance variables:
name: #Character
superclassName: #Magnitude
variables: an OrderedCollection(a MCClassVariableDefinition(AlphaNumericMask) a...etc...
category: #'Collections-Strings'
type: #immediate
comment: 'I represent a character by storing its associated Unicode as an unsig...etc...
commentStamp: 'eem 8/12/2014 14:53'
traitComposition: nil
classTraitComposition: nil
[] in MCDiffyTextWriter(MCStWriter)>>writeClassDefinition:
Receiver: a MCDiffyTextWriter
Arguments and temporary variables:
definition: a WriteStream
s: a MCClassDefinition(Character)
Receiver's instance variables:
stream: a WriteStream
initStream: nil
--- The full stack ---
MCClassDefinition(Object)>>error:
MCClassDefinition>>kindOfSubclass
MCClassDefinition>>printDefinitionOn:
[] in MCDiffyTextWriter(MCStWriter)>>writeClassDefinition:
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
String class(SequenceableCollection class)>>new:streamContents:
String class(SequenceableCollection class)>>streamContents:
MCDiffyTextWriter(MCTextWriter)>>chunkContents:
MCDiffyTextWriter(MCStWriter)>>writeClassDefinition:
MCDiffyTextWriter(MCStWriter)>>visitClassDefinition:
MCClassDefinition>>accept:
[] in MCDiffyTextWriter(MCTextWriter)>>visitInFork:
String class(SequenceableCollection class)>>new:streamContents:
String class(SequenceableCollection class)>>streamContents:
MCDiffyTextWriter(MCTextWriter)>>visitInFork:
MCDiffyTextWriter>>writePatchFrom:to:
MCDiffyTextWriter>>writeModification:
[] in MCDiffyTextWriter>>writePatch:
SortedCollection(OrderedCollection)>>do:
MCDiffyTextWriter>>writePatch:
SSDiffyTextWriter>>writePatch:
[] in SSDiffyTextWriter>>writeVersion:for:
BlockClosure>>on:do:
SSDiffyTextWriter>>writeVersion:for:
[] in SSEMailSubscription>>versionAdded:to:
BlockClosure>>on:do:
SSEMailSubscription>>versionAdded:to:
[] in [] in SSProject>>versionAdded:
[] in BlockClosure>>newProcess
Eliot Miranda uploaded a new version of Compiler to project The Trunk:
http://source.squeak.org/trunk/Compiler-eem.304.mcz
==================== Summary ====================
Name: Compiler-eem.304
Author: eem
Time: 8 July 2015, 5:15:09.812 pm
UUID: 3b07ef9d-69d2-424d-845c-affde45643b8
Ancestors: Compiler-topa.302
Fix stack depth regression from Compiler-eem.300; this time with the correct version number for the MC package.
=============== Diff against Compiler-topa.302 ===============
Item was changed:
----- Method: BlockNode>>emitCodeForEvaluatedClosureValue:encoder: (in category 'code generation (closures)') -----
emitCodeForEvaluatedClosureValue: stack encoder: encoder
| position |
position := stack position.
+ stack position: arguments size + temporaries size + copiedValues size.
- stack position: arguments size + copiedValues size.
encoder genPushNClosureTemps: temporaries size.
self
reindexingLocalsDo: [self emitCodeForEvaluatedValue: stack encoder: encoder]
encoder: encoder.
self returns ifFalse:
[encoder genReturnTopToCaller.
pc := encoder methodStreamPosition].
stack position: position!
Eliot Miranda uploaded a new version of Compiler to project The Trunk:
http://source.squeak.org/trunk/Compiler-eem.304.mcz
==================== Summary ====================
Name: Compiler-eem.304
Author: eem
Time: 8 July 2015, 5:15:09.812 pm
UUID: 3b07ef9d-69d2-424d-845c-affde45643b8
Ancestors: Compiler-topa.302
Fix stack depth regression from Compiler-eem.300; this time with the correct version number for the MC package.
=============== Diff against Compiler-topa.302 ===============
Item was changed:
----- Method: BlockNode>>emitCodeForEvaluatedClosureValue:encoder: (in category 'code generation (closures)') -----
emitCodeForEvaluatedClosureValue: stack encoder: encoder
| position |
position := stack position.
+ stack position: arguments size + temporaries size + copiedValues size.
- stack position: arguments size + copiedValues size.
encoder genPushNClosureTemps: temporaries size.
self
reindexingLocalsDo: [self emitCodeForEvaluatedValue: stack encoder: encoder]
encoder: encoder.
self returns ifFalse:
[encoder genReturnTopToCaller.
pc := encoder methodStreamPosition].
stack position: position!
Chris Muller uploaded a new version of Compiler to project The Trunk:
http://source.squeak.org/trunk/Compiler-dtl.303.mcz
==================== Summary ====================
Name: Compiler-dtl.303
Author: dtl
Time: 7 July 2015, 7:27:15.092 pm
UUID: 762ba9fa-1e47-4c91-af95-d673d8c6706d
Ancestors: Compiler-topa.302
Revert two methods from Compiler-eem.300 because they work on a stack interpreter but not on a context interpreter (VM crash).
=============== Diff against Compiler-topa.302 ===============
Item was changed:
----- Method: BlockNode>>emitCodeForEvaluatedClosureValue:encoder: (in category 'code generation (closures)') -----
emitCodeForEvaluatedClosureValue: stack encoder: encoder
| position |
position := stack position.
stack position: arguments size + copiedValues size.
+ temporaries size timesRepeat:
+ [NodeNil emitCodeForValue: stack encoder: encoder].
- encoder genPushNClosureTemps: temporaries size.
self
reindexingLocalsDo: [self emitCodeForEvaluatedValue: stack encoder: encoder]
encoder: encoder.
self returns ifFalse:
[encoder genReturnTopToCaller.
pc := encoder methodStreamPosition].
stack position: position!
Item was changed:
----- Method: BlockNode>>sizeCodeForEvaluatedClosureValue: (in category 'code generation (closures)') -----
sizeCodeForEvaluatedClosureValue: encoder
"The closure value primitives push the arguments and the copied values.
The compiler guarantees that any copied values come before all local temps.
So on closure activation we only need to push nils for the remaining temporaries."
+ ^temporaries size * (NodeNil sizeCodeForValue: encoder)
- ^(encoder sizePushNClosureTemps: temporaries size)
+ (self
reindexingLocalsDo: [self sizeCodeForEvaluatedValue: encoder]
encoder: nil "don't store temps yet")
+ (self returns ifTrue: [0] ifFalse: [encoder sizeReturnTopToCaller])!
Chris Muller uploaded a new version of Compiler to project The Trunk:
http://source.squeak.org/trunk/Compiler-dtl.303.mcz
==================== Summary ====================
Name: Compiler-dtl.303
Author: dtl
Time: 7 July 2015, 7:27:15.092 pm
UUID: 762ba9fa-1e47-4c91-af95-d673d8c6706d
Ancestors: Compiler-topa.302
Revert two methods from Compiler-eem.300 because they work on a stack interpreter but not on a context interpreter (VM crash).
=============== Diff against Compiler-topa.302 ===============
Item was changed:
----- Method: BlockNode>>emitCodeForEvaluatedClosureValue:encoder: (in category 'code generation (closures)') -----
emitCodeForEvaluatedClosureValue: stack encoder: encoder
| position |
position := stack position.
stack position: arguments size + copiedValues size.
+ temporaries size timesRepeat:
+ [NodeNil emitCodeForValue: stack encoder: encoder].
- encoder genPushNClosureTemps: temporaries size.
self
reindexingLocalsDo: [self emitCodeForEvaluatedValue: stack encoder: encoder]
encoder: encoder.
self returns ifFalse:
[encoder genReturnTopToCaller.
pc := encoder methodStreamPosition].
stack position: position!
Item was changed:
----- Method: BlockNode>>sizeCodeForEvaluatedClosureValue: (in category 'code generation (closures)') -----
sizeCodeForEvaluatedClosureValue: encoder
"The closure value primitives push the arguments and the copied values.
The compiler guarantees that any copied values come before all local temps.
So on closure activation we only need to push nils for the remaining temporaries."
+ ^temporaries size * (NodeNil sizeCodeForValue: encoder)
- ^(encoder sizePushNClosureTemps: temporaries size)
+ (self
reindexingLocalsDo: [self sizeCodeForEvaluatedValue: encoder]
encoder: nil "don't store temps yet")
+ (self returns ifTrue: [0] ifFalse: [encoder sizeReturnTopToCaller])!