double f9xact(int *n, int *mm, int *ir, double *fact) {
  double d;
  int k;
  d = fact[*mm];
  for (k = 0; k < *n; k++)
    d -= fact[ir[k]];
  return d;
}


x86 assembly (clang, -O0):
<f9xact>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    -0x20(%rbp),%rax
mov    -0x10(%rbp),%rcx
movslq (%rcx),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x28(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
mov    -0x8(%rbp),%rcx
cmp    (%rcx),%eax
jge    1170 <f9xact+0x70>
mov    -0x20(%rbp),%rax
mov    -0x18(%rbp),%rcx
movslq -0x2c(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  -0x28(%rbp),%xmm0
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1130 <f9xact+0x30>
movsd  -0x28(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<f9xact>:
movslq (%rsi),%rax
movsd  (%rcx,%rax,8),%xmm0
mov    (%rdi),%esi
test   %esi,%esi
jle    1182 <f9xact+0x82>
lea    -0x1(%rsi),%rdi
mov    %esi,%r8d
and    $0x3,%r8d
cmp    $0x3,%rdi
jae    1123 <f9xact+0x23>
xor    %edi,%edi
jmp    1160 <f9xact+0x60>
and    $0xfffffffc,%esi
xor    %edi,%edi
nopl   0x0(%rax,%rax,1)
movslq (%rdx,%rdi,4),%rax
subsd  (%rcx,%rax,8),%xmm0
movslq 0x4(%rdx,%rdi,4),%rax
subsd  (%rcx,%rax,8),%xmm0
movslq 0x8(%rdx,%rdi,4),%rax
subsd  (%rcx,%rax,8),%xmm0
movslq 0xc(%rdx,%rdi,4),%rax
subsd  (%rcx,%rax,8),%xmm0
add    $0x4,%rdi
cmp    %rdi,%rsi
jne    1130 <f9xact+0x30>
test   %r8,%r8
je     1182 <f9xact+0x82>
lea    (%rdx,%rdi,4),%rdx
xor    %esi,%esi
nopl   0x0(%rax,%rax,1)
movslq (%rdx,%rsi,4),%rax
subsd  (%rcx,%rax,8),%xmm0
add    $0x1,%rsi
cmp    %rsi,%r8
jne    1170 <f9xact+0x70>
ret

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

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