let make_c_type ?(const = false) ?(volatile = false) ty = 
  { ct_const_p = const; ct_volatile_p = volatile;
    ct_ty = ty }