Compare commits
4 Commits
create-par
...
master
Author | SHA1 | Date | |
---|---|---|---|
b73cb62551 | |||
4e220eea99 | |||
0445e2d488 | |||
2d1309a5fe |
@ -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)
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user