belka/elna
1
0
Fork 0
Code Issues 5 Pull Requests Releases Activity

Reverse procedure parameters on the stack

Browse Source
This commit is contained in:
Eugen Wissner
2024-11-28 16:28:19 +01:00
parent f7b36cb81d
commit 147967c04b
3 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/Language/Elna/Glue.hs
View File

@ -72,8 +72,9 @@ declaration
-> AST.Declaration
-> Glue (Maybe (AST.Identifier, Vector (Quadruple Variable)))
declaration globalTable (AST.ProcedureDeclaration procedureName parameters variableDeclarations statements)
= traverseWithIndex registerVariable variableDeclarations
>> traverseWithIndex registerParameter parameters
= Glue (modify' resetTemporaryCounter)
>> traverseWithIndex registerVariable variableDeclarations
>> traverseWithIndex registerParameter (reverse parameters)
>> nameQuadruplesTuple <$> traverse (statement globalTable) statements
where
traverseWithIndex f = traverse_ (uncurry f) . zip [0..]
@ -91,6 +92,10 @@ declaration globalTable (AST.ProcedureDeclaration procedureName parameters varia
$ flip Vector.snoc StopQuadruple
$ fold quadrupleList
)
resetTemporaryCounter paste = paste
{ temporaryCounter = 0
, localMap = mempty
}
declaration _ (AST.TypeDefinition _ _) = pure Nothing
statement :: SymbolTable -> AST.Statement -> Glue (Vector (Quadruple Variable))