From ef923596048f7c7e2ac00cc631d668a162dd2dea Mon Sep 17 00:00:00 2001 From: sortraev Date: Sat, 23 Nov 2024 14:23:16 +0100 Subject: [PATCH] Remove unused le_op --- src/Futhark/Internalise/Exps.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Futhark/Internalise/Exps.hs b/src/Futhark/Internalise/Exps.hs index 20ff405d7c..8d02701647 100644 --- a/src/Futhark/Internalise/Exps.hs +++ b/src/Futhark/Internalise/Exps.hs @@ -215,10 +215,10 @@ internaliseAppExp desc _ (E.Range start maybe_second end loc) = do ) ++ [ErrorVal int64 end'_i64, " is invalid."] - (it, le_op, lt_op) <- + (it, lt_op) <- case E.typeOf start of - E.Scalar (E.Prim (E.Signed it)) -> pure (it, CmpSle it, CmpSlt it) - E.Scalar (E.Prim (E.Unsigned it)) -> pure (it, CmpUle it, CmpUlt it) + E.Scalar (E.Prim (E.Signed it)) -> pure (it, CmpSlt it) + E.Scalar (E.Prim (E.Unsigned it)) -> pure (it, CmpUlt it) start_t -> error $ "Start value in range has type " ++ prettyString start_t let one = intConst it 1