#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*/ memcpy(double *, double *, int);
void mutstep(double *vec, const double *mut, const int nislands,
             const int nhap) {
  int i, j, k;
  double vec2[nislands][nhap];
  for (i = 0; i < nislands; i++)
    for (j = 0; j < nhap; j++) {
      vec2[i][j] = 0;
      for (k = 0; k < nhap; k++)
        vec2[i][j] +=
            ((double(*)[nhap])mut)[j][k] * ((double(*)[nhap])vec)[i][k];
    }
  memcpy(vec, (double *)vec2, sizeof(double) * nislands * nhap);
  return;
}


x86 assembly (clang, -O0):
<mutstep>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
mov    -0x14(%rbp),%eax
mov    %eax,%ecx
mov    -0x18(%rbp),%eax
mov    %rax,-0x50(%rbp)
mov    %rsp,%rdx
mov    %rdx,-0x30(%rbp)
mov    %rcx,%rdx
imul   %rax,%rdx
lea    0xf(,%rdx,8),%rsi
and    $0xfffffffffffffff0,%rsi
mov    %rsp,%rdx
sub    %rsi,%rdx
mov    %rdx,-0x48(%rbp)
mov    %rdx,%rsp
mov    %rcx,-0x38(%rbp)
mov    %rax,-0x40(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    1260 <mutstep+0x150>
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x18(%rbp),%eax
jge    124d <mutstep+0x13d>
mov    -0x48(%rbp),%rax
mov    -0x50(%rbp),%rdx
movslq -0x1c(%rbp),%rcx
imul   %rdx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
movslq -0x20(%rbp),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x18(%rbp),%eax
jge    123a <mutstep+0x12a>
mov    -0x48(%rbp),%rax
mov    -0x50(%rbp),%rdx
mov    -0x18(%rbp),%ecx
mov    %ecx,%edi
mov    -0x10(%rbp),%rcx
movslq -0x20(%rbp),%rsi
imul   %rdi,%rsi
shl    $0x3,%rsi
add    %rsi,%rcx
movslq -0x24(%rbp),%rsi
movsd  (%rcx,%rsi,8),%xmm0
mov    -0x18(%rbp),%ecx
mov    %ecx,%edi
mov    -0x8(%rbp),%rcx
movslq -0x1c(%rbp),%rsi
imul   %rdi,%rsi
shl    $0x3,%rsi
add    %rsi,%rcx
movslq -0x24(%rbp),%rsi
movsd  (%rcx,%rsi,8),%xmm2
movslq -0x1c(%rbp),%rcx
imul   %rdx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
movslq -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    11b1 <mutstep+0xa1>
jmp    123f <mutstep+0x12f>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    117b <mutstep+0x6b>
jmp    1252 <mutstep+0x142>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1168 <mutstep+0x58>
mov    -0x48(%rbp),%rsi
mov    -0x8(%rbp),%rdi
movslq -0x14(%rbp),%rax
shl    $0x3,%rax
movslq -0x18(%rbp),%rcx
imul   %rcx,%rax
mov    %eax,%edx
call   1030 <memcpy@plt>
mov    -0x30(%rbp),%rax
mov    %rax,%rsp
mov    %rbp,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<mutstep>:
push   %rbp
mov    %rsp,%rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x48,%rsp
mov    %rsi,-0x58(%rbp)
mov    %rdi,-0x50(%rbp)
mov    %edx,%esi
mov    %ecx,-0x2c(%rbp)
mov    %ecx,%eax
mov    %rax,-0x40(%rbp)
mov    %rsi,-0x70(%rbp)
imul   %rsi,%rax
lea    0xf(,%rax,8),%rax
and    $0xfffffffffffffff0,%rax
mov    %rsp,%rcx
sub    %rax,%rcx
mov    %rcx,-0x60(%rbp)
mov    %rcx,%rsp
mov    %edx,-0x44(%rbp)
test   %edx,%edx
jle    12ae <mutstep+0x19e>
mov    -0x40(%rbp),%rdx
lea    -0x1(%rdx),%r11
mov    %edx,%eax
and    $0x3,%eax
mov    %edx,%r12d
and    $0xfffffffc,%r12d
mov    -0x58(%rbp),%rcx
add    $0x18,%rcx
mov    %rcx,-0x68(%rbp)
lea    0x0(,%rdx,8),%r15
mov    -0x50(%rbp),%r10
lea    0x18(%r10),%rbx
xor    %ecx,%ecx
mov    %rcx,-0x38(%rbp)
jmp    11bf <mutstep+0xaf>
nopl   0x0(%rax,%rax,1)
mov    -0x38(%rbp),%rdx
add    $0x1,%rdx
add    %r15,%rbx
add    %r15,%r10
mov    %rdx,%rcx
mov    %rdx,-0x38(%rbp)
cmp    -0x70(%rbp),%rdx
je     12ae <mutstep+0x19e>
cmpl   $0x0,-0x2c(%rbp)
jle    11a0 <mutstep+0x90>
mov    -0x38(%rbp),%rcx
imul   -0x40(%rbp),%rcx
mov    -0x60(%rbp),%rdx
lea    (%rdx,%rcx,8),%r14
mov    -0x58(%rbp),%rsi
mov    -0x68(%rbp),%rdx
xor    %r8d,%r8d
jmp    1206 <mutstep+0xf6>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movsd  %xmm0,(%r14,%r8,8)
add    $0x1,%r8
add    %r15,%rdx
add    %r15,%rsi
cmp    -0x40(%rbp),%r8
je     11a0 <mutstep+0x90>
xorpd  %xmm0,%xmm0
xor    %r9d,%r9d
cmp    $0x3,%r11
jb     126f <mutstep+0x15f>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movsd  -0x18(%rdx,%r9,8),%xmm1
movsd  -0x10(%rdx,%r9,8),%xmm2
mulsd  -0x18(%rbx,%r9,8),%xmm1
mulsd  -0x10(%rbx,%r9,8),%xmm2
addsd  %xmm0,%xmm1
movsd  -0x8(%rdx,%r9,8),%xmm3
mulsd  -0x8(%rbx,%r9,8),%xmm3
addsd  %xmm1,%xmm2
movsd  (%rdx,%r9,8),%xmm0
mulsd  (%rbx,%r9,8),%xmm0
addsd  %xmm2,%xmm3
addsd  %xmm3,%xmm0
add    $0x4,%r9
cmp    %r9,%r12
jne    1220 <mutstep+0x110>
test   %rax,%rax
je     11f0 <mutstep+0xe0>
lea    (%r10,%r9,8),%r13
lea    (%rsi,%r9,8),%rcx
xor    %edi,%edi
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movsd  (%rcx,%rdi,8),%xmm1
mulsd  0x0(%r13,%rdi,8),%xmm1
addsd  %xmm1,%xmm0
add    $0x1,%rdi
cmp    %rdi,%rax
jne    1290 <mutstep+0x180>
jmp    11f0 <mutstep+0xe0>
mov    -0x44(%rbp),%edx
imul   -0x2c(%rbp),%edx
shl    $0x3,%edx
mov    -0x50(%rbp),%rdi
mov    -0x60(%rbp),%rsi
call   1030 <memcpy@plt>
lea    -0x28(%rbp),%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @mutstep(double* %0, double* %1, i32 %2, i32 %3) {
%5 = alloca double*
%6 = alloca double*
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca i8*
%13 = alloca i64
%14 = alloca i64
store double* %0, double** %5
store double* %1, double** %6
store i32 %2, i32* %7
store i32 %3, i32* %8
%15 = load i32, i32* %7
%16 = zext i32 %15 to i64
%17 = load i32, i32* %8
%18 = zext i32 %17 to i64
%19 = call i8* @llvm.stacksave()
store i8* %19, i8** %12
%20 = mul nuw i64 %16, %18
%21 = alloca double, i64 %20
store i64 %16, i64* %13
store i64 %18, i64* %14
store i32 0, i32* %9
br label %22
22: ; preds = %83, %4
%23 = load i32, i32* %9
%24 = load i32, i32* %7
%25 = icmp slt i32 %23, %24
br i1 %25, label %26, label %86
26: ; preds = %22
store i32 0, i32* %10
br label %27
27: ; preds = %79, %26
%28 = load i32, i32* %10
%29 = load i32, i32* %8
%30 = icmp slt i32 %28, %29
br i1 %30, label %31, label %82
31: ; preds = %27
%32 = load i32, i32* %9
%33 = sext i32 %32 to i64
%34 = mul nsw i64 %33, %18
%35 = getelementptr inbounds double, double* %21, i64 %34
%36 = load i32, i32* %10
%37 = sext i32 %36 to i64
%38 = getelementptr inbounds double, double* %35, i64 %37
store double 0.000000e+00, double* %38
store i32 0, i32* %11
br label %39
39: ; preds = %75, %31
%40 = load i32, i32* %11
%41 = load i32, i32* %8
%42 = icmp slt i32 %40, %41
br i1 %42, label %43, label %78
43: ; preds = %39
%44 = load i32, i32* %8
%45 = zext i32 %44 to i64
%46 = load double*, double** %6
%47 = load i32, i32* %10
%48 = sext i32 %47 to i64
%49 = mul nsw i64 %48, %45
%50 = getelementptr inbounds double, double* %46, i64 %49
%51 = load i32, i32* %11
%52 = sext i32 %51 to i64
%53 = getelementptr inbounds double, double* %50, i64 %52
%54 = load double, double* %53
%55 = load i32, i32* %8
%56 = zext i32 %55 to i64
%57 = load double*, double** %5
%58 = load i32, i32* %9
%59 = sext i32 %58 to i64
%60 = mul nsw i64 %59, %56
%61 = getelementptr inbounds double, double* %57, i64 %60
%62 = load i32, i32* %11
%63 = sext i32 %62 to i64
%64 = getelementptr inbounds double, double* %61, i64 %63
%65 = load double, double* %64
%66 = load i32, i32* %9
%67 = sext i32 %66 to i64
%68 = mul nsw i64 %67, %18
%69 = getelementptr inbounds double, double* %21, i64 %68
%70 = load i32, i32* %10
%71 = sext i32 %70 to i64
%72 = getelementptr inbounds double, double* %69, i64 %71
%73 = load double, double* %72
%74 = call double @llvm.fmuladd.f64(double %54, double %65, double %73)
store double %74, double* %72
br label %75
75: ; preds = %43
%76 = load i32, i32* %11
%77 = add nsw i32 %76, 1
store i32 %77, i32* %11
br label %39
78: ; preds = %39
br label %79
79: ; preds = %78
%80 = load i32, i32* %10
%81 = add nsw i32 %80, 1
store i32 %81, i32* %10
br label %27
82: ; preds = %27
br label %83
83: ; preds = %82
%84 = load i32, i32* %9
%85 = add nsw i32 %84, 1
store i32 %85, i32* %9
br label %22
86: ; preds = %22
%87 = load double*, double** %5
%88 = load i32, i32* %7
%89 = sext i32 %88 to i64
%90 = mul i64 8, %89
%91 = load i32, i32* %8
%92 = sext i32 %91 to i64
%93 = mul i64 %90, %92
%94 = trunc i64 %93 to i32
%95 = call i32 @memcpy(double* %87, double* %21, i32 %94)
%96 = load i8*, i8** %12
ret void
}

LLVM IR (-O2):
define void @mutstep(double* %0, double* nocapture %1, i32 %2, i32 %3) {
%5 = zext i32 %2 to i64
%6 = zext i32 %3 to i64
%7 = mul nuw i64 %6, %5
%8 = alloca double, i64 %7
%9 = icmp sgt i32 %2, 0
br i1 %9, label %10, label %81
10: ; preds = %4
%11 = icmp sgt i32 %3, 0
%12 = add nsw i64 %6, -1
%13 = and i64 %6, 3
%14 = icmp ult i64 %12, 3
%15 = and i64 %6, 4294967292
%16 = icmp eq i64 %13, 0
br label %17
17: ; preds = %10, %78
%18 = phi i64 [ 0, %10 ], [ %79, %78 ]
br i1 %11, label %19, label %78
19: ; preds = %17
%20 = mul nuw nsw i64 %18, %6
%21 = getelementptr inbounds double, double* %8, i64 %20
%22 = getelementptr inbounds double, double* %0, i64 %20
br label %23
23: ; preds = %74, %19
%24 = phi i64 [ 0, %19 ], [ %76, %74 ]
%25 = getelementptr inbounds double, double* %21, i64 %24
%26 = mul nuw nsw i64 %24, %6
%27 = getelementptr inbounds double, double* %1, i64 %26
br i1 %14, label %58, label %28
28: ; preds = %23, %28
%29 = phi i64 [ %55, %28 ], [ 0, %23 ]
%30 = phi double [ %54, %28 ], [ 0.000000e+00, %23 ]
%31 = phi i64 [ %56, %28 ], [ 0, %23 ]
%32 = getelementptr inbounds double, double* %27, i64 %29
%33 = load double, double* %32
%34 = getelementptr inbounds double, double* %22, i64 %29
%35 = load double, double* %34
%36 = tail call double @llvm.fmuladd.f64(double %33, double %35, double %30)
%37 = or i64 %29, 1
%38 = getelementptr inbounds double, double* %27, i64 %37
%39 = load double, double* %38
%40 = getelementptr inbounds double, double* %22, i64 %37
%41 = load double, double* %40
%42 = tail call double @llvm.fmuladd.f64(double %39, double %41, double %36)
%43 = or i64 %29, 2
%44 = getelementptr inbounds double, double* %27, i64 %43
%45 = load double, double* %44
%46 = getelementptr inbounds double, double* %22, i64 %43
%47 = load double, double* %46
%48 = tail call double @llvm.fmuladd.f64(double %45, double %47, double %42)
%49 = or i64 %29, 3
%50 = getelementptr inbounds double, double* %27, i64 %49
%51 = load double, double* %50
%52 = getelementptr inbounds double, double* %22, i64 %49
%53 = load double, double* %52
%54 = tail call double @llvm.fmuladd.f64(double %51, double %53, double %48)
%55 = add nuw nsw i64 %29, 4
%56 = add i64 %31, 4
%57 = icmp eq i64 %56, %15
br i1 %57, label %58, label %28
58: ; preds = %28, %23
%59 = phi double [ undef, %23 ], [ %54, %28 ]
%60 = phi i64 [ 0, %23 ], [ %55, %28 ]
%61 = phi double [ 0.000000e+00, %23 ], [ %54, %28 ]
br i1 %16, label %74, label %62
62: ; preds = %58, %62
%63 = phi i64 [ %71, %62 ], [ %60, %58 ]
%64 = phi double [ %70, %62 ], [ %61, %58 ]
%65 = phi i64 [ %72, %62 ], [ 0, %58 ]
%66 = getelementptr inbounds double, double* %27, i64 %63
%67 = load double, double* %66
%68 = getelementptr inbounds double, double* %22, i64 %63
%69 = load double, double* %68
%70 = tail call double @llvm.fmuladd.f64(double %67, double %69, double %64)
%71 = add nuw nsw i64 %63, 1
%72 = add i64 %65, 1
%73 = icmp eq i64 %72, %13
br i1 %73, label %74, label %62
74: ; preds = %62, %58
%75 = phi double [ %59, %58 ], [ %70, %62 ]
store double %75, double* %25
%76 = add nuw nsw i64 %24, 1
%77 = icmp eq i64 %76, %6
br i1 %77, label %78, label %23
78: ; preds = %74, %17
%79 = add nuw nsw i64 %18, 1
%80 = icmp eq i64 %79, %5
br i1 %80, label %81, label %17
81: ; preds = %78, %4
%82 = shl i32 %2, 3
%83 = mul i32 %82, %3
%84 = call i32 @memcpy(double* %0, double* %8, i32 %83)
ret void
}