Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix foreign calls that return chars

  • Loading branch information...
commit cae22663bb92eb05e79fb8be36cc47240f5c7972 1 parent 73d239e
Edwin Brady authored
Showing with 1 addition and 0 deletions.
  1. +1 −0  Epic/CodegenC.lhs
View
1  Epic/CodegenC.lhs
@@ -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 ++ ")"
Please sign in to comment.
Something went wrong with that request. Please try again.