#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*/ cg_daxpy0(double *, double *, double, int);
double cg_dot0(double *, double *, int);
void cg_trisolve(double *x, double *R, int m, int n, int w) {
  int i, l;
  if (w) {
    l = m * n;
    for (i = n; i > 0;) {
      i--;
      l -= (m - i);
      x[i] /= R[l];
      l -= i;
      cg_daxpy0(x, R + l, -x[i], i);
    }
  } else {
    l = 0;
    for (i = 0; i < n; i++) {
      x[i] = (x[i] - cg_dot0(x, R + l, i)) / R[l + i];
      l += m;
    }
  }
  return;
}


x86 assembly (clang, -O0):
<cg_trisolve>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
mov    %r8d,-0x1c(%rbp)
cmpl   $0x0,-0x1c(%rbp)
je     11ec <cg_trisolve+0xcc>
mov    -0x14(%rbp),%eax
imul   -0x18(%rbp),%eax
mov    %eax,-0x24(%rbp)
mov    -0x18(%rbp),%eax
mov    %eax,-0x20(%rbp)
cmpl   $0x0,-0x20(%rbp)
jle    11e7 <cg_trisolve+0xc7>
mov    -0x20(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x20(%rbp)
mov    -0x14(%rbp),%ecx
sub    -0x20(%rbp),%ecx
mov    -0x24(%rbp),%eax
sub    %ecx,%eax
mov    %eax,-0x24(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x8(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%ecx
mov    -0x24(%rbp),%eax
sub    %ecx,%eax
mov    %eax,-0x24(%rbp)
mov    -0x8(%rbp),%rdi
mov    -0x10(%rbp),%rsi
movslq -0x24(%rbp),%rax
shl    $0x3,%rax
add    %rax,%rsi
mov    -0x8(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mov    -0x20(%rbp),%edx
call   1030 <cg_daxpy0@plt>
jmp    1154 <cg_trisolve+0x34>
jmp    127a <cg_trisolve+0x15a>
movl   $0x0,-0x24(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x18(%rbp),%eax
jge    1275 <cg_trisolve+0x155>
mov    -0x8(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x30(%rbp)
mov    -0x8(%rbp),%rdi
mov    -0x10(%rbp),%rsi
movslq -0x24(%rbp),%rax
shl    $0x3,%rax
add    %rax,%rsi
mov    -0x20(%rbp),%edx
call   1040 <cg_dot0@plt>
movaps %xmm0,%xmm1
movsd  -0x30(%rbp),%xmm0
subsd  %xmm1,%xmm0
mov    -0x10(%rbp),%rax
mov    -0x24(%rbp),%ecx
add    -0x20(%rbp),%ecx
movslq %ecx,%rcx
divsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x14(%rbp),%eax
add    -0x24(%rbp),%eax
mov    %eax,-0x24(%rbp)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    11fa <cg_trisolve+0xda>
jmp    127a <cg_trisolve+0x15a>
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<cg_trisolve>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    %ecx,%ebx
mov    %edx,%r13d
mov    %rsi,%r12
mov    %rdi,%r14
test   %r8d,%r8d
je     11ac <cg_trisolve+0x8c>
test   %ebx,%ebx
jle    120f <cg_trisolve+0xef>
mov    %ebx,%eax
add    $0x1,%rax
lea    -0x1(%rbx),%ebp
imul   %r13d,%ebp
add    %ebp,%ebx
mov    %r13d,%ecx
not    %ecx
mov    %rcx,0x8(%rsp)
nop
lea    -0x1(%rax),%r15
lea    -0x1(%r15),%edx
lea    -0x1(%rbx),%ecx
movslq %ecx,%rcx
movsd  -0x10(%r14,%rax,8),%xmm0
divsd  (%r12,%rcx,8),%xmm0
movsd  %xmm0,-0x10(%r14,%rax,8)
movslq %ebp,%rbp
lea    (%r12,%rbp,8),%rsi
xorpd  0xe6f(%rip),%xmm0
mov    %r14,%rdi
call   1030 <cg_daxpy0@plt>
add    0x8(%rsp),%rbx
sub    %r13d,%ebp
mov    %r15,%rax
cmp    $0x1,%r15
ja     1160 <cg_trisolve+0x40>
jmp    120f <cg_trisolve+0xef>
test   %ebx,%ebx
jle    120f <cg_trisolve+0xef>
movslq %r13d,%rbp
mov    %ebx,%eax
mov    %rax,0x10(%rsp)
lea    0x8(,%rbp,8),%r13
shl    $0x3,%rbp
xor    %ebx,%ebx
mov    %r12,%r15
nopl   0x0(%rax,%rax,1)
movsd  (%r14,%rbx,8),%xmm0
movsd  %xmm0,0x8(%rsp)
mov    %r14,%rdi
mov    %r12,%rsi
mov    %ebx,%edx
call   1040 <cg_dot0@plt>
movsd  0x8(%rsp),%xmm1
subsd  %xmm0,%xmm1
divsd  (%r15),%xmm1
movsd  %xmm1,(%r14,%rbx,8)
add    $0x1,%rbx
add    %r13,%r15
add    %rbp,%r12
cmp    %rbx,0x10(%rsp)
jne    11d0 <cg_trisolve+0xb0>
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @cg_trisolve(double* %0, double* %1, i32 %2, i32 %3, i32 %4) {
%6 = alloca double*
%7 = alloca double*
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32
store double* %0, double** %6
store double* %1, double** %7
store i32 %2, i32* %8
store i32 %3, i32* %9
store i32 %4, i32* %10
%13 = load i32, i32* %10
%14 = icmp ne i32 %13, 0
br i1 %14, label %15, label %59
15: ; preds = %5
%16 = load i32, i32* %8
%17 = load i32, i32* %9
%18 = mul nsw i32 %16, %17
store i32 %18, i32* %12
%19 = load i32, i32* %9
store i32 %19, i32* %11
br label %20
20: ; preds = %23, %15
%21 = load i32, i32* %11
%22 = icmp sgt i32 %21, 0
br i1 %22, label %23, label %58
23: ; preds = %20
%24 = load i32, i32* %11
%25 = add nsw i32 %24, -1
store i32 %25, i32* %11
%26 = load i32, i32* %8
%27 = load i32, i32* %11
%28 = sub nsw i32 %26, %27
%29 = load i32, i32* %12
%30 = sub nsw i32 %29, %28
store i32 %30, i32* %12
%31 = load double*, double** %7
%32 = load i32, i32* %12
%33 = sext i32 %32 to i64
%34 = getelementptr inbounds double, double* %31, i64 %33
%35 = load double, double* %34
%36 = load double*, double** %6
%37 = load i32, i32* %11
%38 = sext i32 %37 to i64
%39 = getelementptr inbounds double, double* %36, i64 %38
%40 = load double, double* %39
%41 = fdiv double %40, %35
store double %41, double* %39
%42 = load i32, i32* %11
%43 = load i32, i32* %12
%44 = sub nsw i32 %43, %42
store i32 %44, i32* %12
%45 = load double*, double** %6
%46 = load double*, double** %7
%47 = load i32, i32* %12
%48 = sext i32 %47 to i64
%49 = getelementptr inbounds double, double* %46, i64 %48
%50 = load double*, double** %6
%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 = fneg double %54
%56 = load i32, i32* %11
%57 = call i32 @cg_daxpy0(double* %45, double* %49, double %55, i32 %56)
br label %20
58: ; preds = %20
br label %97
59: ; preds = %5
store i32 0, i32* %12
store i32 0, i32* %11
br label %60
60: ; preds = %93, %59
%61 = load i32, i32* %11
%62 = load i32, i32* %9
%63 = icmp slt i32 %61, %62
br i1 %63, label %64, label %96
64: ; preds = %60
%65 = load double*, double** %6
%66 = load i32, i32* %11
%67 = sext i32 %66 to i64
%68 = getelementptr inbounds double, double* %65, i64 %67
%69 = load double, double* %68
%70 = load double*, double** %6
%71 = load double*, double** %7
%72 = load i32, i32* %12
%73 = sext i32 %72 to i64
%74 = getelementptr inbounds double, double* %71, i64 %73
%75 = load i32, i32* %11
%76 = call double @cg_dot0(double* %70, double* %74, i32 %75)
%77 = fsub double %69, %76
%78 = load double*, double** %7
%79 = load i32, i32* %12
%80 = load i32, i32* %11
%81 = add nsw i32 %79, %80
%82 = sext i32 %81 to i64
%83 = getelementptr inbounds double, double* %78, i64 %82
%84 = load double, double* %83
%85 = fdiv double %77, %84
%86 = load double*, double** %6
%87 = load i32, i32* %11
%88 = sext i32 %87 to i64
%89 = getelementptr inbounds double, double* %86, i64 %88
store double %85, double* %89
%90 = load i32, i32* %8
%91 = load i32, i32* %12
%92 = add nsw i32 %91, %90
store i32 %92, i32* %12
br label %93
93: ; preds = %64
%94 = load i32, i32* %11
%95 = add nsw i32 %94, 1
store i32 %95, i32* %11
br label %60
96: ; preds = %60
br label %97
97: ; preds = %96, %58
ret void
}

LLVM IR (-O2):
define void @cg_trisolve(double* %0, double* %1, i32 %2, i32 %3, i32 %4) {
%6 = icmp eq i32 %4, 0
%7 = icmp sgt i32 %3, 0
br i1 %6, label %8, label %12
8: ; preds = %5
br i1 %7, label %9, label %51
9: ; preds = %8
%10 = sext i32 %2 to i64
%11 = zext i32 %3 to i64
br label %35
12: ; preds = %5
br i1 %7, label %13, label %51
13: ; preds = %12
%14 = mul nsw i32 %3, %2
%15 = zext i32 %3 to i64
br label %16
16: ; preds = %13, %16
%17 = phi i64 [ %15, %13 ], [ %19, %16 ]
%18 = phi i32 [ %14, %13 ], [ %29, %16 ]
%19 = add nsw i64 %17, -1
%20 = trunc i64 %19 to i32
%21 = sub i32 %20, %2
%22 = add i32 %21, %18
%23 = sext i32 %22 to i64
%24 = getelementptr inbounds double, double* %1, i64 %23
%25 = load double, double* %24
%26 = getelementptr inbounds double, double* %0, i64 %19
%27 = load double, double* %26
%28 = fdiv double %27, %25
store double %28, double* %26
%29 = sub nsw i32 %22, %20
%30 = sext i32 %29 to i64
%31 = getelementptr inbounds double, double* %1, i64 %30
%32 = fneg double %28
%33 = tail call i32 @cg_daxpy0(double* %0, double* %31, double %32, i32 %20)
%34 = icmp ugt i64 %17, 1
br i1 %34, label %16, label %51
35: ; preds = %9, %35
%36 = phi i64 [ 0, %9 ], [ %49, %35 ]
%37 = phi i64 [ 0, %9 ], [ %48, %35 ]
%38 = getelementptr inbounds double, double* %0, i64 %36
%39 = load double, double* %38
%40 = getelementptr inbounds double, double* %1, i64 %37
%41 = trunc i64 %36 to i32
%42 = tail call double @cg_dot0(double* %0, double* %40, i32 %41)
%43 = fsub double %39, %42
%44 = add nsw i64 %37, %36
%45 = getelementptr inbounds double, double* %1, i64 %44
%46 = load double, double* %45
%47 = fdiv double %43, %46
store double %47, double* %38
%48 = add nsw i64 %37, %10
%49 = add nuw nsw i64 %36, 1
%50 = icmp eq i64 %49, %11
br i1 %50, label %51, label %35
51: ; preds = %16, %35, %12, %8
ret void
}