aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorronny2004-04-29 13:16:49 +0000
committerronny2004-04-29 13:16:49 +0000
commit2071eacb0e147f44232dc779c892751999176dbc (patch)
tree390c7335a823dee6058e520e253046d53eac5129
parentremoved analysis of ident names for instance types (pre-Clean 2.0 code) (diff)
bug fix: always print ';' in function descriptor names
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1495 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
-rw-r--r--backendC/CleanCompilerSources/checksupport.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/backendC/CleanCompilerSources/checksupport.c b/backendC/CleanCompilerSources/checksupport.c
index b3e23f4..3b654f2 100644
--- a/backendC/CleanCompilerSources/checksupport.c
+++ b/backendC/CleanCompilerSources/checksupport.c
@@ -382,7 +382,7 @@ void PrintSymbolOfIdent (Ident sid, unsigned line_nr, File file)
next_char = PrintName (name, next_char, line_nr, file);
- if ((*next_char) == cTypeDelimiter && next_char[1] != '\0')
+ if ((*next_char) == cTypeDelimiter)
{ next_char++;
if (isdigit (* next_char))
@@ -405,7 +405,8 @@ void PrintSymbolOfIdent (Ident sid, unsigned line_nr, File file)
}
next_char = end_name + 1;
- }
+ } else
+ FPutC (cTypeDelimiter, file);
FPutS (next_char, file);
}