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

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

author	Claus Gittinger <cg@exept.de>
	Sat, 27 Nov 1999 18:30:11 +0100
changeset 53	94b4cfba8e21
parent 52	544196f29bee
child 54	77b06a241d57
permissions	-rw-r--r--