void shrink_smatrix(short **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_smatrix>:
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_smatrix+0x8a>
mov    -0x8(%rbp),%rax
mov    -0x30(%rbp),%rcx
sub    $0x1,%rcx
mov    (%rax,%rcx,8),%rdx
mov    -0x40(%rbp),%rax
shl    $0x1,%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_smatrix+0x44>
pop    %rbp
ret

x86 assembly (clang, -O2):
<shrink_smatrix>:
push   %rbx
cmp    %rsi,%rdx
jle    11ca <shrink_smatrix+0xca>
mov    (%rdi,%rsi,8),%r10
mov    %edx,%eax
sub    %esi,%eax
mov    %rsi,%r9
not    %r9
add    %rdx,%r9
and    $0x7,%rax
je     1142 <shrink_smatrix+0x42>
lea    (%r8,%r8,1),%r11
sub    %rcx,%r11
sub    %rcx,%r11
add    $0x2,%r11
nop
add    %r11,%r10
mov    %r10,0x8(%rdi,%rsi,8)
add    $0x1,%rsi
add    $0xffffffffffffffff,%rax
jne    1130 <shrink_smatrix+0x30>
cmp    $0x7,%r9
jb     11ca <shrink_smatrix+0xca>
mov    %r8,%rax
sub    %rcx,%rax
add    $0x1,%rax
lea    (%r10,%rax,2),%rax
mov    %r8,%r9
shl    $0x4,%r9
mov    %rcx,%rbx
shl    $0x4,%rbx
sub    %rbx,%r9
add    $0x10,%r9
add    %r8,%r8
add    %rcx,%rcx
sub    %rcx,%r8
add    $0x2,%r8
nopl   0x0(%rax)
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    1180 <shrink_smatrix+0x80>
pop    %rbx
ret

LLVM IR (-O0):
define void @shrink_smatrix(i16** %0, i64 %1, i64 %2, i64 %3, i64 %4) {
%6 = alloca i16**
%7 = alloca i64
%8 = alloca i64
%9 = alloca i64
%10 = alloca i64
%11 = alloca i64
%12 = alloca i64
%13 = alloca i64
store i16** %0, i16*** %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 i16**, i16*** %6
%30 = load i64, i64* %11
%31 = sub nsw i64 %30, 1
%32 = getelementptr inbounds i16*, i16** %29, i64 %31
%33 = load i16*, i16** %32
%34 = load i64, i64* %13
%35 = getelementptr inbounds i16, i16* %33, i64 %34
%36 = load i16**, i16*** %6
%37 = load i64, i64* %11
%38 = getelementptr inbounds i16*, i16** %36, i64 %37
store i16* %35, i16** %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_smatrix(i16** 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 i16*, i16** %0, i64 %1
%11 = load i16*, i16** %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 i16* [ %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 i16, i16* %18, i64 %7
%23 = getelementptr inbounds i16*, i16** %0, i64 %21
store i16* %22, i16** %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 i16* [ %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 i16* [ %55, %30 ], [ %27, %26 ]
%32 = phi i64 [ %54, %30 ], [ %28, %26 ]
%33 = add nsw i64 %32, 1
%34 = getelementptr inbounds i16, i16* %31, i64 %7
%35 = getelementptr inbounds i16*, i16** %0, i64 %33
store i16* %34, i16** %35
%36 = add nsw i64 %32, 2
%37 = getelementptr inbounds i16, i16* %34, i64 %7
%38 = getelementptr inbounds i16*, i16** %0, i64 %36
store i16* %37, i16** %38
%39 = add nsw i64 %32, 3
%40 = getelementptr inbounds i16, i16* %37, i64 %7
%41 = getelementptr inbounds i16*, i16** %0, i64 %39
store i16* %40, i16** %41
%42 = add nsw i64 %32, 4
%43 = getelementptr inbounds i16, i16* %40, i64 %7
%44 = getelementptr inbounds i16*, i16** %0, i64 %42
store i16* %43, i16** %44
%45 = add nsw i64 %32, 5
%46 = getelementptr inbounds i16, i16* %43, i64 %7
%47 = getelementptr inbounds i16*, i16** %0, i64 %45
store i16* %46, i16** %47
%48 = add nsw i64 %32, 6
%49 = getelementptr inbounds i16, i16* %46, i64 %7
%50 = getelementptr inbounds i16*, i16** %0, i64 %48
store i16* %49, i16** %50
%51 = add nsw i64 %32, 7
%52 = getelementptr inbounds i16, i16* %49, i64 %7
%53 = getelementptr inbounds i16*, i16** %0, i64 %51
store i16* %52, i16** %53
%54 = add nsw i64 %32, 8
%55 = getelementptr inbounds i16, i16* %52, i64 %7
%56 = getelementptr inbounds i16*, i16** %0, i64 %54
store i16* %55, i16** %56
%57 = icmp eq i64 %54, %2
br i1 %57, label %58, label %30
58: ; preds = %26, %30, %5
ret void
}