Skip to content
Browse files

Need to evaluate after ADDARGS

  • Loading branch information...
1 parent cae2266 commit 2e3fd5ba00389a707079d35e0e9da60086f036d8 Edwin Brady committed Dec 15, 2011
Showing with 2 additions and 1 deletion.
  1. +2 −1 Epic/Bytecode.lhs
View
3 Epic/Bytecode.lhs
@@ -356,7 +356,8 @@ Compile an application of a function to arguments
> = do reg' <- new_tmp
> (argcode, argregs) <- ecomps lazy args vs
> fcode <- ecomp lazy Middle f reg' vs
-> return $ fcode ++ argcode ++ [ADDARGS reg reg' argregs]
+> return $ fcode ++ argcode ++ [ADDARGS reg reg' argregs] ++
+> if (not (fst lazy)) then [EVAL reg (snd lazy)] else []
> ccomp (MkInt i) reg = return [INT reg i]
> ccomp (MkBigInt i) reg = return [BIGINT reg i]

0 comments on commit 2e3fd5b

Please sign in to comment.
Something went wrong with that request. Please try again.