Commit f449589a authored by johnvg@science.ru.nl's avatar johnvg@science.ru.nl

remove old (before Clean 2.0) names of functions generated for expressions in backend

parent 7ef7427e
......@@ -47,12 +47,3 @@ void store_p_at_node (NodeP annoted_node,NodeP at_node);
NodeP *get_p_at_node_p (NodeP annoted_node);
NodeP get_p_at_node (NodeP annoted_node);
# define kCasePrefix "_case"
# define kLambdaPrefix "_lambda"
# define kArrayGeneratorPrefix "_array"
# define kListGeneratorPrefix "_list"
# define kFromPrefix "_from"
# define kFromThenPrefix "_from_then"
# define kFromToPrefix "_from_to"
# define kFromThenToPrefix "_from_then_to"
......@@ -92,32 +92,14 @@ static char *PrintName (char *name, char *name_end, unsigned line_nr, File file)
return print_compiler_generated_function_name ("<lambda>",name_end,line_nr,file);
if (*name == '_'){
char *name_tail;
if (string_and_string_begin_equal ("c",name+1,name_end))
return print_compiler_generated_function_name ("<case>",name_end,line_nr,file);
else if (string_and_string_begin_equal ("if",name+1,name_end))
return print_compiler_generated_function_name ("<if>",name_end,line_nr,file);
for (name_tail = name + 1; name_tail != name_end; name_tail++)
if (isdigit (*name_tail))
break;
if (string_and_string_begin_equal (kCasePrefix,name,name_tail))
FPutS ("<case expression>", file);
else if (string_and_string_begin_equal (kLambdaPrefix,name,name_tail))
FPutS ("<lambda expression>", file);
else if (string_and_string_begin_equal (kListGeneratorPrefix,name,name_tail))
FPutS ("<list comprehension>", file);
else if (string_and_string_begin_equal (kArrayGeneratorPrefix,name,name_tail))
FPutS ("<array comprehension>", file);
else {
FPutS (name, file);
while (*name_end!='\0')
++name_end;
return name_end;
}
FPrintF (file, " [line: %u]", line_nr);
FPutS (name, file);
while (*name_end!='\0')
++name_end;
return name_end;
} else {
for (; name!=name_end; name++)
......
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