void cholsl(double **a, int n, double p[], double b[], double x[]) {
  int i, k;
  double sum;
  for (i = 1; i <= n; i++) {
    for (sum = b[i], k = i - 1; k >= 1; k--)
      sum -= a[i][k] * x[k];
    x[i] = sum / p[i];
  }
  for (i = n; i >= 1; i--) {
    for (sum = x[i], k = i + 1; k <= n; k++)
      sum -= a[k][i] * x[k];
    x[i] = sum / p[i];
  }
}


x86 assembly (clang, -O0):
<cholsl>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
movl   $0x1,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0xc(%rbp),%eax
jg     11d5 <cholsl+0xd5>
mov    -0x20(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x2c(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x30(%rbp)
cmpl   $0x1,-0x30(%rbp)
jl     11a8 <cholsl+0xa8>
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x28(%rbp),%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x38(%rbp),%xmm1
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x30(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x30(%rbp)
jmp    1145 <cholsl+0x45>
movsd  -0x38(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x2c(%rbp),%rcx
divsd  (%rax,%rcx,8),%xmm0
mov    -0x28(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    111e <cholsl+0x1e>
mov    -0xc(%rbp),%eax
mov    %eax,-0x2c(%rbp)
cmpl   $0x1,-0x2c(%rbp)
jl     1292 <cholsl+0x192>
mov    -0x28(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0xc(%rbp),%eax
jg     1265 <cholsl+0x165>
mov    -0x8(%rbp),%rax
movslq -0x30(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x28(%rbp),%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x38(%rbp),%xmm1
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    1200 <cholsl+0x100>
movsd  -0x38(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x2c(%rbp),%rcx
divsd  (%rax,%rcx,8),%xmm0
mov    -0x28(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x2c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x2c(%rbp)
jmp    11db <cholsl+0xdb>
pop    %rbp
ret

x86 assembly (clang, -O2):
<cholsl>:
push   %r15
push   %r14
push   %r12
push   %rbx
test   %esi,%esi
jle    1267 <cholsl+0x167>
lea    0x1(%rsi),%r9d
mov    $0x1,%r11d
xor    %r10d,%r10d
jmp    113d <cholsl+0x3d>
xchg   %ax,%ax
divsd  (%rdx,%r11,8),%xmm0
movsd  %xmm0,(%r8,%r11,8)
add    $0x1,%r11
add    $0x1,%r10
cmp    %r9,%r11
je     11ba <cholsl+0xba>
movsd  (%rcx,%r11,8),%xmm0
cmp    $0x2,%r11
jb     1120 <cholsl+0x20>
mov    (%rdi,%r11,8),%r15
test   $0x1,%r10b
jne    1160 <cholsl+0x60>
mov    %r11,%r12
cmp    $0x1,%r10
jne    1180 <cholsl+0x80>
jmp    1120 <cholsl+0x20>
xchg   %ax,%ax
lea    -0x1(%r11),%r12
mov    %r12d,%r14d
movsd  (%r15,%r14,8),%xmm1
mulsd  (%r8,%r14,8),%xmm1
subsd  %xmm1,%xmm0
cmp    $0x1,%r10
je     1120 <cholsl+0x20>
nopl   (%rax)
lea    -0x1(%r12),%eax
movsd  (%r15,%rax,8),%xmm1
mulsd  (%r8,%rax,8),%xmm1
subsd  %xmm1,%xmm0
lea    -0x2(%r12),%rax
mov    %eax,%ebx
movsd  (%r15,%rbx,8),%xmm1
mulsd  (%r8,%rbx,8),%xmm1
subsd  %xmm1,%xmm0
cmp    $0x3,%r12
mov    %rax,%r12
jg     1180 <cholsl+0x80>
jmp    1120 <cholsl+0x20>
test   %esi,%esi
jle    1267 <cholsl+0x167>
mov    %esi,%ebx
xor    %r9d,%r9d
mov    %rbx,%rax
jmp    11ec <cholsl+0xec>
nopl   0x0(%rax)
divsd  (%rdx,%rax,8),%xmm0
movsd  %xmm0,(%r8,%rax,8)
lea    -0x1(%rax),%rcx
add    $0x1,%r9d
cmp    $0x1,%rax
mov    %rcx,%rax
jle    1267 <cholsl+0x167>
movsd  (%r8,%rax,8),%xmm0
cmp    %rbx,%rax
jge    11d0 <cholsl+0xd0>
test   $0x1,%r9b
jne    1210 <cholsl+0x110>
mov    %rax,%rsi
cmp    $0x1,%r9d
jne    1230 <cholsl+0x130>
jmp    11d0 <cholsl+0xd0>
nopl   0x0(%rax,%rax,1)
lea    0x1(%rax),%rsi
mov    0x8(%rdi,%rax,8),%rcx
movsd  (%rcx,%rax,8),%xmm1
mulsd  0x8(%r8,%rax,8),%xmm1
subsd  %xmm1,%xmm0
cmp    $0x1,%r9d
je     11d0 <cholsl+0xd0>
nop
mov    0x8(%rdi,%rsi,8),%rcx
movsd  (%rcx,%rax,8),%xmm1
mulsd  0x8(%r8,%rsi,8),%xmm1
mov    0x10(%rdi,%rsi,8),%rcx
movsd  (%rcx,%rax,8),%xmm2
mulsd  0x10(%r8,%rsi,8),%xmm2
subsd  %xmm1,%xmm0
add    $0x2,%rsi
subsd  %xmm2,%xmm0
cmp    %esi,%ebx
jne    1230 <cholsl+0x130>
jmp    11d0 <cholsl+0xd0>
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
define void @cholsl(double** %0, i32 %1, double* %2, double* %3, double* %4) {
%6 = alloca double**
%7 = alloca i32
%8 = alloca double*
%9 = alloca double*
%10 = alloca double*
%11 = alloca i32
%12 = alloca i32
%13 = alloca double
store double** %0, double*** %6
store i32 %1, i32* %7
store double* %2, double** %8
store double* %3, double** %9
store double* %4, double** %10
store i32 1, i32* %11
br label %14
14: ; preds = %62, %5
%15 = load i32, i32* %11
%16 = load i32, i32* %7
%17 = icmp sle i32 %15, %16
br i1 %17, label %18, label %65
18: ; preds = %14
%19 = load double*, double** %9
%20 = load i32, i32* %11
%21 = sext i32 %20 to i64
%22 = getelementptr inbounds double, double* %19, i64 %21
%23 = load double, double* %22
store double %23, double* %13
%24 = load i32, i32* %11
%25 = sub nsw i32 %24, 1
store i32 %25, i32* %12
br label %26
26: ; preds = %47, %18
%27 = load i32, i32* %12
%28 = icmp sge i32 %27, 1
br i1 %28, label %29, label %50
29: ; preds = %26
%30 = load double**, double*** %6
%31 = load i32, i32* %11
%32 = sext i32 %31 to i64
%33 = getelementptr inbounds double*, double** %30, i64 %32
%34 = load double*, double** %33
%35 = load i32, i32* %12
%36 = sext i32 %35 to i64
%37 = getelementptr inbounds double, double* %34, i64 %36
%38 = load double, double* %37
%39 = load double*, double** %10
%40 = load i32, i32* %12
%41 = sext i32 %40 to i64
%42 = getelementptr inbounds double, double* %39, i64 %41
%43 = load double, double* %42
%44 = load double, double* %13
%45 = fneg double %38
%46 = call double @llvm.fmuladd.f64(double %45, double %43, double %44)
store double %46, double* %13
br label %47
47: ; preds = %29
%48 = load i32, i32* %12
%49 = add nsw i32 %48, -1
store i32 %49, i32* %12
br label %26
50: ; preds = %26
%51 = load double, double* %13
%52 = load double*, double** %8
%53 = load i32, i32* %11
%54 = sext i32 %53 to i64
%55 = getelementptr inbounds double, double* %52, i64 %54
%56 = load double, double* %55
%57 = fdiv double %51, %56
%58 = load double*, double** %10
%59 = load i32, i32* %11
%60 = sext i32 %59 to i64
%61 = getelementptr inbounds double, double* %58, i64 %60
store double %57, double* %61
br label %62
62: ; preds = %50
%63 = load i32, i32* %11
%64 = add nsw i32 %63, 1
store i32 %64, i32* %11
br label %14
65: ; preds = %14
%66 = load i32, i32* %7
store i32 %66, i32* %11
br label %67
67: ; preds = %115, %65
%68 = load i32, i32* %11
%69 = icmp sge i32 %68, 1
br i1 %69, label %70, label %118
70: ; preds = %67
%71 = load double*, double** %10
%72 = load i32, i32* %11
%73 = sext i32 %72 to i64
%74 = getelementptr inbounds double, double* %71, i64 %73
%75 = load double, double* %74
store double %75, double* %13
%76 = load i32, i32* %11
%77 = add nsw i32 %76, 1
store i32 %77, i32* %12
br label %78
78: ; preds = %100, %70
%79 = load i32, i32* %12
%80 = load i32, i32* %7
%81 = icmp sle i32 %79, %80
br i1 %81, label %82, label %103
82: ; preds = %78
%83 = load double**, double*** %6
%84 = load i32, i32* %12
%85 = sext i32 %84 to i64
%86 = getelementptr inbounds double*, double** %83, i64 %85
%87 = load double*, double** %86
%88 = load i32, i32* %11
%89 = sext i32 %88 to i64
%90 = getelementptr inbounds double, double* %87, i64 %89
%91 = load double, double* %90
%92 = load double*, double** %10
%93 = load i32, i32* %12
%94 = sext i32 %93 to i64
%95 = getelementptr inbounds double, double* %92, i64 %94
%96 = load double, double* %95
%97 = load double, double* %13
%98 = fneg double %91
%99 = call double @llvm.fmuladd.f64(double %98, double %96, double %97)
store double %99, double* %13
br label %100
100: ; preds = %82
%101 = load i32, i32* %12
%102 = add nsw i32 %101, 1
store i32 %102, i32* %12
br label %78
103: ; preds = %78
%104 = load double, double* %13
%105 = load double*, double** %8
%106 = load i32, i32* %11
%107 = sext i32 %106 to i64
%108 = getelementptr inbounds double, double* %105, i64 %107
%109 = load double, double* %108
%110 = fdiv double %104, %109
%111 = load double*, double** %10
%112 = load i32, i32* %11
%113 = sext i32 %112 to i64
%114 = getelementptr inbounds double, double* %111, i64 %113
store double %110, double* %114
br label %115
115: ; preds = %103
%116 = load i32, i32* %11
%117 = add nsw i32 %116, -1
store i32 %117, i32* %11
br label %67
118: ; preds = %67
ret void
}

LLVM IR (-O2):
define void @cholsl(double** nocapture %0, i32 %1, double* nocapture %2, double* nocapture %3, double* nocapture %4) {
%6 = icmp slt i32 %1, 1
br i1 %6, label %126, label %7
7: ; preds = %5
%8 = add nuw i32 %1, 1
%9 = zext i32 %8 to i64
br label %15
10: ; preds = %60
%11 = icmp sgt i32 %1, 0
br i1 %11, label %12, label %126
12: ; preds = %10
%13 = zext i32 %1 to i64
%14 = zext i32 %1 to i64
br label %69
15: ; preds = %7, %60
%16 = phi i64 [ 0, %7 ], [ %68, %60 ]
%17 = phi i64 [ 1, %7 ], [ %66, %60 ]
%18 = getelementptr inbounds double, double* %3, i64 %17
%19 = load double, double* %18
%20 = icmp ugt i64 %17, 1
br i1 %20, label %21, label %60
21: ; preds = %15
%22 = getelementptr inbounds double*, double** %0, i64 %17
%23 = load double*, double** %22
%24 = and i64 %16, 1
%25 = icmp eq i64 %24, 0
br i1 %25, label %35, label %26
26: ; preds = %21
%27 = add nsw i64 %17, -1
%28 = and i64 %27, 4294967295
%29 = getelementptr inbounds double, double* %23, i64 %28
%30 = load double, double* %29
%31 = getelementptr inbounds double, double* %4, i64 %28
%32 = load double, double* %31
%33 = fneg double %30
%34 = tail call double @llvm.fmuladd.f64(double %33, double %32, double %19)
br label %35
35: ; preds = %26, %21
%36 = phi i64 [ %17, %21 ], [ %27, %26 ]
%37 = phi double [ %19, %21 ], [ %34, %26 ]
%38 = phi double [ undef, %21 ], [ %34, %26 ]
%39 = icmp eq i64 %16, 1
br i1 %39, label %60, label %40
40: ; preds = %35, %40
%41 = phi i64 [ %51, %40 ], [ %36, %35 ]
%42 = phi double [ %58, %40 ], [ %37, %35 ]
%43 = add i64 %41, 4294967295
%44 = and i64 %43, 4294967295
%45 = getelementptr inbounds double, double* %23, i64 %44
%46 = load double, double* %45
%47 = getelementptr inbounds double, double* %4, i64 %44
%48 = load double, double* %47
%49 = fneg double %46
%50 = tail call double @llvm.fmuladd.f64(double %49, double %48, double %42)
%51 = add nsw i64 %41, -2
%52 = and i64 %51, 4294967295
%53 = getelementptr inbounds double, double* %23, i64 %52
%54 = load double, double* %53
%55 = getelementptr inbounds double, double* %4, i64 %52
%56 = load double, double* %55
%57 = fneg double %54
%58 = tail call double @llvm.fmuladd.f64(double %57, double %56, double %50)
%59 = icmp sgt i64 %41, 3
br i1 %59, label %40, label %60
60: ; preds = %35, %40, %15
%61 = phi double [ %19, %15 ], [ %38, %35 ], [ %58, %40 ]
%62 = getelementptr inbounds double, double* %2, i64 %17
%63 = load double, double* %62
%64 = fdiv double %61, %63
%65 = getelementptr inbounds double, double* %4, i64 %17
store double %64, double* %65
%66 = add nuw nsw i64 %17, 1
%67 = icmp eq i64 %66, %9
%68 = add i64 %16, 1
br i1 %67, label %10, label %15
69: ; preds = %12, %117
%70 = phi i32 [ 0, %12 ], [ %125, %117 ]
%71 = phi i64 [ %14, %12 ], [ %124, %117 ]
%72 = phi i64 [ %13, %12 ], [ %122, %117 ]
%73 = getelementptr inbounds double, double* %4, i64 %71
%74 = load double, double* %73
%75 = icmp slt i64 %71, %13
br i1 %75, label %76, label %117
76: ; preds = %69
%77 = and i32 %70, 1
%78 = icmp eq i32 %77, 0
br i1 %78, label %89, label %79
79: ; preds = %76
%80 = add nsw i64 %72, 1
%81 = getelementptr inbounds double*, double** %0, i64 %80
%82 = load double*, double** %81
%83 = getelementptr inbounds double, double* %82, i64 %71
%84 = load double, double* %83
%85 = getelementptr inbounds double, double* %4, i64 %80
%86 = load double, double* %85
%87 = fneg double %84
%88 = tail call double @llvm.fmuladd.f64(double %87, double %86, double %74)
br label %89
89: ; preds = %79, %76
%90 = phi double [ undef, %76 ], [ %88, %79 ]
%91 = phi i64 [ %72, %76 ], [ %80, %79 ]
%92 = phi double [ %74, %76 ], [ %88, %79 ]
%93 = icmp eq i32 %70, 1
br i1 %93, label %117, label %94
94: ; preds = %89, %94
%95 = phi i64 [ %106, %94 ], [ %91, %89 ]
%96 = phi double [ %114, %94 ], [ %92, %89 ]
%97 = add nsw i64 %95, 1
%98 = getelementptr inbounds double*, double** %0, i64 %97
%99 = load double*, double** %98
%100 = getelementptr inbounds double, double* %99, i64 %71
%101 = load double, double* %100
%102 = getelementptr inbounds double, double* %4, i64 %97
%103 = load double, double* %102
%104 = fneg double %101
%105 = tail call double @llvm.fmuladd.f64(double %104, double %103, double %96)
%106 = add nsw i64 %95, 2
%107 = getelementptr inbounds double*, double** %0, i64 %106
%108 = load double*, double** %107
%109 = getelementptr inbounds double, double* %108, i64 %71
%110 = load double, double* %109
%111 = getelementptr inbounds double, double* %4, i64 %106
%112 = load double, double* %111
%113 = fneg double %110
%114 = tail call double @llvm.fmuladd.f64(double %113, double %112, double %105)
%115 = trunc i64 %106 to i32
%116 = icmp eq i32 %115, %1
br i1 %116, label %117, label %94
117: ; preds = %89, %94, %69
%118 = phi double [ %74, %69 ], [ %90, %89 ], [ %114, %94 ]
%119 = getelementptr inbounds double, double* %2, i64 %71
%120 = load double, double* %119
%121 = fdiv double %118, %120
store double %121, double* %73
%122 = add nsw i64 %72, -1
%123 = icmp sgt i64 %71, 1
%124 = add nsw i64 %71, -1
%125 = add i32 %70, 1
br i1 %123, label %69, label %126
126: ; preds = %117, %5, %10
ret void
}