Adjust stack size based on local variables

This commit is contained in:
2024-11-20 17:38:03 +01:00
parent 276d4c963b
commit 0c9799b887
5 changed files with 74 additions and 48 deletions

View File

@@ -102,7 +102,7 @@ statement localTable (AST.CallStatement (AST.Identifier callName) arguments) = d
$ Vector.snoc (argumentStatements <> parameterStatements)
$ CallQuadruple callName
$ fromIntegral
$ Vector.length argumentStatements
$ length arguments
statement localTable (AST.CompoundStatement statements) =
fold <$> traverse (statement localTable) statements
statement localTable (AST.IfStatement ifCondition ifStatement elseStatement) = do