Chris Muller uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel.spur-nice.923.mcz

==================== Summary ====================

Name: Kernel.spur-nice.923
Author: eem
Time: 12 May 2015, 3:32:07.667 pm
UUID: ed46ad2e-c619-4d7b-9dbc-7ed9afea1c15
Ancestors: Kernel-nice.923, Kernel.spur-nice.922

Kernel-nice.923 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.267

Use an intermediate abstract Float representation (sign, exponent, significand) in order to convert single precision bits to double precision bits rather than attempting the conversion by direct bit manipulations.

This lead to simpler code, because it is like a semantic bit manipulation rather than a raw bit manipulation.

And this also lead to faster code on 32 bits interpreter/COG/Spur VM thanks to avoidance of LargeInteger

(was Kernel-nice.893 / 24 December 2014)

=============== Diff against Kernel.spur-topa.920 ===============

Item was changed:
  ----- Method: ContextPart>>asMessage (in category 'converting') -----
  asMessage
+ 	| selector args |
- 	| sender selector args |
- 	sender := self sender.
  	selector := sender method selector.
  	args := Array new: selector numArgs.
  	1 to: selector numArgs do: [ :i | args at: i put: (sender tempAt: i)].
  	^ Message selector: selector arguments: args.!

Item was added:
+ ----- Method: Fraction>>floorLog: (in category 'mathematical functions') -----
+ floorLog: radix
+ 	"Unlike super, this version is exact when radix is integer"
+ 	
+ 	| d n |
+ 	radix isInteger ifFalse: [^super floorLog: 10].
+ 	n := numerator floorLog: radix.
+ 	d := denominator floorLog: radix.
+ 	^(numerator * (radix raisedTo: d))
+ 		< (denominator * (radix raisedTo: n))
+ 		ifTrue: [n - d - 1]
+ 		ifFalse: [n - d]!

Item was added:
+ ----- Method: InstructionClient>>callPrimitive: (in category '*Scorch') -----
+ callPrimitive: pimIndex
+ 	"V3PlusClosures:	139 10001011	iiiiiiii   jjjjjjjj  Call Primitive #iiiiiiii + (jjjjjjjj * 256)
+ 	 NewsqueakV4:		249 11111001	iiiiiiii   jjjjjjjj  Call Primitive #iiiiiiii + (jjjjjjjj * 256)
+ 	 SistaV1:			248 11111000 iiiiiiii mjjjjjjj  Call Primitive #iiiiiiii + ( jjjjjjj * 256)
+ 							m=1 means inlined primitive, no hard return after execution."!

Item was added:
+ ----- Method: Integer>>floorLog: (in category 'mathematical functions') -----
+ floorLog: radix
+ 	"Unlike super, this version is exact when radix is integer"
+ 	
+ 	radix isInteger ifFalse: [^super floorLog: 10].
+ 	self <= 0 ifTrue: [^DomainError signal: 'floorLog: is only defined for x > 0.0'].
+ 	^(self numberOfDigitsInBase: radix) - 1!

Item was added:
+ ----- Method: ScaledDecimal>>floorLog: (in category 'mathematical functions') -----
+ floorLog: radix
+ 	"Unlike super, this version is exact when radix is integer"
+ 	
+ 	^self asFraction floorLog: radix!