6 files changed, 125 insertions, 0 deletions
diff --git a/src/Specific/solinas64_2e174m3/femul.c b/src/Specific/solinas64_2e174m3/femul.c
new file mode 100644
index 000000000..4b25d07dd
--- /dev/null
+++ b/src/Specific/solinas64_2e174m3/femul.c
@@ -0,0 +1,41 @@
+#include <stdint.h>
+#include <stdbool.h>
+#include <x86intrin.h>
+#include "liblow.h"
+
+#include "femul.h"
+
+typedef unsigned int uint128_t __attribute__((mode(TI)));
+
+#if (defined(__GNUC__) || defined(__GNUG__)) && !(defined(__clang__)||defined(__INTEL_COMPILER))
+// https://gcc.gnu.org/bugzilla/show_bug.cgi?id=81294
+#define _subborrow_u32 __builtin_ia32_sbb_u32
+#define _subborrow_u64 __builtin_ia32_sbb_u64
+#endif
+
+#undef force_inline
+#define force_inline __attribute__((always_inline))
+
+void force_inline femul(uint64_t* out, uint64_t x6, uint64_t x7, uint64_t x5, uint64_t x10, uint64_t x11, uint64_t x9)
+{  uint128_t x12 = (((uint128_t)x5 * x10) + (((uint128_t)x7 * x11) + ((uint128_t)x6 * x9)));
+{  uint128_t x13 = ((((uint128_t)x5 * x11) + ((uint128_t)x7 * x9)) + (0x3 * ((uint128_t)x6 * x10)));
+{  uint128_t x14 = (((uint128_t)x5 * x9) + (0x3 * (((uint128_t)x7 * x10) + ((uint128_t)x6 * x11))));
+{  uint128_t x15 = (x14 >> 0x3a);
+{  uint64_t x16 = ((uint64_t)x14 & 0x3ffffffffffffff);
+{  uint128_t x17 = (x15 + x13);
+{  uint64_t x18 = (uint64_t) (x17 >> 0x3a);
+{  uint64_t x19 = ((uint64_t)x17 & 0x3ffffffffffffff);
+{  uint128_t x20 = (x18 + x12);
+{  uint64_t x21 = (uint64_t) (x20 >> 0x3a);
+{  uint64_t x22 = ((uint64_t)x20 & 0x3ffffffffffffff);
+{  uint128_t x23 = (x16 + ((uint128_t)0x3 * x21));
+{  uint64_t x24 = (uint64_t) (x23 >> 0x3a);
+{  uint64_t x25 = ((uint64_t)x23 & 0x3ffffffffffffff);
+{  uint64_t x26 = (x24 + x19);
+{  uint64_t x27 = (x26 >> 0x3a);
+{  uint64_t x28 = (x26 & 0x3ffffffffffffff);
+out[0] = x27 + x22;
+out[1] = x28;
+out[2] = x25;
+}}}}}}}}}}}}}}}}}
+// caller: uint64_t out[3];
diff --git a/src/Specific/solinas64_2e174m3/femul.h b/src/Specific/solinas64_2e174m3/femul.h
new file mode 100644
index 000000000..e0b73959c
--- /dev/null
+++ b/src/Specific/solinas64_2e174m3/femul.h
@@ -0,0 +1,6 @@
+#include <stdint.h>
+
+#undef force_inline
+#define force_inline __attribute__((always_inline))
+
+void force_inline femul(uint64_t* out, uint64_t x6, uint64_t x7, uint64_t x5, uint64_t x10, uint64_t x11, uint64_t x9);
diff --git a/src/Specific/solinas64_2e174m3/fesquare.c b/src/Specific/solinas64_2e174m3/fesquare.c
new file mode 100644
index 000000000..15db1a41d
--- /dev/null
+++ b/src/Specific/solinas64_2e174m3/fesquare.c
@@ -0,0 +1,41 @@
+#include <stdint.h>
+#include <stdbool.h>
+#include <x86intrin.h>
+#include "liblow.h"
+
+#include "fesquare.h"
+
+typedef unsigned int uint128_t __attribute__((mode(TI)));
+
+#if (defined(__GNUC__) || defined(__GNUG__)) && !(defined(__clang__)||defined(__INTEL_COMPILER))
+// https://gcc.gnu.org/bugzilla/show_bug.cgi?id=81294
+#define _subborrow_u32 __builtin_ia32_sbb_u32
+#define _subborrow_u64 __builtin_ia32_sbb_u64
+#endif
+
+#undef force_inline
+#define force_inline __attribute__((always_inline))
+
+void force_inline fesquare(uint64_t* out, uint64_t x3, uint64_t x4, uint64_t x2)
+{  uint128_t x5 = (((uint128_t)x2 * x3) + (((uint128_t)x4 * x4) + ((uint128_t)x3 * x2)));
+{  uint128_t x6 = ((((uint128_t)x2 * x4) + ((uint128_t)x4 * x2)) + (0x3 * ((uint128_t)x3 * x3)));
+{  uint128_t x7 = (((uint128_t)x2 * x2) + (0x3 * (((uint128_t)x4 * x3) + ((uint128_t)x3 * x4))));
+{  uint128_t x8 = (x7 >> 0x3a);
+{  uint64_t x9 = ((uint64_t)x7 & 0x3ffffffffffffff);
+{  uint128_t x10 = (x8 + x6);
+{  uint64_t x11 = (uint64_t) (x10 >> 0x3a);
+{  uint64_t x12 = ((uint64_t)x10 & 0x3ffffffffffffff);
+{  uint128_t x13 = (x11 + x5);
+{  uint64_t x14 = (uint64_t) (x13 >> 0x3a);
+{  uint64_t x15 = ((uint64_t)x13 & 0x3ffffffffffffff);
+{  uint128_t x16 = (x9 + ((uint128_t)0x3 * x14));
+{  uint64_t x17 = (uint64_t) (x16 >> 0x3a);
+{  uint64_t x18 = ((uint64_t)x16 & 0x3ffffffffffffff);
+{  uint64_t x19 = (x17 + x12);
+{  uint64_t x20 = (x19 >> 0x3a);
+{  uint64_t x21 = (x19 & 0x3ffffffffffffff);
+out[0] = x20 + x15;
+out[1] = x21;
+out[2] = x18;
+}}}}}}}}}}}}}}}}}
+// caller: uint64_t out[3];
diff --git a/src/Specific/solinas64_2e174m3/fesquare.h b/src/Specific/solinas64_2e174m3/fesquare.h
new file mode 100644
index 000000000..1ed96cada
--- /dev/null
+++ b/src/Specific/solinas64_2e174m3/fesquare.h
@@ -0,0 +1,6 @@
+#include <stdint.h>
+
+#undef force_inline
+#define force_inline __attribute__((always_inline))
+
+void force_inline fesquare(uint64_t* out, uint64_t x3, uint64_t x4, uint64_t x2);
diff --git a/src/Specific/solinas64_2e174m3/freeze.c b/src/Specific/solinas64_2e174m3/freeze.c
new file mode 100644
index 000000000..57ba69349
--- /dev/null
+++ b/src/Specific/solinas64_2e174m3/freeze.c
@@ -0,0 +1,25 @@
+#include <stdint.h>
+#include <stdbool.h>
+#include <x86intrin.h>
+#include "liblow.h"
+
+#include "freeze.h"
+
+typedef unsigned int uint128_t __attribute__((mode(TI)));
+
+#if (defined(__GNUC__) || defined(__GNUG__)) && !(defined(__clang__)||defined(__INTEL_COMPILER))
+// https://gcc.gnu.org/bugzilla/show_bug.cgi?id=81294
+#define _subborrow_u32 __builtin_ia32_sbb_u32
+#define _subborrow_u64 __builtin_ia32_sbb_u64
+#endif
+
+#undef force_inline
+#define force_inline __attribute__((always_inline))
+
+void force_inline freeze(uint64_t* out, uint64_t x3, uint64_t x4, uint64_t x2)
+out[0] = uint64_t x6;
+out[1] = uint8_t x7 = Op Syntax.SubWithGetBorrow 58 Syntax.TWord 3 Syntax.TWord 6 Syntax.TWord 6 Syntax.TWord 6 Syntax.TWord 3 0x0;
+out[2] = x2;
+out[3] = 0x3fffffffffffffd;;
+}
+// caller: uint64_t out[4];
diff --git a/src/Specific/solinas64_2e174m3/freeze.h b/src/Specific/solinas64_2e174m3/freeze.h
new file mode 100644
index 000000000..b11039470
--- /dev/null
+++ b/src/Specific/solinas64_2e174m3/freeze.h
@@ -0,0 +1,6 @@
+#include <stdint.h>
+
+#undef force_inline
+#define force_inline __attribute__((always_inline))
+
+void force_inline freeze(uint64_t* out, uint64_t x3, uint64_t x4, uint64_t x2);