Permalink
Browse files

Fix lambda lifting bug

  • Loading branch information...
1 parent 5619b9b commit b9b309eb25c88969a64be22c25d6fbd1dd6c5e1d Edwin Brady committed Dec 17, 2011
Showing with 3 additions and 2 deletions.
  1. +1 −0 Epic/CodegenC.lhs
  2. +1 −1 Epic/Scopecheck.lhs
  3. +1 −1 evm/stdfuns.c
View
@@ -75,6 +75,7 @@
> workers _ [] = ""
> workers ctxt (decl@(Decl fname ret func@(Bind args locals defn _) _ _):xs) =
> -- trace (show fname ++ ": " ++ show defn) $
+> "/*\n " ++ show func ++ "\n*/\n" ++
> "void* " ++ quickcall fname ++ "(" ++ showargs args 0 ++ ") {\n" ++
> compileBody (compile ctxt fname func) ++ "\n}\n\n" ++ exportC decl ++
> workers ctxt xs
View
@@ -173,7 +173,7 @@ We're being very tolerant of input here...
> v_ise ((n,ty):args) i = let rest = v_ise args (i+1) in
> case lookup n rest of
> Nothing -> (n,i):rest
-> _ -> rest
+> Just i' -> (n,i'):rest
where dropArg n [] = []
dropArg n ((x,i):xs) | x == n = dropArg n xs
View
@@ -376,7 +376,7 @@ mpz_t* strToBigInt(char* str)
void* intToBigInt(int x)
{
- return MKINT(x);
+ return MKINT(INTTOEINT(x));
}
char* bigIntToStr(mpz_t x)

0 comments on commit b9b309e

Please sign in to comment.