Commit 9334c3c1 authored by John van Groningen's avatar John van Groningen
Browse files

remove unused function PrintType

parent 2903b018
......@@ -3654,9 +3654,7 @@ static void update_function_strictness (SymbDef sdef)
if (sdef->sdef_exported){
if (strict_added){
if (DoListStrictTypes && ! DoListAllTypes)
PrintType (sdef, rule);
else if (!AddStrictnessToExportedFunctionTypes)
if (!AddStrictnessToExportedFunctionTypes)
export_warning = True;
}
......
extern void PrintType (SymbDef tdef, TypeAlts type);
extern void InitARC_Info (void);
extern void PrintTypeClass (SymbDef class_def, File file);
......@@ -436,43 +436,6 @@ static void PrintTypeContext (TypeContext context)
} /* PrintTypeContext */
void PrintType (SymbDef tdef, TypeAlts type)
{
TypeNode lhs_root = type -> type_alt_lhs;
TypeArgs lhsargs = lhs_root -> type_node_arguments;
PrintSymbolOfIdent (tdef -> sdef_ident, tdef -> sdef_line, StdListTypes);
FPutS (" :: ", StdListTypes);
if (lhsargs)
{ PrintArguments (lhsargs,' ', cPrintBrackets, cInAStrictContext, NULL);
FPutS (" -> ", StdListTypes);
}
if (type -> type_alt_rhs -> type_node_is_var)
{ if (type -> type_alt_rhs -> type_node_attribute > NoAttr)
PrintAttribute (type -> type_alt_rhs -> type_node_attribute, cDoPrintColon);
FPutS (type -> type_alt_rhs -> type_node_tv -> tv_ident -> ident_name, StdListTypes);
}
else
{ Bool rhs_brackets = (lhsargs == NULL) && (type -> type_alt_rhs -> type_node_symbol -> symb_kind == fun_type);
PrintNode (type -> type_alt_rhs, rhs_brackets, cInAStrictContext, cDontPrintAnnot);
}
if (type -> type_alt_type_context)
{ TypeContext next_context;
FPutS (" | ", StdListTypes);
PrintTypeContext (type -> type_alt_type_context);
for (next_context = type -> type_alt_type_context -> tyco_next; next_context; next_context = next_context -> tyco_next)
{ FPutS (" & ", StdListTypes);
PrintTypeContext (next_context);
}
}
if (DoShowAttributes && type -> type_alt_attr_equations)
PrintAttributeEquations (type -> type_alt_attr_equations);
FPutS (";\n", StdListTypes);
} /* PrintType */
void InitARC_Info (void)
{
CurrentARC_Info = CompAllocType (struct attr_ref_count_info);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment