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

"{ NameSpace: Smalltalk }"

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

PPCMethodStrategy class instanceVariableNames:'Instance'

"
 No other class instance variables are inherited by this class.
"
!

!PPCMethodStrategy class methodsFor:'as yet unclassified'!

instance
	^ Instance ifNil: [ 
		Instance := self basicNew initialize.
	]
!

new
	^ self instance
! !

!PPCMethodStrategy methodsFor:'as yet unclassified'!

return: compiler
	compiler add: '^'.
!

start: compiler id: id
	self halt: 'deprecated?'.
	^ compiler startMethod: id
!

stop: compiler
 ^ compiler stopMethod
! !