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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
λ x : word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32 * word32,
Interp-η
(λ var : Syntax.base_type → Type,
λ '(x15, x16, x14, x12, x10, x8, x6, x4, x2)%core,
ℤ x17 = ((((uint64_t)x2 * x15) + ((0x2 * ((uint64_t)x4 * x16)) + (((uint64_t)x6 * x14) + (((uint64_t)x8 * x12) + ((0x2 * ((uint64_t)x10 * x10)) + (((uint64_t)x12 * x8) + (((uint64_t)x14 * x6) + ((0x2 * ((uint64_t)x16 * x4)) + ((uint64_t)x15 * x2))))))))) +ℤ ((((uint64_t)x14 * x15) + ((0x2 * ((uint64_t)x16 * x16)) + ((uint64_t)x15 * x14))) +ℤ ((0x200000 *ℤ ((0x2 * ((uint64_t)x16 * x15)) + (0x2 * ((uint64_t)x15 * x16)))) +ℤ (0x80000000000 *ℤ ((uint64_t)x15 * x15)))));
uint64_t x18 = ((((uint64_t)x2 * x16) + (((uint64_t)x4 * x14) + (((uint64_t)x6 * x12) + (((uint64_t)x8 * x10) + (((uint64_t)x10 * x8) + (((uint64_t)x12 * x6) + (((uint64_t)x14 * x4) + ((uint64_t)x16 * x2)))))))) + (((uint64_t)x15 * x15) + (((uint64_t)x12 * x15) + (((uint64_t)x14 * x16) + (((uint64_t)x16 * x14) + ((uint64_t)x15 * x12))))));
uint64_t x19 = ((((uint64_t)x2 * x14) + ((0x2 * ((uint64_t)x4 * x12)) + ((0x2 * ((uint64_t)x6 * x10)) + (((uint64_t)x8 * x8) + ((0x2 * ((uint64_t)x10 * x6)) + ((0x2 * ((uint64_t)x12 * x4)) + ((uint64_t)x14 * x2))))))) + (((0x2 * ((uint64_t)x16 * x15)) + (0x2 * ((uint64_t)x15 * x16))) + ((0x2 * ((uint64_t)x10 * x15)) + ((0x2 * ((uint64_t)x12 * x16)) + (((uint64_t)x14 * x14) + ((0x2 * ((uint64_t)x16 * x12)) + (0x2 * ((uint64_t)x15 * x10))))))));
uint64_t x20 = ((((uint64_t)x2 * x12) + ((0x2 * ((uint64_t)x4 * x10)) + (((uint64_t)x6 * x8) + (((uint64_t)x8 * x6) + ((0x2 * ((uint64_t)x10 * x4)) + ((uint64_t)x12 * x2)))))) + ((((uint64_t)x14 * x15) + ((0x2 * ((uint64_t)x16 * x16)) + ((uint64_t)x15 * x14))) + (((uint64_t)x8 * x15) + ((0x2 * ((uint64_t)x10 * x16)) + (((uint64_t)x12 * x14) + (((uint64_t)x14 * x12) + ((0x2 * ((uint64_t)x16 * x10)) + ((uint64_t)x15 * x8))))))));
uint64_t x21 = ((((uint64_t)x2 * x10) + (((uint64_t)x4 * x8) + (((uint64_t)x6 * x6) + (((uint64_t)x8 * x4) + ((uint64_t)x10 * x2))))) + ((((uint64_t)x12 * x15) + (((uint64_t)x14 * x16) + (((uint64_t)x16 * x14) + ((uint64_t)x15 * x12)))) + (((uint64_t)x6 * x15) + (((uint64_t)x8 * x16) + (((uint64_t)x10 * x14) + (((uint64_t)x12 * x12) + (((uint64_t)x14 * x10) + (((uint64_t)x16 * x8) + ((uint64_t)x15 * x6)))))))));
uint64_t x22 = ((((uint64_t)x2 * x8) + ((0x2 * ((uint64_t)x4 * x6)) + ((0x2 * ((uint64_t)x6 * x4)) + ((uint64_t)x8 * x2)))) + (((0x2 * ((uint64_t)x10 * x15)) + ((0x2 * ((uint64_t)x12 * x16)) + (((uint64_t)x14 * x14) + ((0x2 * ((uint64_t)x16 * x12)) + (0x2 * ((uint64_t)x15 * x10)))))) + ((0x2 * ((uint64_t)x4 * x15)) + ((0x2 * ((uint64_t)x6 * x16)) + (((uint64_t)x8 * x14) + ((0x2 * ((uint64_t)x10 * x12)) + ((0x2 * ((uint64_t)x12 * x10)) + (((uint64_t)x14 * x8) + ((0x2 * ((uint64_t)x16 * x6)) + (0x2 * ((uint64_t)x15 * x4)))))))))));
uint64_t x23 = ((((uint64_t)x2 * x6) + ((0x2 * ((uint64_t)x4 * x4)) + ((uint64_t)x6 * x2))) + (((uint64_t)x8 * x15) + ((0x2 * ((uint64_t)x10 * x16)) + (((uint64_t)x12 * x14) + (((uint64_t)x14 * x12) + ((0x2 * ((uint64_t)x16 * x10)) + ((uint64_t)x15 * x8)))))));
uint64_t x24 = ((((uint64_t)x2 * x4) + ((uint64_t)x4 * x2)) + (((uint64_t)x6 * x15) + (((uint64_t)x8 * x16) + (((uint64_t)x10 * x14) + (((uint64_t)x12 * x12) + (((uint64_t)x14 * x10) + (((uint64_t)x16 * x8) + ((uint64_t)x15 * x6))))))));
uint64_t x25 = (((uint64_t)x2 * x2) + ((0x2 * ((uint64_t)x4 * x15)) + ((0x2 * ((uint64_t)x6 * x16)) + (((uint64_t)x8 * x14) + ((0x2 * ((uint64_t)x10 * x12)) + ((0x2 * ((uint64_t)x12 * x10)) + (((uint64_t)x14 * x8) + ((0x2 * ((uint64_t)x16 * x6)) + (0x2 * ((uint64_t)x15 * x4))))))))));
uint32_t x26 = (uint32_t) (x23 >> 0x15);
uint32_t x27 = ((uint32_t)x23 & 0x1fffff);
ℤ x28 = (x17 >>ℤ 0x15);
uint32_t x29 = (x17 & 0x1fffff);
ℤ x30 = ((0x200000 *ℤ x28) +ℤ x29);
ℤ x31 = (x30 >>ℤ 0x15);
uint32_t x32 = (x30 & 0x1fffff);
ℤ x33 = ((x26 + x22) +ℤ x31);
uint64_t x34 = (x33 >> 0x16);
uint32_t x35 = (x33 & 0x3fffff);
ℤ x36 = (x25 +ℤ x31);
uint64_t x37 = (x36 >> 0x16);
uint32_t x38 = (x36 & 0x3fffff);
uint64_t x39 = (x34 + x21);
uint32_t x40 = (uint32_t) (x39 >> 0x15);
uint32_t x41 = ((uint32_t)x39 & 0x1fffff);
uint64_t x42 = (x37 + x24);
uint32_t x43 = (uint32_t) (x42 >> 0x15);
uint32_t x44 = ((uint32_t)x42 & 0x1fffff);
uint64_t x45 = (x40 + x20);
uint32_t x46 = (uint32_t) (x45 >> 0x15);
uint32_t x47 = ((uint32_t)x45 & 0x1fffff);
uint32_t x48 = (x43 + x27);
uint32_t x49 = (x48 >> 0x15);
uint32_t x50 = (x48 & 0x1fffff);
uint64_t x51 = (x46 + x19);
uint32_t x52 = (uint32_t) (x51 >> 0x16);
uint32_t x53 = ((uint32_t)x51 & 0x3fffff);
uint64_t x54 = (x52 + x18);
uint32_t x55 = (uint32_t) (x54 >> 0x15);
uint32_t x56 = ((uint32_t)x54 & 0x1fffff);
uint32_t x57 = (x55 + x32);
uint32_t x58 = (x57 >> 0x15);
uint32_t x59 = (x57 & 0x1fffff);
uint32_t x60 = ((0x200000 * x58) + x59);
uint32_t x61 = (x60 >> 0x15);
uint32_t x62 = (x60 & 0x1fffff);
uint32_t x63 = ((x49 + x35) + x61);
uint32_t x64 = (x63 >> 0x16);
uint32_t x65 = (x63 & 0x3fffff);
uint32_t x66 = (x38 + x61);
uint32_t x67 = (x66 >> 0x16);
uint32_t x68 = (x66 & 0x3fffff);
return (Return x62, Return x56, Return x53, Return x47, (x64 + x41), Return x65, Return x50, (x67 + x44), Return x68))
x
: 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)
|
