+static void mangle_reference_type(const reference_type_t *type)
+{
+ obstack_1grow(&obst, 'R');
+ mangle_type(type->refers_to);
+}
+
+static void mangle_parameters(const function_type_t *type)
+{
+ if (type->unspecified_parameters)
+ panic("can't mangle unspecified parameter types");
+ if (type->kr_style_parameters)
+ panic("can't mangle kr_style_parameters type");
+
+ const function_parameter_t *parameter = type->parameters;
+ if (parameter != NULL) {
+ for ( ; parameter != NULL; parameter = parameter->next) {
+ mangle_type(parameter->type);
+ }
+ if (type->variadic) {
+ obstack_1grow(&obst, 'z');
+ }
+ } else {
+ obstack_1grow(&obst, 'v');
+ }
+}
+