void midi_encode_time(unsigned long t, unsigned char result[4],
                      unsigned int *len) {
  unsigned char bytes[4];
  unsigned int pos = 0;
  bytes[0] = t & 0x7f;
  bytes[1] = (t >> 7) & 0x7f;
  bytes[2] = (t >> 14) & 0x7f;
  bytes[3] = (t >> 21) & 0x7f;
  int m = 3;
  while (m && !bytes[m])
    m--;
  for (; m >= 0; m--) {
    result[pos++] = bytes[m] | (m ? 0x80 : 0);
  }
  if (len)
    *len = pos;
}


x86 assembly (clang, -O0):
<midi_encode_time>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x8(%rbp),%rax
and    $0x7f,%rax
mov    %al,-0x1c(%rbp)
mov    -0x8(%rbp),%rax
shr    $0x7,%rax
and    $0x7f,%rax
mov    %al,-0x1b(%rbp)
mov    -0x8(%rbp),%rax
shr    $0xe,%rax
and    $0x7f,%rax
mov    %al,-0x1a(%rbp)
mov    -0x8(%rbp),%rax
shr    $0x15,%rax
and    $0x7f,%rax
mov    %al,-0x19(%rbp)
movl   $0x3,-0x24(%rbp)
xor    %eax,%eax
cmpl   $0x0,-0x24(%rbp)
mov    %al,-0x25(%rbp)
je     1176 <midi_encode_time+0x76>
movslq -0x24(%rbp),%rax
cmpb   $0x0,-0x1c(%rbp,%rax,1)
setne  %al
xor    $0xff,%al
mov    %al,-0x25(%rbp)
mov    -0x25(%rbp),%al
test   $0x1,%al
jne    1186 <midi_encode_time+0x86>
jmp    1194 <midi_encode_time+0x94>
mov    -0x24(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x24(%rbp)
jmp    1156 <midi_encode_time+0x56>
jmp    1199 <midi_encode_time+0x99>
cmpl   $0x0,-0x24(%rbp)
jl     11e2 <midi_encode_time+0xe2>
movslq -0x24(%rbp),%rax
movzbl -0x1c(%rbp,%rax,1),%eax
mov    -0x24(%rbp),%esi
xor    %ecx,%ecx
mov    $0x80,%edx
cmp    $0x0,%esi
cmovne %edx,%ecx
or     %ecx,%eax
mov    %al,%dl
mov    -0x10(%rbp),%rax
mov    -0x20(%rbp),%ecx
mov    %ecx,%esi
add    $0x1,%esi
mov    %esi,-0x20(%rbp)
mov    %ecx,%ecx
mov    %dl,(%rax,%rcx,1)
mov    -0x24(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x24(%rbp)
jmp    1199 <midi_encode_time+0x99>
cmpq   $0x0,-0x18(%rbp)
je     11f6 <midi_encode_time+0xf6>
mov    -0x20(%rbp),%ecx
mov    -0x18(%rbp),%rax
mov    %ecx,(%rax)
pop    %rbp
ret

x86 assembly (clang, -O2):
<midi_encode_time>:
mov    %edi,%eax
and    $0x7f,%al
mov    %al,-0x4(%rsp)
mov    %rdi,%rax
shr    $0x7,%rax
and    $0x7f,%al
mov    %al,-0x3(%rsp)
mov    %rdi,%rcx
shr    $0xe,%rcx
and    $0x7f,%cl
mov    %cl,-0x2(%rsp)
shr    $0x15,%rdi
mov    $0x3,%r8d
and    $0x7f,%dil
mov    %dil,-0x1(%rsp)
jne    114b <midi_encode_time+0x4b>
mov    $0x2,%r8d
test   %cl,%cl
jne    114b <midi_encode_time+0x4b>
xor    %r8d,%r8d
test   %al,%al
setne  %r8b
mov    %r8d,%edi
test   %r8d,%r8d
setne  %cl
lea    0x1(%r8),%eax
shl    $0x7,%cl
or     -0x4(%rsp,%rdi,1),%cl
mov    %cl,(%rsi)
test   %r8d,%r8d
je     11a9 <midi_encode_time+0xa9>
mov    %rdi,%rcx
add    $0xffffffffffffffff,%rcx
setne  %cl
shl    $0x7,%cl
or     -0x5(%rsp,%rdi,1),%cl
mov    %cl,0x1(%rsi)
cmp    $0x2,%eax
je     11a9 <midi_encode_time+0xa9>
mov    %rdi,%rcx
add    $0xfffffffffffffffe,%rcx
setne  %cl
shl    $0x7,%cl
or     -0x6(%rsp,%rdi,1),%cl
mov    %cl,0x2(%rsi)
cmp    $0x3,%eax
je     11a9 <midi_encode_time+0xa9>
add    $0xfffffffffffffffd,%rdi
setne  %cl
shl    $0x7,%cl
or     -0x4(%rsp,%rdi,1),%cl
mov    %cl,0x3(%rsi)
test   %rdx,%rdx
je     11b0 <midi_encode_time+0xb0>
mov    %eax,(%rdx)
ret

LLVM IR (-O0):
define void @midi_encode_time(i64 %0, i8* %1, i32* %2) {
%4 = alloca i64
%5 = alloca i8*
%6 = alloca i32*
%7 = alloca [4 x i8]
%8 = alloca i32
%9 = alloca i32
store i64 %0, i64* %4
store i8* %1, i8** %5
store i32* %2, i32** %6
store i32 0, i32* %8
%10 = load i64, i64* %4
%11 = and i64 %10, 127
%12 = trunc i64 %11 to i8
%13 = getelementptr inbounds [4 x i8], [4 x i8]* %7, i64 0, i64 0
store i8 %12, i8* %13
%14 = load i64, i64* %4
%15 = lshr i64 %14, 7
%16 = and i64 %15, 127
%17 = trunc i64 %16 to i8
%18 = getelementptr inbounds [4 x i8], [4 x i8]* %7, i64 0, i64 1
store i8 %17, i8* %18
%19 = load i64, i64* %4
%20 = lshr i64 %19, 14
%21 = and i64 %20, 127
%22 = trunc i64 %21 to i8
%23 = getelementptr inbounds [4 x i8], [4 x i8]* %7, i64 0, i64 2
store i8 %22, i8* %23
%24 = load i64, i64* %4
%25 = lshr i64 %24, 21
%26 = and i64 %25, 127
%27 = trunc i64 %26 to i8
%28 = getelementptr inbounds [4 x i8], [4 x i8]* %7, i64 0, i64 3
store i8 %27, i8* %28
store i32 3, i32* %9
br label %29
29: ; preds = %41, %3
%30 = load i32, i32* %9
%31 = icmp ne i32 %30, 0
br i1 %31, label %32, label %39
32: ; preds = %29
%33 = load i32, i32* %9
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds [4 x i8], [4 x i8]* %7, i64 0, i64 %34
%36 = load i8, i8* %35
%37 = icmp ne i8 %36, 0
%38 = xor i1 %37, true
br label %39
39: ; preds = %32, %29
%40 = phi i1 [ false, %29 ], [ %38, %32 ]
br i1 %40, label %41, label %44
41: ; preds = %39
%42 = load i32, i32* %9
%43 = add nsw i32 %42, -1
store i32 %43, i32* %9
br label %29
44: ; preds = %39
br label %45
45: ; preds = %65, %44
%46 = load i32, i32* %9
%47 = icmp sge i32 %46, 0
br i1 %47, label %48, label %68
48: ; preds = %45
%49 = load i32, i32* %9
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds [4 x i8], [4 x i8]* %7, i64 0, i64 %50
%52 = load i8, i8* %51
%53 = zext i8 %52 to i32
%54 = load i32, i32* %9
%55 = icmp ne i32 %54, 0
%56 = zext i1 %55 to i64
%57 = select i1 %55, i32 128, i32 0
%58 = or i32 %53, %57
%59 = trunc i32 %58 to i8
%60 = load i8*, i8** %5
%61 = load i32, i32* %8
%62 = add i32 %61, 1
store i32 %62, i32* %8
%63 = zext i32 %61 to i64
%64 = getelementptr inbounds i8, i8* %60, i64 %63
store i8 %59, i8* %64
br label %65
65: ; preds = %48
%66 = load i32, i32* %9
%67 = add nsw i32 %66, -1
store i32 %67, i32* %9
br label %45
68: ; preds = %45
%69 = load i32*, i32** %6
%70 = icmp ne i32* %69, null
br i1 %70, label %71, label %74
71: ; preds = %68
%72 = load i32, i32* %8
%73 = load i32*, i32** %6
store i32 %72, i32* %73
br label %74
74: ; preds = %71, %68
ret void
}

LLVM IR (-O2):
define void @midi_encode_time(i64 %0, i8* nocapture writeonly %1, i32* writeonly %2) {
%4 = alloca [4 x i8]
%5 = getelementptr inbounds [4 x i8], [4 x i8]* %4, i64 0, i64 0
%6 = trunc i64 %0 to i8
%7 = and i8 %6, 127
store i8 %7, i8* %5
%8 = lshr i64 %0, 7
%9 = trunc i64 %8 to i8
%10 = and i8 %9, 127
%11 = getelementptr inbounds [4 x i8], [4 x i8]* %4, i64 0, i64 1
store i8 %10, i8* %11
%12 = lshr i64 %0, 14
%13 = trunc i64 %12 to i8
%14 = and i8 %13, 127
%15 = getelementptr inbounds [4 x i8], [4 x i8]* %4, i64 0, i64 2
store i8 %14, i8* %15
%16 = lshr i64 %0, 21
%17 = trunc i64 %16 to i8
%18 = and i8 %17, 127
%19 = getelementptr inbounds [4 x i8], [4 x i8]* %4, i64 0, i64 3
store i8 %18, i8* %19
%20 = icmp eq i8 %18, 0
br i1 %20, label %21, label %26
21: ; preds = %3
%22 = icmp eq i8 %14, 0
br i1 %22, label %23, label %26
23: ; preds = %21
%24 = icmp ne i8 %10, 0
%25 = zext i1 %24 to i32
br label %26
26: ; preds = %23, %3, %21
%27 = phi i32 [ 3, %3 ], [ 2, %21 ], [ %25, %23 ]
%28 = zext i32 %27 to i64
%29 = add nuw nsw i32 %27, 1
%30 = getelementptr inbounds [4 x i8], [4 x i8]* %4, i64 0, i64 %28
%31 = load i8, i8* %30
%32 = icmp eq i32 %27, 0
%33 = select i1 %32, i8 0, i8 -128
%34 = or i8 %31, %33
store i8 %34, i8* %1
%35 = add nsw i64 %28, -1
%36 = icmp eq i32 %27, 0
br i1 %36, label %62, label %37
37: ; preds = %26
%38 = getelementptr inbounds [4 x i8], [4 x i8]* %4, i64 0, i64 %35
%39 = load i8, i8* %38
%40 = icmp eq i64 %35, 0
%41 = select i1 %40, i8 0, i8 -128
%42 = or i8 %39, %41
%43 = getelementptr inbounds i8, i8* %1, i64 1
store i8 %42, i8* %43
%44 = add nsw i64 %28, -2
%45 = icmp eq i32 %29, 2
br i1 %45, label %62, label %46
46: ; preds = %37
%47 = getelementptr inbounds [4 x i8], [4 x i8]* %4, i64 0, i64 %44
%48 = load i8, i8* %47
%49 = icmp eq i64 %44, 0
%50 = select i1 %49, i8 0, i8 -128
%51 = or i8 %48, %50
%52 = getelementptr inbounds i8, i8* %1, i64 2
store i8 %51, i8* %52
%53 = add nsw i64 %28, -3
%54 = icmp eq i32 %29, 3
br i1 %54, label %62, label %55
55: ; preds = %46
%56 = getelementptr inbounds [4 x i8], [4 x i8]* %4, i64 0, i64 %53
%57 = load i8, i8* %56
%58 = icmp eq i64 %53, 0
%59 = select i1 %58, i8 0, i8 -128
%60 = or i8 %57, %59
%61 = getelementptr inbounds i8, i8* %1, i64 3
store i8 %60, i8* %61
br label %62
62: ; preds = %55, %46, %37, %26
%63 = icmp eq i32* %2, null
br i1 %63, label %65, label %64
64: ; preds = %62
store i32 %29, i32* %2
br label %65
65: ; preds = %64, %62
ret void
}