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

"{ NameSpace: Smalltalk }"

Object subclass:#PPCOptimizationResult
	instanceVariableNames:'change'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitCompiler-Nodes'
!

!PPCOptimizationResult class methodsFor:'as yet unclassified'!

new
    "return an initialized instance"

    ^ self basicNew initialize.
!

nothing
	^ PPCOptimizationResult new
		change: false;
		yourself
! !

!PPCOptimizationResult methodsFor:'accessing'!

change
	change := true.
!

isChange
	^ change
! !

!PPCOptimizationResult methodsFor:'initialization'!

initialize
	change := false
! !