Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-compiler-and-rts
compiler
Commits
99eec421
Commit
99eec421
authored
May 01, 2001
by
Ronny Wichers Schreur
🏢
Browse files
made name generation depend on _ANALYSE_IDENT_
marked duplicate definitions of cTypeDelimiter _ANALYSE_IDENT_
parent
c95db660
Changes
4
Hide whitespace changes
Inline
Side-by-side
backendC/CleanCompilerSources/checksupport.c
View file @
99eec421
...
...
@@ -284,7 +284,7 @@ static char *PrintTypesOfSymbol (char *type_repr, File file, ModuleInfo module_i
}
/* PrintTypesOfSymbol */
#define _ANALYSE_IDENT_
#define _ANALYSE_IDENT_
/* also in optimisations.c */
#ifndef CLEAN2
#define _ANALYSE_INSTANCE_TYPES_
#endif
...
...
backendC/CleanCompilerSources/checksupport.h
View file @
99eec421
#define cTypeDelimiter ';'
#define cTypeDelimiter ';'
/* also in optimisations.c */
#define cTypeFirstArg '<'
#define cTypeLastArg '>'
...
...
backendC/CleanCompilerSources/codegen.c
View file @
99eec421
...
...
@@ -26,6 +26,7 @@
# if TAIL_CALL_MODULO_TUPLE_CONS_OPTIMIZATION
#include
"tuple_tail_recursion.h"
# endif
#include
"dbprint.h"
static
char
*
ECodeBlock
=
"incorrect number of output parameters"
;
...
...
backendC/CleanCompilerSources/optimisations.c
View file @
99eec421
...
...
@@ -1034,7 +1034,8 @@ static void init_apply_symb_function_state_p()
}
#endif
#define cTypeDelimiter ';'
#define cTypeDelimiter ';'
/* also in checksupport.h */
#define _ANALYSE_IDENT_
/* also in checksupport.c */
static
int
compute_length_before_type_delimiter
(
char
*
fname
)
{
...
...
@@ -1043,11 +1044,30 @@ static int compute_length_before_type_delimiter (char *fname)
p
=
fname
;
#ifdef _ANALYSE_IDENT_
--
p
;
do
{
c
=*++
p
;
}
while
(
c
!=
cTypeDelimiter
&&
c
!=
'\0'
);
if
(
c
==
cTypeDelimiter
&&
*
(
p
+
1
)
!=
'\0'
)
{
p
++
;
if
(
isdigit
(
*
p
))
{
for
(
p
=
p
+
1
;
*
p
!=
cTypeDelimiter
&&
*
p
!=
'\0'
;
p
++
)
;
}
}
#else
/* ifndef _ANALYSE_IDENT_ */
--
p
;
do
{
c
=*++
p
;
}
while
(
c
!=
'\0'
);
#endif
/* _ANALYSE_IDENT_ */
return
p
-
fname
;
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment