diff options
| author | Eugen Wissner <belka@caraus.de> | 2024-11-20 17:38:03 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2024-11-20 17:38:03 +0100 |
| commit | 0c9799b887e967a55857377dad0d64ad625b47c9 (patch) | |
| tree | 6fb3e9615b09af25afbf09a7b2f4793abb5221bb /lib/Language/Elna/Glue.hs | |
| parent | 276d4c963b1db81af2dfc158b438070fbaa3d0f1 (diff) | |
| download | elna-0c9799b887e967a55857377dad0d64ad625b47c9.tar.gz | |
Adjust stack size based on local variables
Diffstat (limited to 'lib/Language/Elna/Glue.hs')
| -rw-r--r-- | lib/Language/Elna/Glue.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Language/Elna/Glue.hs b/lib/Language/Elna/Glue.hs index 9101ca5..02a9b9f 100644 --- a/lib/Language/Elna/Glue.hs +++ b/lib/Language/Elna/Glue.hs @@ -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 |