let cast_loc_to_loc ty1 ty2 _l =
    unsupported "cast from pointer (%a) to pointer (%a)"
      !Ast_printer.d_type ty1 !Ast_printer.d_type ty2