hg/ctu-ircompiler: IRBuilderTest.st@f325defc9c7e (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:#IRBuilderTest
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:'TestToPush'
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	!IRBuilderTest class methodsFor:'as yet unclassified'!
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	testToPush
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	^TestToPush
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	!
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	testToPush: anObject
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	TestToPush := anObject
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	! !
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21
5 b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	22	!IRBuilderTest methodsFor:'mock methods'!
b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	23
b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	24	mock1: arg1 with: arg2
b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	25
b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	26	^arg1 + arg2
b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	27
6 49a61123c743 A new IRLine pseudoinstruction added to include debugging info into the bytecode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	28	"Created: / 02-12-2008 / 09:11:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	29	!
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	30
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	31	mock2
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	32
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	33	^[ testSelector ]
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	34
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	35	"
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	36	decompiling IRBuilderTest>>mock2
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	37	nA: 0 nV: 0 nT: 2
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	38
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	39	1: 37 04 00 00 makeBlock 4 (7) nv=0 na=0
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	40	5: 5A pushInstVar1
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	41	6: 00 retTop
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	42	7: 08 03 LINE[3]
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	43	9: 00 retTop
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	44	"
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	45
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	46	"Created: / 28-03-2009 / 18:47:17 / Jan Vrany <vranyj1@fel.cvut.cz>"
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	47	"Modified: / 28-03-2009 / 20:16:08 / Jan Vrany <vranyj1@fel.cvut.cz>"
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	48	!
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	49
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	50	mock3
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	51	\| b \|
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	52	b := 1.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	53	^[ b ]
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	54
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	55	"
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	56	decompiling IRBuilderTest>>mock3
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	57	nA: 0 nV: 1 nT: 2
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	58
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	59	1: 79 push1
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	60	2: 64 storeMethodVar1
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	61	3: 37 04 00 00 makeBlock 4 (9) nv=0 na=0
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	62	7: 50 pushMethodVar1
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	63	8: 00 retTop
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	64	9: 08 04 LINE[4]
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	65	11:00 retTop
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	66	"
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	67
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	68	"Created: / 28-03-2009 / 20:16:36 / Jan Vrany <vranyj1@fel.cvut.cz>"
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	69	!
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	70
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	71	mock4
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	72
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	73	^[:arg\| arg ]
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	74
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	75	"
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	76	decompiling IRBuilderTest>>mock4
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	77	nA: 0 nV: 0 nT: 2
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	78
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	79	1: 37 04 00 01 makeBlock 4 (7) nv=0 na=1
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	80	5: 8C pushBlockArg1
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	81	6: 00 retTop
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	82	7: 08 03 LINE[3]
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	83	9: 00 retTop
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	84
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	85
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	86
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	87	"
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	88
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	89	"Created: / 28-03-2009 / 20:18:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	90	!
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	91
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	92	mock5
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	93
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	94	^[\|temp\| temp ]
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	95
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	96	"
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	97	decompiling IRBuilderTest>>mock5
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	98	nA: 0 nV: 0 nT: 2
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	99
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	100	1: 37 04 01 00 makeBlock 4 (7) nv=1 na=0
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	101	5: E8 pushBlockVar1
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	102	6: 00 retTop
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	103	7: 08 03 LINE[3]
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	104	9: 00 retTop
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	105	"
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	106
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	107	"Created: / 28-03-2009 / 20:19:17 / Jan Vrany <vranyj1@fel.cvut.cz>"
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	108	!
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	109
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	110	mock6
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	111
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	112	^[\|temp\| [ temp ] ]
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	113
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	114	"
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	115	decompiling IRBuilderTest>>mock6
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	116	nA: 0 nV: 0 nT: 3
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	117
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	118	1: 37 0B 01 00 makeBlock 11 (14) nv=1 na=0
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	119	5: 37 06 00 00 makeBlock 6 (13) nv=0 na=0
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	120	9: 80 01 01 pushOuterBlockVar 1 lvl: 1
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	121	12:00 retTop
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	122	13:00 retTop
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	123	14:08 03 LINE[3]
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	124	16:00 retTop
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	125
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	126	"
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	127
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	128	"Created: / 28-03-2009 / 20:20:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	129	!
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	130
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	131	mock7
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	132	\| b \|
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	133	b := 1.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	134	^[ ^b ]
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	135
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	136	"
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	137	decompiling IRBuilderTest>>mock7
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	138	nA: 0 nV: 1 nT: 2
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	139
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	140	1: 79 push1
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	141	2: 64 storeMethodVar1
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	142	3: 37 06 00 00 makeBlock 6 (11) nv=0 na=0
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	143	7: 50 pushMethodVar1
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	144	8: 08 04 LINE[4]
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	145	10:07 homeRetTop
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	146	11:08 04 LINE[4]
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	147	13:00 retTop
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	148
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	149	"
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	150
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	151	"Created: / 28-03-2009 / 20:21:51 / Jan Vrany <vranyj1@fel.cvut.cz>"
10 0fd549e0c784 First simple block works. See IRBuilderTest>>testBlock_blockTempArg. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	152	!
0fd549e0c784 First simple block works. See IRBuilderTest>>testBlock_blockTempArg. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	153
0fd549e0c784 First simple block works. See IRBuilderTest>>testBlock_blockTempArg. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	154	mock8
0fd549e0c784 First simple block works. See IRBuilderTest>>testBlock_blockTempArg. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	155
0fd549e0c784 First simple block works. See IRBuilderTest>>testBlock_blockTempArg. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	156	^([:arg\| arg ] value: 22)
0fd549e0c784 First simple block works. See IRBuilderTest>>testBlock_blockTempArg. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	157
0fd549e0c784 First simple block works. See IRBuilderTest>>testBlock_blockTempArg. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	158	"Created: / 30-03-2009 / 19:21:48 / Jan Vrany <vranyj1@fel.cvut.cz>"
5 b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	159	! !
b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	160
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161	!IRBuilderTest methodsFor:'testing'!
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	halt
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	"Redefinition for testing the #send:toSuperOf:"
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	"Created: / 11-06-2008 / 16:08:52 / Jan Vrany <vranyj1@fel.cvut.cz>"
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167	!
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	isThisEverCalled
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	170	"Redefinition for testing the #send:toSuperOf:"
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	172
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	173	testDup
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	174	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	175
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	176	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	177	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	178	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	179	pushLiteral:3;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	180	pushDup;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	181	send:#'=';
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	182	returnTop;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	183	ir.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	184	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	185	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	186	self
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	187	assert:((aCompiledMethod valueWithReceiver:nil arguments:#()) = true).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190	testInstVar
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	191	\|aCompiledMethod irBuilder\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	193	irBuilder := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	194	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	195	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	196	pushInstVar:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	197	pushInstVar:2;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	198	send:#'+';
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199	returnTop;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200	ir.
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	201	aCompiledMethod := irBuilder compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	202	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	203	self
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	204	assert:((aCompiledMethod valueWithReceiver:(3 @ 4) arguments:#()) = 7).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206	"Modified: / 11-06-2008 / 13:16:41 / Jan Vrany <vranyj1@fel.cvut.cz>"
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	208
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	209	testJumpAheadTo
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	210	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	212	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	213	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	214	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	215	pushTemp:#self;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	216	jumpAheadTo:#end;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	217	pushLiteral:3;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	218	jumpAheadTarget:#end;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	219	returnTop;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	220	ir.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	221	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	222	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	223	self assert:((aCompiledMethod valueWithReceiver:nil arguments:#()) = nil).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	224	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	225
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	226	testJumpAheadToIf
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	227	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	228
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	229	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	230	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	231	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	232	pushTemp:#self;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	233	pushLiteral:true;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	234	jumpAheadTo:#end if:true;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	235	pushLiteral:3;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	236	jumpAheadTarget:#end;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	237	returnTop;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	238	ir.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	239	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	240	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	241	self assert:((aCompiledMethod valueWithReceiver:nil arguments:#()) = nil).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	243
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	244	testJumpBackTo
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	245	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	246
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	247	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	248	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	249	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	250	pushTemp:#self;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	251	pushLiteral:false;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	252	jumpBackTarget:#begin;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	253	jumpAheadTo:#end if:true;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	254	pushLiteral:true;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	255	jumpBackTo:#begin;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	256	jumpAheadTarget:#end;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	257	returnTop;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	258	ir.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	259	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	260	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	261	self assert:((aCompiledMethod valueWithReceiver:nil arguments:#()) = nil).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	262	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	263
6 49a61123c743 A new IRLine pseudoinstruction added to include debugging info into the bytecode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	264	testLine1
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	265	\|iRMethod aCompiledMethod\|
6 49a61123c743 A new IRLine pseudoinstruction added to include debugging info into the bytecode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	266
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	267	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	268	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	269	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	270	line:5;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	271	pushLiteral:true;
6 49a61123c743 A new IRLine pseudoinstruction added to include debugging info into the bytecode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	272	returnTop;
49a61123c743 A new IRLine pseudoinstruction added to include debugging info into the bytecode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	273	ir.
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	274	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	275	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	276	self
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	277	assert:((aCompiledMethod valueWithReceiver:nil arguments:#()) = true).
6 49a61123c743 A new IRLine pseudoinstruction added to include debugging info into the bytecode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	278
49a61123c743 A new IRLine pseudoinstruction added to include debugging info into the bytecode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	279	"Created: / 02-12-2008 / 09:11:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
49a61123c743 A new IRLine pseudoinstruction added to include debugging info into the bytecode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	280	!
49a61123c743 A new IRLine pseudoinstruction added to include debugging info into the bytecode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	281
49a61123c743 A new IRLine pseudoinstruction added to include debugging info into the bytecode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	282	testLine2
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	283	\|iRMethod aCompiledMethod\|
6 49a61123c743 A new IRLine pseudoinstruction added to include debugging info into the bytecode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	284
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	285	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	286	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	287	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	288	line:5;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	289	pushLiteral:true;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	290	pushLiteral:false;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	291	send:#'&';
6 49a61123c743 A new IRLine pseudoinstruction added to include debugging info into the bytecode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	292	returnTop;
49a61123c743 A new IRLine pseudoinstruction added to include debugging info into the bytecode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	293	ir.
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	294	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	295	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	296	self
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	297	assert:((aCompiledMethod valueWithReceiver:nil arguments:#()) = false).
6 49a61123c743 A new IRLine pseudoinstruction added to include debugging info into the bytecode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	298
49a61123c743 A new IRLine pseudoinstruction added to include debugging info into the bytecode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	299	"Created: / 02-12-2008 / 09:11:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
49a61123c743 A new IRLine pseudoinstruction added to include debugging info into the bytecode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	300	!
49a61123c743 A new IRLine pseudoinstruction added to include debugging info into the bytecode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	301
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	302	testLiteralArray
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	303	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	304
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	305	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	306	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	307	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	308	pushLiteral:#( #test 4 #you );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	309	returnTop;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	310	ir.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	311	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	312	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	313	self assert:((aCompiledMethod valueWithReceiver:nil arguments:#())
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	314	= #( #test 4 #you )).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	315	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	316
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	317	testLiteralBoolean
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	318	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	319
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	320	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	321	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	322	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	323	pushLiteral:true;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	324	returnTop;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	325	ir.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	326	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	327	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	328	self
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	329	assert:((aCompiledMethod valueWithReceiver:nil arguments:#()) = true).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	330	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	331
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	332	testLiteralCharacter
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	333	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	334
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	335	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	336	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	337	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	338	pushLiteral:$e;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	339	returnTop;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	340	ir.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	341	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	342	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	343	self assert:((aCompiledMethod valueWithReceiver:nil arguments:#()) = $e).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	344	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	345
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	346	testLiteralFloat
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	347	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	348
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	349	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	350	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	351	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	352	pushLiteral:2.0;
3 c9845c180bd4 Fixes IRBytecodeGenerator >> #pushLiteral and IRBuilder >> #jumpAheadTo: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	353	returnTop;
c9845c180bd4 Fixes IRBytecodeGenerator >> #pushLiteral and IRBuilder >> #jumpAheadTo: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	354	ir.
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	355	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	356	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	357	self assert:((aCompiledMethod valueWithReceiver:nil arguments:#()) = 2.0).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	358
3 c9845c180bd4 Fixes IRBytecodeGenerator >> #pushLiteral and IRBuilder >> #jumpAheadTo: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	359	"Modified: / 03-11-2008 / 08:39:52 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	360	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	361
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	362	testLiteralInteger
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	363	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	364
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	365	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	366	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	367	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	368	pushLiteral:2;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	369	returnTop;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	370	ir.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	371	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	372	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	373	self assert:((aCompiledMethod valueWithReceiver:nil arguments:#()) = 2).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	374	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	375
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	376	testLiteralNil
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	377	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	378
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	379	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	380	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	381	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	382	pushLiteral:nil;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	383	returnTop;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	384	ir.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	385	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	386	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	387	self assert:((aCompiledMethod valueWithReceiver:4 arguments:#()) = nil).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	388	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	389
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	390	testLiteralString
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	391	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	392
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	393	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	394	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	395	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	396	pushLiteral:'hello';
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	397	returnTop;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	398	ir.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	399	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	400	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	401	self
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	402	assert:((aCompiledMethod valueWithReceiver:nil arguments:#()) = 'hello').
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	403	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	404
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	405	testLiteralSymbole
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	406	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	407
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	408	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	409	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	410	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	411	pushLiteral:#you;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	412	returnTop;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	413	ir.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	414	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	415	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	416	self
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	417	assert:((aCompiledMethod valueWithReceiver:nil arguments:#()) = #you).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	418	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	419
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	420	testLiteralVariableClass
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	421	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	422
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	423	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	424	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	425	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	426	pushLiteralVariable:Object binding;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	427	returnTop;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	428	ir.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	429	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	430	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	431	self
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	432	assert:((aCompiledMethod valueWithReceiver:nil arguments:#()) = Object).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	433	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	434
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	435	testLiteralVariableClassVariable
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	436	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	437
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	438	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	439	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	440	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	441	pushLiteralVariable:(ArithmeticValue bindingOf:#ArithmeticSignal);
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	442	returnTop;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	443	ir.
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	444	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	445	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	446	self assert:((aCompiledMethod valueWithReceiver:nil arguments:#())
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	447	= ArithmeticValue arithmeticSignal).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	448
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	449	"Modified: / 11-06-2008 / 11:31:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	450	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	451
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	452	testLiteralVariableGlobale
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	453	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	454
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	455	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	456	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	457	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	458	pushLiteralVariable:Smalltalk binding;
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	459	returnTop;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	460	ir.
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	461	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	462	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	463	self
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	464	assert:((aCompiledMethod valueWithReceiver:nil arguments:#()) = Smalltalk).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	465
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	466	"Modified: / 11-06-2008 / 11:32:07 / Jan Vrany <vranyj1@fel.cvut.cz>"
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	467	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	468
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	469	testPopTop
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	470	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	471
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	472	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	473	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	474	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	475	pushLiteral:true;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	476	pushLiteral:false;
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	477	popTop;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	478	returnTop;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	479	ir.
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	480	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	481	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	482	self
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	483	assert:((aCompiledMethod valueWithReceiver:nil arguments:#()) = true).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	484
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	485	"Modified: / 11-06-2008 / 13:22:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	486	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	487
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	488	testPushReceiver
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	489	\|iRMethod aCompiledMethod receiver\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	490
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	491	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	492	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	493	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	494	pushReceiver;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	495	returnTop;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	496	ir.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	497	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	498	receiver := (5 @ 8).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	499	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	500	self assert:((aCompiledMethod valueWithReceiver:receiver arguments:#())
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	501	== receiver).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	502	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	503
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	504	testPushTempArgument
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	505	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	506
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	507	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	508	numRargs:3;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	509	addTemps:#( #self #a #b );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	510	pushTemp:#a;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	511	pushTemp:#b;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	512	send:#'+';
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	513	returnTop;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	514	ir.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	515	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	516	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	517	self
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	518	assert:((aCompiledMethod valueWithReceiver:nil arguments:#( 2 8 )) = 10).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	519	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	520
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	521	testPushTempSelf
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	522	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	523
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	524	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	525	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	526	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	527	pushTemp:#self;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	528	send:#class;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	529	returnTop;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	530	ir.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	531	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	532	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	533	self assert:((aCompiledMethod valueWithReceiver:nil arguments:#())
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	534	== UndefinedObject).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	535	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	536
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	537	testPushTempTemp
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	538	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	539
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	540	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	541	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	542	addTemps:#( #self #a );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	543	pushTemp:#a;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	544	returnTop;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	545	ir.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	546	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	547	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	548	self assert:((aCompiledMethod valueWithReceiver:5 arguments:#()) = nil).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	549	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	550
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	551	testPushThisContext
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	552	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	553
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	554	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	555	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	556	addTemps:#( #self #a );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	557	pushThisContext;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	558	send:#receiver;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	559	returnTop;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	560	ir.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	561	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	562	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	563	self assert:((aCompiledMethod valueWithReceiver:5 arguments:#()) = 5).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	564	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	565
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	566	testPushThisEnv
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	567	\|iRMethod aCompiledMethod receiver\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	568
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	569	^ self.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	570	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	571	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	572	addTemps:#( #self );
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	573	pushThisContext;
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	574	pushLiteral:5;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	575	pushLiteral:ClosureEnvironment;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	576	pushLiteral:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	577	send:#new:;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	578	send:#privSetInstVar:put:;
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	579	pushThisEnv;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	580	returnTop;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	581	ir.
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	582	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	583	receiver := Object new.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	584	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	585	self assert:((aCompiledMethod valueWithReceiver:receiver arguments:#())
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	586	isKindOf:ClosureEnvironment)
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	587	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	588
5 b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	589	testSendNumArgs1
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	590	\|iRMethod aCompiledMethod\|
5 b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	591
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	592	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	593	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	594	addTemps:#( #self );
5 b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	595	pushReceiver;
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	596	pushLiteral:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	597	pushLiteral:2;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	598	send:#mock1 numArgs:2;
5 b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	599	returnTop;
b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	600	ir.
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	601	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	602	self class basicAddSelector:#mock1
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	603	withMethod:(self class >> #mock1:with:).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	604	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	605	self
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	606	assert:(aCompiledMethod valueWithReceiver:(IRBuilderTest new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	607	arguments:#()) = 3.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	608	self class basicRemoveSelector:#mock1.
5 b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	609
b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	610	"Created: / 01-12-2008 / 19:58:18 / Jan Vrany <vranyj1@fel.cvut.cz>"
b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	611	!
b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	612
b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	613	testSendNumArgs2
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	614	\|iRMethod aCompiledMethod\|
5 b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	615
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	616	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	617	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	618	addTemps:#( #self );
5 b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	619	pushReceiver;
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	620	pushLiteral:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	621	send:#mock1 numArgs:1;
5 b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	622	returnTop;
b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	623	ir.
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	624	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	625	self class basicAddSelector:#mock1
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	626	withMethod:(self class >> #mock1:with:).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	627	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	628	self
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	629	should:[
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	630	(aCompiledMethod valueWithReceiver:(IRBuilderTest new) arguments:#())
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	631	]
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	632	raise:Error.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	633	self class basicRemoveSelector:#mock1.
5 b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	634
b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	635	"Created: / 01-12-2008 / 19:59:02 / Jan Vrany <vranyj1@fel.cvut.cz>"
b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	636	!
b94aea1d3710 Added method IRBuilder>>#send:numArgs and IRBuilder>>#send:numArgs:toSuperOf:. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3 diff changeset	637
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	638	testSendSuper
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	639	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	640
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	641	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	642	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	643	addTemps:#( #self );
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	644	pushReceiver;
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	645	send:#halt toSuperOf:IRBuilderTest;
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	646	returnTop;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	647	ir.
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	648	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	649	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	650	self
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	651	should:[
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	652	(aCompiledMethod valueWithReceiver:(IRBuilderTest new) arguments:#())
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	653	]
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	654	raise:Error.
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	655
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	656	"Modified: / 11-06-2008 / 16:09:12 / Jan Vrany <vranyj1@fel.cvut.cz>"
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	657	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	658
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	659	testStorIntoVariable
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	660	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	661
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	662	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	663	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	664	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	665	pushLiteral:4;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	666	storeIntoLiteralVariable:(IRBuilderTest bindingOf:#TestToPush);
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	667	returnTop;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	668	ir.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	669	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	670	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	671	aCompiledMethod valueWithReceiver:nil arguments:#().
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	672	self assert:(IRBuilderTest testToPush = 4).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	673	IRBuilderTest testToPush:nil.
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	674	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	675
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	676	testStoreTemp
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	677	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	678
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	679	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	680	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	681	addTemps:#( #self #a );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	682	pushLiteral:34;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	683	storeTemp:#a;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	684	pushTemp:#a;
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	685	returnTop;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	686	ir.
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	687	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	688	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	689	self assert:((aCompiledMethod valueWithReceiver:nil arguments:#()) = 34).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	690
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	691	"Modified: / 11-06-2008 / 16:24:43 / Jan Vrany <vranyj1@fel.cvut.cz>"
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	692	!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	693
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	694	testStoreThisEnv
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	695	\|iRMethod aCompiledMethod\|
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	696
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	697	^ self.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	698	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	699	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	700	addTemps:#( #self #a );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	701	pushLiteral:ClosureEnvironment;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	702	pushLiteral:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	703	send:#new:;
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	704	storeThisEnv;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	705	pushThisContext;
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	706	pushLiteral:5;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	707	send:#privGetInstVar:;
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	708	returnTop;
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	709	ir.
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	710	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	711	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	712	self assert:((aCompiledMethod valueWithReceiver:nil arguments:#())
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	713	isKindOf:ClosureEnvironment).
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	714
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	715	"Modified: / 11-06-2008 / 14:47:51 / Jan Vrany <vranyj1@fel.cvut.cz>"
3 c9845c180bd4 Fixes IRBytecodeGenerator >> #pushLiteral and IRBuilder >> #jumpAheadTo: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	716	!
c9845c180bd4 Fixes IRBytecodeGenerator >> #pushLiteral and IRBuilder >> #jumpAheadTo: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	717
c9845c180bd4 Fixes IRBytecodeGenerator >> #pushLiteral and IRBuilder >> #jumpAheadTo: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	718	testTwoJumpAheadToIfsToSameTarget
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	719	\|iRMethod aCompiledMethod\|
3 c9845c180bd4 Fixes IRBytecodeGenerator >> #pushLiteral and IRBuilder >> #jumpAheadTo: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	720
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	721	iRMethod := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	722	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	723	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	724	pushTemp:#self;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	725	pushLiteral:false;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	726	jumpAheadTo:#end if:true;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	727	pushLiteral:true;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	728	jumpAheadTo:#end if:true;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	729	pushLiteral:3;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	730	jumpAheadTarget:#end;
3 c9845c180bd4 Fixes IRBytecodeGenerator >> #pushLiteral and IRBuilder >> #jumpAheadTo: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	731	returnTop;
c9845c180bd4 Fixes IRBytecodeGenerator >> #pushLiteral and IRBuilder >> #jumpAheadTo: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	732	ir.
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	733	aCompiledMethod := iRMethod compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	734	self assert:(aCompiledMethod isKindOf:CompiledMethod).
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	735	self assert:((aCompiledMethod valueWithReceiver:nil arguments:#()) = nil).
3 c9845c180bd4 Fixes IRBytecodeGenerator >> #pushLiteral and IRBuilder >> #jumpAheadTo: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	736
c9845c180bd4 Fixes IRBytecodeGenerator >> #pushLiteral and IRBuilder >> #jumpAheadTo: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	737	"Created: / 03-11-2008 / 13:34:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	738	! !
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	739
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	740	!IRBuilderTest methodsFor:'testing - blocks'!
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	741
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	742	testBlock_blockTempArg
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	743	\|aCompiledMethod irBuilder\|
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	744
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	745	irBuilder := (IRBuilder new)
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	746	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	747	addTemps:#( #self );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	748	pushBlockUsingBuilder:[:builder \|
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	749	builder
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	750	numRargs:1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	751	addTemps:#( #barg1 );
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	752	pushTemp:#barg1;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	753	returnTop
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	754	];
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	755	pushLiteral:22;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	756	send:#value:;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	757	returnTop;
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	758	ir.
10 0fd549e0c784 First simple block works. See IRBuilderTest>>testBlock_blockTempArg. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	759	"
0fd549e0c784 First simple block works. See IRBuilderTest>>testBlock_blockTempArg. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	760	irBuilder ir
0fd549e0c784 First simple block works. See IRBuilderTest>>testBlock_blockTempArg. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	761	"
0fd549e0c784 First simple block works. See IRBuilderTest>>testBlock_blockTempArg. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	762
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	763	aCompiledMethod := irBuilder compiledCode.
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	764	self assert:(aCompiledMethod isKindOf:CompiledMethod).
10 0fd549e0c784 First simple block works. See IRBuilderTest>>testBlock_blockTempArg. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	765	self assert:((aCompiledMethod valueWithReceiver:1 arguments:#()) = 22).
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	766
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	767	"Created: / 30-03-2009 / 14:26:18 / Jan Vrany <vranyj1@fel.cvut.cz>"
10 0fd549e0c784 First simple block works. See IRBuilderTest>>testBlock_blockTempArg. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	768	"Modified: / 30-03-2009 / 19:16:25 / Jan Vrany <vranyj1@fel.cvut.cz>"
11 0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	769	!
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	770
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	771	testBlock_blockTempVar
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	772	\|aCompiledMethod irBuilder\|
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	773
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	774	irBuilder := (IRBuilder new)
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	775	numRargs:1;
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	776	addTemps:#( #self );
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	777	pushBlockUsingBuilder:[:builder \|
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	778	builder
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	779	numRargs:0;
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	780	addTemps:#( #bvar1 );
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	781	pushLiteral: 22;
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	782	storeTemp:#bvar1;
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	783	pushTemp: #bvar1;
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	784	returnTop
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	785	];
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	786	send:#value;
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	787	returnTop;
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	788	ir.
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	789	"
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	790	irBuilder ir
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	791	"
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	792
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	793	aCompiledMethod := irBuilder compiledCode.
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	794	self assert:(aCompiledMethod isKindOf:CompiledMethod).
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	795	self assert:((aCompiledMethod valueWithReceiver:1 arguments:#()) = 22).
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	796
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	797	"Created: / 30-03-2009 / 23:03:48 / Jan Vrany <vranyj1@fel.cvut.cz>"
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	798	!
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	799
16 f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	800	testBlock_exceptionHandler
14 9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	801	\|aCompiledMethod irBuilder\|
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	802
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	803	irBuilder := (IRBuilder new)
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	804	numRargs:1;
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	805	addTemps:#( #self);
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	806	pushBlockUsingBuilder:[:builder \|
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	807	builder
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	808	numRargs:0;
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	809	pushLiteral: 1;
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	810	pushLiteral: 0;
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	811	send: #/;
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	812	pushLiteral: false;
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	813	remoteReturn
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	814	];
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	815	pushLiteralVariable: #Error;
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	816	pushBlockUsingBuilder:[:builder\|
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	817	builder
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	818	numRargs:0;
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	819	pushLiteral: true;
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	820	remoteReturn];
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	821	send: #on:do:;
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	822	pushLiteral: false;
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	823	returnTop;
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	824	ir.
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	825	"
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	826	irBuilder ir
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	827	"
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	828
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	829	aCompiledMethod := irBuilder compiledCode.
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	830	self assert:(aCompiledMethod isKindOf:CompiledMethod).
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	831	self assert:((aCompiledMethod valueWithReceiver:1 arguments:#()) = true).
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	832
16 f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	833	"Created: / 11-05-2009 / 21:53:19 / Jan Vrany <vranyj1@fel.cvut.cz>"
14 9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	834	!
9369d251b3ed testcase demonstrating invalid push order when working with blocks karpij1 parents: 11 diff changeset	835
16 f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	836	testBlock_exceptionHandler_noRemoteReturn
15 4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	837	\|aCompiledMethod irBuilder\|
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	838
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	839	irBuilder := (IRBuilder new)
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	840	numRargs:1;
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	841	addTemps:#( #self);
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	842	pushBlockUsingBuilder:[:builder \|
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	843	builder
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	844	numRargs:0;
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	845	pushLiteral: 1;
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	846	pushLiteral: 0;
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	847	send: #/;
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	848	pushLiteral: false;
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	849	returnTop
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	850	];
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	851	pushLiteralVariable: #Error;
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	852	pushBlockUsingBuilder:[:builder\|
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	853	builder
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	854	numRargs:0;
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	855	pushLiteral: true;
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	856	returnTop];
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	857	send: #on:do:;
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	858	returnTop;
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	859	ir.
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	860	"
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	861	irBuilder ir
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	862	"
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	863
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	864	aCompiledMethod := irBuilder compiledCode.
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	865	self assert:(aCompiledMethod isKindOf:CompiledMethod).
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	866	self assert:((aCompiledMethod valueWithReceiver:1 arguments:#()) = true).
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	867
16 f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	868	"Created: / 11-05-2009 / 21:53:25 / Jan Vrany <vranyj1@fel.cvut.cz>"
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	869	!
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	870
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	871	testBlock_invalid_instruction_ordering_bug_1
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	872	\|aCompiledMethod irBuilder\|
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	873
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	874	irBuilder := (IRBuilder new)
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	875	numRargs: 1;
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	876	addTemps: #(self i);
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	877	pushTemp: #i;
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	878	pushLiteral: 3;
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	879	pushReceiver;
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	880
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	881	pushBlockUsingBuilder: [ :builder \|
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	882	builder
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	883	numRargs: 0;
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	884	addTemps: #();
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	885	pushTemp: #i;
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	886	returnTop.
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	887	];
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	888	returnTop;
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	889	ir.
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	890	"
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	891	irBuilder ir
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	892	"
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	893
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	894	aCompiledMethod := irBuilder compiledCode.
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	895	self assert:(aCompiledMethod isKindOf:CompiledMethod).
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	896	self assert:((aCompiledMethod valueWithReceiver:1 arguments:#()) isKindOf: Block).
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	897
f325defc9c7e Invalid intruction ordering bug fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	898	"Created: / 11-05-2009 / 21:55:30 / Jan Vrany <vranyj1@fel.cvut.cz>"
15 4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	899	!
4daeb5471d43 added test for exception handling (only returnTop) karpij1 parents: 14 diff changeset	900
11 0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	901	testBlock_methodTempVar
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	902	\|aCompiledMethod irBuilder\|
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	903
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	904	irBuilder := (IRBuilder new)
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	905	numRargs:1;
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	906	addTemps:#( #self #a);
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	907	pushLiteral: 22;
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	908	storeTemp: #a;
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	909	pushBlockUsingBuilder:[:builder \|
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	910	builder
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	911	numRargs:0;
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	912	pushTemp: #a;
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	913	returnTop
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	914	];
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	915	send:#value;
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	916	returnTop;
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	917	ir.
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	918	"
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	919	irBuilder ir
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	920	"
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	921
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	922	aCompiledMethod := irBuilder compiledCode.
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	923	self assert:(aCompiledMethod isKindOf:CompiledMethod).
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	924	self assert:((aCompiledMethod valueWithReceiver:1 arguments:#()) = 22).
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	925
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	926	"Created: / 30-03-2009 / 23:05:00 / Jan Vrany <vranyj1@fel.cvut.cz>"
0a50d475c1ff Blocks seems to work. No support for nested block. No support for Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	927	"Modified: / 01-04-2009 / 19:43:52 / Jan Vrany <vranyj1@fel.cvut.cz>"
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	928	! !
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	929
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	930	!IRBuilderTest class methodsFor:'documentation'!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	931
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	932	version
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	933	^'$Id$'
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	934	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 11 May 2009 20:20:05 +0000
changeset 16	f325defc9c7e
parent 15	4daeb5471d43
child 17	df6f26442169
permissions	-rw-r--r--