void fmtnum(value, base, dosign, ljust, len, zpad) long value;
int base, dosign, ljust, len, zpad;
{
  int signvalue = 0;
  unsigned long uvalue;
  char convert[20];
  int place = 0;
  int padlen = 0;
  int caps = 0;
  uvalue = value;
  if (dosign) {
    if (value < 0) {
      signvalue = '-';
      uvalue = -value;
    }
  }
  if (base < 0) {
    caps = 1;
    base = -base;
  }
  do {
    convert[place++] = (caps ? "0123456789ABCDEF"
                             : "0123456789abcdef")[uvalue % (unsigned)base];
    uvalue = (uvalue / (unsigned)base);
  } while (uvalue);
  convert[place] = 0;
  padlen = len - place;
  if (padlen < 0)
    padlen = 0;
  if (ljust)
    padlen = -padlen;
  if (zpad && padlen > 0) {
    if (signvalue) {
      dopr_outch(signvalue);
      --padlen;
      signvalue = 0;
    }
    while (padlen > 0) {
      dopr_outch(zpad);
      --padlen;
    }
  }
  while (padlen > 0) {
    dopr_outch('0');
    --padlen;
  }
  if (signvalue)
    dopr_outch(signvalue);
  while (place > 0)
    dopr_outch(convert[--place]);
  while (padlen < 0) {
    dopr_outch(' ');
    ++padlen;
  }
}


x86 assembly (clang, -O0):
<fmtnum>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %ecx,-0x14(%rbp)
mov    %r8d,-0x18(%rbp)
mov    %r9d,-0x1c(%rbp)
movl   $0x0,-0x20(%rbp)
movl   $0x0,-0x44(%rbp)
movl   $0x0,-0x48(%rbp)
movl   $0x0,-0x4c(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x28(%rbp)
cmpl   $0x0,-0x10(%rbp)
je     117c <fmtnum+0x6c>
cmpq   $0x0,-0x8(%rbp)
jge    1177 <fmtnum+0x67>
movl   $0x2d,-0x20(%rbp)
xor    %eax,%eax
sub    -0x8(%rbp),%rax
mov    %rax,-0x28(%rbp)
jmp    117c <fmtnum+0x6c>
cmpl   $0x0,-0xc(%rbp)
jge    1195 <fmtnum+0x85>
movl   $0x1,-0x4c(%rbp)
xor    %eax,%eax
sub    -0xc(%rbp),%eax
mov    %eax,-0xc(%rbp)
jmp    119a <fmtnum+0x8a>
mov    -0x4c(%rbp),%edx
lea    0xe6d(%rip),%rax
lea    0xe55(%rip),%rcx
cmp    $0x0,%edx
cmovne %rcx,%rax
mov    %rax,-0x58(%rbp)
mov    -0x28(%rbp),%rax
mov    -0xc(%rbp),%ecx
xor    %edx,%edx
div    %rcx
mov    -0x58(%rbp),%rax
mov    (%rax,%rdx,1),%cl
mov    -0x44(%rbp),%eax
mov    %eax,%edx
add    $0x1,%edx
mov    %edx,-0x44(%rbp)
cltq
mov    %cl,-0x40(%rbp,%rax,1)
mov    -0x28(%rbp),%rax
mov    -0xc(%rbp),%ecx
xor    %edx,%edx
div    %rcx
mov    %rax,-0x28(%rbp)
cmpq   $0x0,-0x28(%rbp)
jne    119a <fmtnum+0x8a>
movslq -0x44(%rbp),%rax
movb   $0x0,-0x40(%rbp,%rax,1)
mov    -0x18(%rbp),%eax
sub    -0x44(%rbp),%eax
mov    %eax,-0x48(%rbp)
cmpl   $0x0,-0x48(%rbp)
jge    1218 <fmtnum+0x108>
movl   $0x0,-0x48(%rbp)
cmpl   $0x0,-0x14(%rbp)
je     122a <fmtnum+0x11a>
xor    %eax,%eax
sub    -0x48(%rbp),%eax
mov    %eax,-0x48(%rbp)
cmpl   $0x0,-0x1c(%rbp)
je     128e <fmtnum+0x17e>
cmpl   $0x0,-0x48(%rbp)
jle    128e <fmtnum+0x17e>
cmpl   $0x0,-0x20(%rbp)
je     1262 <fmtnum+0x152>
mov    -0x20(%rbp),%edi
mov    $0x0,%al
call   1030 <dopr_outch@plt>
mov    -0x48(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x48(%rbp)
movl   $0x0,-0x20(%rbp)
jmp    1267 <fmtnum+0x157>
cmpl   $0x0,-0x48(%rbp)
jle    1289 <fmtnum+0x179>
mov    -0x1c(%rbp),%edi
mov    $0x0,%al
call   1030 <dopr_outch@plt>
mov    -0x48(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x48(%rbp)
jmp    1267 <fmtnum+0x157>
jmp    128e <fmtnum+0x17e>
jmp    1293 <fmtnum+0x183>
cmpl   $0x0,-0x48(%rbp)
jle    12b7 <fmtnum+0x1a7>
mov    $0x30,%edi
mov    $0x0,%al
call   1030 <dopr_outch@plt>
mov    -0x48(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x48(%rbp)
jmp    1293 <fmtnum+0x183>
cmpl   $0x0,-0x20(%rbp)
je     12cb <fmtnum+0x1bb>
mov    -0x20(%rbp),%edi
mov    $0x0,%al
call   1030 <dopr_outch@plt>
jmp    12d0 <fmtnum+0x1c0>
cmpl   $0x0,-0x44(%rbp)
jle    12f6 <fmtnum+0x1e6>
mov    -0x44(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x44(%rbp)
cltq
movsbl -0x40(%rbp,%rax,1),%edi
mov    $0x0,%al
call   1030 <dopr_outch@plt>
jmp    12d0 <fmtnum+0x1c0>
jmp    12fb <fmtnum+0x1eb>
cmpl   $0x0,-0x48(%rbp)
jge    131f <fmtnum+0x20f>
mov    $0x20,%edi
mov    $0x0,%al
call   1030 <dopr_outch@plt>
mov    -0x48(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x48(%rbp)
jmp    12fb <fmtnum+0x1eb>
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<fmtnum>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x28,%rsp
mov    %r9d,%r13d
mov    %edx,%r10d
test   %edx,%edx
setne  %al
test   %rdi,%rdi
sets   %r9b
and    %al,%r9b
mov    %rdi,%rbx
neg    %rbx
test   %r9b,%r9b
cmove  %rdi,%rbx
mov    %esi,%r11d
neg    %r11d
cmovs  %esi,%r11d
test   %esi,%esi
lea    0xead(%rip),%rax
lea    0xeb7(%rip),%rsi
cmovs  %rax,%rsi
xor    %ebp,%ebp
jmp    118c <fmtnum+0x7c>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
mov    %rbx,%rax
xor    %edx,%edx
div    %r11
movzbl (%rsi,%rdx,1),%edx
mov    %dl,0x10(%rsp,%rbp,1)
add    $0x1,%rbp
cmp    %r11,%rbx
mov    %rax,%rbx
jb     119e <fmtnum+0x8e>
mov    %rbx,%rax
shr    $0x20,%rax
jne    1170 <fmtnum+0x60>
mov    %ebx,%eax
xor    %edx,%edx
div    %r11d
jmp    1178 <fmtnum+0x68>
xor    %eax,%eax
test   %r9b,%r9b
mov    $0x2d,%r12d
cmove  %eax,%r12d
mov    %ebp,%edx
movb   $0x0,0x10(%rsp,%rdx,1)
sub    %ebp,%r8d
cmovs  %eax,%r8d
mov    %r8d,%r14d
neg    %r14d
test   %ecx,%ecx
cmove  %r8d,%r14d
lea    0x1(%rbp),%rbx
test   %r13d,%r13d
je     1216 <fmtnum+0x106>
test   %r14d,%r14d
jle    1216 <fmtnum+0x106>
test   %r9b,%r9b
je     11ed <fmtnum+0xdd>
xor    %r15d,%r15d
mov    %r12d,%edi
xor    %eax,%eax
call   1030 <dopr_outch@plt>
add    $0xffffffff,%r14d
je     1266 <fmtnum+0x156>
add    $0x1,%r14d
xor    %r15d,%r15d
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %r13d,%edi
xor    %eax,%eax
call   1030 <dopr_outch@plt>
add    $0xffffffff,%r14d
cmp    $0x1,%r14d
ja     1200 <fmtnum+0xf0>
jmp    1266 <fmtnum+0x156>
mov    %rdi,%r13
mov    %r10d,0xc(%rsp)
test   %r14d,%r14d
jle    124d <fmtnum+0x13d>
add    $0x1,%r14d
xor    %r15d,%r15d
nopw   0x0(%rax,%rax,1)
mov    $0x30,%edi
xor    %eax,%eax
call   1030 <dopr_outch@plt>
add    $0xffffffff,%r14d
cmp    $0x1,%r14d
ja     1230 <fmtnum+0x120>
test   %r13,%r13
js     1255 <fmtnum+0x145>
jmp    1266 <fmtnum+0x156>
mov    %r14d,%r15d
test   %r13,%r13
jns    1266 <fmtnum+0x156>
cmpl   $0x0,0xc(%rsp)
je     1266 <fmtnum+0x156>
mov    %r12d,%edi
xor    %eax,%eax
call   1030 <dopr_outch@plt>
mov    %ebp,%ebp
add    $0xffffffffffffffff,%rbp
nopl   0x0(%rax)
mov    %ebp,%eax
movsbl 0x10(%rsp,%rax,1),%edi
xor    %eax,%eax
call   1030 <dopr_outch@plt>
add    $0xffffffff,%ebx
add    $0xffffffffffffffff,%rbp
cmp    $0x1,%ebx
jg     1270 <fmtnum+0x160>
test   %r15d,%r15d
jns    12a1 <fmtnum+0x191>
nop
mov    $0x20,%edi
xor    %eax,%eax
call   1030 <dopr_outch@plt>
inc    %r15d
jne    1290 <fmtnum+0x180>
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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