void _asn1_tag_der(unsigned char class, unsigned int tag_value,
                   unsigned char *ans, int *ans_len) {
  int k;
  unsigned char temp[4];
  if (tag_value < 31) {
    ans[0] = (class & 0xE0) + ((unsigned char)(tag_value & 0x1F));
    *ans_len = 1;
  } else {
    ans[0] = (class & 0xE0) + 31;
    k = 0;
    while (tag_value != 0) {
      temp[k++] = tag_value & 0x7F;
      tag_value >>= 7;
      if (k > 4 - 1)
        break;
    }
    *ans_len = k + 1;
    while (k--)
      ans[*ans_len - 1 - k] = temp[k] + 128;
    ans[*ans_len - 1] -= 128;
  }
}


x86 assembly (clang, -O0):
<_asn1_tag_der>:
push   %rbp
mov    %rsp,%rbp
mov    %dil,%al
mov    %al,-0x1(%rbp)
mov    %esi,-0x8(%rbp)
mov    %rdx,-0x10(%rbp)
mov    %rcx,-0x18(%rbp)
cmpl   $0x1f,-0x8(%rbp)
jae    114a <_asn1_tag_der+0x4a>
movzbl -0x1(%rbp),%eax
and    $0xe0,%eax
mov    -0x8(%rbp),%ecx
and    $0x1f,%ecx
movzbl %cl,%ecx
add    %ecx,%eax
mov    %al,%cl
mov    -0x10(%rbp),%rax
mov    %cl,(%rax)
mov    -0x18(%rbp),%rax
movl   $0x1,(%rax)
jmp    120d <_asn1_tag_der+0x10d>
movzbl -0x1(%rbp),%eax
and    $0xe0,%eax
add    $0x1f,%eax
mov    %al,%cl
mov    -0x10(%rbp),%rax
mov    %cl,(%rax)
movl   $0x0,-0x1c(%rbp)
cmpl   $0x0,-0x8(%rbp)
je     11a5 <_asn1_tag_der+0xa5>
mov    -0x8(%rbp),%eax
and    $0x7f,%eax
mov    %al,%cl
mov    -0x1c(%rbp),%eax
mov    %eax,%edx
add    $0x1,%edx
mov    %edx,-0x1c(%rbp)
cltq
mov    %cl,-0x20(%rbp,%rax,1)
mov    -0x8(%rbp),%eax
shr    $0x7,%eax
mov    %eax,-0x8(%rbp)
cmpl   $0x3,-0x1c(%rbp)
jle    11a0 <_asn1_tag_der+0xa0>
jmp    11a5 <_asn1_tag_der+0xa5>
jmp    1165 <_asn1_tag_der+0x65>
mov    -0x1c(%rbp),%ecx
add    $0x1,%ecx
mov    -0x18(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x1c(%rbp),%eax
mov    %eax,%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0x1c(%rbp)
cmp    $0x0,%eax
je     11f0 <_asn1_tag_der+0xf0>
movslq -0x1c(%rbp),%rax
movzbl -0x20(%rbp,%rax,1),%eax
add    $0x80,%eax
mov    %al,%dl
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%rcx
mov    (%rcx),%ecx
sub    $0x1,%ecx
sub    -0x1c(%rbp),%ecx
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
jmp    11b1 <_asn1_tag_der+0xb1>
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%rcx
mov    (%rcx),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movzbl (%rax,%rcx,1),%edx
sub    $0x80,%edx
mov    %dl,(%rax,%rcx,1)
pop    %rbp
ret

x86 assembly (clang, -O2):
<_asn1_tag_der>:
cmp    $0x1e,%esi
ja     1116 <_asn1_tag_der+0x16>
and    $0xe0,%dil
or     %dil,%sil
mov    %sil,(%rdx)
movl   $0x1,(%rcx)
ret
or     $0x1f,%dil
mov    %dil,(%rdx)
mov    %esi,%eax
and    $0x7f,%al
mov    %al,-0x4(%rsp)
cmp    $0x80,%esi
jb     116d <_asn1_tag_der+0x6d>
mov    %esi,%edi
shr    $0x7,%edi
mov    %edi,%eax
and    $0x7f,%al
mov    %al,-0x3(%rsp)
cmp    $0x4000,%esi
jb     1175 <_asn1_tag_der+0x75>
mov    %esi,%edi
shr    $0xe,%edi
mov    %edi,%eax
and    $0x7f,%al
mov    %al,-0x2(%rsp)
cmp    $0x200000,%esi
jb     117d <_asn1_tag_der+0x7d>
shr    $0x15,%esi
mov    %esi,%eax
and    $0x7f,%al
mov    %al,-0x1(%rsp)
mov    $0x3,%r9d
xor    %r8d,%r8d
jmp    1188 <_asn1_tag_der+0x88>
mov    $0x1,%r8b
xor    %r9d,%r9d
jmp    1188 <_asn1_tag_der+0x88>
mov    $0x1,%r9d
jmp    1183 <_asn1_tag_der+0x83>
mov    $0x2,%r9d
xor    %r8d,%r8d
mov    %edi,%esi
lea    0x2(%r9),%edi
mov    %edi,(%rcx)
or     $0x80,%sil
mov    %sil,0x1(%rdx)
test   %r8b,%r8b
jne    11e7 <_asn1_tag_der+0xe7>
lea    -0x1(%r9),%rsi
mov    -0x5(%rsp,%r9,1),%al
mov    (%rcx),%edi
xor    $0x80,%al
sub    %r9d,%edi
movslq %edi,%rdi
mov    %al,(%rdx,%rdi,1)
test   %rsi,%rsi
je     11e7 <_asn1_tag_der+0xe7>
lea    -0x2(%r9),%r8
mov    -0x6(%rsp,%r9,1),%al
mov    (%rcx),%edi
xor    $0x80,%al
sub    %esi,%edi
movslq %edi,%rsi
mov    %al,(%rdx,%rsi,1)
test   %r8,%r8
je     11e7 <_asn1_tag_der+0xe7>
lea    -0x4(%rsp),%rax
mov    -0x3(%r9,%rax,1),%al
mov    (%rcx),%esi
xor    $0x80,%al
sub    %r8d,%esi
movslq %esi,%rsi
mov    %al,(%rdx,%rsi,1)
movslq (%rcx),%rax
xorb   $0x80,-0x1(%rax,%rdx,1)
ret

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

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