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