1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
λ x : word64 * word64 * word64 * word64,
Interp-η
(λ var : Syntax.base_type → Type,
λ '(x5, x6, x4, x2)%core,
uint64_t x8, uint8_t x9 = subborrow_u64(0x0, 0x0, x2);
uint64_t x11, uint8_t x12 = subborrow_u64(x9, 0x0, x4);
uint64_t x14, uint8_t x15 = subborrow_u64(x12, 0x0, x6);
uint64_t x17, uint8_t x18 = subborrow_u64(x15, 0x0, x5);
uint64_t x19 = (uint64_t) (x18 == 0 ? 0x0 : 0xffffffffffffffffL);
uint64_t x20 = x19 & 0xffffffffffffffffL;
uint64_t x22, uint8_t x23 = addcarryx_u64(0x0, x8, x20);
uint64_t x24 = x19 & 0xffffffff;
uint64_t x26, uint8_t x27 = addcarryx_u64(x23, x11, x24);
uint64_t x29, uint8_t x30 = addcarryx_u64(x27, x14, 0x0);
uint64_t x31 = x19 & 0xffffffff00000001L;
uint128_t x32 = 0x10000000000000000L * x18;
ℤ x33 = Op (Syntax.Opp (Syntax.TWord 7) Syntax.TZ) (Return x32);
uint64_t x35, ℤ _ = addcarryx_u64ℤ(x17, x33, x31);
uint64_t x38, uint8_t _ = addcarryx_u64(0x0, x30, x35);
(Return x38, Return x29, Return x26, Return x22))
x
: word64 * word64 * word64 * word64 → ReturnType (uint64_t * uint64_t * uint64_t * uint64_t)
|
