let rt_format_of_ctype t = match t with
| Ctypes.C_int c_int -> i_format c_int
| Ctypes.C_float c_float -> f_format c_float
| Ctypes.C_comp comp -> format_of_compinfo comp
| Ctypes.C_array arr -> format_of_array arr
| Ctypes.C_pointer ty -> format_of_addr ty