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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 Object subclass:#PPCOptimizationResult

     6 	instanceVariableNames:'change'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Nodes'

    10 !

    11 

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

    13 

    14 new

    15     "return an initialized instance"

    16 

    17     ^ self basicNew initialize.

    18 !

    19 

    20 nothing

    21 	^ PPCOptimizationResult new

    22 		change: false;

    23 		yourself

    24 ! !

    25 

    26 !PPCOptimizationResult methodsFor:'accessing'!

    27 

    28 change

    29 	change := true.

    30 !

    31 

    32 isChange

    33 	^ change

    34 ! !

    35 

    36 !PPCOptimizationResult methodsFor:'initialization'!

    37 

    38 initialize

    39 	change := false

    40 ! !

    41