void mlscale(double s, int l, double m[l][l], double mr[l][l]) {
  for (int i = 0; i < l; ++i) {
    for (int j = 0; j < l; ++j) {
      mr[i][j] = s * m[i][j];
    }
  }
}


x86 assembly (clang, -O0):
<mlscale>:
push   %rbp
mov    %rsp,%rbp
movsd  %xmm0,-0x8(%rbp)
mov    %edi,-0xc(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
mov    -0xc(%rbp),%eax
mov    %rax,-0x38(%rbp)
mov    -0xc(%rbp),%eax
mov    %rax,-0x30(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11ae <mlscale+0xae>
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    119b <mlscale+0x9b>
mov    -0x30(%rbp),%rdx
mov    -0x38(%rbp),%rsi
movsd  -0x8(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x24(%rbp),%rcx
imul   %rsi,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
movslq -0x28(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
imul   %rdx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
movslq -0x28(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    113c <mlscale+0x3c>
jmp    11a0 <mlscale+0xa0>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1129 <mlscale+0x29>
pop    %rbp
ret

x86 assembly (clang, -O2):
<mlscale>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
test   %edi,%edi
jle    1330 <mlscale+0x230>
mov    %edi,%r13d
mov    %r13d,%eax
and    $0xfffffffc,%eax
mov    %rax,-0x8(%rsp)
add    $0xfffffffffffffffc,%rax
mov    %rax,-0x10(%rsp)
mov    %rax,%rcx
shr    $0x2,%rcx
add    $0x1,%rcx
movapd %xmm0,%xmm1
unpcklpd %xmm0,%xmm1
mov    %rcx,%rax
mov    %rcx,-0x18(%rsp)
and    $0xfffffffffffffffe,%rcx
mov    %rcx,-0x28(%rsp)
mov    %r13d,%r10d
and    $0x3,%r10d
lea    0x30(%rsi),%r14
lea    0x0(,%r13,8),%r15
lea    0x30(%rdx),%rcx
xor    %r12d,%r12d
mov    %rsi,%rax
mov    %rdx,%rbp
mov    %r10,-0x20(%rsp)
jmp    1199 <mlscale+0x99>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
add    $0x1,%r12
add    %r15,%r14
add    %r15,%rcx
add    %r15,%rbp
add    %r15,%rax
cmp    %r13,%r12
je     1330 <mlscale+0x230>
cmp    $0x4,%edi
jb     11cb <mlscale+0xcb>
mov    %r12,%rbx
imul   %r13,%rbx
lea    (%rbx,%r13,1),%r9
lea    (%rsi,%rbx,8),%r8
lea    (%rdx,%rbx,8),%r11
lea    (%rsi,%r9,8),%rbx
cmp    %rbx,%r11
jae    1270 <mlscale+0x170>
lea    (%rdx,%r9,8),%rbx
cmp    %rbx,%r8
jae    1270 <mlscale+0x170>
xor    %r11d,%r11d
mov    %r11,%r8
not    %r8
add    %r13,%r8
test   %r10,%r10
je     11fb <mlscale+0xfb>
mov    %r10,%rbx
nop
movsd  (%rax,%r11,8),%xmm2
mulsd  %xmm0,%xmm2
movsd  %xmm2,0x0(%rbp,%r11,8)
add    $0x1,%r11
add    $0xffffffffffffffff,%rbx
jne    11e0 <mlscale+0xe0>
cmp    $0x3,%r8
jb     1180 <mlscale+0x80>
cs nopw 0x0(%rax,%rax,1)
nop
movsd  (%rax,%r11,8),%xmm2
mulsd  %xmm0,%xmm2
movsd  %xmm2,0x0(%rbp,%r11,8)
movsd  0x8(%rax,%r11,8),%xmm2
mulsd  %xmm0,%xmm2
movsd  %xmm2,0x8(%rbp,%r11,8)
movsd  0x10(%rax,%r11,8),%xmm2
mulsd  %xmm0,%xmm2
movsd  %xmm2,0x10(%rbp,%r11,8)
movsd  0x18(%rax,%r11,8),%xmm2
mulsd  %xmm0,%xmm2
movsd  %xmm2,0x18(%rbp,%r11,8)
add    $0x4,%r11
cmp    %r11,%r13
jne    1210 <mlscale+0x110>
jmp    1180 <mlscale+0x80>
cs nopw 0x0(%rax,%rax,1)
nop
cmpq   $0x0,-0x10(%rsp)
je     1324 <mlscale+0x224>
mov    -0x28(%rsp),%r10
xor    %r9d,%r9d
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movupd -0x30(%r14,%r9,8),%xmm2
movupd -0x20(%r14,%r9,8),%xmm3
mulpd  %xmm1,%xmm2
mulpd  %xmm1,%xmm3
movupd %xmm2,-0x30(%rcx,%r9,8)
movupd %xmm3,-0x20(%rcx,%r9,8)
movupd -0x10(%r14,%r9,8),%xmm2
movupd (%r14,%r9,8),%xmm3
mulpd  %xmm1,%xmm2
mulpd  %xmm1,%xmm3
movupd %xmm2,-0x10(%rcx,%r9,8)
movupd %xmm3,(%rcx,%r9,8)
add    $0x8,%r9
add    $0xfffffffffffffffe,%r10
jne    1290 <mlscale+0x190>
testb  $0x1,-0x18(%rsp)
je     1309 <mlscale+0x209>
movupd (%r8,%r9,8),%xmm2
movupd 0x10(%r8,%r9,8),%xmm3
mulpd  %xmm1,%xmm2
mulpd  %xmm1,%xmm3
movupd %xmm2,(%r11,%r9,8)
movupd %xmm3,0x10(%r11,%r9,8)
mov    -0x8(%rsp),%rbx
mov    %rbx,%r11
cmp    %r13,%rbx
mov    -0x20(%rsp),%r10
je     1180 <mlscale+0x80>
jmp    11ce <mlscale+0xce>
xor    %r9d,%r9d
testb  $0x1,-0x18(%rsp)
jne    12e7 <mlscale+0x1e7>
jmp    1309 <mlscale+0x209>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @mlscale(double %0, i32 %1, double* %2, double* %3) {
%5 = alloca double
%6 = alloca i32
%7 = alloca double*
%8 = alloca double*
%9 = alloca i32
%10 = alloca i32
store double %0, double* %5
store i32 %1, i32* %6
store double* %2, double** %7
store double* %3, double** %8
%11 = load i32, i32* %6
%12 = zext i32 %11 to i64
%13 = load i32, i32* %6
%14 = zext i32 %13 to i64
%15 = load i32, i32* %6
%16 = zext i32 %15 to i64
%17 = load i32, i32* %6
%18 = zext i32 %17 to i64
store i32 0, i32* %9
br label %19
19: ; preds = %52, %4
%20 = load i32, i32* %9
%21 = load i32, i32* %6
%22 = icmp slt i32 %20, %21
br i1 %22, label %23, label %55
23: ; preds = %19
store i32 0, i32* %10
br label %24
24: ; preds = %48, %23
%25 = load i32, i32* %10
%26 = load i32, i32* %6
%27 = icmp slt i32 %25, %26
br i1 %27, label %28, label %51
28: ; preds = %24
%29 = load double, double* %5
%30 = load double*, double** %7
%31 = load i32, i32* %9
%32 = sext i32 %31 to i64
%33 = mul nsw i64 %32, %14
%34 = getelementptr inbounds double, double* %30, i64 %33
%35 = load i32, i32* %10
%36 = sext i32 %35 to i64
%37 = getelementptr inbounds double, double* %34, i64 %36
%38 = load double, double* %37
%39 = fmul double %29, %38
%40 = load double*, double** %8
%41 = load i32, i32* %9
%42 = sext i32 %41 to i64
%43 = mul nsw i64 %42, %18
%44 = getelementptr inbounds double, double* %40, i64 %43
%45 = load i32, i32* %10
%46 = sext i32 %45 to i64
%47 = getelementptr inbounds double, double* %44, i64 %46
store double %39, double* %47
br label %48
48: ; preds = %28
%49 = load i32, i32* %10
%50 = add nsw i32 %49, 1
store i32 %50, i32* %10
br label %24
51: ; preds = %24
br label %52
52: ; preds = %51
%53 = load i32, i32* %9
%54 = add nsw i32 %53, 1
store i32 %54, i32* %9
br label %19
55: ; preds = %19
ret void
}

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