diff options
| author | johnvg | 2001-12-20 13:15:13 +0000 |
|---|---|---|
| committer | johnvg | 2001-12-20 13:15:13 +0000 |
| commit | 2d09eba7a12692d4bac912cb2a854d8faf5118c4 (patch) | |
| tree | e48318ea2f43606aeb74ecb6949dc2e28c1845c5 | |
| parent | bugfix (by Sjaak) in reference counting (diff) | |
add missing ()'s in test for strict list structor
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@954 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | backendC/CleanCompilerSources/codegen1.c | 2 | ||||
| -rw-r--r-- | backendC/CleanCompilerSources/codegen2.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/backendC/CleanCompilerSources/codegen1.c b/backendC/CleanCompilerSources/codegen1.c index 7e20ee0..f55d058 100644 --- a/backendC/CleanCompilerSources/codegen1.c +++ b/backendC/CleanCompilerSources/codegen1.c @@ -2385,7 +2385,7 @@ SymbDef create_match_function (SymbolP constructor_symbol,int constructor_arity, rhs_arg_p=&rhs_root->node_arguments; #if STRICT_LISTS - if (constructor_symbol->symb_kind==cons_symb && constructor_symbol->symb_head_strictness>1 || constructor_symbol->symb_tail_strictness){ + if (constructor_symbol->symb_kind==cons_symb && (constructor_symbol->symb_head_strictness>1 || constructor_symbol->symb_tail_strictness)){ constructor_symbol->symb_def->sdef_constructor->cl_state_p; if (constructor_symbol->symb_head_strictness>1){ diff --git a/backendC/CleanCompilerSources/codegen2.c b/backendC/CleanCompilerSources/codegen2.c index 00cc491..a416fca 100644 --- a/backendC/CleanCompilerSources/codegen2.c +++ b/backendC/CleanCompilerSources/codegen2.c @@ -3903,7 +3903,7 @@ void FillMatchNode (Node node,int *asp_p,int *bsp_p,NodeId update_node_id,CodeGe if (!symbol_arity_eq_one){ #if STRICT_LISTS - if (symbol->symb_kind==cons_symb && symbol->symb_head_strictness>1 || symbol->symb_tail_strictness) + if (symbol->symb_kind==cons_symb && (symbol->symb_head_strictness>1 || symbol->symb_tail_strictness)) strict_constructor=1; #endif new_match_sdef=create_match_function (symbol,node->node_arity,strict_constructor); |