compiler/PPCPluggableNode.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 16 Jun 2015 06:45:26 +0100
changeset 489 0ca7a70db0f5
parent 452 9f4558b3be66
child 515 b5316ef15274
permissions -rw-r--r--
Fix in codegen for inlined sequence nodes. For inlined sequence nodes, generate nested ifs rather than sequential code which does not work when inlined. The reason is that #codeReturn: in inline generates instvar assignment, not method return, so in sequential code the next child of a sequence will be probed even if previous failed. If that happends, the whole sequence fail and therefore we must generate nested ifs to correctly handle this w.r.t. inlining.

"{ Package: 'stx:goodies/petitparser/compiler' }"

"{ NameSpace: Smalltalk }"

PPCNode subclass:#PPCPluggableNode
	instanceVariableNames:'block'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitCompiler-Nodes'
!


!PPCPluggableNode methodsFor:'accessing'!

block
    
    ^ block
!

block: anObject
    
    block := anObject
!

prefix
    ^ #plug
! !

!PPCPluggableNode methodsFor:'analysis'!

acceptsEpsilon
    ^ true
!

acceptsEpsilonOpenSet: set
    ^ true
!

firstCharSet
    ^ PPCharSetPredicate on: [:char | (block asParser parse: char asString) isPetitFailure not ]
! !

!PPCPluggableNode methodsFor:'comparing'!

= anotherNode
    super = anotherNode ifFalse: [ ^ false ].
    ^ block = anotherNode block.
!

hash
    ^ super hash bitXor: block hash
! !

!PPCPluggableNode methodsFor:'visiting'!

accept: visitor
    ^ visitor visitPluggableNode: self
! !

!PPCPluggableNode class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'
! !