MisterChaos69/MiniJavaCompiler
2
2
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed superfluous Oppop for void ExpressionStatements

Browse Source
This commit is contained in:
Matthias Raba 2024-07-05 09:42:00 +02:00
parent d648e5dd05
commit 2d1309a5fe
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ByteCode/Assembler.hs
View File

@ -252,10 +252,11 @@ assembleStatement (constants, ops, lvars) (TypedStatement _ (LocalVariableDeclar
in in
(constants_init, ops_init ++ storeLocal, lvars ++ [name]) (constants_init, ops_init ++ storeLocal, lvars ++ [name])
assembleStatement (constants, ops, lvars) (TypedStatement _ (StatementExpressionStatement expr)) = let assembleStatement (constants, ops, lvars) (TypedStatement dtype (StatementExpressionStatement expr)) = let
(constants_e, ops_e, lvars_e) = assembleStatementExpression (constants, ops, lvars) expr (constants_e, ops_e, lvars_e) = assembleStatementExpression (constants, ops, lvars) expr
in in case dtype of
(constants_e, ops_e ++ [Oppop], lvars_e) "void" -> (constants_e, ops_e, lvars_e)
_ -> (constants_e, ops_e ++ [Oppop], lvars_e)
assembleStatement _ stmt = error ("Unknown statement: " ++ show stmt) assembleStatement _ stmt = error ("Unknown statement: " ++ show stmt)