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

bytecode #10

Merged
MisterChaos69 merged 6 commits from bytecode into master 2024-07-05 11:30:44 +00:00
Conversation 0 Commits 6 Files Changed 8 +4 -3
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 2d1309a5fe - Show all commits

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)