git.iko.soy/Idris-dev
on master help sign in
Remove overlapped case in CodegenC
f04aba8Edwin Brady
src/IRTS/CodegenC.hs+2−2
compare with master
unifiedsplit
@@ -386,8 +386,8 @@ doOp v (LZExt (ITFixed from) ITChar) [x]
386 = doOp v (LZExt (ITFixed from) ITNative) [x]
386 = doOp v (LZExt (ITFixed from) ITNative) [x]
387doOp v (LZExt (ITFixed from) ITBig) [x]
387doOp v (LZExt (ITFixed from) ITBig) [x]
388 = v ++ "MKBIGUI(vm, " ++ creg x ++ "->info.bits" ++ show (nativeTyWidth from) ++ ")"
388 = v ++ "MKBIGUI(vm, " ++ creg x ++ "->info.bits" ++ show (nativeTyWidth from) ++ ")"
389−doOp v (LZExt ITNative ITBig) [x]
389+-- doOp v (LZExt ITNative ITBig) [x]
390− = v ++ "MKBIGUI(vm, (uintptr_t)GETINT(" ++ creg x ++ "))"
390+-- = v ++ "MKBIGUI(vm, (uintptr_t)GETINT(" ++ creg x ++ "))"
391doOp v (LZExt (ITFixed from) (ITFixed to)) [x]
391doOp v (LZExt (ITFixed from) (ITFixed to)) [x]
392 | nativeTyWidth from < nativeTyWidth to = bitCoerce v "Z" from to x
392 | nativeTyWidth from < nativeTyWidth to = bitCoerce v "Z" from to x
393doOp v (LTrunc ITNative (ITFixed to)) [x]
393doOp v (LTrunc ITNative (ITFixed to)) [x]