char *exponent(char *p, int exp, int fmtch) {
  char *t;
  char expbuf[512];
  *p++ = fmtch;
  if (exp < 0) {
    exp = -exp;
    *p++ = '-';
  } else
    *p++ = '+';
  t = expbuf + 512;
  if (exp > 9) {
    do {
      *--t = ((exp % 10) + '0');
    } while ((exp /= 10) > 9);
    *--t = ((exp) + '0');
    for (; t < expbuf + 512; *p++ = *t++)
      ;
  } else {
    *p++ = '0';
    *p++ = ((exp) + '0');
  }
  return (p);
}


x86 assembly (clang, -O0):
<exponent>:
push   %rbp
mov    %rsp,%rbp
sub    $0x1a0,%rsp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    -0x10(%rbp),%eax
mov    %al,%cl
mov    -0x8(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x8(%rbp)
mov    %cl,(%rax)
cmpl   $0x0,-0xc(%rbp)
jge    1154 <exponent+0x54>
xor    %eax,%eax
sub    -0xc(%rbp),%eax
mov    %eax,-0xc(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
movb   $0x2d,(%rax)
jmp    1166 <exponent+0x66>
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
movb   $0x2b,(%rax)
lea    -0x220(%rbp),%rax
add    $0x200,%rax
mov    %rax,-0x18(%rbp)
cmpl   $0x9,-0xc(%rbp)
jle    1225 <exponent+0x125>
jmp    1186 <exponent+0x86>
mov    -0xc(%rbp),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
add    $0x30,%edx
mov    %dl,%cl
mov    -0x18(%rbp),%rax
mov    %rax,%rdx
add    $0xffffffffffffffff,%rdx
mov    %rdx,-0x18(%rbp)
mov    %cl,-0x1(%rax)
mov    -0xc(%rbp),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
mov    %eax,-0xc(%rbp)
cmp    $0x9,%eax
jg     1186 <exponent+0x86>
mov    -0xc(%rbp),%eax
add    $0x30,%eax
mov    %al,%cl
mov    -0x18(%rbp),%rax
mov    %rax,%rdx
add    $0xffffffffffffffff,%rdx
mov    %rdx,-0x18(%rbp)
mov    %cl,-0x1(%rax)
mov    -0x18(%rbp),%rax
lea    -0x220(%rbp),%rcx
add    $0x200,%rcx
cmp    %rcx,%rax
jae    1220 <exponent+0x120>
jmp    11f9 <exponent+0xf9>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
mov    (%rax),%cl
mov    -0x8(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x8(%rbp)
mov    %cl,(%rax)
jmp    11d9 <exponent+0xd9>
jmp    1250 <exponent+0x150>
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
movb   $0x30,(%rax)
mov    -0xc(%rbp),%eax
add    $0x30,%eax
mov    %al,%cl
mov    -0x8(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x8(%rbp)
mov    %cl,(%rax)
mov    -0x8(%rbp),%rax
add    $0x1a0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<exponent>:
push   %r14
push   %rbx
sub    $0x208,%rsp
mov    %rdi,%r14
mov    %dl,(%rdi)
mov    %esi,%eax
shr    $0x1f,%eax
add    %al,%al
add    $0x2b,%al
mov    %esi,%ecx
neg    %ecx
cmovs  %esi,%ecx
mov    %al,0x1(%rdi)
cmp    $0xa,%ecx
jl     11b7 <exponent+0xa7>
lea    0x2(%r14),%rax
lea    0x200(%rsp),%r8
xor    %ebx,%ebx
nopl   0x0(%rax)
movslq %ecx,%rsi
imul   $0x66666667,%rsi,%rcx
mov    %rcx,%rdi
shr    $0x3f,%rdi
sar    $0x22,%rcx
add    %edi,%ecx
lea    (%rcx,%rcx,1),%edi
lea    (%rdi,%rdi,4),%edi
mov    %esi,%edx
sub    %edi,%edx
add    $0x30,%dl
mov    %dl,0x1ff(%rsp,%rbx,1)
add    $0xffffffffffffffff,%rbx
cmp    $0x63,%esi
jg     1150 <exponent+0x40>
add    $0x30,%cl
lea    (%rsp,%rbx,1),%rsi
add    $0x1ff,%rsi
mov    %cl,0x1ff(%rsp,%rbx,1)
cmp    %r8,%rsi
jae    11ca <exponent+0xba>
mov    $0x1,%edx
sub    %rbx,%rdx
mov    %rax,%rdi
call   1030 <memcpy@plt>
sub    %rbx,%r14
add    $0x3,%r14
jmp    11c7 <exponent+0xb7>
movb   $0x30,0x2(%r14)
add    $0x30,%cl
mov    %cl,0x3(%r14)
add    $0x4,%r14
mov    %r14,%rax
add    $0x208,%rsp
pop    %rbx
pop    %r14
ret

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

LLVM IR (-O2):
define i8* @exponent(i8* writeonly %0, i32 %1, i32 %2) {
%4 = alloca [512 x i8]
%5 = ptrtoint [512 x i8]* %4 to i64
%6 = getelementptr inbounds [512 x i8], [512 x i8]* %4, i64 0, i64 0
%7 = trunc i32 %2 to i8
%8 = getelementptr inbounds i8, i8* %0, i64 1
store i8 %7, i8* %0
%9 = icmp slt i32 %1, 0
%10 = sub nsw i32 0, %1
%11 = select i1 %9, i8 45, i8 43
%12 = select i1 %9, i32 %10, i32 %1
%13 = getelementptr i8, i8* %0, i64 2
store i8 %11, i8* %8
%14 = getelementptr inbounds [512 x i8], [512 x i8]* %4, i64 0, i64 512
%15 = icmp sgt i32 %12, 9
br i1 %15, label %16, label %37
16: ; preds = %3, %16
%17 = phi i32 [ %23, %16 ], [ %12, %3 ]
%18 = phi i8* [ %22, %16 ], [ %14, %3 ]
%19 = srem i32 %17, 10
%20 = trunc i32 %19 to i8
%21 = add nsw i8 %20, 48
%22 = getelementptr inbounds i8, i8* %18, i64 -1
store i8 %21, i8* %22
%23 = sdiv i32 %17, 10
%24 = icmp sgt i32 %17, 99
br i1 %24, label %16, label %25
25: ; preds = %16
%26 = ptrtoint i8* %18 to i64
%27 = trunc i32 %23 to i8
%28 = add i8 %27, 48
%29 = getelementptr inbounds i8, i8* %18, i64 -2
store i8 %28, i8* %29
%30 = icmp ult i8* %29, %14
br i1 %30, label %31, label %42
31: ; preds = %25
%32 = add i64 %5, 514
%33 = sub i64 %32, %26
%34 = add i64 %5, 516
%35 = sub i64 %34, %26
%36 = getelementptr i8, i8* %0, i64 %35
br label %42
37: ; preds = %3
%38 = getelementptr inbounds i8, i8* %0, i64 3
store i8 48, i8* %13
%39 = trunc i32 %12 to i8
%40 = add i8 %39, 48
%41 = getelementptr inbounds i8, i8* %0, i64 4
store i8 %40, i8* %38
br label %42
42: ; preds = %31, %25, %37
%43 = phi i8* [ %41, %37 ], [ %13, %25 ], [ %36, %31 ]
ret i8* %43
}