[Pkg] The Trunk: Kernel-eem.1214.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Feb 23 00:30:05 UTC 2019


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

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

Name: Kernel-eem.1214
Author: eem
Time: 22 February 2019, 4:30:01.615182 pm
UUID: 1196f254-79e9-4bb1-b1af-3c413abe2fd4
Ancestors: Kernel-nice.1213

Use the Spur inst avr access primitives in FutureMaker and the mirror primitives.  Fix a couple of typos.

=============== Diff against Kernel-nice.1213 ===============

Item was changed:
  ----- Method: BlockClosure>>blockCreationPC (in category 'scanning') -----
  blockCreationPC
+ 	"Answer the pc for the bytecode that created the receiver."
- 	"Answer the pc for the bytecode that created the receuver."
  	| method |
  	method := self method.
  	^method encoderClass
  		pcOfBlockCreationBytecodeForBlockStartingAt: startpc
  		in: method!

Item was changed:
  ----- Method: Context>>findNextUnwindContextUpTo: (in category 'private-exceptions') -----
  findNextUnwindContextUpTo: aContext
  	"Return the next unwind marked above the receiver, returning nil if there is none.  Search proceeds up to but not including aContext."
  
  	| ctx |
  	<primitive: 195>
  	ctx := self.
+ 	[(ctx := ctx sender) == nil or: [ctx == aContext]] whileFalse:
- 		[(ctx := ctx sender) == nil or: [ctx == aContext]] whileFalse:
  		[ ctx isUnwindContext ifTrue: [^ctx]].
  	^nil!

Item was changed:
  ----- Method: Context>>object:instVarAt: (in category 'mirror primitives') -----
  object: anObject instVarAt: anIndex
  	"Primitive. Answer a fixed variable in an object. The numbering of the 
  	 variables corresponds to the named instance variables. Fail if the index 
  	 is not an Integer or is not the index of a fixed variable. Essential for the
  	 debugger. See  Object documentation whatIsAPrimitive."
  
+ 	<primitive: 173 error: ec>
+ 	self primitiveFailed!
- 	<primitive: 73>
- 	"Access beyond fixed variables."
- 	^self object: anObject basicAt: anIndex - (self objectClass: anObject) instSize!

Item was changed:
  ----- Method: Context>>object:instVarAt:put: (in category 'mirror primitives') -----
  object: anObject instVarAt: anIndex put: aValue 
  	"Primitive. Store a value into a fixed variable in the argument anObject.
  	 The numbering of the variables corresponds to the named instance
  	 variables.  Fail if the index is not an Integer or is not the index of a
  	 fixed variable.  Answer the value stored as the result. Using this
  	 message violates the  principle that each object has sovereign control
  	 over the storing of values into its instance variables. Essential for the
  	 debugger. See Object documentation whatIsAPrimitive."
  
+ 	<primitive: 174 error: ec>
+ 	self primitiveFailed!
- 	<primitive: 74>
- 	"Access beyond fixed fields"
- 	^self object: anObject basicAt: anIndex - (self objectClass: anObject) instSize put: aValue!

Item was changed:
  ----- Method: FutureMaker>>instVarAt: (in category 'accessing') -----
  instVarAt: index 
  	"Primitive. Answer a fixed variable in an object. The numbering of the 
  	variables corresponds to the named instance variables. Fail if the index 
  	is not an Integer or is not the index of a fixed variable. Essential. See 
  	Object documentation whatIsAPrimitive."
  
+ 	<primitive: 173 error: ec>
+ 	self primitiveFailed!
- 	<primitive: 73>
- 	"Access beyond fixed variables."
- 	^self basicAt: index - self class instSize		!

Item was changed:
  ----- Method: FutureMaker>>instVarAt:put: (in category 'accessing') -----
  instVarAt: anInteger put: anObject 
  	"Primitive. Store a value into a fixed variable in the receiver. The 
  	numbering of the variables corresponds to the named instance variables. 
  	Fail if the index is not an Integer or is not the index of a fixed variable. 
  	Answer the value stored as the result. Using this message violates the 
  	principle that each object has sovereign control over the storing of 
  	values into its instance variables. Essential. See Object documentation 
  	whatIsAPrimitive."
  
+ 	<primitive: 174 error: ec>
+ 	self primitiveFailed!
- 	<primitive: 74>
- 	"Access beyond fixed fields"
- 	^self basicAt: anInteger - self class instSize put: anObject!



More information about the Packages mailing list