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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PPCAnyNode subclass:#PPCInlineAnyNode

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Nodes'

    10 !

    11 

    12 !PPCInlineAnyNode methodsFor:'as yet unclassified'!

    13 

    14 asInlined

    15 	^ self

    16 !

    17 

    18 compileWith: compiler effect: effect id: id

    19 	compiler startInline: id.

    20 	compiler add: 'context next ifNil: [ error := true. ].'.

    21  ^ compiler stopInline.

    22 !

    23 

    24 printOn: aStream

    25 	aStream nextPutAll: #inlined.

    26 	super printOn: aStream.

    27 ! !

    28