4fae6d4 · Idris-dev · git.iko.soy

git.iko.soy/Idris-dev

on master help sign in

Fix compiler warning on pointer equality test

4fae6d4Edwin Brady11 years ago

src/IRTS/CodegenC.hs+2−2

@@ -571,9 +571,9 @@ doOp v (LExternal se) [] | se == sUN "prim__stderr" = v ++ "MKPTR(vm, stderr)"

571

572doOp v (LExternal nul) [] | nul == sUN "prim__null" = v ++ "MKPTR(vm, NULL)"

573doOp v (LExternal eqp) [x, y] | eqp == sUN "prim__eqPtr"

574− = v ++ "GETPTR(" ++ creg x ++ ") == GETPTR(" ++ creg y ++ ")"

574+ = v ++ "MKINT((i_int)(GETPTR(" ++ creg x ++ ") == GETPTR(" ++ creg y ++ ")))"

575doOp v (LExternal eqp) [x, y] | eqp == sUN "prim__eqManagedPtr"

576− = v ++ "GETMPTR(" ++ creg x ++ ") == GETMPTR(" ++ creg y ++ ")"

576+ = v ++ "MKINT((i_int)(GETMPTR(" ++ creg x ++ ") == GETMPTR(" ++ creg y ++ ")))"

577doOp v (LExternal rp) [p, i] | rp == sUN "prim__registerPtr"

578 = v ++ "MKMPTR(vm, GETPTR(" ++ creg p ++ "), GETINT(" ++ creg i ++ "))"

579