compiler/PPCOptimizationResult.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sun, 26 Oct 2014 01:28:07 +0000
changeset 392 9b297f0d949c
parent 391 553a5456963b
child 414 0eaf09920532
permissions -rw-r--r--
Fixed PPCNode>>doOptmizationLoop:status: Must report status to changeStatus as caller is checking its value. Also, added PPCOptimizationResult class>>new as Smaltalk/X (actually, most Smalltalks) does not call #initialize by default.

"{ 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
! !