equal
deleted
inserted
replaced
136 testInlinePluggable |
136 testInlinePluggable |
137 | tree | |
137 | tree | |
138 tree := self optimize: [:ctx | nil] asParser star. |
138 tree := self optimize: [:ctx | nil] asParser star. |
139 |
139 |
140 ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) |
140 ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) |
141 ifTrue:[ self skip: 'not supported in St/X' ]. |
141 ifTrue:[ self skipIf: true description: 'not supported in St/X' ]. |
142 |
142 |
143 self assert: tree type: PPCStarNode. |
143 self assert: tree type: PPCStarNode. |
144 self assert: tree child type: PPCPluggableNode. |
144 self assert: tree child type: PPCPluggableNode. |
145 self assert: tree child isMarkedForInline. |
145 self assert: tree child isMarkedForInline. |
146 |
146 |