[squeak-dev] The Trunk: Kernel-eem.1005.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Mar 9 19:54:40 UTC 2016


Eliot Miranda uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-eem.1005.mcz

==================== Summary ====================

Name: Kernel-eem.1005
Author: eem
Time: 9 March 2016, 11:53:31.024318 am
UUID: ef6c553c-70dc-4646-8a12-172594ff090a
Ancestors: Kernel-bf.1004

Give SmallFloat64 identityHash 4 and put it in the first class table page at that hash.  64-bit Spur will change over to that tag pattern asap.

=============== Diff against Kernel-bf.1004 ===============

Item was removed:
- (PackageInfo named: 'Kernel') preamble: '((Mutex allInstances allSatisfy: [:m| (m instVarNamed: ''owner'') isNil])
- and: [Monitor allInstances allSatisfy: [:m| (m instVarNamed: ''ownerProcess'') isNil]]) ifFalse:
- 	[self error: ''Some Mutexes and/or Monitors are owned.  Cannot safely mutate.  ABort load and resolve this before loading for safety.'']'!

Item was changed:
+ (PackageInfo named: 'Kernel') postscript: '"below, add code to be run after the loading of this package"
+ 
+ "Arrange that SmalFloat64 has identityHash 4 and is in the class table first page if possible.
+  Don''t bother to rehash all hashed collections; SmallFloat64 is not in any in the default image"
+ Smalltalk garbageCollect.
+ (Array someInstance size = 1024
+ and: [(Array someInstance allSatisfy: [:e| e == nil or: [e isBehavior]])
+ and: [(Array someInstance first: 17) =  {nil . SmallInteger . Character . SmallInteger . nil . nil . nil . nil . nil . nil . nil . nil . nil . nil . nil . nil . Array}]]) ifTrue:
+ 	[SmallFloat64 tryPrimitive: 161 withArgs: #(4).
+ 	 Array someInstance at: 5 put: SmallFloat64]'!
- (PackageInfo named: 'Kernel') postscript: 'Smalltalk removeFromStartUpList: DateAndTime.'!



More information about the Squeak-dev mailing list