The Trunk: Kernel-eem.969.mcz

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
- !

2015-11-13 2:30 GMT+01:00 <[hidden email]>:

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.

Worse than that, words are so short in English, it's not amazing that any typo find an entry in the urban dictionary ;)
http://www.urbandictionary.com/define.php?term=sput

 

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
- !