void lut_smatrix(short **S, long nrl, long nrh, long ncl, long nch, short *L,
                 short **D) {
  int i, j;
  short *Si, *Di;
  for (i = nrl; i <= nrh; i++) {
    Si = S[i];
    Di = D[i];
    for (j = ncl; j <= nch; j++) {
      Di[j] = L[Si[j]];
    }
  }
}


x86 assembly (clang, -O0):
<lut_smatrix>:
push   %rbp
mov    %rsp,%rbp
mov    0x10(%rbp),%rax
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
mov    -0x10(%rbp),%rax
mov    %eax,-0x34(%rbp)
movslq -0x34(%rbp),%rax
cmp    -0x18(%rbp),%rax
jg     11ac <lut_smatrix+0xac>
mov    -0x8(%rbp),%rax
movslq -0x34(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x40(%rbp)
mov    0x10(%rbp),%rax
movslq -0x34(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x48(%rbp)
mov    -0x20(%rbp),%rax
mov    %eax,-0x38(%rbp)
movslq -0x38(%rbp),%rax
cmp    -0x28(%rbp),%rax
jg     1199 <lut_smatrix+0x99>
mov    -0x30(%rbp),%rax
mov    -0x40(%rbp),%rcx
movslq -0x38(%rbp),%rdx
movswq (%rcx,%rdx,2),%rcx
mov    (%rax,%rcx,2),%dx
mov    -0x48(%rbp),%rax
movslq -0x38(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    115c <lut_smatrix+0x5c>
jmp    119e <lut_smatrix+0x9e>
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    1127 <lut_smatrix+0x27>
pop    %rbp
ret

x86 assembly (clang, -O2):
<lut_smatrix>:
push   %r14
push   %rbx
movslq %esi,%r14
cmp    %rdx,%r14
jle    110f <lut_smatrix+0xf>
pop    %rbx
pop    %r14
ret
mov    0x18(%rsp),%r10
movslq %ecx,%r11
jmp    1129 <lut_smatrix+0x29>
nopl   0x0(%rax)
add    $0x1,%r14
cmp    %rdx,%r14
jg     110b <lut_smatrix+0xb>
cmp    %r8,%r11
jg     1120 <lut_smatrix+0x20>
mov    (%rdi,%r14,8),%rsi
mov    (%r10,%r14,8),%rcx
mov    %r11,%rbx
nopl   0x0(%rax)
movswq (%rsi,%rbx,2),%rax
movzwl (%r9,%rax,2),%eax
mov    %ax,(%rcx,%rbx,2)
add    $0x1,%rbx
cmp    %r8,%rbx
jle    1140 <lut_smatrix+0x40>
jmp    1120 <lut_smatrix+0x20>

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

LLVM IR (-O2):
define void @lut_smatrix(i16** nocapture %0, i64 %1, i64 %2, i64 %3, i64 %4, i16* nocapture %5, i16** nocapture %6) {
%8 = shl i64 %1, 32
%9 = ashr exact i64 %8, 32
%10 = icmp sgt i64 %9, %2
br i1 %10, label %34, label %11
11: ; preds = %7
%12 = shl i64 %3, 32
%13 = ashr exact i64 %12, 32
%14 = icmp sgt i64 %13, %4
br label %15
15: ; preds = %11, %31
%16 = phi i64 [ %9, %11 ], [ %32, %31 ]
%17 = getelementptr inbounds i16*, i16** %0, i64 %16
%18 = load i16*, i16** %17
%19 = getelementptr inbounds i16*, i16** %6, i64 %16
%20 = load i16*, i16** %19
br i1 %14, label %31, label %21
21: ; preds = %15, %21
%22 = phi i64 [ %29, %21 ], [ %13, %15 ]
%23 = getelementptr inbounds i16, i16* %18, i64 %22
%24 = load i16, i16* %23
%25 = sext i16 %24 to i64
%26 = getelementptr inbounds i16, i16* %5, i64 %25
%27 = load i16, i16* %26
%28 = getelementptr inbounds i16, i16* %20, i64 %22
store i16 %27, i16* %28
%29 = add i64 %22, 1
%30 = icmp sgt i64 %29, %4
br i1 %30, label %31, label %21
31: ; preds = %21, %15
%32 = add i64 %16, 1
%33 = icmp sgt i64 %32, %2
br i1 %33, label %34, label %15
34: ; preds = %31, %7
ret void
}