aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorjohnvg2002-02-08 14:19:37 +0000
committerjohnvg2002-02-08 14:19:37 +0000
commit9451cd3ed8c0856e424fb12b3d3111a609e51f68 (patch)
tree9ec6a7ac9c4de70c68cd3886fab25016c634822c
parentfix bug in scope numbers (diff)
removed function call of transform_patterns_to_case_and_guard_nodes
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1012 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
-rw-r--r--backendC/CleanCompilerSources/codegen.c8
1 files changed, 6 insertions, 2 deletions
diff --git a/backendC/CleanCompilerSources/codegen.c b/backendC/CleanCompilerSources/codegen.c
index 4ecc4cc..55dadf9 100644
--- a/backendC/CleanCompilerSources/codegen.c
+++ b/backendC/CleanCompilerSources/codegen.c
@@ -558,6 +558,7 @@ int function_called_only_curried_or_lazy_with_one_return=0;
#if 0
# include "dbprint.h"
+extern File rules_file;
#endif
static void CodeRule (ImpRuleP rule)
@@ -1047,13 +1048,16 @@ void CodeGeneration (ImpMod imod, char *fname)
#if 0
PrintRules (imod->im_rules);
#endif
-
DetermineSharedAndAnnotatedNodes (imod->im_rules,&imod->im_symbols);
ExitOnInterrupt();
+#if 0
+ PrintRules (imod->im_rules,rules_file);
+#endif
+
GenerateStatesForRecords (imod->im_symbols);
-#ifdef TRANSFORM_PATTERNS_BEFORE_STRICTNESS_ANALYSIS
+#if defined (TRANSFORM_PATTERNS_BEFORE_STRICTNESS_ANALYSIS) && !CLEAN2
{
ImpRuleP rule_p;