"{ Package: 'stx:goodies/petitparser/compiler' }"
"{ NameSpace: Smalltalk }"
PPCCodeGen subclass:#PPCUniversalCodeGen
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-Compiler-Codegen'
!
!PPCUniversalCodeGen methodsFor:'code generation'!
remember: parser to: variableName
parser isContextFree ifTrue: [
self codeAssign: 'context lwRemember.'
to: variableName.
] ifFalse: [
self codeAssign: 'context remember.'
to: variableName.
]
!
restore: parser from: mementoName
parser isContextFree ifTrue: [
self code: 'context lwRestore: ', mementoName, '.'.
] ifFalse: [
self code: 'context restore: ', mementoName, '.'.
]
! !