The Trunk: Kernel.spur-nice.922.mcz

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

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

Name: Kernel.spur-nice.922
Author: eem
Time: 12 May 2015, 3:32:03.095 pm
UUID: 6875de48-76f2-4159-813e-aad338910ade
Ancestors: Kernel-nice.922, Kernel.spur-nice.921

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

Remove an un-necessary inst. var. shadowing (inbox Kernel-nice.745 7 March 2013)

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