let type_long = make_c_type (Tbuiltin Tlong)