[Pkg] The Trunk: Kernel-ar.461.mcz

[commits at source.squeak.org]

Andreas Raab uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-ar.461.mcz

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

Name: Kernel-ar.461
Author: ar
Time: 14 June 2010, 10:07:55.827 pm
UUID: 86d9f9a3-3611-fa43-a6ec-dc6d3c69012a
Ancestors: Kernel-nice.460

Remove positively ancient j3 support that hasn't been used in too many years.

=============== Diff against Kernel-nice.460 ===============

Item was changed:
  ----- Method: ClassBuilder>>tooDangerousClasses (in category 'private') -----
  tooDangerousClasses
  	"Return a list of class names which will not be modified in the public interface"
  	^#(
  		"Object will break immediately"
  		ProtoObject Object
  		"Contexts and their superclasses"
  		InstructionStream ContextPart BlockContext MethodContext BlockClosure
  		"Superclasses of basic collections"
  		Collection SequenceableCollection ArrayedCollection
  		"Collections known to the VM"
+ 		Array Bitmap String Symbol ByteArray CompiledMethod
- 		Array Bitmap String Symbol ByteArray CompiledMethod TranslatedMethod
  		"Basic Numbers"
  		Magnitude Number SmallInteger Float
  		"Misc other"
  		LookupKey Association Link Point Rectangle Behavior PositionableStream UndefinedObject
  	)
  !

Item was removed:
- ----- Method: PseudoContext class>>contextCacheDepth (in category 'private') -----
- contextCacheDepth
- 	"Answer the number of entries in the context cache.  This requires a little insider
- 	knowledge.  Not intended for casual use, which is why it's private protocol."
- 
- 	^self contextCacheDepth: thisContext yourself!

Item was removed:
- nil variableSubclass: #PseudoContext
- 	instanceVariableNames: 'fixed fields never accessed from smalltalk'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'Kernel-Methods'!
- 
- !PseudoContext commentStamp: '<historical>' prior: 0!
- I represent cached context state within the virtual machine.  I have the same format as normal method and block contexts, but my fields are never referenced directly from Smalltalk.  Whenever a message is sent to me I will magically transform myself into a real context which will respond to all the usual messages.
- 	I rely on the fact that block and method contexts have exactly the same number of fixed fields.!

Item was removed:
- ----- Method: PseudoContext>>nextObject (in category 'system primitives') -----
- nextObject
- 	"See Object>>nextObject."
- 
- 	<primitive: 139>
- 	self primitiveFailed.!

Item was removed:
- ----- Method: PseudoContext class>>definition (in category 'filing out') -----
- definition
- 	"Our superclass is really nil, but this causes problems when we try to become compact
- 	after filing in for the first time.  Fake the superclass as Object, and repair the situation
- 	during class initialisation."
- 	| defn |
- 	defn := super definition.
- 	^(defn beginsWith: 'nil ')
- 		ifTrue: ['Object' , (defn copyFrom: 4 to: defn size)]
- 		ifFalse: [defn].!

Item was removed:
- ----- Method: PseudoContext class>>initialize (in category 'class initialization') -----
- initialize
- 	"It's tricky to do the necessary stuff with the regular file-in machinery."
- 
- 	PseudoContext superclass = nil
- 		ifFalse: [
- 			(Smalltalk confirm: 'Shall I convert PseudoContext into a compact subclass of nil?
- ("yes" is almost always the correct response)')
- 				ifTrue: [
- 					PseudoContext becomeCompact.
- 					PseudoContext superclass removeSubclass: PseudoContext.
- 					PseudoContext superclass: nil]].
- 	Smalltalk recreateSpecialObjectsArray.
- 	Smalltalk specialObjectsArray size = 56
- 		ifFalse: [self error: 'Please check size of special objects array!!']!

Item was removed:
- ----- Method: PseudoContext>>isPseudoContext (in category 'testing') -----
- isPseudoContext
- 	^true!

Item was removed:
- ----- Method: PseudoContext class>>contextCacheDepth: (in category 'private') -----
- contextCacheDepth: b
- 	^b isPseudoContext
- 		ifTrue: [1 + (self contextCacheDepth: b)]
- 		ifFalse: [1]!