_prtl8(num, str) long num;
char *str;
{
  int i;
  char c, temp[12];
  temp[0] = '\0';
  for (i = 1; i <= 11; i++) {
    temp[i] = (num & 07) + '0';
    num = num >> 3;
  }
  temp[11] &= '3';
  for (i = 11; temp[i] == '0'; i--)
    ;
  if (i == 0)
    i++;
  while (i >= 0)
    *str++ = temp[i--];
}


x86 assembly (clang, -O0):
<_prtl8>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
movb   $0x0,-0x29(%rbp)
movl   $0x1,-0x1c(%rbp)
cmpl   $0xb,-0x1c(%rbp)
jg     1151 <_prtl8+0x51>
mov    -0x10(%rbp),%rax
and    $0x7,%rax
add    $0x30,%rax
mov    %al,%cl
movslq -0x1c(%rbp),%rax
mov    %cl,-0x29(%rbp,%rax,1)
mov    -0x10(%rbp),%rax
sar    $0x3,%rax
mov    %rax,-0x10(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1117 <_prtl8+0x17>
movsbl -0x1e(%rbp),%eax
and    $0x33,%eax
mov    %al,-0x1e(%rbp)
movl   $0xb,-0x1c(%rbp)
movslq -0x1c(%rbp),%rax
movsbl -0x29(%rbp,%rax,1),%eax
cmp    $0x30,%eax
jne    1187 <_prtl8+0x87>
jmp    1179 <_prtl8+0x79>
mov    -0x1c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x1c(%rbp)
jmp    1162 <_prtl8+0x62>
cmpl   $0x0,-0x1c(%rbp)
jne    119a <_prtl8+0x9a>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    119f <_prtl8+0x9f>
cmpl   $0x0,-0x1c(%rbp)
jl     11d0 <_prtl8+0xd0>
mov    -0x1c(%rbp),%eax
mov    %eax,%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0x1c(%rbp)
cltq
mov    -0x29(%rbp,%rax,1),%cl
mov    -0x18(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
mov    %cl,(%rax)
jmp    119f <_prtl8+0x9f>
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<_prtl8>:
movb   $0x0,-0xc(%rsp)
mov    %edi,%eax
and    $0x7,%al
or     $0x30,%al
mov    %al,-0xb(%rsp)
mov    %edi,%eax
shr    $0x3,%al
and    $0x7,%al
or     $0x30,%al
mov    %al,-0xa(%rsp)
mov    %rdi,%rax
shr    $0x6,%rax
and    $0x7,%al
or     $0x30,%al
mov    %al,-0x9(%rsp)
mov    %rdi,%rax
shr    $0x9,%rax
and    $0x7,%al
or     $0x30,%al
mov    %al,-0x8(%rsp)
mov    %rdi,%rax
shr    $0xc,%rax
and    $0x7,%al
or     $0x30,%al
mov    %al,-0x7(%rsp)
mov    %rdi,%rax
shr    $0xf,%rax
and    $0x7,%al
or     $0x30,%al
mov    %al,-0x6(%rsp)
mov    %rdi,%rax
shr    $0x12,%rax
and    $0x7,%al
or     $0x30,%al
mov    %al,-0x5(%rsp)
mov    %rdi,%rax
shr    $0x15,%rax
and    $0x7,%al
or     $0x30,%al
mov    %al,-0x4(%rsp)
mov    %rdi,%rax
shr    $0x18,%rax
and    $0x7,%al
or     $0x30,%al
mov    %al,-0x3(%rsp)
mov    %rdi,%rax
shr    $0x1b,%rax
and    $0x7,%al
or     $0x30,%al
mov    %al,-0x2(%rsp)
shr    $0x1e,%rdi
and    $0x3,%dil
or     $0x30,%dil
mov    %dil,-0x1(%rsp)
mov    $0xb,%eax
cmp    $0x30,%dil
jne    11ce <_prtl8+0xce>
mov    $0xb,%ecx
cs nopw 0x0(%rax,%rax,1)
nop
lea    -0x1(%rcx),%rax
cmpb   $0x30,-0xd(%rsp,%rcx,1)
mov    %rax,%rcx
je     11c0 <_prtl8+0xc0>
test   %eax,%eax
mov    $0x1,%ecx
cmovne %eax,%ecx
test   %ecx,%ecx
js     1341 <_prtl8+0x241>
mov    %ecx,%eax
cmp    $0x7,%ecx
jae    11ef <_prtl8+0xef>
mov    %rsi,%rcx
jmp    1330 <_prtl8+0x230>
lea    0x1(%rax),%r8
movabs $0x1ffffffe0,%r9
cmp    $0x1f,%ecx
jae    1209 <_prtl8+0x109>
xor    %edi,%edi
jmp    12c2 <_prtl8+0x1c2>
mov    %r8,%rdi
and    %r9,%rdi
lea    0x10(%rsi),%rcx
mov    %r8,%r10
and    $0xffffffffffffffe0,%r10
neg    %r10
lea    -0xc(%rsp),%rdx
lea    (%rax,%rdx,1),%r11
add    $0xfffffffffffffff1,%r11
xor    %edx,%edx
pxor   %xmm0,%xmm0
movdqu -0x10(%r11,%rdx,1),%xmm1
movdqu (%r11,%rdx,1),%xmm2
movdqa %xmm2,%xmm3
punpcklbw %xmm0,%xmm3
pshufd $0x4e,%xmm3,%xmm3
pshuflw $0x1b,%xmm3,%xmm3
pshufhw $0x1b,%xmm3,%xmm3
punpckhbw %xmm0,%xmm2
pshufd $0x4e,%xmm2,%xmm2
pshuflw $0x1b,%xmm2,%xmm2
pshufhw $0x1b,%xmm2,%xmm2
packuswb %xmm3,%xmm2
movdqa %xmm1,%xmm3
punpcklbw %xmm0,%xmm3
pshufd $0x4e,%xmm3,%xmm3
pshuflw $0x1b,%xmm3,%xmm3
pshufhw $0x1b,%xmm3,%xmm3
punpckhbw %xmm0,%xmm1
pshufd $0x4e,%xmm1,%xmm1
pshuflw $0x1b,%xmm1,%xmm1
pshufhw $0x1b,%xmm1,%xmm1
packuswb %xmm3,%xmm1
movdqu %xmm2,-0x10(%rcx)
movdqu %xmm1,(%rcx)
add    $0x20,%rcx
add    $0xffffffffffffffe0,%rdx
cmp    %rdx,%r10
jne    1230 <_prtl8+0x130>
cmp    %rdi,%r8
je     1341 <_prtl8+0x241>
test   $0x18,%r8b
je     1342 <_prtl8+0x242>
add    $0x18,%r9
and    %r8,%r9
lea    (%rsi,%r9,1),%rcx
add    %rdi,%rsi
mov    %r8,%r10
and    $0xfffffffffffffff8,%r10
neg    %r10
neg    %rdi
lea    -0xc(%rsp),%rdx
add    %rax,%rdx
add    $0xfffffffffffffff9,%rdx
sub    %r9,%rax
pxor   %xmm0,%xmm0
movq   (%rdx,%rdi,1),%xmm1
punpcklbw %xmm0,%xmm1
pshufd $0x4e,%xmm1,%xmm1
pshuflw $0x1b,%xmm1,%xmm1
pshufhw $0x1b,%xmm1,%xmm1
packuswb %xmm1,%xmm1
movq   %xmm1,(%rsi)
add    $0x8,%rsi
add    $0xfffffffffffffff8,%rdi
cmp    %rdi,%r10
jne    12f0 <_prtl8+0x1f0>
cmp    %r9,%r8
je     1341 <_prtl8+0x241>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movzbl -0xc(%rsp,%rax,1),%edx
mov    %dl,(%rcx)
add    $0x1,%rcx
add    $0xffffffffffffffff,%rax
jb     1330 <_prtl8+0x230>
ret
add    %rdi,%rsi
sub    %rdi,%rax
jmp    11e7 <_prtl8+0xe7>

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

LLVM IR (-O2):
define i32 @_prtl8(i64 %0, i8* nocapture writeonly %1) {
%3 = alloca [12 x i8]
%4 = getelementptr inbounds [12 x i8], [12 x i8]* %3, i64 0, i64 0
store i8 0, i8* %4
%5 = trunc i64 %0 to i8
%6 = and i8 %5, 7
%7 = or i8 %6, 48
%8 = getelementptr inbounds [12 x i8], [12 x i8]* %3, i64 0, i64 1
store i8 %7, i8* %8
%9 = trunc i64 %0 to i8
%10 = lshr i8 %9, 3
%11 = and i8 %10, 7
%12 = or i8 %11, 48
%13 = getelementptr inbounds [12 x i8], [12 x i8]* %3, i64 0, i64 2
store i8 %12, i8* %13
%14 = lshr i64 %0, 6
%15 = trunc i64 %14 to i8
%16 = and i8 %15, 7
%17 = or i8 %16, 48
%18 = getelementptr inbounds [12 x i8], [12 x i8]* %3, i64 0, i64 3
store i8 %17, i8* %18
%19 = lshr i64 %0, 9
%20 = trunc i64 %19 to i8
%21 = and i8 %20, 7
%22 = or i8 %21, 48
%23 = getelementptr inbounds [12 x i8], [12 x i8]* %3, i64 0, i64 4
store i8 %22, i8* %23
%24 = lshr i64 %0, 12
%25 = trunc i64 %24 to i8
%26 = and i8 %25, 7
%27 = or i8 %26, 48
%28 = getelementptr inbounds [12 x i8], [12 x i8]* %3, i64 0, i64 5
store i8 %27, i8* %28
%29 = lshr i64 %0, 15
%30 = trunc i64 %29 to i8
%31 = and i8 %30, 7
%32 = or i8 %31, 48
%33 = getelementptr inbounds [12 x i8], [12 x i8]* %3, i64 0, i64 6
store i8 %32, i8* %33
%34 = lshr i64 %0, 18
%35 = trunc i64 %34 to i8
%36 = and i8 %35, 7
%37 = or i8 %36, 48
%38 = getelementptr inbounds [12 x i8], [12 x i8]* %3, i64 0, i64 7
store i8 %37, i8* %38
%39 = lshr i64 %0, 21
%40 = trunc i64 %39 to i8
%41 = and i8 %40, 7
%42 = or i8 %41, 48
%43 = getelementptr inbounds [12 x i8], [12 x i8]* %3, i64 0, i64 8
store i8 %42, i8* %43
%44 = lshr i64 %0, 24
%45 = trunc i64 %44 to i8
%46 = and i8 %45, 7
%47 = or i8 %46, 48
%48 = getelementptr inbounds [12 x i8], [12 x i8]* %3, i64 0, i64 9
store i8 %47, i8* %48
%49 = lshr i64 %0, 27
%50 = trunc i64 %49 to i8
%51 = and i8 %50, 7
%52 = or i8 %51, 48
%53 = getelementptr inbounds [12 x i8], [12 x i8]* %3, i64 0, i64 10
store i8 %52, i8* %53
%54 = lshr i64 %0, 30
%55 = trunc i64 %54 to i8
%56 = getelementptr inbounds [12 x i8], [12 x i8]* %3, i64 0, i64 11
%57 = and i8 %55, 3
%58 = or i8 %57, 48
store i8 %58, i8* %56
%59 = icmp eq i8 %58, 48
br i1 %59, label %60, label %66
60: ; preds = %2, %60
%61 = phi i64 [ %65, %60 ], [ 10, %2 ]
%62 = getelementptr inbounds [12 x i8], [12 x i8]* %3, i64 0, i64 %61
%63 = load i8, i8* %62
%64 = icmp eq i8 %63, 48
%65 = add i64 %61, -1
br i1 %64, label %60, label %66
66: ; preds = %60, %2
%67 = phi i64 [ 11, %2 ], [ %61, %60 ]
%68 = trunc i64 %67 to i32
%69 = icmp eq i32 %68, 0
%70 = select i1 %69, i32 1, i32 %68
%71 = icmp sgt i32 %70, -1
br i1 %71, label %72, label %136
72: ; preds = %66
%73 = zext i32 %70 to i64
%74 = add nuw nsw i64 %73, 1
%75 = icmp ult i32 %70, 7
br i1 %75, label %125, label %76
76: ; preds = %72
%77 = icmp ult i32 %70, 31
br i1 %77, label %105, label %78
78: ; preds = %76
%79 = and i64 %74, 8589934560
br label %80
80: ; preds = %80, %78
%81 = phi i64 [ 0, %78 ], [ %96, %80 ]
%82 = sub i64 %73, %81
%83 = getelementptr i8, i8* %1, i64 %81
%84 = getelementptr inbounds [12 x i8], [12 x i8]* %3, i64 0, i64 %82
%85 = getelementptr inbounds i8, i8* %84, i64 -15
%86 = bitcast i8* %85 to <16 x i8>*
%87 = load <16 x i8>, <16 x i8>* %86
%88 = shufflevector <16 x i8> %87, <16 x i8> poison, <16 x i32> <i32 15, i32 14, i32 13, i32 12, i32 11, i32 10, i32 9, i32 8, i32 7, i32 6, i32 5, i32 4, i32 3, i32 2, i32 1, i32 0>
%89 = getelementptr inbounds i8, i8* %84, i64 -31
%90 = bitcast i8* %89 to <16 x i8>*
%91 = load <16 x i8>, <16 x i8>* %90
%92 = shufflevector <16 x i8> %91, <16 x i8> poison, <16 x i32> <i32 15, i32 14, i32 13, i32 12, i32 11, i32 10, i32 9, i32 8, i32 7, i32 6, i32 5, i32 4, i32 3, i32 2, i32 1, i32 0>
%93 = bitcast i8* %83 to <16 x i8>*
store <16 x i8> %88, <16 x i8>* %93
%94 = getelementptr i8, i8* %83, i64 16
%95 = bitcast i8* %94 to <16 x i8>*
store <16 x i8> %92, <16 x i8>* %95
%96 = add nuw i64 %81, 32
%97 = icmp eq i64 %96, %79
br i1 %97, label %98, label %80
98: ; preds = %80
%99 = icmp eq i64 %74, %79
br i1 %99, label %136, label %100
100: ; preds = %98
%101 = getelementptr i8, i8* %1, i64 %79
%102 = sub nsw i64 %73, %79
%103 = and i64 %74, 24
%104 = icmp eq i64 %103, 0
br i1 %104, label %125, label %105
105: ; preds = %76, %100
%106 = phi i64 [ %79, %100 ], [ 0, %76 ]
%107 = add nuw nsw i64 %73, 1
%108 = and i64 %107, 8589934584
%109 = sub nsw i64 %73, %108
%110 = getelementptr i8, i8* %1, i64 %108
br label %111
111: ; preds = %111, %105
%112 = phi i64 [ %106, %105 ], [ %121, %111 ]
%113 = sub i64 %73, %112
%114 = getelementptr i8, i8* %1, i64 %112
%115 = getelementptr inbounds [12 x i8], [12 x i8]* %3, i64 0, i64 %113
%116 = getelementptr inbounds i8, i8* %115, i64 -7
%117 = bitcast i8* %116 to <8 x i8>*
%118 = load <8 x i8>, <8 x i8>* %117
%119 = shufflevector <8 x i8> %118, <8 x i8> poison, <8 x i32> <i32 7, i32 6, i32 5, i32 4, i32 3, i32 2, i32 1, i32 0>
%120 = bitcast i8* %114 to <8 x i8>*
store <8 x i8> %119, <8 x i8>* %120
%121 = add nuw i64 %112, 8
%122 = icmp eq i64 %121, %108
br i1 %122, label %123, label %111
123: ; preds = %111
%124 = icmp eq i64 %107, %108
br i1 %124, label %136, label %125
125: ; preds = %72, %100, %123
%126 = phi i64 [ %73, %72 ], [ %102, %100 ], [ %109, %123 ]
%127 = phi i8* [ %1, %72 ], [ %101, %100 ], [ %110, %123 ]
br label %128
128: ; preds = %125, %128
%129 = phi i64 [ %131, %128 ], [ %126, %125 ]
%130 = phi i8* [ %134, %128 ], [ %127, %125 ]
%131 = add nsw i64 %129, -1
%132 = getelementptr inbounds [12 x i8], [12 x i8]* %3, i64 0, i64 %129
%133 = load i8, i8* %132
%134 = getelementptr inbounds i8, i8* %130, i64 1
store i8 %133, i8* %130
%135 = icmp eq i64 %129, 0
br i1 %135, label %136, label %128
136: ; preds = %128, %98, %123, %66
ret i32 undef
}