int unpack_code(unsigned int **p_ch_beg, int *p_ch_bit, int *p_code,
                int numbits, int wsize, unsigned int ERASE_MASK) {
  int ret_code;
  int i, ch_bit;
  unsigned int *ch_word;
  ch_bit = *p_ch_bit;
  ch_word = *p_ch_beg;
  *p_code = 0;
  ret_code = *ch_word & ERASE_MASK;
  for (i = 0; i < numbits; i++) {
    *p_code |= (((*ch_word & (1 << ch_bit)) >> ch_bit) << i);
    if (++ch_bit >= wsize) {
      ch_bit = 0;
      (*p_ch_beg)++;
      ch_word++;
    }
  }
  *p_ch_bit = ch_bit;
  if (ch_bit != 0)
    ret_code |= *ch_word & ERASE_MASK;
  return (ret_code);
}


x86 assembly (clang, -O0):
<unpack_code>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
mov    %r8d,-0x20(%rbp)
mov    %r9d,-0x24(%rbp)
mov    -0x10(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x30(%rbp)
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x38(%rbp)
mov    -0x18(%rbp),%rax
movl   $0x0,(%rax)
mov    -0x38(%rbp),%rax
mov    (%rax),%eax
and    -0x24(%rbp),%eax
mov    %eax,-0x28(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    11c6 <unpack_code+0xc6>
mov    -0x38(%rbp),%rax
mov    (%rax),%eax
mov    -0x30(%rbp),%ecx
mov    $0x1,%edx
shl    %cl,%edx
mov    %edx,%ecx
and    %ecx,%eax
mov    -0x30(%rbp),%ecx
shr    %cl,%eax
mov    -0x2c(%rbp),%ecx
shl    %cl,%eax
mov    %eax,%ecx
mov    -0x18(%rbp),%rax
or     (%rax),%ecx
mov    %ecx,(%rax)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
cmp    -0x20(%rbp),%eax
jl     11b3 <unpack_code+0xb3>
movl   $0x0,-0x30(%rbp)
mov    -0x8(%rbp),%rax
mov    (%rax),%rcx
add    $0x4,%rcx
mov    %rcx,(%rax)
mov    -0x38(%rbp),%rax
add    $0x4,%rax
mov    %rax,-0x38(%rbp)
jmp    11b8 <unpack_code+0xb8>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    114c <unpack_code+0x4c>
mov    -0x30(%rbp),%ecx
mov    -0x10(%rbp),%rax
mov    %ecx,(%rax)
cmpl   $0x0,-0x30(%rbp)
je     11e8 <unpack_code+0xe8>
mov    -0x38(%rbp),%rax
mov    (%rax),%eax
and    -0x24(%rbp),%eax
or     -0x28(%rbp),%eax
mov    %eax,-0x28(%rbp)
mov    -0x28(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<unpack_code>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    (%rsi),%r11d
mov    (%rdi),%r14
movl   $0x0,(%rdx)
mov    (%r14),%eax
test   %ecx,%ecx
jle    1172 <unpack_code+0x72>
mov    %ecx,%r10d
add    $0xffffffff,%r10d
xor    %ebp,%ebp
mov    %eax,%r12d
mov    %r14,%r15
xor    %r13d,%r13d
nop
mov    %ebp,%ebx
mov    $0x1,%ebp
mov    %r11d,%ecx
shl    %cl,%ebp
and    %r12d,%ebp
shr    %cl,%ebp
mov    %r13d,%ecx
shl    %cl,%ebp
or     %ebx,%ebp
mov    %ebp,(%rdx)
add    $0x1,%r11d
cmp    %r8d,%r11d
jl     1161 <unpack_code+0x61>
add    $0x4,%r14
mov    %r14,(%rdi)
add    $0x4,%r15
xor    %r11d,%r11d
cmp    %r13d,%r10d
je     116f <unpack_code+0x6f>
mov    (%r15),%r12d
add    $0x1,%r13d
jmp    1130 <unpack_code+0x30>
mov    %r15,%r14
and    %r9d,%eax
mov    %r11d,(%rsi)
test   %r11d,%r11d
je     1183 <unpack_code+0x83>
and    (%r14),%r9d
or     %r9d,%eax
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define i32 @unpack_code(i32** nocapture %0, i32* nocapture %1, i32* nocapture %2, i32 %3, i32 %4, i32 %5) {
%7 = load i32, i32* %1
%8 = load i32*, i32** %0
store i32 0, i32* %2
%9 = load i32, i32* %8
%10 = and i32 %9, %5
%11 = icmp sgt i32 %3, 0
br i1 %11, label %12, label %37
12: ; preds = %6, %35
%13 = phi i32* [ %30, %35 ], [ %8, %6 ]
%14 = phi i32 [ %23, %35 ], [ 0, %6 ]
%15 = phi i32 [ %36, %35 ], [ %9, %6 ]
%16 = phi i32* [ %32, %35 ], [ %8, %6 ]
%17 = phi i32 [ %31, %35 ], [ %7, %6 ]
%18 = phi i32 [ %33, %35 ], [ 0, %6 ]
%19 = shl nuw i32 1, %17
%20 = and i32 %15, %19
%21 = lshr i32 %20, %17
%22 = shl i32 %21, %18
%23 = or i32 %22, %14
store i32 %23, i32* %2
%24 = add nsw i32 %17, 1
%25 = icmp slt i32 %24, %4
br i1 %25, label %29, label %26
26: ; preds = %12
%27 = getelementptr inbounds i32, i32* %13, i64 1
store i32* %27, i32** %0
%28 = getelementptr inbounds i32, i32* %16, i64 1
br label %29
29: ; preds = %12, %26
%30 = phi i32* [ %27, %26 ], [ %13, %12 ]
%31 = phi i32 [ 0, %26 ], [ %24, %12 ]
%32 = phi i32* [ %28, %26 ], [ %16, %12 ]
%33 = add nuw nsw i32 %18, 1
%34 = icmp eq i32 %33, %3
br i1 %34, label %37, label %35
35: ; preds = %29
%36 = load i32, i32* %32
br label %12
37: ; preds = %29, %6
%38 = phi i32 [ %7, %6 ], [ %31, %29 ]
%39 = phi i32* [ %8, %6 ], [ %32, %29 ]
store i32 %38, i32* %1
%40 = icmp eq i32 %38, 0
br i1 %40, label %45, label %41
41: ; preds = %37
%42 = load i32, i32* %39
%43 = and i32 %42, %5
%44 = or i32 %43, %10
br label %45
45: ; preds = %41, %37
%46 = phi i32 [ %44, %41 ], [ %10, %37 ]
ret i32 %46
}