let type_unsigned_char = make_c_type (Tbuiltin Tuchar)