long exbits(int nb, int len, char *buf) {
  long i, ll, is, ib, ix, j;
  unsigned long mask = 0xffffffff;
  unsigned long h, l = 0;
  unsigned long ls;
  ll = len;
  i = nb / 8;
  ib = nb - (i * 8);
  is = 32 - (8 - ib);
  mask = mask >> is;
  if (ib > 0) {
    l = buf[i] & mask;
    ll = ll - (8 - ib);
    i++;
  }
  ix = ll / 8;
  for (j = 0; j < ix; j++) {
    l = l << 8;
    h = buf[i];
    l = l | h;
    i++;
  }
  j = ll - ix * 8;
  if (j > 0) {
    l = l << j;
    h = buf[i];
    h = h >> (8 - j);
    l = l | h;
  } else if (ll < 0) {
    j = -ll;
    l = l >> j;
  }
  ls = l;
  ls = ls << (32 - len);
  ls = ls >> (32 - len);
  return ls;
}


x86 assembly (clang, -O0):
<exbits>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
mov    %rdx,-0x10(%rbp)
mov    $0xffffffff,%eax
mov    %rax,-0x48(%rbp)
movq   $0x0,-0x58(%rbp)
movslq -0x8(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x4(%rbp),%eax
mov    $0x8,%ecx
cltd
idiv   %ecx
cltq
mov    %rax,-0x18(%rbp)
movslq -0x4(%rbp),%rax
mov    -0x18(%rbp),%rcx
shl    $0x3,%rcx
sub    %rcx,%rax
mov    %rax,-0x30(%rbp)
mov    $0x8,%ecx
sub    -0x30(%rbp),%rcx
mov    $0x20,%eax
sub    %rcx,%rax
mov    %rax,-0x28(%rbp)
mov    -0x48(%rbp),%rax
mov    -0x28(%rbp),%rcx
shr    %cl,%rax
mov    %rax,-0x48(%rbp)
cmpq   $0x0,-0x30(%rbp)
jle    11af <exbits+0xaf>
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%rcx
movsbq (%rax,%rcx,1),%rax
and    -0x48(%rbp),%rax
mov    %rax,-0x58(%rbp)
mov    -0x20(%rbp),%rax
mov    $0x8,%ecx
sub    -0x30(%rbp),%rcx
sub    %rcx,%rax
mov    %rax,-0x20(%rbp)
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
mov    -0x20(%rbp),%rax
mov    $0x8,%ecx
cqto
idiv   %rcx
mov    %rax,-0x38(%rbp)
movq   $0x0,-0x40(%rbp)
mov    -0x40(%rbp),%rax
cmp    -0x38(%rbp),%rax
jge    121d <exbits+0x11d>
mov    -0x58(%rbp),%rax
shl    $0x8,%rax
mov    %rax,-0x58(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%rcx
movsbq (%rax,%rcx,1),%rax
mov    %rax,-0x50(%rbp)
mov    -0x58(%rbp),%rax
or     -0x50(%rbp),%rax
mov    %rax,-0x58(%rbp)
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
mov    -0x40(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x40(%rbp)
jmp    11c9 <exbits+0xc9>
mov    -0x20(%rbp),%rax
mov    -0x38(%rbp),%rcx
shl    $0x3,%rcx
sub    %rcx,%rax
mov    %rax,-0x40(%rbp)
cmpq   $0x0,-0x40(%rbp)
jle    1280 <exbits+0x180>
mov    -0x58(%rbp),%rax
mov    -0x40(%rbp),%rcx
shl    %cl,%rax
mov    %rax,-0x58(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%rcx
movsbq (%rax,%rcx,1),%rax
mov    %rax,-0x50(%rbp)
mov    -0x50(%rbp),%rax
mov    $0x8,%ecx
sub    -0x40(%rbp),%rcx
shr    %cl,%rax
mov    %rax,-0x50(%rbp)
mov    -0x58(%rbp),%rax
or     -0x50(%rbp),%rax
mov    %rax,-0x58(%rbp)
jmp    12a9 <exbits+0x1a9>
cmpq   $0x0,-0x20(%rbp)
jge    12a4 <exbits+0x1a4>
xor    %eax,%eax
sub    -0x20(%rbp),%rax
mov    %rax,-0x40(%rbp)
mov    -0x58(%rbp),%rax
mov    -0x40(%rbp),%rcx
shr    %cl,%rax
mov    %rax,-0x58(%rbp)
jmp    12a9 <exbits+0x1a9>
mov    -0x58(%rbp),%rax
mov    %rax,-0x60(%rbp)
mov    -0x60(%rbp),%rax
mov    $0x20,%ecx
sub    -0x8(%rbp),%ecx
mov    %ecx,%ecx
shl    %cl,%rax
mov    %rax,-0x60(%rbp)
mov    -0x60(%rbp),%rax
mov    $0x20,%ecx
sub    -0x8(%rbp),%ecx
mov    %ecx,%ecx
shr    %cl,%rax
mov    %rax,-0x60(%rbp)
mov    -0x60(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<exbits>:
push   %r14
push   %rbx
movslq %esi,%r8
lea    0x7(%rdi),%eax
test   %edi,%edi
cmovns %edi,%eax
sar    $0x3,%eax
movslq %eax,%r9
movslq %edi,%rdi
lea    0x0(,%r9,8),%rax
sub    %rax,%rdi
test   %rdi,%rdi
jle    1146 <exbits+0x46>
lea    0x18(%rdi),%ecx
mov    $0xffffffff,%eax
shr    %cl,%rax
movsbl (%rdx,%r9,1),%ecx
and    %ecx,%eax
add    %rdi,%r8
add    $0xfffffffffffffff8,%r8
add    $0x1,%r9
jmp    1148 <exbits+0x48>
xor    %eax,%eax
lea    0x7(%r8),%r10
test   %r8,%r8
cmovns %r8,%r10
sar    $0x3,%r10
cmp    $0x8,%r8
jl     11f8 <exbits+0xf8>
lea    -0x1(%r10),%rcx
mov    %r10d,%r11d
and    $0x3,%r11d
cmp    $0x3,%rcx
jae    1177 <exbits+0x77>
mov    %r9,%rdi
jmp    11cd <exbits+0xcd>
mov    %r10,%r14
and    $0xfffffffffffffffc,%r14
mov    %r9,%rdi
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movsbq (%rdx,%rdi,1),%rbx
shl    $0x10,%rax
shl    $0x8,%rbx
movsbq 0x1(%rdx,%rdi,1),%rcx
or     %rax,%rcx
or     %rbx,%rcx
movsbq 0x2(%rdx,%rdi,1),%rbx
shl    $0x10,%rcx
shl    $0x8,%rbx
movsbq 0x3(%rdx,%rdi,1),%rax
or     %rbx,%rax
or     %rcx,%rax
add    $0x4,%rdi
add    $0xfffffffffffffffc,%r14
jne    1190 <exbits+0x90>
test   %r11,%r11
je     11f5 <exbits+0xf5>
add    %rdx,%rdi
xor    %ecx,%ecx
nopw   0x0(%rax,%rax,1)
shl    $0x8,%rax
movsbq (%rdi,%rcx,1),%rbx
or     %rbx,%rax
add    $0x1,%rcx
cmp    %rcx,%r11
jne    11e0 <exbits+0xe0>
add    %r10,%r9
shl    $0x3,%r10
mov    %r8,%rcx
sub    %r10,%rcx
test   %rcx,%rcx
jle    121d <exbits+0x11d>
shl    %cl,%rax
movsbq (%rdx,%r9,1),%rdi
mov    $0x8,%dl
sub    %cl,%dl
mov    %edx,%ecx
shr    %cl,%rdi
or     %rdi,%rax
jmp    122b <exbits+0x12b>
test   %r8,%r8
jns    122b <exbits+0x12b>
neg    %r8b
mov    %r8d,%ecx
shr    %cl,%rax
mov    $0x20,%cl
sub    %sil,%cl
shl    %cl,%rax
shr    %cl,%rax
pop    %rbx
pop    %r14
ret

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

LLVM IR (-O2):
define i64 @exbits(i32 %0, i32 %1, i8* nocapture %2) {
%4 = sext i32 %1 to i64
%5 = sdiv i32 %0, 8
%6 = sext i32 %5 to i64
%7 = sext i32 %0 to i64
%8 = mul nsw i64 %6, -8
%9 = add nsw i64 %8, %7
%10 = icmp sgt i64 %9, 0
br i1 %10, label %11, label %21
11: ; preds = %3
%12 = add nuw nsw i64 %9, 24
%13 = lshr i64 4294967295, %12
%14 = getelementptr inbounds i8, i8* %2, i64 %6
%15 = load i8, i8* %14
%16 = sext i8 %15 to i64
%17 = and i64 %13, %16
%18 = add nsw i64 %4, -8
%19 = add nsw i64 %18, %9
%20 = add nsw i64 %6, 1
br label %21
21: ; preds = %11, %3
%22 = phi i64 [ %19, %11 ], [ %4, %3 ]
%23 = phi i64 [ %17, %11 ], [ 0, %3 ]
%24 = phi i64 [ %20, %11 ], [ %6, %3 ]
%25 = sdiv i64 %22, 8
%26 = icmp sgt i64 %22, 7
br i1 %26, label %27, label %83
27: ; preds = %21
%28 = add nsw i64 %25, -1
%29 = and i64 %25, 3
%30 = icmp ult i64 %28, 3
br i1 %30, label %63, label %31
31: ; preds = %27
%32 = and i64 %25, -4
br label %33
33: ; preds = %33, %31
%34 = phi i64 [ %24, %31 ], [ %60, %33 ]
%35 = phi i64 [ %23, %31 ], [ %59, %33 ]
%36 = phi i64 [ 0, %31 ], [ %61, %33 ]
%37 = getelementptr inbounds i8, i8* %2, i64 %34
%38 = load i8, i8* %37
%39 = sext i8 %38 to i64
%40 = add nsw i64 %34, 1
%41 = shl i64 %35, 16
%42 = shl nsw i64 %39, 8
%43 = or i64 %41, %42
%44 = getelementptr inbounds i8, i8* %2, i64 %40
%45 = load i8, i8* %44
%46 = sext i8 %45 to i64
%47 = or i64 %43, %46
%48 = add nsw i64 %34, 2
%49 = getelementptr inbounds i8, i8* %2, i64 %48
%50 = load i8, i8* %49
%51 = sext i8 %50 to i64
%52 = add nsw i64 %34, 3
%53 = shl i64 %47, 16
%54 = shl nsw i64 %51, 8
%55 = or i64 %53, %54
%56 = getelementptr inbounds i8, i8* %2, i64 %52
%57 = load i8, i8* %56
%58 = sext i8 %57 to i64
%59 = or i64 %55, %58
%60 = add nsw i64 %34, 4
%61 = add i64 %36, 4
%62 = icmp eq i64 %61, %32
br i1 %62, label %63, label %33
63: ; preds = %33, %27
%64 = phi i64 [ undef, %27 ], [ %59, %33 ]
%65 = phi i64 [ %24, %27 ], [ %60, %33 ]
%66 = phi i64 [ %23, %27 ], [ %59, %33 ]
%67 = icmp eq i64 %29, 0
br i1 %67, label %80, label %68
68: ; preds = %63, %68
%69 = phi i64 [ %77, %68 ], [ %65, %63 ]
%70 = phi i64 [ %76, %68 ], [ %66, %63 ]
%71 = phi i64 [ %78, %68 ], [ 0, %63 ]
%72 = shl i64 %70, 8
%73 = getelementptr inbounds i8, i8* %2, i64 %69
%74 = load i8, i8* %73
%75 = sext i8 %74 to i64
%76 = or i64 %72, %75
%77 = add nsw i64 %69, 1
%78 = add i64 %71, 1
%79 = icmp eq i64 %78, %29
br i1 %79, label %80, label %68
80: ; preds = %68, %63
%81 = phi i64 [ %64, %63 ], [ %76, %68 ]
%82 = add nsw i64 %24, %25
br label %83
83: ; preds = %80, %21
%84 = phi i64 [ %23, %21 ], [ %81, %80 ]
%85 = phi i64 [ %24, %21 ], [ %82, %80 ]
%86 = mul nsw i64 %25, -8
%87 = add i64 %86, %22
%88 = icmp sgt i64 %87, 0
br i1 %88, label %89, label %97
89: ; preds = %83
%90 = shl i64 %84, %87
%91 = getelementptr inbounds i8, i8* %2, i64 %85
%92 = load i8, i8* %91
%93 = sext i8 %92 to i64
%94 = sub nsw i64 8, %87
%95 = lshr i64 %93, %94
%96 = or i64 %95, %90
br label %102
97: ; preds = %83
%98 = icmp slt i64 %22, 0
br i1 %98, label %99, label %102
99: ; preds = %97
%100 = sub nsw i64 0, %22
%101 = lshr i64 %84, %100
br label %102
102: ; preds = %97, %99, %89
%103 = phi i64 [ %96, %89 ], [ %101, %99 ], [ %84, %97 ]
%104 = sub nsw i32 32, %1
%105 = zext i32 %104 to i64
%106 = lshr i64 -1, %105
%107 = and i64 %103, %106
ret i64 %107
}