From 8fc625fa8ad5b19f40456b801108c357c31524f2 Mon Sep 17 00:00:00 2001 From: jadep Date: Tue, 5 Feb 2019 14:32:41 -0500 Subject: remove some TODOs -- actually, the final proof does not rely on the unused values --- src/Fancy/Barrett256.v | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/Fancy') diff --git a/src/Fancy/Barrett256.v b/src/Fancy/Barrett256.v index e930272fa..f7151a283 100644 --- a/src/Fancy/Barrett256.v +++ b/src/Fancy/Barrett256.v @@ -97,7 +97,6 @@ Module Barrett256. | |- of_prefancy_scalar _ _ _ _ = _ => cbn; solve [eauto] end. - (* TODO: don't rely on the C, M, and L flags *) Lemma barrett_red256_fancy_correct : forall xLow xHigh error, 0 <= xLow < 2 ^ machine_wordsize -> @@ -110,7 +109,7 @@ Module Barrett256. let consts_list := [(RegMuLow, muLow); (RegMod, M); (RegZero, 0)] in let arg_list := [(RegxHigh, xHigh); (RegxLow, xLow)] in let ctx := make_ctx (consts_list ++ arg_list) in - let carry_flag := false in (* TODO: don't rely on this value, given it's unused *) + let carry_flag := false in let last_wrote := (fun x : CC.code => match x with | CC.C => RegZero -- cgit v1.2.3