aboutsummaryrefslogtreecommitdiff
path: root/backendC/CleanCompilerSources
diff options
context:
space:
mode:
authorjohnvg2013-11-08 15:18:21 +0000
committerjohnvg2013-11-08 15:18:21 +0000
commitc04b1538c8a69187b7146d80b74946d44d4eb45f (patch)
tree31ea6d57affc87b876a985cf367bfa2342f377f0 /backendC/CleanCompilerSources
parentfix comprehensions with a non lower case identifier as pattern, (diff)
generate jsr_ap 1 instead of jsr e_system_sAP
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@2319 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backendC/CleanCompilerSources')
-rw-r--r--backendC/CleanCompilerSources/codegen1.c5
1 files changed, 1 insertions, 4 deletions
diff --git a/backendC/CleanCompilerSources/codegen1.c b/backendC/CleanCompilerSources/codegen1.c
index 5a4a2f9..b64a90e 100644
--- a/backendC/CleanCompilerSources/codegen1.c
+++ b/backendC/CleanCompilerSources/codegen1.c
@@ -3966,10 +3966,7 @@ static void repl_overloaded_cons_arguments (NodeP node_p,int *asp_p,int *bsp_p,S
ab_node_ids_p->a_node_ids=code_gen_node_ids.a_node_ids;
ab_node_ids_p->b_node_ids=code_gen_node_ids.b_node_ids;
- GenDAStackLayout (2);
- MakeSymbolLabel (&apply_label,ApplyDef->sdef_module,s_pref,ApplyDef, 0);
- GenJsr (&apply_label);
- GenOAStackLayout (1);
+ GenJsrAp (1);
GenReplArgs (2,2);
}