on master help sign in
Remove overlapped case in CodegenC
commitf04aba83c1452b54f817f110ccea6e37a952cae8 authorEdwin Brady <ecb10@st-andrews.ac.uk> dateWed 31 Jul 2013, 19:28 (13 years ago) parent91d3649
1 file changed+2−2
src/IRTS/CodegenC.hs+2−2
src/IRTS/CodegenC.hs+2−2
@@ -386,8 +386,8 @@ doOp v (LZExt (ITFixed from) ITChar) [x]
386386 = doOp v (LZExt (ITFixed from) ITNative) [x]
387387doOp v (LZExt (ITFixed from) ITBig) [x]
388388 = v ++ "MKBIGUI(vm, " ++ creg x ++ "->info.bits" ++ show (nativeTyWidth from) ++ ")"
389−doOp v (LZExt ITNative ITBig) [x]
390− = v ++ "MKBIGUI(vm, (uintptr_t)GETINT(" ++ creg x ++ "))"
389+-- doOp v (LZExt ITNative ITBig) [x]
390+-- = v ++ "MKBIGUI(vm, (uintptr_t)GETINT(" ++ creg x ++ "))"
391391doOp v (LZExt (ITFixed from) (ITFixed to)) [x]
392392 | nativeTyWidth from < nativeTyWidth to = bitCoerce v "Z" from to x
393393doOp v (LTrunc ITNative (ITFixed to)) [x]