void dopack(unsigned char **bitstream, int strchr, int bitno, int *pos) {
  int posLeft;
  if ((*pos) == 0) {
    **bitstream = 0;
  }
  while (bitno > 0) {
    if (*pos == 8) {
      *pos = 0;
      (*bitstream)++;
      **bitstream = 0;
    }
    posLeft = 8 - (*pos);
    if (bitno <= posLeft) {
      **bitstream |= (unsigned char)(strchr << (posLeft - bitno));
      *pos += bitno;
      bitno = 0;
    } else {
      **bitstream |= (unsigned char)(strchr >> (bitno - posLeft));
      *pos = 8;
      strchr -= ((strchr >> (bitno - posLeft)) << (bitno - posLeft));
      bitno -= posLeft;
    }
  }
}


x86 assembly (clang, -O0):
<dopack>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %rcx,-0x18(%rbp)
mov    -0x18(%rbp),%rax
cmpl   $0x0,(%rax)
jne    1129 <dopack+0x29>
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
movb   $0x0,(%rax)
jmp    112e <dopack+0x2e>
cmpl   $0x0,-0x10(%rbp)
jle    1207 <dopack+0x107>
mov    -0x18(%rbp),%rax
cmpl   $0x8,(%rax)
jne    1167 <dopack+0x67>
mov    -0x18(%rbp),%rax
movl   $0x0,(%rax)
mov    -0x8(%rbp),%rax
mov    (%rax),%rcx
add    $0x1,%rcx
mov    %rcx,(%rax)
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
movb   $0x0,(%rax)
mov    -0x18(%rbp),%rcx
mov    $0x8,%eax
sub    (%rcx),%eax
mov    %eax,-0x1c(%rbp)
mov    -0x10(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jg     11b4 <dopack+0xb4>
mov    -0xc(%rbp),%eax
mov    -0x1c(%rbp),%ecx
sub    -0x10(%rbp),%ecx
shl    %cl,%eax
movzbl %al,%edx
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
movzbl (%rax),%ecx
or     %edx,%ecx
mov    %cl,(%rax)
mov    -0x10(%rbp),%ecx
mov    -0x18(%rbp),%rax
add    (%rax),%ecx
mov    %ecx,(%rax)
movl   $0x0,-0x10(%rbp)
jmp    1202 <dopack+0x102>
mov    -0xc(%rbp),%eax
mov    -0x10(%rbp),%ecx
sub    -0x1c(%rbp),%ecx
sar    %cl,%eax
movzbl %al,%edx
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
movzbl (%rax),%ecx
or     %edx,%ecx
mov    %cl,(%rax)
mov    -0x18(%rbp),%rax
movl   $0x8,(%rax)
mov    -0xc(%rbp),%eax
mov    -0x10(%rbp),%ecx
sub    -0x1c(%rbp),%ecx
sar    %cl,%eax
mov    -0x10(%rbp),%ecx
sub    -0x1c(%rbp),%ecx
shl    %cl,%eax
mov    %eax,%ecx
mov    -0xc(%rbp),%eax
sub    %ecx,%eax
mov    %eax,-0xc(%rbp)
mov    -0x1c(%rbp),%ecx
mov    -0x10(%rbp),%eax
sub    %ecx,%eax
mov    %eax,-0x10(%rbp)
jmp    112e <dopack+0x2e>
pop    %rbp
ret

x86 assembly (clang, -O2):
<dopack>:
mov    %rcx,%r8
cmpl   $0x0,(%rcx)
je     110e <dopack+0xe>
test   %edx,%edx
jg     1118 <dopack+0x18>
jmp    116c <dopack+0x6c>
mov    (%rdi),%rax
movb   $0x0,(%rax)
test   %edx,%edx
jle    116c <dopack+0x6c>
mov    (%r8),%r9d
nopl   0x0(%rax,%rax,1)
cmp    $0x8,%r9d
jne    113e <dopack+0x3e>
movl   $0x0,(%r8)
mov    (%rdi),%rax
lea    0x1(%rax),%rcx
mov    %rcx,(%rdi)
movb   $0x0,0x1(%rax)
mov    (%r8),%r9d
mov    $0x8,%eax
sub    %r9d,%eax
mov    %edx,%ecx
sub    %eax,%ecx
jle    116d <dopack+0x6d>
mov    %esi,%eax
sar    %cl,%eax
mov    (%rdi),%rdx
or     %al,(%rdx)
shl    %cl,%eax
movl   $0x8,(%r8)
sub    %eax,%esi
mov    $0x8,%r9d
mov    %ecx,%edx
test   %ecx,%ecx
jg     1120 <dopack+0x20>
ret
sub    %edx,%eax
mov    %eax,%ecx
shl    %cl,%esi
mov    (%rdi),%rax
or     %sil,(%rax)
add    %edx,(%r8)
ret

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

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