diff options
Diffstat (limited to 'src/Specific/solinas32_2e255m19_10limbs_donna')
29 files changed, 0 insertions, 1052 deletions
diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/CurveParameters.v b/src/Specific/solinas32_2e255m19_10limbs_donna/CurveParameters.v deleted file mode 100644 index 1be3437a3..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/CurveParameters.v +++ /dev/null @@ -1,257 +0,0 @@ -Require Import Crypto.Specific.Framework.RawCurveParameters. -Require Import Crypto.Util.LetIn. - -(*** -Modulus : 2^255 - 19 -Base: 25.5 -***) - -Definition curve : CurveParameters := - {| - sz := 10%nat; - base := 25 + 1/2; - bitwidth := 32; - s := 2^255; - c := [(1, 19)]; - carry_chains := Some [seq 0 (pred 10); [0; 1]]%nat; - - a24 := None; - coef_div_modulus := Some 2%nat; - - goldilocks := None; - karatsuba := None; - montgomery := false; - freeze := Some true; - ladderstep := false; - - mul_code := Some (fun a b => - (* Micro-optimized form from curve25519-donna by Adam Langley (Google) and Daniel Bernstein. See <https://github.com/agl/curve25519-donna/blob/master/LICENSE.md>. *) - let '(in9, in8, in7, in6, in5, in4, in3, in2, in1, in0) := a in - let '(in29, in28, in27, in26, in25, in24, in23, in22, in21, in20) := b in - dlet output0 := in20 * in0 in - dlet output1 := in20 * in1 + - in21 * in0 in - dlet output2 := 2 * in21 * in1 + - in20 * in2 + - in22 * in0 in - dlet output3 := in21 * in2 + - in22 * in1 + - in20 * in3 + - in23 * in0 in - dlet output4 := in22 * in2 + - 2 * (in21 * in3 + - in23 * in1) + - in20 * in4 + - in24 * in0 in - dlet output5 := in22 * in3 + - in23 * in2 + - in21 * in4 + - in24 * in1 + - in20 * in5 + - in25 * in0 in - dlet output6 := 2 * (in23 * in3 + - in21 * in5 + - in25 * in1) + - in22 * in4 + - in24 * in2 + - in20 * in6 + - in26 * in0 in - dlet output7 := in23 * in4 + - in24 * in3 + - in22 * in5 + - in25 * in2 + - in21 * in6 + - in26 * in1 + - in20 * in7 + - in27 * in0 in - dlet output8 := in24 * in4 + - 2 * (in23 * in5 + - in25 * in3 + - in21 * in7 + - in27 * in1) + - in22 * in6 + - in26 * in2 + - in20 * in8 + - in28 * in0 in - dlet output9 := in24 * in5 + - in25 * in4 + - in23 * in6 + - in26 * in3 + - in22 * in7 + - in27 * in2 + - in21 * in8 + - in28 * in1 + - in20 * in9 + - in29 * in0 in - dlet output10 := 2 * (in25 * in5 + - in23 * in7 + - in27 * in3 + - in21 * in9 + - in29 * in1) + - in24 * in6 + - in26 * in4 + - in22 * in8 + - in28 * in2 in - dlet output11 := in25 * in6 + - in26 * in5 + - in24 * in7 + - in27 * in4 + - in23 * in8 + - in28 * in3 + - in22 * in9 + - in29 * in2 in - dlet output12 := in26 * in6 + - 2 * (in25 * in7 + - in27 * in5 + - in23 * in9 + - in29 * in3) + - in24 * in8 + - in28 * in4 in - dlet output13 := in26 * in7 + - in27 * in6 + - in25 * in8 + - in28 * in5 + - in24 * in9 + - in29 * in4 in - dlet output14 := 2 * (in27 * in7 + - in25 * in9 + - in29 * in5) + - in26 * in8 + - in28 * in6 in - dlet output15 := in27 * in8 + - in28 * in7 + - in26 * in9 + - in29 * in6 in - dlet output16 := in28 * in8 + - 2 * (in27 * in9 + - in29 * in7) in - dlet output17 := in28 * in9 + - in29 * in8 in - dlet output18 := 2 * in29 * in9 in - dlet output8 := output8 + output18 << 4 in - dlet output8 := output8 + output18 << 1 in - dlet output8 := output8 + output18 in - dlet output7 := output7 + output17 << 4 in - dlet output7 := output7 + output17 << 1 in - dlet output7 := output7 + output17 in - dlet output6 := output6 + output16 << 4 in - dlet output6 := output6 + output16 << 1 in - dlet output6 := output6 + output16 in - dlet output5 := output5 + output15 << 4 in - dlet output5 := output5 + output15 << 1 in - dlet output5 := output5 + output15 in - dlet output4 := output4 + output14 << 4 in - dlet output4 := output4 + output14 << 1 in - dlet output4 := output4 + output14 in - dlet output3 := output3 + output13 << 4 in - dlet output3 := output3 + output13 << 1 in - dlet output3 := output3 + output13 in - dlet output2 := output2 + output12 << 4 in - dlet output2 := output2 + output12 << 1 in - dlet output2 := output2 + output12 in - dlet output1 := output1 + output11 << 4 in - dlet output1 := output1 + output11 << 1 in - dlet output1 := output1 + output11 in - dlet output0 := output0 + output10 << 4 in - dlet output0 := output0 + output10 << 1 in - dlet output0 := output0 + output10 in - (output9, output8, output7, output6, output5, output4, output3, output2, output1, output0) - ); - - square_code := Some (fun a => - (* Micro-optimized form from curve25519-donna by Adam Langley (Google) and Daniel Bernstein. See <https://github.com/agl/curve25519-donna/blob/master/LICENSE.md>. *) - let '(in9, in8, in7, in6, in5, in4, in3, in2, in1, in0) := a in - dlet output0 := in0 * in0 in - dlet output1 := 2 * in0 * in1 in - dlet output2 := 2 * (in1 * in1 + - in0 * in2) in - dlet output3 := 2 * (in1 * in2 + - in0 * in3) in - dlet output4 := in2 * in2 + - 4 * in1 * in3 + - 2 * in0 * in4 in - dlet output5 := 2 * (in2 * in3 + - in1 * in4 + - in0 * in5) in - dlet output6 := 2 * (in3 * in3 + - in2 * in4 + - in0 * in6 + - 2 * in1 * in5) in - dlet output7 := 2 * (in3 * in4 + - in2 * in5 + - in1 * in6 + - in0 * in7) in - dlet output8 := in4 * in4 + - 2 * (in2 * in6 + - in0 * in8 + - 2 * (in1 * in7 + - in3 * in5)) in - dlet output9 := 2 * (in4 * in5 + - in3 * in6 + - in2 * in7 + - in1 * in8 + - in0 * in9) in - dlet output10 := 2 * (in5 * in5 + - in4 * in6 + - in2 * in8 + - 2 * (in3 * in7 + - in1 * in9)) in - dlet output11 := 2 * (in5 * in6 + - in4 * in7 + - in3 * in8 + - in2 * in9) in - dlet output12 := in6 * in6 + - 2 * (in4 * in8 + - 2 * (in5 * in7 + - in3 * in9)) in - dlet output13 := 2 * (in6 * in7 + - in5 * in8 + - in4 * in9) in - dlet output14 := 2 * (in7 * in7 + - in6 * in8 + - 2 * in5 * in9) in - dlet output15 := 2 * (in7 * in8 + - in6 * in9) in - dlet output16 := in8 * in8 + - 4 * in7 * in9 in - dlet output17 := 2 * in8 * in9 in - dlet output18 := 2 * in9 * in9 in - dlet output8 := output8 + output18 << 4 in - dlet output8 := output8 + output18 << 1 in - dlet output8 := output8 + output18 in - dlet output7 := output7 + output17 << 4 in - dlet output7 := output7 + output17 << 1 in - dlet output7 := output7 + output17 in - dlet output6 := output6 + output16 << 4 in - dlet output6 := output6 + output16 << 1 in - dlet output6 := output6 + output16 in - dlet output5 := output5 + output15 << 4 in - dlet output5 := output5 + output15 << 1 in - dlet output5 := output5 + output15 in - dlet output4 := output4 + output14 << 4 in - dlet output4 := output4 + output14 << 1 in - dlet output4 := output4 + output14 in - dlet output3 := output3 + output13 << 4 in - dlet output3 := output3 + output13 << 1 in - dlet output3 := output3 + output13 in - dlet output2 := output2 + output12 << 4 in - dlet output2 := output2 + output12 << 1 in - dlet output2 := output2 + output12 in - dlet output1 := output1 + output11 << 4 in - dlet output1 := output1 + output11 << 1 in - dlet output1 := output1 + output11 in - dlet output0 := output0 + output10 << 4 in - dlet output0 := output0 + output10 << 1 in - dlet output0 := output0 + output10 in - (output9, output8, output7, output6, output5, output4, output3, output2, output1, output0) - ); - - 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 - |}. - -Ltac extra_prove_mul_eq _ := idtac. -Ltac extra_prove_square_eq _ := idtac. diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/Synthesis.v b/src/Specific/solinas32_2e255m19_10limbs_donna/Synthesis.v deleted file mode 100644 index c27bd5b77..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/Synthesis.v +++ /dev/null @@ -1,9 +0,0 @@ -Require Import Crypto.Specific.Framework.SynthesisFramework. -Require Import Crypto.Specific.solinas32_2e255m19_10limbs_donna.CurveParameters. - -Module P <: PrePackage. - Definition package : Tag.Context. - Proof. make_Synthesis_package curve extra_prove_mul_eq extra_prove_square_eq. Defined. -End P. - -Module Export S := PackageSynthesis P. diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/compiler.sh b/src/Specific/solinas32_2e255m19_10limbs_donna/compiler.sh deleted file mode 100755 index 8ff44b7ae..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/compiler.sh +++ /dev/null @@ -1,4 +0,0 @@ -#!/bin/sh -set -eu - -clang -fbracket-depth=999999 -march=native -mbmi2 -mtune=native -std=gnu11 -O3 -flto -fuse-ld=lld -fomit-frame-pointer -fwrapv -Wno-attributes -fno-strict-aliasing -Da24_hex='0x3039' -Da24_val='12345' -Da_minus_two_over_four_array='{0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x30,0x39}' -Dbitwidth='32' -Dlimb_weight_gaps_array='{26,25,26,25,26,25,26,25,26,25}' -Dmodulus_array='{0x7f,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xed}' -Dmodulus_bytes_val='32' -Dmodulus_limbs='10' -Dq_mpz='(1_mpz<<255) - 19' "$@" diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/compilerxx.sh b/src/Specific/solinas32_2e255m19_10limbs_donna/compilerxx.sh deleted file mode 100755 index cc1e919a6..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/compilerxx.sh +++ /dev/null @@ -1,4 +0,0 @@ -#!/bin/sh -set -eu - -clang++ -fbracket-depth=999999 -march=native -mbmi2 -mtune=native -std=gnu++11 -O3 -flto -fuse-ld=lld -fomit-frame-pointer -fwrapv -Wno-attributes -fno-strict-aliasing -Da24_hex='0x3039' -Da24_val='12345' -Da_minus_two_over_four_array='{0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x30,0x39}' -Dbitwidth='32' -Dlimb_weight_gaps_array='{26,25,26,25,26,25,26,25,26,25}' -Dmodulus_array='{0x7f,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xed}' -Dmodulus_bytes_val='32' -Dmodulus_limbs='10' -Dq_mpz='(1_mpz<<255) - 19' "$@" diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/feadd.c b/src/Specific/solinas32_2e255m19_10limbs_donna/feadd.c deleted file mode 100644 index 57dd4e1af..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/feadd.c +++ /dev/null @@ -1,33 +0,0 @@ -static void feadd(uint32_t out[10], const uint32_t in1[10], const uint32_t in2[10]) { - { const uint32_t x20 = in1[9]; - { const uint32_t x21 = in1[8]; - { const uint32_t x19 = in1[7]; - { const uint32_t x17 = in1[6]; - { const uint32_t x15 = in1[5]; - { const uint32_t x13 = in1[4]; - { const uint32_t x11 = in1[3]; - { const uint32_t x9 = in1[2]; - { const uint32_t x7 = in1[1]; - { const uint32_t x5 = in1[0]; - { const uint32_t x38 = in2[9]; - { const uint32_t x39 = in2[8]; - { const uint32_t x37 = in2[7]; - { const uint32_t x35 = in2[6]; - { const uint32_t x33 = in2[5]; - { const uint32_t x31 = in2[4]; - { const uint32_t x29 = in2[3]; - { const uint32_t x27 = in2[2]; - { const uint32_t x25 = in2[1]; - { const uint32_t x23 = in2[0]; - out[0] = (x5 + x23); - out[1] = (x7 + x25); - out[2] = (x9 + x27); - out[3] = (x11 + x29); - out[4] = (x13 + x31); - out[5] = (x15 + x33); - out[6] = (x17 + x35); - out[7] = (x19 + x37); - out[8] = (x21 + x39); - out[9] = (x20 + x38); - }}}}}}}}}}}}}}}}}}}} -} diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/feadd.v b/src/Specific/solinas32_2e255m19_10limbs_donna/feadd.v deleted file mode 100644 index 7d4318c78..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/feadd.v +++ /dev/null @@ -1,14 +0,0 @@ -Require Import Crypto.Arithmetic.PrimeFieldTheorems. -Require Import Crypto.Specific.solinas32_2e255m19_10limbs_donna.Synthesis. - -(* TODO : change this to field once field isomorphism happens *) -Definition add : - { add : feBW_tight -> feBW_tight -> feBW_loose - | forall a b, phiBW_loose (add a b) = F.add (phiBW_tight a) (phiBW_tight b) }. -Proof. - Set Ltac Profiling. - Time synthesize_add (). - Show Ltac Profile. -Time Defined. - -Print Assumptions add. diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/feaddDisplay.log b/src/Specific/solinas32_2e255m19_10limbs_donna/feaddDisplay.log deleted file mode 100644 index 8a4c51148..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/feaddDisplay.log +++ /dev/null @@ -1,7 +0,0 @@ -λ x x0 : word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32, -Interp-η -(λ var : Syntax.base_type → Type, - λ '(x20, x21, x19, x17, x15, x13, x11, x9, x7, x5, (x38, x39, x37, x35, x33, x31, x29, x27, x25, x23))%core, - ((x20 + x38), (x21 + x39), (x19 + x37), (x17 + x35), (x15 + x33), (x13 + x31), (x11 + x29), (x9 + x27), (x7 + x25), (x5 + x23))) -(x, x0)%core - : word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 → word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 → ReturnType (uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t) diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/feaddDisplay.v b/src/Specific/solinas32_2e255m19_10limbs_donna/feaddDisplay.v deleted file mode 100644 index 233b9f92b..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/feaddDisplay.v +++ /dev/null @@ -1,4 +0,0 @@ -Require Import Crypto.Specific.solinas32_2e255m19_10limbs_donna.feadd. -Require Import Crypto.Specific.Framework.IntegrationTestDisplayCommon. - -Check display add. diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/fecarry.c b/src/Specific/solinas32_2e255m19_10limbs_donna/fecarry.c deleted file mode 100644 index cd97f6d5f..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/fecarry.c +++ /dev/null @@ -1,58 +0,0 @@ -static void fecarry(uint32_t out[10], const uint32_t in1[10]) { - { const uint32_t x17 = in1[9]; - { const uint32_t x18 = in1[8]; - { const uint32_t x16 = in1[7]; - { const uint32_t x14 = in1[6]; - { const uint32_t x12 = in1[5]; - { const uint32_t x10 = in1[4]; - { const uint32_t x8 = in1[3]; - { const uint32_t x6 = in1[2]; - { const uint32_t x4 = in1[1]; - { const uint32_t x2 = in1[0]; - { uint32_t x19 = (x2 >> 0x1a); - { uint32_t x20 = (x2 & 0x3ffffff); - { uint32_t x21 = (x19 + x4); - { uint32_t x22 = (x21 >> 0x19); - { uint32_t x23 = (x21 & 0x1ffffff); - { uint32_t x24 = (x22 + x6); - { uint32_t x25 = (x24 >> 0x1a); - { uint32_t x26 = (x24 & 0x3ffffff); - { uint32_t x27 = (x25 + x8); - { uint32_t x28 = (x27 >> 0x19); - { uint32_t x29 = (x27 & 0x1ffffff); - { uint32_t x30 = (x28 + x10); - { uint32_t x31 = (x30 >> 0x1a); - { uint32_t x32 = (x30 & 0x3ffffff); - { uint32_t x33 = (x31 + x12); - { uint32_t x34 = (x33 >> 0x19); - { uint32_t x35 = (x33 & 0x1ffffff); - { uint32_t x36 = (x34 + x14); - { uint32_t x37 = (x36 >> 0x1a); - { uint32_t x38 = (x36 & 0x3ffffff); - { uint32_t x39 = (x37 + x16); - { uint32_t x40 = (x39 >> 0x19); - { uint32_t x41 = (x39 & 0x1ffffff); - { uint32_t x42 = (x40 + x18); - { uint32_t x43 = (x42 >> 0x1a); - { uint32_t x44 = (x42 & 0x3ffffff); - { uint32_t x45 = (x43 + x17); - { uint32_t x46 = (x45 >> 0x19); - { uint32_t x47 = (x45 & 0x1ffffff); - { uint32_t x48 = (x20 + (0x13 * x46)); - { uint32_t x49 = (x48 >> 0x1a); - { uint32_t x50 = (x48 & 0x3ffffff); - { uint32_t x51 = (x49 + x23); - { uint32_t x52 = (x51 >> 0x19); - { uint32_t x53 = (x51 & 0x1ffffff); - out[0] = x50; - out[1] = x53; - out[2] = (x52 + x26); - out[3] = x29; - out[4] = x32; - out[5] = x35; - out[6] = x38; - out[7] = x41; - out[8] = x44; - out[9] = x47; - }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} -} diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/fecarry.v b/src/Specific/solinas32_2e255m19_10limbs_donna/fecarry.v deleted file mode 100644 index 534d538d0..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/fecarry.v +++ /dev/null @@ -1,14 +0,0 @@ -Require Import Crypto.Arithmetic.PrimeFieldTheorems. -Require Import Crypto.Specific.solinas32_2e255m19_10limbs_donna.Synthesis. - -(* TODO : change this to field once field isomorphism happens *) -Definition carry : - { carry : feBW_loose -> feBW_tight - | forall a, phiBW_tight (carry a) = (phiBW_loose a) }. -Proof. - Set Ltac Profiling. - Time synthesize_carry (). - Show Ltac Profile. -Time Defined. - -Print Assumptions carry. diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/fecarryDisplay.log b/src/Specific/solinas32_2e255m19_10limbs_donna/fecarryDisplay.log deleted file mode 100644 index 186e797bb..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/fecarryDisplay.log +++ /dev/null @@ -1,42 +0,0 @@ -λ x : word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32, -Interp-η -(λ var : Syntax.base_type → Type, - λ '(x17, x18, x16, x14, x12, x10, x8, x6, x4, x2)%core, - uint32_t x19 = (x2 >> 0x1a); - uint32_t x20 = (x2 & 0x3ffffff); - uint32_t x21 = (x19 + x4); - uint32_t x22 = (x21 >> 0x19); - uint32_t x23 = (x21 & 0x1ffffff); - uint32_t x24 = (x22 + x6); - uint32_t x25 = (x24 >> 0x1a); - uint32_t x26 = (x24 & 0x3ffffff); - uint32_t x27 = (x25 + x8); - uint32_t x28 = (x27 >> 0x19); - uint32_t x29 = (x27 & 0x1ffffff); - uint32_t x30 = (x28 + x10); - uint32_t x31 = (x30 >> 0x1a); - uint32_t x32 = (x30 & 0x3ffffff); - uint32_t x33 = (x31 + x12); - uint32_t x34 = (x33 >> 0x19); - uint32_t x35 = (x33 & 0x1ffffff); - uint32_t x36 = (x34 + x14); - uint32_t x37 = (x36 >> 0x1a); - uint32_t x38 = (x36 & 0x3ffffff); - uint32_t x39 = (x37 + x16); - uint32_t x40 = (x39 >> 0x19); - uint32_t x41 = (x39 & 0x1ffffff); - uint32_t x42 = (x40 + x18); - uint32_t x43 = (x42 >> 0x1a); - uint32_t x44 = (x42 & 0x3ffffff); - uint32_t x45 = (x43 + x17); - uint32_t x46 = (x45 >> 0x19); - uint32_t x47 = (x45 & 0x1ffffff); - uint32_t x48 = (x20 + (0x13 * x46)); - uint32_t x49 = (x48 >> 0x1a); - uint32_t x50 = (x48 & 0x3ffffff); - uint32_t x51 = (x49 + x23); - uint32_t x52 = (x51 >> 0x19); - uint32_t x53 = (x51 & 0x1ffffff); - return (Return x47, Return x44, Return x41, Return x38, Return x35, Return x32, Return x29, (x52 + x26), Return x53, Return x50)) -x - : word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 → ReturnType (uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t) diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/fecarryDisplay.v b/src/Specific/solinas32_2e255m19_10limbs_donna/fecarryDisplay.v deleted file mode 100644 index cda477ab7..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/fecarryDisplay.v +++ /dev/null @@ -1,4 +0,0 @@ -Require Import Crypto.Specific.solinas32_2e255m19_10limbs_donna.fecarry. -Require Import Crypto.Specific.Framework.IntegrationTestDisplayCommon. - -Check display carry. diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/femul.c b/src/Specific/solinas32_2e255m19_10limbs_donna/femul.c deleted file mode 100644 index 748842194..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/femul.c +++ /dev/null @@ -1,114 +0,0 @@ -static void femul(uint32_t out[10], const uint32_t in1[10], const uint32_t in2[10]) { - { const uint32_t x20 = in1[9]; - { const uint32_t x21 = in1[8]; - { const uint32_t x19 = in1[7]; - { const uint32_t x17 = in1[6]; - { const uint32_t x15 = in1[5]; - { const uint32_t x13 = in1[4]; - { const uint32_t x11 = in1[3]; - { const uint32_t x9 = in1[2]; - { const uint32_t x7 = in1[1]; - { const uint32_t x5 = in1[0]; - { const uint32_t x38 = in2[9]; - { const uint32_t x39 = in2[8]; - { const uint32_t x37 = in2[7]; - { const uint32_t x35 = in2[6]; - { const uint32_t x33 = in2[5]; - { const uint32_t x31 = in2[4]; - { const uint32_t x29 = in2[3]; - { const uint32_t x27 = in2[2]; - { const uint32_t x25 = in2[1]; - { const uint32_t x23 = in2[0]; - { uint64_t x40 = ((uint64_t)x23 * x5); - { uint64_t x41 = (((uint64_t)x23 * x7) + ((uint64_t)x25 * x5)); - { uint64_t x42 = ((((uint64_t)(0x2 * x25) * x7) + ((uint64_t)x23 * x9)) + ((uint64_t)x27 * x5)); - { uint64_t x43 = (((((uint64_t)x25 * x9) + ((uint64_t)x27 * x7)) + ((uint64_t)x23 * x11)) + ((uint64_t)x29 * x5)); - { uint64_t x44 = (((((uint64_t)x27 * x9) + (0x2 * (((uint64_t)x25 * x11) + ((uint64_t)x29 * x7)))) + ((uint64_t)x23 * x13)) + ((uint64_t)x31 * x5)); - { uint64_t x45 = (((((((uint64_t)x27 * x11) + ((uint64_t)x29 * x9)) + ((uint64_t)x25 * x13)) + ((uint64_t)x31 * x7)) + ((uint64_t)x23 * x15)) + ((uint64_t)x33 * x5)); - { uint64_t x46 = (((((0x2 * ((((uint64_t)x29 * x11) + ((uint64_t)x25 * x15)) + ((uint64_t)x33 * x7))) + ((uint64_t)x27 * x13)) + ((uint64_t)x31 * x9)) + ((uint64_t)x23 * x17)) + ((uint64_t)x35 * x5)); - { uint64_t x47 = (((((((((uint64_t)x29 * x13) + ((uint64_t)x31 * x11)) + ((uint64_t)x27 * x15)) + ((uint64_t)x33 * x9)) + ((uint64_t)x25 * x17)) + ((uint64_t)x35 * x7)) + ((uint64_t)x23 * x19)) + ((uint64_t)x37 * x5)); - { uint64_t x48 = (((((((uint64_t)x31 * x13) + (0x2 * (((((uint64_t)x29 * x15) + ((uint64_t)x33 * x11)) + ((uint64_t)x25 * x19)) + ((uint64_t)x37 * x7)))) + ((uint64_t)x27 * x17)) + ((uint64_t)x35 * x9)) + ((uint64_t)x23 * x21)) + ((uint64_t)x39 * x5)); - { uint64_t x49 = (((((((((((uint64_t)x31 * x15) + ((uint64_t)x33 * x13)) + ((uint64_t)x29 * x17)) + ((uint64_t)x35 * x11)) + ((uint64_t)x27 * x19)) + ((uint64_t)x37 * x9)) + ((uint64_t)x25 * x21)) + ((uint64_t)x39 * x7)) + ((uint64_t)x23 * x20)) + ((uint64_t)x38 * x5)); - { uint64_t x50 = (((((0x2 * ((((((uint64_t)x33 * x15) + ((uint64_t)x29 * x19)) + ((uint64_t)x37 * x11)) + ((uint64_t)x25 * x20)) + ((uint64_t)x38 * x7))) + ((uint64_t)x31 * x17)) + ((uint64_t)x35 * x13)) + ((uint64_t)x27 * x21)) + ((uint64_t)x39 * x9)); - { uint64_t x51 = (((((((((uint64_t)x33 * x17) + ((uint64_t)x35 * x15)) + ((uint64_t)x31 * x19)) + ((uint64_t)x37 * x13)) + ((uint64_t)x29 * x21)) + ((uint64_t)x39 * x11)) + ((uint64_t)x27 * x20)) + ((uint64_t)x38 * x9)); - { uint64_t x52 = (((((uint64_t)x35 * x17) + (0x2 * (((((uint64_t)x33 * x19) + ((uint64_t)x37 * x15)) + ((uint64_t)x29 * x20)) + ((uint64_t)x38 * x11)))) + ((uint64_t)x31 * x21)) + ((uint64_t)x39 * x13)); - { uint64_t x53 = (((((((uint64_t)x35 * x19) + ((uint64_t)x37 * x17)) + ((uint64_t)x33 * x21)) + ((uint64_t)x39 * x15)) + ((uint64_t)x31 * x20)) + ((uint64_t)x38 * x13)); - { uint64_t x54 = (((0x2 * ((((uint64_t)x37 * x19) + ((uint64_t)x33 * x20)) + ((uint64_t)x38 * x15))) + ((uint64_t)x35 * x21)) + ((uint64_t)x39 * x17)); - { uint64_t x55 = (((((uint64_t)x37 * x21) + ((uint64_t)x39 * x19)) + ((uint64_t)x35 * x20)) + ((uint64_t)x38 * x17)); - { uint64_t x56 = (((uint64_t)x39 * x21) + (0x2 * (((uint64_t)x37 * x20) + ((uint64_t)x38 * x19)))); - { uint64_t x57 = (((uint64_t)x39 * x20) + ((uint64_t)x38 * x21)); - { uint64_t x58 = ((uint64_t)(0x2 * x38) * x20); - { uint64_t x59 = (x48 + (x58 << 0x4)); - { uint64_t x60 = (x59 + (x58 << 0x1)); - { uint64_t x61 = (x60 + x58); - { uint64_t x62 = (x47 + (x57 << 0x4)); - { uint64_t x63 = (x62 + (x57 << 0x1)); - { uint64_t x64 = (x63 + x57); - { uint64_t x65 = (x46 + (x56 << 0x4)); - { uint64_t x66 = (x65 + (x56 << 0x1)); - { uint64_t x67 = (x66 + x56); - { uint64_t x68 = (x45 + (x55 << 0x4)); - { uint64_t x69 = (x68 + (x55 << 0x1)); - { uint64_t x70 = (x69 + x55); - { uint64_t x71 = (x44 + (x54 << 0x4)); - { uint64_t x72 = (x71 + (x54 << 0x1)); - { uint64_t x73 = (x72 + x54); - { uint64_t x74 = (x43 + (x53 << 0x4)); - { uint64_t x75 = (x74 + (x53 << 0x1)); - { uint64_t x76 = (x75 + x53); - { uint64_t x77 = (x42 + (x52 << 0x4)); - { uint64_t x78 = (x77 + (x52 << 0x1)); - { uint64_t x79 = (x78 + x52); - { uint64_t x80 = (x41 + (x51 << 0x4)); - { uint64_t x81 = (x80 + (x51 << 0x1)); - { uint64_t x82 = (x81 + x51); - { uint64_t x83 = (x40 + (x50 << 0x4)); - { uint64_t x84 = (x83 + (x50 << 0x1)); - { uint64_t x85 = (x84 + x50); - { uint64_t x86 = (x85 >> 0x1a); - { uint32_t x87 = ((uint32_t)x85 & 0x3ffffff); - { uint64_t x88 = (x86 + x82); - { uint64_t x89 = (x88 >> 0x19); - { uint32_t x90 = ((uint32_t)x88 & 0x1ffffff); - { uint64_t x91 = (x89 + x79); - { uint64_t x92 = (x91 >> 0x1a); - { uint32_t x93 = ((uint32_t)x91 & 0x3ffffff); - { uint64_t x94 = (x92 + x76); - { uint64_t x95 = (x94 >> 0x19); - { uint32_t x96 = ((uint32_t)x94 & 0x1ffffff); - { uint64_t x97 = (x95 + x73); - { uint64_t x98 = (x97 >> 0x1a); - { uint32_t x99 = ((uint32_t)x97 & 0x3ffffff); - { uint64_t x100 = (x98 + x70); - { uint64_t x101 = (x100 >> 0x19); - { uint32_t x102 = ((uint32_t)x100 & 0x1ffffff); - { uint64_t x103 = (x101 + x67); - { uint64_t x104 = (x103 >> 0x1a); - { uint32_t x105 = ((uint32_t)x103 & 0x3ffffff); - { uint64_t x106 = (x104 + x64); - { uint64_t x107 = (x106 >> 0x19); - { uint32_t x108 = ((uint32_t)x106 & 0x1ffffff); - { uint64_t x109 = (x107 + x61); - { uint64_t x110 = (x109 >> 0x1a); - { uint32_t x111 = ((uint32_t)x109 & 0x3ffffff); - { uint64_t x112 = (x110 + x49); - { uint64_t x113 = (x112 >> 0x19); - { uint32_t x114 = ((uint32_t)x112 & 0x1ffffff); - { uint64_t x115 = (x87 + (0x13 * x113)); - { uint32_t x116 = (uint32_t) (x115 >> 0x1a); - { uint32_t x117 = ((uint32_t)x115 & 0x3ffffff); - { uint32_t x118 = (x116 + x90); - { uint32_t x119 = (x118 >> 0x19); - { uint32_t x120 = (x118 & 0x1ffffff); - out[0] = x117; - out[1] = x120; - out[2] = (x119 + x93); - out[3] = x96; - out[4] = x99; - out[5] = x102; - out[6] = x105; - out[7] = x108; - out[8] = x111; - out[9] = x114; - }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} -} diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/femul.v b/src/Specific/solinas32_2e255m19_10limbs_donna/femul.v deleted file mode 100644 index 918b0e5a9..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/femul.v +++ /dev/null @@ -1,14 +0,0 @@ -Require Import Crypto.Arithmetic.PrimeFieldTheorems. -Require Import Crypto.Specific.solinas32_2e255m19_10limbs_donna.Synthesis. - -(* TODO : change this to field once field isomorphism happens *) -Definition mul : - { mul : feBW_loose -> feBW_loose -> feBW_tight - | forall a b, phiBW_tight (mul a b) = F.mul (phiBW_loose a) (phiBW_loose b) }. -Proof. - Set Ltac Profiling. - Time synthesize_mul (). - Show Ltac Profile. -Time Defined. - -Print Assumptions mul. diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/femulDisplay.log b/src/Specific/solinas32_2e255m19_10limbs_donna/femulDisplay.log deleted file mode 100644 index 1650f4c9d..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/femulDisplay.log +++ /dev/null @@ -1,88 +0,0 @@ -λ x x0 : word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32, -Interp-η -(λ var : Syntax.base_type → Type, - λ '(x20, x21, x19, x17, x15, x13, x11, x9, x7, x5, (x38, x39, x37, x35, x33, x31, x29, x27, x25, x23))%core, - uint64_t x40 = ((uint64_t)x23 * x5); - uint64_t x41 = (((uint64_t)x23 * x7) + ((uint64_t)x25 * x5)); - uint64_t x42 = ((((uint64_t)(0x2 * x25) * x7) + ((uint64_t)x23 * x9)) + ((uint64_t)x27 * x5)); - uint64_t x43 = (((((uint64_t)x25 * x9) + ((uint64_t)x27 * x7)) + ((uint64_t)x23 * x11)) + ((uint64_t)x29 * x5)); - uint64_t x44 = (((((uint64_t)x27 * x9) + (0x2 * (((uint64_t)x25 * x11) + ((uint64_t)x29 * x7)))) + ((uint64_t)x23 * x13)) + ((uint64_t)x31 * x5)); - uint64_t x45 = (((((((uint64_t)x27 * x11) + ((uint64_t)x29 * x9)) + ((uint64_t)x25 * x13)) + ((uint64_t)x31 * x7)) + ((uint64_t)x23 * x15)) + ((uint64_t)x33 * x5)); - uint64_t x46 = (((((0x2 * ((((uint64_t)x29 * x11) + ((uint64_t)x25 * x15)) + ((uint64_t)x33 * x7))) + ((uint64_t)x27 * x13)) + ((uint64_t)x31 * x9)) + ((uint64_t)x23 * x17)) + ((uint64_t)x35 * x5)); - uint64_t x47 = (((((((((uint64_t)x29 * x13) + ((uint64_t)x31 * x11)) + ((uint64_t)x27 * x15)) + ((uint64_t)x33 * x9)) + ((uint64_t)x25 * x17)) + ((uint64_t)x35 * x7)) + ((uint64_t)x23 * x19)) + ((uint64_t)x37 * x5)); - uint64_t x48 = (((((((uint64_t)x31 * x13) + (0x2 * (((((uint64_t)x29 * x15) + ((uint64_t)x33 * x11)) + ((uint64_t)x25 * x19)) + ((uint64_t)x37 * x7)))) + ((uint64_t)x27 * x17)) + ((uint64_t)x35 * x9)) + ((uint64_t)x23 * x21)) + ((uint64_t)x39 * x5)); - uint64_t x49 = (((((((((((uint64_t)x31 * x15) + ((uint64_t)x33 * x13)) + ((uint64_t)x29 * x17)) + ((uint64_t)x35 * x11)) + ((uint64_t)x27 * x19)) + ((uint64_t)x37 * x9)) + ((uint64_t)x25 * x21)) + ((uint64_t)x39 * x7)) + ((uint64_t)x23 * x20)) + ((uint64_t)x38 * x5)); - uint64_t x50 = (((((0x2 * ((((((uint64_t)x33 * x15) + ((uint64_t)x29 * x19)) + ((uint64_t)x37 * x11)) + ((uint64_t)x25 * x20)) + ((uint64_t)x38 * x7))) + ((uint64_t)x31 * x17)) + ((uint64_t)x35 * x13)) + ((uint64_t)x27 * x21)) + ((uint64_t)x39 * x9)); - uint64_t x51 = (((((((((uint64_t)x33 * x17) + ((uint64_t)x35 * x15)) + ((uint64_t)x31 * x19)) + ((uint64_t)x37 * x13)) + ((uint64_t)x29 * x21)) + ((uint64_t)x39 * x11)) + ((uint64_t)x27 * x20)) + ((uint64_t)x38 * x9)); - uint64_t x52 = (((((uint64_t)x35 * x17) + (0x2 * (((((uint64_t)x33 * x19) + ((uint64_t)x37 * x15)) + ((uint64_t)x29 * x20)) + ((uint64_t)x38 * x11)))) + ((uint64_t)x31 * x21)) + ((uint64_t)x39 * x13)); - uint64_t x53 = (((((((uint64_t)x35 * x19) + ((uint64_t)x37 * x17)) + ((uint64_t)x33 * x21)) + ((uint64_t)x39 * x15)) + ((uint64_t)x31 * x20)) + ((uint64_t)x38 * x13)); - uint64_t x54 = (((0x2 * ((((uint64_t)x37 * x19) + ((uint64_t)x33 * x20)) + ((uint64_t)x38 * x15))) + ((uint64_t)x35 * x21)) + ((uint64_t)x39 * x17)); - uint64_t x55 = (((((uint64_t)x37 * x21) + ((uint64_t)x39 * x19)) + ((uint64_t)x35 * x20)) + ((uint64_t)x38 * x17)); - uint64_t x56 = (((uint64_t)x39 * x21) + (0x2 * (((uint64_t)x37 * x20) + ((uint64_t)x38 * x19)))); - uint64_t x57 = (((uint64_t)x39 * x20) + ((uint64_t)x38 * x21)); - uint64_t x58 = ((uint64_t)(0x2 * x38) * x20); - uint64_t x59 = (x48 + (x58 << 0x4)); - uint64_t x60 = (x59 + (x58 << 0x1)); - uint64_t x61 = (x60 + x58); - uint64_t x62 = (x47 + (x57 << 0x4)); - uint64_t x63 = (x62 + (x57 << 0x1)); - uint64_t x64 = (x63 + x57); - uint64_t x65 = (x46 + (x56 << 0x4)); - uint64_t x66 = (x65 + (x56 << 0x1)); - uint64_t x67 = (x66 + x56); - uint64_t x68 = (x45 + (x55 << 0x4)); - uint64_t x69 = (x68 + (x55 << 0x1)); - uint64_t x70 = (x69 + x55); - uint64_t x71 = (x44 + (x54 << 0x4)); - uint64_t x72 = (x71 + (x54 << 0x1)); - uint64_t x73 = (x72 + x54); - uint64_t x74 = (x43 + (x53 << 0x4)); - uint64_t x75 = (x74 + (x53 << 0x1)); - uint64_t x76 = (x75 + x53); - uint64_t x77 = (x42 + (x52 << 0x4)); - uint64_t x78 = (x77 + (x52 << 0x1)); - uint64_t x79 = (x78 + x52); - uint64_t x80 = (x41 + (x51 << 0x4)); - uint64_t x81 = (x80 + (x51 << 0x1)); - uint64_t x82 = (x81 + x51); - uint64_t x83 = (x40 + (x50 << 0x4)); - uint64_t x84 = (x83 + (x50 << 0x1)); - uint64_t x85 = (x84 + x50); - uint64_t x86 = (x85 >> 0x1a); - uint32_t x87 = ((uint32_t)x85 & 0x3ffffff); - uint64_t x88 = (x86 + x82); - uint64_t x89 = (x88 >> 0x19); - uint32_t x90 = ((uint32_t)x88 & 0x1ffffff); - uint64_t x91 = (x89 + x79); - uint64_t x92 = (x91 >> 0x1a); - uint32_t x93 = ((uint32_t)x91 & 0x3ffffff); - uint64_t x94 = (x92 + x76); - uint64_t x95 = (x94 >> 0x19); - uint32_t x96 = ((uint32_t)x94 & 0x1ffffff); - uint64_t x97 = (x95 + x73); - uint64_t x98 = (x97 >> 0x1a); - uint32_t x99 = ((uint32_t)x97 & 0x3ffffff); - uint64_t x100 = (x98 + x70); - uint64_t x101 = (x100 >> 0x19); - uint32_t x102 = ((uint32_t)x100 & 0x1ffffff); - uint64_t x103 = (x101 + x67); - uint64_t x104 = (x103 >> 0x1a); - uint32_t x105 = ((uint32_t)x103 & 0x3ffffff); - uint64_t x106 = (x104 + x64); - uint64_t x107 = (x106 >> 0x19); - uint32_t x108 = ((uint32_t)x106 & 0x1ffffff); - uint64_t x109 = (x107 + x61); - uint64_t x110 = (x109 >> 0x1a); - uint32_t x111 = ((uint32_t)x109 & 0x3ffffff); - uint64_t x112 = (x110 + x49); - uint64_t x113 = (x112 >> 0x19); - uint32_t x114 = ((uint32_t)x112 & 0x1ffffff); - uint64_t x115 = (x87 + (0x13 * x113)); - uint32_t x116 = (uint32_t) (x115 >> 0x1a); - uint32_t x117 = ((uint32_t)x115 & 0x3ffffff); - uint32_t x118 = (x116 + x90); - uint32_t x119 = (x118 >> 0x19); - uint32_t x120 = (x118 & 0x1ffffff); - return (Return x114, Return x111, Return x108, Return x105, Return x102, Return x99, Return x96, (x119 + x93), Return x120, Return x117)) -(x, x0)%core - : word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 → word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 → ReturnType (uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t) diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/femulDisplay.v b/src/Specific/solinas32_2e255m19_10limbs_donna/femulDisplay.v deleted file mode 100644 index c0973e1e2..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/femulDisplay.v +++ /dev/null @@ -1,4 +0,0 @@ -Require Import Crypto.Specific.solinas32_2e255m19_10limbs_donna.femul. -Require Import Crypto.Specific.Framework.IntegrationTestDisplayCommon. - -Check display mul. diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/fesquare.c b/src/Specific/solinas32_2e255m19_10limbs_donna/fesquare.c deleted file mode 100644 index e72449a1b..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/fesquare.c +++ /dev/null @@ -1,104 +0,0 @@ -static void fesquare(uint32_t out[10], const uint32_t in1[10]) { - { const uint32_t x17 = in1[9]; - { const uint32_t x18 = in1[8]; - { const uint32_t x16 = in1[7]; - { const uint32_t x14 = in1[6]; - { const uint32_t x12 = in1[5]; - { const uint32_t x10 = in1[4]; - { const uint32_t x8 = in1[3]; - { const uint32_t x6 = in1[2]; - { const uint32_t x4 = in1[1]; - { const uint32_t x2 = in1[0]; - { uint64_t x19 = ((uint64_t)x2 * x2); - { uint64_t x20 = ((uint64_t)(0x2 * x2) * x4); - { uint64_t x21 = (0x2 * (((uint64_t)x4 * x4) + ((uint64_t)x2 * x6))); - { uint64_t x22 = (0x2 * (((uint64_t)x4 * x6) + ((uint64_t)x2 * x8))); - { uint64_t x23 = ((((uint64_t)x6 * x6) + ((uint64_t)(0x4 * x4) * x8)) + ((uint64_t)(0x2 * x2) * x10)); - { uint64_t x24 = (0x2 * ((((uint64_t)x6 * x8) + ((uint64_t)x4 * x10)) + ((uint64_t)x2 * x12))); - { uint64_t x25 = (0x2 * (((((uint64_t)x8 * x8) + ((uint64_t)x6 * x10)) + ((uint64_t)x2 * x14)) + ((uint64_t)(0x2 * x4) * x12))); - { uint64_t x26 = (0x2 * (((((uint64_t)x8 * x10) + ((uint64_t)x6 * x12)) + ((uint64_t)x4 * x14)) + ((uint64_t)x2 * x16))); - { uint64_t x27 = (((uint64_t)x10 * x10) + (0x2 * ((((uint64_t)x6 * x14) + ((uint64_t)x2 * x18)) + (0x2 * (((uint64_t)x4 * x16) + ((uint64_t)x8 * x12)))))); - { uint64_t x28 = (0x2 * ((((((uint64_t)x10 * x12) + ((uint64_t)x8 * x14)) + ((uint64_t)x6 * x16)) + ((uint64_t)x4 * x18)) + ((uint64_t)x2 * x17))); - { uint64_t x29 = (0x2 * (((((uint64_t)x12 * x12) + ((uint64_t)x10 * x14)) + ((uint64_t)x6 * x18)) + (0x2 * (((uint64_t)x8 * x16) + ((uint64_t)x4 * x17))))); - { uint64_t x30 = (0x2 * (((((uint64_t)x12 * x14) + ((uint64_t)x10 * x16)) + ((uint64_t)x8 * x18)) + ((uint64_t)x6 * x17))); - { uint64_t x31 = (((uint64_t)x14 * x14) + (0x2 * (((uint64_t)x10 * x18) + (0x2 * (((uint64_t)x12 * x16) + ((uint64_t)x8 * x17)))))); - { uint64_t x32 = (0x2 * ((((uint64_t)x14 * x16) + ((uint64_t)x12 * x18)) + ((uint64_t)x10 * x17))); - { uint64_t x33 = (0x2 * ((((uint64_t)x16 * x16) + ((uint64_t)x14 * x18)) + ((uint64_t)(0x2 * x12) * x17))); - { uint64_t x34 = (0x2 * (((uint64_t)x16 * x18) + ((uint64_t)x14 * x17))); - { uint64_t x35 = (((uint64_t)x18 * x18) + ((uint64_t)(0x4 * x16) * x17)); - { uint64_t x36 = ((uint64_t)(0x2 * x18) * x17); - { uint64_t x37 = ((uint64_t)(0x2 * x17) * x17); - { uint64_t x38 = (x27 + (x37 << 0x4)); - { uint64_t x39 = (x38 + (x37 << 0x1)); - { uint64_t x40 = (x39 + x37); - { uint64_t x41 = (x26 + (x36 << 0x4)); - { uint64_t x42 = (x41 + (x36 << 0x1)); - { uint64_t x43 = (x42 + x36); - { uint64_t x44 = (x25 + (x35 << 0x4)); - { uint64_t x45 = (x44 + (x35 << 0x1)); - { uint64_t x46 = (x45 + x35); - { uint64_t x47 = (x24 + (x34 << 0x4)); - { uint64_t x48 = (x47 + (x34 << 0x1)); - { uint64_t x49 = (x48 + x34); - { uint64_t x50 = (x23 + (x33 << 0x4)); - { uint64_t x51 = (x50 + (x33 << 0x1)); - { uint64_t x52 = (x51 + x33); - { uint64_t x53 = (x22 + (x32 << 0x4)); - { uint64_t x54 = (x53 + (x32 << 0x1)); - { uint64_t x55 = (x54 + x32); - { uint64_t x56 = (x21 + (x31 << 0x4)); - { uint64_t x57 = (x56 + (x31 << 0x1)); - { uint64_t x58 = (x57 + x31); - { uint64_t x59 = (x20 + (x30 << 0x4)); - { uint64_t x60 = (x59 + (x30 << 0x1)); - { uint64_t x61 = (x60 + x30); - { uint64_t x62 = (x19 + (x29 << 0x4)); - { uint64_t x63 = (x62 + (x29 << 0x1)); - { uint64_t x64 = (x63 + x29); - { uint64_t x65 = (x64 >> 0x1a); - { uint32_t x66 = ((uint32_t)x64 & 0x3ffffff); - { uint64_t x67 = (x65 + x61); - { uint64_t x68 = (x67 >> 0x19); - { uint32_t x69 = ((uint32_t)x67 & 0x1ffffff); - { uint64_t x70 = (x68 + x58); - { uint64_t x71 = (x70 >> 0x1a); - { uint32_t x72 = ((uint32_t)x70 & 0x3ffffff); - { uint64_t x73 = (x71 + x55); - { uint64_t x74 = (x73 >> 0x19); - { uint32_t x75 = ((uint32_t)x73 & 0x1ffffff); - { uint64_t x76 = (x74 + x52); - { uint64_t x77 = (x76 >> 0x1a); - { uint32_t x78 = ((uint32_t)x76 & 0x3ffffff); - { uint64_t x79 = (x77 + x49); - { uint64_t x80 = (x79 >> 0x19); - { uint32_t x81 = ((uint32_t)x79 & 0x1ffffff); - { uint64_t x82 = (x80 + x46); - { uint64_t x83 = (x82 >> 0x1a); - { uint32_t x84 = ((uint32_t)x82 & 0x3ffffff); - { uint64_t x85 = (x83 + x43); - { uint64_t x86 = (x85 >> 0x19); - { uint32_t x87 = ((uint32_t)x85 & 0x1ffffff); - { uint64_t x88 = (x86 + x40); - { uint64_t x89 = (x88 >> 0x1a); - { uint32_t x90 = ((uint32_t)x88 & 0x3ffffff); - { uint64_t x91 = (x89 + x28); - { uint64_t x92 = (x91 >> 0x19); - { uint32_t x93 = ((uint32_t)x91 & 0x1ffffff); - { uint64_t x94 = (x66 + (0x13 * x92)); - { uint32_t x95 = (uint32_t) (x94 >> 0x1a); - { uint32_t x96 = ((uint32_t)x94 & 0x3ffffff); - { uint32_t x97 = (x95 + x69); - { uint32_t x98 = (x97 >> 0x19); - { uint32_t x99 = (x97 & 0x1ffffff); - out[0] = x96; - out[1] = x99; - out[2] = (x98 + x72); - out[3] = x75; - out[4] = x78; - out[5] = x81; - out[6] = x84; - out[7] = x87; - out[8] = x90; - out[9] = x93; - }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} -} diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/fesquare.v b/src/Specific/solinas32_2e255m19_10limbs_donna/fesquare.v deleted file mode 100644 index 68939088c..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/fesquare.v +++ /dev/null @@ -1,14 +0,0 @@ -Require Import Crypto.Arithmetic.PrimeFieldTheorems. -Require Import Crypto.Specific.solinas32_2e255m19_10limbs_donna.Synthesis. - -(* TODO : change this to field once field isomorphism happens *) -Definition square : - { square : feBW_loose -> feBW_tight - | forall a, phiBW_tight (square a) = F.mul (phiBW_loose a) (phiBW_loose a) }. -Proof. - Set Ltac Profiling. - Time synthesize_square (). - Show Ltac Profile. -Time Defined. - -Print Assumptions square. diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/fesquareDisplay.log b/src/Specific/solinas32_2e255m19_10limbs_donna/fesquareDisplay.log deleted file mode 100644 index 06c5bc75f..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/fesquareDisplay.log +++ /dev/null @@ -1,88 +0,0 @@ -λ x : word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32, -Interp-η -(λ var : Syntax.base_type → Type, - λ '(x17, x18, x16, x14, x12, x10, x8, x6, x4, x2)%core, - uint64_t x19 = ((uint64_t)x2 * x2); - uint64_t x20 = ((uint64_t)(0x2 * x2) * x4); - uint64_t x21 = (0x2 * (((uint64_t)x4 * x4) + ((uint64_t)x2 * x6))); - uint64_t x22 = (0x2 * (((uint64_t)x4 * x6) + ((uint64_t)x2 * x8))); - uint64_t x23 = ((((uint64_t)x6 * x6) + ((uint64_t)(0x4 * x4) * x8)) + ((uint64_t)(0x2 * x2) * x10)); - uint64_t x24 = (0x2 * ((((uint64_t)x6 * x8) + ((uint64_t)x4 * x10)) + ((uint64_t)x2 * x12))); - uint64_t x25 = (0x2 * (((((uint64_t)x8 * x8) + ((uint64_t)x6 * x10)) + ((uint64_t)x2 * x14)) + ((uint64_t)(0x2 * x4) * x12))); - uint64_t x26 = (0x2 * (((((uint64_t)x8 * x10) + ((uint64_t)x6 * x12)) + ((uint64_t)x4 * x14)) + ((uint64_t)x2 * x16))); - uint64_t x27 = (((uint64_t)x10 * x10) + (0x2 * ((((uint64_t)x6 * x14) + ((uint64_t)x2 * x18)) + (0x2 * (((uint64_t)x4 * x16) + ((uint64_t)x8 * x12)))))); - uint64_t x28 = (0x2 * ((((((uint64_t)x10 * x12) + ((uint64_t)x8 * x14)) + ((uint64_t)x6 * x16)) + ((uint64_t)x4 * x18)) + ((uint64_t)x2 * x17))); - uint64_t x29 = (0x2 * (((((uint64_t)x12 * x12) + ((uint64_t)x10 * x14)) + ((uint64_t)x6 * x18)) + (0x2 * (((uint64_t)x8 * x16) + ((uint64_t)x4 * x17))))); - uint64_t x30 = (0x2 * (((((uint64_t)x12 * x14) + ((uint64_t)x10 * x16)) + ((uint64_t)x8 * x18)) + ((uint64_t)x6 * x17))); - uint64_t x31 = (((uint64_t)x14 * x14) + (0x2 * (((uint64_t)x10 * x18) + (0x2 * (((uint64_t)x12 * x16) + ((uint64_t)x8 * x17)))))); - uint64_t x32 = (0x2 * ((((uint64_t)x14 * x16) + ((uint64_t)x12 * x18)) + ((uint64_t)x10 * x17))); - uint64_t x33 = (0x2 * ((((uint64_t)x16 * x16) + ((uint64_t)x14 * x18)) + ((uint64_t)(0x2 * x12) * x17))); - uint64_t x34 = (0x2 * (((uint64_t)x16 * x18) + ((uint64_t)x14 * x17))); - uint64_t x35 = (((uint64_t)x18 * x18) + ((uint64_t)(0x4 * x16) * x17)); - uint64_t x36 = ((uint64_t)(0x2 * x18) * x17); - uint64_t x37 = ((uint64_t)(0x2 * x17) * x17); - uint64_t x38 = (x27 + (x37 << 0x4)); - uint64_t x39 = (x38 + (x37 << 0x1)); - uint64_t x40 = (x39 + x37); - uint64_t x41 = (x26 + (x36 << 0x4)); - uint64_t x42 = (x41 + (x36 << 0x1)); - uint64_t x43 = (x42 + x36); - uint64_t x44 = (x25 + (x35 << 0x4)); - uint64_t x45 = (x44 + (x35 << 0x1)); - uint64_t x46 = (x45 + x35); - uint64_t x47 = (x24 + (x34 << 0x4)); - uint64_t x48 = (x47 + (x34 << 0x1)); - uint64_t x49 = (x48 + x34); - uint64_t x50 = (x23 + (x33 << 0x4)); - uint64_t x51 = (x50 + (x33 << 0x1)); - uint64_t x52 = (x51 + x33); - uint64_t x53 = (x22 + (x32 << 0x4)); - uint64_t x54 = (x53 + (x32 << 0x1)); - uint64_t x55 = (x54 + x32); - uint64_t x56 = (x21 + (x31 << 0x4)); - uint64_t x57 = (x56 + (x31 << 0x1)); - uint64_t x58 = (x57 + x31); - uint64_t x59 = (x20 + (x30 << 0x4)); - uint64_t x60 = (x59 + (x30 << 0x1)); - uint64_t x61 = (x60 + x30); - uint64_t x62 = (x19 + (x29 << 0x4)); - uint64_t x63 = (x62 + (x29 << 0x1)); - uint64_t x64 = (x63 + x29); - uint64_t x65 = (x64 >> 0x1a); - uint32_t x66 = ((uint32_t)x64 & 0x3ffffff); - uint64_t x67 = (x65 + x61); - uint64_t x68 = (x67 >> 0x19); - uint32_t x69 = ((uint32_t)x67 & 0x1ffffff); - uint64_t x70 = (x68 + x58); - uint64_t x71 = (x70 >> 0x1a); - uint32_t x72 = ((uint32_t)x70 & 0x3ffffff); - uint64_t x73 = (x71 + x55); - uint64_t x74 = (x73 >> 0x19); - uint32_t x75 = ((uint32_t)x73 & 0x1ffffff); - uint64_t x76 = (x74 + x52); - uint64_t x77 = (x76 >> 0x1a); - uint32_t x78 = ((uint32_t)x76 & 0x3ffffff); - uint64_t x79 = (x77 + x49); - uint64_t x80 = (x79 >> 0x19); - uint32_t x81 = ((uint32_t)x79 & 0x1ffffff); - uint64_t x82 = (x80 + x46); - uint64_t x83 = (x82 >> 0x1a); - uint32_t x84 = ((uint32_t)x82 & 0x3ffffff); - uint64_t x85 = (x83 + x43); - uint64_t x86 = (x85 >> 0x19); - uint32_t x87 = ((uint32_t)x85 & 0x1ffffff); - uint64_t x88 = (x86 + x40); - uint64_t x89 = (x88 >> 0x1a); - uint32_t x90 = ((uint32_t)x88 & 0x3ffffff); - uint64_t x91 = (x89 + x28); - uint64_t x92 = (x91 >> 0x19); - uint32_t x93 = ((uint32_t)x91 & 0x1ffffff); - uint64_t x94 = (x66 + (0x13 * x92)); - uint32_t x95 = (uint32_t) (x94 >> 0x1a); - uint32_t x96 = ((uint32_t)x94 & 0x3ffffff); - uint32_t x97 = (x95 + x69); - uint32_t x98 = (x97 >> 0x19); - uint32_t x99 = (x97 & 0x1ffffff); - return (Return x93, Return x90, Return x87, Return x84, Return x81, Return x78, Return x75, (x98 + x72), Return x99, Return x96)) -x - : word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 → ReturnType (uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t) diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/fesquareDisplay.v b/src/Specific/solinas32_2e255m19_10limbs_donna/fesquareDisplay.v deleted file mode 100644 index 651779f2b..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/fesquareDisplay.v +++ /dev/null @@ -1,4 +0,0 @@ -Require Import Crypto.Specific.solinas32_2e255m19_10limbs_donna.fesquare. -Require Import Crypto.Specific.Framework.IntegrationTestDisplayCommon. - -Check display square. diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/fesub.c b/src/Specific/solinas32_2e255m19_10limbs_donna/fesub.c deleted file mode 100644 index b92ed2bbe..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/fesub.c +++ /dev/null @@ -1,33 +0,0 @@ -static void fesub(uint32_t out[10], const uint32_t in1[10], const uint32_t in2[10]) { - { const uint32_t x20 = in1[9]; - { const uint32_t x21 = in1[8]; - { const uint32_t x19 = in1[7]; - { const uint32_t x17 = in1[6]; - { const uint32_t x15 = in1[5]; - { const uint32_t x13 = in1[4]; - { const uint32_t x11 = in1[3]; - { const uint32_t x9 = in1[2]; - { const uint32_t x7 = in1[1]; - { const uint32_t x5 = in1[0]; - { const uint32_t x38 = in2[9]; - { const uint32_t x39 = in2[8]; - { const uint32_t x37 = in2[7]; - { const uint32_t x35 = in2[6]; - { const uint32_t x33 = in2[5]; - { const uint32_t x31 = in2[4]; - { const uint32_t x29 = in2[3]; - { const uint32_t x27 = in2[2]; - { const uint32_t x25 = in2[1]; - { const uint32_t x23 = in2[0]; - out[0] = ((0x7ffffda + x5) - x23); - out[1] = ((0x3fffffe + x7) - x25); - out[2] = ((0x7fffffe + x9) - x27); - out[3] = ((0x3fffffe + x11) - x29); - out[4] = ((0x7fffffe + x13) - x31); - out[5] = ((0x3fffffe + x15) - x33); - out[6] = ((0x7fffffe + x17) - x35); - out[7] = ((0x3fffffe + x19) - x37); - out[8] = ((0x7fffffe + x21) - x39); - out[9] = ((0x3fffffe + x20) - x38); - }}}}}}}}}}}}}}}}}}}} -} diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/fesub.v b/src/Specific/solinas32_2e255m19_10limbs_donna/fesub.v deleted file mode 100644 index 3c5d12e55..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/fesub.v +++ /dev/null @@ -1,14 +0,0 @@ -Require Import Crypto.Arithmetic.PrimeFieldTheorems. -Require Import Crypto.Specific.solinas32_2e255m19_10limbs_donna.Synthesis. - -(* TODO : change this to field once field isomorphism happens *) -Definition sub : - { sub : feBW_tight -> feBW_tight -> feBW_loose - | forall a b, phiBW_loose (sub a b) = F.sub (phiBW_tight a) (phiBW_tight b) }. -Proof. - Set Ltac Profiling. - Time synthesize_sub (). - Show Ltac Profile. -Time Defined. - -Print Assumptions sub. diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/fesubDisplay.log b/src/Specific/solinas32_2e255m19_10limbs_donna/fesubDisplay.log deleted file mode 100644 index bb18a6a51..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/fesubDisplay.log +++ /dev/null @@ -1,7 +0,0 @@ -λ x x0 : word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32, -Interp-η -(λ var : Syntax.base_type → Type, - λ '(x20, x21, x19, x17, x15, x13, x11, x9, x7, x5, (x38, x39, x37, x35, x33, x31, x29, x27, x25, x23))%core, - (((0x3fffffe + x20) - x38), ((0x7fffffe + x21) - x39), ((0x3fffffe + x19) - x37), ((0x7fffffe + x17) - x35), ((0x3fffffe + x15) - x33), ((0x7fffffe + x13) - x31), ((0x3fffffe + x11) - x29), ((0x7fffffe + x9) - x27), ((0x3fffffe + x7) - x25), ((0x7ffffda + x5) - x23))) -(x, x0)%core - : word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 → word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 → ReturnType (uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t) diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/fesubDisplay.v b/src/Specific/solinas32_2e255m19_10limbs_donna/fesubDisplay.v deleted file mode 100644 index a4ec24ade..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/fesubDisplay.v +++ /dev/null @@ -1,4 +0,0 @@ -Require Import Crypto.Specific.solinas32_2e255m19_10limbs_donna.fesub. -Require Import Crypto.Specific.Framework.IntegrationTestDisplayCommon. - -Check display sub. diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/freeze.c b/src/Specific/solinas32_2e255m19_10limbs_donna/freeze.c deleted file mode 100644 index 89de979a8..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/freeze.c +++ /dev/null @@ -1,54 +0,0 @@ -static void freeze(uint32_t out[10], const uint32_t in1[10]) { - { const uint32_t x17 = in1[9]; - { const uint32_t x18 = in1[8]; - { const uint32_t x16 = in1[7]; - { const uint32_t x14 = in1[6]; - { const uint32_t x12 = in1[5]; - { const uint32_t x10 = in1[4]; - { const uint32_t x8 = in1[3]; - { const uint32_t x6 = in1[2]; - { const uint32_t x4 = in1[1]; - { const uint32_t x2 = in1[0]; - { uint32_t x20; uint8_t/*bool*/ x21 = _subborrow_u26(0x0, x2, 0x3ffffed, &x20); - { uint32_t x23; uint8_t/*bool*/ x24 = _subborrow_u25(x21, x4, 0x1ffffff, &x23); - { uint32_t x26; uint8_t/*bool*/ x27 = _subborrow_u26(x24, x6, 0x3ffffff, &x26); - { uint32_t x29; uint8_t/*bool*/ x30 = _subborrow_u25(x27, x8, 0x1ffffff, &x29); - { uint32_t x32; uint8_t/*bool*/ x33 = _subborrow_u26(x30, x10, 0x3ffffff, &x32); - { uint32_t x35; uint8_t/*bool*/ x36 = _subborrow_u25(x33, x12, 0x1ffffff, &x35); - { uint32_t x38; uint8_t/*bool*/ x39 = _subborrow_u26(x36, x14, 0x3ffffff, &x38); - { uint32_t x41; uint8_t/*bool*/ x42 = _subborrow_u25(x39, x16, 0x1ffffff, &x41); - { uint32_t x44; uint8_t/*bool*/ x45 = _subborrow_u26(x42, x18, 0x3ffffff, &x44); - { uint32_t x47; uint8_t/*bool*/ x48 = _subborrow_u25(x45, x17, 0x1ffffff, &x47); - { uint32_t x49 = cmovznz32(x48, 0x0, 0xffffffff); - { uint32_t x50 = (x49 & 0x3ffffed); - { uint32_t x52; uint8_t/*bool*/ x53 = _addcarryx_u26(0x0, x20, x50, &x52); - { uint32_t x54 = (x49 & 0x1ffffff); - { uint32_t x56; uint8_t/*bool*/ x57 = _addcarryx_u25(x53, x23, x54, &x56); - { uint32_t x58 = (x49 & 0x3ffffff); - { uint32_t x60; uint8_t/*bool*/ x61 = _addcarryx_u26(x57, x26, x58, &x60); - { uint32_t x62 = (x49 & 0x1ffffff); - { uint32_t x64; uint8_t/*bool*/ x65 = _addcarryx_u25(x61, x29, x62, &x64); - { uint32_t x66 = (x49 & 0x3ffffff); - { uint32_t x68; uint8_t/*bool*/ x69 = _addcarryx_u26(x65, x32, x66, &x68); - { uint32_t x70 = (x49 & 0x1ffffff); - { uint32_t x72; uint8_t/*bool*/ x73 = _addcarryx_u25(x69, x35, x70, &x72); - { uint32_t x74 = (x49 & 0x3ffffff); - { uint32_t x76; uint8_t/*bool*/ x77 = _addcarryx_u26(x73, x38, x74, &x76); - { uint32_t x78 = (x49 & 0x1ffffff); - { uint32_t x80; uint8_t/*bool*/ x81 = _addcarryx_u25(x77, x41, x78, &x80); - { uint32_t x82 = (x49 & 0x3ffffff); - { uint32_t x84; uint8_t/*bool*/ x85 = _addcarryx_u26(x81, x44, x82, &x84); - { uint32_t x86 = (x49 & 0x1ffffff); - { uint32_t x88; uint8_t/*bool*/ _ = _addcarryx_u25(x85, x47, x86, &x88); - out[0] = x52; - out[1] = x56; - out[2] = x60; - out[3] = x64; - out[4] = x68; - out[5] = x72; - out[6] = x76; - out[7] = x80; - out[8] = x84; - out[9] = x88; - }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} -} diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/freeze.v b/src/Specific/solinas32_2e255m19_10limbs_donna/freeze.v deleted file mode 100644 index c57bd2f06..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/freeze.v +++ /dev/null @@ -1,14 +0,0 @@ -Require Import Crypto.Arithmetic.PrimeFieldTheorems. -Require Import Crypto.Specific.solinas32_2e255m19_10limbs_donna.Synthesis. - -(* TODO : change this to field once field isomorphism happens *) -Definition freeze : - { freeze : feBW_tight -> feBW_limbwidths - | forall a, phiBW_limbwidths (freeze a) = phiBW_tight a }. -Proof. - Set Ltac Profiling. - Time synthesize_freeze (). - Show Ltac Profile. -Time Defined. - -Print Assumptions freeze. diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/freezeDisplay.log b/src/Specific/solinas32_2e255m19_10limbs_donna/freezeDisplay.log deleted file mode 100644 index 71d7c1cbb..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/freezeDisplay.log +++ /dev/null @@ -1,38 +0,0 @@ -λ x : word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32, -Interp-η -(λ var : Syntax.base_type → Type, - λ '(x17, x18, x16, x14, x12, x10, x8, x6, x4, x2)%core, - uint32_t x20, uint8_t/*bool*/ x21 = subborrow_u26(0x0, x2, 0x3ffffed); - uint32_t x23, uint8_t/*bool*/ x24 = subborrow_u25(x21, x4, 0x1ffffff); - uint32_t x26, uint8_t/*bool*/ x27 = subborrow_u26(x24, x6, 0x3ffffff); - uint32_t x29, uint8_t/*bool*/ x30 = subborrow_u25(x27, x8, 0x1ffffff); - uint32_t x32, uint8_t/*bool*/ x33 = subborrow_u26(x30, x10, 0x3ffffff); - uint32_t x35, uint8_t/*bool*/ x36 = subborrow_u25(x33, x12, 0x1ffffff); - uint32_t x38, uint8_t/*bool*/ x39 = subborrow_u26(x36, x14, 0x3ffffff); - uint32_t x41, uint8_t/*bool*/ x42 = subborrow_u25(x39, x16, 0x1ffffff); - uint32_t x44, uint8_t/*bool*/ x45 = subborrow_u26(x42, x18, 0x3ffffff); - uint32_t x47, uint8_t/*bool*/ x48 = subborrow_u25(x45, x17, 0x1ffffff); - uint32_t x49 = cmovznz32(x48, 0x0, 0xffffffff); - uint32_t x50 = (x49 & 0x3ffffed); - uint32_t x52, uint8_t/*bool*/ x53 = addcarryx_u26(0x0, x20, x50); - uint32_t x54 = (x49 & 0x1ffffff); - uint32_t x56, uint8_t/*bool*/ x57 = addcarryx_u25(x53, x23, x54); - uint32_t x58 = (x49 & 0x3ffffff); - uint32_t x60, uint8_t/*bool*/ x61 = addcarryx_u26(x57, x26, x58); - uint32_t x62 = (x49 & 0x1ffffff); - uint32_t x64, uint8_t/*bool*/ x65 = addcarryx_u25(x61, x29, x62); - uint32_t x66 = (x49 & 0x3ffffff); - uint32_t x68, uint8_t/*bool*/ x69 = addcarryx_u26(x65, x32, x66); - uint32_t x70 = (x49 & 0x1ffffff); - uint32_t x72, uint8_t/*bool*/ x73 = addcarryx_u25(x69, x35, x70); - uint32_t x74 = (x49 & 0x3ffffff); - uint32_t x76, uint8_t/*bool*/ x77 = addcarryx_u26(x73, x38, x74); - uint32_t x78 = (x49 & 0x1ffffff); - uint32_t x80, uint8_t/*bool*/ x81 = addcarryx_u25(x77, x41, x78); - uint32_t x82 = (x49 & 0x3ffffff); - uint32_t x84, uint8_t/*bool*/ x85 = addcarryx_u26(x81, x44, x82); - uint32_t x86 = (x49 & 0x1ffffff); - uint32_t x88, uint8_t/*bool*/ _ = addcarryx_u25(x85, x47, x86); - (Return x88, Return x84, Return x80, Return x76, Return x72, Return x68, Return x64, Return x60, Return x56, Return x52)) -x - : word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 → ReturnType (uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t * uint32_t) diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/freezeDisplay.v b/src/Specific/solinas32_2e255m19_10limbs_donna/freezeDisplay.v deleted file mode 100644 index 3992875a2..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/freezeDisplay.v +++ /dev/null @@ -1,4 +0,0 @@ -Require Import Crypto.Specific.solinas32_2e255m19_10limbs_donna.freeze. -Require Import Crypto.Specific.Framework.IntegrationTestDisplayCommon. - -Check display freeze. diff --git a/src/Specific/solinas32_2e255m19_10limbs_donna/py_interpreter.sh b/src/Specific/solinas32_2e255m19_10limbs_donna/py_interpreter.sh deleted file mode 100755 index c5b125c07..000000000 --- a/src/Specific/solinas32_2e255m19_10limbs_donna/py_interpreter.sh +++ /dev/null @@ -1,4 +0,0 @@ -#!/bin/sh -set -eu - -/usr/bin/env python3 "$@" -Dq='2**255 - 19' -Dmodulus_bytes='25.5' -Da24='121665' |