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

Object subclass:#PPCOptimizationResult

	instanceVariableNames:'change'

	classVariableNames:''

	poolDictionaries:''

	category:'PetitCompiler-Nodes'

!

!PPCOptimizationResult class methodsFor:'instance creation'!

new

    "return an initialized instance"

    ^ self basicNew initialize.

! !

!PPCOptimizationResult class methodsFor:'as yet unclassified'!

nothing

	^ PPCOptimizationResult new

		change: false;

		yourself

! !

!PPCOptimizationResult methodsFor:'accessing'!

change

        change := true.

    "Modified: / 26-10-2014 / 01:14:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

isChange

	^ change

! !

!PPCOptimizationResult methodsFor:'initialization'!

initialize

	change := false

! !