Commit fc72132f authored by Ronny Wichers Schreur's avatar Ronny Wichers Schreur 🏘
Browse files

removed analysis of ident names for instance types (pre-Clean 2.0 code)

parent d99aeea3
......@@ -351,9 +351,6 @@ static char *PrintTypesOfSymbol (char *type_repr, File file, ModuleInfo module_i
} /* PrintTypesOfSymbol */
#define _ANALYSE_IDENT_ /* also in optimisations.c */
#ifndef CLEAN2
#define _ANALYSE_INSTANCE_TYPES_
#endif
#define MAX_SYMBOL_EXTENSION_SIZE 40
void PrintSymbolOfIdent (Ident sid, unsigned line_nr, File file)
......@@ -410,20 +407,7 @@ void PrintSymbolOfIdent (Ident sid, unsigned line_nr, File file)
next_char = end_name + 1;
}
# ifdef _ANALYSE_INSTANCE_TYPES_
FPutS (" (", file);
next_char = PrintTypesOfSymbol (next_char, file, sid -> ident_mod_info, & print_length);
for (; *next_char == cTypeDelimiter; )
{ FPutC (',', file);
next_char = PrintTypesOfSymbol (++next_char, file, sid -> ident_mod_info, & print_length);
}
FPutC (')', file);
# else
FPutS (next_char, file);
# endif
}
#else
FPutS (name, file);
......
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