Commit 2903b018 authored by John van Groningen's avatar John van Groningen
Browse files

remove unused function ListTypes

parent a76d7fa0
......@@ -1179,8 +1179,6 @@ void CodeGeneration (ImpMod imod, char *fname)
}
ExitOnInterrupt();
ListTypes (imod);
ExitOnInterrupt();
#if 0
PrintRules (imod->im_rules);
#endif
......
/*
Version 1.0 25/04/1994
Author: Sjaak Smetsers
*/
extern void PrintType (SymbDef tdef, TypeAlts type);
extern void ListTypes (ImpMod imod);
extern void InitARC_Info (void);
extern void PrintTypeClass (SymbDef class_def, File file);
......@@ -473,21 +473,6 @@ void PrintType (SymbDef tdef, TypeAlts type)
FPutS (";\n", StdListTypes);
} /* PrintType */
void ListTypes (ImpMod imod)
{
if (DoListAllTypes)
{ ImpRules irule;
for (irule = imod -> im_rules; irule; irule = irule -> rule_next)
{ SymbDef imp_sdef = irule -> rule_root -> node_symbol -> symb_def;
#ifdef CLEAN2
if (strncmp (imp_sdef->sdef_ident->ident_name, "_dictionary", 11) != 0 || imp_sdef->sdef_isused)
#endif
PrintType (imp_sdef, irule -> rule_type);
}
}
} /* ListTypes */
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