Preserve casts

clangml-transforms/for_memcad.ml

@@ -323,8 +323,10 @@ let transform = object (self)
         qual_type = { desc = Pointer { desc = BuiltinType Void; _ }; _};
         operand = { desc = IntegerLiteral (Int 0); _ }} ->
         expr, monoid#zero
+(*
     | Cast { operand; _ } ->
         self#visit_expr env { expr with desc = operand.desc }
+*)
     (* liftConditionals *)
     | ConditionalOperator { cond; then_branch; else_branch } ->
         let then_branch =