Permalink
Browse files

Fix foreign calls that return chars

  • Loading branch information...
1 parent 73d239e commit cae22663bb92eb05e79fb8be36cc47240f5c7972 Edwin Brady committed Dec 14, 2011
Showing with 1 addition and 0 deletions.
  1. +1 −0 Epic/CodegenC.lhs
View
@@ -269,6 +269,7 @@
> cToEpic var TyString = "MKSTR((char*)(" ++ var ++ "))"
> cToEpic var TyInt = "MKINT(INTTOEINT(" ++ var ++ "))"
+> cToEpic var TyChar = "MKINT(INTTOEINT(" ++ var ++ "))"
> cToEpic var TyPtr = "MKPTR(" ++ var ++ ")"
> -- cToEpic var TyBigInt = "MKBIGINT((mpz_t*)(" ++ var ++ "))" -- now just a VAL
> cToEpic var TyFloat = "MKFLOAT(" ++ var ++ ")"

0 comments on commit cae2266

Please sign in to comment.