The Trunk: Kernel-eem.1214.mcz

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!