diff options
| author |  jadep <jadep@mit.edu> | 2019-02-05 14:32:41 -0500 |
|---|---|---|
| committer | jadep <jadep@mit.edu> | 2019-02-08 11:11:47 -0500 |
| commit | 8fc625fa8ad5b19f40456b801108c357c31524f2 (patch) | |
| tree | 8175d29767d9e803412aeede825894810a61ad2c /src/Fancy | |
| parent | 866a4edeb17d18213b62ef124bf0f67eaaca10b8 (diff) | |
remove some TODOs -- actually, the final proof does not rely on the unused values
Diffstat (limited to 'src/Fancy')
| -rw-r--r-- | src/Fancy/Barrett256.v | 3 |
1 files changed, 1 insertions, 2 deletions
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 |