long max_index(double *x, long n) {
  long i = 0, j;
  if (n <= 0) {
    return 0;
  }
  for (j = 1; j < n; j++) {
    if (x[j] > x[i]) {
      i = j;
    }
  }
  return i;
}


x86 assembly (clang, -O0):
<max_index>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
movq   $0x0,-0x20(%rbp)
cmpq   $0x0,-0x18(%rbp)
jg     112c <max_index+0x2c>
movq   $0x0,-0x8(%rbp)
jmp    1188 <max_index+0x88>
movq   $0x1,-0x28(%rbp)
mov    -0x28(%rbp),%rax
cmp    -0x18(%rbp),%rax
jge    1180 <max_index+0x80>
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x20(%rbp),%rcx
ucomisd (%rax,%rcx,8),%xmm0
jbe    116a <max_index+0x6a>
mov    -0x28(%rbp),%rax
mov    %rax,-0x20(%rbp)
jmp    116f <max_index+0x6f>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    1134 <max_index+0x34>
mov    -0x20(%rbp),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<max_index>:
cmp    $0x2,%rsi
jl     1151 <max_index+0x51>
lea    -0x1(%rsi),%r9
add    $0xfffffffffffffffe,%rsi
mov    %r9d,%r8d
and    $0x3,%r8d
cmp    $0x3,%rsi
jae    1154 <max_index+0x54>
mov    $0x1,%edx
xor    %ecx,%ecx
mov    %rcx,%rax
test   %r8,%r8
jne    113d <max_index+0x3d>
ret
nopl   0x0(%rax,%rax,1)
add    $0x1,%rdx
mov    %rax,%rcx
add    $0xffffffffffffffff,%r8
je     112a <max_index+0x2a>
movsd  (%rdi,%rdx,8),%xmm0
ucomisd (%rdi,%rcx,8),%xmm0
mov    %rdx,%rax
ja     1130 <max_index+0x30>
mov    %rcx,%rax
jmp    1130 <max_index+0x30>
xor    %eax,%eax
ret
and    $0xfffffffffffffffc,%r9
mov    $0x1,%edx
xor    %ecx,%ecx
jmp    1179 <max_index+0x79>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
add    $0x4,%rdx
cmp    %r9,%rax
je     1122 <max_index+0x22>
movsd  (%rdi,%rdx,8),%xmm0
ucomisd (%rdi,%rcx,8),%xmm0
mov    %rdx,%rsi
ja     118b <max_index+0x8b>
mov    %rcx,%rsi
movsd  0x8(%rdi,%rdx,8),%xmm0
ucomisd (%rdi,%rsi,8),%xmm0
jbe    119c <max_index+0x9c>
lea    0x1(%rdx),%rsi
movsd  0x10(%rdi,%rdx,8),%xmm0
ucomisd (%rdi,%rsi,8),%xmm0
jbe    11ad <max_index+0xad>
lea    0x2(%rdx),%rsi
movsd  0x18(%rdi,%rdx,8),%xmm0
lea    0x3(%rdx),%rax
ucomisd (%rdi,%rsi,8),%xmm0
mov    %rax,%rcx
ja     1170 <max_index+0x70>
mov    %rsi,%rcx
jmp    1170 <max_index+0x70>

LLVM IR (-O0):
define i64 @max_index(double* %0, i64 %1) {
%3 = alloca i64
%4 = alloca double*
%5 = alloca i64
%6 = alloca i64
%7 = alloca i64
store double* %0, double** %4
store i64 %1, i64* %5
store i64 0, i64* %6
%8 = load i64, i64* %5
%9 = icmp sle i64 %8, 0
br i1 %9, label %10, label %11
10: ; preds = %2
store i64 0, i64* %3
br label %34
11: ; preds = %2
store i64 1, i64* %7
br label %12
12: ; preds = %29, %11
%13 = load i64, i64* %7
%14 = load i64, i64* %5
%15 = icmp slt i64 %13, %14
br i1 %15, label %16, label %32
16: ; preds = %12
%17 = load double*, double** %4
%18 = load i64, i64* %7
%19 = getelementptr inbounds double, double* %17, i64 %18
%20 = load double, double* %19
%21 = load double*, double** %4
%22 = load i64, i64* %6
%23 = getelementptr inbounds double, double* %21, i64 %22
%24 = load double, double* %23
%25 = fcmp ogt double %20, %24
br i1 %25, label %26, label %28
26: ; preds = %16
%27 = load i64, i64* %7
store i64 %27, i64* %6
br label %28
28: ; preds = %26, %16
br label %29
29: ; preds = %28
%30 = load i64, i64* %7
%31 = add nsw i64 %30, 1
store i64 %31, i64* %7
br label %12
32: ; preds = %12
%33 = load i64, i64* %6
store i64 %33, i64* %3
br label %34
34: ; preds = %32, %10
%35 = load i64, i64* %3
ret i64 %35
}

LLVM IR (-O2):
define i64 @max_index(double* nocapture %0, i64 %1) {
%3 = icmp sgt i64 %1, 1
br i1 %3, label %4, label %63
4: ; preds = %2
%5 = add i64 %1, -1
%6 = add i64 %1, -2
%7 = and i64 %5, 3
%8 = icmp ult i64 %6, 3
br i1 %8, label %45, label %9
9: ; preds = %4
%10 = and i64 %5, -4
br label %11
11: ; preds = %11, %9
%12 = phi i64 [ 1, %9 ], [ %42, %11 ]
%13 = phi i64 [ 0, %9 ], [ %41, %11 ]
%14 = phi i64 [ 0, %9 ], [ %43, %11 ]
%15 = getelementptr inbounds double, double* %0, i64 %12
%16 = load double, double* %15
%17 = getelementptr inbounds double, double* %0, i64 %13
%18 = load double, double* %17
%19 = fcmp ogt double %16, %18
%20 = select i1 %19, i64 %12, i64 %13
%21 = add nuw nsw i64 %12, 1
%22 = getelementptr inbounds double, double* %0, i64 %21
%23 = load double, double* %22
%24 = getelementptr inbounds double, double* %0, i64 %20
%25 = load double, double* %24
%26 = fcmp ogt double %23, %25
%27 = select i1 %26, i64 %21, i64 %20
%28 = add nuw nsw i64 %12, 2
%29 = getelementptr inbounds double, double* %0, i64 %28
%30 = load double, double* %29
%31 = getelementptr inbounds double, double* %0, i64 %27
%32 = load double, double* %31
%33 = fcmp ogt double %30, %32
%34 = select i1 %33, i64 %28, i64 %27
%35 = add nuw nsw i64 %12, 3
%36 = getelementptr inbounds double, double* %0, i64 %35
%37 = load double, double* %36
%38 = getelementptr inbounds double, double* %0, i64 %34
%39 = load double, double* %38
%40 = fcmp ogt double %37, %39
%41 = select i1 %40, i64 %35, i64 %34
%42 = add nuw nsw i64 %12, 4
%43 = add i64 %14, 4
%44 = icmp eq i64 %43, %10
br i1 %44, label %45, label %11
45: ; preds = %11, %4
%46 = phi i64 [ undef, %4 ], [ %41, %11 ]
%47 = phi i64 [ 1, %4 ], [ %42, %11 ]
%48 = phi i64 [ 0, %4 ], [ %41, %11 ]
%49 = icmp eq i64 %7, 0
br i1 %49, label %63, label %50
50: ; preds = %45, %50
%51 = phi i64 [ %60, %50 ], [ %47, %45 ]
%52 = phi i64 [ %59, %50 ], [ %48, %45 ]
%53 = phi i64 [ %61, %50 ], [ 0, %45 ]
%54 = getelementptr inbounds double, double* %0, i64 %51
%55 = load double, double* %54
%56 = getelementptr inbounds double, double* %0, i64 %52
%57 = load double, double* %56
%58 = fcmp ogt double %55, %57
%59 = select i1 %58, i64 %51, i64 %52
%60 = add nuw nsw i64 %51, 1
%61 = add i64 %53, 1
%62 = icmp eq i64 %61, %7
br i1 %62, label %63, label %50
63: ; preds = %45, %50, %2
%64 = phi i64 [ 0, %2 ], [ %46, %45 ], [ %59, %50 ]
ret i64 %64
}