hg/stx-goodies-regression: RegressionTests__IntegerTest.st@77b06a241d57 (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	]
54 77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	440	!
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	441
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	442	testIsInteger:arg
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	443	^ arg isInteger
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	444	! !
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	445
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	446	!IntegerTest class methodsFor:'tests'!
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	447
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	448	test1
10 3cbe91972e2b checkin from browser Claus Gittinger <cg@exept.de> parents: 9 diff changeset	449	"general conversion & arithmetic tests.
3cbe91972e2b checkin from browser Claus Gittinger <cg@exept.de> parents: 9 diff changeset	450	Notice, the arithmetic tests are both performed via regular sends
3cbe91972e2b checkin from browser Claus Gittinger <cg@exept.de> parents: 9 diff changeset	451	and via constructed performs. The reason is to test both inlined
3cbe91972e2b checkin from browser Claus Gittinger <cg@exept.de> parents: 9 diff changeset	452	JIT-compiler code AND the regular methods code."
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	453
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	454	\|minVal maxVal maxValPlus1 minValMinus1 halfMin halfMax t t1 t2\|
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	455
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	456	minVal := SmallInteger perform:('minVal' asSymbol).
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	457	maxVal := SmallInteger perform:('maxVal' asSymbol).
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	458
20 c6b0a35e5bc7 checkin from browser Claus Gittinger <cg@exept.de> parents: 19 diff changeset	459	self test:[minVal == self num_smallInt_minVal].
c6b0a35e5bc7 checkin from browser Claus Gittinger <cg@exept.de> parents: 19 diff changeset	460	self test:[maxVal == self num_smallInt_maxVal].
c6b0a35e5bc7 checkin from browser Claus Gittinger <cg@exept.de> parents: 19 diff changeset	461
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	462	self test:[minVal == SmallInteger minVal].
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	463	self test:[maxVal == SmallInteger maxVal].
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	464
9 3760c78107b4 checkin from browser Claus Gittinger <cg@exept.de> parents: 8 diff changeset	465	t := SmallInteger perform:('maxBytes' asSymbol).
3760c78107b4 checkin from browser Claus Gittinger <cg@exept.de> parents: 8 diff changeset	466	self test:[t == SmallInteger maxBytes].
3760c78107b4 checkin from browser Claus Gittinger <cg@exept.de> parents: 8 diff changeset	467	t := SmallInteger perform:('maxBits' asSymbol).
3760c78107b4 checkin from browser Claus Gittinger <cg@exept.de> parents: 8 diff changeset	468	self test:[t == SmallInteger maxBits].
3760c78107b4 checkin from browser Claus Gittinger <cg@exept.de> parents: 8 diff changeset	469
7 7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	470	self testPrinting1.
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	471
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	472	SmallInteger maxBytes == 4 ifTrue:[
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	473	self test:[minVal hexPrintString = '-40000000'].
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	474	self test:[maxVal hexPrintString = '3FFFFFFF'].
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	475	self test:[minVal == -1073741824].
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	476	self test:[maxVal == 1073741823].
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	477	maxValPlus1 := 1073741824.
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	478	minValMinus1 := -1073741825.
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	479	self test:[minValMinus1 hexPrintString = '-40000001'].
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	480	self test:[maxValPlus1 hexPrintString = '40000000'].
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	481	halfMin := -16r20000000.
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	482	halfMax := 16r20000000.
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	483	].
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	484	SmallInteger maxBytes == 8 ifTrue:[
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	485	self test:[minVal hexPrintString = '-4000000000000000'].
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	486	self test:[maxVal hexPrintString = '3FFFFFFFFFFFFFFF'].
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	487	self test:[minVal == -4611686018427387904].
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	488	self test:[maxVal == 4611686018427387903].
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	489	maxValPlus1 := 4611686018427387904.
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	490	minValMinus1 := -4611686018427387905.
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	491	self test:[minValMinus1 hexPrintString = '-4000000000000001'].
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	492	self test:[maxValPlus1 hexPrintString = '4000000000000000'].
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	493	halfMin := -16r2000000000000000.
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	494	halfMax := 16r2000000000000000.
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	495	].
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	496
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	497	"arithmetic overFlow checks"
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	498
4 28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	499	"/ self test:[(maxVal + 1) inspect.maxValPlus1 inspect. true].
6 2df53bc27c65 checkin from browser Claus Gittinger <cg@exept.de> parents: 5 diff changeset	500	self test:[(maxVal perform:'+' asSymbol with:1) = maxValPlus1].
2df53bc27c65 checkin from browser Claus Gittinger <cg@exept.de> parents: 5 diff changeset	501	self test:[(maxVal + 1) = maxValPlus1].
2df53bc27c65 checkin from browser Claus Gittinger <cg@exept.de> parents: 5 diff changeset	502	self test:[(minVal perform:'-' asSymbol with:1) = minValMinus1].
2df53bc27c65 checkin from browser Claus Gittinger <cg@exept.de> parents: 5 diff changeset	503	self test:[(minVal - 1) = minValMinus1].
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	504
6 2df53bc27c65 checkin from browser Claus Gittinger <cg@exept.de> parents: 5 diff changeset	505	self test:[(halfMax perform:'+' asSymbol with:halfMax) = maxValPlus1].
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	506	self test:[(halfMax + halfMax) = maxValPlus1].
6 2df53bc27c65 checkin from browser Claus Gittinger <cg@exept.de> parents: 5 diff changeset	507	self test:[(halfMin perform:'+' asSymbol with:halfMin) == minVal].
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	508	self test:[(halfMin + halfMin) == minVal].
6 2df53bc27c65 checkin from browser Claus Gittinger <cg@exept.de> parents: 5 diff changeset	509	self test:[(halfMax perform:'*' asSymbol with:2) = maxValPlus1].
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	510	self test:[(halfMax * 2) = maxValPlus1].
6 2df53bc27c65 checkin from browser Claus Gittinger <cg@exept.de> parents: 5 diff changeset	511	self test:[(halfMin perform:'*' asSymbol with:2) == minVal].
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	512	self test:[(halfMin * 2) == minVal].
6 2df53bc27c65 checkin from browser Claus Gittinger <cg@exept.de> parents: 5 diff changeset	513	self test:[(maxValPlus1 perform:'//' asSymbol with:2) == halfMax].
2df53bc27c65 checkin from browser Claus Gittinger <cg@exept.de> parents: 5 diff changeset	514	self test:[(maxValPlus1 // 2) == halfMax].
2df53bc27c65 checkin from browser Claus Gittinger <cg@exept.de> parents: 5 diff changeset	515	self test:[(halfMax perform:'bitShift:' asSymbol with:1) = maxValPlus1].
2df53bc27c65 checkin from browser Claus Gittinger <cg@exept.de> parents: 5 diff changeset	516	self test:[(halfMin perform:'bitShift:' asSymbol with:1) == minVal].
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	517	self test:[(halfMax bitShift:1) = maxValPlus1].
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	518	self test:[(halfMin bitShift:1) == minVal].
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	519
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	520	"LargeInt op -> SmallInt result"
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	521	t := maxVal + 1.
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	522	self test:[t - 1 == maxVal].
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	523	t := minVal - 1.
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	524	self test:[t + 1 == minVal].
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	525
54 77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	526	self testILC.
27 8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	527	self testSmallIntegerArithmetic.
19 c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	528	self testLiteralNumbers.
15 99df9ea7f146 checkin from browser Claus Gittinger <cg@exept.de> parents: 14 diff changeset	529	self testLargeAddition.
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	530	self testLargeMultiplication.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	531	self testLargeDivision.
42 b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	532	self testIntegerShifts.
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	533	self testEncodeDecode.
53 94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	534	self testIntegerMisc.
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	535
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	self test1
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	538	"
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	539
27 8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	540	"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	541	!
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	542
42 b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	543	testEncodeDecode
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	544	self test:[1 encodeAsBCD hexPrintString = '1'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	545	self test:[12 encodeAsBCD hexPrintString = '12'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	546	self test:[123 encodeAsBCD hexPrintString = '123'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	547	self test:[1234 encodeAsBCD hexPrintString = '1234'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	548	self test:[12345 encodeAsBCD hexPrintString = '12345'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	549	self test:[123456 encodeAsBCD hexPrintString = '123456'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	550	self test:[1234567 encodeAsBCD hexPrintString = '1234567'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	551	self test:[12345678 encodeAsBCD hexPrintString = '12345678'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	552	self test:[123456789 encodeAsBCD hexPrintString = '123456789'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	553	self test:[1234567890 encodeAsBCD hexPrintString = '1234567890'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	554	self test:[12345678901 encodeAsBCD hexPrintString = '12345678901'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	555	self test:[123456789012 encodeAsBCD hexPrintString = '123456789012'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	556	self test:[1234567890123 encodeAsBCD hexPrintString = '1234567890123'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	557	self test:[12345678901234 encodeAsBCD hexPrintString = '12345678901234'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	558	self test:[123456789012345 encodeAsBCD hexPrintString = '123456789012345'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	559	self test:[1234567890123456 encodeAsBCD hexPrintString = '1234567890123456'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	560	self test:[12345678901234567 encodeAsBCD hexPrintString = '12345678901234567'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	561	self test:[123456789012345678 encodeAsBCD hexPrintString = '123456789012345678'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	562	self test:[1234567890123456789 encodeAsBCD hexPrintString = '1234567890123456789'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	563	self test:[12345678901234567890 encodeAsBCD hexPrintString = '12345678901234567890'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	564	self test:[4611686018427387902 encodeAsBCD hexPrintString = '4611686018427387902'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	565	self test:[4611686018427387903 encodeAsBCD hexPrintString = '4611686018427387903'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	566	self test:[4611686018427387904 encodeAsBCD hexPrintString = '4611686018427387904'].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	567
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	568	self test:[16r1 decodeFromBCD = 1].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	569	self test:[16r12 decodeFromBCD = 12].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	570	self test:[16r123 decodeFromBCD = 123].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	571	self test:[16r1234 decodeFromBCD = 1234].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	572	self test:[16r12345 decodeFromBCD = 12345].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	573	self test:[16r123456 decodeFromBCD = 123456].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	574	self test:[16r1234567 decodeFromBCD = 1234567].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	575	self test:[16r12345678 decodeFromBCD = 12345678].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	576	self test:[16r123456789 decodeFromBCD = 123456789].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	577	self test:[16r1234567890 decodeFromBCD = 1234567890].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	578	self test:[16r12345678901 decodeFromBCD = 12345678901].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	579	self test:[16r123456789012 decodeFromBCD = 123456789012].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	580	self test:[16r1000000000000 decodeFromBCD = 1000000000000].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	581	self test:[16r0000500000000 decodeFromBCD = 500000000].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	582	self test:[16r1234500000000 decodeFromBCD = 1234500000000].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	583	self test:[16r1234567890000 decodeFromBCD = 1234567890000].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	584
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	585	self test:[16r1234567890123 decodeFromBCD = 1234567890123].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	586	self test:[16r12345678901234 decodeFromBCD = 12345678901234].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	587	self test:[16r123456789012345 decodeFromBCD = 123456789012345].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	588	self test:[16r1234567890123456 decodeFromBCD = 1234567890123456].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	589	self test:[16r12345678901234567 decodeFromBCD = 12345678901234567].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	590	self test:[16r123456789012345678 decodeFromBCD = 123456789012345678].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	591	self test:[16r1234567890123456789 decodeFromBCD = 1234567890123456789].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	592	self test:[16r12345678901234567890 decodeFromBCD = 12345678901234567890].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	593	self test:[16r4611686018427387902 decodeFromBCD = 4611686018427387902].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	594	self test:[16r4611686018427387903 decodeFromBCD = 4611686018427387903].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	595	self test:[16r4611686018427387904 decodeFromBCD = 4611686018427387904].
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	596
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	self testEncodeDecode
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	599	"
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	600
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	601	"Modified: / 26.10.1999 / 22:01:35 / stefan"
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	602	!
b7e57becd932 more tests Claus Gittinger <cg@exept.de> parents: 41 diff changeset	603
54 77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	604	testILC
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	605	"inline-cache"
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	606
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	607	self test:[(self testIsInteger:1) == true].
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	608	self test:[(self testIsInteger:nil) == false].
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	609	self test:[(self testIsInteger:1) == true].
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	610	self test:[(self testIsInteger:nil) == false].
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	611
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	612	self test:[(self testIsInteger:0) == true].
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	613	self test:[(self testIsInteger:nil) == false].
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	614	self test:[(self testIsInteger:0) == true].
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	615	self test:[(self testIsInteger:nil) == false].
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	616
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	617	"
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	618	self testILC
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	619	"
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	620
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	621	"Created: / 6.6.1999 / 14:47:51 / cg"
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	622	"Modified: / 9.6.1999 / 17:49:57 / cg"
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	623	!
77b06a241d57 ilc check Claus Gittinger <cg@exept.de> parents: 53 diff changeset	624
53 94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	625	testIntegerMisc
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	626	"misc tests.
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	627	Notice, the arithmetic tests are both performed via regular sends
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	628	and via constructed performs. The reason is to test both inlined
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	629	JIT-compiler code AND the regular methods code."
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	630
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	631	\|n1 n2 s\|
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	632
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	633	n1 := 100000.
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	634	n2 := n1 negated.
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	635	s := 1.
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	636
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	637	self test:[n1 printString = '100000'].
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	self test:[n1 negated printString = '-100000'].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	640	self test:[(n1 perform:'negated' asSymbol) printString = '-100000'].
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	self test:[n1 negated abs printString = '100000'].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	643	self test:[(n1 perform:'negated' asSymbol) abs printString = '100000'].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	644
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	645	self test:[n1 abs negated printString = '-100000'].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	646	self test:[(n1 perform:'abs' asSymbol) negated printString = '-100000'].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	647
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	648	n1 := SmallInteger maxVal.
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	649	self test:[n1 negated class == SmallInteger].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	650	self test:[(n1 perform:'negated' asSymbol) class == SmallInteger].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	651
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	652	n1 := SmallInteger minVal.
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	653	self test:[n1 negated class == LargeInteger].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	654	self test:[(n1 perform:'negated' asSymbol) class == LargeInteger].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	655
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	656	n1 := SmallInteger minVal negated - 1.
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	657	self test:[n1 negated class == SmallInteger].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	658	self test:[(n1 perform:'negated' asSymbol) class == SmallInteger].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	659	self test:[n1 == SmallInteger maxVal].
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	660
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	661	"
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	662	self testIntegerMisc
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	663	"
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	664
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	665	"Created: / 6.6.1999 / 14:47:51 / cg"
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	666	"Modified: / 9.6.1999 / 17:49:57 / cg"
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	667	!
94b4cfba8e21 checkin from browser Claus Gittinger <cg@exept.de> parents: 52 diff changeset	668
41 7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	669	testIntegerShifts
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	670	"arithmetic tests.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	671	Notice, the arithmetic tests are both performed via regular sends
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	672	and via constructed performs. The reason is to test both inlined
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	673	JIT-compiler code AND the regular methods code."
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	674
45 5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	675	self testIntegerShifts1.
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	676	self testIntegerShifts2.
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	677
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	678	self test:[
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	679	(((0 to:64) collect:[:s \| 1 bitShift:s])
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	680	collect:[:n \| n highBit]) = (1 to:65)
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	681	].
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	682
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	683	1 to:10000 do:[:s \|
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	684	self test:[ (1 bitShift:s) highBit == (s+1) ]
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	685	].
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	686	1 to:10000 do:[:s \|
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	687	self test:[ ((1 bitShift:s) - 1) highBit == s ]
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	688	].
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	689
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	690	"
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	691	self testIntegerShifts
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	692	"
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	693
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	694	"Created: / 6.6.1999 / 14:47:51 / cg"
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	695	"Modified: / 9.6.1999 / 17:49:57 / cg"
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	696	!
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	697
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	698	testIntegerShifts1
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	699	"arithmetic tests.
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	700	Notice, the arithmetic tests are both performed via regular sends
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	701	and via constructed performs. The reason is to test both inlined
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	702	JIT-compiler code AND the regular methods code."
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	703
41 7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	704	\|n1 n2 s\|
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	705
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	706	n1 := 100000.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	707	n2 := n1 negated.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	708	s := 1.
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	self test:[n1 printString = '100000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	711	self test:[n2 printString = '-100000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	712
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	713	self test:[(n1 bitShift:s) printString = '200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	714	self test:[(n1 bitShift:1) printString = '200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	715	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	716	self test:[(n1 perform:'bitShift:' asSymbol with:1) printString = '200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	717
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	718	s := s + 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	719	self test:[(n1 bitShift:s) printString = '400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	720	self test:[(n1 bitShift:2) printString = '400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	721	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	722	self test:[(n1 perform:'bitShift:' asSymbol with:2) printString = '400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	723
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	724	s := s + 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	725	self test:[(n1 bitShift:s) printString = '800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	726	self test:[(n1 bitShift:3) printString = '800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	727	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	728	self test:[(n1 perform:'bitShift:' asSymbol with:3) printString = '800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	729
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	730	s := s + 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	731	self test:[(n1 bitShift:s) printString = '1600000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	732	self test:[(n1 bitShift:4) printString = '1600000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	733	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '1600000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	734	self test:[(n1 perform:'bitShift:' asSymbol with:4) printString = '1600000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	735
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	736	s := s + 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	737	self test:[(n1 bitShift:s) printString = '3200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	738	self test:[(n1 bitShift:5) printString = '3200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	739	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '3200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	740	self test:[(n1 perform:'bitShift:' asSymbol with:5) printString = '3200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	741
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	742	s := s + 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	743	self test:[(n1 bitShift:s) printString = '6400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	744	self test:[(n1 bitShift:6) printString = '6400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	745	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '6400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	746	self test:[(n1 perform:'bitShift:' asSymbol with:6) printString = '6400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	747
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	748	s := s + 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	749	self test:[(n1 bitShift:s) printString = '12800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	750	self test:[(n1 bitShift:7) printString = '12800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	751	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '12800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	752	self test:[(n1 perform:'bitShift:' asSymbol with:7) printString = '12800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	753
45 5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	754	"
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	755	self testIntegerShifts1
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	756	"
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	757
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	758	"Created: / 6.6.1999 / 14:47:51 / cg"
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	759	"Modified: / 9.6.1999 / 17:49:57 / cg"
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	760	!
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	761
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	762	testIntegerShifts2
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	763	"arithmetic tests.
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	764	Notice, the arithmetic tests are both performed via regular sends
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	765	and via constructed performs. The reason is to test both inlined
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	766	JIT-compiler code AND the regular methods code."
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	767
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	768	\|n1 s\|
5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	769
41 7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	770	n1 := 12800000.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	771	s := -1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	772	self test:[(n1 bitShift:s) printString = '6400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	773	self test:[(n1 bitShift:-1) printString = '6400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	774	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '6400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	775	self test:[(n1 perform:'bitShift:' asSymbol with:-1) printString = '6400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	776
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	777	s := s - 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	778	self test:[(n1 bitShift:s) printString = '3200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	779	self test:[(n1 bitShift:-2) printString = '3200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	780	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '3200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	781	self test:[(n1 perform:'bitShift:' asSymbol with:-2) printString = '3200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	782
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	783	s := s - 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	784	self test:[(n1 bitShift:s) printString = '1600000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	785	self test:[(n1 bitShift:-3) printString = '1600000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	786	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '1600000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	787	self test:[(n1 perform:'bitShift:' asSymbol with:-3) printString = '1600000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	788
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	789	s := s - 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	790	self test:[(n1 bitShift:s) printString = '800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	791	self test:[(n1 bitShift:-4) printString = '800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	792	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	793	self test:[(n1 perform:'bitShift:' asSymbol with:-4) printString = '800000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	794
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	795	s := s - 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	796	self test:[(n1 bitShift:s) printString = '400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	797	self test:[(n1 bitShift:-5) printString = '400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	798	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	799	self test:[(n1 perform:'bitShift:' asSymbol with:-5) printString = '400000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	800
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	801	s := s - 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	802	self test:[(n1 bitShift:s) printString = '200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	803	self test:[(n1 bitShift:-6) printString = '200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	804	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	805	self test:[(n1 perform:'bitShift:' asSymbol with:-6) printString = '200000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	806
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	807	s := s - 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	808	self test:[(n1 bitShift:s) printString = '100000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	809	self test:[(n1 bitShift:-7) printString = '100000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	810	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '100000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	811	self test:[(n1 perform:'bitShift:' asSymbol with:-7) printString = '100000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	812
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	813	s := s - 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	814	self test:[(n1 bitShift:s) printString = '50000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	815	self test:[(n1 bitShift:-8) printString = '50000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	816	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '50000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	817	self test:[(n1 perform:'bitShift:' asSymbol with:-8) printString = '50000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	818
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	819	s := s - 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	820	self test:[(n1 bitShift:s) printString = '25000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	821	self test:[(n1 bitShift:-9) printString = '25000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	822	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '25000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	823	self test:[(n1 perform:'bitShift:' asSymbol with:-9) printString = '25000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	824
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	825	s := s - 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	826	self test:[(n1 bitShift:s) printString = '12500'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	827	self test:[(n1 bitShift:-10) printString = '12500'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	828	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '12500'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	829	self test:[(n1 perform:'bitShift:' asSymbol with:-10) printString = '12500'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	830
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	831	s := s - 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	832	self test:[(n1 bitShift:s) printString = '6250'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	833	self test:[(n1 bitShift:-11) printString = '6250'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	834	self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '6250'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	835	self test:[(n1 perform:'bitShift:' asSymbol with:-11) printString = '6250'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	836
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	837	"
45 5d24d22a546b checkin from browser Claus Gittinger <cg@exept.de> parents: 44 diff changeset	838	self testIntegerShifts2
41 7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	839	"
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	840
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	841	"Created: / 6.6.1999 / 14:47:51 / cg"
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	842	"Modified: / 9.6.1999 / 17:49:57 / cg"
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	843	!
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	844
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	845	testLargeAddition
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	846	"general conversion & arithmetic tests.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	847	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	848	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	849	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	850
19 c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	851	\|s n1 n2 x\|
13 45a348a410e8 * empty log message * Claus Gittinger <cg@exept.de> parents: 12 diff changeset	852
23 5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	853	"Large + Large addition"
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	854	self testReading1.
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	855
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	856	self test:[(20 factorial + 20 factorial) printString = '4865804016353280000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	857	self test:[(20 factorial + 1) printString = '2432902008176640001'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	858	self test:[(20 factorial + 1000) printString = '2432902008176641000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	859
29 cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	860	"Large + Small addition"
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	861
34 f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	862	self testLargeAddition1.
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	863
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	864	"Large + Large addition"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	865
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	866	self testLargeAddition2.
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	867
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	868	"Large - small subtraction"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	869
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	870	self testLargeAddition3.
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	871
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	872	"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	873	self testLargeAddition
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	874	"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	875
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	876	"Modified: / 4.6.1999 / 15:26:55 / cg"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	877	!
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	878
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	879	testLargeAddition1
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	880	"general conversion & arithmetic tests.
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	881	Notice, the arithmetic tests are both performed via regular sends
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	882	and via constructed performs. The reason is to test both inlined
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	883	JIT-compiler code AND the regular methods code."
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	884
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	885	\|s n1 n2 x\|
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	886
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	887	"Large + Small addition"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	888
29 cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	889	n1 := 16r3FFFFFFF. n2 := 1.
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	890	self test:[(n1 + n2 ) hexPrintString = '40000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	891	self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '40000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	892	n1 := 16r3FFFFFFFF. n2 := 1.
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	893	self test:[(n1 + n2 ) hexPrintString = '400000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	894	self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '400000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	895	n1 := 16r3FFFFFFFFF. n2 := 1.
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	896	self test:[(n1 + n2 ) hexPrintString = '4000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	897	self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '4000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	898	n1 := 16r3FFFFFFFFFF. n2 := 1.
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	899	self test:[(n1 + n2 ) hexPrintString = '40000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	900	self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '40000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	901	n1 := 16r3FFFFFFFFFFF. n2 := 1.
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	902	self test:[(n1 + n2 ) hexPrintString = '400000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	903	self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '400000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	904	n1 := 16r3FFFFFFFFFFFF. n2 := 1.
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	905	self test:[(n1 + n2 ) hexPrintString = '4000000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	906	self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '4000000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	907	n1 := 16r3FFFFFFFFFFFFF. n2 := 1.
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	908	self test:[(n1 + n2 ) hexPrintString = '40000000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	909	self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '40000000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	910	n1 := 16r3FFFFFFFFFFFFFF. n2 := 1.
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	911	self test:[(n1 + n2 ) hexPrintString = '400000000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	912	self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '400000000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	913	n1 := 16r3FFFFFFFFFFFFFFF. n2 := 1.
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	914	self test:[(n1 + n2 ) hexPrintString = '4000000000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	915	self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '4000000000000000'].
cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	916
34 f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	917	"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	918	self testLargeAddition1
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	919	"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	920
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	921	"Modified: / 4.6.1999 / 15:26:55 / cg"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	922	!
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	923
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	924	testLargeAddition2
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	925	"general conversion & arithmetic tests.
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	926	Notice, the arithmetic tests are both performed via regular sends
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	927	and via constructed performs. The reason is to test both inlined
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	928	JIT-compiler code AND the regular methods code."
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	929
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	930	\|s n1 n2 x\|
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	931
29 cedaa7d102d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 28 diff changeset	932	"Large + Large addition"
23 5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	933
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	934	n1 := 16r100000000. n2 := 16r7FFFFFFF.
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	935	self test:[(n1 - n2 ) hexPrintString = '80000001'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	936	self test:[(16r100000000 - n2 ) hexPrintString = '80000001'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	937	self test:[(n1 - 16r7FFFFFFF ) hexPrintString = '80000001'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	938	self test:[(16r100000000 - 16r7FFFFFFF ) hexPrintString = '80000001'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	939	self test:[(n1 perform:'-' asSymbol with:n2 ) hexPrintString = '80000001'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	940	self test:[(16r100000000 perform:'-' asSymbol with:n2 ) hexPrintString = '80000001'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	941	self test:[(n1 perform:'-' asSymbol with:16r7FFFFFFF ) hexPrintString = '80000001'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	942	self test:[(16r100000000 perform:'-' asSymbol with:16r7FFFFFFF ) hexPrintString = '80000001'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	943
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	944	n1 := 16r100000000. n2 := 16r80000000.
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	945	self test:[(n1 - n2 ) hexPrintString = '80000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	946	self test:[(16r100000000 - n2 ) hexPrintString = '80000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	947	self test:[(n1 - 16r80000000 ) hexPrintString = '80000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	948	self test:[(16r100000000 - 16r80000000 ) hexPrintString = '80000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	949	self test:[(n1 perform:'-' asSymbol with:n2 ) hexPrintString = '80000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	950	self test:[(16r100000000 perform:'-' asSymbol with:n2 ) hexPrintString = '80000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	951	self test:[(n1 perform:'-' asSymbol with:16r80000000 ) hexPrintString = '80000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	952	self test:[(16r100000000 perform:'-' asSymbol with:16r80000000 ) hexPrintString = '80000000'].
17 2573c1ad19a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 16 diff changeset	953
2573c1ad19a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 16 diff changeset	954	n1 := 16r100000000. n2 := 16rFFFFFFFF.
23 5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	955	self test:[(n1 - n2 ) hexPrintString = '1'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	956	self test:[(16r100000000 - n2 ) hexPrintString = '1'].
19 c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	957	self test:[(x := n1 - 16rFFFFFFFF) == 1].
17 2573c1ad19a4 checkin from browser Claus Gittinger <cg@exept.de> parents: 16 diff changeset	958
23 5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	959	self test:[(n1 - 16rFFFFFFFF ) hexPrintString = '1'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	960	self test:[(16r100000000 - 16rFFFFFFFF ) hexPrintString = '1'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	961	self test:[(n1 perform:'-' asSymbol with:n2 ) hexPrintString = '1'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	962	self test:[(16r100000000 perform:'-' asSymbol with:n2 ) hexPrintString = '1'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	963	self test:[(n1 perform:'-' asSymbol with:16rFFFFFFFF ) hexPrintString = '1'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	964	self test:[(16r100000000 perform:'-' asSymbol with:16rFFFFFFFF ) hexPrintString = '1'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	965
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	966	n1 := 16r100000000. n2 := 1.
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	967	self test:[(n1 - n2) hexPrintString = 'FFFFFFFF'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	968	self test:[(n1 - n2) hexPrintString = 'FFFFFFFF'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	969	self test:[(16r100000000 - n2) hexPrintString = 'FFFFFFFF'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	970	self test:[(n1 - 1) hexPrintString = 'FFFFFFFF'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	971	self test:[(16r100000000 - 1) hexPrintString = 'FFFFFFFF'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	972	self test:[(n1 perform:'-' asSymbol with:n2) hexPrintString = 'FFFFFFFF'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	973	self test:[(16r100000000 perform:'-' asSymbol with:n2) hexPrintString = 'FFFFFFFF'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	974	self test:[(n1 perform:'-' asSymbol with:1) hexPrintString = 'FFFFFFFF'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	975	self test:[(16r100000000 perform:'-' asSymbol with:1) hexPrintString = 'FFFFFFFF'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	976
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	977	n1 := 16r100000000. n2 := 16r10000000.
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	978	self test:[(n1 - n2) hexPrintString = 'F0000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	979	self test:[(16r100000000 - n2) hexPrintString = 'F0000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	980	self test:[(n1 - 16r10000000) hexPrintString = 'F0000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	981	self test:[(16r100000000 - 16r10000000) hexPrintString = 'F0000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	982	self test:[(n1 perform:'-' asSymbol with:n2) hexPrintString = 'F0000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	983	self test:[(16r100000000 perform:'-' asSymbol with:n2) hexPrintString = 'F0000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	984	self test:[(n1 perform:'-' asSymbol with:16r10000000) hexPrintString = 'F0000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	985	self test:[(16r100000000 perform:'-' asSymbol with:16r10000000) hexPrintString = 'F0000000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	986
34 f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	987	"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	988	self testLargeAddition2
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	989	"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	990
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	991	!
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	992
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	993	testLargeAddition3
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	994	"general conversion & arithmetic tests.
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	995	Notice, the arithmetic tests are both performed via regular sends
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	996	and via constructed performs. The reason is to test both inlined
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	997	JIT-compiler code AND the regular methods code."
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	998
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	999	\|s n1 n2 x\|
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1000
23 5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1001	"Large - small subtraction"
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1002	self test:[(20 factorial + 20 factorial - 1) printString = '4865804016353279999'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1003	self test:[(20 factorial - 10 factorial + 3628800) printString = '2432902008176640000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1004	self test:[(20 factorial - 11 factorial + 39916800) printString = '2432902008176640000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1005	self test:[(20 factorial - 12 factorial + 479001600) printString = '2432902008176640000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1006	self test:[(20 factorial - 13 factorial + 6227020800) printString = '2432902008176640000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1007	self test:[(20 factorial - 14 factorial + 87178291200) printString = '2432902008176640000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1008	self test:[(20 factorial - 15 factorial + 1307674368000) printString = '2432902008176640000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1009	self test:[(20 factorial - 16 factorial + 20922789888000) printString = '2432902008176640000'].
5db5444c09d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 22 diff changeset	1010	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	1011
52 544196f29bee * empty log message * Claus Gittinger <cg@exept.de> parents: 51 diff changeset	1012	self test:[1000 factorial printString = '402387260077093773543702433923003985719374864210714632543799910429938512398629020592044208486969404800479988610197196058631666872994808558901323829669944590997424504087073759918823627727188732519779505950995276120874975462497043601418278094646496291056393887437886487337119181045825783647849977012476632889835955735432513185323958463075557409114262417474349347553428646576611667797396668820291207379143853719588249808126867838374559731746136085379534524221586593201928090878297308431392844403281231558611036976801357304216168747609675871348312025478589320767169132448426236131412508780208000261683151027341827977704784635868170164365024153691398281264810213092761244896359928705114964975419909342221566832572080821333186116811553615836546984046708975602900950537616475847728421889679646244945160765353408198901385442487984959953319101723355556602139450399736280750137837615307127761926849034352625200015888535147331611702103968175921510907788019393178114194545257223865541461062892187960223838971476088506276862967146674697562911234082439208160153780889893964518263243671616762179168909779911903754031274622289988005195444414282012187361745992642956581746628302955570299024324153181617210465832036786906117260158783520751516284225540265170483304226143974286933061690897968482590125458327168226458066526769958652682272807075781391858178889652208164348344825993266043367660176999612831860788386150279465955131156552036093988180612138558600301435694527224206344631797460594682573103790084024432438465657245014402821885252470935190620929023136493273497565513958720559654228749774011413346962715422845862377387538230483865688976461927383814900140767310446640259899490222221765904339901886018566526485061799702356193897017860040811889729918311021171229845901641921068884387121855646124960798722908519296819372388642614839657382291123125024186649353143970137428531926649875337218940694281434118520158014123344828015051399694290153483077644569099073152433278288269864602789864321139083506217095002597389863554277196742822248757586765752344220207573630569498825087968928162753848863396909959826280956121450994871701244516461260379029309120889086942028510640182154399457156805941872748998094254742173582401063677404595741785160829230135358081840096996372524230560855903700624271243416909004153690105933983835777939410970027753472000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000'].
51 0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1013
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1014	n1 := n2 := 1.
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1015	self test:[(1000 factorial + n1 - n2) = 1000 factorial].
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1016	n1 := n2 := 1000.
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1017	self test:[(1000 factorial + n1 - n2) = 1000 factorial].
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1018	n1 := n2 := 16rFFFFFFFF.
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1019	self test:[(1000 factorial + n1 - n2) = 1000 factorial].
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1020	n1 := n2 := 16rFFFFFFFFFFFF.
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1021	self test:[(1000 factorial + n1 - n2) = 1000 factorial].
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1022	n1 := n2 := 16rFFFFFFFFFFFFFFFF.
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1023	self test:[(1000 factorial + n1 - n2) = 1000 factorial].
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1024	n1 := n2 := 1000 factorial.
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1025	self test:[(1000 factorial + n1 - n2) = 1000 factorial].
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1026
0e665a7d77ea checkin from browser Claus Gittinger <cg@exept.de> parents: 46 diff changeset	1027
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1028	"
34 f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1029	self testLargeAddition3
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1030	"
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1031
52 544196f29bee * empty log message * Claus Gittinger <cg@exept.de> parents: 51 diff changeset	1032	"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	1033	!
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1034
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1035	testLargeDivision
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1036	\|t\|
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1037
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1038	t := 20 factorial.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1039
16 b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1040	self test:[t printString = '2432902008176640000'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1041	self test:[t \\ 10 == 0].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1042	t := t // 10.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1043	self test:[t printString = '243290200817664000'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1044	self test:[t \\ 10 == 0].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1045	t := t // 10.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1046	self test:[t printString = '24329020081766400'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1047	self test:[t \\ 10 == 0].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1048	t := t // 10.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1049	self test:[t printString = '2432902008176640'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1050	self test:[t \\ 10 == 0].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1051	t := t // 10.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1052	self test:[t printString = '243290200817664'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1053	self test:[t \\ 10 == 4].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1054	t := t // 10.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1055	self test:[t printString = '24329020081766'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1056	self test:[t \\ 10 == 6].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1057	t := t // 10.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1058	self test:[t printString = '2432902008176'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1059	self test:[t \\ 10 == 6].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1060	t := t // 10.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1061	self test:[t printString = '243290200817'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1062	self test:[t \\ 10 == 7].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1063	t := t // 10.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1064	self test:[t printString = '24329020081'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1065	self test:[t \\ 10 == 1].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1066	t := t // 10.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1067	self test:[t printString = '2432902008'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1068	self test:[t \\ 10 == 8].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1069	t := t // 10.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1070	self test:[t printString = '243290200'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1071	self test:[t \\ 10 == 0].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1072
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1073
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1074	t := 20 factorial.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1075
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1076	self test:[t printString = '2432902008176640000'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1077	self test:[t \\ 1000 == 0].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1078	t := t // 1000.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1079	self test:[t printString = '2432902008176640'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1080	self test:[t \\ 1000 == 640].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1081	t := t // 1000.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1082	self test:[t printString = '2432902008176'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1083	self test:[t \\ 1000 == 176].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1084	t := t // 1000.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1085	self test:[t printString = '2432902008'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1086	self test:[t \\ 1000 == 8].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1087	t := t // 1000.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1088	self test:[t printString = '2432902'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1089	self test:[t \\ 1000 == 902].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1090	t := t // 1000.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1091	self test:[t printString = '2432'].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1092	self test:[t \\ 1000 == 432].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1093	t := t // 1000.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1094	self test:[t == 2].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1095	self test:[t \\ 1000 == 2].
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1096
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1097
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1098	t := 20 factorial.
b10bb029410d checkin from browser Claus Gittinger <cg@exept.de> parents: 15 diff changeset	1099
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1100	"Large // SmallInt division"
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1101	t := t // 20.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1102	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	1103	t := t // 19.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1104	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	1105	t := t // 18.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1106	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	1107	t := t // 17.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1108	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	1109	t := t // 16.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1110	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	1111	t := t // 15.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1112	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	1113	t := t // 14.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1114	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	1115	t := t // 13.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1116	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	1117	t := t // 12.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1118	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	1119	t := t // 11.
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1120	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	1121	self test:[t == 10 factorial].
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1122
26 eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1123	t := 20 factorial.
eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1124	t := t + 21 factorial.
eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1125	t absSubtract:21 factorial.
eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1126	self test:[t compressed = 20 factorial].
eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1127
eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1128	self test:[\|v\|
eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1129	v := 100 factorial copy.
eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1130	v absSubtract:99 factorial.
eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1131	v compressed = (100 factorial - 99 factorial)].
eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1132
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1133	"Large // Large division"
26 eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1134	self test:[(20 factorial // 19 factorial) == 20].
eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1135	self test:[(20 factorial * 21 // 20 // 21) = (19 factorial)].
eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1136	self test:[(10000 factorial // 9999 factorial) == 10000].
eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1137	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	1138
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1139	"
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1140	self testLargeDivision
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1141	"
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1142
26 eb5fdf34fb28 checkin from browser Claus Gittinger <cg@exept.de> parents: 25 diff changeset	1143	"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	1144	!
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1145
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1146	testLargeMultiplication
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1147	\|t1\|
29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1148
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1149	"multiplication"
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1150	t1 := 100.
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1151	self test:[t1 * t1 == 10000].
10 3cbe91972e2b checkin from browser Claus Gittinger <cg@exept.de> parents: 9 diff changeset	1152	self test:[(t1 perform:'*' asSymbol with:t1) == 10000].
11 30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1153	self test:[(t1 * t1) printString = '10000'].
30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1154	self test:[(t1 perform:'*' asSymbol with:t1) printString = '10000'].
30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1155
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1156	t1 := 1000.
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1157	self test:[t1 * t1 == 1000000].
10 3cbe91972e2b checkin from browser Claus Gittinger <cg@exept.de> parents: 9 diff changeset	1158	self test:[(t1 perform:'*' asSymbol with:t1) == 1000000].
11 30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1159	self test:[(t1 * t1) printString = '1000000'].
30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1160	self test:[(t1 perform:'*' asSymbol with:t1) printString = '1000000'].
30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1161
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1162	t1 := 10000.
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1163	self test:[t1 * t1 == 100000000].
10 3cbe91972e2b checkin from browser Claus Gittinger <cg@exept.de> parents: 9 diff changeset	1164	self test:[(t1 perform:'*' asSymbol with:t1) == 100000000].
11 30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1165	self test:[(t1 * t1) printString = '100000000'].
30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1166	self test:[(t1 perform:'*' asSymbol with:t1) printString = '100000000'].
30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1167
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1168	t1 := 100000.
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1169	SmallInteger maxBytes == 4 ifTrue:[
10 3cbe91972e2b checkin from browser Claus Gittinger <cg@exept.de> parents: 9 diff changeset	1170	self test:[t1 * t1 = 10000000000].
3cbe91972e2b checkin from browser Claus Gittinger <cg@exept.de> parents: 9 diff changeset	1171	self test:[(t1 perform:'*' asSymbol with:t1) = 10000000000].
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1172	].
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1173	SmallInteger maxBytes == 8 ifTrue:[
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1174	self test:[t1 * t1 == 10000000000].
10 3cbe91972e2b checkin from browser Claus Gittinger <cg@exept.de> parents: 9 diff changeset	1175	self test:[(t1 perform:'*' asSymbol with:t1) == 10000000000].
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1176	].
4 28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	1177
11 30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1178	self test:[(t1 * t1) printString = '10000000000'].
4 28e927bbc4e6 checkin from browser Claus Gittinger <cg@exept.de> parents: 3 diff changeset	1179	self test:[(t1 perform:'*' asSymbol with:t1) printString = '10000000000'].
11 30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1180
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1181	t1 := 1000000.
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1182	self test:[(t1 * t1) printString = '1000000000000'].
11 30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1183	self test:[(t1 perform:'*' asSymbol with:t1) printString = '1000000000000'].
30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1184
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1185	t1 := 10000000.
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1186	self test:[(t1 * t1) printString = '100000000000000'].
11 30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1187	self test:[(t1 perform:'*' asSymbol with:t1) printString = '100000000000000'].
30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1188
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1189	t1 := 100000000.
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1190	self test:[(t1 * t1) printString = '10000000000000000'].
11 30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1191	self test:[(t1 perform:'*' asSymbol with:t1) printString = '10000000000000000'].
30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1192
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1193	t1 := 1000000000.
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1194	self test:[(t1 * t1) printString = '1000000000000000000'].
11 30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1195	self test:[(t1 perform:'*' asSymbol with:t1) printString = '1000000000000000000'].
30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1196
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1197
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1198	"Large * SmallInt multiplication"
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1199	self test:[10 factorial printString = '3628800'].
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1200	self test:[20 factorial printString = '2432902008176640000'].
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1201	self test:[100 factorial printString = '93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000'].
4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1202	self test:[1000 factorial printString = '402387260077093773543702433923003985719374864210714632543799910429938512398629020592044208486969404800479988610197196058631666872994808558901323829669944590997424504087073759918823627727188732519779505950995276120874975462497043601418278094646496291056393887437886487337119181045825783647849977012476632889835955735432513185323958463075557409114262417474349347553428646576611667797396668820291207379143853719588249808126867838374559731746136085379534524221586593201928090878297308431392844403281231558611036976801357304216168747609675871348312025478589320767169132448426236131412508780208000261683151027341827977704784635868170164365024153691398281264810213092761244896359928705114964975419909342221566832572080821333186116811553615836546984046708975602900950537616475847728421889679646244945160765353408198901385442487984959953319101723355556602139450399736280750137837615307127761926849034352625200015888535147331611702103968175921510907788019393178114194545257223865541461062892187960223838971476088506276862967146674697562911234082439208160153780889893964518263243671616762179168909779911903754031274622289988005195444414282012187361745992642956581746628302955570299024324153181617210465832036786906117260158783520751516284225540265170483304226143974286933061690897968482590125458327168226458066526769958652682272807075781391858178889652208164348344825993266043367660176999612831860788386150279465955131156552036093988180612138558600301435694527224206344631797460594682573103790084024432438465657245014402821885252470935190620929023136493273497565513958720559654228749774011413346962715422845862377387538230483865688976461927383814900140767310446640259899490222221765904339901886018566526485061799702356193897017860040811889729918311021171229845901641921068884387121855646124960798722908519296819372388642614839657382291123125024186649353143970137428531926649875337218940694281434118520158014123344828015051399694290153483077644569099073152433278288269864602789864321139083506217095002597389863554277196742822248757586765752344220207573630569498825087968928162753848863396909959826280956121450994871701244516461260379029309120889086942028510640182154399457156805941872748998094254742173582401063677404595741785160829230135358081840096996372524230560855903700624271243416909004153690105933983835777939410970027753472000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000'].
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1203
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1204	"Large * Large multiplication"
24 75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1205	self test:[(16r3FFF * 16r3FFF) hexPrintString = 'FFF8001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1206	self test:[(16r7FFF * 16r7FFF) hexPrintString = '3FFF0001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1207	self test:[(16rFFFF * 16rFFFF) hexPrintString = 'FFFE0001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1208	self test:[(16r3FFFFF * 16r3FFFFF) hexPrintString = 'FFFFF800001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1209	self test:[(16r7FFFFF * 16r7FFFFF) hexPrintString = '3FFFFF000001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1210	self test:[(16rFFFFFF * 16rFFFFFF) hexPrintString = 'FFFFFE000001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1211	self test:[(16r3FFFFFFF * 16r3FFFFFFF) hexPrintString = 'FFFFFFF80000001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1212	self test:[(16r7FFFFFFF * 16r7FFFFFFF) hexPrintString = '3FFFFFFF00000001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1213	self test:[(16rFFFFFFFF * 16rFFFFFFFF) hexPrintString = 'FFFFFFFE00000001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1214	self test:[(16r3FFFFFFFFF * 16r3FFFFFFFFF) hexPrintString = 'FFFFFFFFF8000000001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1215	self test:[(16r7FFFFFFFFF * 16r7FFFFFFFFF) hexPrintString = '3FFFFFFFFF0000000001'].
75a5c02e255d checkin from browser Claus Gittinger <cg@exept.de> parents: 23 diff changeset	1216	self test:[(16rFFFFFFFFFF * 16rFFFFFFFFFF) hexPrintString = 'FFFFFFFFFE0000000001'].
3 4def69f1ad4a * empty log message * Claus Gittinger <cg@exept.de> parents: 2 diff changeset	1217	self test:[(20 factorial * 20 factorial) printString = '5919012181389927685417441689600000000'].
7 7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1218
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1219	"
12 29d0f2e59dcb splitted into smaller methods to avoid JIT-bail-out Claus Gittinger <cg@exept.de> parents: 11 diff changeset	1220	self testLargeMultiplication
7 7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1221	"
10 3cbe91972e2b checkin from browser Claus Gittinger <cg@exept.de> parents: 9 diff changeset	1222
11 30bdd5912a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 10 diff changeset	1223	"Modified: / 20.5.1999 / 09:41:19 / cg"
7 7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1224	!
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1225
19 c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1226	testLiteralNumbers
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1227	self test:[self num_00000000000010000 hexPrintString = '10000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1228	self test:[self num_00000000000100000 hexPrintString = '100000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1229	self test:[self num_00000000001000000 hexPrintString = '1000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1230	self test:[self num_00000000010000000 hexPrintString = '10000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1231	self test:[self num_00000000100000000 hexPrintString = '100000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1232	self test:[self num_00000001000000000 hexPrintString = '1000000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1233	self test:[self num_00000010000000000 hexPrintString = '10000000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1234	self test:[self num_00000100000000000 hexPrintString = '100000000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1235	self test:[self num_00001000000000000 hexPrintString = '1000000000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1236	self test:[self num_00010000000000000 hexPrintString = '10000000000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1237	self test:[self num_00100000000000000 hexPrintString = '100000000000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1238	self test:[self num_01000000000000000 hexPrintString = '1000000000000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1239	self test:[self num_10000000000000000 hexPrintString = '10000000000000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1240
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1241	self test:[self num_00000000000007FFF hexPrintString = '7FFF'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1242	self test:[self num_00000000000008000 hexPrintString = '8000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1243	self test:[self num_0000000000000FFFF hexPrintString = 'FFFF'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1244	self test:[self num_000000000007FFFFF hexPrintString = '7FFFFF'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1245	self test:[self num_00000000000800000 hexPrintString = '800000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1246	self test:[self num_00000000000FFFFFF hexPrintString = 'FFFFFF'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1247	self test:[self num_0000000007FFFFFFF hexPrintString = '7FFFFFFF'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1248	self test:[self num_00000000080000000 hexPrintString = '80000000'].
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1249	self test:[self num_000000000FFFFFFFF hexPrintString = 'FFFFFFFF'].
21 7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1250	self test:[self num_0000000FFFFFFFFFF hexPrintString = 'FFFFFFFFFF'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1251	self test:[self num_00000FFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFF'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1252	self test:[self num_000FFFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFFFF'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1253	self test:[self num_0FFFFFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFFFFFF'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1254	self test:[self num_1FFFFFFFFFFFFFFFF hexPrintString = '1FFFFFFFFFFFFFFFF'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1255	self test:[self num_20000000000000000 hexPrintString = '20000000000000000'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1256	self test:[self num_3FFFFFFFFFFFFFFFF hexPrintString = '3FFFFFFFFFFFFFFFF'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1257	self test:[self num_40000000000000000 hexPrintString = '40000000000000000'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1258	self test:[self num_7FFFFFFFFFFFFFFFF hexPrintString = '7FFFFFFFFFFFFFFFF'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1259	self test:[self num_80000000000000000 hexPrintString = '80000000000000000'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1260
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1261	self test:[self num_00000FFFFFFFFFFFE hexPrintString = 'FFFFFFFFFFFE'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1262	self test:[self num_00000FFFFFFFFFFFC hexPrintString = 'FFFFFFFFFFFC'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1263	self test:[self num_00000FFFFFFFFFFF8 hexPrintString = 'FFFFFFFFFFF8'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1264	self test:[self num_00000FFFFFFFFFFF0 hexPrintString = 'FFFFFFFFFFF0'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1265	self test:[self num_00000FFFFFFFFFFE0 hexPrintString = 'FFFFFFFFFFE0'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1266	self test:[self num_00000FFFFFFFFFFC0 hexPrintString = 'FFFFFFFFFFC0'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1267	self test:[self num_00000FFFFFFFFFF80 hexPrintString = 'FFFFFFFFFF80'].
7acbbe514e11 checkin from browser Claus Gittinger <cg@exept.de> parents: 20 diff changeset	1268	self test:[self num_00000FFFFFFFFFF00 hexPrintString = 'FFFFFFFFFF00'].
19 c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1269
22 7f01716fbbe2 checkin from browser Claus Gittinger <cg@exept.de> parents: 21 diff changeset	1270	self test:[self num_0000000000FFF0000 hexPrintString = 'FFF0000'].
7f01716fbbe2 checkin from browser Claus Gittinger <cg@exept.de> parents: 21 diff changeset	1271
19 c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1272	"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1273	self testLiteralNumbers
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1274	"
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1275
22 7f01716fbbe2 checkin from browser Claus Gittinger <cg@exept.de> parents: 21 diff changeset	1276	"Modified: / 4.6.1999 / 18:41:09 / cg"
19 c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1277	!
c21f3bbedd21 checkin from browser Claus Gittinger <cg@exept.de> parents: 18 diff changeset	1278
7 7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1279	testPrinting1
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1280	self test:[10 printString = '10'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1281	self test:[100 printString = '100'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1282	self test:[1000 printString = '1000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1283	self test:[10000 printString = '10000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1284	self test:[100000 printString = '100000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1285	self test:[1000000 printString = '1000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1286	self test:[10000000 printString = '10000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1287	self test:[100000000 printString = '100000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1288	self test:[1000000000 printString = '1000000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1289	self test:[10000000000 printString = '10000000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1290	self test:[100000000000 printString = '100000000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1291	self test:[1000000000000 printString = '1000000000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1292	self test:[10000000000000 printString = '10000000000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1293	self test:[100000000000000 printString = '100000000000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1294	self test:[1000000000000000 printString = '1000000000000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1295	self test:[10000000000000000 printString = '10000000000000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1296	self test:[100000000000000000 printString = '100000000000000000'].
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1297
40 17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1298	self test:[16rF hexPrintString = 'F'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1299	self test:[16rFF hexPrintString = 'FF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1300	self test:[16rFFF hexPrintString = 'FFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1301	self test:[16rFFFF hexPrintString = 'FFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1302	self test:[16rFFFFF hexPrintString = 'FFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1303	self test:[16rFFFFFF hexPrintString = 'FFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1304	self test:[16rFFFFFFF hexPrintString = 'FFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1305	self test:[16rFFFFFFFF hexPrintString = 'FFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1306	self test:[16rFFFFFFFFF hexPrintString = 'FFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1307	self test:[16rFFFFFFFFFF hexPrintString = 'FFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1308	self test:[16rFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1309	self test:[16rFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1310	self test:[16rFFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1311	self test:[16rFFFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1312	self test:[16rFFFFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1313	self test:[16rFFFFFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1314	self test:[16rFFFFFFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1315	self test:[16rFFFFFFFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1316	self test:[16rFFFFFFFFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1317	self test:[16rFFFFFFFFFFFFFFFFFFFF hexPrintString = 'FFFFFFFFFFFFFFFFFFFF'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1318
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1319	self test:[16r10 hexPrintString = '10'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1320	self test:[16r100 hexPrintString = '100'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1321	self test:[16r1000 hexPrintString = '1000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1322	self test:[16r10000 hexPrintString = '10000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1323	self test:[16r100000 hexPrintString = '100000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1324	self test:[16r1000000 hexPrintString = '1000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1325	self test:[16r10000000 hexPrintString = '10000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1326	self test:[16r100000000 hexPrintString = '100000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1327	self test:[16r1000000000 hexPrintString = '1000000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1328	self test:[16r10000000000 hexPrintString = '10000000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1329	self test:[16r100000000000 hexPrintString = '100000000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1330	self test:[16r1000000000000 hexPrintString = '1000000000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1331	self test:[16r10000000000000 hexPrintString = '10000000000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1332	self test:[16r100000000000000 hexPrintString = '100000000000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1333	self test:[16r1000000000000000 hexPrintString = '1000000000000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1334	self test:[16r10000000000000000 hexPrintString = '10000000000000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1335	self test:[16r100000000000000000 hexPrintString = '100000000000000000'].
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1336
7 7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1337	"
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1338	self testPrinting1
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1339	"
40 17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1340
17d7ab809846 checkin from browser Claus Gittinger <cg@exept.de> parents: 39 diff changeset	1341	"Modified: / 26.10.1999 / 22:01:35 / stefan"
7 7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1342	!
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1343
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1344	testReading1
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1345	\|t\|
7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1346
5 f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1347	self test:[(Integer readFrom:'4865804016353280000') printString = '4865804016353280000'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1348	self test:[(Integer readFrom:'FFFFFFFF' radix:16) hexPrintString = 'FFFFFFFF'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1349	self test:[(Integer readFrom:'FFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFF'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1350	self test:[(Integer readFrom:'FFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFF'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1351	self test:[(Integer readFrom:'FFFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFFF'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1352	self test:[(Integer readFrom:'FFFFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFFFF'].
15 99df9ea7f146 checkin from browser Claus Gittinger <cg@exept.de> parents: 14 diff changeset	1353	self test:[(Integer readFrom:'FFFFFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFFFFF'].
99df9ea7f146 checkin from browser Claus Gittinger <cg@exept.de> parents: 14 diff changeset	1354	self test:[(Integer readFrom:'FFFFFFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFFFFFF'].
5 f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1355
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1356	self test:[(Integer readFrom:'10000000' radix:16) hexPrintString = '10000000'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1357	self test:[(Integer readFrom:'100000000' radix:16) hexPrintString = '100000000'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1358	self test:[(Integer readFrom:'1000000000' radix:16) hexPrintString = '1000000000'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1359	self test:[(Integer readFrom:'10000000000' radix:16) hexPrintString = '10000000000'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1360	self test:[(Integer readFrom:'100000000000' radix:16) hexPrintString = '100000000000'].
15 99df9ea7f146 checkin from browser Claus Gittinger <cg@exept.de> parents: 14 diff changeset	1361	self test:[(Integer readFrom:'1000000000000' radix:16) hexPrintString = '1000000000000'].
99df9ea7f146 checkin from browser Claus Gittinger <cg@exept.de> parents: 14 diff changeset	1362	self test:[(Integer readFrom:'10000000000000' radix:16) hexPrintString = '10000000000000'].
5 f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1363
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1364	t := Integer readFrom:'FFFFFFFF' radix:16.
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1365	self test:[(t + 1) hexPrintString = '100000000'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1366	t := Integer readFrom:'FFFFFFFFF' radix:16.
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1367	self test:[(t + 1) hexPrintString = '1000000000'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1368	t := Integer readFrom:'FFFFFFFFFF' radix:16.
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1369	self test:[(t + 1) hexPrintString = '10000000000'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1370	t := Integer readFrom:'FFFFFFFFFFF' radix:16.
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1371	self test:[(t + 1) hexPrintString = '100000000000'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1372
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1373	t := Integer readFrom:'10000000' radix:16.
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1374	self test:[(t + 1) hexPrintString = '10000001'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1375	t := Integer readFrom:'100000000' radix:16.
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1376	self test:[(t + 1) hexPrintString = '100000001'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1377	t := Integer readFrom:'1000000000' radix:16.
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1378	self test:[(t + 1) hexPrintString = '1000000001'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1379	t := Integer readFrom:'10000000000' radix:16.
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1380	self test:[(t + 1) hexPrintString = '10000000001'].
f100f290c769 checkin from browser Claus Gittinger <cg@exept.de> parents: 4 diff changeset	1381
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1382	"
7 7341cc740119 checkin from browser Claus Gittinger <cg@exept.de> parents: 6 diff changeset	1383	self testReading1
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1384	"
27 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
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1387	testSmallIntegerArithmetic
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1388	"arithmetic tests.
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1389	Notice, the arithmetic tests are both performed via regular sends
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1390	and via constructed performs. The reason is to test both inlined
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1391	JIT-compiler code AND the regular methods code."
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	\|s n1 n2 t\|
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1394
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1395	"/ test division and modulu ...
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1396	self test:[1 printString = '1'].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1397	self test:[10 printString = '10'].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1398	self test:[100 printString = '100'].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1399	self test:[1000 printString = '1000'].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1400	self test:[10000 printString = '10000'].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1401	self test:[100000 printString = '100000'].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1402
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1403	"addition with overflow"
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1404
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1405	SmallInteger maxBytes == 4 ifTrue:[
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1406	n1 := 16r3FFFFFFF.
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1407	n2 := -16r40000000.
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1408	] ifFalse:[
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1409	n1 := 16r3FFFFFFFFFFFFFFF.
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1410	n2 := -16r4000000000000000.
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1411	].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1412	self test:[n1 class == SmallInteger].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1413	self test:[n2 class == SmallInteger].
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	self test:[(n1 + 1) class == LargeInteger].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1416	t := n1 + 1.
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1417	self test:[(t - 1) class == SmallInteger].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1418
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1419	self test:[(n2 - 1) class == LargeInteger].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1420	t := n2 - 1.
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1421	self test:[(t + 1) class == SmallInteger].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1422
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1423	self test:[(n1 negated) class == SmallInteger].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1424	self test:[(n2 negated) class == LargeInteger].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1425	self test:[(n1 perform:'negated' asSymbol) class == SmallInteger].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1426	self test:[(n2 perform:'negated' asSymbol) class == LargeInteger].
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1427
28 fca649220051 checkin from browser Claus Gittinger <cg@exept.de> parents: 27 diff changeset	1428	self test:[(n1 abs == n1)].
fca649220051 checkin from browser Claus Gittinger <cg@exept.de> parents: 27 diff changeset	1429	self test:[(n2 abs = n2 negated)].
fca649220051 checkin from browser Claus Gittinger <cg@exept.de> parents: 27 diff changeset	1430	self test:[(n1 perform:'abs' asSymbol) == n1].
fca649220051 checkin from browser Claus Gittinger <cg@exept.de> parents: 27 diff changeset	1431	self test:[(n2 perform:'abs' asSymbol) = n2 negated].
fca649220051 checkin from browser Claus Gittinger <cg@exept.de> parents: 27 diff changeset	1432
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1433	self testSmallIntegerMultiplication1.
d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1434	self testSmallIntegerMultiplication1b.
d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1435	self testSmallIntegerMultiplication2.
46 cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1436	self testSmallIntegerDivision1.
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1437
27 8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1438	"
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1439	self testSmallIntegerArithmetic
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1440	"
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1441
8386e8469cdf checkin from browser Claus Gittinger <cg@exept.de> parents: 26 diff changeset	1442	"Created: / 6.6.1999 / 14:47:51 / cg"
33 f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1443	"Modified: / 9.6.1999 / 17:49:57 / cg"
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1444	!
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1445
46 cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1446	testSmallIntegerDivision1
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1447	"division tests.
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1448	Notice, the arithmetic tests are both performed via regular sends
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1449	and via constructed performs. The reason is to test both inlined
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1450	JIT-compiler code AND the regular methods code."
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1451
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1452	\|s n1 n2 t\|
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1453
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1454	n1 := 1000.
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1455
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1456	"/ truncation towards...
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1457
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1458	"/ ... negative infinity
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 // n2) == 333].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1461	self test:[(n1 // n2) printString = '333'].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1462	self test:[(n1 perform:'//' 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 := -3.
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1465	self test:[(n1 // n2) == -334].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1466	self test:[(n1 // n2) printString = '-334'].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1467	self test:[(n1 perform:'//' asSymbol with:n2) == -334].
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 // n2) == 0].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1471	self test:[(n1 // n2) printString = '0'].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1472	self test:[(n1 perform:'//' 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	n2 := -3600000.
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1475	self test:[(n1 // n2) == -1].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1476	self test:[(n1 // n2) printString = '-1'].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1477	self test:[(n1 perform:'//' asSymbol with:n2) == -1].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1478
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1479	"/ ... zero
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1480	n2 := 3.
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1481	self test:[(n1 quo: n2) == 333].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1482	self test:[(n1 quo: n2) printString = '333'].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1483	self test:[(n1 perform:'quo:' asSymbol with:n2) == 333].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1484
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1485	n2 := -3.
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1486	self test:[(n1 quo: n2) == -333].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1487	self test:[(n1 quo: n2) printString = '-333'].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1488	self test:[(n1 perform:'quo:' asSymbol with:n2) == -333].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1489
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1490	n2 := 3600000.
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1491	self test:[(n1 quo: n2) == 0].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1492	self test:[(n1 quo: n2) printString = '0'].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1493	self test:[(n1 perform:'quo:' asSymbol with:n2) == 0].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1494
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1495	n2 := -3600000.
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1496	self test:[(n1 quo: n2) == 0].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1497	self test:[(n1 quo: n2) printString = '0'].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1498	self test:[(n1 perform:'quo:' asSymbol with:n2) == 0].
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1499
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1500	"
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1501	self testSmallIntegerDivision1
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1502	"
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1503
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1504	"Modified: / 9.6.1999 / 17:47:56 / cg"
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1505	"Created: / 9.6.1999 / 17:49:45 / cg"
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1506	!
cfc40ffac21a added division checks Claus Gittinger <cg@exept.de> parents: 45 diff changeset	1507
33 f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1508	testSmallIntegerMultiplication1
39 bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1509	"multiply tests (var * const).
33 f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1510	Notice, the arithmetic tests are both performed via regular sends
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1511	and via constructed performs. The reason is to test both inlined
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1512	JIT-compiler code AND the regular methods code."
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1513
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1514	\|s n1 n2 t\|
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1515
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1516	n1 := 100000.
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1517	n2 := n1 negated.
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1518
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1519	self test:[n1 printString = '100000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1520	self test:[n2 printString = '-100000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1521
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1522	self test:[(n1 * 0) printString = '0'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1523	self test:[(n1 perform:'*' asSymbol with:0) printString = '0'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1524
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1525	self test:[(n1 * 1) printString = '100000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1526	self test:[(n1 perform:'*' asSymbol with:1) printString = '100000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1527	self test:[(n2 * 1) printString = '-100000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1528	self test:[(n2 perform:'*' asSymbol with:1) printString = '-100000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1529
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1530	self test:[(n1 * -1) printString = '-100000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1531	self test:[(n1 perform:'*' asSymbol with:-1) printString = '-100000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1532	self test:[(n2 * -1) printString = '100000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1533	self test:[(n2 perform:'*' asSymbol with:-1) printString = '100000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1534
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1535	self test:[(n1 * 2) printString = '200000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1536	self test:[(n1 perform:'*' asSymbol with:2) printString = '200000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1537	self test:[(n1 * 3) printString = '300000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1538	self test:[(n1 perform:'*' asSymbol with:3) printString = '300000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1539	self test:[(n1 * 4) printString = '400000'].
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1540	self test:[(n1 perform:'*' asSymbol with:4) printString = '400000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1541	self test:[(n1 * 5) printString = '500000'].
33 f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1542	self test:[(n1 perform:'*' asSymbol with:5) printString = '500000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1543	self test:[(n1 * 6) printString = '600000'].
33 f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1544	self test:[(n1 perform:'*' asSymbol with:6) printString = '600000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1545	self test:[(n1 * 7) printString = '700000'].
33 f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1546	self test:[(n1 perform:'*' asSymbol with:7) printString = '700000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1547	self test:[(n1 * 8) printString = '800000'].
37 166691c3c99d * empty log message * Claus Gittinger <cg@exept.de> parents: 36 diff changeset	1548	self test:[(n1 perform:'*' asSymbol with:8) printString = '800000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1549	self test:[(n1 * 9) printString = '900000'].
37 166691c3c99d * empty log message * Claus Gittinger <cg@exept.de> parents: 36 diff changeset	1550	self test:[(n1 perform:'*' asSymbol with:9) printString = '900000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1551	self test:[(n1 * 10) printString = '1000000'].
37 166691c3c99d * empty log message * Claus Gittinger <cg@exept.de> parents: 36 diff changeset	1552	self test:[(n1 perform:'*' asSymbol with:10) printString = '1000000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1553	self test:[(n1 * 11) printString = '1100000'].
37 166691c3c99d * empty log message * Claus Gittinger <cg@exept.de> parents: 36 diff changeset	1554	self test:[(n1 perform:'*' asSymbol with:11) printString = '1100000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1555	self test:[(n1 * 12) printString = '1200000'].
37 166691c3c99d * empty log message * Claus Gittinger <cg@exept.de> parents: 36 diff changeset	1556	self test:[(n1 perform:'*' asSymbol with:12) printString = '1200000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1557	self test:[(n1 * 13) printString = '1300000'].
37 166691c3c99d * empty log message * Claus Gittinger <cg@exept.de> parents: 36 diff changeset	1558	self test:[(n1 perform:'*' asSymbol with:13) printString = '1300000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1559	self test:[(n1 * 14) printString = '1400000'].
37 166691c3c99d * empty log message * Claus Gittinger <cg@exept.de> parents: 36 diff changeset	1560	self test:[(n1 perform:'*' asSymbol with:14) printString = '1400000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1561	self test:[(n1 * 15) printString = '1500000'].
37 166691c3c99d * empty log message * Claus Gittinger <cg@exept.de> parents: 36 diff changeset	1562	self test:[(n1 perform:'*' asSymbol with:15) printString = '1500000'].
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1563	self test:[(n1 * 16) printString = '1600000'].
37 166691c3c99d * empty log message * Claus Gittinger <cg@exept.de> parents: 36 diff changeset	1564	self test:[(n1 perform:'*' asSymbol with:16) printString = '1600000'].
33 f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1565
41 7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1566	n1 := 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1567	n2 := 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1568	self test:[(n1 * n2) printString = '10'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1569	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1570	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1571	self test:[(n1 * n2) printString = '100'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1572	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1573	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1574	self test:[(n1 * n2) printString = '1000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1575	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1576	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1577	self test:[(n1 * n2) printString = '10000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1578	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1579	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1580	self test:[(n1 * n2) printString = '100000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1581	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1582	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1583	self test:[(n1 * n2) printString = '1000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1584	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1585	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1586	self test:[(n1 * n2) printString = '10000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1587	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1588	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1589	self test:[(n1 * n2) printString = '100000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1590	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1591	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1592	self test:[(n1 * n2) printString = '1000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1593	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1594	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1595	self test:[(n1 * n2) printString = '10000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1596	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1597	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1598	self test:[(n1 * n2) printString = '100000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1599	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1600	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1601	self test:[(n1 * n2) printString = '1000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1602	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1603	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1604	self test:[(n1 * n2) printString = '10000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1605	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1606
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1607	n1 := 1.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1608	n2 := 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1609	self test:[(n1 * n2) printString = '10'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1610	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1611	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1612	self test:[(n1 * n2) printString = '100'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1613	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1614	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1615	self test:[(n1 * n2) printString = '1000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1616	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1617	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1618	self test:[(n1 * n2) printString = '10000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1619	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1620	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1621	self test:[(n1 * n2) printString = '100000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1622	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1623	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1624	self test:[(n1 * n2) printString = '1000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1625	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000000'].
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	self test:[(n1 * n2) printString = '10000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1628	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1629	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1630	self test:[(n1 * n2) printString = '100000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1631	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1632	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1633	self test:[(n1 * n2) printString = '1000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1634	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1635	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1636	self test:[(n1 * n2) printString = '10000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1637	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000000000'].
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	self test:[(n1 * n2) printString = '100000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1640	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1641	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1642	self test:[(n1 * n2) printString = '1000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1643	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1644	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1645	self test:[(n1 * n2) printString = '10000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1646	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1647
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1648	n1 := 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1649	n2 := 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1650	self test:[(n1 * n2) printString = '100'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1651	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1652	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1653	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1654	self test:[(n1 * n2) printString = '10000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1655	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1656	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1657	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1658	self test:[(n1 * n2) printString = '1000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1659	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1660	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1661	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1662	self test:[(n1 * n2) printString = '100000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1663	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1664	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1665	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1666	self test:[(n1 * n2) printString = '10000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1667	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1668	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1669	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1670	self test:[(n1 * n2) printString = '1000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1671	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1672	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1673	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1674	self test:[(n1 * n2) printString = '100000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1675	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1676	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1677	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1678	self test:[(n1 * n2) printString = '10000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1679	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1680	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1681	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1682	self test:[(n1 * n2) printString = '1000000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1683	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1684	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1685	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1686	self test:[(n1 * n2) printString = '100000000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1687	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100000000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1688	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1689	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1690	self test:[(n1 * n2) printString = '10000000000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1691	self test:[(n1 perform:'*' asSymbol with:n2) printString = '10000000000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1692	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1693	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1694	self test:[(n1 * n2) printString = '1000000000000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1695	self test:[(n1 perform:'*' asSymbol with:n2) printString = '1000000000000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1696	n1 := n1 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1697	n2 := n2 * 10.
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1698	self test:[(n1 * n2) printString = '100000000000000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1699	self test:[(n1 perform:'*' asSymbol with:n2) printString = '100000000000000000000000000'].
7b7d7890a939 checkin from browser Claus Gittinger <cg@exept.de> parents: 40 diff changeset	1700
33 f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1701	"
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1702	self testSmallIntegerMultiplication1
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1703	"
f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1704
32 03d8794d981d * empty log message * Claus Gittinger <cg@exept.de> parents: 31 diff changeset	1705	"Modified: / 9.6.1999 / 17:47:56 / cg"
33 f7b691b71cad checkin from browser Claus Gittinger <cg@exept.de> parents: 32 diff changeset	1706	"Created: / 9.6.1999 / 17:49:45 / cg"
34 f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1707	!
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1708
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1709	testSmallIntegerMultiplication1b
39 bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1710	"multiply tests (const * var).
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1711	Notice, the arithmetic tests are both performed via regular sends
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1712	and via constructed performs. The reason is to test both inlined
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1713	JIT-compiler code AND the regular methods code."
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1714
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1715	\|s n1 n2 t\|
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1716
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1717	n1 := 100000.
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1718	n2 := n1 negated.
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1719
38 d9e56dee842c checkin from browser Claus Gittinger <cg@exept.de> parents: 37 diff changeset	1720	self test:[(0 * n1) printString = '0'].
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1721	self test:[(0 perform:'*' asSymbol with:n1) printString = '0'].
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1722
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1723	self test:[(1 * n1) printString = '100000'].
36 fe8e9bc7953d checkin from browser Claus Gittinger <cg@exept.de> parents: 35 diff changeset	1724	self test:[(1 perform:'*' asSymbol with:n1) printString = '100000'].
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1725	self test:[(1 * n2) printString = '-100000'].
36 fe8e9bc7953d checkin from browser Claus Gittinger <cg@exept.de> parents: 35 diff changeset	1726	self test:[(1 perform:'*' asSymbol with:n2) printString = '-100000'].
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	self test:[(-1 * n1) printString = '-100000'].
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1729	self test:[(-1 perform:'*' asSymbol with:n1) printString = '-100000'].
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1730	self test:[(-1 * n2) printString = '100000'].
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1731	self test:[(-1 perform:'*' asSymbol with:n2) printString = '100000'].
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1732
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1733	self test:[(2 * n1) printString = '200000'].
36 fe8e9bc7953d checkin from browser Claus Gittinger <cg@exept.de> parents: 35 diff changeset	1734	self test:[(2 perform:'*' asSymbol with:n1) printString = '200000'].
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1735	self test:[(3 * n1) printString = '300000'].
36 fe8e9bc7953d checkin from browser Claus Gittinger <cg@exept.de> parents: 35 diff changeset	1736	self test:[(3 perform:'*' asSymbol with:n1) printString = '300000'].
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1737	self test:[(4 * n1) printString = '400000'].
36 fe8e9bc7953d checkin from browser Claus Gittinger <cg@exept.de> parents: 35 diff changeset	1738	self test:[(4 perform:'*' asSymbol with:n1) printString = '400000'].
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1739	self test:[(5 * n1) printString = '500000'].
36 fe8e9bc7953d checkin from browser Claus Gittinger <cg@exept.de> parents: 35 diff changeset	1740	self test:[(5 perform:'*' asSymbol with:n1) printString = '500000'].
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1741	self test:[(6 * n1) printString = '600000'].
36 fe8e9bc7953d checkin from browser Claus Gittinger <cg@exept.de> parents: 35 diff changeset	1742	self test:[(6 perform:'*' asSymbol with:n1) printString = '600000'].
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1743	self test:[(7 * n1) printString = '700000'].
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1744	self test:[(7 perform:'*' asSymbol with:n1) printString = '700000'].
39 bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1745	self test:[(8 * n1) printString = '800000'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1746	self test:[(8 perform:'*' asSymbol with:n1) printString = '800000'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1747	self test:[(9 * n1) printString = '900000'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1748	self test:[(9 perform:'*' asSymbol with:n1) printString = '900000'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1749	self test:[(10 * n1) printString = '1000000'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1750	self test:[(10 perform:'*' asSymbol with:n1) printString = '1000000'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1751	self test:[(11 * n1) printString = '1100000'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1752	self test:[(11 perform:'*' asSymbol with:n1) printString = '1100000'].
35 91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1753
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1754	"
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1755	self testSmallIntegerMultiplication1b
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1756	"
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1757
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1758	"Modified: / 9.6.1999 / 17:47:56 / cg"
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1759	"Created: / 9.6.1999 / 17:49:45 / cg"
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1760	!
91703aab73bd checkin from browser Claus Gittinger <cg@exept.de> parents: 34 diff changeset	1761
34 f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1762	testSmallIntegerMultiplication2
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1763	"multiply tests.
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1764	Notice, the arithmetic tests are both performed via regular sends
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1765	and via constructed performs. The reason is to test both inlined
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1766	JIT-compiler code AND the regular methods code."
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1767
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1768	\|s n1 n2 t\|
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1769
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1770	n1 := 100000.
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1771	n2 := n1 negated.
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1772
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1773	self test:[(n1 * 2) printString = '200000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1774	self test:[(n1 perform:'*' asSymbol with:2) printString = '200000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1775	self test:[(n1 * 3) printString = '300000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1776	self test:[(n1 perform:'*' asSymbol with:3) printString = '300000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1777	self test:[(n1 * 4) printString = '400000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1778	self test:[(n1 perform:'*' asSymbol with:4) printString = '400000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1779	self test:[(n1 * 5) printString = '500000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1780	self test:[(n1 perform:'*' asSymbol with:5) printString = '500000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1781	self test:[(n1 * 6) printString = '600000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1782	self test:[(n1 perform:'*' asSymbol with:6) printString = '600000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1783	self test:[(n1 * 7) printString = '700000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1784	self test:[(n1 perform:'*' asSymbol with:7) printString = '700000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1785	self test:[(n1 * 8) printString = '800000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1786	self test:[(n1 perform:'*' asSymbol with:8) printString = '800000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1787	self test:[(n1 * 9) printString = '900000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1788	self test:[(n1 perform:'*' asSymbol with:9) printString = '900000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1789	self test:[(n1 * 10) printString = '1000000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1790	self test:[(n1 perform:'*' asSymbol with:10) printString = '1000000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1791	self test:[(n1 * 11) printString = '1100000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1792	self test:[(n1 perform:'*' asSymbol with:11) printString = '1100000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1793	self test:[(n1 * 12) printString = '1200000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1794	self test:[(n1 perform:'*' asSymbol with:12) printString = '1200000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1795	self test:[(n1 * 13) printString = '1300000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1796	self test:[(n1 perform:'*' asSymbol with:13) printString = '1300000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1797	self test:[(n1 * 14) printString = '1400000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1798	self test:[(n1 perform:'*' asSymbol with:14) printString = '1400000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1799	self test:[(n1 * 15) printString = '1500000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1800	self test:[(n1 perform:'*' asSymbol with:15) printString = '1500000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1801	self test:[(n1 * 16) printString = '1600000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1802	self test:[(n1 perform:'*' asSymbol with:16) printString = '1600000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1803	self test:[(n1 * 17) printString = '1700000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1804	self test:[(n1 perform:'*' asSymbol with:17) printString = '1700000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1805	self test:[(n1 * 18) printString = '1800000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1806	self test:[(n1 perform:'*' asSymbol with:18) printString = '1800000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1807	self test:[(n1 * 19) printString = '1900000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1808	self test:[(n1 perform:'*' asSymbol with:19) printString = '1900000'].
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1809
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1810	"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1811	self testSmallIntegerMultiplication2
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1812	"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1813
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1814	"Modified: / 9.6.1999 / 17:47:56 / cg"
f52571b86f62 checkin from browser Claus Gittinger <cg@exept.de> parents: 33 diff changeset	1815	"Created: / 9.6.1999 / 17:49:45 / cg"
39 bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1816	!
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1817
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1818	testSmallIntegerMultiplication3
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1819	"multiply tests.
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1820	Notice, the arithmetic tests are both performed via regular sends
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1821	and via constructed performs. The reason is to test both inlined
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1822	JIT-compiler code AND the regular methods code."
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	\|s n1 n2 t\|
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1825
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1826	n1 := 16rFFFF.
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1827	n2 := n1 negated.
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 * 2) printString = '131070'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1830	self test:[(n1 perform:'*' asSymbol with:2) printString = '131070'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1831	self test:[(n2 * 2) printString = '-131070'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1832	self test:[(n2 perform:'*' asSymbol with:2) printString = '-131070'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1833
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1834	n1 := 16rFFFFFF.
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1835	n2 := n1 negated.
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1836
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1837	self test:[(n1 * 2) printString = '33554430'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1838	self test:[(n1 perform:'*' asSymbol with:2) printString = '33554430'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1839	self test:[(n2 * 2) printString = '-33554430'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1840	self test:[(n2 perform:'*' asSymbol with:2) printString = '-33554430'].
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	n1 := 16r3FFFFFFF.
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1843	n2 := n1 negated.
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1844
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1845	self test:[(n1 * 2) printString = '2147483646'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1846	self test:[(n1 perform:'*' asSymbol with:2) printString = '2147483646'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1847	self test:[(n2 * 2) printString = '-2147483646'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1848	self test:[(n2 perform:'*' asSymbol with:2) printString = '-2147483646'].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1849
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1850	SmallInteger maxBytes == 4 ifTrue:[
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1851	n1 := 16r3FFFFFFF.
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1852	] ifFalse:[
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1853	n1 := 16r3FFFFFFFFFFFFFFF.
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1854	].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1855	self test:[n1 class == SmallInteger].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1856	self test:[(n1 * 2) class == LargeInteger].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1857	self test:[(n1 perform:'*' asSymbol with:2) class == LargeInteger].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1858
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1859	n1 := SmallInteger maxVal // 11.
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1860	self test:[(n1 * 11) class == SmallInteger].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1861
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1862	n1 := n1 + 1.
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1863	self test:[(n1 * 11) class == LargeInteger].
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1864
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1865	"
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1866	self testSmallIntegerMultiplication3
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1867	"
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1868
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1869	"Modified: / 9.6.1999 / 17:47:56 / cg"
bed97f34d7e8 checkin from browser Claus Gittinger <cg@exept.de> parents: 38 diff changeset	1870	"Created: / 9.6.1999 / 17:49:45 / cg"
2 7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1871	! !
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1872
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1873	!IntegerTest class methodsFor:'documentation'!
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1874
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1875	version
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1876	^ '$Header$'
7105b918a4a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1877	! !

author	Claus Gittinger <cg@exept.de>
	Fri, 07 Jan 2000 15:38:18 +0100
changeset 54	77b06a241d57
parent 53	94b4cfba8e21
child 56	77f5ad522f18
permissions	-rw-r--r--