int putmbi(int i, int (*putout)(int c, void *out), void *out) {
  int cnt, l, accu;
  cnt = 0;
  accu = 0;
  while (accu != i)
    accu += i & 0x7f << 7 * cnt++;
  for (l = cnt - 1; l > 0; l--)
    putout(0x80 | (i & 0x7f << 7 * l) >> 7 * l, out);
  putout(i & 0x7f, out);
}


x86 assembly (clang, -O0):
<putmbi>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %edi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
movl   $0x0,-0x1c(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x8(%rbp),%eax
je     1154 <putmbi+0x54>
mov    -0x8(%rbp),%eax
mov    -0x1c(%rbp),%ecx
mov    %ecx,%edx
add    $0x1,%edx
mov    %edx,-0x1c(%rbp)
imul   $0x7,%ecx,%ecx
mov    $0x7f,%edx
shl    %cl,%edx
mov    %edx,%ecx
and    %ecx,%eax
add    -0x24(%rbp),%eax
mov    %eax,-0x24(%rbp)
jmp    1121 <putmbi+0x21>
mov    -0x1c(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x20(%rbp)
cmpl   $0x0,-0x20(%rbp)
jle    119d <putmbi+0x9d>
mov    -0x10(%rbp),%rax
mov    -0x8(%rbp),%edi
imul   $0x7,-0x20(%rbp),%ecx
mov    $0x7f,%edx
shl    %cl,%edx
mov    %edx,%ecx
and    %ecx,%edi
imul   $0x7,-0x20(%rbp),%ecx
sar    %cl,%edi
or     $0x80,%edi
mov    -0x18(%rbp),%rsi
call   *%rax
mov    -0x20(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x20(%rbp)
jmp    115d <putmbi+0x5d>
mov    -0x10(%rbp),%rax
mov    -0x8(%rbp),%edi
and    $0x7f,%edi
mov    -0x18(%rbp),%rsi
call   *%rax
mov    -0x4(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<putmbi>:
push   %rbp
push   %r15
push   %r14
push   %r12
push   %rbx
mov    %rdx,%r14
mov    %rsi,%r8
mov    %edi,%r15d
test   %edi,%edi
je     117b <putmbi+0x7b>
xor    %eax,%eax
mov    $0xfffffff9,%ebx
mov    $0x1,%ebp
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
add    $0x7,%ebx
mov    $0x7f,%edx
mov    %ebx,%ecx
shl    %cl,%edx
and    %r15d,%edx
add    %edx,%eax
add    $0x1,%ebp
cmp    %r15d,%eax
jne    1130 <putmbi+0x30>
cmp    $0x2,%ebp
je     117b <putmbi+0x7b>
xchg   %ax,%ax
mov    $0x7f,%edi
mov    %ebx,%ecx
shl    %cl,%edi
and    %r15d,%edi
sar    %cl,%edi
or     $0x80,%edi
mov    %r14,%rsi
mov    %r8,%r12
call   *%r8
mov    %r12,%r8
add    $0xffffffff,%ebp
add    $0xfffffff9,%ebx
cmp    $0x2,%ebp
ja     1150 <putmbi+0x50>
and    $0x7f,%r15d
mov    %r15d,%edi
mov    %r14,%rsi
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
jmp    *%r8

LLVM IR (-O0):
define i32 @putmbi(i32 %0, i32 (i32, i8*)* %1, i8* %2) {
%4 = alloca i32
%5 = alloca i32
%6 = alloca i32 (i32, i8*)*
%7 = alloca i8*
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
store i32 %0, i32* %5
store i32 (i32, i8*)* %1, i32 (i32, i8*)** %6
store i8* %2, i8** %7
store i32 0, i32* %8
store i32 0, i32* %10
br label %11
11: ; preds = %15, %3
%12 = load i32, i32* %10
%13 = load i32, i32* %5
%14 = icmp ne i32 %12, %13
br i1 %14, label %15, label %24
15: ; preds = %11
%16 = load i32, i32* %5
%17 = load i32, i32* %8
%18 = add nsw i32 %17, 1
store i32 %18, i32* %8
%19 = mul nsw i32 7, %17
%20 = shl i32 127, %19
%21 = and i32 %16, %20
%22 = load i32, i32* %10
%23 = add nsw i32 %22, %21
store i32 %23, i32* %10
br label %11
24: ; preds = %11
%25 = load i32, i32* %8
%26 = sub nsw i32 %25, 1
store i32 %26, i32* %9
br label %27
27: ; preds = %43, %24
%28 = load i32, i32* %9
%29 = icmp sgt i32 %28, 0
br i1 %29, label %30, label %46
30: ; preds = %27
%31 = load i32 (i32, i8*)*, i32 (i32, i8*)** %6
%32 = load i32, i32* %5
%33 = load i32, i32* %9
%34 = mul nsw i32 7, %33
%35 = shl i32 127, %34
%36 = and i32 %32, %35
%37 = load i32, i32* %9
%38 = mul nsw i32 7, %37
%39 = ashr i32 %36, %38
%40 = or i32 128, %39
%41 = load i8*, i8** %7
%42 = call i32 %31(i32 %40, i8* %41)
br label %43
43: ; preds = %30
%44 = load i32, i32* %9
%45 = add nsw i32 %44, -1
store i32 %45, i32* %9
br label %27
46: ; preds = %27
%47 = load i32 (i32, i8*)*, i32 (i32, i8*)** %6
%48 = load i32, i32* %5
%49 = and i32 %48, 127
%50 = load i8*, i8** %7
%51 = call i32 %47(i32 %49, i8* %50)
%52 = load i32, i32* %4
ret i32 %52
}

LLVM IR (-O2):
define i32 @putmbi(i32 %0, i32 (i32, i8*)* nocapture %1, i8* %2) {
%4 = icmp eq i32 %0, 0
br i1 %4, label %26, label %7
5: ; preds = %7
%6 = icmp eq i32 %9, 0
br i1 %6, label %26, label %16
7: ; preds = %3, %7
%8 = phi i32 [ %14, %7 ], [ 0, %3 ]
%9 = phi i32 [ %10, %7 ], [ 0, %3 ]
%10 = add nuw nsw i32 %9, 1
%11 = mul nsw i32 %9, 7
%12 = shl i32 127, %11
%13 = and i32 %12, %0
%14 = add nsw i32 %13, %8
%15 = icmp eq i32 %14, %0
br i1 %15, label %5, label %7
16: ; preds = %5, %16
%17 = phi i32 [ %18, %16 ], [ %10, %5 ]
%18 = add nsw i32 %17, -1
%19 = mul nsw i32 %18, 7
%20 = shl i32 127, %19
%21 = and i32 %20, %0
%22 = ashr i32 %21, %19
%23 = or i32 %22, 128
%24 = tail call i32 %1(i32 %23, i8* %2)
%25 = icmp ugt i32 %17, 2
br i1 %25, label %16, label %26
26: ; preds = %16, %3, %5
%27 = and i32 %0, 127
%28 = tail call i32 %1(i32 %27, i8* %2)
ret i32 undef
}