extensions.st
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--
- IRTempStore changed: #version_SVN - IRAccess changed: #version_SVN - IRMethod changed: #version_SVN - IRPrinter changed: #version_SVN - IRTempRead changed: #version_SVN - IRLiteralVariableRead changed: #version_SVN - IRLine changed: #version_SVN - IRClosure changed: #version_SVN - IRFunction changed: #version_SVN - IRDup changed: #version_SVN - IRTranslator changed: #version_SVN - IRInterpreter changed: #version_SVN - IRBuilder changed: #version_SVN - IRBytecodeGenerator changed: #version_SVN - IRJumpOverBlock changed: #version_SVN - IRBlockReturnTop changed: #version_SVN - IRSequence changed: #version_SVN - IRDecompiler changed: #version_SVN - IRInstVarStore changed: #version_SVN - cvut_stx_goodies_newcompiler added: #excludedFromPreRequisites #extensionsVersion_SVN #svnRepositoryUrlString changed: #preRequisites #svnRevisionNr #version_SVN - IRLiteralVariableAccess changed: #version_SVN - IRTransformTest changed: #version_SVN - IRStackCount changed: #version_SVN - IRInstVarAccess changed: #version_SVN - IRLiteralVariableStore changed: #version_SVN - IRBuilderTest changed: #version_SVN - IRInstruction changed: #version_SVN - IRTempAccess changed: #version_SVN - IRConstant changed: #version_SVN - IRSend changed: #version_SVN - IRInstVarRead changed: #version_SVN - IRPop changed: #version_SVN - IRReturn changed: #version_SVN - IRJump changed: #version_SVN - IRJumpIf changed: #version_SVN - extensions ...

"{ Package: 'cvut:stx/goodies/newcompiler' }"!

!ByteCodeCompiler methodsFor:'accessing'!

literalArray: anArray
    "return the literal array - only valid after parsing"

    litArray := anArray

    "Created: / 03-11-2008 / 14:09:33 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!Class methodsFor:'accessing'!

binding

    ^self fullName asSymbol

    "Created: / 11-06-2008 / 11:20:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!Class methodsFor:'accessing'!

bindingOf: classVarName

    ^(self fullName , ':' , classVarName) asSymbol

    "Created: / 11-06-2008 / 11:29:19 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!cvut_stx_goodies_newcompiler class methodsFor:'documentation'!

extensionsVersion_SVN
    ^ '$Id::                                                                                                                        $'
! !