--- a/compiler/PPCInliningVisitor.st Wed Aug 26 23:34:48 2015 +0100
+++ b/compiler/PPCInliningVisitor.st Sat Aug 29 07:56:14 2015 +0100
@@ -2,7 +2,7 @@
"{ NameSpace: Smalltalk }"
-PPCPass subclass:#PPCInliningVisitor
+PPCPassVisitor subclass:#PPCInliningVisitor
instanceVariableNames:'canInline acceptedNodes'
classVariableNames:''
poolDictionaries:''
@@ -13,9 +13,10 @@
!PPCInliningVisitor methodsFor:'initialization'!
initialize
- super initialize.
-
+ super initialize.
acceptedNodes := 0
+
+ "Modified (format): / 29-08-2015 / 07:40:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!PPCInliningVisitor methodsFor:'testing'!
@@ -103,16 +104,6 @@
^ self markForInline: node
!
-visitTokenConsumeNode: node
- "super visitTokenConsumeNode: node."
-
- node name isNil ifTrue: [
- self markForInline: node
- ].
-
- ^ node
-!
-
visitTokenStarMessagePredicateNode: node
^ self markForInline: node
!