hg/stx-goodies-regression: RegressionTests__CompilerTest.st@1ae96bae3a7f (annotated)

69 ffbf7492f5e5 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1	"{ Package: 'exept:regression' }"
61 cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2
70 c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	3	"{ NameSpace: RegressionTests }"
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	4
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	Object subclass:#CompilerTest
61 cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	6	instanceVariableNames:'value'
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	classVariableNames:''
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	poolDictionaries:''
59 5dfe7fc71559 * empty log message * Claus Gittinger <cg@exept.de> parents: 50 diff changeset	9	category:'Tests-Regression'
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12
77 904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	13	!CompilerTest class methodsFor:'tests argument passing'!
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	14
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	15	ret0
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	16	^ 0
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	17
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	18	"
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	19	self ret0
78 349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	20	Time millisecondsToRun:[ 1000000 timesRepeat:[self ret0] ]
77 904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	21	"
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	22	!
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	23
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	24	ret1
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	25	^ 1
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	26
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	27	"
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	28	self ret1
78 349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	29	1000000 timesRepeat:[self ret1]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	30	Time millisecondsToRun:[ 1000000 timesRepeat:[self ret1] ]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	31	"
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	32	!
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	33
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	34	retArg1:arg
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	35	^ arg
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	36
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	37	"
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	38	self retArg1:1
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	39	1000000 timesRepeat:[self retArg1:1]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	40	Time millisecondsToRun:[ 1000000 timesRepeat:[self retArg1:1] ]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	41	"
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	42	!
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	43
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	44	retArg2:arg1 _:arg2
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	45	^ arg2
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	46
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	47	"
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	48	self retArg2:1 _:2
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	49	1000000 timesRepeat:[self retArg2:1 _:2]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	50	Time millisecondsToRun:[ 1000000 timesRepeat:[self retArg2:1 _:2] ]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	51	"
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	52	!
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	53
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	54	retArg3:arg1 _:arg2 _:arg3
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	55	^ arg3
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	56
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	57	"
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	58	self retArg3:1 _:2 _:3
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	59	1000000 timesRepeat:[self retArg3:1 _:2 _:3]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	60	Time millisecondsToRun:[ 1000000 timesRepeat:[self retArg3:1 _:2 _:3] ]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	61	"
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	62	!
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	63
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	64	retArg4:arg1 _:arg2 _:arg3 _:arg4
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	65	^ arg4
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	66
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	67	"
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	68	self retArg4:1 _:2 _:3 _:4
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	69	1000000 timesRepeat:[self retArg4:1 _:2 _:3 _:4]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	70	Time millisecondsToRun:[ 1000000 timesRepeat:[self retArg4:1 _:2 _:3 _:4] ]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	71	"
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	72	!
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	73
79 a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	74	retArg5:arg1 _:arg2 _:arg3 _:arg4 _:arg5
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	75	^ arg5
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	76
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	77	"
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	78	self retArg5:1 _:2 _:3 _:4 _:5
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	79	1000000 timesRepeat:[self retArg5:1 _:2 _:3 _:4 _:5]
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	80	Time millisecondsToRun:[ 1000000 timesRepeat:[self retArg5:1 _:2 _:3 _:4 _:5] ]
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	81	"
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	82	!
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	83
78 349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	84	retLiteral1
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	85	^ 'hello'
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	86
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	87	"
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	88	self retLiteral1
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	89	1000000 timesRepeat:[self retLiteral1]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	90	Time millisecondsToRun:[ 1000000 timesRepeat:[self retLiteral1] ]
77 904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	91	"
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	92	!
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	93
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	94	retM1
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	95	^ -1
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	96
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	97	"
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	98	self retM1
78 349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	99	1000000 timesRepeat:[self retM1]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	100	Time millisecondsToRun:[ 1000000 timesRepeat:[self retM1] ]
77 904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	101	"
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	102	!
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	103
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	104	retSelf
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	105	^ self
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	106
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	107	"
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	108	self retSelf
78 349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	109	1000000 timesRepeat:[self retSelf]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	110	Time millisecondsToRun:[ 1000000 timesRepeat:[self retSelf] ]
77 904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	111	"
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	112	! !
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	113
61 cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	114	!CompilerTest methodsFor:'helpers'!
cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	115
81 1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	116	size
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	117	^ 1
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	118	!
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	119
61 cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	120	value:something
cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	121	value := something
cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	122	! !
cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	123
50 b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	124	!CompilerTest methodsFor:'test - inlined'!
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	125
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	126	test_even:arg
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	127	^ arg even
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	128
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	129	"
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	130	self new test_even:nil
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	131	self new test_even:123
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	132	self new test_even:122
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	133	self new test_even:(100 factorial)
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	134	"
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	135	!
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	136
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	137	test_isInteger:arg
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	138	^ arg isInteger
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	139
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	140	"
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	141	self new test_isInteger:nil
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	142	self new test_isInteger:123
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	143	self new test_isInteger:(100 factorial)
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	144	"
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	145	!
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	146
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	147	test_isNotInteger:arg
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	148	^ arg isInteger not
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	149
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	150	"
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	151	self new test_isNotInteger:nil
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	152	self new test_isNotInteger:123
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	153	self new test_isNotInteger:(100 factorial)
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	154	"
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	155	!
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	156
74 46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	157	test_max1:arg1 _:arg2
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	158	^ arg1 max:arg2
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	159
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	160	"
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	161	self new test_max1:nil _:nil
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	162	self new test_max1:1 _:nil
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	163	self new test_max1:nil _:1
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	164	self new test_max1:1 _:2
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	165	self new test_max1:2 _:1
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	166
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	167	self new test_max1:1.0 _:nil
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	168	self new test_max1:nil _:1.0
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	169	self new test_max1:1.0 _:2.0
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	170	self new test_max1:2.0 _:1.0
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	171
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	172	self new test_max1:1.0 _:2
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	173	self new test_max1:2.0 _:1
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	174	self new test_max1:1 _:2.0
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	175	self new test_max1:2 _:1.0
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	176	"
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	177	!
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	178
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	179	test_max2:arg
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	180	^ 1 max:arg
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	181
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	182	"
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	183	self new test_max2:nil
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	184	self new test_max2:0
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	185	self new test_max2:1
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	186	self new test_max2:2
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	187
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	188	self new test_max2:0.0
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	189	self new test_max2:1.0
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	190	self new test_max2:2.0
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	191	"
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	192	!
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	193
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	194	test_max3:arg
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	195	\|var\|
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	196
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	197	var := Array new:10.
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	198	^ 1 max:arg
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	199
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	200	"
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	201	self new test_max3:nil
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	202	self new test_max3:0
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	203	self new test_max3:1
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	204	self new test_max3:2
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	205
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	206	self new test_max3:0.0
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	207	self new test_max3:1.0
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	208	self new test_max3:2.0
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	209	"
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	210	!
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	211
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	212	test_max4:arg
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	213	\|var\|
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	214
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	215	var := Array new:10.
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	216	^ arg max:1
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	217
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	218	"
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	219	self new test_max4:nil
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	220	self new test_max4:0
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	221	self new test_max4:1
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	222	self new test_max4:2
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	223
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	224	self new test_max4:0.0
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	225	self new test_max4:1.0
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	226	self new test_max4:2.0
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	227	"
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	228	!
46196e7cbaf6 checkin from browser Claus Gittinger <cg@exept.de> parents: 73 diff changeset	229
73 1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	230	test_min1:arg1 _:arg2
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	231	^ arg1 min:arg2
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	232
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	233	"
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	234	self new test_min1:nil _:nil
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	235	self new test_min1:1 _:nil
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	236	self new test_min1:nil _:1
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	237	self new test_min1:1 _:2
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	238	self new test_min1:2 _:1
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	239
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	240	self new test_min1:1.0 _:nil
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	241	self new test_min1:nil _:1.0
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	242	self new test_min1:1.0 _:2.0
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	243	self new test_min1:2.0 _:1.0
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	244
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	245	self new test_min1:1.0 _:2
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	246	self new test_min1:2.0 _:1
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	247	self new test_min1:1 _:2.0
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	248	self new test_min1:2 _:1.0
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	249	"
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	250	!
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	251
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	252	test_min2:arg
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	253	^ 1 min:arg
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	254
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	255	"
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	256	self new test_min2:nil
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	257	self new test_min2:0
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	258	self new test_min2:1
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	259	self new test_min2:2
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	260
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	261	self new test_min2:0.0
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	262	self new test_min2:1.0
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	263	self new test_min2:2.0
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	264	"
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	265	!
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	266
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	267	test_min3:arg
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	268	\|var\|
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	269
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	270	var := Array new:10.
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	271	^ 1 min:arg
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	272
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	273	"
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	274	self new test_min3:nil
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	275	self new test_min3:0
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	276	self new test_min3:1
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	277	self new test_min3:2
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	278
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	279	self new test_min3:0.0
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	280	self new test_min3:1.0
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	281	self new test_min3:2.0
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	282	"
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	283	!
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	284
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	285	test_min4:arg
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	286	\|var\|
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	287
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	288	var := Array new:10.
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	289	^ arg min:1
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	290
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	291	"
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	292	self new test_min4:nil
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	293	self new test_min4:0
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	294	self new test_min4:1
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	295	self new test_min4:2
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	296
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	297	self new test_min4:0.0
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	298	self new test_min4:1.0
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	299	self new test_min4:2.0
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	300	"
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	301	!
1aa60e597468 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	302
50 b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	303	test_odd:arg
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	304	^ arg odd
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	305
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	306	"
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	307	self new test_odd:nil
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	308	self new test_odd:123
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	309	self new test_odd:122
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	310	self new test_odd:(100 factorial)
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	311	"
61 cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	312	!
cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	313
cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	314	test_size
cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	315	^ value size
cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	316
cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	317	"
cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	318	(self new value:(Array new:2)) test_size
cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	319	(self new value:(OrderedCollection new:2)) test_size
cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	320	"
50 b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	321	! !
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	322
48 022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	323	!CompilerTest methodsFor:'tests - booleans'!
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	324
50 b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	325	testAnd:arg1 _:arg2
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	326	^ arg1 & arg2
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	327
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	328	"
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	329	self new testAnd:true _:true.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	330	self new testAnd:true _:false.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	331	self new testAnd:false _:true.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	332	self new testAnd:false _:false.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	333	self new testAnd:false _:nil.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	334	self new testAnd:true _:nil.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	335	self new testAnd:nil _:false.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	336	self new testAnd:nil _:true.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	337	self new testAnd:1234 _:true.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	338	self new testAnd:1234 _:false.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	339	self new testAnd:true _:1234.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	340	self new testAnd:false _:1234.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	341	"
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	342	!
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	343
48 022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	344	testNot1:arg
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	345	^ arg not
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	346
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	347	"
49 71e76d770856 checkin from browser Claus Gittinger <cg@exept.de> parents: 48 diff changeset	348	self new testNot1:true.
48 022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	349	self new testNot1:false.
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	350	self new testNot1:1234.
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	351	"
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	352	!
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	353
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	354	testNot2:arg1 _:arg2
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	355	^ arg1 not & arg2 not
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	356
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	357	"
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	358	self new testNot2:true _:true.
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	359	self new testNot2:false _:true.
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	360	self new testNot2:true _:false.
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	361	self new testNot2:false _:false.
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	362
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	363	self new testNot2:false _:1234.
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	364	self new testNot2:true _:1234.
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	365	self new testNot2:1234 _:true.
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	366	self new testNot2:1234 _:false.
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	367	self new testNot2:1234 _:2345.
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	368	"
50 b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	369	!
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	370
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	371	testOr:arg1 _:arg2
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	372	^ arg1 \| arg2
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	373
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	374	"
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	375	self new testOr:true _:true.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	376	self new testOr:true _:false.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	377	self new testOr:false _:true.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	378	self new testOr:false _:false.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	379	self new testOr:false _:nil.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	380	self new testOr:true _:nil.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	381	self new testOr:nil _:false.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	382	self new testOr:nil _:true.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	383	self new testOr:1234 _:true.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	384	self new testOr:1234 _:false.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	385	self new testOr:true _:1234.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	386	self new testOr:false _:1234.
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	387	"
48 022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	388	! !
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	389
62 a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	390	!CompilerTest methodsFor:'tests - conditions'!
a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	391
a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	392	testIf1:val
a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	393	\|x\|
a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	394
65 173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	395	x := #foo.
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	396	x := (val == #CursorRight or:[val == #CursorDown]) ifTrue:[1].
62 a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	397	^ x
a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	398
a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	399	"
a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	400	self new testIf1:#CursorRight
a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	401	self new testIf1:#CursorDown
64 9cfe9378dcbc checkin from browser Claus Gittinger <cg@exept.de> parents: 63 diff changeset	402	self new testIf1:#Foo
9cfe9378dcbc checkin from browser Claus Gittinger <cg@exept.de> parents: 63 diff changeset	403	self new testIf1:#CursorUp
9cfe9378dcbc checkin from browser Claus Gittinger <cg@exept.de> parents: 63 diff changeset	404	self new testIf1:nil
62 a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	405	self new testIf1:1
a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	406	"
63 72ebdb383bdf * empty log message * ca parents: 62 diff changeset	407	!
72ebdb383bdf * empty log message * ca parents: 62 diff changeset	408
72ebdb383bdf * empty log message * ca parents: 62 diff changeset	409	testIf2:val
72ebdb383bdf * empty log message * ca parents: 62 diff changeset	410	\|x\|
72ebdb383bdf * empty log message * ca parents: 62 diff changeset	411
65 173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	412	x := #foo.
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	413	x := (val == #CursorRight or:[val == #CursorDown]) ifTrue:1.
63 72ebdb383bdf * empty log message * ca parents: 62 diff changeset	414	^ x
72ebdb383bdf * empty log message * ca parents: 62 diff changeset	415
72ebdb383bdf * empty log message * ca parents: 62 diff changeset	416	"
72ebdb383bdf * empty log message * ca parents: 62 diff changeset	417	self new testIf2:#CursorRight
72ebdb383bdf * empty log message * ca parents: 62 diff changeset	418	self new testIf2:#CursorDown
72ebdb383bdf * empty log message * ca parents: 62 diff changeset	419	self new testIf2:#Foo
72ebdb383bdf * empty log message * ca parents: 62 diff changeset	420	self new testIf2:#CursorUp
72ebdb383bdf * empty log message * ca parents: 62 diff changeset	421	self new testIf2:nil
72ebdb383bdf * empty log message * ca parents: 62 diff changeset	422	self new testIf2:1
72ebdb383bdf * empty log message * ca parents: 62 diff changeset	423	"
65 173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	424	!
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	425
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	426	testIf3:val
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	427	\|x\|
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	428
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	429	x := #foo.
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	430	x := (val isInteger) ifTrue:1.
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	431	^ x
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	432
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	433	"
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	434	self new testIf3:#CursorRight
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	435	self new testIf3:#CursorDown
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	436	self new testIf3:#Foo
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	437	self new testIf3:#CursorUp
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	438	self new testIf3:nil
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	439	self new testIf3:1
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	440	"
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	441	!
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	442
67 8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	443	testIf4:val
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	444	^ val isNil
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	445
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	446	"
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	447	self new testIf4:#CursorRight
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	448	self new testIf4:1
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	449	self new testIf4:nil
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	450	"
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	451	!
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	452
66 b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	453	testIf4:val1 with:val2
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	454	^ (val1 == nil and:[val2 == nil])
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	455
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	456	"
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	457	self new testIf4:#CursorRight with:#CursorDown
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	458	self new testIf4:#CursorRight with:nil
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	459	self new testIf4:nil with:#CursorDown
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	460	self new testIf4:nil with:nil
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	461	"
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	462	!
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	463
67 8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	464	testIf5:val
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	465	^ val isNil ifTrue:[1]
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	466
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	467	"
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	468	self new testIf5:#CursorRight
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	469	self new testIf5:1
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	470	self new testIf5:nil
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	471	"
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	472	!
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	473
66 b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	474	testIf5:val1 with:val2
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	475	^ (val1 isNil and:[val2 isNil])
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	476
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	477	"
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	478	self new testIf5:#CursorRight with:#CursorDown
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	479	self new testIf5:#CursorRight with:nil
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	480	self new testIf5:nil with:#CursorDown
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	481	self new testIf5:nil with:nil
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	482	"
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	483	!
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	484
67 8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	485	testIf6:val
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	486	^ val isNil ifTrue:1
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	487
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	488	"
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	489	self new testIf6:#CursorRight
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	490	self new testIf6:1
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	491	self new testIf6:nil
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	492	"
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	493	!
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	494
68 f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	495	testIf6b:val
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	496	val isNil ifTrue:1
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	497
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	498	"
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	499	self new testIf6b:#CursorRight
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	500	self new testIf6b:1
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	501	self new testIf6b:nil
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	502	"
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	503	!
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	504
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	505	testIf6c:val
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	506	val isNil ifTrue:[1]
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	507
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	508	"
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	509	self new testIf6c:#CursorRight
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	510	self new testIf6c:1
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	511	self new testIf6c:nil
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	512	"
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	513	!
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	514
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	515	testIf6d:val
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	516	^ val isNil ifTrue:val
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	517
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	518	"
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	519	self new testIf6d:#CursorRight
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	520	self new testIf6d:1
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	521	self new testIf6d:nil
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	522	"
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	523	!
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	524
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	525	testIf6e:val
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	526	^ val isNil ifFalse:val
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	527
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	528	"
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	529	self new testIf6e:['hello']
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	530	self new testIf6e:('hello' asValue)
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	531	self new testIf6e:#CursorRight
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	532	self new testIf6e:1
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	533	self new testIf6e:nil
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	534	"
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	535	!
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	536
67 8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	537	testIf7:val
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	538	^ val ? 1
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	539
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	540	"
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	541	self new testIf7:#CursorRight
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	542	self new testIf7:1
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	543	self new testIf7:nil
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	544	"
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	545	!
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	546
65 173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	547	testIfElse1:val
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	548	\|x\|
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	549
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	550	x := (val == #CursorRight or:[val == #CursorDown]) ifTrue:[1] ifFalse:[-1].
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	551	^ x
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	552
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	553	"
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	554	self new testIfElse1:#CursorRight
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	555	self new testIfElse1:#CursorDown
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	556	self new testIfElse1:#Foo
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	557	self new testIfElse1:#CursorUp
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	558	self new testIfElse1:nil
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	559	self new testIfElse1:1
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	560	"
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	561	!
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	562
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	563	testIfElse2:val
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	564	\|x\|
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	565
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	566	x := (val == #CursorRight or:[val == #CursorDown]) ifTrue:1 ifFalse:-1.
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	567	^ x
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	568
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	569	"
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	570	self new testIfElse2:#CursorRight
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	571	self new testIfElse2:#CursorDown
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	572	self new testIfElse2:#Foo
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	573	self new testIfElse2:#CursorUp
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	574	self new testIfElse2:nil
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	575	self new testIfElse2:1
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	576	"
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	577	!
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	578
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	579	testIfElse3:val
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	580	\|x\|
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	581
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	582	x := (val == #CursorRight or:[val isInteger]) ifTrue:1 ifFalse:-1.
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	583	^ x
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	584
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	585	"
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	586	self new testIfElse3:#CursorRight
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	587	self new testIfElse3:#CursorDown
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	588	self new testIfElse3:#Foo
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	589	self new testIfElse3:#CursorUp
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	590	self new testIfElse3:nil
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	591	self new testIfElse3:1
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	592	"
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	593	!
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	594
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	595	testIfElse4:val
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	596	\|x\|
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	597
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	598	x := #foo.
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	599	x := (val isInteger) ifTrue:1 ifFalse:-1.
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	600	^ x
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	601
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	602	"
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	603	self new testIfElse4:#CursorRight
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	604	self new testIfElse4:#CursorDown
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	605	self new testIfElse4:#Foo
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	606	self new testIfElse4:#CursorUp
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	607	self new testIfElse4:nil
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	608	self new testIfElse4:1
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	609	"
68 f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	610	!
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	611
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	612	testIfElse5:val
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	613	\|x\|
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	614
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	615	x := #foo.
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	616	x := val ifNil:1 ifNotNil:-1.
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	617	^ x
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	618
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	619	"
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	620	self new testIfElse5:#CursorUp
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	621	self new testIfElse5:nil
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	622	self new testIfElse5:1
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	623	"
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	624	!
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	625
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	626	testIfElse6:val
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	627	\|x\|
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	628
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	629	x := #foo.
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	630	x := val ifNil:[1] ifNotNil:[-1].
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	631	^ x
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	632
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	633	"
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	634	self new testIfElse6:#CursorUp
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	635	self new testIfElse6:nil
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	636	self new testIfElse6:1
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	637	"
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	638	!
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	639
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	640	testIfElse7:val with:val1 with:val2
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	641	\|x\|
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	642
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	643	x := #foo.
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	644	x := val ifNil:val1 ifNotNil:val2.
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	645	^ x
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	646
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	647	"
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	648	self new testIfElse7:#CursorUp with:1 with:2
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	649	self new testIfElse7:nil with:1 with:2
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	650	self new testIfElse7:1 with:1 with:2
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	651	"
62 a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	652	! !
a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	653
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	654	!CompilerTest methodsFor:'tests - constant folding'!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	655
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	656	testFloat_pi
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	657	^ Float pi
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	658	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	659
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	660	testFloat_unity
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	661	^ Float unity
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	662	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	663
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	664	testFloat_zero
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	665	^ Float zero
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	666	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	667
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	668	testSmalltalk_if_else_isSmalltalkX
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	669	Smalltalk isSmalltalkX ifTrue:[
59 5dfe7fc71559 * empty log message * Claus Gittinger <cg@exept.de> parents: 50 diff changeset	670	^ 'yes'
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	671	] ifFalse:[
59 5dfe7fc71559 * empty log message * Claus Gittinger <cg@exept.de> parents: 50 diff changeset	672	^ 'no'
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	673	]
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	674	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	675
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	676	testSmalltalk_if_else_isVisualWorks
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	677	Smalltalk isVisualWorks ifTrue:[
59 5dfe7fc71559 * empty log message * Claus Gittinger <cg@exept.de> parents: 50 diff changeset	678	^ 'yes'
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	679	] ifFalse:[
59 5dfe7fc71559 * empty log message * Claus Gittinger <cg@exept.de> parents: 50 diff changeset	680	^ 'no'
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	681	]
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	682	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	683
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	684	testSmalltalk_if_isSmalltalkX
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	685	Smalltalk isSmalltalkX ifTrue:[
59 5dfe7fc71559 * empty log message * Claus Gittinger <cg@exept.de> parents: 50 diff changeset	686	^ 'yes'
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	687	].
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	688	^ 'no'
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	689	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	690
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	691	testSmalltalk_if_isSqueak
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	692	Smalltalk isSqueak ifTrue:[
59 5dfe7fc71559 * empty log message * Claus Gittinger <cg@exept.de> parents: 50 diff changeset	693	^ 'yes'
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	694	].
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	695	^ 'no'
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	696	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	697
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	698	testSmalltalk_if_isVisualWorks
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	699	Smalltalk isVisualWorks ifTrue:[
59 5dfe7fc71559 * empty log message * Claus Gittinger <cg@exept.de> parents: 50 diff changeset	700	^ 'yes'
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	701	].
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	702	^ 'no'
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	703	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	704
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	705	testSmalltalk_isSmalltalkX
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	706	^ Smalltalk isSmalltalkX
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	707	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	708
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	709	testSmalltalk_isSqueak
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	710	^ Smalltalk isSqueak
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	711	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	712
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	713	testSmalltalk_isVisualAge
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	714	^ Smalltalk isVisualAge
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	715	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	716
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	717	testSmalltalk_isVisualWorks
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	718	^ Smalltalk isVisualWorks
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	719	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	720
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	721	testUnaryFolding
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	722	self testFloat_pi ~= (Float perform:#pi) ifTrue:[self halt].
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	723	self testFloat_unity ~= (Float perform:#unity) ifTrue:[self halt].
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	724	self testFloat_zero ~= (Float perform:#zero) ifTrue:[self halt].
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	725
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	726	self testSmalltalk_isSmalltalkX ~= (Smalltalk perform:#isSmalltalkX) ifTrue:[self halt].
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	727	self testSmalltalk_isSqueak ~= (Smalltalk perform:#isSqueak) ifTrue:[self halt].
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	728	self testSmalltalk_isVisualWorks ~= (Smalltalk perform:#isVisualWorks) ifTrue:[self halt].
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	729	self testSmalltalk_isVisualAge ~= (Smalltalk perform:#isVisualAge) ifTrue:[self halt].
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	730
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	731	"
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	732	self basicNew testUnaryFolding
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	733	"
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	734	! !
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	735
81 1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	736	!CompilerTest methodsFor:'tests context setup'!
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	737
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	738	retArgWithFrameA:arg
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	739	\|a b c\|
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	740
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	741	a := 0.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	742	b := 1.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	743	c := 2.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	744	^ arg
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	745
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	746	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	747	self new retArgWithFrameA:999
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	748	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	749	!
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	750
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	751	retLocal
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	752	\|a\|
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	753
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	754	a := 0.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	755	^ a
79 a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	756
81 1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	757	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	758	self new retLocal
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	759	1000000 timesRepeat:[self new retInstVar]
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	760	Time millisecondsToRun:[ 1000000 timesRepeat:[self new retInstVar] ]
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	761	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	762
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	763	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	764	\|i\|
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	765
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	766	i := self new.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	767	i instVarAt:1 put:12345.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	768	i retInstVar
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	769	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	770
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	771	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	772	\|i\|
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	773	i := self new.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	774	i instVarAt:1 put:12345.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	775	1000000 timesRepeat:[i retInstVar]
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	776	"
79 a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	777
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	778	"
81 1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	779	\|i\|
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	780	i := self new.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	781	i instVarAt:1 put:12345.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	782	Time millisecondsToRun:[ 1000000 timesRepeat:[i retInstVar] ]
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	783	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	784
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	785
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	786	!
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	787
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	788	retLocalB
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	789	\|a b c\|
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	790
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	791	a := 0.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	792	b := 1.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	793	c := 2.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	794	^ a
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	795
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	796	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	797	self new retLocalB
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	798	1000000 timesRepeat:[self new retInstVar]
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	799	Time millisecondsToRun:[ 1000000 timesRepeat:[self new retInstVar] ]
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	800	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	801
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	802	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	803	\|i\|
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	804
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	805	i := self new.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	806	i instVarAt:1 put:12345.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	807	i retInstVar
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	808	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	809
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	810	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	811	\|i\|
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	812	i := self new.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	813	i instVarAt:1 put:12345.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	814	1000000 timesRepeat:[i retInstVar]
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	815	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	816
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	817	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	818	\|i\|
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	819	i := self new.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	820	i instVarAt:1 put:12345.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	821	Time millisecondsToRun:[ 1000000 timesRepeat:[i retInstVar] ]
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	822	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	823
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	824
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	825	!
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	826
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	827	retLocalC
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	828	\|a b c\|
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	829
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	830	a := 0.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	831	b := 1.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	832	c := 2.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	833	^ b
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	834
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	835	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	836	self new retLocalC
79 a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	837	1000000 timesRepeat:[self new retInstVar]
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	838	Time millisecondsToRun:[ 1000000 timesRepeat:[self new retInstVar] ]
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	839	"
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	840
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	841	"
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	842	\|i\|
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	843
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	844	i := self new.
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	845	i instVarAt:1 put:12345.
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	846	i retInstVar
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	847	"
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	848
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	849	"
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	850	\|i\|
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	851	i := self new.
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	852	i instVarAt:1 put:12345.
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	853	1000000 timesRepeat:[i retInstVar]
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	854	"
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	855
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	856	"
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	857	\|i\|
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	858	i := self new.
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	859	i instVarAt:1 put:12345.
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	860	Time millisecondsToRun:[ 1000000 timesRepeat:[i retInstVar] ]
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	861	"
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	862
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	863
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	864	!
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	865
81 1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	866	retLocalD
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	867	\|a b c\|
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	868
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	869	a := 0.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	870	b := 1.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	871	c := 2.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	872	^ c
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	873
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	874	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	875	self new retLocalD
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	876	1000000 timesRepeat:[self new retInstVar]
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	877	Time millisecondsToRun:[ 1000000 timesRepeat:[self new retInstVar] ]
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	878	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	879
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	880	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	881	\|i\|
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	882
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	883	i := self new.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	884	i instVarAt:1 put:12345.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	885	i retInstVar
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	886	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	887
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	888	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	889	\|i\|
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	890	i := self new.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	891	i instVarAt:1 put:12345.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	892	1000000 timesRepeat:[i retInstVar]
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	893	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	894
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	895	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	896	\|i\|
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	897	i := self new.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	898	i instVarAt:1 put:12345.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	899	Time millisecondsToRun:[ 1000000 timesRepeat:[i retInstVar] ]
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	900	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	901
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	902
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	903	!
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	904
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	905	retLocalE
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	906	\|a b c\|
80 21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	907
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	908	a := 0.
81 1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	909	b := 1.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	910	c := 2.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	911	^ self
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	912
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	913	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	914	self new retLocalE
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	915	1000000 timesRepeat:[self new retInstVar]
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	916	Time millisecondsToRun:[ 1000000 timesRepeat:[self new retInstVar] ]
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	917	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	918
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	919	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	920	\|i\|
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	921
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	922	i := self new.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	923	i instVarAt:1 put:12345.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	924	i retInstVar
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	925	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	926
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	927	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	928	\|i\|
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	929	i := self new.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	930	i instVarAt:1 put:12345.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	931	1000000 timesRepeat:[i retInstVar]
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	932	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	933
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	934	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	935	\|i\|
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	936	i := self new.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	937	i instVarAt:1 put:12345.
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	938	Time millisecondsToRun:[ 1000000 timesRepeat:[i retInstVar] ]
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	939	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	940
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	941
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	942	!
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	943
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	944	testContextA
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	945	ObjectMemory dumpObject:thisContext
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	946
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	947	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	948	self new testContextA
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	949	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	950
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	951	!
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	952
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	953	testContextB
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	954	ObjectMemory dumpObject:thisContext sender
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	955
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	956	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	957	self new testContextB
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	958	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	959
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	960	!
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	961
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	962	testContextC
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	963	thisContext fullPrintAll
79 a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	964
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	965	"
81 1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	966	self new testContextC
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	967	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	968
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	969	!
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	970
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	971	testSend0
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	972	^ 9999
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	973	!
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	974
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	975	testSend0B:arg
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	976	^ arg
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	977	!
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	978
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	979	testSend1
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	980	^ self testSend0
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	981
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	982	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	983	self new testSend1
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	984	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	985
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	986	!
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	987
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	988	testSend1B
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	989	^ self testSend0B:1234
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	990
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	991	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	992	self new testSend1B
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	993	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	994
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	995	!
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	996
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	997	testSend1C:arg
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	998	^ self testSend0B:arg
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	999
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1000	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1001	self new testSend1C:9998
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1002	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1003	!
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1004
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1005	testSend2
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1006	self testContextB
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1007
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1008	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1009	self new testSend2
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1010	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1011
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1012	!
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1013
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1014	testSend3
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1015	self testContextC
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1016
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1017	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1018	self new testSend3
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1019	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1020
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1021	! !
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1022
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1023	!CompilerTest methodsFor:'tests entry'!
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1024
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1025	ilcMissCheck
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1026
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1027
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1028
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1029	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1030	(Array with:self new with:nil) do:[:el \| el size printCR.].
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1031	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1032
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1033
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1034
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1035	! !
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1036
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1037	!CompilerTest methodsFor:'tests instvar access'!
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1038
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1039	retInstVar
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1040	^ value
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1041
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1042	"
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	1043	self new retInstVar
80 21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1044	1000000 timesRepeat:[self new retInstVar]
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1045	Time millisecondsToRun:[ 1000000 timesRepeat:[self new retInstVar] ]
79 a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	1046	"
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	1047
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	1048	"
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	1049	\|i\|
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	1050
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	1051	i := self new.
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	1052	i instVarAt:1 put:12345.
80 21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1053	i retInstVar
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1054	"
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1055
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1056	"
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1057	\|i\|
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1058	i := self new.
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1059	i instVarAt:1 put:12345.
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1060	1000000 timesRepeat:[i retInstVar]
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1061	"
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1062
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1063	"
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1064	\|i\|
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1065	i := self new.
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1066	i instVarAt:1 put:12345.
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1067	Time millisecondsToRun:[ 1000000 timesRepeat:[i retInstVar] ]
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1068	"
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1069
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1070
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1071	!
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1072
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1073	setInstVarA
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1074	value := 123
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1075
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1076	"
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1077	self new setInstVarA; instVarAt:1
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1078	1000000 timesRepeat:[self new setInstVarA]
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1079	Time millisecondsToRun:[ 1000000 timesRepeat:[self new setInstVarA] ]
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1080	"
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1081
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1082	"
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1083	\|i\|
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1084
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1085	i := self new.
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1086	i instVarAt:1 put:12345.
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1087	i setInstVarA.
79 a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	1088	i instVarAt:1
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	1089	"
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	1090
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	1091
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	1092
80 21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1093	!
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1094
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1095	setInstVarB
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1096	value := 'hello'
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1097
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1098	"
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1099	self new setInstVarB; instVarAt:1
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1100	1000000 timesRepeat:[self new setInstVarB]
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1101	Time millisecondsToRun:[ 1000000 timesRepeat:[self new setInstVarB] ]
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1102	"
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1103
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1104	"
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1105	\|i\|
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1106
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1107	i := self new.
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1108	i instVarAt:1 put:12345.
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1109	i setInstVarB.
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1110	i instVarAt:1
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1111	"
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1112
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1113
21cbdf66122c checkin from browser Claus Gittinger <cg@exept.de> parents: 79 diff changeset	1114
79 a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	1115	! !
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	1116
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1117	!CompilerTest class methodsFor:'documentation'!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1118
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1119	version
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1120	^ '$Header$'
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1121	! !

author	Claus Gittinger <cg@exept.de>
	Sat, 30 Sep 2000 23:45:52 +0200
changeset 81	1ae96bae3a7f
parent 80	21cbdf66122c
child 82	87d2c6f6862d
permissions	-rw-r--r--