[Pkg] The Trunk: Kernel-eem.969.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Nov 13 01:30:37 UTC 2015
Eliot Miranda uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-eem.969.mcz
==================== Summary ====================
Name: Kernel-eem.969
Author: eem
Time: 12 November 2015, 5:30:04.713 pm
UUID: ec5388a5-1235-4c2d-8ec1-9ec28a9f617a
Ancestors: Kernel-nice.968
Fix tow speeling sorres.
Handle the case where a method compiled in the debugger has a large frame.
=============== Diff against Kernel-nice.968 ===============
Item was changed:
----- Method: InstructionPrinter>>callPrimitive: (in category 'instruction decoding') -----
callPrimitive: index
+ "Print the callPrimitive bytecode."
- "Print the callPrimitive."
+ self print: 'callPrimitive: ' , index printString!
- self print: 'callPrimtive: ' , index printString!
Item was changed:
----- Method: Process>>restartTopWith: (in category 'changing suspended state') -----
restartTopWith: method
"Rollback top context and replace with new method. Assumes self is suspended"
method isQuick
+ ifTrue: [self popTo: suspendedContext sender]
+ ifFalse:
+ [suspendedContext method frameSize >= method frameSize
+ ifTrue: [suspendedContext privRefreshWith: method]
+ ifFalse:
+ [self assert: suspendedContext isExecutingBlock not.
+ suspendedContext := MethodContext
+ sender: suspendedContext sender
+ receiver: suspendedContext receiver
+ method: method
+ arguments: ((1 to: method numArgs) collect:
+ [:i| suspendedContext tempAt: i])]].
- ifTrue: [ self popTo: suspendedContext sender ]
- ifFalse: [ suspendedContext privRefreshWith: method ].
!
Item was changed:
----- Method: SmallInteger>>objectForDataStream: (in category 'objects from disk') -----
objectForDataStream: refStrm
+ "In a 64-bit Spur VM, we may have to fake 32-bit SmallIntegers for compatibility."
- "In a 64bits sput VM, we may have to fake 32bits SmallInteger for compatibility"
| large |
self > 16r3FFFFFFF ifTrue: [
large := LargePositiveInteger new: self digitLength neg: false.
1 to: self digitLength do: [:i | large digitAt: i put: (self digitAt: i)].
^large].
self < -16r40000000 ifTrue: [
large := LargeNegativeInteger new: self digitLength neg: true.
1 to: self digitLength do: [:i | large digitAt: i put: (self digitAt: i)].
^large].
+ ^ self!
- ^ self
- !
More information about the Packages
mailing list