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

Compare commits

base: MisterChaos69:typedAST
Branches Tags
MisterChaos69:master MisterChaos69:bytecode MisterChaos69:create-parser MisterChaos69:typechecker_addPublicPrivate MisterChaos69:typedAST MisterChaos69:documentation
...
compare: MisterChaos69:2d1309a5fe2a3251f0a099b845e69e78c1cc602e
Branches Tags
MisterChaos69:master MisterChaos69:bytecode MisterChaos69:create-parser MisterChaos69:typechecker_addPublicPrivate MisterChaos69:typedAST MisterChaos69:documentation

1 Commits
typedAST ... 2d1309a5fe

Author SHA1 Message Date
Matthias Raba
2d1309a5fe Fixed superfluous Oppop for void ExpressionStatements 2024-07-05 09:42:00 +02:00
1 changed files with 4 additions and 3 deletions
Expand all files Collapse all files

7
src/ByteCode/Assembler.hs
View File

@@ -252,10 +252,11 @@ assembleStatement (constants, ops, lvars) (TypedStatement _ (LocalVariableDeclar
in
(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
in
(constants_e, ops_e ++ [Oppop], lvars_e)
in case dtype of
"void" -> (constants_e, ops_e, lvars_e)
_ -> (constants_e, ops_e ++ [Oppop], lvars_e)
assembleStatement _ stmt = error ("Unknown statement: " ++ show stmt)