[squeak-dev] 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 Squeak-dev mailing list