[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