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

     2 

     3 Object subclass:#PPCOptimizationResult

     4 	instanceVariableNames:'change'

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'PetitCompiler-Nodes'

     8 !

     9 

    10 PPCOptimizationResult comment:''

    11 !

    12 

    13 !PPCOptimizationResult class methodsFor:'as yet unclassified'!

    14 

    15 nothing

    16 	^ PPCOptimizationResult new

    17 		change: false;

    18 		yourself

    19 ! !

    20 

    21 !PPCOptimizationResult methodsFor:'accessing'!

    22 

    23 change

    24 	Halt ifShiftPressed.

    25 	change := true.

    26 !

    27 

    28 isChange

    29 	^ change

    30 ! !

    31 

    32 !PPCOptimizationResult methodsFor:'initialization'!

    33 

    34 initialize

    35 	change := false

    36 ! !

    37