Commit 4d7abdd4 authored by John van Groningen's avatar John van Groningen
Browse files

remove unused function TypeArgComment

parent fdee8d7a
......@@ -419,28 +419,6 @@ void NodeIdComment (NodeId node_id)
}
}
void TypeArgComment (TypeArgs arg)
{
if (DoDebug){
if (arg->type_arg_node->type_node_is_var){
if (arg->type_arg_node->type_node_tv){
TypeVar type_var;
PrintComment();
type_var=arg->type_arg_node->type_node_tv;
if (type_var && type_var->tv_ident && type_var->tv_ident->ident_name)
FPrintF (OutFile, "%s", type_var->tv_ident->ident_name);
else
FPrintF (OutFile, "_");
}
} else {
PrintComment();
PrintSymbol (arg->type_arg_node->type_node_symbol,OutFile);
}
}
}
void ParComment (Args arg)
{
if (DoDebug){
......
......@@ -45,7 +45,6 @@ extern void ContractumComment (int asp, int bsp);
extern void RedirectionComment (NodeId nid);
extern void ArgComment (Args arg);
extern void NodeIdComment (NodeId node_id);
extern void TypeArgComment (TypeArgs arg);
extern void ParComment (Args arg);
extern void InitStackFrame (int offframe[], int defframe [], int max);
......
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