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