1 files changed, 38 insertions, 0 deletions
diff --git a/src/Specific/montgomery64_2e230m27/feopp.c b/src/Specific/montgomery64_2e230m27/feopp.c
new file mode 100644
index 000000000..8dc2603ae
--- /dev/null
+++ b/src/Specific/montgomery64_2e230m27/feopp.c
@@ -0,0 +1,38 @@
+#include <stdint.h>
+#include <stdbool.h>
+#include <x86intrin.h>
+#include "liblow.h"
+
+#include "feopp.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 feopp(uint64_t* out, uint64_t x5, uint64_t x6, uint64_t x4, uint64_t x2)
+{  uint64_t x8; uint8_t x9 = _subborrow_u64(0x0, 0x0, x2, &x8);
+{  uint64_t x11; uint8_t x12 = _subborrow_u64(x9, 0x0, x4, &x11);
+{  uint64_t x14; uint8_t x15 = _subborrow_u64(x12, 0x0, x6, &x14);
+{  uint64_t x17; uint8_t x18 = _subborrow_u64(x15, 0x0, x5, &x17);
+{  uint64_t x19 = (uint64_t)cmovznz(x18, 0x0, 0xffffffffffffffffL);
+{  uint64_t x20 = (x19 & 0xffffffffffffffe5L);
+{  uint64_t x22; uint8_t x23 = _addcarryx_u64(0x0, x8, x20, &x22);
+{  uint64_t x24 = (x19 & 0xffffffffffffffffL);
+{  uint64_t x26; uint8_t x27 = _addcarryx_u64(x23, x11, x24, &x26);
+{  uint64_t x28 = (x19 & 0xffffffffffffffffL);
+{  uint64_t x30; uint8_t x31 = _addcarryx_u64(x27, x14, x28, &x30);
+{  uint64_t x32 = (x19 & 0x3fffffffff);
+{  uint64_t x34; uint8_t _ = _addcarryx_u64(x31, x17, x32, &x34);
+out[0] = x34;
+out[1] = x30;
+out[2] = x26;
+out[3] = x22;
+}}}}}}}}}}}}}
+// caller: uint64_t out[4];