blob: 764324a532dfdd07b78f0b801b2cc0e1d57d0a18 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
λ x : word64 * word64 * word64 * word64,
Interp-η
(λ var : Syntax.base_type → Type,
λ '(x5, x6, x4, x2)%core,
uint128_t x7 = (((uint128_t)x2 * x5) + (((uint128_t)x4 * x6) + (((uint128_t)x6 * x4) + ((uint128_t)x5 * x2))));
uint128_t x8 = ((((uint128_t)x2 * x6) + (((uint128_t)x4 * x4) + ((uint128_t)x6 * x2))) + (0xf * ((uint128_t)x5 * x5)));
uint128_t x9 = ((((uint128_t)x2 * x4) + ((uint128_t)x4 * x2)) + (0xf * (((uint128_t)x6 * x5) + ((uint128_t)x5 * x6))));
uint128_t x10 = (((uint128_t)x2 * x2) + (0xf * (((uint128_t)x4 * x5) + (((uint128_t)x6 * x6) + ((uint128_t)x5 * x4)))));
uint64_t x11 = (uint64_t) (x10 >> 0x31);
uint64_t x12 = ((uint64_t)x10 & 0x1ffffffffffff);
uint128_t x13 = (x11 + x9);
uint64_t x14 = (uint64_t) (x13 >> 0x31);
uint64_t x15 = ((uint64_t)x13 & 0x1ffffffffffff);
uint128_t x16 = (x14 + x8);
uint64_t x17 = (uint64_t) (x16 >> 0x31);
uint64_t x18 = ((uint64_t)x16 & 0x1ffffffffffff);
uint128_t x19 = (x17 + x7);
uint64_t x20 = (uint64_t) (x19 >> 0x31);
uint64_t x21 = ((uint64_t)x19 & 0x1ffffffffffff);
uint64_t x22 = (x12 + (0xf * x20));
uint64_t x23 = (x22 >> 0x31);
uint64_t x24 = (x22 & 0x1ffffffffffff);
uint64_t x25 = (x23 + x15);
uint64_t x26 = (x25 >> 0x31);
uint64_t x27 = (x25 & 0x1ffffffffffff);
return (Return x21, (x26 + x18), Return x27, Return x24))
x
: word64 * word64 * word64 * word64 → ReturnType (uint64_t * uint64_t * uint64_t * uint64_t)
|
