From c50d7c5b6d610c5ad9fecf55e28ca9593713f58c Mon Sep 17 00:00:00 2001 From: Fabian Thorand Date: Wed, 24 Sep 2014 23:02:43 +0200 Subject: [PATCH] Added missing parenthesis in C code generation. --- src/IRTS/CodegenC.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/IRTS/CodegenC.hs b/src/IRTS/CodegenC.hs index a27d16aa5..5ed56fcd0 100644 --- a/src/IRTS/CodegenC.hs +++ b/src/IRTS/CodegenC.hs @@ -437,7 +437,7 @@ doOp v (LSExt (ITFixed from) ITChar) [x] doOp v (LSExt (ITFixed from) (ITFixed to)) [x] | nativeTyWidth from < nativeTyWidth to = bitCoerce v "S" from to x doOp v (LZExt ITNative (ITFixed to)) [x] - = v ++ "idris_b" ++ show (nativeTyWidth to) ++ "const(vm, (uintptr_t)GETINT(" ++ creg x ++ ")" + = v ++ "idris_b" ++ show (nativeTyWidth to) ++ "const(vm, (uintptr_t)GETINT(" ++ creg x ++ "))" doOp v (LZExt ITChar (ITFixed to)) [x] = doOp v (LZExt ITNative (ITFixed to)) [x] doOp v (LZExt (ITFixed from) ITNative) [x]