[squeak-dev] The Trunk: Kernel-eem.969.mcz
Nicolas Cellier
nicolas.cellier.aka.nice at gmail.com
Sat Nov 14 00:12:00 UTC 2015
2015-11-13 2:30 GMT+01:00 <commits at source.squeak.org>:
> 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
> - !
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20151114/9fdce34c/attachment.htm
More information about the Squeak-dev
mailing list
|