hg/ctu-ircompiler: IRInstVarAccess.st@d361eb9419e6 (annotated)

23 377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	1	"{ Package: 'cvut:stx/goodies/newcompiler' }"
1 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	IRAccess subclass:#IRInstVarAccess
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4	instanceVariableNames:''
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	classVariableNames:''
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	poolDictionaries:''
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	category:'NewCompiler-IR'
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
23 377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	10	IRInstVarAccess comment:'when closures disabled, Field describes an instVar. With closures, it describes a
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	11	fieldaccess with receiver to be accessed pushed first.'
1 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
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	!IRInstVarAccess methodsFor:'testing'!
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	isInstVarAccess
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	^true.
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	!
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	varname
9 04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	22	name
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	23	ifNil:[
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	24	name := self method compiledCode methodClass allInstVarNames
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	25	at:self offset
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	26	].
04518c7fb91c Initial support for closures. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	27	^ name.
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	! !
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	!IRInstVarAccess class methodsFor:'documentation'!
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31
0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	version
37 be8c2dd09dff Build files regenerated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	33	^ '$Id$'
23 377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	34	!
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	35
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	36	version_CVS
37 be8c2dd09dff Build files regenerated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	37	^ '�Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRInstVarAccess.st,v 1.3 2009/10/08 12:01:34 fm Exp �'
23 377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	38	!
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	39
377bc46cad12 Moved to package cvut:stx/goodies/newcompiler to be in sync with eXept Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	40	version_SVN
37 be8c2dd09dff Build files regenerated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	41	^ '$Id:: $'
1 0dd36941955f Initial revision. All tests pass. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 17 Sep 2012 09:03:06 +0000
changeset 39	d361eb9419e6
parent 37	be8c2dd09dff
child 41	f3898a3b378d
permissions	-rw-r--r--