let type_long_double = make_c_type (Tbuiltin Tlongdouble)