equal
deleted
inserted
replaced
148 testInlinePluggable |
148 testInlinePluggable |
149 | tree | |
149 | tree | |
150 tree := self optimize: [:ctx | nil] asParser star. |
150 tree := self optimize: [:ctx | nil] asParser star. |
151 |
151 |
152 ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) |
152 ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) |
153 ifTrue:[ self skip: 'not supported in St/X' ]. |
153 ifTrue:[ self skipIf: true description: 'not supported in St/X' ]. |
154 |
154 |
155 self assert: tree type: PPCStarNode. |
155 self assert: tree type: PPCStarNode. |
156 self assert: tree child type: PPCPluggableNode. |
156 self assert: tree child type: PPCPluggableNode. |
157 self assert: tree child isMarkedForInline. |
157 self assert: tree child isMarkedForInline. |
158 |
158 |
159 "Modified: / 23-04-2015 / 12:19:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
159 "Modified: / 10-05-2015 / 07:30:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
160 ! |
160 ! |
161 |
161 |
162 testInlinePredicate |
162 testInlinePredicate |
163 | tree | |
163 | tree | |
164 tree := self optimize: (#letter asParser, (PPPredicateObjectParser on: [ :e | e = $a or: [ e = $b ]] message: #foo)). |
164 tree := self optimize: (#letter asParser, (PPPredicateObjectParser on: [ :e | e = $a or: [ e = $b ]] message: #foo)). |