From 2d09eba7a12692d4bac912cb2a854d8faf5118c4 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Thu, 20 Dec 2001 13:15:13 +0000
Subject: 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
---
 backendC/CleanCompilerSources/codegen1.c | 2 +-
 backendC/CleanCompilerSources/codegen2.c | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'backendC')

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);
-- 
cgit v1.2.3