_pnum(i, f, w, s, base, pputch) unsigned long i;
unsigned char base;
void (*pputch)();
unsigned char s;
char f, w;
{
  register char *cp;
  unsigned char fw;
  char buf[30];
  if (f > 30)
    f = 30;
  if (s && (long)i < 0)
    i = -i;
  else
    s = 0;
  if (f == 0 && i == 0)
    f++;
  cp = &buf[30];
  while (i || f > 0) {
    *--cp = "0123456789ABCDEF"[i % base];
    i /= base;
    f--;
  }
  fw = f = (&buf[30] - cp) + s;
  if (fw < w)
    fw = w;
  while (w-- > f)
    (*pputch)(' ');
  if (s) {
    (*pputch)('-');
    f--;
  }
  while (f--)
    (*pputch)(*cp++);
  return fw;
}


x86 assembly (clang, -O0):
<_pnum>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %r8b,%al
mov    %rdi,-0x8(%rbp)
mov    %sil,-0x9(%rbp)
mov    %dl,-0xa(%rbp)
mov    %cl,-0xb(%rbp)
mov    %al,-0xc(%rbp)
mov    %r9,-0x18(%rbp)
movsbl -0x9(%rbp),%eax
cmp    $0x1e,%eax
jle    1131 <_pnum+0x31>
movb   $0x1e,-0x9(%rbp)
movzbl -0xb(%rbp),%eax
cmp    $0x0,%eax
je     1158 <_pnum+0x58>
cmpq   $0x0,-0x8(%rbp)
jge    1158 <_pnum+0x58>
xor    %eax,%eax
sub    -0x8(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    115c <_pnum+0x5c>
movb   $0x0,-0xb(%rbp)
movsbl -0x9(%rbp),%eax
cmp    $0x0,%eax
jne    117c <_pnum+0x7c>
cmpq   $0x0,-0x8(%rbp)
jne    117c <_pnum+0x7c>
mov    -0x9(%rbp),%al
add    $0x1,%al
mov    %al,-0x9(%rbp)
lea    -0x40(%rbp),%rax
add    $0x1e,%rax
mov    %rax,-0x20(%rbp)
mov    $0x1,%al
cmpq   $0x0,-0x8(%rbp)
mov    %al,-0x41(%rbp)
jne    11a5 <_pnum+0xa5>
movsbl -0x9(%rbp),%eax
cmp    $0x0,%eax
setg   %al
mov    %al,-0x41(%rbp)
mov    -0x41(%rbp),%al
test   $0x1,%al
jne    11b5 <_pnum+0xb5>
jmp    11fe <_pnum+0xfe>
mov    -0x8(%rbp),%rax
movzbl -0xc(%rbp),%ecx
xor    %edx,%edx
div    %rcx
lea    0xe37(%rip),%rax
mov    (%rax,%rdx,1),%cl
mov    -0x20(%rbp),%rax
mov    %rax,%rdx
add    $0xffffffffffffffff,%rdx
mov    %rdx,-0x20(%rbp)
mov    %cl,-0x1(%rax)
movzbl -0xc(%rbp),%eax
mov    %eax,%ecx
mov    -0x8(%rbp),%rax
xor    %edx,%edx
div    %rcx
mov    %rax,-0x8(%rbp)
mov    -0x9(%rbp),%al
add    $0xff,%al
mov    %al,-0x9(%rbp)
jmp    1188 <_pnum+0x88>
lea    -0x40(%rbp),%rax
add    $0x1e,%rax
mov    -0x20(%rbp),%rcx
sub    %rcx,%rax
movzbl -0xb(%rbp),%ecx
add    %rcx,%rax
mov    %al,-0x9(%rbp)
mov    %al,-0x21(%rbp)
movzbl -0x21(%rbp),%eax
movsbl -0xa(%rbp),%ecx
cmp    %ecx,%eax
jge    1230 <_pnum+0x130>
mov    -0xa(%rbp),%al
mov    %al,-0x21(%rbp)
jmp    1235 <_pnum+0x135>
mov    -0xa(%rbp),%al
mov    %al,%cl
add    $0xff,%cl
mov    %cl,-0xa(%rbp)
movsbl %al,%eax
movsbl -0x9(%rbp),%ecx
cmp    %ecx,%eax
jle    125e <_pnum+0x15e>
mov    $0x20,%edi
mov    $0x0,%al
call   *-0x18(%rbp)
jmp    1235 <_pnum+0x135>
cmpb   $0x0,-0xb(%rbp)
je     127a <_pnum+0x17a>
mov    $0x2d,%edi
mov    $0x0,%al
call   *-0x18(%rbp)
mov    -0x9(%rbp),%al
add    $0xff,%al
mov    %al,-0x9(%rbp)
jmp    127f <_pnum+0x17f>
mov    -0x9(%rbp),%al
mov    %al,%cl
add    $0xff,%cl
mov    %cl,-0x9(%rbp)
cmp    $0x0,%al
je     12b1 <_pnum+0x1b1>
mov    -0x18(%rbp),%rcx
mov    -0x20(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x20(%rbp)
movsbl (%rax),%edi
mov    $0x0,%al
call   *%rcx
jmp    127f <_pnum+0x17f>
movzbl -0x21(%rbp),%eax
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<_pnum>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x38,%rsp
cmp    $0x1e,%sil
mov    $0x1e,%eax
cmovl  %esi,%eax
mov    %r9,%r13
mov    %edx,%ebp
test   %cl,%cl
setne  %dl
test   %rdi,%rdi
sets   %bl
mov    %rdi,%rsi
neg    %rsi
xor    %r12d,%r12d
test   %dl,%bl
cmovne %ecx,%r12d
cmove  %rdi,%rsi
test   %al,%al
sete   %cl
test   %rsi,%rsi
sete   %dl
and    %cl,%dl
add    %al,%dl
neg    %rdi
lea    0x2e(%rsp),%r14
jb     115d <_pnum+0x5d>
mov    %r14,%r15
test   %dl,%dl
jle    11b6 <_pnum+0xb6>
movzbl %r8b,%ecx
add    $0xff,%dl
lea    0xe95(%rip),%r8
mov    %r14,%r15
xchg   %ax,%ax
mov    %edx,%edi
mov    %rsi,%rax
shr    $0x20,%rax
je     1190 <_pnum+0x90>
mov    %rsi,%rax
xor    %edx,%edx
div    %rcx
jmp    1196 <_pnum+0x96>
cs nopw 0x0(%rax,%rax,1)
nop
mov    %esi,%eax
xor    %edx,%edx
div    %ecx
movzbl (%rdx,%r8,1),%edx
mov    %dl,-0x1(%r15)
add    $0xffffffffffffffff,%r15
lea    -0x1(%rdi),%edx
cmp    %rcx,%rsi
mov    %rax,%rsi
jae    1170 <_pnum+0x70>
mov    %rax,%rsi
test   %dil,%dil
jg     1170 <_pnum+0x70>
sub    %r15d,%r14d
add    %r12b,%r14b
cmp    %bpl,%r14b
jge    11e2 <_pnum+0xe2>
mov    %ebp,%ebx
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
add    $0xff,%bl
mov    $0x20,%edi
xor    %eax,%eax
call   *%r13
cmp    %r14b,%bl
jg     11d0 <_pnum+0xd0>
mov    %ebp,0xc(%rsp)
mov    %r14d,%eax
test   %r12b,%r12b
je     11fc <_pnum+0xfc>
mov    $0x2d,%edi
xor    %eax,%eax
call   *%r13
lea    -0x1(%r14),%eax
test   %al,%al
je     1223 <_pnum+0x123>
movzbl %al,%ebx
xor    %ebp,%ebp
cs nopw 0x0(%rax,%rax,1)
nop
movsbl (%r15,%rbp,1),%edi
xor    %eax,%eax
call   *%r13
add    $0x1,%rbp
cmp    %bpl,%bl
jne    1210 <_pnum+0x110>
mov    0xc(%rsp),%edx
movsbl %dl,%eax
movzbl %r14b,%ecx
cmp    %ecx,%eax
movzbl %dl,%eax
cmovle %ecx,%eax
movzbl %al,%eax
add    $0x38,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [17 x i8] c"0123456789ABCDEF\00"
define i32 @_pnum(i64 %0, i32 %1, i32 %2, i32 %3, i32 %4, void (...)* %5) {
%7 = alloca i64
%8 = alloca i8
%9 = alloca i8
%10 = alloca i8
%11 = alloca i8
%12 = alloca void (...)*
%13 = alloca i8*
%14 = alloca i8
%15 = alloca [30 x i8]
%16 = trunc i32 %1 to i8
%17 = trunc i32 %2 to i8
%18 = trunc i32 %3 to i8
%19 = trunc i32 %4 to i8
store i64 %0, i64* %7
store i8 %16, i8* %8
store i8 %17, i8* %9
store i8 %18, i8* %10
store i8 %19, i8* %11
store void (...)* %5, void (...)** %12
%20 = load i8, i8* %8
%21 = sext i8 %20 to i32
%22 = icmp sgt i32 %21, 30
br i1 %22, label %23, label %24
23: ; preds = %6
store i8 30, i8* %8
br label %24
24: ; preds = %23, %6
%25 = load i8, i8* %10
%26 = zext i8 %25 to i32
%27 = icmp ne i32 %26, 0
br i1 %27, label %28, label %34
28: ; preds = %24
%29 = load i64, i64* %7
%30 = icmp slt i64 %29, 0
br i1 %30, label %31, label %34
31: ; preds = %28
%32 = load i64, i64* %7
%33 = sub i64 0, %32
store i64 %33, i64* %7
br label %35
34: ; preds = %28, %24
store i8 0, i8* %10
br label %35
35: ; preds = %34, %31
%36 = load i8, i8* %8
%37 = sext i8 %36 to i32
%38 = icmp eq i32 %37, 0
br i1 %38, label %39, label %45
39: ; preds = %35
%40 = load i64, i64* %7
%41 = icmp eq i64 %40, 0
br i1 %41, label %42, label %45
42: ; preds = %39
%43 = load i8, i8* %8
%44 = add i8 %43, 1
store i8 %44, i8* %8
br label %45
45: ; preds = %42, %39, %35
%46 = getelementptr inbounds [30 x i8], [30 x i8]* %15, i64 0, i64 30
store i8* %46, i8** %13
br label %47
47: ; preds = %56, %45
%48 = load i64, i64* %7
%49 = icmp ne i64 %48, 0
br i1 %49, label %54, label %50
50: ; preds = %47
%51 = load i8, i8* %8
%52 = sext i8 %51 to i32
%53 = icmp sgt i32 %52, 0
br label %54
54: ; preds = %50, %47
%55 = phi i1 [ true, %47 ], [ %53, %50 ]
br i1 %55, label %56, label %71
56: ; preds = %54
%57 = load i64, i64* %7
%58 = load i8, i8* %11
%59 = zext i8 %58 to i64
%60 = urem i64 %57, %59
%61 = getelementptr inbounds [17 x i8], [17 x i8]* @.str, i64 0, i64 %60
%62 = load i8, i8* %61
%63 = load i8*, i8** %13
%64 = getelementptr inbounds i8, i8* %63, i32 -1
store i8* %64, i8** %13
store i8 %62, i8* %64
%65 = load i8, i8* %11
%66 = zext i8 %65 to i64
%67 = load i64, i64* %7
%68 = udiv i64 %67, %66
store i64 %68, i64* %7
%69 = load i8, i8* %8
%70 = add i8 %69, -1
store i8 %70, i8* %8
br label %47
71: ; preds = %54
%72 = getelementptr inbounds [30 x i8], [30 x i8]* %15, i64 0, i64 30
%73 = load i8*, i8** %13
%74 = ptrtoint i8* %72 to i64
%75 = ptrtoint i8* %73 to i64
%76 = sub i64 %74, %75
%77 = load i8, i8* %10
%78 = zext i8 %77 to i64
%79 = add nsw i64 %76, %78
%80 = trunc i64 %79 to i8
store i8 %80, i8* %8
store i8 %80, i8* %14
%81 = load i8, i8* %14
%82 = zext i8 %81 to i32
%83 = load i8, i8* %9
%84 = sext i8 %83 to i32
%85 = icmp slt i32 %82, %84
br i1 %85, label %86, label %88
86: ; preds = %71
%87 = load i8, i8* %9
store i8 %87, i8* %14
br label %88
88: ; preds = %86, %71
br label %89
89: ; preds = %96, %88
%90 = load i8, i8* %9
%91 = add i8 %90, -1
store i8 %91, i8* %9
%92 = sext i8 %90 to i32
%93 = load i8, i8* %8
%94 = sext i8 %93 to i32
%95 = icmp sgt i32 %92, %94
br i1 %95, label %96, label %99
96: ; preds = %89
%97 = load void (...)*, void (...)** %12
%98 = bitcast void (...)* %97 to void (i32, ...)*
br label %89
99: ; preds = %89
%100 = load i8, i8* %10
%101 = icmp ne i8 %100, 0
br i1 %101, label %102, label %107
102: ; preds = %99
%103 = load void (...)*, void (...)** %12
%104 = bitcast void (...)* %103 to void (i32, ...)*
%105 = load i8, i8* %8
%106 = add i8 %105, -1
store i8 %106, i8* %8
br label %107
107: ; preds = %102, %99
br label %108
108: ; preds = %112, %107
%109 = load i8, i8* %8
%110 = add i8 %109, -1
store i8 %110, i8* %8
%111 = icmp ne i8 %109, 0
br i1 %111, label %112, label %119
112: ; preds = %108
%113 = load void (...)*, void (...)** %12
%114 = load i8*, i8** %13
%115 = getelementptr inbounds i8, i8* %114, i32 1
store i8* %115, i8** %13
%116 = load i8, i8* %114
%117 = sext i8 %116 to i32
%118 = bitcast void (...)* %113 to void (i32, ...)*
br label %108
119: ; preds = %108
%120 = load i8, i8* %14
%121 = zext i8 %120 to i32
ret i32 %121
}

LLVM IR (-O2):
@.str = [17 x i8] c"0123456789ABCDEF\00"
define i32 @_pnum(i64 %0, i32 %1, i32 %2, i32 %3, i32 %4, void (...)* nocapture %5) {
%7 = alloca [30 x i8]
%8 = trunc i32 %1 to i8
%9 = trunc i32 %2 to i8
%10 = getelementptr inbounds [30 x i8], [30 x i8]* %7, i64 0, i64 0
%11 = icmp slt i8 %8, 30
%12 = select i1 %11, i8 %8, i8 30
%13 = and i32 %3, 255
%14 = icmp ne i32 %13, 0
%15 = icmp slt i64 %0, 0
%16 = and i1 %15, %14
%17 = trunc i32 %3 to i8
%18 = sub i64 0, %0
%19 = select i1 %16, i8 %17, i8 0
%20 = select i1 %16, i64 %18, i64 %0
%21 = icmp eq i8 %12, 0
%22 = icmp eq i64 %20, 0
%23 = and i1 %21, %22
%24 = zext i1 %23 to i8
%25 = add nsw i8 %12, %24
%26 = getelementptr inbounds [30 x i8], [30 x i8]* %7, i64 0, i64 30
%27 = icmp ne i64 %0, 0
%28 = icmp sgt i8 %25, 0
%29 = select i1 %27, i1 true, i1 %28
br i1 %29, label %30, label %46
30: ; preds = %6
%31 = and i32 %4, 255
%32 = zext i32 %31 to i64
br label %33
33: ; preds = %30, %33
%34 = phi i8* [ %26, %30 ], [ %40, %33 ]
%35 = phi i64 [ %20, %30 ], [ %41, %33 ]
%36 = phi i8 [ %25, %30 ], [ %42, %33 ]
%37 = urem i64 %35, %32
%38 = getelementptr inbounds [17 x i8], [17 x i8]* @.str, i64 0, i64 %37
%39 = load i8, i8* %38
%40 = getelementptr inbounds i8, i8* %34, i64 -1
store i8 %39, i8* %40
%41 = udiv i64 %35, %32
%42 = add i8 %36, -1
%43 = icmp uge i64 %35, %32
%44 = icmp sgt i8 %42, 0
%45 = select i1 %43, i1 true, i1 %44
br i1 %45, label %33, label %46
46: ; preds = %33, %6
%47 = phi i8* [ %26, %6 ], [ %40, %33 ]
%48 = ptrtoint i8* %26 to i64
%49 = ptrtoint i8* %47 to i64
%50 = sub i64 %48, %49
%51 = trunc i64 %50 to i8
%52 = add i8 %19, %51
%53 = icmp slt i8 %52, %9
br i1 %53, label %54, label %60
54: ; preds = %46
%55 = bitcast void (...)* %5 to void (i32, ...)*
br label %56
56: ; preds = %54, %56
%57 = phi i8 [ %9, %54 ], [ %58, %56 ]
%58 = add nsw i8 %57, -1
%59 = icmp sgt i8 %58, %52
br i1 %59, label %56, label %60
60: ; preds = %56, %46
%61 = icmp eq i8 %19, 0
br i1 %61, label %65, label %62
62: ; preds = %60
%63 = bitcast void (...)* %5 to void (i32, ...)*
%64 = add i8 %52, -1
br label %65
65: ; preds = %62, %60
%66 = phi i8 [ %64, %62 ], [ %52, %60 ]
%67 = icmp eq i8 %66, 0
br i1 %67, label %78, label %68
68: ; preds = %65
%69 = bitcast void (...)* %5 to void (i32, ...)*
br label %70
70: ; preds = %68, %70
%71 = phi i8* [ %47, %68 ], [ %74, %70 ]
%72 = phi i8 [ %66, %68 ], [ %73, %70 ]
%73 = add i8 %72, -1
%74 = getelementptr inbounds i8, i8* %71, i64 1
%75 = load i8, i8* %71
%76 = sext i8 %75 to i32
%77 = icmp eq i8 %73, 0
br i1 %77, label %78, label %70
78: ; preds = %70, %65
%79 = shl i32 %2, 24
%80 = ashr exact i32 %79, 24
%81 = zext i8 %52 to i32
%82 = icmp sgt i32 %80, %81
%83 = select i1 %82, i8 %9, i8 %52
%84 = zext i8 %83 to i32
ret i32 %84
}