void shrink_dmatrix(double **m, long nrl, long nrh, long ncl, long nch) {
  long i, nrow = nrh - nrl + 1, ncol = nch - ncl + 1;
  for (i = nrl + 1; i <= nrh; i++)
    m[i] = m[i - 1] + ncol;
}


x86 assembly (clang, -O0):
<shrink_dmatrix>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    -0x18(%rbp),%rax
sub    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
mov    -0x28(%rbp),%rax
sub    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x40(%rbp)
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
mov    -0x30(%rbp),%rax
cmp    -0x18(%rbp),%rax
jg     118a <shrink_dmatrix+0x8a>
mov    -0x8(%rbp),%rax
mov    -0x30(%rbp),%rcx
sub    $0x1,%rcx
mov    (%rax,%rcx,8),%rdx
mov    -0x40(%rbp),%rax
shl    $0x3,%rax
add    %rax,%rdx
mov    -0x8(%rbp),%rax
mov    -0x30(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
mov    -0x30(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
jmp    1144 <shrink_dmatrix+0x44>
pop    %rbp
ret

x86 assembly (clang, -O2):
<shrink_dmatrix>:
push   %rbx
cmp    %rsi,%rdx
jle    11da <shrink_dmatrix+0xda>
mov    (%rdi,%rsi,8),%r10
mov    %edx,%eax
sub    %esi,%eax
mov    %rsi,%r9
not    %r9
add    %rdx,%r9
and    $0x7,%rax
je     1152 <shrink_dmatrix+0x52>
lea    0x0(,%r8,8),%r11
lea    0x0(,%rcx,8),%rbx
sub    %rbx,%r11
add    $0x8,%r11
nopl   0x0(%rax,%rax,1)
add    %r11,%r10
mov    %r10,0x8(%rdi,%rsi,8)
add    $0x1,%rsi
add    $0xffffffffffffffff,%rax
jne    1140 <shrink_dmatrix+0x40>
cmp    $0x7,%r9
jb     11da <shrink_dmatrix+0xda>
mov    %r8,%rax
sub    %rcx,%rax
add    $0x1,%rax
lea    (%r10,%rax,8),%rax
mov    %r8,%r9
shl    $0x6,%r9
mov    %rcx,%rbx
shl    $0x6,%rbx
sub    %rbx,%r9
add    $0x40,%r9
shl    $0x3,%r8
shl    $0x3,%rcx
sub    %rcx,%r8
add    $0x8,%r8
xchg   %ax,%ax
mov    %rax,0x8(%rdi,%rsi,8)
lea    (%rax,%r8,1),%rcx
mov    %rcx,0x10(%rdi,%rsi,8)
add    %r8,%rcx
mov    %rcx,0x18(%rdi,%rsi,8)
add    %r8,%rcx
mov    %rcx,0x20(%rdi,%rsi,8)
add    %r8,%rcx
mov    %rcx,0x28(%rdi,%rsi,8)
add    %r8,%rcx
mov    %rcx,0x30(%rdi,%rsi,8)
add    %r8,%rcx
mov    %rcx,0x38(%rdi,%rsi,8)
add    %r8,%rcx
mov    %rcx,0x40(%rdi,%rsi,8)
add    $0x8,%rsi
add    %r9,%rax
cmp    %rsi,%rdx
jne    1190 <shrink_dmatrix+0x90>
pop    %rbx
ret

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

LLVM IR (-O2):
define void @shrink_dmatrix(double** nocapture %0, i64 %1, i64 %2, i64 %3, i64 %4) {
%6 = sub i64 1, %3
%7 = add i64 %6, %4
%8 = icmp sgt i64 %2, %1
br i1 %8, label %9, label %58
9: ; preds = %5
%10 = getelementptr inbounds double*, double** %0, i64 %1
%11 = load double*, double** %10
%12 = sub i64 %2, %1
%13 = xor i64 %1, -1
%14 = add i64 %13, %2
%15 = and i64 %12, 7
%16 = icmp eq i64 %15, 0
br i1 %16, label %26, label %17
17: ; preds = %9, %17
%18 = phi double* [ %22, %17 ], [ %11, %9 ]
%19 = phi i64 [ %21, %17 ], [ %1, %9 ]
%20 = phi i64 [ %24, %17 ], [ 0, %9 ]
%21 = add nsw i64 %19, 1
%22 = getelementptr inbounds double, double* %18, i64 %7
%23 = getelementptr inbounds double*, double** %0, i64 %21
store double* %22, double** %23
%24 = add i64 %20, 1
%25 = icmp eq i64 %24, %15
br i1 %25, label %26, label %17
26: ; preds = %17, %9
%27 = phi double* [ %11, %9 ], [ %22, %17 ]
%28 = phi i64 [ %1, %9 ], [ %21, %17 ]
%29 = icmp ult i64 %14, 7
br i1 %29, label %58, label %30
30: ; preds = %26, %30
%31 = phi double* [ %55, %30 ], [ %27, %26 ]
%32 = phi i64 [ %54, %30 ], [ %28, %26 ]
%33 = add nsw i64 %32, 1
%34 = getelementptr inbounds double, double* %31, i64 %7
%35 = getelementptr inbounds double*, double** %0, i64 %33
store double* %34, double** %35
%36 = add nsw i64 %32, 2
%37 = getelementptr inbounds double, double* %34, i64 %7
%38 = getelementptr inbounds double*, double** %0, i64 %36
store double* %37, double** %38
%39 = add nsw i64 %32, 3
%40 = getelementptr inbounds double, double* %37, i64 %7
%41 = getelementptr inbounds double*, double** %0, i64 %39
store double* %40, double** %41
%42 = add nsw i64 %32, 4
%43 = getelementptr inbounds double, double* %40, i64 %7
%44 = getelementptr inbounds double*, double** %0, i64 %42
store double* %43, double** %44
%45 = add nsw i64 %32, 5
%46 = getelementptr inbounds double, double* %43, i64 %7
%47 = getelementptr inbounds double*, double** %0, i64 %45
store double* %46, double** %47
%48 = add nsw i64 %32, 6
%49 = getelementptr inbounds double, double* %46, i64 %7
%50 = getelementptr inbounds double*, double** %0, i64 %48
store double* %49, double** %50
%51 = add nsw i64 %32, 7
%52 = getelementptr inbounds double, double* %49, i64 %7
%53 = getelementptr inbounds double*, double** %0, i64 %51
store double* %52, double** %53
%54 = add nsw i64 %32, 8
%55 = getelementptr inbounds double, double* %52, i64 %7
%56 = getelementptr inbounds double*, double** %0, i64 %54
store double* %55, double** %56
%57 = icmp eq i64 %54, %2
br i1 %57, label %58, label %30
58: ; preds = %26, %30, %5
ret void
}