diff options
| -rw-r--r-- | backendC/CleanCompilerSources/checksupport.c | 11 | ||||
| -rw-r--r-- | coclmaindll/backend.dll | bin | 1094608 -> 1408796 bytes |
2 files changed, 9 insertions, 2 deletions
diff --git a/backendC/CleanCompilerSources/checksupport.c b/backendC/CleanCompilerSources/checksupport.c index 1c8b655..a5ac666 100644 --- a/backendC/CleanCompilerSources/checksupport.c +++ b/backendC/CleanCompilerSources/checksupport.c @@ -285,16 +285,19 @@ static char *PrintTypesOfSymbol (char *type_repr, File file, ModuleInfo module_i } /* PrintTypesOfSymbol */ #define _ANALYSE_IDENT_ +#ifndef CLEAN2 +#define _ANALYSE_INSTANCE_TYPES_ +#endif #define MAX_SYMBOL_EXTENSION_SIZE 40 void PrintSymbolOfIdent (Ident sid, unsigned line_nr, File file) { char *next_char,*name; int print_length = MAX_SYMBOL_EXTENSION_SIZE; -#ifdef _ANALYSE_IDENT_ name = sid -> ident_name; +#ifdef _ANALYSE_IDENT_ if (*name == cTypeDelimiter) { for (next_char = name + 1; *next_char == cTypeDelimiter; next_char++) ; @@ -341,7 +344,8 @@ 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); @@ -352,6 +356,9 @@ void PrintSymbolOfIdent (Ident sid, unsigned line_nr, File file) } FPutC (')', file); +#else + FPutS (next_char, file); +#endif /* _ANALYSE_INSTANCE_TYPES_ */ } #else diff --git a/coclmaindll/backend.dll b/coclmaindll/backend.dll Binary files differindex 71d4b11..426c589 100644 --- a/coclmaindll/backend.dll +++ b/coclmaindll/backend.dll |