From 05e2678cf6cf741f3a462e02982be016fac48dc4 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Tue, 15 Jan 2008 17:44:35 +0000 Subject: [PATCH] Corrected a bug in the comparison function for FlattenedExp --- transformations/ArrayUsageCheck.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/transformations/ArrayUsageCheck.hs b/transformations/ArrayUsageCheck.hs index 5b50090..d797668 100644 --- a/transformations/ArrayUsageCheck.hs +++ b/transformations/ArrayUsageCheck.hs @@ -112,11 +112,11 @@ instance Ord FlattenedExp where compare (Scale {}) _ = LT compare _ (Scale {}) = GT compare (Modulo ltop lbottom) (Modulo rtop rbottom) - = combineCompare [compare ltop lbottom, compare lbottom rbottom] + = combineCompare [compare ltop rtop, compare lbottom rbottom] compare (Modulo {}) _ = LT compare _ (Modulo {}) = GT compare (Divide ltop lbottom) (Divide rtop rbottom) - = combineCompare [compare ltop lbottom, compare lbottom rbottom] + = combineCompare [compare ltop rtop, compare lbottom rbottom] customVarCompare :: A.Variable -> A.Variable -> Ordering customVarCompare (A.Variable _ (A.Name _ _ lname)) (A.Variable _ (A.Name _ _ rname)) = compare lname rname