Debuggable CodegenC primitive match failures
commitd20d0b932fea43284f241ce2a2840307e8bf9f50
authorBenjamin Saunders <besaunde@sfu.ca>
dateSun 13 Jan 2013, 16:08 (14 years ago)
parent58a36ef
src/IRTS/CodegenC.hs+1−1
@@ -447,4 +447,4 @@ doOp v LFork [x] = v ++ "MKPTR(vm, vmThread(vm, " ++ cname (MN 0 "EVAL") ++ ", "
447447doOp v LPar [x] = v ++ creg x -- "MKPTR(vm, vmThread(vm, " ++ cname (MN 0 "EVAL") ++ ", " ++ creg x ++ "))"
448448doOp v LVMPtr [] = v ++ "MKPTR(vm, vm)"
449449doOp v LNoOp args = v ++ creg (last args)
450−doOp _ _ _ = "FAIL"
450+doOp _ op _ = "FAIL /* " ++ show op ++ " */"