--- a/compiler/TCompilerPass.st Tue Sep 22 17:43:38 2015 +0100
+++ b/compiler/TCompilerPass.st Wed Sep 23 22:21:44 2015 +0100
@@ -3,7 +3,7 @@
"{ NameSpace: Smalltalk }"
TProgramNodeVisitor subclass:#TCompilerPass
- instanceVariableNames:'context currentClass currentMethod currentScope'
+ instanceVariableNames:'context'
classVariableNames:''
poolDictionaries:''
category:'Languages-Tea-Compiler-Internals'
@@ -89,24 +89,14 @@
!TCompilerPass methodsFor:'visitor-double dispatching'!
-acceptBlockNode: aBlockNode
- currentScope := aBlockNode scope.
- super acceptBlockNode: aBlockNode
-
- "Created: / 02-09-2015 / 07:20:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
acceptClassDefinition: aTClassDefinition
self visitDefinition: aTClassDefinition theMetaclass.
-
- currentClass := aTClassDefinition.
aTClassDefinition methodDictionary do:[:each |
self visitDefinition: each
].
- currentClass := nil.
"Created: / 29-08-2015 / 21:50:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 31-08-2015 / 11:03:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 23-09-2015 / 06:16:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
acceptCompilationUnitDefinition: aTCompilationUnitDefinition
@@ -136,39 +126,19 @@
!
acceptMetaclassDefinition: aTClassDefinition
- currentClass := aTClassDefinition.
aTClassDefinition methodDictionary do:[:each |
self visitDefinition: each
].
- currentClass := nil.
"Created: / 29-08-2015 / 21:54:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 31-08-2015 / 11:03:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 23-09-2015 / 06:16:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
acceptMethodDefinition: aTMethodDefinition
- currentMethod := aTMethodDefinition.
self visitNode: aTMethodDefinition parseTree.
- currentMethod := nil.
"Created: / 29-08-2015 / 21:55:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 31-08-2015 / 11:03:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-acceptMethodNode: aMethodNode
-
- currentScope := aMethodNode scope.
- self visitArguments: aMethodNode arguments.
- self visitNode: aMethodNode returnTypeSpec.
- "/ If method node contains inline assembly, then visit that inline assembly
- "/ node but nothing else!!
- aMethodNode body statements first isInlineAssembly ifTrue:[
- self visitNode: aMethodNode body statements first
- ] ifFalse:[
- self visitNode: aMethodNode body
- ].
-
- "Created: / 02-09-2015 / 07:16:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 23-09-2015 / 06:17:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
acceptSequenceNode: aSequenceNode