#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */
typedef int uint64_t;
typedef int /*<<< orphan*/ A;

/* Variables and functions */
int BitInterleave(int);
int /*<<< orphan*/ KeccakF1600(int **);
int /*<<< orphan*/ assert(int);
size_t SHA3_absorb(uint64_t A[5][5], const unsigned char *inp, size_t len,
                   size_t r) {
  uint64_t *A_flat = (uint64_t *)A;
  size_t i, w = r / 8;
  assert(r < (25 * sizeof(A[0][0])) && (r % 8) == 0);
  while (len >= r) {
    for (i = 0; i < w; i++) {
      uint64_t Ai = (uint64_t)inp[0] | (uint64_t)inp[1] << 8 |
                    (uint64_t)inp[2] << 16 | (uint64_t)inp[3] << 24 |
                    (uint64_t)inp[4] << 32 | (uint64_t)inp[5] << 40 |
                    (uint64_t)inp[6] << 48 | (uint64_t)inp[7] << 56;
      inp += 8;
      A_flat[i] ^= BitInterleave(Ai);
    }
    KeccakF1600(A);
    len -= r;
  }
  return len;
}


x86 assembly (clang, -O0):
<SHA3_absorb>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x20(%rbp),%rax
shr    $0x3,%rax
mov    %rax,-0x38(%rbp)
xor    %eax,%eax
cmpq   $0x64,-0x20(%rbp)
mov    %al,-0x3d(%rbp)
jae    117e <SHA3_absorb+0x4e>
mov    -0x20(%rbp),%rax
and    $0x7,%rax
cmp    $0x0,%rax
sete   %al
mov    %al,-0x3d(%rbp)
mov    -0x3d(%rbp),%al
and    $0x1,%al
movzbl %al,%edi
call   1040 <assert@plt>
mov    -0x18(%rbp),%rax
cmp    -0x20(%rbp),%rax
jb     127e <SHA3_absorb+0x14e>
movq   $0x0,-0x30(%rbp)
mov    -0x30(%rbp),%rax
cmp    -0x38(%rbp),%rax
jae    1261 <SHA3_absorb+0x131>
mov    -0x10(%rbp),%rax
movzbl (%rax),%eax
mov    -0x10(%rbp),%rcx
movzbl 0x1(%rcx),%ecx
shl    $0x8,%ecx
or     %ecx,%eax
mov    -0x10(%rbp),%rcx
movzbl 0x2(%rcx),%ecx
shl    $0x10,%ecx
or     %ecx,%eax
mov    -0x10(%rbp),%rcx
movzbl 0x3(%rcx),%ecx
shl    $0x18,%ecx
or     %ecx,%eax
mov    -0x10(%rbp),%rcx
movzbl 0x4(%rcx),%edx
mov    $0x20,%ecx
shl    %cl,%edx
mov    %edx,%ecx
or     %ecx,%eax
mov    -0x10(%rbp),%rcx
movzbl 0x5(%rcx),%edx
mov    $0x28,%ecx
shl    %cl,%edx
mov    %edx,%ecx
or     %ecx,%eax
mov    -0x10(%rbp),%rcx
movzbl 0x6(%rcx),%edx
mov    $0x30,%ecx
shl    %cl,%edx
mov    %edx,%ecx
or     %ecx,%eax
mov    -0x10(%rbp),%rcx
movzbl 0x7(%rcx),%edx
mov    $0x38,%ecx
shl    %cl,%edx
mov    %edx,%ecx
or     %ecx,%eax
mov    %eax,-0x3c(%rbp)
mov    -0x10(%rbp),%rax
add    $0x8,%rax
mov    %rax,-0x10(%rbp)
mov    -0x3c(%rbp),%edi
call   1050 <BitInterleave@plt>
mov    %eax,%edx
mov    -0x28(%rbp),%rax
mov    -0x30(%rbp),%rcx
xor    (%rax,%rcx,4),%edx
mov    %edx,(%rax,%rcx,4)
mov    -0x30(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
jmp    11a1 <SHA3_absorb+0x71>
mov    -0x8(%rbp),%rdi
call   1030 <KeccakF1600@plt>
mov    -0x20(%rbp),%rcx
mov    -0x18(%rbp),%rax
sub    %rcx,%rax
mov    %rax,-0x18(%rbp)
jmp    118b <SHA3_absorb+0x5b>
mov    -0x18(%rbp),%rax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<SHA3_absorb>:
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %rcx,%r14
mov    %rdx,%r15
mov    %rdi,%r12
cmp    $0x64,%rcx
setb   %al
test   $0x7,%r14b
sete   %cl
and    %al,%cl
movzbl %cl,%edi
call   1040 <assert@plt>
cmp    %r14,%r15
jae    116c <SHA3_absorb+0x3c>
mov    %r15,%rax
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
ret
mov    %r14,%rax
shr    $0x3,%rax
cmp    $0x2,%rax
mov    $0x1,%r13d
cmovae %rax,%r13
jmp    11a0 <SHA3_absorb+0x70>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    %r12,%rdi
call   1030 <KeccakF1600@plt>
sub    %r14,%r15
cmp    %r14,%r15
jb     115f <SHA3_absorb+0x2f>
cmp    $0x8,%r14
jb     1190 <SHA3_absorb+0x60>
xor    %ebx,%ebx
nopl   0x0(%rax,%rax,1)
call   1050 <BitInterleave@plt>
xor    %eax,(%r12,%rbx,4)
add    $0x1,%rbx
cmp    %rbx,%r13
jne    11b0 <SHA3_absorb+0x80>
jmp    1190 <SHA3_absorb+0x60>

LLVM IR (-O0):
define i64 @SHA3_absorb([5 x i32]* %0, i8* %1, i64 %2, i64 %3) {
%5 = alloca [5 x i32]*
%6 = alloca i8*
%7 = alloca i64
%8 = alloca i64
%9 = alloca i32*
%10 = alloca i64
%11 = alloca i64
%12 = alloca i32
store [5 x i32]* %0, [5 x i32]** %5
store i8* %1, i8** %6
store i64 %2, i64* %7
store i64 %3, i64* %8
%13 = load [5 x i32]*, [5 x i32]** %5
%14 = bitcast [5 x i32]* %13 to i32*
store i32* %14, i32** %9
%15 = load i64, i64* %8
%16 = udiv i64 %15, 8
store i64 %16, i64* %11
%17 = load i64, i64* %8
%18 = icmp ult i64 %17, 100
br i1 %18, label %19, label %23
19: ; preds = %4
%20 = load i64, i64* %8
%21 = urem i64 %20, 8
%22 = icmp eq i64 %21, 0
br label %23
23: ; preds = %19, %4
%24 = phi i1 [ false, %4 ], [ %22, %19 ]
%25 = zext i1 %24 to i32
%26 = call i32 @assert(i32 %25)
br label %27
27: ; preds = %95, %23
%28 = load i64, i64* %7
%29 = load i64, i64* %8
%30 = icmp uge i64 %28, %29
br i1 %30, label %31, label %102
31: ; preds = %27
store i64 0, i64* %10
br label %32
32: ; preds = %92, %31
%33 = load i64, i64* %10
%34 = load i64, i64* %11
%35 = icmp ult i64 %33, %34
br i1 %35, label %36, label %95
36: ; preds = %32
%37 = load i8*, i8** %6
%38 = getelementptr inbounds i8, i8* %37, i64 0
%39 = load i8, i8* %38
%40 = zext i8 %39 to i32
%41 = load i8*, i8** %6
%42 = getelementptr inbounds i8, i8* %41, i64 1
%43 = load i8, i8* %42
%44 = zext i8 %43 to i32
%45 = shl i32 %44, 8
%46 = or i32 %40, %45
%47 = load i8*, i8** %6
%48 = getelementptr inbounds i8, i8* %47, i64 2
%49 = load i8, i8* %48
%50 = zext i8 %49 to i32
%51 = shl i32 %50, 16
%52 = or i32 %46, %51
%53 = load i8*, i8** %6
%54 = getelementptr inbounds i8, i8* %53, i64 3
%55 = load i8, i8* %54
%56 = zext i8 %55 to i32
%57 = shl i32 %56, 24
%58 = or i32 %52, %57
%59 = load i8*, i8** %6
%60 = getelementptr inbounds i8, i8* %59, i64 4
%61 = load i8, i8* %60
%62 = zext i8 %61 to i32
%63 = shl i32 %62, 32
%64 = or i32 %58, %63
%65 = load i8*, i8** %6
%66 = getelementptr inbounds i8, i8* %65, i64 5
%67 = load i8, i8* %66
%68 = zext i8 %67 to i32
%69 = shl i32 %68, 40
%70 = or i32 %64, %69
%71 = load i8*, i8** %6
%72 = getelementptr inbounds i8, i8* %71, i64 6
%73 = load i8, i8* %72
%74 = zext i8 %73 to i32
%75 = shl i32 %74, 48
%76 = or i32 %70, %75
%77 = load i8*, i8** %6
%78 = getelementptr inbounds i8, i8* %77, i64 7
%79 = load i8, i8* %78
%80 = zext i8 %79 to i32
%81 = shl i32 %80, 56
%82 = or i32 %76, %81
store i32 %82, i32* %12
%83 = load i8*, i8** %6
%84 = getelementptr inbounds i8, i8* %83, i64 8
store i8* %84, i8** %6
%85 = load i32, i32* %12
%86 = call i32 @BitInterleave(i32 %85)
%87 = load i32*, i32** %9
%88 = load i64, i64* %10
%89 = getelementptr inbounds i32, i32* %87, i64 %88
%90 = load i32, i32* %89
%91 = xor i32 %90, %86
store i32 %91, i32* %89
br label %92
92: ; preds = %36
%93 = load i64, i64* %10
%94 = add i64 %93, 1
store i64 %94, i64* %10
br label %32
95: ; preds = %32
%96 = load [5 x i32]*, [5 x i32]** %5
%97 = bitcast [5 x i32]* %96 to i32**
%98 = call i32 @KeccakF1600(i32** %97)
%99 = load i64, i64* %8
%100 = load i64, i64* %7
%101 = sub i64 %100, %99
store i64 %101, i64* %7
br label %27
102: ; preds = %27
%103 = load i64, i64* %7
ret i64 %103
}

LLVM IR (-O2):
define i64 @SHA3_absorb([5 x i32]* %0, i8* nocapture readnone %1, i64 %2, i64 %3) {
%5 = icmp ult i64 %3, 100
%6 = and i64 %3, 7
%7 = icmp eq i64 %6, 0
%8 = and i1 %5, %7
%9 = zext i1 %8 to i32
%10 = tail call i32 @assert(i32 %9)
%11 = icmp ult i64 %2, %3
br i1 %11, label %31, label %12
12: ; preds = %4
%13 = lshr i64 %3, 3
%14 = icmp ult i64 %3, 8
%15 = bitcast [5 x i32]* %0 to i32**
%16 = call i64 @llvm.umax.i64(i64 %13, i64 1)
br label %17
17: ; preds = %12, %27
%18 = phi i64 [ %2, %12 ], [ %29, %27 ]
br i1 %14, label %27, label %19
19: ; preds = %17, %19
%20 = phi i64 [ %25, %19 ], [ 0, %17 ]
%21 = tail call i32 @BitInterleave(i32 poison)
%22 = getelementptr inbounds [5 x i32], [5 x i32]* %0, i64 0, i64 %20
%23 = load i32, i32* %22
%24 = xor i32 %23, %21
store i32 %24, i32* %22
%25 = add nuw nsw i64 %20, 1
%26 = icmp eq i64 %25, %16
br i1 %26, label %27, label %19
27: ; preds = %19, %17
%28 = tail call i32 @KeccakF1600(i32** %15)
%29 = sub i64 %18, %3
%30 = icmp ult i64 %29, %3
br i1 %30, label %31, label %17
31: ; preds = %27, %4
%32 = phi i64 [ %2, %4 ], [ %29, %27 ]
ret i64 %32
}