double tml_dr_vMaxExt(const double *vec, int n, int *index) {
  int i;
  double ret = vec[0];
  *index = 0;
  for (i = 1; i < n; i++) {
    if (vec[i] > ret) {
      ret = vec[i];
      *index = i;
    }
  }
  return ret;
}


x86 assembly (clang, -O0):
<tml_dr_vMaxExt>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %rdx,-0x18(%rbp)
mov    -0x8(%rbp),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x18(%rbp),%rax
movl   $0x0,(%rax)
movl   $0x1,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    117f <tml_dr_vMaxExt+0x7f>
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd -0x28(%rbp),%xmm0
jbe    116c <tml_dr_vMaxExt+0x6c>
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x1c(%rbp),%ecx
mov    -0x18(%rbp),%rax
mov    %ecx,(%rax)
jmp    1171 <tml_dr_vMaxExt+0x71>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    112d <tml_dr_vMaxExt+0x2d>
movsd  -0x28(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<tml_dr_vMaxExt>:
movsd  (%rdi),%xmm0
movl   $0x0,(%rdx)
cmp    $0x2,%esi
jl     11b8 <tml_dr_vMaxExt+0xb8>
mov    %esi,%ecx
lea    -0x1(%rcx),%r8
add    $0xfffffffffffffffe,%rcx
mov    %r8d,%eax
and    $0x3,%eax
cmp    $0x3,%rcx
jae    1139 <tml_dr_vMaxExt+0x39>
mov    $0x1,%ecx
test   %rax,%rax
jne    11ca <tml_dr_vMaxExt+0xca>
jmp    11b8 <tml_dr_vMaxExt+0xb8>
and    $0xfffffffffffffffc,%r8
xor    %ecx,%ecx
jmp    1159 <tml_dr_vMaxExt+0x59>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
add    $0x4,%rcx
cmp    %rcx,%r8
je     11af <tml_dr_vMaxExt+0xaf>
movsd  0x8(%rdi,%rcx,8),%xmm1
ucomisd %xmm0,%xmm1
jbe    116e <tml_dr_vMaxExt+0x6e>
lea    0x1(%rcx),%esi
mov    %esi,(%rdx)
movapd %xmm1,%xmm0
movsd  0x10(%rdi,%rcx,8),%xmm1
ucomisd %xmm0,%xmm1
jbe    1183 <tml_dr_vMaxExt+0x83>
lea    0x2(%rcx),%esi
mov    %esi,(%rdx)
movapd %xmm1,%xmm0
movsd  0x18(%rdi,%rcx,8),%xmm1
ucomisd %xmm0,%xmm1
jbe    1198 <tml_dr_vMaxExt+0x98>
lea    0x3(%rcx),%esi
mov    %esi,(%rdx)
movapd %xmm1,%xmm0
movsd  0x20(%rdi,%rcx,8),%xmm1
ucomisd %xmm0,%xmm1
jbe    1150 <tml_dr_vMaxExt+0x50>
lea    0x4(%rcx),%esi
mov    %esi,(%rdx)
movapd %xmm1,%xmm0
jmp    1150 <tml_dr_vMaxExt+0x50>
add    $0x1,%rcx
test   %rax,%rax
jne    11ca <tml_dr_vMaxExt+0xca>
ret
nopl   0x0(%rax)
add    $0x1,%rcx
add    $0xffffffffffffffff,%rax
je     11b8 <tml_dr_vMaxExt+0xb8>
movsd  (%rdi,%rcx,8),%xmm1
ucomisd %xmm0,%xmm1
jbe    11c0 <tml_dr_vMaxExt+0xc0>
mov    %ecx,(%rdx)
movapd %xmm1,%xmm0
jmp    11c0 <tml_dr_vMaxExt+0xc0>

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

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