Small improvement in inlining: inline child of an action node.
--- a/compiler/PPCInliningVisitor.st Sat May 16 19:21:00 2015 +0100
+++ b/compiler/PPCInliningVisitor.st Wed May 20 16:47:52 2015 +0100
@@ -9,6 +9,7 @@
category:'PetitCompiler-Visitors'
!
+
!PPCInliningVisitor methodsFor:'initialization'!
initialize
@@ -37,6 +38,13 @@
^ node
!
+visitActionNode: node
+ node child markForInline.
+ ^ super visitActionNode: node.
+
+ "Created: / 13-05-2015 / 16:25:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
visitCharSetPredicateNode: node
^ self markForInline: node
!
@@ -109,3 +117,10 @@
^ node
! !
+!PPCInliningVisitor class methodsFor:'documentation'!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+! !
+