From 8480e0459a027a914d0be343eccc086b999b725a Mon Sep 17 00:00:00 2001 From: "benjamin.franksen" <benjamin.franksen@helmholtz-berlin.de> Date: Wed, 9 Oct 2013 21:10:25 +0000 Subject: [PATCH] snc: removed a dirty hack when generating the implicit arguments --- src/snc/analysis.c | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/src/snc/analysis.c b/src/snc/analysis.c index d78a3f05..9aad7e41 100644 --- a/src/snc/analysis.c +++ b/src/snc/analysis.c @@ -126,17 +126,16 @@ static void analyse_funcdef(Expr *defn) error_at_expr(p, "function parameter must have a name\n"); } } - /* prepend "SEQ_VARS *const _seq_vars" to parameter list */ + /* prepend "SEQ_VARS *const " NM_VAR to parameter list */ t.str = NM_VAR; t.line = d->line_num; t.file = d->src_file; p = decl_add_base_type( - decl_create(t), - /* HACK! act as if "SEQ_VARS *const" were an identifier */ - mk_foreign_type(F_TYPENAME, "SEQ_VARS *const") + decl_prefix_pointer(decl_prefix_const(decl_create(t))), + mk_foreign_type(F_TYPENAME, "SEQ_VARS") ); fun_type->param_decls = link_expr(p, fun_type->param_decls); - /* prepend "SS_ID _seq_ss" to parameter list*/ + /* prepend "SS_ID " NM_SS to parameter list */ t.str = NM_SS; t.line = d->line_num; t.file = d->src_file; -- GitLab