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/tests' }"
"{ NameSpace: Smalltalk }"
TestCase subclass:#PPCTokenGuardTest
instanceVariableNames:'guard compiler node tokenNode'
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-Tests-Guards'
!
!PPCTokenGuardTest methodsFor:'as yet unclassified'!
setUp
super setUp.
compiler := PPCMockCompiler new.
!
testMakesSense
tokenNode := PPCTokenNode new
child: 'foo' asParser asCompilerTree.
node := PPCPlusNode new
child: tokenNode;
yourself.
guard := PPCTokenGuard on: node.
self assert: guard makesSense.
!
testMakesSense2
node := PPCPlusNode new
child: ('foo' asParser asCompilerTree);
yourself.
guard := PPCTokenGuard on: node.
self assert: guard makesSense not.
! !