#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 */
void scale_diag(double *vec, int beg, int end, double *diag) {
  int i;
  if (diag != NULL) {
    vec = vec + beg;
    diag = diag + beg;
    for (i = end - beg + 1; i; i--) {
      *vec++ *= *diag++;
    }
  }
}


x86 assembly (clang, -O0):
<scale_diag>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %rcx,-0x18(%rbp)
cmpq   $0x0,-0x18(%rbp)
je     1196 <scale_diag+0x96>
mov    -0x8(%rbp),%rax
movslq -0xc(%rbp),%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x8(%rbp)
mov    -0x18(%rbp),%rax
movslq -0xc(%rbp),%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x18(%rbp)
mov    -0x10(%rbp),%eax
sub    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
cmpl   $0x0,-0x1c(%rbp)
je     1191 <scale_diag+0x91>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x18(%rbp)
movsd  (%rax),%xmm0
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x8(%rbp)
mulsd  (%rax),%xmm0
movsd  %xmm0,(%rax)
mov    -0x1c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x1c(%rbp)
jmp    114f <scale_diag+0x4f>
jmp    1196 <scale_diag+0x96>
pop    %rbp
ret

x86 assembly (clang, -O2):
<scale_diag>:
push   %r14
push   %rbx
test   %rcx,%rcx
je     12bd <scale_diag+0x1bd>
sub    %esi,%edx
mov    %edx,%r8d
inc    %r8d
je     12bd <scale_diag+0x1bd>
movslq %esi,%r14
lea    (%rcx,%r14,8),%rax
lea    (%rdi,%r14,8),%rsi
cmp    $0x3,%edx
jb     1232 <scale_diag+0x132>
lea    (%r14,%rdx,1),%r9
lea    (%rcx,%r9,8),%rbx
add    $0x8,%rbx
cmp    %rbx,%rsi
jae    1150 <scale_diag+0x50>
lea    (%rdi,%r9,8),%rbx
add    $0x8,%rbx
cmp    %rbx,%rax
jb     1232 <scale_diag+0x132>
add    $0x1,%rdx
mov    %rdx,%r9
and    $0xfffffffffffffffc,%r9
lea    -0x4(%r9),%rbx
mov    %rbx,%r10
shr    $0x2,%r10
add    $0x1,%r10
test   %rbx,%rbx
je     12c1 <scale_diag+0x1c1>
mov    %r10,%r11
and    $0xfffffffffffffffe,%r11
lea    (%rcx,%r14,8),%rbx
add    $0x30,%rbx
lea    (%rdi,%r14,8),%rdi
add    $0x30,%rdi
xor    %ecx,%ecx
nopl   0x0(%rax)
movupd -0x30(%rbx,%rcx,8),%xmm0
movupd -0x20(%rbx,%rcx,8),%xmm1
movupd -0x30(%rdi,%rcx,8),%xmm2
mulpd  %xmm0,%xmm2
movupd -0x20(%rdi,%rcx,8),%xmm0
mulpd  %xmm1,%xmm0
movupd -0x10(%rdi,%rcx,8),%xmm1
movupd (%rdi,%rcx,8),%xmm3
movupd %xmm2,-0x30(%rdi,%rcx,8)
movupd %xmm0,-0x20(%rdi,%rcx,8)
movupd -0x10(%rbx,%rcx,8),%xmm0
mulpd  %xmm1,%xmm0
movupd (%rbx,%rcx,8),%xmm1
mulpd  %xmm3,%xmm1
movupd %xmm0,-0x10(%rdi,%rcx,8)
movupd %xmm1,(%rdi,%rcx,8)
add    $0x8,%rcx
add    $0xfffffffffffffffe,%r11
jne    1190 <scale_diag+0x90>
test   $0x1,%r10b
je     121e <scale_diag+0x11e>
movupd (%rax,%rcx,8),%xmm0
movupd 0x10(%rax,%rcx,8),%xmm1
movupd (%rsi,%rcx,8),%xmm2
mulpd  %xmm0,%xmm2
movupd 0x10(%rsi,%rcx,8),%xmm0
mulpd  %xmm1,%xmm0
movupd %xmm2,(%rsi,%rcx,8)
movupd %xmm0,0x10(%rsi,%rcx,8)
cmp    %r9,%rdx
je     12bd <scale_diag+0x1bd>
sub    %r9d,%r8d
lea    (%rax,%r9,8),%rax
lea    (%rsi,%r9,8),%rsi
lea    -0x1(%r8),%ecx
mov    %r8d,%edx
and    $0x3,%edx
je     125e <scale_diag+0x15e>
xor    %edi,%edi
movsd  (%rax),%xmm0
add    $0x8,%rax
mulsd  (%rsi),%xmm0
movsd  %xmm0,(%rsi)
add    $0x8,%rsi
add    $0x1,%edi
cmp    %edi,%edx
jne    1240 <scale_diag+0x140>
sub    %edi,%r8d
cmp    $0x3,%ecx
jb     12bd <scale_diag+0x1bd>
mov    %r8d,%ecx
xor    %edx,%edx
nopl   0x0(%rax,%rax,1)
movsd  (%rax,%rdx,8),%xmm0
mulsd  (%rsi,%rdx,8),%xmm0
movsd  %xmm0,(%rsi,%rdx,8)
movsd  0x8(%rax,%rdx,8),%xmm0
mulsd  0x8(%rsi,%rdx,8),%xmm0
movsd  %xmm0,0x8(%rsi,%rdx,8)
movsd  0x10(%rax,%rdx,8),%xmm0
mulsd  0x10(%rsi,%rdx,8),%xmm0
movsd  %xmm0,0x10(%rsi,%rdx,8)
movsd  0x18(%rax,%rdx,8),%xmm0
mulsd  0x18(%rsi,%rdx,8),%xmm0
movsd  %xmm0,0x18(%rsi,%rdx,8)
add    $0x4,%rdx
cmp    %edx,%ecx
jne    1270 <scale_diag+0x170>
pop    %rbx
pop    %r14
ret
xor    %ecx,%ecx
test   $0x1,%r10b
jne    11f5 <scale_diag+0xf5>
jmp    121e <scale_diag+0x11e>

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

LLVM IR (-O2):
define void @scale_diag(double* nocapture %0, i32 %1, i32 %2, double* %3) {
%5 = icmp eq double* %3, null
br i1 %5, label %153, label %6
6: ; preds = %4
%7 = sext i32 %1 to i64
%8 = sub i32 1, %1
%9 = add i32 %8, %2
%10 = icmp eq i32 %9, 0
br i1 %10, label %153, label %11
11: ; preds = %6
%12 = getelementptr double, double* %3, i64 %7
%13 = getelementptr double, double* %0, i64 %7
%14 = sub i32 %2, %1
%15 = zext i32 %14 to i64
%16 = add nuw nsw i64 %15, 1
%17 = icmp ult i32 %14, 3
br i1 %17, label %102, label %18
18: ; preds = %11
%19 = sub i32 %2, %1
%20 = zext i32 %19 to i64
%21 = add nsw i64 %7, %20
%22 = add nsw i64 %21, 1
%23 = getelementptr double, double* %0, i64 %22
%24 = getelementptr double, double* %3, i64 %22
%25 = icmp ult double* %13, %24
%26 = icmp ult double* %12, %23
%27 = and i1 %25, %26
br i1 %27, label %102, label %28
28: ; preds = %18
%29 = and i64 %16, 8589934588
%30 = trunc i64 %29 to i32
%31 = sub i32 %9, %30
%32 = getelementptr double, double* %12, i64 %29
%33 = getelementptr double, double* %13, i64 %29
%34 = add nsw i64 %29, -4
%35 = lshr exact i64 %34, 2
%36 = add nuw nsw i64 %35, 1
%37 = and i64 %36, 1
%38 = icmp eq i64 %34, 0
br i1 %38, label %80, label %39
39: ; preds = %28
%40 = and i64 %36, 9223372036854775806
br label %41
41: ; preds = %41, %39
%42 = phi i64 [ 0, %39 ], [ %77, %41 ]
%43 = phi i64 [ 0, %39 ], [ %78, %41 ]
%44 = getelementptr double, double* %12, i64 %42
%45 = getelementptr double, double* %13, i64 %42
%46 = bitcast double* %44 to <2 x double>*
%47 = load <2 x double>, <2 x double>* %46
%48 = getelementptr double, double* %44, i64 2
%49 = bitcast double* %48 to <2 x double>*
%50 = load <2 x double>, <2 x double>* %49
%51 = bitcast double* %45 to <2 x double>*
%52 = load <2 x double>, <2 x double>* %51
%53 = getelementptr double, double* %45, i64 2
%54 = bitcast double* %53 to <2 x double>*
%55 = load <2 x double>, <2 x double>* %54
%56 = fmul <2 x double> %47, %52
%57 = fmul <2 x double> %50, %55
%58 = bitcast double* %45 to <2 x double>*
store <2 x double> %56, <2 x double>* %58
%59 = bitcast double* %53 to <2 x double>*
store <2 x double> %57, <2 x double>* %59
%60 = or i64 %42, 4
%61 = getelementptr double, double* %12, i64 %60
%62 = getelementptr double, double* %13, i64 %60
%63 = bitcast double* %61 to <2 x double>*
%64 = load <2 x double>, <2 x double>* %63
%65 = getelementptr double, double* %61, i64 2
%66 = bitcast double* %65 to <2 x double>*
%67 = load <2 x double>, <2 x double>* %66
%68 = bitcast double* %62 to <2 x double>*
%69 = load <2 x double>, <2 x double>* %68
%70 = getelementptr double, double* %62, i64 2
%71 = bitcast double* %70 to <2 x double>*
%72 = load <2 x double>, <2 x double>* %71
%73 = fmul <2 x double> %64, %69
%74 = fmul <2 x double> %67, %72
%75 = bitcast double* %62 to <2 x double>*
store <2 x double> %73, <2 x double>* %75
%76 = bitcast double* %70 to <2 x double>*
store <2 x double> %74, <2 x double>* %76
%77 = add nuw i64 %42, 8
%78 = add i64 %43, 2
%79 = icmp eq i64 %78, %40
br i1 %79, label %80, label %41
80: ; preds = %41, %28
%81 = phi i64 [ 0, %28 ], [ %77, %41 ]
%82 = icmp eq i64 %37, 0
br i1 %82, label %100, label %83
83: ; preds = %80
%84 = getelementptr double, double* %12, i64 %81
%85 = getelementptr double, double* %13, i64 %81
%86 = bitcast double* %84 to <2 x double>*
%87 = load <2 x double>, <2 x double>* %86
%88 = getelementptr double, double* %84, i64 2
%89 = bitcast double* %88 to <2 x double>*
%90 = load <2 x double>, <2 x double>* %89
%91 = bitcast double* %85 to <2 x double>*
%92 = load <2 x double>, <2 x double>* %91
%93 = getelementptr double, double* %85, i64 2
%94 = bitcast double* %93 to <2 x double>*
%95 = load <2 x double>, <2 x double>* %94
%96 = fmul <2 x double> %87, %92
%97 = fmul <2 x double> %90, %95
%98 = bitcast double* %85 to <2 x double>*
store <2 x double> %96, <2 x double>* %98
%99 = bitcast double* %93 to <2 x double>*
store <2 x double> %97, <2 x double>* %99
br label %100
100: ; preds = %80, %83
%101 = icmp eq i64 %16, %29
br i1 %101, label %153, label %102
102: ; preds = %18, %11, %100
%103 = phi i32 [ %9, %18 ], [ %9, %11 ], [ %31, %100 ]
%104 = phi double* [ %12, %18 ], [ %12, %11 ], [ %32, %100 ]
%105 = phi double* [ %13, %18 ], [ %13, %11 ], [ %33, %100 ]
%106 = add i32 %103, -1
%107 = and i32 %103, 3
%108 = icmp eq i32 %107, 0
br i1 %108, label %122, label %109
109: ; preds = %102, %109
%110 = phi i32 [ %119, %109 ], [ %103, %102 ]
%111 = phi double* [ %114, %109 ], [ %104, %102 ]
%112 = phi double* [ %116, %109 ], [ %105, %102 ]
%113 = phi i32 [ %120, %109 ], [ 0, %102 ]
%114 = getelementptr inbounds double, double* %111, i64 1
%115 = load double, double* %111
%116 = getelementptr inbounds double, double* %112, i64 1
%117 = load double, double* %112
%118 = fmul double %115, %117
store double %118, double* %112
%119 = add nsw i32 %110, -1
%120 = add i32 %113, 1
%121 = icmp eq i32 %120, %107
br i1 %121, label %122, label %109
122: ; preds = %109, %102
%123 = phi i32 [ %103, %102 ], [ %119, %109 ]
%124 = phi double* [ %104, %102 ], [ %114, %109 ]
%125 = phi double* [ %105, %102 ], [ %116, %109 ]
%126 = icmp ult i32 %106, 3
br i1 %126, label %153, label %127
127: ; preds = %122, %127
%128 = phi i32 [ %151, %127 ], [ %123, %122 ]
%129 = phi double* [ %146, %127 ], [ %124, %122 ]
%130 = phi double* [ %148, %127 ], [ %125, %122 ]
%131 = getelementptr inbounds double, double* %129, i64 1
%132 = load double, double* %129
%133 = getelementptr inbounds double, double* %130, i64 1
%134 = load double, double* %130
%135 = fmul double %132, %134
store double %135, double* %130
%136 = getelementptr inbounds double, double* %129, i64 2
%137 = load double, double* %131
%138 = getelementptr inbounds double, double* %130, i64 2
%139 = load double, double* %133
%140 = fmul double %137, %139
store double %140, double* %133
%141 = getelementptr inbounds double, double* %129, i64 3
%142 = load double, double* %136
%143 = getelementptr inbounds double, double* %130, i64 3
%144 = load double, double* %138
%145 = fmul double %142, %144
store double %145, double* %138
%146 = getelementptr inbounds double, double* %129, i64 4
%147 = load double, double* %141
%148 = getelementptr inbounds double, double* %130, i64 4
%149 = load double, double* %143
%150 = fmul double %147, %149
store double %150, double* %143
%151 = add nsw i32 %128, -4
%152 = icmp eq i32 %151, 0
br i1 %152, label %153, label %127
153: ; preds = %122, %127, %100, %6, %4
ret void
}