void rrotate_smatrix(short **S, long nrl, long nrh, long ncl, long nch,
                     short **D) {
  int i, j, n = nrl + nrh;
  for (i = nrl; i <= nrh; i++) {
    for (j = ncl; j <= nch; j++) {
      D[i][j] = S[n - j][i];
    }
  }
}


x86 assembly (clang, -O0):
<rrotate_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    %r9,-0x30(%rbp)
mov    -0x10(%rbp),%rax
add    -0x18(%rbp),%rax
mov    %eax,-0x3c(%rbp)
mov    -0x10(%rbp),%rax
mov    %eax,-0x34(%rbp)
movslq -0x34(%rbp),%rax
cmp    -0x18(%rbp),%rax
jg     119f <rrotate_smatrix+0x9f>
mov    -0x20(%rbp),%rax
mov    %eax,-0x38(%rbp)
movslq -0x38(%rbp),%rax
cmp    -0x28(%rbp),%rax
jg     118c <rrotate_smatrix+0x8c>
mov    -0x8(%rbp),%rax
mov    -0x3c(%rbp),%ecx
sub    -0x38(%rbp),%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x34(%rbp),%rcx
mov    (%rax,%rcx,2),%dx
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x38(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    1143 <rrotate_smatrix+0x43>
jmp    1191 <rrotate_smatrix+0x91>
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    112e <rrotate_smatrix+0x2e>
pop    %rbp
ret

x86 assembly (clang, -O2):
<rrotate_smatrix>:
push   %rbx
movslq %esi,%rax
cmp    %rdx,%rax
jle    110b <rrotate_smatrix+0xb>
pop    %rbx
ret
add    %edx,%esi
movslq %ecx,%r11
movslq %esi,%rcx
sub    %r11,%rcx
lea    (%rdi,%rcx,8),%r10
jmp    1129 <rrotate_smatrix+0x29>
nopl   0x0(%rax)
add    $0x1,%rax
cmp    %rdx,%rax
jg     1109 <rrotate_smatrix+0x9>
cmp    %r8,%r11
jg     1120 <rrotate_smatrix+0x20>
mov    (%r9,%rax,8),%rdi
mov    %r10,%rsi
mov    %r11,%rcx
nopl   0x0(%rax,%rax,1)
mov    (%rsi),%rbx
movzwl (%rbx,%rax,2),%ebx
mov    %bx,(%rdi,%rcx,2)
add    $0x1,%rcx
add    $0xfffffffffffffff8,%rsi
cmp    %r8,%rcx
jle    1140 <rrotate_smatrix+0x40>
jmp    1120 <rrotate_smatrix+0x20>

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

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