98 lines
2.6 KiB
Smalltalk
98 lines
2.6 KiB
Smalltalk
|
"
|
||
|
|
I am CodeGen suited for the needs of standard (universal) code generator.
|
||
|
|
"
|
||
|
|
Class {
|
||
|
|
#name : 'PPCUniversalCodeGen',
|
||
|
|
#superclass : 'PPCCodeGen',
|
||
|
|
#category : 'PetitCompiler-Compiler-Codegen'
|
||
|
|
}
|
||
|
|
|
||
|
|
{ #category : 'memoization' }
|
||
|
|
PPCUniversalCodeGen >> remember: node to: variableName [
|
||
|
|
self memoizationStrategy remember: node to: variableName.
|
||
|
|
|
||
|
|
"options analyzeContext ifFalse: [
|
||
|
|
self codeAssign: 'context remember.'
|
||
|
|
to: variableName.
|
||
|
|
^ self
|
||
|
|
].
|
||
|
|
|
||
|
|
(node changesContext) ifFalse: [
|
||
|
|
self codeAssign: 'context lwRemember.'
|
||
|
|
to: variableName.
|
||
|
|
] ifTrue: [
|
||
|
|
node isIndentPush ifTrue: [
|
||
|
|
self codeAssign: 'context lwRemember.'
|
||
|
|
to: variableName.
|
||
|
|
] ifFalse: [
|
||
|
|
(node isSequenceNode and: [node children allButLast noneSatisfy: [:e | e changesContext ]]) ifTrue: [
|
||
|
|
""it is only the last child that changes context...""
|
||
|
|
self codeAssign: 'context lwRemember.'
|
||
|
|
to: variableName.
|
||
|
|
] ifFalse: [
|
||
|
|
self codeAssign: 'context remember.'
|
||
|
|
to: variableName.
|
||
|
|
].
|
||
|
|
]
|
||
|
|
]
|
||
|
|
"
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : 'memoization' }
|
||
|
|
PPCUniversalCodeGen >> restore: node from: variableName [
|
||
|
|
^ self memoizationStrategy restore: node from: variableName.
|
||
|
|
|
||
|
|
" self flag: 'JK: refactor!'.
|
||
|
|
options analyzeContext ifFalse: [
|
||
|
|
self code: 'context restore: ', mementoName, '.'.
|
||
|
|
^ self
|
||
|
|
].
|
||
|
|
|
||
|
|
node changesContext ifFalse: [
|
||
|
|
self code: 'context lwRestore: ', mementoName, '.'.
|
||
|
|
] ifTrue: [
|
||
|
|
node isIndentPush ifTrue: [
|
||
|
|
self assert: node isSequenceNode not.
|
||
|
|
self code: 'context lwRestore: ', mementoName, '.'.
|
||
|
|
self code: 'context indentStack pop.'.
|
||
|
|
] ifFalse: [
|
||
|
|
self code: 'context restore: ', mementoName, '.'.
|
||
|
|
]
|
||
|
|
]
|
||
|
|
"
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : 'memoization' }
|
||
|
|
PPCUniversalCodeGen >> restoreSequence: node child: child from: variableName [
|
||
|
|
self assert: node isSequenceNode.
|
||
|
|
self memoizationStrategy restoreSequenceNode: node child: child from: variableName
|
||
|
|
|
||
|
|
"
|
||
|
|
self flag: 'JK: refactor'.
|
||
|
|
options analyzeContext ifFalse: [
|
||
|
|
self code: 'context restore: ', mementoName, '.'.
|
||
|
|
^ self
|
||
|
|
].
|
||
|
|
|
||
|
|
node changesContext ifFalse: [
|
||
|
|
self restore: node from: mementoName
|
||
|
|
] ifTrue: [
|
||
|
|
node isIndentPush ifTrue: [
|
||
|
|
| push |
|
||
|
|
self code: 'context lwRestore: ', mementoName, '.'.
|
||
|
|
push := (node children detect: [:e | e isIndentPush]).
|
||
|
|
(node children indexOf: child) > (node children indexOf: push) ifTrue: [
|
||
|
|
self code: 'context indentStack pop.'.
|
||
|
|
]
|
||
|
|
] ifFalse: [
|
||
|
|
(node children allButLast noneSatisfy: [:e | e changesContext ]) ifTrue: [
|
||
|
|
""it is only the last child that changes context...""
|
||
|
|
self code: 'context lwRestore: ', mementoName, '.'.
|
||
|
|
] ifFalse: [
|
||
|
|
self restore: node from: mementoName
|
||
|
|
]
|
||
|
|
]
|
||
|
|
]
|
||
|
|
"
|
||
|
|
]
|