blob: f9b2d40b2725733ebadfd57efe6922aea14b8389 (
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
λ x : word64 * word64 * word64 * word64 * word64 * word64,
Interp-η
(λ var : Syntax.base_type → Type,
λ '(x9, x10, x8, x6, x4, x2)%core,
uint128_t x11 = (((uint128_t)x2 * x9) + (((uint128_t)x4 * x10) + (((uint128_t)x6 * x8) + (((uint128_t)x8 * x6) + (((uint128_t)x10 * x4) + ((uint128_t)x9 * x2))))));
uint128_t x12 = ((((uint128_t)x2 * x10) + (((uint128_t)x4 * x8) + ((0x2 * ((uint128_t)x6 * x6)) + (((uint128_t)x8 * x4) + ((uint128_t)x10 * x2))))) + ((0x3d1 * (0x2 * ((uint128_t)x9 * x9))) + (0x100000000 * (0x2 * ((uint128_t)x9 * x9)))));
uint128_t x13 = ((((uint128_t)x2 * x8) + ((0x2 * ((uint128_t)x4 * x6)) + ((0x2 * ((uint128_t)x6 * x4)) + ((uint128_t)x8 * x2)))) + ((0x3d1 * ((0x2 * ((uint128_t)x10 * x9)) + (0x2 * ((uint128_t)x9 * x10)))) + (0x100000000 * ((0x2 * ((uint128_t)x10 * x9)) + (0x2 * ((uint128_t)x9 * x10))))));
uint128_t x14 = ((((uint128_t)x2 * x6) + (((uint128_t)x4 * x4) + ((uint128_t)x6 * x2))) + ((0x3d1 * (((uint128_t)x8 * x9) + (((uint128_t)x10 * x10) + ((uint128_t)x9 * x8)))) + (0x100000000 * (((uint128_t)x8 * x9) + (((uint128_t)x10 * x10) + ((uint128_t)x9 * x8))))));
uint128_t x15 = ((((uint128_t)x2 * x4) + ((uint128_t)x4 * x2)) + ((0x3d1 * ((0x2 * ((uint128_t)x6 * x9)) + (((uint128_t)x8 * x10) + (((uint128_t)x10 * x8) + (0x2 * ((uint128_t)x9 * x6)))))) + (0x100000000 * ((0x2 * ((uint128_t)x6 * x9)) + (((uint128_t)x8 * x10) + (((uint128_t)x10 * x8) + (0x2 * ((uint128_t)x9 * x6))))))));
uint128_t x16 = (((uint128_t)x2 * x2) + ((0x3d1 * ((0x2 * ((uint128_t)x4 * x9)) + ((0x2 * ((uint128_t)x6 * x10)) + (((uint128_t)x8 * x8) + ((0x2 * ((uint128_t)x10 * x6)) + (0x2 * ((uint128_t)x9 * x4))))))) + (0x100000000 * ((0x2 * ((uint128_t)x4 * x9)) + ((0x2 * ((uint128_t)x6 * x10)) + (((uint128_t)x8 * x8) + ((0x2 * ((uint128_t)x10 * x6)) + (0x2 * ((uint128_t)x9 * x4)))))))));
uint64_t x17 = (uint64_t) (x11 >> 0x2a);
uint64_t x18 = ((uint64_t)x11 & 0x3ffffffffff);
uint128_t x19 = (((uint128_t)0x40000000000 * x17) + x18);
uint64_t x20 = (uint64_t) (x19 >> 0x2a);
uint64_t x21 = ((uint64_t)x19 & 0x3ffffffffff);
uint128_t x22 = (((uint128_t)0x40000000000 * x20) + x21);
uint64_t x23 = (uint64_t) (x22 >> 0x2a);
uint64_t x24 = ((uint64_t)x22 & 0x3ffffffffff);
uint128_t x25 = (x16 + ((0x3d1 * x23) + ((uint128_t)0x100000000 * x23)));
uint128_t x26 = (x25 >> 0x2b);
uint64_t x27 = ((uint64_t)x25 & 0x7ffffffffff);
uint128_t x28 = (x26 + x15);
uint128_t x29 = (x28 >> 0x2b);
uint64_t x30 = ((uint64_t)x28 & 0x7ffffffffff);
uint128_t x31 = (x29 + x14);
uint128_t x32 = (x31 >> 0x2a);
uint64_t x33 = ((uint64_t)x31 & 0x3ffffffffff);
uint128_t x34 = (x32 + x13);
uint128_t x35 = (x34 >> 0x2b);
uint64_t x36 = ((uint64_t)x34 & 0x7ffffffffff);
uint128_t x37 = (x35 + x12);
uint128_t x38 = (x37 >> 0x2b);
uint64_t x39 = ((uint64_t)x37 & 0x7ffffffffff);
uint128_t x40 = (x38 + x24);
uint64_t x41 = (uint64_t) (x40 >> 0x2a);
uint64_t x42 = ((uint64_t)x40 & 0x3ffffffffff);
uint128_t x43 = (x27 + ((0x3d1 * x41) + ((uint128_t)0x100000000 * x41)));
uint64_t x44 = (uint64_t) (x43 >> 0x2b);
uint64_t x45 = ((uint64_t)x43 & 0x7ffffffffff);
uint64_t x46 = (x45 >> 0x2b);
uint64_t x47 = (x45 & 0x7ffffffffff);
return (Return x42, Return x39, Return x36, Return x33, (x46 + (x44 + x30)), Return x47))
x
: word64 * word64 * word64 * word64 * word64 * word64 → ReturnType (uint64_t * uint64_t * uint64_t * uint64_t * uint64_t * uint64_t)
|
