hg/ctu-ircompiler: IRTransformTest.st@0dd36941955f (annotated)

1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/newcompiler' }"
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	TestCase subclass:#IRTransformTest
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4	instanceVariableNames:''
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	classVariableNames:''
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	poolDictionaries:''
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	category:'NewCompiler-IR-Tests'
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	!IRTransformTest methodsFor:'testing'!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	testAdd
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	\| iRMethod aCompiledMethod \|
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	iRMethod := IRBuilder new
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	numRargs: 1;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	addTemps: #(self); "receiver and args declarations"
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	pushLiteral: 1;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	returnTop;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	ir.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	(iRMethod allSequences last) last delete.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	(iRMethod allSequences last) last delete.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	(iRMethod allSequences last)
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	add: (IRInstruction pushLiteral: 2).
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	(iRMethod allSequences last)
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	add: (IRInstruction returnTop).
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	aCompiledMethod := iRMethod compiledMethod.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	self should: [(aCompiledMethod valueWithReceiver: nil arguments: #() ) = 2].
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	testAddBefore
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	\| iRMethod aCompiledMethod ret \|
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	iRMethod := IRBuilder new
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	numRargs: 1;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	addTemps: #(self); "receiver and args declarations"
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	pushLiteral: 1;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	returnTop;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	ir.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	(iRMethod allSequences last) last delete.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	(iRMethod allSequences last) last delete.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	ret := (IRInstruction returnTop).
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	(iRMethod allSequences last)
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54	add: ret.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	(iRMethod allSequences last)
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57	add: (IRInstruction pushLiteral: 2) before: ret.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	aCompiledMethod := iRMethod compiledMethod.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	self should: [(aCompiledMethod valueWithReceiver: nil arguments: #() ) = 2].
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	testAddIntructions
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	\| iRMethod aCompiledMethod \|
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	iRMethod := IRBuilder new
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	numRargs: 1;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	addTemps: #(self); "receiver and args declarations"
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	pushLiteral: 1;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	returnTop;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	ir.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	(iRMethod allSequences last) last delete.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	(iRMethod allSequences last) last delete.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	(iRMethod allSequences last)
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	addInstructions: {(IRInstruction pushLiteral: 2). (IRInstruction returnTop)}.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	aCompiledMethod := iRMethod compiledMethod.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	self should: [(aCompiledMethod valueWithReceiver: nil arguments: #() ) = 2].
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	testAddIntructionsBefore
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86	\| iRMethod aCompiledMethod push \|
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	iRMethod := IRBuilder new
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	numRargs: 1;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	addTemps: #(self); "receiver and args declarations"
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91	pushLiteral: 1;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	returnTop;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	ir.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	push := (iRMethod allSequences last) at: (iRMethod allSequences size - 1) .
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97	(iRMethod allSequences last)
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98	addInstructions: {(IRInstruction pushLiteral: 2). (IRInstruction returnTop)} before: push.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100	aCompiledMethod := iRMethod compiledMethod.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101	self should: [(aCompiledMethod valueWithReceiver: nil arguments: #() ) = 2].
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104	testAddIntructionsBeforeFromLList
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106	\| iRMethod aCompiledMethod push llist col \|
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108	iRMethod := IRBuilder new
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	numRargs: 1;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110	addTemps: #(self); "receiver and args declarations"
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111	pushLiteral: 1;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112	returnTop;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113	ir.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115	push := (iRMethod allSequences last) at: (iRMethod allSequences size - 1) .
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	116
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	117	llist := LinkedList new.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	118	llist add: (IRInstruction pushLiteral: 2).
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	119	llist add: (IRInstruction returnTop).
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	121	col := llist asOrderedCollection.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123	(iRMethod allSequences last)
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	addInstructions: col before: push.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126	aCompiledMethod := iRMethod compiledMethod.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127	self should: [(aCompiledMethod valueWithReceiver: nil arguments: #() ) = 2].
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	testDelete
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132	\| iRMethod aCompiledMethod \|
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134	iRMethod := IRBuilder new
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135	numRargs: 1;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	addTemps: #(self); "receiver and args declarations"
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137	pushLiteral: 1;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	pushLiteral: 2;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139	returnTop;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140	ir.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	142	((iRMethod allSequences last)
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143	detect: [:each \| each isConstant: [:c \| c == 2]]) delete.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	146	aCompiledMethod := iRMethod compiledMethod.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	147	self should: [(aCompiledMethod valueWithReceiver: nil arguments: #() ) = 1].
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	testReplace
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151	\| iRMethod aCompiledMethod \|
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	153	iRMethod := IRBuilder new
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154	numRargs: 1;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155	addTemps: #(self); "receiver and args declarations"
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156	pushLiteral: 1;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157	returnTop;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158	ir.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	159
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160	(iRMethod allSequences last at: 1)
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161	replaceWith: (IRInstruction pushLiteral: 2).
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	162
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163	aCompiledMethod := iRMethod compiledMethod.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	self should: [(aCompiledMethod valueWithReceiver: nil arguments: #() ) = 2].
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167	testReplaceInstr
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	168
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	169	\| iRMethod aCompiledMethod \|
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	170
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171	iRMethod := IRBuilder new
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	172	numRargs: 1;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	173	addTemps: #(self); "receiver and args declarations"
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	174	pushLiteral: 1;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	175	returnTop;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	176	ir.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	177
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	178	(iRMethod allSequences last at: 1)
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	179	replaceWithInstructions: {(IRInstruction pushLiteral: 2)}.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	180
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	181	aCompiledMethod := iRMethod compiledMethod.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	182	self should: [(aCompiledMethod valueWithReceiver: nil arguments: #() ) = 2].
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	183	! !
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185	!IRTransformTest class methodsFor:'documentation'!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	186
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187	version
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188	^'$Id$'
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 11 Jun 2008 14:54:42 +0000
changeset 1	0dd36941955f
child 9	04518c7fb91c
permissions	-rw-r--r--