aboutsummaryrefslogtreecommitdiff
path: root/src/Specific/NISTP256
diff options
context:
space:
mode:
Diffstat (limited to 'src/Specific/NISTP256')
-rw-r--r--src/Specific/NISTP256/AMD128/CurveParameters.v5
-rw-r--r--src/Specific/NISTP256/AMD128/fenzDisplay.log14
-rw-r--r--src/Specific/NISTP256/AMD64/CurveParameters.v5
-rw-r--r--src/Specific/NISTP256/AMD64/fenzDisplay.log14
4 files changed, 8 insertions, 30 deletions
diff --git a/src/Specific/NISTP256/AMD128/CurveParameters.v b/src/Specific/NISTP256/AMD128/CurveParameters.v
index ba86c9d18..f3c1cc5b1 100644
--- a/src/Specific/NISTP256/AMD128/CurveParameters.v
+++ b/src/Specific/NISTP256/AMD128/CurveParameters.v
@@ -18,7 +18,7 @@ Definition curve : CurveParameters :=
a24 := None;
coef_div_modulus := None;
- goldilocks := Some false;
+ goldilocks := None;
montgomery := true;
freeze := Some false;
ladderstep := false;
@@ -27,7 +27,8 @@ Definition curve : CurveParameters :=
square_code := None;
- upper_bound_of_exponent := None;
+ upper_bound_of_exponent_loose := None;
+ upper_bound_of_exponent_tight := None;
allowable_bit_widths := None;
freeze_extra_allowable_bit_widths := None;
modinv_fuel := None
diff --git a/src/Specific/NISTP256/AMD128/fenzDisplay.log b/src/Specific/NISTP256/AMD128/fenzDisplay.log
index db2b799ea..53c690df8 100644
--- a/src/Specific/NISTP256/AMD128/fenzDisplay.log
+++ b/src/Specific/NISTP256/AMD128/fenzDisplay.log
@@ -5,16 +5,4 @@ Interp-η
uint128_t x3 = (x2 | x1);
return x3)
x
- : word128 * word128 → ReturnType (Tbase match (if match match (let (lower, _) := Synthesis.P.bound1 in
- lower) with
- | 0%Z => Eq
- | Z.pos _ => Lt
- | Z.neg _ => Gt
- end with
- | Eq => true
- | Lt => true
- | Gt => false
- end then Some 7 else None) with
- | Some lgsz => Syntax.TWord lgsz
- | None => Syntax.TZ
- end)
+ : word128 * word128 → ReturnType uint128_t
diff --git a/src/Specific/NISTP256/AMD64/CurveParameters.v b/src/Specific/NISTP256/AMD64/CurveParameters.v
index f6ff3b583..90846add3 100644
--- a/src/Specific/NISTP256/AMD64/CurveParameters.v
+++ b/src/Specific/NISTP256/AMD64/CurveParameters.v
@@ -18,7 +18,7 @@ Definition curve : CurveParameters :=
a24 := None;
coef_div_modulus := None;
- goldilocks := Some false;
+ goldilocks := None;
montgomery := true;
freeze := Some false;
ladderstep := false;
@@ -27,7 +27,8 @@ Definition curve : CurveParameters :=
square_code := None;
- upper_bound_of_exponent := None;
+ upper_bound_of_exponent_loose := None;
+ upper_bound_of_exponent_tight := None;
allowable_bit_widths := None;
freeze_extra_allowable_bit_widths := None;
modinv_fuel := None
diff --git a/src/Specific/NISTP256/AMD64/fenzDisplay.log b/src/Specific/NISTP256/AMD64/fenzDisplay.log
index 241c31016..65afbc2d6 100644
--- a/src/Specific/NISTP256/AMD64/fenzDisplay.log
+++ b/src/Specific/NISTP256/AMD64/fenzDisplay.log
@@ -7,16 +7,4 @@ Interp-η
uint64_t x9 = (x2 | x8);
return x9)
x
- : word64 * word64 * word64 * word64 → ReturnType (Tbase match (if match match (let (lower, _) := Synthesis.P.bound1 in
- lower) with
- | 0%Z => Eq
- | Z.pos _ => Lt
- | Z.neg _ => Gt
- end with
- | Eq => true
- | Lt => true
- | Gt => false
- end then Some 6 else None) with
- | Some lgsz => Syntax.TWord lgsz
- | None => Syntax.TZ
- end)
+ : word64 * word64 * word64 * word64 → ReturnType uint64_t