[Pkg] The Trunk: Kernel.spur-mt.924.mcz

commits at source.squeak.org commits at source.squeak.org
Sat May 16 03:07:11 UTC 2015


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

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

Name: Kernel.spur-mt.924
Author: eem
Time: 12 May 2015, 3:32:11.824 pm
UUID: e996b4d4-a040-480e-9743-1ce027c1f4cc
Ancestors: Kernel-mt.924, Kernel.spur-nice.923

Kernel-mt.924 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.267

ValueHolder: Only notify about changed contents if contents actually changed.

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

Item was changed:
  ----- Method: ValueHolder>>contents: (in category 'accessing') -----
  contents: newContents
+ 
+ 	contents = newContents ifTrue: [^ self].
  	contents := newContents.
  	self contentsChanged!



More information about the Packages mailing list