#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 */

/* Variables and functions */
int /*<<< orphan*/ die();
int /*<<< orphan*/ fprintf(int /*<<< orphan*/, char *);
double sqrt(unsigned long);
int /*<<< orphan*/ stderr;
void gcompute(unsigned long int *ret, unsigned long int k,
              unsigned long int high, unsigned long int modulus) {
  unsigned long int m, e;
  double sqrt_m;
  unsigned long long int crap;
  if (ret == NULL) {
    fprintf(stderr, "\n\tgcompute(): Asshole. Can't even give me an allocated "
                    "array?...sheesh.\n");
    die();
  }
  ret[0] = 0;
  for (m = 1; m <= high; m++) {
    ret[m] = 0;
    sqrt_m = sqrt(m);
    for (e = 1; e <= sqrt_m; e++) {
      if (m % e == 0) {
        if (e % k != 0) {
          crap = ret[m] + e;
          ret[m] = crap % modulus;
        }
        if ((m / e) % k != 0 && (m / e) != e) {
          crap = ret[m] + (m / e);
          ret[m] = crap % modulus;
        }
      }
    }
  }
  return;
}


x86 assembly (clang, -O0):
<gcompute>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
cmpq   $0x0,-0x8(%rbp)
jne    116f <gcompute+0x3f>
mov    0x2e86(%rip),%rax
mov    (%rax),%edi
lea    0xebd(%rip),%rsi
call   1030 <fprintf@plt>
mov    $0x0,%al
call   1040 <die@plt>
mov    -0x8(%rbp),%rax
movq   $0x0,(%rax)
movq   $0x1,-0x28(%rbp)
mov    -0x28(%rbp),%rax
cmp    -0x18(%rbp),%rax
ja     12eb <gcompute+0x1bb>
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%rcx
movq   $0x0,(%rax,%rcx,8)
mov    -0x28(%rbp),%rdi
call   1050 <sqrt@plt>
movsd  %xmm0,-0x38(%rbp)
movq   $0x1,-0x30(%rbp)
movaps 0xe43(%rip),%xmm0
movq   -0x30(%rbp),%xmm1
punpckldq %xmm0,%xmm1
movapd 0xe42(%rip),%xmm0
subpd  %xmm0,%xmm1
movaps %xmm1,%xmm0
unpckhpd %xmm1,%xmm1
addsd  %xmm0,%xmm1
movsd  -0x38(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jb     12d5 <gcompute+0x1a5>
mov    -0x28(%rbp),%rax
xor    %ecx,%ecx
mov    %ecx,%edx
divq   -0x30(%rbp)
cmp    $0x0,%rdx
jne    12bf <gcompute+0x18f>
mov    -0x30(%rbp),%rax
xor    %ecx,%ecx
mov    %ecx,%edx
divq   -0x10(%rbp)
cmp    $0x0,%rdx
je     1244 <gcompute+0x114>
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
add    -0x30(%rbp),%rax
mov    %rax,-0x40(%rbp)
mov    -0x40(%rbp),%rax
xor    %ecx,%ecx
mov    %ecx,%edx
divq   -0x20(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
mov    -0x28(%rbp),%rax
xor    %ecx,%ecx
mov    %ecx,%edx
divq   -0x30(%rbp)
xor    %ecx,%ecx
mov    %ecx,%edx
divq   -0x10(%rbp)
cmp    $0x0,%rdx
je     12ba <gcompute+0x18a>
mov    -0x28(%rbp),%rax
xor    %ecx,%ecx
mov    %ecx,%edx
divq   -0x30(%rbp)
cmp    -0x30(%rbp),%rax
je     12ba <gcompute+0x18a>
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x48(%rbp)
mov    -0x28(%rbp),%rax
xor    %ecx,%ecx
mov    %ecx,%edx
divq   -0x30(%rbp)
mov    %rax,%rcx
mov    -0x48(%rbp),%rax
add    %rcx,%rax
mov    %rax,-0x40(%rbp)
mov    -0x40(%rbp),%rax
xor    %ecx,%ecx
mov    %ecx,%edx
divq   -0x20(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
jmp    12bf <gcompute+0x18f>
jmp    12c4 <gcompute+0x194>
mov    -0x30(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
jmp    11b6 <gcompute+0x86>
jmp    12da <gcompute+0x1aa>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    1182 <gcompute+0x52>
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<gcompute>:
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %rcx,%r15
mov    %rdx,%r14
mov    %rsi,%r13
mov    %rdi,%r12
test   %rdi,%rdi
jne    1166 <gcompute+0x36>
mov    0x2e8f(%rip),%rax
mov    (%rax),%edi
lea    0xed6(%rip),%rsi
call   1030 <fprintf@plt>
xor    %eax,%eax
call   1040 <die@plt>
movq   $0x0,(%r12)
test   %r14,%r14
je     12ce <gcompute+0x19e>
mov    $0x1,%ebx
jmp    118d <gcompute+0x5d>
xchg   %ax,%ax
add    $0x1,%rbx
cmp    %r14,%rbx
ja     12ce <gcompute+0x19e>
movq   $0x0,(%r12,%rbx,8)
mov    %rbx,%rdi
call   1050 <sqrt@plt>
movapd 0xe7b(%rip),%xmm4
movdqa 0xe63(%rip),%xmm3
ucomisd 0xe4b(%rip),%xmm0
jb     1180 <gcompute+0x50>
mov    $0x1,%ecx
jmp    11f3 <gcompute+0xc3>
mov    %rsi,%rax
xor    %edx,%edx
div    %r15
mov    %rdx,(%r12,%rbx,8)
nopw   0x0(%rax,%rax,1)
add    $0x1,%rcx
movq   %rcx,%xmm1
punpckldq %xmm3,%xmm1
subpd  %xmm4,%xmm1
movapd %xmm1,%xmm2
unpckhpd %xmm1,%xmm2
addsd  %xmm1,%xmm2
ucomisd %xmm2,%xmm0
jb     1180 <gcompute+0x50>
mov    %rbx,%rax
or     %rcx,%rax
shr    $0x20,%rax
je     1220 <gcompute+0xf0>
mov    %rbx,%rax
xor    %edx,%edx
div    %rcx
mov    %rax,%rsi
test   %rdx,%rdx
jne    11d0 <gcompute+0xa0>
jmp    122d <gcompute+0xfd>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
mov    %ebx,%eax
xor    %edx,%edx
div    %ecx
mov    %eax,%esi
test   %rdx,%rdx
jne    11d0 <gcompute+0xa0>
mov    %rcx,%rax
or     %r13,%rax
shr    $0x20,%rax
je     1248 <gcompute+0x118>
mov    %rcx,%rax
xor    %edx,%edx
div    %r13
test   %rdx,%rdx
jne    1254 <gcompute+0x124>
jmp    1277 <gcompute+0x147>
mov    %ecx,%eax
xor    %edx,%edx
div    %r13d
test   %rdx,%rdx
je     1277 <gcompute+0x147>
mov    (%r12,%rbx,8),%rax
add    %rcx,%rax
mov    %rax,%rdx
or     %r15,%rdx
shr    $0x20,%rdx
je     126e <gcompute+0x13e>
xor    %edx,%edx
div    %r15
jmp    1273 <gcompute+0x143>
xor    %edx,%edx
div    %r15d
mov    %rdx,(%r12,%rbx,8)
mov    %rsi,%rax
or     %r13,%rax
shr    $0x20,%rax
je     1295 <gcompute+0x165>
mov    %rsi,%rax
xor    %edx,%edx
div    %r13
test   %rdx,%rdx
jne    12a5 <gcompute+0x175>
jmp    11d0 <gcompute+0xa0>
mov    %esi,%eax
xor    %edx,%edx
div    %r13d
test   %rdx,%rdx
je     11d0 <gcompute+0xa0>
cmp    %rsi,%rcx
je     11d0 <gcompute+0xa0>
add    (%r12,%rbx,8),%rsi
mov    %rsi,%rax
or     %r15,%rax
shr    $0x20,%rax
jne    11be <gcompute+0x8e>
mov    %esi,%eax
xor    %edx,%edx
div    %r15d
jmp    11c6 <gcompute+0x96>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
@stderr = global i32 0
@.str = [73 x i8] c"\0A\09gcompute(): Asshole. Can't even give me an allocated array?...sheesh.\0A\00"
define void @gcompute(i64* %0, i64 %1, i64 %2, i64 %3) {
%5 = alloca i64*
%6 = alloca i64
%7 = alloca i64
%8 = alloca i64
%9 = alloca i64
%10 = alloca i64
%11 = alloca double
%12 = alloca i64
store i64* %0, i64** %5
store i64 %1, i64* %6
store i64 %2, i64* %7
store i64 %3, i64* %8
%13 = load i64*, i64** %5
%14 = icmp eq i64* %13, null
br i1 %14, label %15, label %19
15: ; preds = %4
%16 = load i32, i32* @stderr
%17 = call i32 @fprintf(i32 %16, i8* getelementptr inbounds ([73 x i8], [73 x i8]* @.str, i64 0, i64 0))
%18 = call i32 (...) @die()
br label %19
19: ; preds = %15, %4
%20 = load i64*, i64** %5
%21 = getelementptr inbounds i64, i64* %20, i64 0
store i64 0, i64* %21
store i64 1, i64* %9
br label %22
22: ; preds = %94, %19
%23 = load i64, i64* %9
%24 = load i64, i64* %7
%25 = icmp ule i64 %23, %24
br i1 %25, label %26, label %97
26: ; preds = %22
%27 = load i64*, i64** %5
%28 = load i64, i64* %9
%29 = getelementptr inbounds i64, i64* %27, i64 %28
store i64 0, i64* %29
%30 = load i64, i64* %9
%31 = call double @sqrt(i64 %30)
store double %31, double* %11
store i64 1, i64* %10
br label %32
32: ; preds = %90, %26
%33 = load i64, i64* %10
%34 = uitofp i64 %33 to double
%35 = load double, double* %11
%36 = fcmp ole double %34, %35
br i1 %36, label %37, label %93
37: ; preds = %32
%38 = load i64, i64* %9
%39 = load i64, i64* %10
%40 = urem i64 %38, %39
%41 = icmp eq i64 %40, 0
br i1 %41, label %42, label %89
42: ; preds = %37
%43 = load i64, i64* %10
%44 = load i64, i64* %6
%45 = urem i64 %43, %44
%46 = icmp ne i64 %45, 0
br i1 %46, label %47, label %60
47: ; preds = %42
%48 = load i64*, i64** %5
%49 = load i64, i64* %9
%50 = getelementptr inbounds i64, i64* %48, i64 %49
%51 = load i64, i64* %50
%52 = load i64, i64* %10
%53 = add i64 %51, %52
store i64 %53, i64* %12
%54 = load i64, i64* %12
%55 = load i64, i64* %8
%56 = urem i64 %54, %55
%57 = load i64*, i64** %5
%58 = load i64, i64* %9
%59 = getelementptr inbounds i64, i64* %57, i64 %58
store i64 %56, i64* %59
br label %60
60: ; preds = %47, %42
%61 = load i64, i64* %9
%62 = load i64, i64* %10
%63 = udiv i64 %61, %62
%64 = load i64, i64* %6
%65 = urem i64 %63, %64
%66 = icmp ne i64 %65, 0
br i1 %66, label %67, label %88
67: ; preds = %60
%68 = load i64, i64* %9
%69 = load i64, i64* %10
%70 = udiv i64 %68, %69
%71 = load i64, i64* %10
%72 = icmp ne i64 %70, %71
br i1 %72, label %73, label %88
73: ; preds = %67
%74 = load i64*, i64** %5
%75 = load i64, i64* %9
%76 = getelementptr inbounds i64, i64* %74, i64 %75
%77 = load i64, i64* %76
%78 = load i64, i64* %9
%79 = load i64, i64* %10
%80 = udiv i64 %78, %79
%81 = add i64 %77, %80
store i64 %81, i64* %12
%82 = load i64, i64* %12
%83 = load i64, i64* %8
%84 = urem i64 %82, %83
%85 = load i64*, i64** %5
%86 = load i64, i64* %9
%87 = getelementptr inbounds i64, i64* %85, i64 %86
store i64 %84, i64* %87
br label %88
88: ; preds = %73, %67, %60
br label %89
89: ; preds = %88, %37
br label %90
90: ; preds = %89
%91 = load i64, i64* %10
%92 = add i64 %91, 1
store i64 %92, i64* %10
br label %32
93: ; preds = %32
br label %94
94: ; preds = %93
%95 = load i64, i64* %9
%96 = add i64 %95, 1
store i64 %96, i64* %9
br label %22
97: ; preds = %22
ret void
}

LLVM IR (-O2):
@stderr = global i32 0
@.str = [73 x i8] c"\0A\09gcompute(): Asshole. Can't even give me an allocated array?...sheesh.\0A\00"
define void @gcompute(i64* %0, i64 %1, i64 %2, i64 %3) {
%5 = icmp eq i64* %0, null
br i1 %5, label %6, label %10
6: ; preds = %4
%7 = load i32, i32* @stderr
%8 = tail call i32 @fprintf(i32 %7, i8* getelementptr inbounds ([73 x i8], [73 x i8]* @.str, i64 0, i64 0))
%9 = tail call i32 (...) @die()
br label %10
10: ; preds = %6, %4
store i64 0, i64* %0
%11 = icmp eq i64 %2, 0
br i1 %11, label %45, label %12
12: ; preds = %10, %42
%13 = phi i64 [ %43, %42 ], [ 1, %10 ]
%14 = getelementptr inbounds i64, i64* %0, i64 %13
store i64 0, i64* %14
%15 = tail call double @sqrt(i64 %13)
%16 = fcmp ult double %15, 1.000000e+00
br i1 %16, label %42, label %17
17: ; preds = %12, %38
%18 = phi i64 [ %39, %38 ], [ 1, %12 ]
%19 = urem i64 %13, %18
%20 = udiv i64 %13, %18
%21 = icmp eq i64 %19, 0
br i1 %21, label %22, label %38
22: ; preds = %17
%23 = urem i64 %18, %1
%24 = icmp eq i64 %23, 0
br i1 %24, label %29, label %25
25: ; preds = %22
%26 = load i64, i64* %14
%27 = add i64 %26, %18
%28 = urem i64 %27, %3
store i64 %28, i64* %14
br label %29
29: ; preds = %25, %22
%30 = urem i64 %20, %1
%31 = icmp eq i64 %30, 0
%32 = icmp eq i64 %20, %18
%33 = select i1 %31, i1 true, i1 %32
br i1 %33, label %38, label %34
34: ; preds = %29
%35 = load i64, i64* %14
%36 = add i64 %35, %20
%37 = urem i64 %36, %3
store i64 %37, i64* %14
br label %38
38: ; preds = %17, %34, %29
%39 = add i64 %18, 1
%40 = uitofp i64 %39 to double
%41 = fcmp ult double %15, %40
br i1 %41, label %42, label %17
42: ; preds = %38, %12
%43 = add i64 %13, 1
%44 = icmp ugt i64 %43, %2
br i1 %44, label %45, label %12
45: ; preds = %42, %10
ret void
}