void colcpy_fill_low(double *dst, int ldD, const double *src, int ldS, int nR,
                     int nC, int unit) {
  register double *Dcu, *Dcl, *Drl, *Dru;
  register const double *Sc, *Sr;
  register int j, i;
  Dcu = dst;
  Sc = src;
  Dcl = dst;
  for (j = 0; j < nC; j++) {
    Dru = Dcu;
    Drl = Dcl;
    Sr = Sc;
    for (i = 0; i < j; i++) {
      *Dru = *Sr;
      *Drl = *Sr;
      Sr++;
      Dru++;
      Drl += ldD;
    }
    *Dru = unit ? 1.0 : *Sr;
    Sc += ldS;
    Dcu += ldD;
    Dcl++;
  }
}


x86 assembly (clang, -O0):
<colcpy_fill_low>:
push   %rbp
mov    %rsp,%rbp
mov    0x10(%rbp),%eax
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
mov    %r8d,-0x20(%rbp)
mov    %r9d,-0x24(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,-0x50(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x38(%rbp)
movl   $0x0,-0x5c(%rbp)
mov    -0x5c(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    1248 <colcpy_fill_low+0x148>
mov    -0x30(%rbp),%rax
mov    %rax,-0x48(%rbp)
mov    -0x38(%rbp),%rax
mov    %rax,-0x40(%rbp)
mov    -0x50(%rbp),%rax
mov    %rax,-0x58(%rbp)
movl   $0x0,-0x60(%rbp)
mov    -0x60(%rbp),%eax
cmp    -0x5c(%rbp),%eax
jge    11ce <colcpy_fill_low+0xce>
mov    -0x58(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x48(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x58(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x40(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x58(%rbp),%rax
add    $0x8,%rax
mov    %rax,-0x58(%rbp)
mov    -0x48(%rbp),%rax
add    $0x8,%rax
mov    %rax,-0x48(%rbp)
mov    -0xc(%rbp),%ecx
mov    -0x40(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x40(%rbp)
mov    -0x60(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x60(%rbp)
jmp    1167 <colcpy_fill_low+0x67>
cmpl   $0x0,0x10(%rbp)
je     11ea <colcpy_fill_low+0xea>
movsd  0xe20(%rip),%xmm0
movsd  %xmm0,-0x68(%rbp)
jmp    11f7 <colcpy_fill_low+0xf7>
mov    -0x58(%rbp),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,-0x68(%rbp)
movsd  -0x68(%rbp),%xmm0
mov    -0x48(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x1c(%rbp),%ecx
mov    -0x50(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x50(%rbp)
mov    -0xc(%rbp),%ecx
mov    -0x30(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x30(%rbp)
mov    -0x38(%rbp),%rax
add    $0x8,%rax
mov    %rax,-0x38(%rbp)
mov    -0x5c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x5c(%rbp)
jmp    113c <colcpy_fill_low+0x3c>
pop    %rbp
ret

x86 assembly (clang, -O2):
<colcpy_fill_low>:
push   %rbp
push   %r15
push   %r14
push   %r12
push   %rbx
test   %r9d,%r9d
jle    1255 <colcpy_fill_low+0x155>
mov    0x30(%rsp),%r10d
movslq %esi,%r8
movslq %ecx,%r11
shl    $0x3,%r11
lea    0x0(,%r8,8),%r12
shl    $0x5,%r8
xor    %r15d,%r15d
movsd  0xec9(%rip),%xmm0
mov    %rdi,%r14
jmp    115b <colcpy_fill_low+0x5b>
nopl   0x0(%rax)
movsd  %xmm1,(%rbx)
add    %r11,%rdx
add    %r12,%rdi
add    $0x8,%r14
add    $0x1,%r15d
cmp    %r9d,%r15d
je     1255 <colcpy_fill_low+0x155>
mov    %rdi,%rbx
mov    %rdx,%rax
test   %r15d,%r15d
je     1240 <colcpy_fill_low+0x140>
lea    -0x1(%r15),%ecx
mov    %rdx,%rax
mov    %rdi,%rbx
mov    %r14,%rsi
cmp    $0x3,%ecx
jb     120d <colcpy_fill_low+0x10d>
mov    %r15d,%eax
and    $0xfffffffc,%eax
mov    %r14,%rcx
xor    %ebx,%ebx
nopl   0x0(%rax,%rax,1)
mov    %rcx,%rsi
movsd  (%rdx,%rbx,1),%xmm1
movsd  %xmm1,(%rdi,%rbx,1)
movsd  (%rdx,%rbx,1),%xmm1
movsd  %xmm1,(%rcx)
movsd  0x8(%rdx,%rbx,1),%xmm1
movsd  %xmm1,0x8(%rdi,%rbx,1)
movsd  0x8(%rdx,%rbx,1),%xmm1
add    %r12,%rcx
movsd  %xmm1,(%rsi,%r12,1)
movsd  0x10(%rdx,%rbx,1),%xmm1
movsd  %xmm1,0x10(%rdi,%rbx,1)
movsd  0x10(%rdx,%rbx,1),%xmm1
movsd  %xmm1,(%r12,%rcx,1)
add    %r12,%rcx
movsd  0x18(%rdx,%rbx,1),%xmm1
movsd  %xmm1,0x18(%rdi,%rbx,1)
movsd  0x18(%rdx,%rbx,1),%xmm1
movsd  %xmm1,(%r12,%rcx,1)
add    %r12,%rcx
add    $0x20,%rbx
add    %r12,%rcx
add    $0xfffffffc,%eax
jne    1190 <colcpy_fill_low+0x90>
add    %r8,%rsi
lea    (%rdx,%rbx,1),%rax
add    %rdi,%rbx
test   $0x3,%r15b
je     1240 <colcpy_fill_low+0x140>
mov    %r15d,%ebp
and    $0x3,%ebp
nopl   0x0(%rax)
movsd  (%rax),%xmm1
movsd  %xmm1,(%rbx)
movsd  (%rax),%xmm1
movsd  %xmm1,(%rsi)
add    $0x8,%rax
add    $0x8,%rbx
add    %r12,%rsi
add    $0xffffffff,%ebp
jne    1220 <colcpy_fill_low+0x120>
movaps %xmm0,%xmm1
test   %r10d,%r10d
jne    1140 <colcpy_fill_low+0x40>
movsd  (%rax),%xmm1
jmp    1140 <colcpy_fill_low+0x40>
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @colcpy_fill_low(double* %0, i32 %1, double* %2, i32 %3, i32 %4, i32 %5, i32 %6) {
%8 = alloca double*
%9 = alloca i32
%10 = alloca double*
%11 = alloca i32
%12 = alloca i32
%13 = alloca i32
%14 = alloca i32
%15 = alloca double*
%16 = alloca double*
%17 = alloca double*
%18 = alloca double*
%19 = alloca double*
%20 = alloca double*
%21 = alloca i32
%22 = alloca i32
store double* %0, double** %8
store i32 %1, i32* %9
store double* %2, double** %10
store i32 %3, i32* %11
store i32 %4, i32* %12
store i32 %5, i32* %13
store i32 %6, i32* %14
%23 = load double*, double** %8
store double* %23, double** %15
%24 = load double*, double** %10
store double* %24, double** %19
%25 = load double*, double** %8
store double* %25, double** %16
store i32 0, i32* %21
br label %26
26: ; preds = %76, %7
%27 = load i32, i32* %21
%28 = load i32, i32* %13
%29 = icmp slt i32 %27, %28
br i1 %29, label %30, label %79
30: ; preds = %26
%31 = load double*, double** %15
store double* %31, double** %18
%32 = load double*, double** %16
store double* %32, double** %17
%33 = load double*, double** %19
store double* %33, double** %20
store i32 0, i32* %22
br label %34
34: ; preds = %53, %30
%35 = load i32, i32* %22
%36 = load i32, i32* %21
%37 = icmp slt i32 %35, %36
br i1 %37, label %38, label %56
38: ; preds = %34
%39 = load double*, double** %20
%40 = load double, double* %39
%41 = load double*, double** %18
store double %40, double* %41
%42 = load double*, double** %20
%43 = load double, double* %42
%44 = load double*, double** %17
store double %43, double* %44
%45 = load double*, double** %20
%46 = getelementptr inbounds double, double* %45, i32 1
store double* %46, double** %20
%47 = load double*, double** %18
%48 = getelementptr inbounds double, double* %47, i32 1
store double* %48, double** %18
%49 = load i32, i32* %9
%50 = load double*, double** %17
%51 = sext i32 %49 to i64
%52 = getelementptr inbounds double, double* %50, i64 %51
store double* %52, double** %17
br label %53
53: ; preds = %38
%54 = load i32, i32* %22
%55 = add nsw i32 %54, 1
store i32 %55, i32* %22
br label %34
56: ; preds = %34
%57 = load i32, i32* %14
%58 = icmp ne i32 %57, 0
br i1 %58, label %59, label %60
59: ; preds = %56
br label %63
60: ; preds = %56
%61 = load double*, double** %20
%62 = load double, double* %61
br label %63
63: ; preds = %60, %59
%64 = phi double [ 1.000000e+00, %59 ], [ %62, %60 ]
%65 = load double*, double** %18
store double %64, double* %65
%66 = load i32, i32* %11
%67 = load double*, double** %19
%68 = sext i32 %66 to i64
%69 = getelementptr inbounds double, double* %67, i64 %68
store double* %69, double** %19
%70 = load i32, i32* %9
%71 = load double*, double** %15
%72 = sext i32 %70 to i64
%73 = getelementptr inbounds double, double* %71, i64 %72
store double* %73, double** %15
%74 = load double*, double** %16
%75 = getelementptr inbounds double, double* %74, i32 1
store double* %75, double** %16
br label %76
76: ; preds = %63
%77 = load i32, i32* %21
%78 = add nsw i32 %77, 1
store i32 %78, i32* %21
br label %26
79: ; preds = %26
ret void
}

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