int bit_to_byte(int endian, unsigned char *ibuf, int ilen, unsigned char *obuf,
                int *olen) {
  int i, j;
  j = 0;
  for (i = 0; i < ilen; i += 8) {
    if (endian == 0) {
      obuf[j] = (ibuf[i + 0] << 0) + (ibuf[i + 1] << 1) + (ibuf[i + 2] << 2) +
                (ibuf[i + 3] << 3) + (ibuf[i + 4] << 4) + (ibuf[i + 5] << 5) +
                (ibuf[i + 6] << 6) + (ibuf[i + 7] << 7);
    } else {
      obuf[j] = (ibuf[i + 0] << 7) + (ibuf[i + 1] << 6) + (ibuf[i + 2] << 5) +
                (ibuf[i + 3] << 4) + (ibuf[i + 4] << 3) + (ibuf[i + 5] << 2) +
                (ibuf[i + 6] << 1) + (ibuf[i + 7] << 0);
    }
    j++;
  }
  *olen = j;
  return 0;
}


x86 assembly (clang, -O0):
<bit_to_byte>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
movl   $0x0,-0x30(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    12cc <bit_to_byte+0x1cc>
cmpl   $0x0,-0x4(%rbp)
jne    11fa <bit_to_byte+0xfa>
mov    -0x10(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    $0x0,%ecx
movslq %ecx,%rcx
movzbl (%rax,%rcx,1),%eax
shl    $0x0,%eax
mov    -0x10(%rbp),%rcx
mov    -0x2c(%rbp),%edx
add    $0x1,%edx
movslq %edx,%rdx
movzbl (%rcx,%rdx,1),%ecx
shl    $0x1,%ecx
add    %ecx,%eax
mov    -0x10(%rbp),%rcx
mov    -0x2c(%rbp),%edx
add    $0x2,%edx
movslq %edx,%rdx
movzbl (%rcx,%rdx,1),%ecx
shl    $0x2,%ecx
add    %ecx,%eax
mov    -0x10(%rbp),%rcx
mov    -0x2c(%rbp),%edx
add    $0x3,%edx
movslq %edx,%rdx
movzbl (%rcx,%rdx,1),%ecx
shl    $0x3,%ecx
add    %ecx,%eax
mov    -0x10(%rbp),%rcx
mov    -0x2c(%rbp),%edx
add    $0x4,%edx
movslq %edx,%rdx
movzbl (%rcx,%rdx,1),%ecx
shl    $0x4,%ecx
add    %ecx,%eax
mov    -0x10(%rbp),%rcx
mov    -0x2c(%rbp),%edx
add    $0x5,%edx
movslq %edx,%rdx
movzbl (%rcx,%rdx,1),%ecx
shl    $0x5,%ecx
add    %ecx,%eax
mov    -0x10(%rbp),%rcx
mov    -0x2c(%rbp),%edx
add    $0x6,%edx
movslq %edx,%rdx
movzbl (%rcx,%rdx,1),%ecx
shl    $0x6,%ecx
add    %ecx,%eax
mov    -0x10(%rbp),%rcx
mov    -0x2c(%rbp),%edx
add    $0x7,%edx
movslq %edx,%rdx
movzbl (%rcx,%rdx,1),%ecx
shl    $0x7,%ecx
add    %ecx,%eax
mov    %al,%dl
mov    -0x20(%rbp),%rax
movslq -0x30(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
jmp    12b5 <bit_to_byte+0x1b5>
mov    -0x10(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    $0x0,%ecx
movslq %ecx,%rcx
movzbl (%rax,%rcx,1),%eax
shl    $0x7,%eax
mov    -0x10(%rbp),%rcx
mov    -0x2c(%rbp),%edx
add    $0x1,%edx
movslq %edx,%rdx
movzbl (%rcx,%rdx,1),%ecx
shl    $0x6,%ecx
add    %ecx,%eax
mov    -0x10(%rbp),%rcx
mov    -0x2c(%rbp),%edx
add    $0x2,%edx
movslq %edx,%rdx
movzbl (%rcx,%rdx,1),%ecx
shl    $0x5,%ecx
add    %ecx,%eax
mov    -0x10(%rbp),%rcx
mov    -0x2c(%rbp),%edx
add    $0x3,%edx
movslq %edx,%rdx
movzbl (%rcx,%rdx,1),%ecx
shl    $0x4,%ecx
add    %ecx,%eax
mov    -0x10(%rbp),%rcx
mov    -0x2c(%rbp),%edx
add    $0x4,%edx
movslq %edx,%rdx
movzbl (%rcx,%rdx,1),%ecx
shl    $0x3,%ecx
add    %ecx,%eax
mov    -0x10(%rbp),%rcx
mov    -0x2c(%rbp),%edx
add    $0x5,%edx
movslq %edx,%rdx
movzbl (%rcx,%rdx,1),%ecx
shl    $0x2,%ecx
add    %ecx,%eax
mov    -0x10(%rbp),%rcx
mov    -0x2c(%rbp),%edx
add    $0x6,%edx
movslq %edx,%rdx
movzbl (%rcx,%rdx,1),%ecx
shl    $0x1,%ecx
add    %ecx,%eax
mov    -0x10(%rbp),%rcx
mov    -0x2c(%rbp),%edx
add    $0x7,%edx
movslq %edx,%rdx
movzbl (%rcx,%rdx,1),%ecx
shl    $0x0,%ecx
add    %ecx,%eax
mov    %al,%dl
mov    -0x20(%rbp),%rax
movslq -0x30(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x8,%eax
mov    %eax,-0x2c(%rbp)
jmp    1124 <bit_to_byte+0x24>
mov    -0x30(%rbp),%ecx
mov    -0x28(%rbp),%rax
mov    %ecx,(%rax)
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<bit_to_byte>:
test   %edx,%edx
jle    11e1 <bit_to_byte+0xe1>
add    $0xffffffff,%edx
shr    $0x3,%edx
add    $0x1,%edx
xor    %r10d,%r10d
jmp    1180 <bit_to_byte+0x80>
cs nopw 0x0(%rax,%rax,1)
shl    $0x7,%r9b
movzbl 0x1(%rsi,%r10,8),%eax
movzbl 0x2(%rsi,%r10,8),%r11d
shl    $0x6,%al
add    %r9b,%al
shl    $0x5,%r11b
add    %al,%r11b
movzbl 0x3(%rsi,%r10,8),%eax
shl    $0x4,%al
add    %r11b,%al
movzbl 0x4(%rsi,%r10,8),%r9d
shl    $0x3,%r9b
add    %al,%r9b
movzbl 0x5(%rsi,%r10,8),%r11d
shl    $0x2,%r11b
add    %r9b,%r11b
movzbl 0x6(%rsi,%r10,8),%eax
add    %al,%al
add    %r11b,%al
add    0x7(%rsi,%r10,8),%al
mov    %al,(%rcx,%r10,1)
add    $0x1,%r10
cmp    %r10,%rdx
je     11e3 <bit_to_byte+0xe3>
movzbl (%rsi,%r10,8),%r9d
test   %edi,%edi
jne    1120 <bit_to_byte+0x20>
movzbl 0x1(%rsi,%r10,8),%eax
movzbl 0x2(%rsi,%r10,8),%r11d
add    %al,%al
add    %r9b,%al
shl    $0x2,%r11b
add    %al,%r11b
movzbl 0x3(%rsi,%r10,8),%eax
shl    $0x3,%al
add    %r11b,%al
movzbl 0x4(%rsi,%r10,8),%r9d
shl    $0x4,%r9b
add    %al,%r9b
movzbl 0x5(%rsi,%r10,8),%eax
shl    $0x5,%al
add    %r9b,%al
movzbl 0x6(%rsi,%r10,8),%r9d
shl    $0x6,%r9b
add    %al,%r9b
movzbl 0x7(%rsi,%r10,8),%eax
shl    $0x7,%al
add    %r9b,%al
jmp    1173 <bit_to_byte+0x73>
xor    %edx,%edx
mov    %edx,(%r8)
xor    %eax,%eax
ret

LLVM IR (-O0):
define i32 @bit_to_byte(i32 %0, i8* %1, i32 %2, i8* %3, i32* %4) {
%6 = alloca i32
%7 = alloca i8*
%8 = alloca i32
%9 = alloca i8*
%10 = alloca i32*
%11 = alloca i32
%12 = alloca i32
store i32 %0, i32* %6
store i8* %1, i8** %7
store i32 %2, i32* %8
store i8* %3, i8** %9
store i32* %4, i32** %10
store i32 0, i32* %12
store i32 0, i32* %11
br label %13
13: ; preds = %177, %5
%14 = load i32, i32* %11
%15 = load i32, i32* %8
%16 = icmp slt i32 %14, %15
br i1 %16, label %17, label %180
17: ; preds = %13
%18 = load i32, i32* %6
%19 = icmp eq i32 %18, 0
br i1 %19, label %20, label %97
20: ; preds = %17
%21 = load i8*, i8** %7
%22 = load i32, i32* %11
%23 = add nsw i32 %22, 0
%24 = sext i32 %23 to i64
%25 = getelementptr inbounds i8, i8* %21, i64 %24
%26 = load i8, i8* %25
%27 = zext i8 %26 to i32
%28 = shl i32 %27, 0
%29 = load i8*, i8** %7
%30 = load i32, i32* %11
%31 = add nsw i32 %30, 1
%32 = sext i32 %31 to i64
%33 = getelementptr inbounds i8, i8* %29, i64 %32
%34 = load i8, i8* %33
%35 = zext i8 %34 to i32
%36 = shl i32 %35, 1
%37 = add nsw i32 %28, %36
%38 = load i8*, i8** %7
%39 = load i32, i32* %11
%40 = add nsw i32 %39, 2
%41 = sext i32 %40 to i64
%42 = getelementptr inbounds i8, i8* %38, i64 %41
%43 = load i8, i8* %42
%44 = zext i8 %43 to i32
%45 = shl i32 %44, 2
%46 = add nsw i32 %37, %45
%47 = load i8*, i8** %7
%48 = load i32, i32* %11
%49 = add nsw i32 %48, 3
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds i8, i8* %47, i64 %50
%52 = load i8, i8* %51
%53 = zext i8 %52 to i32
%54 = shl i32 %53, 3
%55 = add nsw i32 %46, %54
%56 = load i8*, i8** %7
%57 = load i32, i32* %11
%58 = add nsw i32 %57, 4
%59 = sext i32 %58 to i64
%60 = getelementptr inbounds i8, i8* %56, i64 %59
%61 = load i8, i8* %60
%62 = zext i8 %61 to i32
%63 = shl i32 %62, 4
%64 = add nsw i32 %55, %63
%65 = load i8*, i8** %7
%66 = load i32, i32* %11
%67 = add nsw i32 %66, 5
%68 = sext i32 %67 to i64
%69 = getelementptr inbounds i8, i8* %65, i64 %68
%70 = load i8, i8* %69
%71 = zext i8 %70 to i32
%72 = shl i32 %71, 5
%73 = add nsw i32 %64, %72
%74 = load i8*, i8** %7
%75 = load i32, i32* %11
%76 = add nsw i32 %75, 6
%77 = sext i32 %76 to i64
%78 = getelementptr inbounds i8, i8* %74, i64 %77
%79 = load i8, i8* %78
%80 = zext i8 %79 to i32
%81 = shl i32 %80, 6
%82 = add nsw i32 %73, %81
%83 = load i8*, i8** %7
%84 = load i32, i32* %11
%85 = add nsw i32 %84, 7
%86 = sext i32 %85 to i64
%87 = getelementptr inbounds i8, i8* %83, i64 %86
%88 = load i8, i8* %87
%89 = zext i8 %88 to i32
%90 = shl i32 %89, 7
%91 = add nsw i32 %82, %90
%92 = trunc i32 %91 to i8
%93 = load i8*, i8** %9
%94 = load i32, i32* %12
%95 = sext i32 %94 to i64
%96 = getelementptr inbounds i8, i8* %93, i64 %95
store i8 %92, i8* %96
br label %174
97: ; preds = %17
%98 = load i8*, i8** %7
%99 = load i32, i32* %11
%100 = add nsw i32 %99, 0
%101 = sext i32 %100 to i64
%102 = getelementptr inbounds i8, i8* %98, i64 %101
%103 = load i8, i8* %102
%104 = zext i8 %103 to i32
%105 = shl i32 %104, 7
%106 = load i8*, i8** %7
%107 = load i32, i32* %11
%108 = add nsw i32 %107, 1
%109 = sext i32 %108 to i64
%110 = getelementptr inbounds i8, i8* %106, i64 %109
%111 = load i8, i8* %110
%112 = zext i8 %111 to i32
%113 = shl i32 %112, 6
%114 = add nsw i32 %105, %113
%115 = load i8*, i8** %7
%116 = load i32, i32* %11
%117 = add nsw i32 %116, 2
%118 = sext i32 %117 to i64
%119 = getelementptr inbounds i8, i8* %115, i64 %118
%120 = load i8, i8* %119
%121 = zext i8 %120 to i32
%122 = shl i32 %121, 5
%123 = add nsw i32 %114, %122
%124 = load i8*, i8** %7
%125 = load i32, i32* %11
%126 = add nsw i32 %125, 3
%127 = sext i32 %126 to i64
%128 = getelementptr inbounds i8, i8* %124, i64 %127
%129 = load i8, i8* %128
%130 = zext i8 %129 to i32
%131 = shl i32 %130, 4
%132 = add nsw i32 %123, %131
%133 = load i8*, i8** %7
%134 = load i32, i32* %11
%135 = add nsw i32 %134, 4
%136 = sext i32 %135 to i64
%137 = getelementptr inbounds i8, i8* %133, i64 %136
%138 = load i8, i8* %137
%139 = zext i8 %138 to i32
%140 = shl i32 %139, 3
%141 = add nsw i32 %132, %140
%142 = load i8*, i8** %7
%143 = load i32, i32* %11
%144 = add nsw i32 %143, 5
%145 = sext i32 %144 to i64
%146 = getelementptr inbounds i8, i8* %142, i64 %145
%147 = load i8, i8* %146
%148 = zext i8 %147 to i32
%149 = shl i32 %148, 2
%150 = add nsw i32 %141, %149
%151 = load i8*, i8** %7
%152 = load i32, i32* %11
%153 = add nsw i32 %152, 6
%154 = sext i32 %153 to i64
%155 = getelementptr inbounds i8, i8* %151, i64 %154
%156 = load i8, i8* %155
%157 = zext i8 %156 to i32
%158 = shl i32 %157, 1
%159 = add nsw i32 %150, %158
%160 = load i8*, i8** %7
%161 = load i32, i32* %11
%162 = add nsw i32 %161, 7
%163 = sext i32 %162 to i64
%164 = getelementptr inbounds i8, i8* %160, i64 %163
%165 = load i8, i8* %164
%166 = zext i8 %165 to i32
%167 = shl i32 %166, 0
%168 = add nsw i32 %159, %167
%169 = trunc i32 %168 to i8
%170 = load i8*, i8** %9
%171 = load i32, i32* %12
%172 = sext i32 %171 to i64
%173 = getelementptr inbounds i8, i8* %170, i64 %172
store i8 %169, i8* %173
br label %174
174: ; preds = %97, %20
%175 = load i32, i32* %12
%176 = add nsw i32 %175, 1
store i32 %176, i32* %12
br label %177
177: ; preds = %174
%178 = load i32, i32* %11
%179 = add nsw i32 %178, 8
store i32 %179, i32* %11
br label %13
180: ; preds = %13
%181 = load i32, i32* %12
%182 = load i32*, i32** %10
store i32 %181, i32* %182
ret i32 0
}

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