void roll_svector(short *v, long nl, long nh) {
  long i;
  short tmp;
  tmp = v[nl];
  for (i = nl; i < nh; i++) {
    v[i] = v[i + 1];
  }
  v[nh] = tmp;
}


x86 assembly (clang, -O0):
<roll_svector>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x10(%rbp),%rcx
mov    (%rax,%rcx,2),%ax
mov    %ax,-0x22(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
cmp    -0x18(%rbp),%rax
jge    1160 <roll_svector+0x60>
mov    -0x8(%rbp),%rax
mov    -0x20(%rbp),%rcx
mov    0x2(%rax,%rcx,2),%dx
mov    -0x8(%rbp),%rax
mov    -0x20(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
jmp    1128 <roll_svector+0x28>
mov    -0x22(%rbp),%dx
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
pop    %rbp
ret

x86 assembly (clang, -O2):
<roll_svector>:
push   %rbx
movzwl (%rdi,%rsi,2),%r9d
mov    %rdx,%r11
sub    %rsi,%r11
jle    11c5 <roll_svector+0xc5>
cmp    $0x10,%r11
jb     11b0 <roll_svector+0xb0>
mov    %r11,%r8
and    $0xfffffffffffffff0,%r8
lea    -0x10(%r8),%rax
mov    %rax,%r10
shr    $0x4,%r10
add    $0x1,%r10
test   %rax,%rax
je     11cc <roll_svector+0xcc>
mov    %r10,%rcx
and    $0xfffffffffffffffe,%rcx
lea    (%rdi,%rsi,2),%rbx
add    $0x32,%rbx
xor    %eax,%eax
nopl   0x0(%rax)
movups -0x30(%rbx,%rax,2),%xmm0
movups -0x20(%rbx,%rax,2),%xmm1
movups -0x10(%rbx,%rax,2),%xmm2
movups (%rbx,%rax,2),%xmm3
movups %xmm0,-0x32(%rbx,%rax,2)
movups %xmm1,-0x22(%rbx,%rax,2)
movups %xmm2,-0x12(%rbx,%rax,2)
movups %xmm3,-0x2(%rbx,%rax,2)
add    $0x20,%rax
add    $0xfffffffffffffffe,%rcx
jne    1150 <roll_svector+0x50>
test   $0x1,%r10b
je     119d <roll_svector+0x9d>
add    %rsi,%rax
movups 0x2(%rdi,%rax,2),%xmm0
movups 0x12(%rdi,%rax,2),%xmm1
movups %xmm0,(%rdi,%rax,2)
movups %xmm1,0x10(%rdi,%rax,2)
cmp    %r8,%r11
je     11c5 <roll_svector+0xc5>
add    %r8,%rsi
cs nopw 0x0(%rax,%rax,1)
nop
movzwl 0x2(%rdi,%rsi,2),%eax
mov    %ax,(%rdi,%rsi,2)
lea    0x1(%rsi),%rax
mov    %rax,%rsi
cmp    %rax,%rdx
jne    11b0 <roll_svector+0xb0>
mov    %r9w,(%rdi,%rdx,2)
pop    %rbx
ret
xor    %eax,%eax
test   $0x1,%r10b
jne    1187 <roll_svector+0x87>
jmp    119d <roll_svector+0x9d>

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

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