hg/stx-goodies-regression: RegressionTests__IntegerTest.st@a781d70791b7 (annotated)

69 ffbf7492f5e5 checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1	"{ Package: 'exept:regression' }"
56 77f5ad522f18 category Claus Gittinger <cg@exept.de> parents: 54 diff changeset	2
70 c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	3	"{ NameSpace: RegressionTests }"
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	4
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	Object subclass:#IntegerTest
27 8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	6	instanceVariableNames:''
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	7	classVariableNames:''
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	8	poolDictionaries:''
59 5dfe7fc71559 * empty log message * Claus Gittinger <cg@exept.de> parents: 57 diff changeset	9	category:'Tests-Regression'
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	!
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12
4 28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	13	!IntegerTest class methodsFor:'misc'!
28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	14
31 4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	15	testMul0_a:arg
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	16	^ arg * 0
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	17
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	18	"
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	19	(self testMul0_a:0) == 0
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	20	(self testMul0_a:1) == 0
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	21	(self testMul0_a:SmallInteger maxVal) == 0
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	22	(self testMul0_a:SmallInteger minVal) == 0
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	23	"
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	24
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	25	"Created: / 9.6.1999 / 15:50:48 / cg"
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	26	!
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	27
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	28	testMul1_a:arg
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	29	^ arg * 1
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	30
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	31	"
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	32	(self testMul1_a:0) == 0
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	33	(self testMul1_a:1) == 1
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	34	(self testMul1_a:SmallInteger maxVal) == SmallInteger maxVal
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	35	(self testMul1_a:SmallInteger minVal) == SmallInteger minVal
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	36	"
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	37
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	38	"Created: / 9.6.1999 / 15:49:09 / cg"
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	39	!
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	40
32 03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	41	testMul2_a:arg
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	42	^ arg * 2
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	43
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	44	"
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	45	(self testMul2_a:0) == 0
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	46	(self testMul2_a:1) == 2
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	47	(self testMul2_a:SmallInteger maxVal) = (SmallInteger maxVal + SmallInteger maxVal)
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	48	(self testMul2_a:SmallInteger minVal) = (SmallInteger minVal + SmallInteger minVal)
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	49	"
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	50
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	51	"Modified: / 9.6.1999 / 16:57:20 / cg"
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	52	!
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	53
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	54	testMul3_a:arg
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	55	^ arg * 3
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	56
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	57	"
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	58	(self testMul3_a:0) == 0
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	59	(self testMul3_a:1) == 3
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	60	(self testMul3_a:-1) == -3
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	61	(self testMul3_a:10000) == 30000
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	62	(self testMul3_a:SmallInteger maxVal) = (SmallInteger maxVal + SmallInteger maxVal + SmallInteger maxVal)
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	63	(self testMul3_a:SmallInteger minVal) = (SmallInteger minVal + SmallInteger minVal + SmallInteger minVal)
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	64	"
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	65
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	66	"Created: / 9.6.1999 / 16:57:47 / cg"
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	67	"Modified: / 9.6.1999 / 17:35:34 / cg"
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	68	!
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	69
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	70	testMul4_a:arg
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	71	^ arg * 4
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	72
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	73	"
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	74	(self testMul4_a:0) == 0
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	75	(self testMul4_a:1) == 4
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	76	(self testMul4_a:-1) == -4
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	77	(self testMul4_a:10000) == 40000
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	78	(self testMul4_a:SmallInteger maxVal//4) == 4611686018427387900
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	79	(self testMul4_a:SmallInteger maxVal//4+1) = 4611686018427387904
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	80	"
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	81
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	82	"Created: / 9.6.1999 / 16:57:47 / cg"
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	83	"Modified: / 9.6.1999 / 17:37:36 / cg"
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	84	!
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	85
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	86	testMul5_a:arg
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	87	^ arg * 5
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	88
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	89	"
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	90	(self testMul5_a:0) == 0
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	91	(self testMul5_a:1) == 5
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	92	(self testMul5_a:-1) == -5
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	93	(self testMul5_a:10000) == 50000
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	94	(self testMul5_a:SmallInteger maxVal//5) == 4611686018427387900
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	95	(self testMul5_a:SmallInteger maxVal//4+1) = 4611686018427387905
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	96	"
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	97
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	98	"Created: / 9.6.1999 / 17:38:17 / cg"
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	99	!
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	100
31 4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	101	testMulM1_a:arg
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	102	^ arg * -1
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	103
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	104	"
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	105	(self testMulM1_a:0) == 0
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	106	(self testMulM1_a:1) == -1
32 03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	107	(self testMulM1_a:SmallInteger maxVal) == (SmallInteger minVal + 1)
03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	108	(self testMulM1_a:SmallInteger minVal) = (SmallInteger maxVal + 1)
31 4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	109	"
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	110
32 03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	111	"Modified: / 9.6.1999 / 16:54:02 / cg"
31 4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	112	!
4738d31a625e checkin from browser Claus Gittinger <cg@exept.de> parents: 29 diff changeset	113
4 28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	114	testPlus1_a:arg
28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	115	^ arg + 1
28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	116
28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	117	"
28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	118	(self testPlus1_a:SmallInteger maxVal) = 1073741824
28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	119	"
28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	120	!
28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	121
28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	122	testPlus1_b:arg
28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	123	^ arg perform:#+ with:1
28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	124
28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	125	"
28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	126	(self testPlus1_b:SmallInteger maxVal) == 1073741824
28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	127	"
28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	128	! !
28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	129
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	130	!IntegerTest class methodsFor:'private'!
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131
91 a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	132	absPlusOneOf:arg
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	133	\|local1\|
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	134
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	135	local1 := arg.
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	136	^ local1 abs + 1
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	137
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	138
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	139	"
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	140	self absPlusOneOf:-1
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	141	self absPlusOneOf:-1.0
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	142	"
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	143
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	144	"Created: / 31.10.2000 / 20:21:52 / cg"
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	145	!
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	146
89 228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	147	alwaysTrue
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	148	^ true.!
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	149
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	150	doConstantIntegerShift
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	151	"arithmetic tests.
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	152	Notice, the arithmetic tests are both performed via regular sends
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	153	and via constructed performs. The reason is to test both inlined
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	154	JIT-compiler code AND the regular methods code."
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	155
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	156	\|flags\|
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	157
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	158	flags := self flagsSlot.
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	159
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	160	self alwaysTrue ifFalse:[self halt].
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	161	^ flags bitShift:-1.
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	162
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	163	"
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	164	self testIntegerShifts3
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	165	"
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	166
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	167	"Created: / 6.6.1999 / 14:47:51 / cg"
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	168	"Modified: / 9.6.1999 / 17:49:57 / cg"!
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	169
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	170	flagsSlot
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	171	"arithmetic tests.
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	172	Notice, the arithmetic tests are both performed via regular sends
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	173	and via constructed performs. The reason is to test both inlined
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	174	JIT-compiler code AND the regular methods code."
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	175
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	176	^ 2.
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	177
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	178	"
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	179	self testIntegerShifts3
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	180	"
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	181
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	182	"Created: / 6.6.1999 / 14:47:51 / cg"
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	183	"Modified: / 9.6.1999 / 17:49:57 / cg"!
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	184
19 c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	185	num_00000000000007FFF
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	186	^ 16r00000000000007FFF
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	187
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	188	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	189	"Created: / 4.6.1999 / 15:34:12 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	190	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	191
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	192	num_00000000000008000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	193	^ 16r00000000000008000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	194
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	195	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	196	"Created: / 4.6.1999 / 15:39:32 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	197	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	198
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	199	num_0000000000000FFFF
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	200	^ 16r0000000000000FFFF
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	201
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	202	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	203	"Created: / 4.6.1999 / 15:34:26 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	204	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	205
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	206	num_00000000000010000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	207	^ 16r00000000000010000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	208
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	209	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	210	"Created: / 4.6.1999 / 15:34:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	211	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	212
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	213	num_00000000000100000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	214	^ 16r00000000000100000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	215
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	216	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	217	"Created: / 4.6.1999 / 15:34:36 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	218	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	219
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	220	num_000000000007FFFFF
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	221	^ 16r000000000007FFFFF
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	222
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	223	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	224	"Created: / 4.6.1999 / 15:37:48 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	225	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	226
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	227	num_00000000000800000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	228	^ 16r00000000000800000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	229
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	230	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	231	"Created: / 4.6.1999 / 15:39:43 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	232	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	233
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	234	num_00000000000FFFFFF
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	235	^ 16r00000000000FFFFFF
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	236
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	237	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	238	"Created: / 4.6.1999 / 15:37:52 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	239	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	240
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	241	num_00000000001000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	242	^ 16r00000000001000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	243
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	244	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	245	"Created: / 4.6.1999 / 15:34:42 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	246	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	247
22 7f01716fbbe2 checkin from browser Claus Gittinger <cg@exept.de> parents: 21 diff changeset	248	num_0000000000FFF0000
7f01716fbbe2 checkin from browser Claus Gittinger <cg@exept.de> parents: 21 diff changeset	249	^ 16r0000000000FFF0000
7f01716fbbe2 checkin from browser Claus Gittinger <cg@exept.de> parents: 21 diff changeset	250
7f01716fbbe2 checkin from browser Claus Gittinger <cg@exept.de> parents: 21 diff changeset	251	"self num_0000000000FFF0000 hexPrintString"
7f01716fbbe2 checkin from browser Claus Gittinger <cg@exept.de> parents: 21 diff changeset	252
7f01716fbbe2 checkin from browser Claus Gittinger <cg@exept.de> parents: 21 diff changeset	253	"Created: / 4.6.1999 / 17:44:26 / cg"
7f01716fbbe2 checkin from browser Claus Gittinger <cg@exept.de> parents: 21 diff changeset	254	"Modified: / 4.6.1999 / 18:40:47 / cg"
7f01716fbbe2 checkin from browser Claus Gittinger <cg@exept.de> parents: 21 diff changeset	255	!
7f01716fbbe2 checkin from browser Claus Gittinger <cg@exept.de> parents: 21 diff changeset	256
19 c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	257	num_00000000010000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	258	^ 16r00000000010000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	259
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	260	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	261	"Created: / 4.6.1999 / 15:34:46 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	262	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	263
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	264	num_0000000007FFFFFFF
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	265	^ 16r0000000007FFFFFFF
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	266
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	267	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	268	"Created: / 4.6.1999 / 15:37:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	269	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	270
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	271	num_00000000080000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	272	^ 16r00000000080000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	273
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	274	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	275	"Created: / 4.6.1999 / 15:39:56 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	276	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	277
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	278	num_000000000FFFFFFFF
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	279	^ 16r000000000FFFFFFFF
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	280
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	281	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	282	"Created: / 4.6.1999 / 15:36:16 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	283	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	284
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	285	num_00000000100000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	286	^ 16r00000000100000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	287
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	288	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	289	"Created: / 4.6.1999 / 15:34:51 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	290	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	291
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	292	num_00000001000000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	293	^ 16r00000001000000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	294
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	295	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	296	"Created: / 4.6.1999 / 15:34:57 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	297	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	298
21 7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	299	num_0000000FFFFFFFFFF
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	300	^ 16r0000000FFFFFFFFFF
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	301
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	302	"Modified: / 4.6.1999 / 15:29:31 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	303	"Created: / 4.6.1999 / 17:41:08 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	304	!
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	305
19 c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	306	num_00000010000000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	307	^ 16r00000010000000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	308
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	309	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	310	"Created: / 4.6.1999 / 15:35:03 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	311	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	312
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	313	num_00000100000000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	314	^ 16r00000100000000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	315
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	316	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	317	"Created: / 4.6.1999 / 15:35:07 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	318	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	319
21 7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	320	num_00000FFFFFFFFFF00
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	321	^ 16r00000FFFFFFFFFF00
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	322
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	323	"self num_00000FFFFFFFFFF00"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	324
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	325	"Created: / 4.6.1999 / 17:44:26 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	326	"Modified: / 4.6.1999 / 17:46:20 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	327	!
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	328
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	329	num_00000FFFFFFFFFF80
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	330	^ 16r00000FFFFFFFFFF80
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	331
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	332	"Modified: / 4.6.1999 / 15:29:31 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	333	"Created: / 4.6.1999 / 17:44:23 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	334	!
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	335
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	336	num_00000FFFFFFFFFFC0
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	337	^ 16r00000FFFFFFFFFFC0
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	338
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	339	"Modified: / 4.6.1999 / 15:29:31 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	340	"Created: / 4.6.1999 / 17:44:20 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	341	!
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	342
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	343	num_00000FFFFFFFFFFE0
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	344	^ 16r00000FFFFFFFFFFE0
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	345
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	346	"Modified: / 4.6.1999 / 15:29:31 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	347	"Created: / 4.6.1999 / 17:44:16 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	348	!
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	349
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	350	num_00000FFFFFFFFFFF0
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	351	^ 16r00000FFFFFFFFFFF0
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	352
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	353	"Modified: / 4.6.1999 / 15:29:31 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	354	"Created: / 4.6.1999 / 17:44:12 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	355	!
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	356
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	357	num_00000FFFFFFFFFFF8
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	358	^ 16r00000FFFFFFFFFFF8
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	359
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	360	"Modified: / 4.6.1999 / 15:29:31 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	361	"Created: / 4.6.1999 / 17:44:09 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	362	!
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	363
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	364	num_00000FFFFFFFFFFFC
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	365	^ 16r00000FFFFFFFFFFFC
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	366
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	367	"Modified: / 4.6.1999 / 15:29:31 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	368	"Created: / 4.6.1999 / 17:44:05 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	369	!
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	370
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	371	num_00000FFFFFFFFFFFE
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	372	^ 16r00000FFFFFFFFFFFE
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	373
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	374	"Modified: / 4.6.1999 / 15:29:31 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	375	"Created: / 4.6.1999 / 17:45:12 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	376	!
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	377
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	378	num_00000FFFFFFFFFFFF
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	379	^ 16r00000FFFFFFFFFFFF
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	380
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	381	"Modified: / 4.6.1999 / 15:29:31 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	382	"Created: / 4.6.1999 / 17:41:22 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	383	!
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	384
19 c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	385	num_00001000000000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	386	^ 16r00001000000000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	387
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	388	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	389	"Created: / 4.6.1999 / 15:35:13 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	390	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	391
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	392	num_00010000000000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	393	^ 16r00010000000000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	394
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	395	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	396	"Created: / 4.6.1999 / 15:35:18 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	397	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	398
21 7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	399	num_000FFFFFFFFFFFFFF
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	400	^ 16r000FFFFFFFFFFFFFF
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	401
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	402	"Modified: / 4.6.1999 / 15:29:31 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	403	"Created: / 4.6.1999 / 17:41:26 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	404	!
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	405
19 c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	406	num_00100000000000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	407	^ 16r00100000000000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	408
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	409	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	410	"Created: / 4.6.1999 / 15:35:22 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	411	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	412
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	413	num_01000000000000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	414	^ 16r01000000000000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	415
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	416	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	417	"Created: / 4.6.1999 / 15:35:27 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	418	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	419
21 7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	420	num_0FFFFFFFFFFFFFFFF
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	421	^ 16r0FFFFFFFFFFFFFFFF
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	422
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	423	"Modified: / 4.6.1999 / 15:29:31 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	424	"Created: / 4.6.1999 / 17:41:30 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	425	!
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	426
19 c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	427	num_10000000000000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	428	^ 16r10000000000000000
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	429
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	430	"Modified: / 4.6.1999 / 15:29:31 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	431	"Created: / 4.6.1999 / 15:35:32 / cg"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	432	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	433
21 7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	434	num_1FFFFFFFFFFFFFFFF
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	435	^ 16r1FFFFFFFFFFFFFFFF
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	436
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	437	"Modified: / 4.6.1999 / 15:29:31 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	438	"Created: / 4.6.1999 / 17:41:51 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	439	!
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	440
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	441	num_20000000000000000
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	442	^ 16r20000000000000000
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	443
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	444	"Modified: / 4.6.1999 / 15:29:31 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	445	"Created: / 4.6.1999 / 17:40:26 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	446	!
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	447
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	448	num_3FFFFFFFFFFFFFFFF
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	449	^ 16r3FFFFFFFFFFFFFFFF
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	450
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	451	"Modified: / 4.6.1999 / 15:29:31 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	452	"Created: / 4.6.1999 / 17:42:07 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	453	!
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	454
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	455	num_40000000000000000
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	456	^ 16r40000000000000000
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	457
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	458	"Modified: / 4.6.1999 / 15:29:31 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	459	"Created: / 4.6.1999 / 17:40:29 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	460	!
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	461
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	462	num_7FFFFFFFFFFFFFFFF
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	463	^ 16r7FFFFFFFFFFFFFFFF
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	464
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	465	"Modified: / 4.6.1999 / 15:29:31 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	466	"Created: / 4.6.1999 / 17:42:24 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	467	!
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	468
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	469	num_80000000000000000
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	470	^ 16r80000000000000000
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	471
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	472	"Modified: / 4.6.1999 / 15:29:31 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	473	"Created: / 4.6.1999 / 17:40:33 / cg"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	474	!
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	475
20 c6b0a35e5bc7 checkin from browser Claus Gittinger <cg@exept.de> parents: 19 diff changeset	476	num_smallInt_maxVal
c6b0a35e5bc7 checkin from browser Claus Gittinger <cg@exept.de> parents: 19 diff changeset	477	^ SmallInteger maxVal
c6b0a35e5bc7 checkin from browser Claus Gittinger <cg@exept.de> parents: 19 diff changeset	478
21 7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	479	"self num_smallInt_maxVal"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	480
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	481	"Modified: / 4.6.1999 / 17:33:22 / cg"
20 c6b0a35e5bc7 checkin from browser Claus Gittinger <cg@exept.de> parents: 19 diff changeset	482	!
c6b0a35e5bc7 checkin from browser Claus Gittinger <cg@exept.de> parents: 19 diff changeset	483
c6b0a35e5bc7 checkin from browser Claus Gittinger <cg@exept.de> parents: 19 diff changeset	484	num_smallInt_minVal
c6b0a35e5bc7 checkin from browser Claus Gittinger <cg@exept.de> parents: 19 diff changeset	485	^ SmallInteger minVal
c6b0a35e5bc7 checkin from browser Claus Gittinger <cg@exept.de> parents: 19 diff changeset	486
21 7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	487	"self num_smallInt_minVal"
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	488
20 c6b0a35e5bc7 checkin from browser Claus Gittinger <cg@exept.de> parents: 19 diff changeset	489	"Created: / 4.6.1999 / 16:26:05 / cg"
21 7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	490	"Modified: / 4.6.1999 / 17:34:31 / cg"
20 c6b0a35e5bc7 checkin from browser Claus Gittinger <cg@exept.de> parents: 19 diff changeset	491	!
c6b0a35e5bc7 checkin from browser Claus Gittinger <cg@exept.de> parents: 19 diff changeset	492
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	493	test:aBlock
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	494	aBlock value == true ifFalse:[
70 c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	495	self halt:'test failed'
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	496	]
54 77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	497	!
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	498
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	499	testIsInteger:arg
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	500	^ arg isInteger
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	501	! !
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	502
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	503	!IntegerTest class methodsFor:'tests'!
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	504
57 14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	505	testAll
10 3cbe91972e2b checkin from browser Claus Gittinger <cg@exept.de> parents: 9 diff changeset	506	"general conversion & arithmetic tests.
3cbe91972e2b checkin from browser Claus Gittinger <cg@exept.de> parents: 9 diff changeset	507	Notice, the arithmetic tests are both performed via regular sends
3cbe91972e2b checkin from browser Claus Gittinger <cg@exept.de> parents: 9 diff changeset	508	and via constructed performs. The reason is to test both inlined
3cbe91972e2b checkin from browser Claus Gittinger <cg@exept.de> parents: 9 diff changeset	509	JIT-compiler code AND the regular methods code."
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	510
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	511
57 14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	512	self testInteger1.
54 77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	513	self testILC.
27 8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	514	self testSmallIntegerArithmetic.
19 c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	515	self testLiteralNumbers.
15 99df9ea7f146 checkin from browser Claus Gittinger <cg@exept.de> parents: 14 diff changeset	516	self testLargeAddition.
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	517	self testLargeMultiplication.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	518	self testLargeDivision.
42 b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	519	self testIntegerShifts.
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	520	self testEncodeDecode.
53 94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	521	self testIntegerMisc.
91 a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	522	self testInline1.
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	523
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	524	"
57 14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	525	self testAll
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	526	"
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	527
91 a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	528	"Modified: / 31.10.2000 / 20:23:20 / cg"
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	529	!
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	530
42 b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	531	testEncodeDecode
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	532	self test:[1 encodeAsBCD hexPrintString = '1'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	533	self test:[12 encodeAsBCD hexPrintString = '12'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	534	self test:[123 encodeAsBCD hexPrintString = '123'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	535	self test:[1234 encodeAsBCD hexPrintString = '1234'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	536	self test:[12345 encodeAsBCD hexPrintString = '12345'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	537	self test:[123456 encodeAsBCD hexPrintString = '123456'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	538	self test:[1234567 encodeAsBCD hexPrintString = '1234567'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	539	self test:[12345678 encodeAsBCD hexPrintString = '12345678'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	540	self test:[123456789 encodeAsBCD hexPrintString = '123456789'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	541	self test:[1234567890 encodeAsBCD hexPrintString = '1234567890'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	542	self test:[12345678901 encodeAsBCD hexPrintString = '12345678901'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	543	self test:[123456789012 encodeAsBCD hexPrintString = '123456789012'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	544	self test:[1234567890123 encodeAsBCD hexPrintString = '1234567890123'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	545	self test:[12345678901234 encodeAsBCD hexPrintString = '12345678901234'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	546	self test:[123456789012345 encodeAsBCD hexPrintString = '123456789012345'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	547	self test:[1234567890123456 encodeAsBCD hexPrintString = '1234567890123456'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	548	self test:[12345678901234567 encodeAsBCD hexPrintString = '12345678901234567'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	549	self test:[123456789012345678 encodeAsBCD hexPrintString = '123456789012345678'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	550	self test:[1234567890123456789 encodeAsBCD hexPrintString = '1234567890123456789'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	551	self test:[12345678901234567890 encodeAsBCD hexPrintString = '12345678901234567890'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	552	self test:[4611686018427387902 encodeAsBCD hexPrintString = '4611686018427387902'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	553	self test:[4611686018427387903 encodeAsBCD hexPrintString = '4611686018427387903'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	554	self test:[4611686018427387904 encodeAsBCD hexPrintString = '4611686018427387904'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	555
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	556	self test:[16r1 decodeFromBCD = 1].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	557	self test:[16r12 decodeFromBCD = 12].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	558	self test:[16r123 decodeFromBCD = 123].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	559	self test:[16r1234 decodeFromBCD = 1234].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	560	self test:[16r12345 decodeFromBCD = 12345].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	561	self test:[16r123456 decodeFromBCD = 123456].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	562	self test:[16r1234567 decodeFromBCD = 1234567].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	563	self test:[16r12345678 decodeFromBCD = 12345678].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	564	self test:[16r123456789 decodeFromBCD = 123456789].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	565	self test:[16r1234567890 decodeFromBCD = 1234567890].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	566	self test:[16r12345678901 decodeFromBCD = 12345678901].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	567	self test:[16r123456789012 decodeFromBCD = 123456789012].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	568	self test:[16r1000000000000 decodeFromBCD = 1000000000000].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	569	self test:[16r0000500000000 decodeFromBCD = 500000000].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	570	self test:[16r1234500000000 decodeFromBCD = 1234500000000].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	571	self test:[16r1234567890000 decodeFromBCD = 1234567890000].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	572
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	573	self test:[16r1234567890123 decodeFromBCD = 1234567890123].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	574	self test:[16r12345678901234 decodeFromBCD = 12345678901234].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	575	self test:[16r123456789012345 decodeFromBCD = 123456789012345].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	576	self test:[16r1234567890123456 decodeFromBCD = 1234567890123456].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	577	self test:[16r12345678901234567 decodeFromBCD = 12345678901234567].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	578	self test:[16r123456789012345678 decodeFromBCD = 123456789012345678].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	579	self test:[16r1234567890123456789 decodeFromBCD = 1234567890123456789].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	580	self test:[16r12345678901234567890 decodeFromBCD = 12345678901234567890].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	581	self test:[16r4611686018427387902 decodeFromBCD = 4611686018427387902].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	582	self test:[16r4611686018427387903 decodeFromBCD = 4611686018427387903].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	583	self test:[16r4611686018427387904 decodeFromBCD = 4611686018427387904].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	584
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	585	"
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	586	self testEncodeDecode
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	587	"
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	588
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	589	"Modified: / 26.10.1999 / 22:01:35 / stefan"
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	590	!
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	591
54 77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	592	testILC
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	593	"inline-cache"
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	594
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	595	self test:[(self testIsInteger:1) == true].
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	596	self test:[(self testIsInteger:nil) == false].
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	597	self test:[(self testIsInteger:1) == true].
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	598	self test:[(self testIsInteger:nil) == false].
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	599
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	600	self test:[(self testIsInteger:0) == true].
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	601	self test:[(self testIsInteger:nil) == false].
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	602	self test:[(self testIsInteger:0) == true].
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	603	self test:[(self testIsInteger:nil) == false].
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	604
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	605	"
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	606	self testILC
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	607	"
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	608
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	609	"Created: / 6.6.1999 / 14:47:51 / cg"
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	610	"Modified: / 9.6.1999 / 17:49:57 / cg"
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	611	!
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	612
91 a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	613	testInline1
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	614	"inlined tests.
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	615	Notice, the arithmetic tests are both performed via regular sends
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	616	and via constructed performs. The reason is to test both inlined
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	617	JIT-compiler code AND the regular methods code."
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	618
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	619	self test: [ (self absPlusOneOf:1) = 2 ].
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	620	self test: [ (self absPlusOneOf:-1) = 2 ].
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	621	self test: [ (self absPlusOneOf:1.0) = 2 ].
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	622	self test: [ (self absPlusOneOf:-1.0) = 2 ].
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	623
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	624	"
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	625	self testInline1
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	626	"
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	627
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	628	"Created: / 31.10.2000 / 20:22:48 / cg"
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	629	"Modified: / 31.10.2000 / 20:23:06 / cg"
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	630	!
a781d70791b7 checkin from browser Claus Gittinger <cg@exept.de> parents: 89 diff changeset	631
57 14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	632	testInteger1
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	633	"general conversion & arithmetic tests.
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	634	Notice, the arithmetic tests are both performed via regular sends
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	635	and via constructed performs. The reason is to test both inlined
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	636	JIT-compiler code AND the regular methods code."
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	637
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	638	\|minVal maxVal maxValPlus1 minValMinus1 halfMin halfMax t t1 t2\|
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	639
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	640	minVal := SmallInteger perform:('minVal' asSymbol).
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	641	maxVal := SmallInteger perform:('maxVal' asSymbol).
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	642
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	643	self test:[minVal == self num_smallInt_minVal].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	644	self test:[maxVal == self num_smallInt_maxVal].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	645
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	646	self test:[minVal == SmallInteger minVal].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	647	self test:[maxVal == SmallInteger maxVal].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	648
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	649	t := SmallInteger perform:('maxBytes' asSymbol).
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	650	self test:[t == SmallInteger maxBytes].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	651	t := SmallInteger perform:('maxBits' asSymbol).
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	652	self test:[t == SmallInteger maxBits].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	653
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	654	self testPrinting1.
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	655
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	656	SmallInteger maxBytes == 4 ifTrue:[
70 c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	657	self test:[minVal hexPrintString = '-40000000'].
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	658	self test:[maxVal hexPrintString = '3FFFFFFF'].
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	659	self test:[minVal == -1073741824].
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	660	self test:[maxVal == 1073741823].
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	661	maxValPlus1 := 1073741824.
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	662	minValMinus1 := -1073741825.
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	663	self test:[minValMinus1 hexPrintString = '-40000001'].
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	664	self test:[maxValPlus1 hexPrintString = '40000000'].
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	665	halfMin := -16r20000000.
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	666	halfMax := 16r20000000.
57 14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	667	].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	668	SmallInteger maxBytes == 8 ifTrue:[
70 c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	669	self test:[minVal hexPrintString = '-4000000000000000'].
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	670	self test:[maxVal hexPrintString = '3FFFFFFFFFFFFFFF'].
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	671	self test:[minVal == -4611686018427387904].
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	672	self test:[maxVal == 4611686018427387903].
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	673	maxValPlus1 := 4611686018427387904.
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	674	minValMinus1 := -4611686018427387905.
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	675	self test:[minValMinus1 hexPrintString = '-4000000000000001'].
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	676	self test:[maxValPlus1 hexPrintString = '4000000000000000'].
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	677	halfMin := -16r2000000000000000.
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	678	halfMax := 16r2000000000000000.
57 14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	679	].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	680
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	681	"arithmetic overFlow checks"
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	682
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	683	"/ self test:[(maxVal + 1) inspect.maxValPlus1 inspect. true].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	684	self test:[(maxVal perform:'+' asSymbol with:1) = maxValPlus1].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	685	self test:[(maxVal + 1) = maxValPlus1].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	686	self test:[(minVal perform:'-' asSymbol with:1) = minValMinus1].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	687	self test:[(minVal - 1) = minValMinus1].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	688
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	689	self test:[(halfMax perform:'+' asSymbol with:halfMax) = maxValPlus1].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	690	self test:[(halfMax + halfMax) = maxValPlus1].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	691	self test:[(halfMin perform:'+' asSymbol with:halfMin) == minVal].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	692	self test:[(halfMin + halfMin) == minVal].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	693	self test:[(halfMax perform:'*' asSymbol with:2) = maxValPlus1].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	694	self test:[(halfMax * 2) = maxValPlus1].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	695	self test:[(halfMin perform:'*' asSymbol with:2) == minVal].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	696	self test:[(halfMin * 2) == minVal].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	697	self test:[(maxValPlus1 perform:'//' asSymbol with:2) == halfMax].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	698	self test:[(maxValPlus1 // 2) == halfMax].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	699	self test:[(halfMax perform:'bitShift:' asSymbol with:1) = maxValPlus1].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	700	self test:[(halfMin perform:'bitShift:' asSymbol with:1) == minVal].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	701	self test:[(halfMax bitShift:1) = maxValPlus1].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	702	self test:[(halfMin bitShift:1) == minVal].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	703
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	704	"LargeInt op -> SmallInt result"
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	705	t := maxVal + 1.
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	706	self test:[t - 1 == maxVal].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	707	t := minVal - 1.
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	708	self test:[t + 1 == minVal].
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	709
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	710	"
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	711	self testInteger1
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	712	"
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	713
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	714	"Modified: / 6.6.1999 / 14:46:11 / cg"
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	715	!
14aec105070d category Claus Gittinger <cg@exept.de> parents: 56 diff changeset	716
53 94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	717	testIntegerMisc
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	718	"misc tests.
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	719	Notice, the arithmetic tests are both performed via regular sends
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	720	and via constructed performs. The reason is to test both inlined
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	721	JIT-compiler code AND the regular methods code."
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	722
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	723	\|n1 n2 s\|
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	724
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	725	n1 := 100000.
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	726	n2 := n1 negated.
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	727	s := 1.
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	728
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	729	self test:[n1 printString = '100000'].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	730
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	731	self test:[n1 negated printString = '-100000'].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	732	self test:[(n1 perform:'negated' asSymbol) printString = '-100000'].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	733
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	734	self test:[n1 negated abs printString = '100000'].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	735	self test:[(n1 perform:'negated' asSymbol) abs printString = '100000'].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	736
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	737	self test:[n1 abs negated printString = '-100000'].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	738	self test:[(n1 perform:'abs' asSymbol) negated printString = '-100000'].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	739
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	740	n1 := SmallInteger maxVal.
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	741	self test:[n1 negated class == SmallInteger].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	742	self test:[(n1 perform:'negated' asSymbol) class == SmallInteger].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	743
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	744	n1 := SmallInteger minVal.
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	745	self test:[n1 negated class == LargeInteger].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	746	self test:[(n1 perform:'negated' asSymbol) class == LargeInteger].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	747
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	748	n1 := SmallInteger minVal negated - 1.
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	749	self test:[n1 negated class == SmallInteger].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	750	self test:[(n1 perform:'negated' asSymbol) class == SmallInteger].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	751	self test:[n1 == SmallInteger maxVal].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	752
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	753	"
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	754	self testIntegerMisc
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	755	"
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	756
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	757	"Created: / 6.6.1999 / 14:47:51 / cg"
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	758	"Modified: / 9.6.1999 / 17:49:57 / cg"
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	759	!
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	760
41 7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	761	testIntegerShifts
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	762	"arithmetic tests.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	763	Notice, the arithmetic tests are both performed via regular sends
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	764	and via constructed performs. The reason is to test both inlined
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	765	JIT-compiler code AND the regular methods code."
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	766
45 5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	767	self testIntegerShifts1.
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	768	self testIntegerShifts2.
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	769
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	770	self test:[
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	771	(((0 to:64) collect:[:s \| 1 bitShift:s])
70 c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	772	collect:[:n \| n highBit]) = (1 to:65)
45 5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	773	].
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	774
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	775	1 to:10000 do:[:s \|
70 c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	776	self test:[ (1 bitShift:s) highBit == (s+1) ]
45 5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	777	].
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	778	1 to:10000 do:[:s \|
70 c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	779	self test:[ ((1 bitShift:s) - 1) highBit == s ]
45 5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	780	].
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	781
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	782	"
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	783	self testIntegerShifts
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	784	"
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	785
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	786	"Created: / 6.6.1999 / 14:47:51 / cg"
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	787	"Modified: / 9.6.1999 / 17:49:57 / cg"
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	788	!
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	789
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	790	testIntegerShifts1
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	791	"arithmetic tests.
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	792	Notice, the arithmetic tests are both performed via regular sends
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	793	and via constructed performs. The reason is to test both inlined
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	794	JIT-compiler code AND the regular methods code."
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	795
41 7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	796	\|n1 n2 s\|
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	797
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	798	n1 := 100000.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	799	n2 := n1 negated.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	800	s := 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	801
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	802	self test:[n1 printString = '100000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	803	self test:[n2 printString = '-100000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	804
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	805	self test:[(n1 bitShift:s) printString = '200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	806	self test:[(n1 bitShift:1) printString = '200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	807	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	808	self test:[(n1 perform:'bitShift:' asSymbol with:1) printString = '200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	809
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	810	s := s + 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	811	self test:[(n1 bitShift:s) printString = '400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	812	self test:[(n1 bitShift:2) printString = '400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	813	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	814	self test:[(n1 perform:'bitShift:' asSymbol with:2) printString = '400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	815
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	816	s := s + 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	817	self test:[(n1 bitShift:s) printString = '800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	818	self test:[(n1 bitShift:3) printString = '800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	819	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	820	self test:[(n1 perform:'bitShift:' asSymbol with:3) printString = '800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	821
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	822	s := s + 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	823	self test:[(n1 bitShift:s) printString = '1600000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	824	self test:[(n1 bitShift:4) printString = '1600000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	825	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '1600000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	826	self test:[(n1 perform:'bitShift:' asSymbol with:4) printString = '1600000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	827
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	828	s := s + 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	829	self test:[(n1 bitShift:s) printString = '3200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	830	self test:[(n1 bitShift:5) printString = '3200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	831	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '3200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	832	self test:[(n1 perform:'bitShift:' asSymbol with:5) printString = '3200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	833
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	834	s := s + 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	835	self test:[(n1 bitShift:s) printString = '6400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	836	self test:[(n1 bitShift:6) printString = '6400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	837	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '6400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	838	self test:[(n1 perform:'bitShift:' asSymbol with:6) printString = '6400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	839
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	840	s := s + 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	841	self test:[(n1 bitShift:s) printString = '12800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	842	self test:[(n1 bitShift:7) printString = '12800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	843	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '12800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	844	self test:[(n1 perform:'bitShift:' asSymbol with:7) printString = '12800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	845
45 5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	846	"
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	847	self testIntegerShifts1
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	848	"
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	849
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	850	"Created: / 6.6.1999 / 14:47:51 / cg"
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	851	"Modified: / 9.6.1999 / 17:49:57 / cg"
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	852	!
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	853
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	854	testIntegerShifts2
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	855	"arithmetic tests.
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	856	Notice, the arithmetic tests are both performed via regular sends
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	857	and via constructed performs. The reason is to test both inlined
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	858	JIT-compiler code AND the regular methods code."
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	859
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	860	\|n1 s\|
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	861
41 7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	862	n1 := 12800000.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	863	s := -1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	864	self test:[(n1 bitShift:s) printString = '6400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	865	self test:[(n1 bitShift:-1) printString = '6400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	866	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '6400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	867	self test:[(n1 perform:'bitShift:' asSymbol with:-1) printString = '6400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	868
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	869	s := s - 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	870	self test:[(n1 bitShift:s) printString = '3200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	871	self test:[(n1 bitShift:-2) printString = '3200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	872	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '3200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	873	self test:[(n1 perform:'bitShift:' asSymbol with:-2) printString = '3200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	874
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	875	s := s - 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	876	self test:[(n1 bitShift:s) printString = '1600000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	877	self test:[(n1 bitShift:-3) printString = '1600000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	878	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '1600000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	879	self test:[(n1 perform:'bitShift:' asSymbol with:-3) printString = '1600000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	880
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	881	s := s - 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	882	self test:[(n1 bitShift:s) printString = '800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	883	self test:[(n1 bitShift:-4) printString = '800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	884	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	885	self test:[(n1 perform:'bitShift:' asSymbol with:-4) printString = '800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	886
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	887	s := s - 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	888	self test:[(n1 bitShift:s) printString = '400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	889	self test:[(n1 bitShift:-5) printString = '400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	890	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	891	self test:[(n1 perform:'bitShift:' asSymbol with:-5) printString = '400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	892
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	893	s := s - 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	894	self test:[(n1 bitShift:s) printString = '200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	895	self test:[(n1 bitShift:-6) printString = '200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	896	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	897	self test:[(n1 perform:'bitShift:' asSymbol with:-6) printString = '200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	898
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	899	s := s - 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	900	self test:[(n1 bitShift:s) printString = '100000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	901	self test:[(n1 bitShift:-7) printString = '100000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	902	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '100000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	903	self test:[(n1 perform:'bitShift:' asSymbol with:-7) printString = '100000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	904
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	905	s := s - 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	906	self test:[(n1 bitShift:s) printString = '50000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	907	self test:[(n1 bitShift:-8) printString = '50000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	908	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '50000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	909	self test:[(n1 perform:'bitShift:' asSymbol with:-8) printString = '50000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	910
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	911	s := s - 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	912	self test:[(n1 bitShift:s) printString = '25000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	913	self test:[(n1 bitShift:-9) printString = '25000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	914	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '25000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	915	self test:[(n1 perform:'bitShift:' asSymbol with:-9) printString = '25000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	916
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	917	s := s - 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	918	self test:[(n1 bitShift:s) printString = '12500'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	919	self test:[(n1 bitShift:-10) printString = '12500'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	920	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '12500'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	921	self test:[(n1 perform:'bitShift:' asSymbol with:-10) printString = '12500'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	922
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	923	s := s - 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	924	self test:[(n1 bitShift:s) printString = '6250'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	925	self test:[(n1 bitShift:-11) printString = '6250'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	926	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '6250'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	927	self test:[(n1 perform:'bitShift:' asSymbol with:-11) printString = '6250'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	928
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	929	"
45 5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	930	self testIntegerShifts2
41 7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	931	"
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	932
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	933	"Created: / 6.6.1999 / 14:47:51 / cg"
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	934	"Modified: / 9.6.1999 / 17:49:57 / cg"
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	935	!
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	936
89 228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	937	testIntegerShifts3
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	938	"arithmetic tests.
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	939	Notice, the arithmetic tests are both performed via regular sends
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	940	and via constructed performs. The reason is to test both inlined
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	941	JIT-compiler code AND the regular methods code."
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	942
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	943	self test:[ self doConstantIntegerShift == 1].
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	944
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	945	"
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	946	self testIntegerShifts3
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	947	"!
228f2b80bc17 bitShift-test Claus Gittinger <cg@exept.de> parents: 70 diff changeset	948
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	949	testLargeAddition
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	950	"general conversion & arithmetic tests.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	951	Notice, the arithmetic tests are both performed via regular sends
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	952	and via constructed performs. The reason is to test both inlined
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	953	JIT-compiler code AND the regular methods code."
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	954
19 c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	955	\|s n1 n2 x\|
13 45a348a410e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 12 diff changeset	956
23 5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	957	"Large + Large addition"
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	958	self testReading1.
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	959
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	960	self test:[(20 factorial + 20 factorial) printString = '4865804016353280000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	961	self test:[(20 factorial + 1) printString = '2432902008176640001'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	962	self test:[(20 factorial + 1000) printString = '2432902008176641000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	963
29 cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	964	"Large + Small addition"
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	965
34 f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	966	self testLargeAddition1.
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	967
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	968	"Large + Large addition"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	969
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	970	self testLargeAddition2.
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	971
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	972	"Large - small subtraction"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	973
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	974	self testLargeAddition3.
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	975
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	976	"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	977	self testLargeAddition
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	978	"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	979
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	980	"Modified: / 4.6.1999 / 15:26:55 / cg"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	981	!
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	982
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	983	testLargeAddition1
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	984	"general conversion & arithmetic tests.
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	985	Notice, the arithmetic tests are both performed via regular sends
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	986	and via constructed performs. The reason is to test both inlined
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	987	JIT-compiler code AND the regular methods code."
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	988
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	989	\|s n1 n2 x\|
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	990
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	991	"Large + Small addition"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	992
29 cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	993	n1 := 16r3FFFFFFF. n2 := 1.
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	994	self test:[(n1 + n2 ) hexPrintString = '40000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	995	self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '40000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	996	n1 := 16r3FFFFFFFF. n2 := 1.
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	997	self test:[(n1 + n2 ) hexPrintString = '400000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	998	self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '400000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	999	n1 := 16r3FFFFFFFFF. n2 := 1.
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1000	self test:[(n1 + n2 ) hexPrintString = '4000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1001	self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '4000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1002	n1 := 16r3FFFFFFFFFF. n2 := 1.
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1003	self test:[(n1 + n2 ) hexPrintString = '40000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1004	self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '40000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1005	n1 := 16r3FFFFFFFFFFF. n2 := 1.
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1006	self test:[(n1 + n2 ) hexPrintString = '400000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1007	self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '400000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1008	n1 := 16r3FFFFFFFFFFFF. n2 := 1.
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1009	self test:[(n1 + n2 ) hexPrintString = '4000000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1010	self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '4000000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1011	n1 := 16r3FFFFFFFFFFFFF. n2 := 1.
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1012	self test:[(n1 + n2 ) hexPrintString = '40000000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1013	self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '40000000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1014	n1 := 16r3FFFFFFFFFFFFFF. n2 := 1.
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1015	self test:[(n1 + n2 ) hexPrintString = '400000000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1016	self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '400000000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1017	n1 := 16r3FFFFFFFFFFFFFFF. n2 := 1.
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1018	self test:[(n1 + n2 ) hexPrintString = '4000000000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1019	self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '4000000000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1020
34 f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1021	"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1022	self testLargeAddition1
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1023	"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1024
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1025	"Modified: / 4.6.1999 / 15:26:55 / cg"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1026	!
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1027
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1028	testLargeAddition2
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1029	"general conversion & arithmetic tests.
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1030	Notice, the arithmetic tests are both performed via regular sends
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1031	and via constructed performs. The reason is to test both inlined
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1032	JIT-compiler code AND the regular methods code."
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1033
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1034	\|s n1 n2 x\|
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1035
29 cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	1036	"Large + Large addition"
23 5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1037
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1038	n1 := 16r100000000. n2 := 16r7FFFFFFF.
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1039	self test:[(n1 - n2 ) hexPrintString = '80000001'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1040	self test:[(16r100000000 - n2 ) hexPrintString = '80000001'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1041	self test:[(n1 - 16r7FFFFFFF ) hexPrintString = '80000001'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1042	self test:[(16r100000000 - 16r7FFFFFFF ) hexPrintString = '80000001'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1043	self test:[(n1 perform:'-' asSymbol with:n2 ) hexPrintString = '80000001'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1044	self test:[(16r100000000 perform:'-' asSymbol with:n2 ) hexPrintString = '80000001'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1045	self test:[(n1 perform:'-' asSymbol with:16r7FFFFFFF ) hexPrintString = '80000001'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1046	self test:[(16r100000000 perform:'-' asSymbol with:16r7FFFFFFF ) hexPrintString = '80000001'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1047
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1048	n1 := 16r100000000. n2 := 16r80000000.
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1049	self test:[(n1 - n2 ) hexPrintString = '80000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1050	self test:[(16r100000000 - n2 ) hexPrintString = '80000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1051	self test:[(n1 - 16r80000000 ) hexPrintString = '80000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1052	self test:[(16r100000000 - 16r80000000 ) hexPrintString = '80000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1053	self test:[(n1 perform:'-' asSymbol with:n2 ) hexPrintString = '80000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1054	self test:[(16r100000000 perform:'-' asSymbol with:n2 ) hexPrintString = '80000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1055	self test:[(n1 perform:'-' asSymbol with:16r80000000 ) hexPrintString = '80000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1056	self test:[(16r100000000 perform:'-' asSymbol with:16r80000000 ) hexPrintString = '80000000'].
17 2573c1ad19a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 16 diff changeset	1057
2573c1ad19a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 16 diff changeset	1058	n1 := 16r100000000. n2 := 16rFFFFFFFF.
23 5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1059	self test:[(n1 - n2 ) hexPrintString = '1'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1060	self test:[(16r100000000 - n2 ) hexPrintString = '1'].
19 c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1061	self test:[(x := n1 - 16rFFFFFFFF) == 1].
17 2573c1ad19a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 16 diff changeset	1062
23 5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1063	self test:[(n1 - 16rFFFFFFFF ) hexPrintString = '1'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1064	self test:[(16r100000000 - 16rFFFFFFFF ) hexPrintString = '1'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1065	self test:[(n1 perform:'-' asSymbol with:n2 ) hexPrintString = '1'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1066	self test:[(16r100000000 perform:'-' asSymbol with:n2 ) hexPrintString = '1'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1067	self test:[(n1 perform:'-' asSymbol with:16rFFFFFFFF ) hexPrintString = '1'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1068	self test:[(16r100000000 perform:'-' asSymbol with:16rFFFFFFFF ) hexPrintString = '1'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1069
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1070	n1 := 16r100000000. n2 := 1.
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1071	self test:[(n1 - n2) hexPrintString = 'FFFFFFFF'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1072	self test:[(n1 - n2) hexPrintString = 'FFFFFFFF'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1073	self test:[(16r100000000 - n2) hexPrintString = 'FFFFFFFF'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1074	self test:[(n1 - 1) hexPrintString = 'FFFFFFFF'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1075	self test:[(16r100000000 - 1) hexPrintString = 'FFFFFFFF'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1076	self test:[(n1 perform:'-' asSymbol with:n2) hexPrintString = 'FFFFFFFF'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1077	self test:[(16r100000000 perform:'-' asSymbol with:n2) hexPrintString = 'FFFFFFFF'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1078	self test:[(n1 perform:'-' asSymbol with:1) hexPrintString = 'FFFFFFFF'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1079	self test:[(16r100000000 perform:'-' asSymbol with:1) hexPrintString = 'FFFFFFFF'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1080
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1081	n1 := 16r100000000. n2 := 16r10000000.
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1082	self test:[(n1 - n2) hexPrintString = 'F0000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1083	self test:[(16r100000000 - n2) hexPrintString = 'F0000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1084	self test:[(n1 - 16r10000000) hexPrintString = 'F0000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1085	self test:[(16r100000000 - 16r10000000) hexPrintString = 'F0000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1086	self test:[(n1 perform:'-' asSymbol with:n2) hexPrintString = 'F0000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1087	self test:[(16r100000000 perform:'-' asSymbol with:n2) hexPrintString = 'F0000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1088	self test:[(n1 perform:'-' asSymbol with:16r10000000) hexPrintString = 'F0000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1089	self test:[(16r100000000 perform:'-' asSymbol with:16r10000000) hexPrintString = 'F0000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1090
34 f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1091	"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1092	self testLargeAddition2
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1093	"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1094
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1095	!
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1096
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1097	testLargeAddition3
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1098	"general conversion & arithmetic tests.
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1099	Notice, the arithmetic tests are both performed via regular sends
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1100	and via constructed performs. The reason is to test both inlined
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1101	JIT-compiler code AND the regular methods code."
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1102
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1103	\|s n1 n2 x\|
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1104
23 5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1105	"Large - small subtraction"
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1106	self test:[(20 factorial + 20 factorial - 1) printString = '4865804016353279999'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1107	self test:[(20 factorial - 10 factorial + 3628800) printString = '2432902008176640000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1108	self test:[(20 factorial - 11 factorial + 39916800) printString = '2432902008176640000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1109	self test:[(20 factorial - 12 factorial + 479001600) printString = '2432902008176640000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1110	self test:[(20 factorial - 13 factorial + 6227020800) printString = '2432902008176640000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1111	self test:[(20 factorial - 14 factorial + 87178291200) printString = '2432902008176640000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1112	self test:[(20 factorial - 15 factorial + 1307674368000) printString = '2432902008176640000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1113	self test:[(20 factorial - 16 factorial + 20922789888000) printString = '2432902008176640000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1114	self test:[(20 factorial + 10 factorial - 3628800) printString = '2432902008176640000'].
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1115
52 544196f29bee * empty log message * Claus Gittinger <cg@exept.de> parents: 51 diff changeset	1116	self test:[1000 factorial printString = '402387260077093773543702433923003985719374864210714632543799910429938512398629020592044208486969404800479988610197196058631666872994808558901323829669944590997424504087073759918823627727188732519779505950995276120874975462497043601418278094646496291056393887437886487337119181045825783647849977012476632889835955735432513185323958463075557409114262417474349347553428646576611667797396668820291207379143853719588249808126867838374559731746136085379534524221586593201928090878297308431392844403281231558611036976801357304216168747609675871348312025478589320767169132448426236131412508780208000261683151027341827977704784635868170164365024153691398281264810213092761244896359928705114964975419909342221566832572080821333186116811553615836546984046708975602900950537616475847728421889679646244945160765353408198901385442487984959953319101723355556602139450399736280750137837615307127761926849034352625200015888535147331611702103968175921510907788019393178114194545257223865541461062892187960223838971476088506276862967146674697562911234082439208160153780889893964518263243671616762179168909779911903754031274622289988005195444414282012187361745992642956581746628302955570299024324153181617210465832036786906117260158783520751516284225540265170483304226143974286933061690897968482590125458327168226458066526769958652682272807075781391858178889652208164348344825993266043367660176999612831860788386150279465955131156552036093988180612138558600301435694527224206344631797460594682573103790084024432438465657245014402821885252470935190620929023136493273497565513958720559654228749774011413346962715422845862377387538230483865688976461927383814900140767310446640259899490222221765904339901886018566526485061799702356193897017860040811889729918311021171229845901641921068884387121855646124960798722908519296819372388642614839657382291123125024186649353143970137428531926649875337218940694281434118520158014123344828015051399694290153483077644569099073152433278288269864602789864321139083506217095002597389863554277196742822248757586765752344220207573630569498825087968928162753848863396909959826280956121450994871701244516461260379029309120889086942028510640182154399457156805941872748998094254742173582401063677404595741785160829230135358081840096996372524230560855903700624271243416909004153690105933983835777939410970027753472000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000'].
51 0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1117
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1118	n1 := n2 := 1.
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1119	self test:[(1000 factorial + n1 - n2) = 1000 factorial].
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1120	n1 := n2 := 1000.
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1121	self test:[(1000 factorial + n1 - n2) = 1000 factorial].
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1122	n1 := n2 := 16rFFFFFFFF.
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1123	self test:[(1000 factorial + n1 - n2) = 1000 factorial].
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1124	n1 := n2 := 16rFFFFFFFFFFFF.
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1125	self test:[(1000 factorial + n1 - n2) = 1000 factorial].
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1126	n1 := n2 := 16rFFFFFFFFFFFFFFFF.
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1127	self test:[(1000 factorial + n1 - n2) = 1000 factorial].
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1128	n1 := n2 := 1000 factorial.
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1129	self test:[(1000 factorial + n1 - n2) = 1000 factorial].
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1130
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1131
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1132	"
34 f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1133	self testLargeAddition3
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1134	"
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1135
52 544196f29bee * empty log message * Claus Gittinger <cg@exept.de> parents: 51 diff changeset	1136	"Modified: / 27.11.1999 / 16:41:54 / cg"
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1137	!
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1138
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1139	testLargeDivision
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1140	\|t\|
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1141
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1142	t := 20 factorial.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1143
16 b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1144	self test:[t printString = '2432902008176640000'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1145	self test:[t \\ 10 == 0].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1146	t := t // 10.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1147	self test:[t printString = '243290200817664000'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1148	self test:[t \\ 10 == 0].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1149	t := t // 10.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1150	self test:[t printString = '24329020081766400'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1151	self test:[t \\ 10 == 0].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1152	t := t // 10.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1153	self test:[t printString = '2432902008176640'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1154	self test:[t \\ 10 == 0].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1155	t := t // 10.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1156	self test:[t printString = '243290200817664'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1157	self test:[t \\ 10 == 4].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1158	t := t // 10.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1159	self test:[t printString = '24329020081766'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1160	self test:[t \\ 10 == 6].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1161	t := t // 10.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1162	self test:[t printString = '2432902008176'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1163	self test:[t \\ 10 == 6].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1164	t := t // 10.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1165	self test:[t printString = '243290200817'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1166	self test:[t \\ 10 == 7].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1167	t := t // 10.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1168	self test:[t printString = '24329020081'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1169	self test:[t \\ 10 == 1].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1170	t := t // 10.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1171	self test:[t printString = '2432902008'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1172	self test:[t \\ 10 == 8].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1173	t := t // 10.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1174	self test:[t printString = '243290200'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1175	self test:[t \\ 10 == 0].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1176
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1177
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1178	t := 20 factorial.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1179
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1180	self test:[t printString = '2432902008176640000'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1181	self test:[t \\ 1000 == 0].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1182	t := t // 1000.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1183	self test:[t printString = '2432902008176640'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1184	self test:[t \\ 1000 == 640].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1185	t := t // 1000.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1186	self test:[t printString = '2432902008176'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1187	self test:[t \\ 1000 == 176].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1188	t := t // 1000.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1189	self test:[t printString = '2432902008'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1190	self test:[t \\ 1000 == 8].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1191	t := t // 1000.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1192	self test:[t printString = '2432902'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1193	self test:[t \\ 1000 == 902].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1194	t := t // 1000.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1195	self test:[t printString = '2432'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1196	self test:[t \\ 1000 == 432].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1197	t := t // 1000.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1198	self test:[t == 2].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1199	self test:[t \\ 1000 == 2].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1200
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1201
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1202	t := 20 factorial.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1203
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1204	"Large // SmallInt division"
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1205	t := t // 20.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1206	self test:[t printString = 19 factorial printString].
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1207	t := t // 19.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1208	self test:[t printString = 18 factorial printString].
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1209	t := t // 18.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1210	self test:[t printString = 17 factorial printString].
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1211	t := t // 17.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1212	self test:[t printString = 16 factorial printString].
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1213	t := t // 16.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1214	self test:[t printString = 15 factorial printString].
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1215	t := t // 15.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1216	self test:[t printString = 14 factorial printString].
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1217	t := t // 14.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1218	self test:[t printString = 13 factorial printString].
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1219	t := t // 13.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1220	self test:[t printString = 12 factorial printString].
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1221	t := t // 12.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1222	self test:[t printString = 11 factorial printString].
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1223	t := t // 11.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1224	self test:[t printString = 10 factorial printString].
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1225	self test:[t == 10 factorial].
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1226
26 eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1227	t := 20 factorial.
eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1228	t := t + 21 factorial.
eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1229	t absSubtract:21 factorial.
eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1230	self test:[t compressed = 20 factorial].
eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1231
eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1232	self test:[\|v\|
70 c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	1233	v := 100 factorial copy.
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	1234	v absSubtract:99 factorial.
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	1235	v compressed = (100 factorial - 99 factorial)].
26 eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1236
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1237	"Large // Large division"
26 eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1238	self test:[(20 factorial // 19 factorial) == 20].
eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1239	self test:[(20 factorial * 21 // 20 // 21) = (19 factorial)].
eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1240	self test:[(10000 factorial // 9999 factorial) == 10000].
eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1241	self test:[(10000 factorial // 9999 factorial) == (10000 factorial / 9999 factorial)].
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1242
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1243	"
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1244	self testLargeDivision
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1245	"
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1246
26 eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1247	"Modified: / 4.6.1999 / 23:54:57 / cg"
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1248	!
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1249
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1250	testLargeMultiplication
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1251	\|t1\|
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1252
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1253	"multiplication"
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1254	t1 := 100.
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1255	self test:[t1 * t1 == 10000].
10 3cbe91972e2b checkin from browser Claus Gittinger <cg@exept.de> parents: 9 diff changeset	1256	self test:[(t1 perform:'*' asSymbol with:t1) == 10000].
11 30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1257	self test:[(t1 * t1) printString = '10000'].
30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1258	self test:[(t1 perform:'*' asSymbol with:t1) printString = '10000'].
30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1259
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1260	t1 := 1000.
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1261	self test:[t1 * t1 == 1000000].
10 3cbe91972e2b checkin from browser Claus Gittinger <cg@exept.de> parents: 9 diff changeset	1262	self test:[(t1 perform:'*' asSymbol with:t1) == 1000000].
11 30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1263	self test:[(t1 * t1) printString = '1000000'].
30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1264	self test:[(t1 perform:'*' asSymbol with:t1) printString = '1000000'].
30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1265
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1266	t1 := 10000.
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1267	self test:[t1 * t1 == 100000000].
10 3cbe91972e2b checkin from browser Claus Gittinger <cg@exept.de> parents: 9 diff changeset	1268	self test:[(t1 perform:'*' asSymbol with:t1) == 100000000].
11 30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1269	self test:[(t1 * t1) printString = '100000000'].
30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1270	self test:[(t1 perform:'*' asSymbol with:t1) printString = '100000000'].
30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1271
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1272	t1 := 100000.
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1273	SmallInteger maxBytes == 4 ifTrue:[
70 c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	1274	self test:[t1 * t1 = 10000000000].
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	1275	self test:[(t1 perform:'*' asSymbol with:t1) = 10000000000].
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1276	].
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1277	SmallInteger maxBytes == 8 ifTrue:[
70 c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	1278	self test:[t1 * t1 == 10000000000].
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	1279	self test:[(t1 perform:'*' asSymbol with:t1) == 10000000000].
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1280	].
4 28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	1281
11 30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1282	self test:[(t1 * t1) printString = '10000000000'].
4 28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	1283	self test:[(t1 perform:'*' asSymbol with:t1) printString = '10000000000'].
11 30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1284
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1285	t1 := 1000000.
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1286	self test:[(t1 * t1) printString = '1000000000000'].
11 30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1287	self test:[(t1 perform:'*' asSymbol with:t1) printString = '1000000000000'].
30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1288
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1289	t1 := 10000000.
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1290	self test:[(t1 * t1) printString = '100000000000000'].
11 30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1291	self test:[(t1 perform:'*' asSymbol with:t1) printString = '100000000000000'].
30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1292
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1293	t1 := 100000000.
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1294	self test:[(t1 * t1) printString = '10000000000000000'].
11 30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1295	self test:[(t1 perform:'*' asSymbol with:t1) printString = '10000000000000000'].
30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1296
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1297	t1 := 1000000000.
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1298	self test:[(t1 * t1) printString = '1000000000000000000'].
11 30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1299	self test:[(t1 perform:'*' asSymbol with:t1) printString = '1000000000000000000'].
30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1300
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1301
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1302	"Large * SmallInt multiplication"
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1303	self test:[10 factorial printString = '3628800'].
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1304	self test:[20 factorial printString = '2432902008176640000'].
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1305	self test:[100 factorial printString = '93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000'].
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1306	self test:[1000 factorial printString = '402387260077093773543702433923003985719374864210714632543799910429938512398629020592044208486969404800479988610197196058631666872994808558901323829669944590997424504087073759918823627727188732519779505950995276120874975462497043601418278094646496291056393887437886487337119181045825783647849977012476632889835955735432513185323958463075557409114262417474349347553428646576611667797396668820291207379143853719588249808126867838374559731746136085379534524221586593201928090878297308431392844403281231558611036976801357304216168747609675871348312025478589320767169132448426236131412508780208000261683151027341827977704784635868170164365024153691398281264810213092761244896359928705114964975419909342221566832572080821333186116811553615836546984046708975602900950537616475847728421889679646244945160765353408198901385442487984959953319101723355556602139450399736280750137837615307127761926849034352625200015888535147331611702103968175921510907788019393178114194545257223865541461062892187960223838971476088506276862967146674697562911234082439208160153780889893964518263243671616762179168909779911903754031274622289988005195444414282012187361745992642956581746628302955570299024324153181617210465832036786906117260158783520751516284225540265170483304226143974286933061690897968482590125458327168226458066526769958652682272807075781391858178889652208164348344825993266043367660176999612831860788386150279465955131156552036093988180612138558600301435694527224206344631797460594682573103790084024432438465657245014402821885252470935190620929023136493273497565513958720559654228749774011413346962715422845862377387538230483865688976461927383814900140767310446640259899490222221765904339901886018566526485061799702356193897017860040811889729918311021171229845901641921068884387121855646124960798722908519296819372388642614839657382291123125024186649353143970137428531926649875337218940694281434118520158014123344828015051399694290153483077644569099073152433278288269864602789864321139083506217095002597389863554277196742822248757586765752344220207573630569498825087968928162753848863396909959826280956121450994871701244516461260379029309120889086942028510640182154399457156805941872748998094254742173582401063677404595741785160829230135358081840096996372524230560855903700624271243416909004153690105933983835777939410970027753472000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000'].
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1307
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1308	"Large * Large multiplication"
24 75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1309	self test:[(16r3FFF * 16r3FFF) hexPrintString = 'FFF8001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1310	self test:[(16r7FFF * 16r7FFF) hexPrintString = '3FFF0001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1311	self test:[(16rFFFF * 16rFFFF) hexPrintString = 'FFFE0001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1312	self test:[(16r3FFFFF * 16r3FFFFF) hexPrintString = 'FFFFF800001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1313	self test:[(16r7FFFFF * 16r7FFFFF) hexPrintString = '3FFFFF000001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1314	self test:[(16rFFFFFF * 16rFFFFFF) hexPrintString = 'FFFFFE000001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1315	self test:[(16r3FFFFFFF * 16r3FFFFFFF) hexPrintString = 'FFFFFFF80000001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1316	self test:[(16r7FFFFFFF * 16r7FFFFFFF) hexPrintString = '3FFFFFFF00000001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1317	self test:[(16rFFFFFFFF * 16rFFFFFFFF) hexPrintString = 'FFFFFFFE00000001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1318	self test:[(16r3FFFFFFFFF * 16r3FFFFFFFFF) hexPrintString = 'FFFFFFFFF8000000001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1319	self test:[(16r7FFFFFFFFF * 16r7FFFFFFFFF) hexPrintString = '3FFFFFFFFF0000000001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1320	self test:[(16rFFFFFFFFFF * 16rFFFFFFFFFF) hexPrintString = 'FFFFFFFFFE0000000001'].
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1321	self test:[(20 factorial * 20 factorial) printString = '5919012181389927685417441689600000000'].
7 7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1322
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1323	"
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1324	self testLargeMultiplication
7 7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1325	"
10 3cbe91972e2b checkin from browser Claus Gittinger <cg@exept.de> parents: 9 diff changeset	1326
11 30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1327	"Modified: / 20.5.1999 / 09:41:19 / cg"
7 7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1328	!
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1329
19 c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1330	testLiteralNumbers
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1331	self test:[self num_00000000000010000 hexPrintString = '10000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1332	self test:[self num_00000000000100000 hexPrintString = '100000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1333	self test:[self num_00000000001000000 hexPrintString = '1000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1334	self test:[self num_00000000010000000 hexPrintString = '10000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1335	self test:[self num_00000000100000000 hexPrintString = '100000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1336	self test:[self num_00000001000000000 hexPrintString = '1000000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1337	self test:[self num_00000010000000000 hexPrintString = '10000000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1338	self test:[self num_00000100000000000 hexPrintString = '100000000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1339	self test:[self num_00001000000000000 hexPrintString = '1000000000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1340	self test:[self num_00010000000000000 hexPrintString = '10000000000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1341	self test:[self num_00100000000000000 hexPrintString = '100000000000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1342	self test:[self num_01000000000000000 hexPrintString = '1000000000000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1343	self test:[self num_10000000000000000 hexPrintString = '10000000000000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1344
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1345	self test:[self num_00000000000007FFF hexPrintString = '7FFF'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1346	self test:[self num_00000000000008000 hexPrintString = '8000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1347	self test:[self num_0000000000000FFFF hexPrintString = 'FFFF'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1348	self test:[self num_000000000007FFFFF hexPrintString = '7FFFFF'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1349	self test:[self num_00000000000800000 hexPrintString = '800000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1350	self test:[self num_00000000000FFFFFF hexPrintString = 'FFFFFF'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1351	self test:[self num_0000000007FFFFFFF hexPrintString = '7FFFFFFF'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1352	self test:[self num_00000000080000000 hexPrintString = '80000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1353	self test:[self num_000000000FFFFFFFF hexPrintString = 'FFFFFFFF'].
21 7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1354	self test:[self num_0000000FFFFFFFFFF hexPrintString = 'FFFFFFFFFF'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1355	self test:[self num_00000FFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFF'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1356	self test:[self num_000FFFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFFFF'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1357	self test:[self num_0FFFFFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFFFFFF'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1358	self test:[self num_1FFFFFFFFFFFFFFFF hexPrintString = '1FFFFFFFFFFFFFFFF'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1359	self test:[self num_20000000000000000 hexPrintString = '20000000000000000'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1360	self test:[self num_3FFFFFFFFFFFFFFFF hexPrintString = '3FFFFFFFFFFFFFFFF'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1361	self test:[self num_40000000000000000 hexPrintString = '40000000000000000'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1362	self test:[self num_7FFFFFFFFFFFFFFFF hexPrintString = '7FFFFFFFFFFFFFFFF'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1363	self test:[self num_80000000000000000 hexPrintString = '80000000000000000'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1364
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1365	self test:[self num_00000FFFFFFFFFFFE hexPrintString = 'FFFFFFFFFFFE'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1366	self test:[self num_00000FFFFFFFFFFFC hexPrintString = 'FFFFFFFFFFFC'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1367	self test:[self num_00000FFFFFFFFFFF8 hexPrintString = 'FFFFFFFFFFF8'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1368	self test:[self num_00000FFFFFFFFFFF0 hexPrintString = 'FFFFFFFFFFF0'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1369	self test:[self num_00000FFFFFFFFFFE0 hexPrintString = 'FFFFFFFFFFE0'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1370	self test:[self num_00000FFFFFFFFFFC0 hexPrintString = 'FFFFFFFFFFC0'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1371	self test:[self num_00000FFFFFFFFFF80 hexPrintString = 'FFFFFFFFFF80'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1372	self test:[self num_00000FFFFFFFFFF00 hexPrintString = 'FFFFFFFFFF00'].
19 c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1373
22 7f01716fbbe2 checkin from browser Claus Gittinger <cg@exept.de> parents: 21 diff changeset	1374	self test:[self num_0000000000FFF0000 hexPrintString = 'FFF0000'].
7f01716fbbe2 checkin from browser Claus Gittinger <cg@exept.de> parents: 21 diff changeset	1375
19 c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1376	"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1377	self testLiteralNumbers
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1378	"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1379
22 7f01716fbbe2 checkin from browser Claus Gittinger <cg@exept.de> parents: 21 diff changeset	1380	"Modified: / 4.6.1999 / 18:41:09 / cg"
19 c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1381	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1382
7 7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1383	testPrinting1
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1384	self test:[10 printString = '10'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1385	self test:[100 printString = '100'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1386	self test:[1000 printString = '1000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1387	self test:[10000 printString = '10000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1388	self test:[100000 printString = '100000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1389	self test:[1000000 printString = '1000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1390	self test:[10000000 printString = '10000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1391	self test:[100000000 printString = '100000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1392	self test:[1000000000 printString = '1000000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1393	self test:[10000000000 printString = '10000000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1394	self test:[100000000000 printString = '100000000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1395	self test:[1000000000000 printString = '1000000000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1396	self test:[10000000000000 printString = '10000000000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1397	self test:[100000000000000 printString = '100000000000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1398	self test:[1000000000000000 printString = '1000000000000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1399	self test:[10000000000000000 printString = '10000000000000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1400	self test:[100000000000000000 printString = '100000000000000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1401
40 17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1402	self test:[16rF hexPrintString = 'F'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1403	self test:[16rFF hexPrintString = 'FF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1404	self test:[16rFFF hexPrintString = 'FFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1405	self test:[16rFFFF hexPrintString = 'FFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1406	self test:[16rFFFFF hexPrintString = 'FFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1407	self test:[16rFFFFFF hexPrintString = 'FFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1408	self test:[16rFFFFFFF hexPrintString = 'FFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1409	self test:[16rFFFFFFFF hexPrintString = 'FFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1410	self test:[16rFFFFFFFFF hexPrintString = 'FFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1411	self test:[16rFFFFFFFFFF hexPrintString = 'FFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1412	self test:[16rFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1413	self test:[16rFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1414	self test:[16rFFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1415	self test:[16rFFFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1416	self test:[16rFFFFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1417	self test:[16rFFFFFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1418	self test:[16rFFFFFFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1419	self test:[16rFFFFFFFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1420	self test:[16rFFFFFFFFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1421	self test:[16rFFFFFFFFFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1422
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1423	self test:[16r10 hexPrintString = '10'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1424	self test:[16r100 hexPrintString = '100'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1425	self test:[16r1000 hexPrintString = '1000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1426	self test:[16r10000 hexPrintString = '10000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1427	self test:[16r100000 hexPrintString = '100000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1428	self test:[16r1000000 hexPrintString = '1000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1429	self test:[16r10000000 hexPrintString = '10000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1430	self test:[16r100000000 hexPrintString = '100000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1431	self test:[16r1000000000 hexPrintString = '1000000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1432	self test:[16r10000000000 hexPrintString = '10000000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1433	self test:[16r100000000000 hexPrintString = '100000000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1434	self test:[16r1000000000000 hexPrintString = '1000000000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1435	self test:[16r10000000000000 hexPrintString = '10000000000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1436	self test:[16r100000000000000 hexPrintString = '100000000000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1437	self test:[16r1000000000000000 hexPrintString = '1000000000000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1438	self test:[16r10000000000000000 hexPrintString = '10000000000000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1439	self test:[16r100000000000000000 hexPrintString = '100000000000000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1440
7 7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1441	"
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1442	self testPrinting1
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1443	"
40 17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1444
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1445	"Modified: / 26.10.1999 / 22:01:35 / stefan"
7 7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1446	!
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1447
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1448	testReading1
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1449	\|t\|
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1450
5 f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1451	self test:[(Integer readFrom:'4865804016353280000') printString = '4865804016353280000'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1452	self test:[(Integer readFrom:'FFFFFFFF' radix:16) hexPrintString = 'FFFFFFFF'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1453	self test:[(Integer readFrom:'FFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFF'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1454	self test:[(Integer readFrom:'FFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFF'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1455	self test:[(Integer readFrom:'FFFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFFF'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1456	self test:[(Integer readFrom:'FFFFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFFFF'].
15 99df9ea7f146 checkin from browser Claus Gittinger <cg@exept.de> parents: 14 diff changeset	1457	self test:[(Integer readFrom:'FFFFFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFFFFF'].
99df9ea7f146 checkin from browser Claus Gittinger <cg@exept.de> parents: 14 diff changeset	1458	self test:[(Integer readFrom:'FFFFFFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFFFFFF'].
5 f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1459
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1460	self test:[(Integer readFrom:'10000000' radix:16) hexPrintString = '10000000'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1461	self test:[(Integer readFrom:'100000000' radix:16) hexPrintString = '100000000'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1462	self test:[(Integer readFrom:'1000000000' radix:16) hexPrintString = '1000000000'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1463	self test:[(Integer readFrom:'10000000000' radix:16) hexPrintString = '10000000000'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1464	self test:[(Integer readFrom:'100000000000' radix:16) hexPrintString = '100000000000'].
15 99df9ea7f146 checkin from browser Claus Gittinger <cg@exept.de> parents: 14 diff changeset	1465	self test:[(Integer readFrom:'1000000000000' radix:16) hexPrintString = '1000000000000'].
99df9ea7f146 checkin from browser Claus Gittinger <cg@exept.de> parents: 14 diff changeset	1466	self test:[(Integer readFrom:'10000000000000' radix:16) hexPrintString = '10000000000000'].
5 f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1467
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1468	t := Integer readFrom:'FFFFFFFF' radix:16.
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1469	self test:[(t + 1) hexPrintString = '100000000'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1470	t := Integer readFrom:'FFFFFFFFF' radix:16.
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1471	self test:[(t + 1) hexPrintString = '1000000000'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1472	t := Integer readFrom:'FFFFFFFFFF' radix:16.
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1473	self test:[(t + 1) hexPrintString = '10000000000'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1474	t := Integer readFrom:'FFFFFFFFFFF' radix:16.
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1475	self test:[(t + 1) hexPrintString = '100000000000'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1476
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1477	t := Integer readFrom:'10000000' radix:16.
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1478	self test:[(t + 1) hexPrintString = '10000001'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1479	t := Integer readFrom:'100000000' radix:16.
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1480	self test:[(t + 1) hexPrintString = '100000001'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1481	t := Integer readFrom:'1000000000' radix:16.
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1482	self test:[(t + 1) hexPrintString = '1000000001'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1483	t := Integer readFrom:'10000000000' radix:16.
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1484	self test:[(t + 1) hexPrintString = '10000000001'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1485
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1486	"
7 7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1487	self testReading1
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1488	"
27 8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1489	!
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1490
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1491	testSmallIntegerArithmetic
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1492	"arithmetic tests.
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1493	Notice, the arithmetic tests are both performed via regular sends
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1494	and via constructed performs. The reason is to test both inlined
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1495	JIT-compiler code AND the regular methods code."
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1496
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1497	\|s n1 n2 t\|
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1498
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1499	"/ test division and modulu ...
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1500	self test:[1 printString = '1'].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1501	self test:[10 printString = '10'].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1502	self test:[100 printString = '100'].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1503	self test:[1000 printString = '1000'].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1504	self test:[10000 printString = '10000'].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1505	self test:[100000 printString = '100000'].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1506
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1507	"addition with overflow"
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1508
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1509	SmallInteger maxBytes == 4 ifTrue:[
70 c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	1510	n1 := 16r3FFFFFFF.
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	1511	n2 := -16r40000000.
27 8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1512	] ifFalse:[
70 c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	1513	n1 := 16r3FFFFFFFFFFFFFFF.
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	1514	n2 := -16r4000000000000000.
27 8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1515	].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1516	self test:[n1 class == SmallInteger].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1517	self test:[n2 class == SmallInteger].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1518
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1519	self test:[(n1 + 1) class == LargeInteger].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1520	t := n1 + 1.
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1521	self test:[(t - 1) class == SmallInteger].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1522
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1523	self test:[(n2 - 1) class == LargeInteger].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1524	t := n2 - 1.
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1525	self test:[(t + 1) class == SmallInteger].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1526
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1527	self test:[(n1 negated) class == SmallInteger].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1528	self test:[(n2 negated) class == LargeInteger].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1529	self test:[(n1 perform:'negated' asSymbol) class == SmallInteger].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1530	self test:[(n2 perform:'negated' asSymbol) class == LargeInteger].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1531
28 fca649220051 checkin from browser Claus Gittinger <cg@exept.de> parents: 27 diff changeset	1532	self test:[(n1 abs == n1)].
fca649220051 checkin from browser Claus Gittinger <cg@exept.de> parents: 27 diff changeset	1533	self test:[(n2 abs = n2 negated)].
fca649220051 checkin from browser Claus Gittinger <cg@exept.de> parents: 27 diff changeset	1534	self test:[(n1 perform:'abs' asSymbol) == n1].
fca649220051 checkin from browser Claus Gittinger <cg@exept.de> parents: 27 diff changeset	1535	self test:[(n2 perform:'abs' asSymbol) = n2 negated].
fca649220051 checkin from browser Claus Gittinger <cg@exept.de> parents: 27 diff changeset	1536
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1537	self testSmallIntegerMultiplication1.
d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1538	self testSmallIntegerMultiplication1b.
d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1539	self testSmallIntegerMultiplication2.
46 cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1540	self testSmallIntegerDivision1.
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1541
27 8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1542	"
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1543	self testSmallIntegerArithmetic
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1544	"
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1545
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1546	"Created: / 6.6.1999 / 14:47:51 / cg"
33 f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1547	"Modified: / 9.6.1999 / 17:49:57 / cg"
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1548	!
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1549
46 cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1550	testSmallIntegerDivision1
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1551	"division tests.
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1552	Notice, the arithmetic tests are both performed via regular sends
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1553	and via constructed performs. The reason is to test both inlined
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1554	JIT-compiler code AND the regular methods code."
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1555
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1556	\|s n1 n2 t\|
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1557
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1558	n1 := 1000.
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1559
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1560	"/ truncation towards...
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1561
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1562	"/ ... negative infinity
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1563	n2 := 3.
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1564	self test:[(n1 // n2) == 333].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1565	self test:[(n1 // n2) printString = '333'].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1566	self test:[(n1 perform:'//' asSymbol with:n2) == 333].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1567
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1568	n2 := -3.
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1569	self test:[(n1 // n2) == -334].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1570	self test:[(n1 // n2) printString = '-334'].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1571	self test:[(n1 perform:'//' asSymbol with:n2) == -334].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1572
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1573	n2 := 3600000.
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1574	self test:[(n1 // n2) == 0].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1575	self test:[(n1 // n2) printString = '0'].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1576	self test:[(n1 perform:'//' asSymbol with:n2) == 0].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1577
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1578	n2 := -3600000.
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1579	self test:[(n1 // n2) == -1].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1580	self test:[(n1 // n2) printString = '-1'].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1581	self test:[(n1 perform:'//' asSymbol with:n2) == -1].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1582
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1583	"/ ... zero
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1584	n2 := 3.
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1585	self test:[(n1 quo: n2) == 333].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1586	self test:[(n1 quo: n2) printString = '333'].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1587	self test:[(n1 perform:'quo:' asSymbol with:n2) == 333].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1588
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1589	n2 := -3.
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1590	self test:[(n1 quo: n2) == -333].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1591	self test:[(n1 quo: n2) printString = '-333'].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1592	self test:[(n1 perform:'quo:' asSymbol with:n2) == -333].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1593
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1594	n2 := 3600000.
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1595	self test:[(n1 quo: n2) == 0].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1596	self test:[(n1 quo: n2) printString = '0'].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1597	self test:[(n1 perform:'quo:' asSymbol with:n2) == 0].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1598
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1599	n2 := -3600000.
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1600	self test:[(n1 quo: n2) == 0].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1601	self test:[(n1 quo: n2) printString = '0'].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1602	self test:[(n1 perform:'quo:' asSymbol with:n2) == 0].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1603
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1604	"
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1605	self testSmallIntegerDivision1
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1606	"
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1607
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1608	"Modified: / 9.6.1999 / 17:47:56 / cg"
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1609	"Created: / 9.6.1999 / 17:49:45 / cg"
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1610	!
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1611
33 f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1612	testSmallIntegerMultiplication1
39 bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1613	"multiply tests (var * const).
33 f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1614	Notice, the arithmetic tests are both performed via regular sends
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1615	and via constructed performs. The reason is to test both inlined
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1616	JIT-compiler code AND the regular methods code."
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1617
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1618	\|s n1 n2 t\|
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1619
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1620	n1 := 100000.
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1621	n2 := n1 negated.
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1622
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1623	self test:[n1 printString = '100000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1624	self test:[n2 printString = '-100000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1625
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1626	self test:[(n1 * 0) printString = '0'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1627	self test:[(n1 perform:'*' asSymbol with:0) printString = '0'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1628
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1629	self test:[(n1 * 1) printString = '100000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1630	self test:[(n1 perform:'*' asSymbol with:1) printString = '100000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1631	self test:[(n2 * 1) printString = '-100000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1632	self test:[(n2 perform:'*' asSymbol with:1) printString = '-100000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1633
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1634	self test:[(n1 * -1) printString = '-100000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1635	self test:[(n1 perform:'*' asSymbol with:-1) printString = '-100000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1636	self test:[(n2 * -1) printString = '100000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1637	self test:[(n2 perform:'*' asSymbol with:-1) printString = '100000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1638
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1639	self test:[(n1 * 2) printString = '200000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1640	self test:[(n1 perform:'*' asSymbol with:2) printString = '200000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1641	self test:[(n1 * 3) printString = '300000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1642	self test:[(n1 perform:'*' asSymbol with:3) printString = '300000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1643	self test:[(n1 * 4) printString = '400000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1644	self test:[(n1 perform:'*' asSymbol with:4) printString = '400000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1645	self test:[(n1 * 5) printString = '500000'].
33 f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1646	self test:[(n1 perform:'*' asSymbol with:5) printString = '500000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1647	self test:[(n1 * 6) printString = '600000'].
33 f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1648	self test:[(n1 perform:'*' asSymbol with:6) printString = '600000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1649	self test:[(n1 * 7) printString = '700000'].
33 f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1650	self test:[(n1 perform:'*' asSymbol with:7) printString = '700000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1651	self test:[(n1 * 8) printString = '800000'].
37 166691c3c99d * empty log message * Claus Gittinger <cg@exept.de> parents: 36 diff changeset	1652	self test:[(n1 perform:'*' asSymbol with:8) printString = '800000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1653	self test:[(n1 * 9) printString = '900000'].
37 166691c3c99d * empty log message * Claus Gittinger <cg@exept.de> parents: 36 diff changeset	1654	self test:[(n1 perform:'*' asSymbol with:9) printString = '900000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1655	self test:[(n1 * 10) printString = '1000000'].
37 166691c3c99d * empty log message * Claus Gittinger <cg@exept.de> parents: 36 diff changeset	1656	self test:[(n1 perform:'*' asSymbol with:10) printString = '1000000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1657	self test:[(n1 * 11) printString = '1100000'].
37 166691c3c99d * empty log message * Claus Gittinger <cg@exept.de> parents: 36 diff changeset	1658	self test:[(n1 perform:'*' asSymbol with:11) printString = '1100000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1659	self test:[(n1 * 12) printString = '1200000'].
37 166691c3c99d * empty log message * Claus Gittinger <cg@exept.de> parents: 36 diff changeset	1660	self test:[(n1 perform:'*' asSymbol with:12) printString = '1200000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1661	self test:[(n1 * 13) printString = '1300000'].
37 166691c3c99d * empty log message * Claus Gittinger <cg@exept.de> parents: 36 diff changeset	1662	self test:[(n1 perform:'*' asSymbol with:13) printString = '1300000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1663	self test:[(n1 * 14) printString = '1400000'].
37 166691c3c99d * empty log message * Claus Gittinger <cg@exept.de> parents: 36 diff changeset	1664	self test:[(n1 perform:'*' asSymbol with:14) printString = '1400000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1665	self test:[(n1 * 15) printString = '1500000'].
37 166691c3c99d * empty log message * Claus Gittinger <cg@exept.de> parents: 36 diff changeset	1666	self test:[(n1 perform:'*' asSymbol with:15) printString = '1500000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1667	self test:[(n1 * 16) printString = '1600000'].
37 166691c3c99d * empty log message * Claus Gittinger <cg@exept.de> parents: 36 diff changeset	1668	self test:[(n1 perform:'*' asSymbol with:16) printString = '1600000'].
33 f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1669
41 7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1670	n1 := 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1671	n2 := 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1672	self test:[(n1 * n2) printString = '10'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1673	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1674	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1675	self test:[(n1 * n2) printString = '100'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1676	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1677	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1678	self test:[(n1 * n2) printString = '1000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1679	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1680	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1681	self test:[(n1 * n2) printString = '10000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1682	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1683	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1684	self test:[(n1 * n2) printString = '100000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1685	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1686	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1687	self test:[(n1 * n2) printString = '1000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1688	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1689	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1690	self test:[(n1 * n2) printString = '10000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1691	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1692	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1693	self test:[(n1 * n2) printString = '100000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1694	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1695	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1696	self test:[(n1 * n2) printString = '1000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1697	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1698	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1699	self test:[(n1 * n2) printString = '10000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1700	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1701	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1702	self test:[(n1 * n2) printString = '100000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1703	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1704	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1705	self test:[(n1 * n2) printString = '1000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1706	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1707	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1708	self test:[(n1 * n2) printString = '10000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1709	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1710
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1711	n1 := 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1712	n2 := 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1713	self test:[(n1 * n2) printString = '10'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1714	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1715	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1716	self test:[(n1 * n2) printString = '100'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1717	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1718	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1719	self test:[(n1 * n2) printString = '1000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1720	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1721	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1722	self test:[(n1 * n2) printString = '10000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1723	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1724	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1725	self test:[(n1 * n2) printString = '100000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1726	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1727	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1728	self test:[(n1 * n2) printString = '1000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1729	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1730	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1731	self test:[(n1 * n2) printString = '10000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1732	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1733	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1734	self test:[(n1 * n2) printString = '100000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1735	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1736	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1737	self test:[(n1 * n2) printString = '1000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1738	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1739	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1740	self test:[(n1 * n2) printString = '10000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1741	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1742	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1743	self test:[(n1 * n2) printString = '100000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1744	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1745	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1746	self test:[(n1 * n2) printString = '1000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1747	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1748	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1749	self test:[(n1 * n2) printString = '10000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1750	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1751
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1752	n1 := 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1753	n2 := 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1754	self test:[(n1 * n2) printString = '100'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1755	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1756	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1757	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1758	self test:[(n1 * n2) printString = '10000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1759	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1760	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1761	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1762	self test:[(n1 * n2) printString = '1000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1763	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1764	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1765	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1766	self test:[(n1 * n2) printString = '100000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1767	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1768	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1769	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1770	self test:[(n1 * n2) printString = '10000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1771	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1772	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1773	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1774	self test:[(n1 * n2) printString = '1000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1775	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1776	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1777	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1778	self test:[(n1 * n2) printString = '100000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1779	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1780	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1781	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1782	self test:[(n1 * n2) printString = '10000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1783	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1784	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1785	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1786	self test:[(n1 * n2) printString = '1000000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1787	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1788	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1789	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1790	self test:[(n1 * n2) printString = '100000000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1791	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100000000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1792	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1793	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1794	self test:[(n1 * n2) printString = '10000000000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1795	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000000000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1796	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1797	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1798	self test:[(n1 * n2) printString = '1000000000000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1799	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000000000000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1800	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1801	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1802	self test:[(n1 * n2) printString = '100000000000000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1803	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100000000000000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1804
33 f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1805	"
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1806	self testSmallIntegerMultiplication1
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1807	"
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1808
32 03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	1809	"Modified: / 9.6.1999 / 17:47:56 / cg"
33 f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1810	"Created: / 9.6.1999 / 17:49:45 / cg"
34 f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1811	!
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1812
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1813	testSmallIntegerMultiplication1b
39 bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1814	"multiply tests (const * var).
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1815	Notice, the arithmetic tests are both performed via regular sends
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1816	and via constructed performs. The reason is to test both inlined
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1817	JIT-compiler code AND the regular methods code."
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1818
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1819	\|s n1 n2 t\|
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1820
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1821	n1 := 100000.
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1822	n2 := n1 negated.
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1823
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1824	self test:[(0 * n1) printString = '0'].
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1825	self test:[(0 perform:'*' asSymbol with:n1) printString = '0'].
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1826
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1827	self test:[(1 * n1) printString = '100000'].
36 fe8e9bc7953d checkin from browser Claus Gittinger <cg@exept.de> parents: 35 diff changeset	1828	self test:[(1 perform:'*' asSymbol with:n1) printString = '100000'].
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1829	self test:[(1 * n2) printString = '-100000'].
36 fe8e9bc7953d checkin from browser Claus Gittinger <cg@exept.de> parents: 35 diff changeset	1830	self test:[(1 perform:'*' asSymbol with:n2) printString = '-100000'].
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1831
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1832	self test:[(-1 * n1) printString = '-100000'].
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1833	self test:[(-1 perform:'*' asSymbol with:n1) printString = '-100000'].
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1834	self test:[(-1 * n2) printString = '100000'].
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1835	self test:[(-1 perform:'*' asSymbol with:n2) printString = '100000'].
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1836
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1837	self test:[(2 * n1) printString = '200000'].
36 fe8e9bc7953d checkin from browser Claus Gittinger <cg@exept.de> parents: 35 diff changeset	1838	self test:[(2 perform:'*' asSymbol with:n1) printString = '200000'].
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1839	self test:[(3 * n1) printString = '300000'].
36 fe8e9bc7953d checkin from browser Claus Gittinger <cg@exept.de> parents: 35 diff changeset	1840	self test:[(3 perform:'*' asSymbol with:n1) printString = '300000'].
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1841	self test:[(4 * n1) printString = '400000'].
36 fe8e9bc7953d checkin from browser Claus Gittinger <cg@exept.de> parents: 35 diff changeset	1842	self test:[(4 perform:'*' asSymbol with:n1) printString = '400000'].
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1843	self test:[(5 * n1) printString = '500000'].
36 fe8e9bc7953d checkin from browser Claus Gittinger <cg@exept.de> parents: 35 diff changeset	1844	self test:[(5 perform:'*' asSymbol with:n1) printString = '500000'].
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1845	self test:[(6 * n1) printString = '600000'].
36 fe8e9bc7953d checkin from browser Claus Gittinger <cg@exept.de> parents: 35 diff changeset	1846	self test:[(6 perform:'*' asSymbol with:n1) printString = '600000'].
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1847	self test:[(7 * n1) printString = '700000'].
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1848	self test:[(7 perform:'*' asSymbol with:n1) printString = '700000'].
39 bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1849	self test:[(8 * n1) printString = '800000'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1850	self test:[(8 perform:'*' asSymbol with:n1) printString = '800000'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1851	self test:[(9 * n1) printString = '900000'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1852	self test:[(9 perform:'*' asSymbol with:n1) printString = '900000'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1853	self test:[(10 * n1) printString = '1000000'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1854	self test:[(10 perform:'*' asSymbol with:n1) printString = '1000000'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1855	self test:[(11 * n1) printString = '1100000'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1856	self test:[(11 perform:'*' asSymbol with:n1) printString = '1100000'].
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1857
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1858	"
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1859	self testSmallIntegerMultiplication1b
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1860	"
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1861
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1862	"Modified: / 9.6.1999 / 17:47:56 / cg"
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1863	"Created: / 9.6.1999 / 17:49:45 / cg"
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1864	!
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1865
34 f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1866	testSmallIntegerMultiplication2
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1867	"multiply tests.
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1868	Notice, the arithmetic tests are both performed via regular sends
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1869	and via constructed performs. The reason is to test both inlined
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1870	JIT-compiler code AND the regular methods code."
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1871
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1872	\|s n1 n2 t\|
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1873
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1874	n1 := 100000.
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1875	n2 := n1 negated.
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1876
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1877	self test:[(n1 * 2) printString = '200000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1878	self test:[(n1 perform:'*' asSymbol with:2) printString = '200000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1879	self test:[(n1 * 3) printString = '300000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1880	self test:[(n1 perform:'*' asSymbol with:3) printString = '300000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1881	self test:[(n1 * 4) printString = '400000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1882	self test:[(n1 perform:'*' asSymbol with:4) printString = '400000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1883	self test:[(n1 * 5) printString = '500000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1884	self test:[(n1 perform:'*' asSymbol with:5) printString = '500000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1885	self test:[(n1 * 6) printString = '600000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1886	self test:[(n1 perform:'*' asSymbol with:6) printString = '600000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1887	self test:[(n1 * 7) printString = '700000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1888	self test:[(n1 perform:'*' asSymbol with:7) printString = '700000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1889	self test:[(n1 * 8) printString = '800000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1890	self test:[(n1 perform:'*' asSymbol with:8) printString = '800000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1891	self test:[(n1 * 9) printString = '900000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1892	self test:[(n1 perform:'*' asSymbol with:9) printString = '900000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1893	self test:[(n1 * 10) printString = '1000000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1894	self test:[(n1 perform:'*' asSymbol with:10) printString = '1000000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1895	self test:[(n1 * 11) printString = '1100000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1896	self test:[(n1 perform:'*' asSymbol with:11) printString = '1100000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1897	self test:[(n1 * 12) printString = '1200000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1898	self test:[(n1 perform:'*' asSymbol with:12) printString = '1200000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1899	self test:[(n1 * 13) printString = '1300000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1900	self test:[(n1 perform:'*' asSymbol with:13) printString = '1300000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1901	self test:[(n1 * 14) printString = '1400000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1902	self test:[(n1 perform:'*' asSymbol with:14) printString = '1400000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1903	self test:[(n1 * 15) printString = '1500000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1904	self test:[(n1 perform:'*' asSymbol with:15) printString = '1500000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1905	self test:[(n1 * 16) printString = '1600000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1906	self test:[(n1 perform:'*' asSymbol with:16) printString = '1600000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1907	self test:[(n1 * 17) printString = '1700000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1908	self test:[(n1 perform:'*' asSymbol with:17) printString = '1700000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1909	self test:[(n1 * 18) printString = '1800000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1910	self test:[(n1 perform:'*' asSymbol with:18) printString = '1800000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1911	self test:[(n1 * 19) printString = '1900000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1912	self test:[(n1 perform:'*' asSymbol with:19) printString = '1900000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1913
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1914	"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1915	self testSmallIntegerMultiplication2
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1916	"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1917
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1918	"Modified: / 9.6.1999 / 17:47:56 / cg"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1919	"Created: / 9.6.1999 / 17:49:45 / cg"
39 bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1920	!
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1921
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1922	testSmallIntegerMultiplication3
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1923	"multiply tests.
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1924	Notice, the arithmetic tests are both performed via regular sends
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1925	and via constructed performs. The reason is to test both inlined
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1926	JIT-compiler code AND the regular methods code."
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1927
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1928	\|s n1 n2 t\|
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1929
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1930	n1 := 16rFFFF.
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1931	n2 := n1 negated.
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1932
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1933	self test:[(n1 * 2) printString = '131070'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1934	self test:[(n1 perform:'*' asSymbol with:2) printString = '131070'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1935	self test:[(n2 * 2) printString = '-131070'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1936	self test:[(n2 perform:'*' asSymbol with:2) printString = '-131070'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1937
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1938	n1 := 16rFFFFFF.
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1939	n2 := n1 negated.
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1940
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1941	self test:[(n1 * 2) printString = '33554430'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1942	self test:[(n1 perform:'*' asSymbol with:2) printString = '33554430'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1943	self test:[(n2 * 2) printString = '-33554430'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1944	self test:[(n2 perform:'*' asSymbol with:2) printString = '-33554430'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1945
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1946	n1 := 16r3FFFFFFF.
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1947	n2 := n1 negated.
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1948
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1949	self test:[(n1 * 2) printString = '2147483646'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1950	self test:[(n1 perform:'*' asSymbol with:2) printString = '2147483646'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1951	self test:[(n2 * 2) printString = '-2147483646'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1952	self test:[(n2 perform:'*' asSymbol with:2) printString = '-2147483646'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1953
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1954	SmallInteger maxBytes == 4 ifTrue:[
70 c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	1955	n1 := 16r3FFFFFFF.
39 bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1956	] ifFalse:[
70 c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	1957	n1 := 16r3FFFFFFFFFFFFFFF.
39 bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1958	].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1959	self test:[n1 class == SmallInteger].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1960	self test:[(n1 * 2) class == LargeInteger].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1961	self test:[(n1 perform:'*' asSymbol with:2) class == LargeInteger].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1962
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1963	n1 := SmallInteger maxVal // 11.
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1964	self test:[(n1 * 11) class == SmallInteger].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1965
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1966	n1 := n1 + 1.
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1967	self test:[(n1 * 11) class == LargeInteger].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1968
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1969	"
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1970	self testSmallIntegerMultiplication3
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1971	"
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1972
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1973	"Modified: / 9.6.1999 / 17:47:56 / cg"
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1974	"Created: / 9.6.1999 / 17:49:45 / cg"
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1975	! !
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1976
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1977	!IntegerTest class methodsFor:'documentation'!
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1978
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1979	version
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1980	^ '$Header$'
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1981	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 31 Oct 2000 20:53:26 +0100
changeset 91	a781d70791b7
parent 89	228f2b80bc17
child 95	362e58ff28ba
permissions	-rw-r--r--