int pack_bytes(int bits, const short *samples, unsigned char *block) {
  unsigned int out_buffer = 0;
  int k, bindex = 0, out_bits = 0;
  unsigned char out_byte;
  for (k = 0; k < (3 * 5 * 8); k++) {
    out_buffer |= (samples[k] << out_bits);
    out_bits += bits;
    if (out_bits >= 8) {
      out_byte = out_buffer & 0xFF;
      out_bits -= 8;
      out_buffer >>= 8;
      block[bindex++] = out_byte;
    }
  };
  return bindex;
}


x86 assembly (clang, -O0):
<pack_bytes>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
movl   $0x0,-0x1c(%rbp)
movl   $0x0,-0x24(%rbp)
movl   $0x0,-0x28(%rbp)
movl   $0x0,-0x20(%rbp)
cmpl   $0x78,-0x20(%rbp)
jge    11a7 <pack_bytes+0xa7>
mov    -0x10(%rbp),%rax
movslq -0x20(%rbp),%rcx
movswl (%rax,%rcx,2),%eax
mov    -0x28(%rbp),%ecx
shl    %cl,%eax
or     -0x1c(%rbp),%eax
mov    %eax,-0x1c(%rbp)
mov    -0x4(%rbp),%eax
add    -0x28(%rbp),%eax
mov    %eax,-0x28(%rbp)
cmpl   $0x8,-0x28(%rbp)
jl     1194 <pack_bytes+0x94>
mov    -0x1c(%rbp),%eax
and    $0xff,%eax
mov    %al,-0x29(%rbp)
mov    -0x28(%rbp),%eax
sub    $0x8,%eax
mov    %eax,-0x28(%rbp)
mov    -0x1c(%rbp),%eax
shr    $0x8,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x29(%rbp),%dl
mov    -0x18(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    %ecx,%esi
add    $0x1,%esi
mov    %esi,-0x24(%rbp)
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
jmp    1199 <pack_bytes+0x99>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    112b <pack_bytes+0x2b>
mov    -0x24(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<pack_bytes>:
xor    %r8d,%r8d
xor    %r10d,%r10d
xor    %ecx,%ecx
xor    %eax,%eax
jmp    111d <pack_bytes+0x1d>
nopl   0x0(%rax)
add    $0x1,%r8
mov    %r9d,%r10d
cmp    $0x78,%r8
je     1142 <pack_bytes+0x42>
movswl (%rsi,%r8,2),%r9d
shl    %cl,%r9d
or     %r10d,%r9d
add    %edi,%ecx
cmp    $0x8,%ecx
jl     1110 <pack_bytes+0x10>
add    $0xfffffff8,%ecx
movslq %eax,%r10
mov    %r9b,(%rdx,%r10,1)
shr    $0x8,%r9d
add    $0x1,%eax
jmp    1110 <pack_bytes+0x10>
ret

LLVM IR (-O0):
define i32 @pack_bytes(i32 %0, i16* %1, i8* %2) {
%4 = alloca i32
%5 = alloca i16*
%6 = alloca i8*
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i8
store i32 %0, i32* %4
store i16* %1, i16** %5
store i8* %2, i8** %6
store i32 0, i32* %7
store i32 0, i32* %9
store i32 0, i32* %10
store i32 0, i32* %8
br label %12
12: ; preds = %46, %3
%13 = load i32, i32* %8
%14 = icmp slt i32 %13, 120
br i1 %14, label %15, label %49
15: ; preds = %12
%16 = load i16*, i16** %5
%17 = load i32, i32* %8
%18 = sext i32 %17 to i64
%19 = getelementptr inbounds i16, i16* %16, i64 %18
%20 = load i16, i16* %19
%21 = sext i16 %20 to i32
%22 = load i32, i32* %10
%23 = shl i32 %21, %22
%24 = load i32, i32* %7
%25 = or i32 %24, %23
store i32 %25, i32* %7
%26 = load i32, i32* %4
%27 = load i32, i32* %10
%28 = add nsw i32 %27, %26
store i32 %28, i32* %10
%29 = load i32, i32* %10
%30 = icmp sge i32 %29, 8
br i1 %30, label %31, label %45
31: ; preds = %15
%32 = load i32, i32* %7
%33 = and i32 %32, 255
%34 = trunc i32 %33 to i8
store i8 %34, i8* %11
%35 = load i32, i32* %10
%36 = sub nsw i32 %35, 8
store i32 %36, i32* %10
%37 = load i32, i32* %7
%38 = lshr i32 %37, 8
store i32 %38, i32* %7
%39 = load i8, i8* %11
%40 = load i8*, i8** %6
%41 = load i32, i32* %9
%42 = add nsw i32 %41, 1
store i32 %42, i32* %9
%43 = sext i32 %41 to i64
%44 = getelementptr inbounds i8, i8* %40, i64 %43
store i8 %39, i8* %44
br label %45
45: ; preds = %31, %15
br label %46
46: ; preds = %45
%47 = load i32, i32* %8
%48 = add nsw i32 %47, 1
store i32 %48, i32* %8
br label %12
49: ; preds = %12
%50 = load i32, i32* %9
ret i32 %50
}

LLVM IR (-O2):
define i32 @pack_bytes(i32 %0, i16* nocapture %1, i8* nocapture writeonly %2) {
br label %4
4: ; preds = %3, %23
%5 = phi i64 [ 0, %3 ], [ %27, %23 ]
%6 = phi i32 [ 0, %3 ], [ %26, %23 ]
%7 = phi i32 [ 0, %3 ], [ %25, %23 ]
%8 = phi i32 [ 0, %3 ], [ %24, %23 ]
%9 = getelementptr inbounds i16, i16* %1, i64 %5
%10 = load i16, i16* %9
%11 = sext i16 %10 to i32
%12 = shl i32 %11, %7
%13 = or i32 %12, %6
%14 = add nsw i32 %7, %0
%15 = icmp sgt i32 %14, 7
br i1 %15, label %16, label %23
16: ; preds = %4
%17 = trunc i32 %13 to i8
%18 = add nsw i32 %14, -8
%19 = lshr i32 %13, 8
%20 = add nsw i32 %8, 1
%21 = sext i32 %8 to i64
%22 = getelementptr inbounds i8, i8* %2, i64 %21
store i8 %17, i8* %22
br label %23
23: ; preds = %4, %16
%24 = phi i32 [ %20, %16 ], [ %8, %4 ]
%25 = phi i32 [ %18, %16 ], [ %14, %4 ]
%26 = phi i32 [ %19, %16 ], [ %13, %4 ]
%27 = add nuw nsw i64 %5, 1
%28 = icmp eq i64 %27, 120
br i1 %28, label %29, label %4
29: ; preds = %23
ret i32 %24
}