int eshift(x, sc)
unsigned short *x;
int sc;
{
  unsigned short lost;
  unsigned short *p;
  if (sc == 0)
    return (0);
  lost = 0;
  p = x + (6 + 3) - 1;
  if (sc < 0) {
    sc = -sc;
    while (sc >= 16) {
      lost |= *p;
      eshdn6(x);
      sc -= 16;
    }
    while (sc >= 8) {
      lost |= *p & 0xff;
      eshdn8(x);
      sc -= 8;
    }
    while (sc > 0) {
      lost |= *p & 1;
      eshdn1(x);
      sc -= 1;
    }
  } else {
    while (sc >= 16) {
      eshup6(x);
      sc -= 16;
    }
    while (sc >= 8) {
      eshup8(x);
      sc -= 8;
    }
    while (sc > 0) {
      eshup1(x);
      sc -= 1;
    }
  }
  if (lost)
    lost = 1;
  return ((int)lost);
}


x86 assembly (clang, -O0):
<eshift>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
cmpl   $0x0,-0x14(%rbp)
jne    1185 <eshift+0x25>
movl   $0x0,-0x4(%rbp)
jmp    12f6 <eshift+0x196>
movw   $0x0,-0x16(%rbp)
mov    -0x10(%rbp),%rax
add    $0x12,%rax
add    $0xfffffffffffffffe,%rax
mov    %rax,-0x20(%rbp)
cmpl   $0x0,-0x14(%rbp)
jge    1261 <eshift+0x101>
xor    %eax,%eax
sub    -0x14(%rbp),%eax
mov    %eax,-0x14(%rbp)
cmpl   $0x10,-0x14(%rbp)
jl     11e1 <eshift+0x81>
mov    -0x20(%rbp),%rax
movzwl (%rax),%ecx
movzwl -0x16(%rbp),%eax
or     %ecx,%eax
mov    %ax,-0x16(%rbp)
mov    -0x10(%rbp),%rdi
mov    $0x0,%al
call   1040 <eshdn6@plt>
mov    -0x14(%rbp),%eax
sub    $0x10,%eax
mov    %eax,-0x14(%rbp)
jmp    11ad <eshift+0x4d>
jmp    11e6 <eshift+0x86>
cmpl   $0x8,-0x14(%rbp)
jl     1220 <eshift+0xc0>
mov    -0x20(%rbp),%rax
movzwl (%rax),%ecx
and    $0xff,%ecx
movzwl -0x16(%rbp),%eax
or     %ecx,%eax
mov    %ax,-0x16(%rbp)
mov    -0x10(%rbp),%rdi
mov    $0x0,%al
call   1030 <eshdn8@plt>
mov    -0x14(%rbp),%eax
sub    $0x8,%eax
mov    %eax,-0x14(%rbp)
jmp    11e6 <eshift+0x86>
jmp    1225 <eshift+0xc5>
cmpl   $0x0,-0x14(%rbp)
jle    125c <eshift+0xfc>
mov    -0x20(%rbp),%rax
movzwl (%rax),%ecx
and    $0x1,%ecx
movzwl -0x16(%rbp),%eax
or     %ecx,%eax
mov    %ax,-0x16(%rbp)
mov    -0x10(%rbp),%rdi
mov    $0x0,%al
call   1060 <eshdn1@plt>
mov    -0x14(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    1225 <eshift+0xc5>
jmp    12de <eshift+0x17e>
jmp    1266 <eshift+0x106>
cmpl   $0x10,-0x14(%rbp)
jl     1289 <eshift+0x129>
mov    -0x10(%rbp),%rdi
mov    $0x0,%al
call   1070 <eshup6@plt>
mov    -0x14(%rbp),%eax
sub    $0x10,%eax
mov    %eax,-0x14(%rbp)
jmp    1266 <eshift+0x106>
jmp    128e <eshift+0x12e>
cmpl   $0x8,-0x14(%rbp)
jl     12b1 <eshift+0x151>
mov    -0x10(%rbp),%rdi
mov    $0x0,%al
call   1080 <eshup8@plt>
mov    -0x14(%rbp),%eax
sub    $0x8,%eax
mov    %eax,-0x14(%rbp)
jmp    128e <eshift+0x12e>
jmp    12b6 <eshift+0x156>
cmpl   $0x0,-0x14(%rbp)
jle    12d9 <eshift+0x179>
mov    -0x10(%rbp),%rdi
mov    $0x0,%al
call   1050 <eshup1@plt>
mov    -0x14(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    12b6 <eshift+0x156>
jmp    12de <eshift+0x17e>
cmpw   $0x0,-0x16(%rbp)
je     12ef <eshift+0x18f>
movw   $0x1,-0x16(%rbp)
movzwl -0x16(%rbp),%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<eshift>:
test   %esi,%esi
je     11d4 <eshift+0x74>
push   %rbp
push   %r14
push   %rbx
mov    %esi,%ebx
mov    %rdi,%r14
js     11d7 <eshift+0x77>
cmp    $0x10,%ebx
jb     1192 <eshift+0x32>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %r14,%rdi
xor    %eax,%eax
call   1070 <eshup6@plt>
add    $0xfffffff0,%ebx
cmp    $0xf,%ebx
ja     1180 <eshift+0x20>
cmp    $0x8,%ebx
jb     11b2 <eshift+0x52>
nopw   0x0(%rax,%rax,1)
mov    %r14,%rdi
xor    %eax,%eax
call   1080 <eshup8@plt>
add    $0xfffffff8,%ebx
cmp    $0x7,%ebx
ja     11a0 <eshift+0x40>
test   %ebx,%ebx
je     123e <eshift+0xde>
add    $0x1,%ebx
xor    %ebp,%ebp
nop
mov    %r14,%rdi
xor    %eax,%eax
call   1050 <eshup1@plt>
add    $0xffffffff,%ebx
cmp    $0x1,%ebx
ja     11c0 <eshift+0x60>
jmp    1240 <eshift+0xe0>
xor    %eax,%eax
ret
neg    %ebx
xor    %ebp,%ebp
cmp    $0x10,%ebx
jb     11f7 <eshift+0x97>
or     0x10(%r14),%bp
mov    %r14,%rdi
xor    %eax,%eax
call   1040 <eshdn6@plt>
add    $0xfffffff0,%ebx
cmp    $0xf,%ebx
ja     11e0 <eshift+0x80>
cmp    $0x8,%ebx
jb     1219 <eshift+0xb9>
nopl   0x0(%rax)
movzbl 0x10(%r14),%eax
or     %eax,%ebp
mov    %r14,%rdi
xor    %eax,%eax
call   1030 <eshdn8@plt>
add    $0xfffffff8,%ebx
cmp    $0x7,%ebx
ja     1200 <eshift+0xa0>
test   %ebx,%ebx
je     1240 <eshift+0xe0>
add    $0x1,%ebx
movzwl 0x10(%r14),%eax
and    $0x1,%eax
or     %eax,%ebp
mov    %r14,%rdi
xor    %eax,%eax
call   1060 <eshdn1@plt>
add    $0xffffffff,%ebx
cmp    $0x1,%ebx
ja     1220 <eshift+0xc0>
jmp    1240 <eshift+0xe0>
xor    %ebp,%ebp
xor    %eax,%eax
test   %bp,%bp
setne  %al
pop    %rbx
pop    %r14
pop    %rbp
ret

LLVM IR (-O0):
define i32 @eshift(i16* %0, i32 %1) {
%3 = alloca i32
%4 = alloca i16*
%5 = alloca i32
%6 = alloca i16
%7 = alloca i16*
store i16* %0, i16** %4
store i32 %1, i32* %5
%8 = load i32, i32* %5
%9 = icmp eq i32 %8, 0
br i1 %9, label %10, label %11
10: ; preds = %2
store i32 0, i32* %3
br label %105
11: ; preds = %2
store i16 0, i16* %6
%12 = load i16*, i16** %4
%13 = getelementptr inbounds i16, i16* %12, i64 9
%14 = getelementptr inbounds i16, i16* %13, i64 -1
store i16* %14, i16** %7
%15 = load i32, i32* %5
%16 = icmp slt i32 %15, 0
br i1 %16, label %17, label %70
17: ; preds = %11
%18 = load i32, i32* %5
%19 = sub nsw i32 0, %18
store i32 %19, i32* %5
br label %20
20: ; preds = %23, %17
%21 = load i32, i32* %5
%22 = icmp sge i32 %21, 16
br i1 %22, label %23, label %35
23: ; preds = %20
%24 = load i16*, i16** %7
%25 = load i16, i16* %24
%26 = zext i16 %25 to i32
%27 = load i16, i16* %6
%28 = zext i16 %27 to i32
%29 = or i32 %28, %26
%30 = trunc i32 %29 to i16
store i16 %30, i16* %6
%31 = load i16*, i16** %4
%32 = call i32 (i16*, ...) bitcast (i32 (...)* @eshdn6 to i32 (i16*, ...)*)(i16* %31)
%33 = load i32, i32* %5
%34 = sub nsw i32 %33, 16
store i32 %34, i32* %5
br label %20
35: ; preds = %20
br label %36
36: ; preds = %39, %35
%37 = load i32, i32* %5
%38 = icmp sge i32 %37, 8
br i1 %38, label %39, label %52
39: ; preds = %36
%40 = load i16*, i16** %7
%41 = load i16, i16* %40
%42 = zext i16 %41 to i32
%43 = and i32 %42, 255
%44 = load i16, i16* %6
%45 = zext i16 %44 to i32
%46 = or i32 %45, %43
%47 = trunc i32 %46 to i16
store i16 %47, i16* %6
%48 = load i16*, i16** %4
%49 = call i32 (i16*, ...) bitcast (i32 (...)* @eshdn8 to i32 (i16*, ...)*)(i16* %48)
%50 = load i32, i32* %5
%51 = sub nsw i32 %50, 8
store i32 %51, i32* %5
br label %36
52: ; preds = %36
br label %53
53: ; preds = %56, %52
%54 = load i32, i32* %5
%55 = icmp sgt i32 %54, 0
br i1 %55, label %56, label %69
56: ; preds = %53
%57 = load i16*, i16** %7
%58 = load i16, i16* %57
%59 = zext i16 %58 to i32
%60 = and i32 %59, 1
%61 = load i16, i16* %6
%62 = zext i16 %61 to i32
%63 = or i32 %62, %60
%64 = trunc i32 %63 to i16
store i16 %64, i16* %6
%65 = load i16*, i16** %4
%66 = call i32 (i16*, ...) bitcast (i32 (...)* @eshdn1 to i32 (i16*, ...)*)(i16* %65)
%67 = load i32, i32* %5
%68 = sub nsw i32 %67, 1
store i32 %68, i32* %5
br label %53
69: ; preds = %53
br label %98
70: ; preds = %11
br label %71
71: ; preds = %74, %70
%72 = load i32, i32* %5
%73 = icmp sge i32 %72, 16
br i1 %73, label %74, label %79
74: ; preds = %71
%75 = load i16*, i16** %4
%76 = call i32 (i16*, ...) bitcast (i32 (...)* @eshup6 to i32 (i16*, ...)*)(i16* %75)
%77 = load i32, i32* %5
%78 = sub nsw i32 %77, 16
store i32 %78, i32* %5
br label %71
79: ; preds = %71
br label %80
80: ; preds = %83, %79
%81 = load i32, i32* %5
%82 = icmp sge i32 %81, 8
br i1 %82, label %83, label %88
83: ; preds = %80
%84 = load i16*, i16** %4
%85 = call i32 (i16*, ...) bitcast (i32 (...)* @eshup8 to i32 (i16*, ...)*)(i16* %84)
%86 = load i32, i32* %5
%87 = sub nsw i32 %86, 8
store i32 %87, i32* %5
br label %80
88: ; preds = %80
br label %89
89: ; preds = %92, %88
%90 = load i32, i32* %5
%91 = icmp sgt i32 %90, 0
br i1 %91, label %92, label %97
92: ; preds = %89
%93 = load i16*, i16** %4
%94 = call i32 (i16*, ...) bitcast (i32 (...)* @eshup1 to i32 (i16*, ...)*)(i16* %93)
%95 = load i32, i32* %5
%96 = sub nsw i32 %95, 1
store i32 %96, i32* %5
br label %89
97: ; preds = %89
br label %98
98: ; preds = %97, %69
%99 = load i16, i16* %6
%100 = icmp ne i16 %99, 0
br i1 %100, label %101, label %102
101: ; preds = %98
store i16 1, i16* %6
br label %102
102: ; preds = %101, %98
%103 = load i16, i16* %6
%104 = zext i16 %103 to i32
store i32 %104, i32* %3
br label %105
105: ; preds = %102, %10
%106 = load i32, i32* %3
ret i32 %106
}

LLVM IR (-O2):
define i32 @eshift(i16* %0, i32 %1) {
%3 = icmp eq i32 %1, 0
br i1 %3, label %71, label %4
4: ; preds = %2
%5 = getelementptr inbounds i16, i16* %0, i64 8
%6 = icmp slt i32 %1, 0
br i1 %6, label %9, label %7
7: ; preds = %4
%8 = icmp ugt i32 %1, 15
br i1 %8, label %49, label %46
9: ; preds = %4
%10 = sub nsw i32 0, %1
%11 = icmp ugt i32 %10, 15
br i1 %11, label %16, label %12
12: ; preds = %16, %9
%13 = phi i32 [ %10, %9 ], [ %22, %16 ]
%14 = phi i16 [ 0, %9 ], [ %20, %16 ]
%15 = icmp ugt i32 %13, 7
br i1 %15, label %28, label %24
16: ; preds = %9, %16
%17 = phi i16 [ %20, %16 ], [ 0, %9 ]
%18 = phi i32 [ %22, %16 ], [ %10, %9 ]
%19 = load i16, i16* %5
%20 = or i16 %19, %17
%21 = tail call i32 (i16*, ...) bitcast (i32 (...)* @eshdn6 to i32 (i16*, ...)*)(i16* %0)
%22 = add nsw i32 %18, -16
%23 = icmp ugt i32 %22, 15
br i1 %23, label %16, label %12
24: ; preds = %28, %12
%25 = phi i32 [ %13, %12 ], [ %35, %28 ]
%26 = phi i16 [ %14, %12 ], [ %33, %28 ]
%27 = icmp eq i32 %25, 0
br i1 %27, label %67, label %37
28: ; preds = %12, %28
%29 = phi i16 [ %33, %28 ], [ %14, %12 ]
%30 = phi i32 [ %35, %28 ], [ %13, %12 ]
%31 = load i16, i16* %5
%32 = and i16 %31, 255
%33 = or i16 %32, %29
%34 = tail call i32 (i16*, ...) bitcast (i32 (...)* @eshdn8 to i32 (i16*, ...)*)(i16* %0)
%35 = add nsw i32 %30, -8
%36 = icmp ugt i32 %35, 7
br i1 %36, label %28, label %24
37: ; preds = %24, %37
%38 = phi i16 [ %42, %37 ], [ %26, %24 ]
%39 = phi i32 [ %44, %37 ], [ %25, %24 ]
%40 = load i16, i16* %5
%41 = and i16 %40, 1
%42 = or i16 %41, %38
%43 = tail call i32 (i16*, ...) bitcast (i32 (...)* @eshdn1 to i32 (i16*, ...)*)(i16* %0)
%44 = add nsw i32 %39, -1
%45 = icmp ugt i32 %39, 1
br i1 %45, label %37, label %67
46: ; preds = %49, %7
%47 = phi i32 [ %1, %7 ], [ %52, %49 ]
%48 = icmp ugt i32 %47, 7
br i1 %48, label %57, label %54
49: ; preds = %7, %49
%50 = phi i32 [ %52, %49 ], [ %1, %7 ]
%51 = tail call i32 (i16*, ...) bitcast (i32 (...)* @eshup6 to i32 (i16*, ...)*)(i16* %0)
%52 = add nsw i32 %50, -16
%53 = icmp ugt i32 %52, 15
br i1 %53, label %49, label %46
54: ; preds = %57, %46
%55 = phi i32 [ %47, %46 ], [ %60, %57 ]
%56 = icmp eq i32 %55, 0
br i1 %56, label %67, label %62
57: ; preds = %46, %57
%58 = phi i32 [ %60, %57 ], [ %47, %46 ]
%59 = tail call i32 (i16*, ...) bitcast (i32 (...)* @eshup8 to i32 (i16*, ...)*)(i16* %0)
%60 = add nsw i32 %58, -8
%61 = icmp ugt i32 %60, 7
br i1 %61, label %57, label %54
62: ; preds = %54, %62
%63 = phi i32 [ %65, %62 ], [ %55, %54 ]
%64 = tail call i32 (i16*, ...) bitcast (i32 (...)* @eshup1 to i32 (i16*, ...)*)(i16* %0)
%65 = add nsw i32 %63, -1
%66 = icmp ugt i32 %63, 1
br i1 %66, label %62, label %67
67: ; preds = %62, %37, %54, %24
%68 = phi i16 [ %26, %24 ], [ 0, %54 ], [ %42, %37 ], [ 0, %62 ]
%69 = icmp ne i16 %68, 0
%70 = zext i1 %69 to i32
br label %71
71: ; preds = %2, %67
%72 = phi i32 [ %70, %67 ], [ 0, %2 ]
ret i32 %72
}