--- a/RegressionTests__IntegerTest.st Mon Dec 02 18:32:41 2013 +0100
+++ b/RegressionTests__IntegerTest.st Mon Dec 02 18:33:52 2013 +0100
@@ -2236,7 +2236,7 @@
self assert:((t1 * t1) printString = '10000').
self assert:((t1 perform:'*' asSymbol with:t1) printString = '10000').
- t1 := 1000.
+ t1 := 1000.
self assert:(t1 * t1 == 1000000).
self assert:((t1 perform:'*' asSymbol with:t1) == 1000000).
self assert:((t1 * t1) printString = '1000000').
@@ -2459,7 +2459,8 @@
t1 := LargeInteger digitBytes:#[ 16r00 16rE1 16rF5 16r05 ].
t2 := LargeInteger digitBytes:#[ 16r00 16r00 16r40 16rB2 16rBA 16rC9 16rE0 16r19 16r1E 16r02].
r := t1 absMul:t2.
- self assert:(r hexPrintString = 'FFFFFFFEFFFFFFFF00000001').
+ self assert:(r printString = '1000000000000000000000000000000').
+ self assert:(r hexPrintString = 'C9F2C9CD04674EDEA40000000').
t1 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF].
t2 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 0 0 0 0].
@@ -2488,7 +2489,7 @@
self basicNew testLargeMultiplicationHelpers1
"
- "Modified: / 02-12-2013 / 17:37:09 / cg"
+ "Modified: / 02-12-2013 / 18:33:33 / cg"
!
testLargeMultiplicationHelpers2