--- a/RegressionTests__IntegerTest.st Mon May 13 16:43:21 2013 +0200
+++ b/RegressionTests__IntegerTest.st Mon May 13 16:49:36 2013 +0200
@@ -1152,9 +1152,9 @@
"general conversion & arithmetic tests.
Notice, the arithmetic tests are both performed via regular sends
and via constructed performs. The reason is to test both inlined
- JIT-compiler code AND the regular methods code."
-
- |minVal maxVal maxValPlus1 minValMinus1 halfMin halfMax t t1 t2|
+ JIT-compiler code AND the regular method's code."
+
+ |minVal maxVal maxValPlus1 minValMinus1 halfMin halfMax t|
minVal := SmallInteger perform:('minVal' asSymbol).
maxVal := SmallInteger perform:('maxVal' asSymbol).
@@ -1172,6 +1172,11 @@
self testPrinting1.
+ self assert:(SmallInteger maxBytes == ExternalAddress pointerSize).
+ "/ again, preventing inlining by compiler
+ self assert:(SmallInteger perform:#maxBytes) == (ExternalAddress perform:#pointerSize).
+ self assert:(SmallInteger perform:'maxBytes' asSymbol) == (ExternalAddress perform:'pointerSize' asSymbol).
+
SmallInteger maxBytes == 4 ifTrue:[
self assert:(minVal hexPrintString = '-40000000').
self assert:(maxVal hexPrintString = '3FFFFFFF').