char *dtoa(double d, int ndig, char *s) {
  static char str[32];
  int pos = 0;
  if (s == 0)
    s = str;
  if (d == 0.0) {
    s[0] = '0';
    s[1] = 0;
    return s;
  }
  if (d < 0)
    s[pos++] = '-', d = -d;
  int base = 0;
  double num = 0;
  if (d >= 1.0) {
    for (num = 1, base = 0; num < 1.7976931348623157e+308; num *= 10, base++)
      if (num * 10 > d)
        break;
  } else
    for (num = 0.1, base = -1; num > 0; num /= 10, base--)
      if (num <= d)
        break;
  d /= num;
  int i = 0;
  for (i = 0; i < ndig && d != 0; i++) {
    s[pos++] = '0' + (int)d;
    if (i == 0)
      s[pos++] = '.';
    d = (d - ((int)d)) * 10;
  }
  if (d >= 5) {
    while (s[pos - 1] == '9')
      pos--;
    if (s[pos - 1] != '.')
      s[pos - 1]++;
    else {
      pos--;
      if (s[pos - 1] != '9')
        s[pos - 1]++;
      else {
        s[pos - 1] = '1';
        base++;
      }
    }
  } else
    while (s[pos - 1] == '0')
      pos--;
  if (s[pos - 1] == '.')
    pos--;
  if (base != 0) {
    s[pos++] = 'E';
    if (base < 0)
      s[pos++] = '-', base = -base;
    if (base > 100) {
      s[pos++] = '0' + base / 100;
      base %= 100;
      s[pos++] = '0' + base / 10;
      base %= 10;
      s[pos++] = '0' + base;
    } else if (base > 10) {
      s[pos++] = '0' + base / 10;
      base %= 10;
      s[pos++] = '0' + base;
    } else
      s[pos++] = '0' + base;
  }
  s[pos] = 0;
  return s;
}


x86 assembly (clang, -O0):
<dtoa>:
push   %rbp
mov    %rsp,%rbp
movsd  %xmm0,-0x10(%rbp)
mov    %edi,-0x14(%rbp)
mov    %rsi,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
cmpq   $0x0,-0x20(%rbp)
jne    112d <dtoa+0x2d>
lea    0x2f07(%rip),%rax
mov    %rax,-0x20(%rbp)
movsd  -0x10(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1161 <dtoa+0x61>
jp     1161 <dtoa+0x61>
mov    -0x20(%rbp),%rax
movb   $0x30,(%rax)
mov    -0x20(%rbp),%rax
movb   $0x0,0x1(%rax)
mov    -0x20(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    1614 <dtoa+0x514>
xorps  %xmm0,%xmm0
ucomisd -0x10(%rbp),%xmm0
jbe    11a6 <dtoa+0xa6>
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    %ecx,%edx
add    $0x1,%edx
mov    %edx,-0x24(%rbp)
movslq %ecx,%rcx
movb   $0x2d,(%rax,%rcx,1)
movsd  -0x10(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x10(%rbp)
movl   $0x0,-0x28(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x30(%rbp)
movsd  -0x10(%rbp),%xmm0
movsd  0xe3e(%rip),%xmm1
ucomisd %xmm1,%xmm0
jb     123a <dtoa+0x13a>
movsd  0xe2c(%rip),%xmm0
movsd  %xmm0,-0x30(%rbp)
movl   $0x0,-0x28(%rbp)
movsd  0xe30(%rip),%xmm0
ucomisd -0x30(%rbp),%xmm0
jbe    1235 <dtoa+0x135>
movsd  0xe15(%rip),%xmm0
mulsd  -0x30(%rbp),%xmm0
ucomisd -0x10(%rbp),%xmm0
jbe    1210 <dtoa+0x110>
jmp    1235 <dtoa+0x135>
jmp    1215 <dtoa+0x115>
movsd  0xdf3(%rip),%xmm0
mulsd  -0x30(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    11e0 <dtoa+0xe0>
jmp    12a7 <dtoa+0x1a7>
movsd  0xdc6(%rip),%xmm0
movsd  %xmm0,-0x30(%rbp)
movl   $0xffffffff,-0x28(%rbp)
movsd  -0x30(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jbe    12a2 <dtoa+0x1a2>
movsd  -0x30(%rbp),%xmm1
movsd  -0x10(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jb     1279 <dtoa+0x179>
jmp    12a2 <dtoa+0x1a2>
jmp    127e <dtoa+0x17e>
movsd  -0x30(%rbp),%xmm0
movsd  0xd85(%rip),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x30(%rbp)
mov    -0x28(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x28(%rbp)
jmp    124e <dtoa+0x14e>
jmp    12a7 <dtoa+0x1a7>
movsd  -0x30(%rbp),%xmm1
movsd  -0x10(%rbp),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x10(%rbp)
movl   $0x0,-0x34(%rbp)
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%ecx
xor    %eax,%eax
cmp    -0x14(%rbp),%ecx
mov    %al,-0x35(%rbp)
jge    12f0 <dtoa+0x1f0>
movsd  -0x10(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
setne  %al
setp   %cl
or     %cl,%al
mov    %al,-0x35(%rbp)
mov    -0x35(%rbp),%al
test   $0x1,%al
jne    1300 <dtoa+0x200>
jmp    1370 <dtoa+0x270>
cvttsd2si -0x10(%rbp),%eax
add    $0x30,%eax
mov    %al,%dl
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    %ecx,%esi
add    $0x1,%esi
mov    %esi,-0x24(%rbp)
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
cmpl   $0x0,-0x34(%rbp)
jne    133f <dtoa+0x23f>
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    %ecx,%edx
add    $0x1,%edx
mov    %edx,-0x24(%rbp)
movslq %ecx,%rcx
movb   $0x2e,(%rax,%rcx,1)
movsd  -0x10(%rbp),%xmm0
cvttsd2si -0x10(%rbp),%eax
cvtsi2sd %eax,%xmm1
subsd  %xmm1,%xmm0
movsd  0xcb7(%rip),%xmm1
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x10(%rbp)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    12c8 <dtoa+0x1c8>
movsd  -0x10(%rbp),%xmm0
movsd  0xca3(%rip),%xmm1
ucomisd %xmm1,%xmm0
jb     144b <dtoa+0x34b>
jmp    138c <dtoa+0x28c>
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x39,%eax
jne    13b4 <dtoa+0x2b4>
mov    -0x24(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x24(%rbp)
jmp    138c <dtoa+0x28c>
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x2e,%eax
je     13e9 <dtoa+0x2e9>
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,1),%dl
add    $0x1,%dl
mov    %dl,(%rax,%rcx,1)
jmp    1446 <dtoa+0x346>
mov    -0x24(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x24(%rbp)
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x39,%eax
je     1427 <dtoa+0x327>
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,1),%dl
add    $0x1,%dl
mov    %dl,(%rax,%rcx,1)
jmp    1441 <dtoa+0x341>
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movb   $0x31,(%rax,%rcx,1)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1446 <dtoa+0x346>
jmp    147d <dtoa+0x37d>
jmp    1450 <dtoa+0x350>
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x30,%eax
jne    1478 <dtoa+0x378>
mov    -0x24(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x24(%rbp)
jmp    1450 <dtoa+0x350>
jmp    147d <dtoa+0x37d>
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x2e,%eax
jne    14a0 <dtoa+0x3a0>
mov    -0x24(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x24(%rbp)
cmpl   $0x0,-0x28(%rbp)
je     1600 <dtoa+0x500>
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    %ecx,%edx
add    $0x1,%edx
mov    %edx,-0x24(%rbp)
movslq %ecx,%rcx
movb   $0x45,(%rax,%rcx,1)
cmpl   $0x0,-0x28(%rbp)
jge    14e8 <dtoa+0x3e8>
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    %ecx,%edx
add    $0x1,%edx
mov    %edx,-0x24(%rbp)
movslq %ecx,%rcx
movb   $0x2d,(%rax,%rcx,1)
xor    %eax,%eax
sub    -0x28(%rbp),%eax
mov    %eax,-0x28(%rbp)
cmpl   $0x64,-0x28(%rbp)
jle    157a <dtoa+0x47a>
mov    -0x28(%rbp),%eax
mov    $0x64,%ecx
cltd
idiv   %ecx
add    $0x30,%eax
mov    %al,%dl
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    %ecx,%esi
add    $0x1,%esi
mov    %esi,-0x24(%rbp)
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x28(%rbp),%eax
mov    $0x64,%ecx
cltd
idiv   %ecx
mov    %edx,-0x28(%rbp)
mov    -0x28(%rbp),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
add    $0x30,%eax
mov    %al,%dl
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    %ecx,%esi
add    $0x1,%esi
mov    %esi,-0x24(%rbp)
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x28(%rbp),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
mov    %edx,-0x28(%rbp)
mov    -0x28(%rbp),%eax
add    $0x30,%eax
mov    %al,%dl
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    %ecx,%esi
add    $0x1,%esi
mov    %esi,-0x24(%rbp)
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
jmp    15fb <dtoa+0x4fb>
cmpl   $0xa,-0x28(%rbp)
jle    15d9 <dtoa+0x4d9>
mov    -0x28(%rbp),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
add    $0x30,%eax
mov    %al,%dl
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    %ecx,%esi
add    $0x1,%esi
mov    %esi,-0x24(%rbp)
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x28(%rbp),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
mov    %edx,-0x28(%rbp)
mov    -0x28(%rbp),%eax
add    $0x30,%eax
mov    %al,%dl
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    %ecx,%esi
add    $0x1,%esi
mov    %esi,-0x24(%rbp)
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
jmp    15f6 <dtoa+0x4f6>
mov    -0x28(%rbp),%eax
add    $0x30,%eax
mov    %al,%dl
mov    -0x20(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    %ecx,%esi
add    $0x1,%esi
mov    %esi,-0x24(%rbp)
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
jmp    15fb <dtoa+0x4fb>
jmp    1600 <dtoa+0x500>
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
movb   $0x0,(%rax,%rcx,1)
mov    -0x20(%rbp),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<dtoa>:
test   %rsi,%rsi
lea    0x2f26(%rip),%rax
cmovne %rsi,%rax
xorpd  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1127 <dtoa+0x27>
jp     1127 <dtoa+0x27>
movb   $0x30,(%rax)
mov    $0x1,%ecx
movb   $0x0,(%rax,%rcx,1)
ret
xor    %edx,%edx
ucomisd %xmm0,%xmm1
jbe    113f <dtoa+0x3f>
movb   $0x2d,(%rax)
xorpd  0xec6(%rip),%xmm0
mov    $0x1,%edx
ucomisd 0xec9(%rip),%xmm0
jae    1196 <dtoa+0x96>
movsd  0xed7(%rip),%xmm1
mov    $0xffffffff,%r8d
ucomisd %xmm1,%xmm0
jae    11de <dtoa+0xde>
mov    $0xffffffff,%r8d
movsd  0xeb9(%rip),%xmm1
movsd  0xea1(%rip),%xmm2
xorpd  %xmm3,%xmm3
nopl   0x0(%rax,%rax,1)
divsd  %xmm2,%xmm1
add    $0xffffffff,%r8d
ucomisd %xmm3,%xmm1
jbe    11de <dtoa+0xde>
ucomisd %xmm1,%xmm0
jb     1180 <dtoa+0x80>
jmp    11de <dtoa+0xde>
xor    %r8d,%r8d
movsd  0xe6f(%rip),%xmm4
movsd  0xe6f(%rip),%xmm2
movsd  0xe6f(%rip),%xmm3
movapd %xmm4,%xmm1
cs nopw 0x0(%rax,%rax,1)
nop
mulsd  %xmm2,%xmm1
ucomisd %xmm0,%xmm1
ja     11da <dtoa+0xda>
add    $0x1,%r8d
ucomisd %xmm1,%xmm3
movapd %xmm1,%xmm4
ja     11c0 <dtoa+0xc0>
jmp    11de <dtoa+0xde>
movapd %xmm4,%xmm1
divsd  %xmm1,%xmm0
test   %edi,%edi
jle    126d <dtoa+0x16d>
xorpd  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    11f6 <dtoa+0xf6>
jnp    126d <dtoa+0x16d>
cvttsd2si %xmm0,%ecx
add    $0x30,%cl
mov    %edx,%esi
mov    %cl,(%rax,%rsi,1)
or     $0x2,%edx
movb   $0x2e,0x1(%rax,%rsi,1)
cvttpd2dq %xmm0,%xmm1
cvtdq2pd %xmm1,%xmm1
subsd  %xmm1,%xmm0
mulsd  0xdfa(%rip),%xmm0
cmp    $0x2,%edi
jb     126d <dtoa+0x16d>
xorpd  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    122f <dtoa+0x12f>
jnp    126d <dtoa+0x16d>
mov    %edx,%edx
mov    $0x2,%esi
movsd  0xdda(%rip),%xmm2
xchg   %ax,%ax
cvttsd2si %xmm0,%ecx
add    $0x30,%cl
mov    %cl,(%rax,%rdx,1)
cvttpd2dq %xmm0,%xmm3
cvtdq2pd %xmm3,%xmm3
subsd  %xmm3,%xmm0
mulsd  %xmm2,%xmm0
add    $0x1,%rdx
cmp    %edi,%esi
jge    126d <dtoa+0x16d>
add    $0x1,%esi
ucomisd %xmm1,%xmm0
jne    1240 <dtoa+0x140>
jp     1240 <dtoa+0x140>
ucomisd 0xdbb(%rip),%xmm0
movslq %edx,%rdx
jae    128d <dtoa+0x18d>
add    $0x1,%rdx
xchg   %ax,%ax
cmpb   $0x30,-0x2(%rax,%rdx,1)
lea    -0x1(%rdx),%rdx
je     1280 <dtoa+0x180>
jmp    12ee <dtoa+0x1ee>
movabs $0xffffffff00000000,%rdi
ff ff ff
mov    %rdx,%rsi
shl    $0x20,%rsi
add    %rdi,%rsi
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movzbl -0x1(%rax,%rdx,1),%ecx
add    $0xffffffffffffffff,%rdx
add    %rdi,%rsi
cmp    $0x39,%cl
je     12b0 <dtoa+0x1b0>
cmp    $0x2e,%cl
jne    12dc <dtoa+0x1dc>
sar    $0x20,%rsi
mov    (%rax,%rsi,1),%cl
cmp    $0x39,%cl
jne    12e8 <dtoa+0x1e8>
movb   $0x31,(%rax,%rsi,1)
add    $0x1,%r8d
jmp    12ee <dtoa+0x1ee>
add    $0x1,%cl
mov    %cl,(%rax,%rdx,1)
add    $0x1,%rdx
jmp    12ee <dtoa+0x1ee>
add    $0x1,%cl
mov    %cl,(%rax,%rsi,1)
movslq %edx,%rsi
cmpb   $0x2e,-0x1(%rax,%rsi,1)
lea    -0x1(%rsi),%rcx
cmove  %ecx,%esi
test   %r8d,%r8d
je     13c5 <dtoa+0x2c5>
movslq %esi,%rdx
movb   $0x45,(%rax,%rdx,1)
add    $0x1,%rdx
test   %r8d,%r8d
js     1369 <dtoa+0x269>
cmp    $0x65,%r8d
jb     137b <dtoa+0x27b>
mov    %r8d,%ecx
imul   $0x51eb851f,%rcx,%rcx
shr    $0x25,%rcx
lea    0x30(%rcx),%esi
movslq %edx,%rdi
mov    %sil,(%rax,%rdi,1)
imul   $0x64,%ecx,%ecx
sub    %ecx,%r8d
imul   $0xcd,%r8d,%ecx
movzwl %cx,%ecx
shr    $0xb,%ecx
mov    %ecx,%r9d
or     $0x30,%r9b
lea    0x2(%rdx),%esi
mov    %r9b,0x1(%rax,%rdi,1)
add    %ecx,%ecx
lea    (%rcx,%rcx,4),%ecx
sub    %cl,%r8b
or     $0x30,%r8b
mov    $0x3,%edi
jmp    13ba <dtoa+0x2ba>
add    $0x2,%esi
movb   $0x2d,(%rax,%rdx,1)
neg    %r8d
mov    %esi,%edx
cmp    $0x65,%r8d
jae    131c <dtoa+0x21c>
cmp    $0xb,%r8d
jb     13af <dtoa+0x2af>
movzbl %r8b,%ecx
imul   $0xcd,%ecx,%ecx
shr    $0xb,%ecx
lea    0x30(%rcx),%r9d
lea    0x1(%rdx),%esi
movslq %edx,%rdi
mov    %r9b,(%rax,%rdi,1)
add    %ecx,%ecx
lea    (%rcx,%rcx,4),%ecx
sub    %cl,%r8b
or     $0x30,%r8b
mov    $0x2,%edi
jmp    13ba <dtoa+0x2ba>
add    $0x30,%r8b
mov    $0x1,%edi
mov    %edx,%esi
add    %edi,%edx
movslq %esi,%rcx
mov    %r8b,(%rax,%rcx,1)
mov    %edx,%esi
movslq %esi,%rcx
movb   $0x0,(%rax,%rcx,1)
ret

LLVM IR (-O0):
@dtoa.str = internal global [32 x i8] zeroinitializer
define i8* @dtoa(double %0, i32 %1, i8* %2) {
%4 = alloca i8*
%5 = alloca double
%6 = alloca i32
%7 = alloca i8*
%8 = alloca i32
%9 = alloca i32
%10 = alloca double
%11 = alloca i32
store double %0, double* %5
store i32 %1, i32* %6
store i8* %2, i8** %7
store i32 0, i32* %8
%12 = load i8*, i8** %7
%13 = icmp eq i8* %12, null
br i1 %13, label %14, label %15
14: ; preds = %3
store i8* getelementptr inbounds ([32 x i8], [32 x i8]* @dtoa.str, i64 0, i64 0), i8** %7
br label %15
15: ; preds = %14, %3
%16 = load double, double* %5
%17 = fcmp oeq double %16, 0.000000e+00
br i1 %17, label %18, label %24
18: ; preds = %15
%19 = load i8*, i8** %7
%20 = getelementptr inbounds i8, i8* %19, i64 0
store i8 48, i8* %20
%21 = load i8*, i8** %7
%22 = getelementptr inbounds i8, i8* %21, i64 1
store i8 0, i8* %22
%23 = load i8*, i8** %7
store i8* %23, i8** %4
br label %293
24: ; preds = %15
%25 = load double, double* %5
%26 = fcmp olt double %25, 0.000000e+00
br i1 %26, label %27, label %35
27: ; preds = %24
%28 = load i8*, i8** %7
%29 = load i32, i32* %8
%30 = add nsw i32 %29, 1
store i32 %30, i32* %8
%31 = sext i32 %29 to i64
%32 = getelementptr inbounds i8, i8* %28, i64 %31
store i8 45, i8* %32
%33 = load double, double* %5
%34 = fneg double %33
store double %34, double* %5
br label %35
35: ; preds = %27, %24
store i32 0, i32* %9
store double 0.000000e+00, double* %10
%36 = load double, double* %5
%37 = fcmp oge double %36, 1.000000e+00
br i1 %37, label %38, label %55
38: ; preds = %35
store double 1.000000e+00, double* %10
store i32 0, i32* %9
br label %39
39: ; preds = %49, %38
%40 = load double, double* %10
%41 = fcmp olt double %40, 0x7FEFFFFFFFFFFFFF
br i1 %41, label %42, label %54
42: ; preds = %39
%43 = load double, double* %10
%44 = fmul double %43, 1.000000e+01
%45 = load double, double* %5
%46 = fcmp ogt double %44, %45
br i1 %46, label %47, label %48
47: ; preds = %42
br label %54
48: ; preds = %42
br label %49
49: ; preds = %48
%50 = load double, double* %10
%51 = fmul double %50, 1.000000e+01
store double %51, double* %10
%52 = load i32, i32* %9
%53 = add nsw i32 %52, 1
store i32 %53, i32* %9
br label %39
54: ; preds = %47, %39
br label %71
55: ; preds = %35
store double 1.000000e-01, double* %10
store i32 -1, i32* %9
br label %56
56: ; preds = %65, %55
%57 = load double, double* %10
%58 = fcmp ogt double %57, 0.000000e+00
br i1 %58, label %59, label %70
59: ; preds = %56
%60 = load double, double* %10
%61 = load double, double* %5
%62 = fcmp ole double %60, %61
br i1 %62, label %63, label %64
63: ; preds = %59
br label %70
64: ; preds = %59
br label %65
65: ; preds = %64
%66 = load double, double* %10
%67 = fdiv double %66, 1.000000e+01
store double %67, double* %10
%68 = load i32, i32* %9
%69 = add nsw i32 %68, -1
store i32 %69, i32* %9
br label %56
70: ; preds = %63, %56
br label %71
71: ; preds = %70, %54
%72 = load double, double* %10
%73 = load double, double* %5
%74 = fdiv double %73, %72
store double %74, double* %5
store i32 0, i32* %11
store i32 0, i32* %11
br label %75
75: ; preds = %109, %71
%76 = load i32, i32* %11
%77 = load i32, i32* %6
%78 = icmp slt i32 %76, %77
br i1 %78, label %79, label %82
79: ; preds = %75
%80 = load double, double* %5
%81 = fcmp une double %80, 0.000000e+00
br label %82
82: ; preds = %79, %75
%83 = phi i1 [ false, %75 ], [ %81, %79 ]
br i1 %83, label %84, label %112
84: ; preds = %82
%85 = load double, double* %5
%86 = fptosi double %85 to i32
%87 = add nsw i32 48, %86
%88 = trunc i32 %87 to i8
%89 = load i8*, i8** %7
%90 = load i32, i32* %8
%91 = add nsw i32 %90, 1
store i32 %91, i32* %8
%92 = sext i32 %90 to i64
%93 = getelementptr inbounds i8, i8* %89, i64 %92
store i8 %88, i8* %93
%94 = load i32, i32* %11
%95 = icmp eq i32 %94, 0
br i1 %95, label %96, label %102
96: ; preds = %84
%97 = load i8*, i8** %7
%98 = load i32, i32* %8
%99 = add nsw i32 %98, 1
store i32 %99, i32* %8
%100 = sext i32 %98 to i64
%101 = getelementptr inbounds i8, i8* %97, i64 %100
store i8 46, i8* %101
br label %102
102: ; preds = %96, %84
%103 = load double, double* %5
%104 = load double, double* %5
%105 = fptosi double %104 to i32
%106 = sitofp i32 %105 to double
%107 = fsub double %103, %106
%108 = fmul double %107, 1.000000e+01
store double %108, double* %5
br label %109
109: ; preds = %102
%110 = load i32, i32* %11
%111 = add nsw i32 %110, 1
store i32 %111, i32* %11
br label %75
112: ; preds = %82
%113 = load double, double* %5
%114 = fcmp oge double %113, 5.000000e+00
br i1 %114, label %115, label %174
115: ; preds = %112
br label %116
116: ; preds = %125, %115
%117 = load i8*, i8** %7
%118 = load i32, i32* %8
%119 = sub nsw i32 %118, 1
%120 = sext i32 %119 to i64
%121 = getelementptr inbounds i8, i8* %117, i64 %120
%122 = load i8, i8* %121
%123 = sext i8 %122 to i32
%124 = icmp eq i32 %123, 57
br i1 %124, label %125, label %128
125: ; preds = %116
%126 = load i32, i32* %8
%127 = add nsw i32 %126, -1
store i32 %127, i32* %8
br label %116
128: ; preds = %116
%129 = load i8*, i8** %7
%130 = load i32, i32* %8
%131 = sub nsw i32 %130, 1
%132 = sext i32 %131 to i64
%133 = getelementptr inbounds i8, i8* %129, i64 %132
%134 = load i8, i8* %133
%135 = sext i8 %134 to i32
%136 = icmp ne i32 %135, 46
br i1 %136, label %137, label %145
137: ; preds = %128
%138 = load i8*, i8** %7
%139 = load i32, i32* %8
%140 = sub nsw i32 %139, 1
%141 = sext i32 %140 to i64
%142 = getelementptr inbounds i8, i8* %138, i64 %141
%143 = load i8, i8* %142
%144 = add i8 %143, 1
store i8 %144, i8* %142
br label %173
145: ; preds = %128
%146 = load i32, i32* %8
%147 = add nsw i32 %146, -1
store i32 %147, i32* %8
%148 = load i8*, i8** %7
%149 = load i32, i32* %8
%150 = sub nsw i32 %149, 1
%151 = sext i32 %150 to i64
%152 = getelementptr inbounds i8, i8* %148, i64 %151
%153 = load i8, i8* %152
%154 = sext i8 %153 to i32
%155 = icmp ne i32 %154, 57
br i1 %155, label %156, label %164
156: ; preds = %145
%157 = load i8*, i8** %7
%158 = load i32, i32* %8
%159 = sub nsw i32 %158, 1
%160 = sext i32 %159 to i64
%161 = getelementptr inbounds i8, i8* %157, i64 %160
%162 = load i8, i8* %161
%163 = add i8 %162, 1
store i8 %163, i8* %161
br label %172
164: ; preds = %145
%165 = load i8*, i8** %7
%166 = load i32, i32* %8
%167 = sub nsw i32 %166, 1
%168 = sext i32 %167 to i64
%169 = getelementptr inbounds i8, i8* %165, i64 %168
store i8 49, i8* %169
%170 = load i32, i32* %9
%171 = add nsw i32 %170, 1
store i32 %171, i32* %9
br label %172
172: ; preds = %164, %156
br label %173
173: ; preds = %172, %137
br label %188
174: ; preds = %112
br label %175
175: ; preds = %184, %174
%176 = load i8*, i8** %7
%177 = load i32, i32* %8
%178 = sub nsw i32 %177, 1
%179 = sext i32 %178 to i64
%180 = getelementptr inbounds i8, i8* %176, i64 %179
%181 = load i8, i8* %180
%182 = sext i8 %181 to i32
%183 = icmp eq i32 %182, 48
br i1 %183, label %184, label %187
184: ; preds = %175
%185 = load i32, i32* %8
%186 = add nsw i32 %185, -1
store i32 %186, i32* %8
br label %175
187: ; preds = %175
br label %188
188: ; preds = %187, %173
%189 = load i8*, i8** %7
%190 = load i32, i32* %8
%191 = sub nsw i32 %190, 1
%192 = sext i32 %191 to i64
%193 = getelementptr inbounds i8, i8* %189, i64 %192
%194 = load i8, i8* %193
%195 = sext i8 %194 to i32
%196 = icmp eq i32 %195, 46
br i1 %196, label %197, label %200
197: ; preds = %188
%198 = load i32, i32* %8
%199 = add nsw i32 %198, -1
store i32 %199, i32* %8
br label %200
200: ; preds = %197, %188
%201 = load i32, i32* %9
%202 = icmp ne i32 %201, 0
br i1 %202, label %203, label %287
203: ; preds = %200
%204 = load i8*, i8** %7
%205 = load i32, i32* %8
%206 = add nsw i32 %205, 1
store i32 %206, i32* %8
%207 = sext i32 %205 to i64
%208 = getelementptr inbounds i8, i8* %204, i64 %207
store i8 69, i8* %208
%209 = load i32, i32* %9
%210 = icmp slt i32 %209, 0
br i1 %210, label %211, label %219
211: ; preds = %203
%212 = load i8*, i8** %7
%213 = load i32, i32* %8
%214 = add nsw i32 %213, 1
store i32 %214, i32* %8
%215 = sext i32 %213 to i64
%216 = getelementptr inbounds i8, i8* %212, i64 %215
store i8 45, i8* %216
%217 = load i32, i32* %9
%218 = sub nsw i32 0, %217
store i32 %218, i32* %9
br label %219
219: ; preds = %211, %203
%220 = load i32, i32* %9
%221 = icmp sgt i32 %220, 100
br i1 %221, label %222, label %253
222: ; preds = %219
%223 = load i32, i32* %9
%224 = sdiv i32 %223, 100
%225 = add nsw i32 48, %224
%226 = trunc i32 %225 to i8
%227 = load i8*, i8** %7
%228 = load i32, i32* %8
%229 = add nsw i32 %228, 1
store i32 %229, i32* %8
%230 = sext i32 %228 to i64
%231 = getelementptr inbounds i8, i8* %227, i64 %230
store i8 %226, i8* %231
%232 = load i32, i32* %9
%233 = srem i32 %232, 100
store i32 %233, i32* %9
%234 = load i32, i32* %9
%235 = sdiv i32 %234, 10
%236 = add nsw i32 48, %235
%237 = trunc i32 %236 to i8
%238 = load i8*, i8** %7
%239 = load i32, i32* %8
%240 = add nsw i32 %239, 1
store i32 %240, i32* %8
%241 = sext i32 %239 to i64
%242 = getelementptr inbounds i8, i8* %238, i64 %241
store i8 %237, i8* %242
%243 = load i32, i32* %9
%244 = srem i32 %243, 10
store i32 %244, i32* %9
%245 = load i32, i32* %9
%246 = add nsw i32 48, %245
%247 = trunc i32 %246 to i8
%248 = load i8*, i8** %7
%249 = load i32, i32* %8
%250 = add nsw i32 %249, 1
store i32 %250, i32* %8
%251 = sext i32 %249 to i64
%252 = getelementptr inbounds i8, i8* %248, i64 %251
store i8 %247, i8* %252
br label %286
253: ; preds = %219
%254 = load i32, i32* %9
%255 = icmp sgt i32 %254, 10
br i1 %255, label %256, label %276
256: ; preds = %253
%257 = load i32, i32* %9
%258 = sdiv i32 %257, 10
%259 = add nsw i32 48, %258
%260 = trunc i32 %259 to i8
%261 = load i8*, i8** %7
%262 = load i32, i32* %8
%263 = add nsw i32 %262, 1
store i32 %263, i32* %8
%264 = sext i32 %262 to i64
%265 = getelementptr inbounds i8, i8* %261, i64 %264
store i8 %260, i8* %265
%266 = load i32, i32* %9
%267 = srem i32 %266, 10
store i32 %267, i32* %9
%268 = load i32, i32* %9
%269 = add nsw i32 48, %268
%270 = trunc i32 %269 to i8
%271 = load i8*, i8** %7
%272 = load i32, i32* %8
%273 = add nsw i32 %272, 1
store i32 %273, i32* %8
%274 = sext i32 %272 to i64
%275 = getelementptr inbounds i8, i8* %271, i64 %274
store i8 %270, i8* %275
br label %285
276: ; preds = %253
%277 = load i32, i32* %9
%278 = add nsw i32 48, %277
%279 = trunc i32 %278 to i8
%280 = load i8*, i8** %7
%281 = load i32, i32* %8
%282 = add nsw i32 %281, 1
store i32 %282, i32* %8
%283 = sext i32 %281 to i64
%284 = getelementptr inbounds i8, i8* %280, i64 %283
store i8 %279, i8* %284
br label %285
285: ; preds = %276, %256
br label %286
286: ; preds = %285, %222
br label %287
287: ; preds = %286, %200
%288 = load i8*, i8** %7
%289 = load i32, i32* %8
%290 = sext i32 %289 to i64
%291 = getelementptr inbounds i8, i8* %288, i64 %290
store i8 0, i8* %291
%292 = load i8*, i8** %7
store i8* %292, i8** %4
br label %293
293: ; preds = %287, %18
%294 = load i8*, i8** %4
ret i8* %294
}

LLVM IR (-O2):
@dtoa.str = internal global [32 x i8] zeroinitializer
define i8* @dtoa(double %0, i32 %1, i8* %2) {
%4 = icmp eq i8* %2, null
%5 = select i1 %4, i8* getelementptr inbounds ([32 x i8], [32 x i8]* @dtoa.str, i64 0, i64 0), i8* %2
%6 = fcmp oeq double %0, 0.000000e+00
br i1 %6, label %7, label %8
7: ; preds = %3
store i8 48, i8* %5
br label %168
8: ; preds = %3
%9 = fcmp olt double %0, 0.000000e+00
br i1 %9, label %10, label %12
10: ; preds = %8
store i8 45, i8* %5
%11 = fneg double %0
br label %12
12: ; preds = %10, %8
%13 = phi double [ %11, %10 ], [ %0, %8 ]
%14 = phi i32 [ 1, %10 ], [ 0, %8 ]
%15 = fcmp ult double %13, 1.000000e+00
br i1 %15, label %16, label %18
16: ; preds = %12
%17 = fcmp ult double %13, 1.000000e-01
br i1 %17, label %26, label %34
18: ; preds = %12, %23
%19 = phi double [ %21, %23 ], [ 1.000000e+00, %12 ]
%20 = phi i32 [ %24, %23 ], [ 0, %12 ]
%21 = fmul double %19, 1.000000e+01
%22 = fcmp ogt double %21, %13
br i1 %22, label %34, label %23
23: ; preds = %18
%24 = add nuw nsw i32 %20, 1
%25 = fcmp olt double %21, 0x7FEFFFFFFFFFFFFF
br i1 %25, label %18, label %34
26: ; preds = %16, %26
%27 = phi double [ %29, %26 ], [ 1.000000e-01, %16 ]
%28 = phi i32 [ %30, %26 ], [ -1, %16 ]
%29 = fdiv double %27, 1.000000e+01
%30 = add nsw i32 %28, -1
%31 = fcmp ogt double %29, 0.000000e+00
%32 = fcmp ugt double %29, %13
%33 = and i1 %31, %32
br i1 %33, label %26, label %34
34: ; preds = %23, %18, %26, %16
%35 = phi i32 [ -1, %16 ], [ %30, %26 ], [ %20, %18 ], [ %24, %23 ]
%36 = phi double [ 1.000000e-01, %16 ], [ %29, %26 ], [ %19, %18 ], [ %21, %23 ]
%37 = fdiv double %13, %36
%38 = icmp sgt i32 %1, 0
%39 = fcmp une double %37, 0.000000e+00
%40 = select i1 %38, i1 %39, i1 false
br i1 %40, label %41, label %74
41: ; preds = %34
%42 = fptosi double %37 to i32
%43 = trunc i32 %42 to i8
%44 = add i8 %43, 48
%45 = zext i32 %14 to i64
%46 = getelementptr inbounds i8, i8* %5, i64 %45
store i8 %44, i8* %46
%47 = add nuw nsw i32 %14, 1
%48 = or i32 %14, 2
%49 = zext i32 %47 to i64
%50 = getelementptr inbounds i8, i8* %5, i64 %49
store i8 46, i8* %50
%51 = sitofp i32 %42 to double
%52 = fsub double %37, %51
%53 = fmul double %52, 1.000000e+01
%54 = icmp ugt i32 %1, 1
%55 = fcmp une double %53, 0.000000e+00
%56 = select i1 %54, i1 %55, i1 false
br i1 %56, label %57, label %74
57: ; preds = %41, %57
%58 = phi i32 [ %70, %57 ], [ 1, %41 ]
%59 = phi i32 [ %64, %57 ], [ %48, %41 ]
%60 = phi double [ %69, %57 ], [ %53, %41 ]
%61 = fptosi double %60 to i32
%62 = trunc i32 %61 to i8
%63 = add i8 %62, 48
%64 = add nuw nsw i32 %59, 1
%65 = zext i32 %59 to i64
%66 = getelementptr inbounds i8, i8* %5, i64 %65
store i8 %63, i8* %66
%67 = sitofp i32 %61 to double
%68 = fsub double %60, %67
%69 = fmul double %68, 1.000000e+01
%70 = add nuw nsw i32 %58, 1
%71 = icmp slt i32 %70, %1
%72 = fcmp une double %69, 0.000000e+00
%73 = select i1 %71, i1 %72, i1 false
br i1 %73, label %57, label %74
74: ; preds = %57, %41, %34
%75 = phi double [ %37, %34 ], [ %53, %41 ], [ %69, %57 ]
%76 = phi i32 [ %14, %34 ], [ %48, %41 ], [ %64, %57 ]
%77 = fcmp ult double %75, 5.000000e+00
%78 = sext i32 %76 to i64
br i1 %77, label %98, label %79
79: ; preds = %74, %79
%80 = phi i64 [ %81, %79 ], [ %78, %74 ]
%81 = add i64 %80, -1
%82 = getelementptr inbounds i8, i8* %5, i64 %81
%83 = load i8, i8* %82
switch i8 %83, label %84 [
i8 57, label %79
i8 46, label %87
]
84: ; preds = %79
%85 = getelementptr inbounds i8, i8* %5, i64 %81
%86 = add i8 %83, 1
store i8 %86, i8* %85
br label %104
87: ; preds = %79
%88 = shl i64 %80, 32
%89 = add i64 %88, -8589934592
%90 = ashr exact i64 %89, 32
%91 = getelementptr inbounds i8, i8* %5, i64 %90
%92 = load i8, i8* %91
%93 = icmp eq i8 %92, 57
br i1 %93, label %96, label %94
94: ; preds = %87
%95 = add i8 %92, 1
store i8 %95, i8* %91
br label %104
96: ; preds = %87
store i8 49, i8* %91
%97 = add nsw i32 %35, 1
br label %104
98: ; preds = %74, %98
%99 = phi i64 [ %100, %98 ], [ %78, %74 ]
%100 = add i64 %99, -1
%101 = getelementptr inbounds i8, i8* %5, i64 %100
%102 = load i8, i8* %101
%103 = icmp eq i8 %102, 48
br i1 %103, label %98, label %104
104: ; preds = %98, %84, %96, %94
%105 = phi i64 [ %80, %84 ], [ %81, %94 ], [ %81, %96 ], [ %99, %98 ]
%106 = phi i32 [ %35, %84 ], [ %35, %94 ], [ %97, %96 ], [ %35, %98 ]
%107 = trunc i64 %105 to i32
%108 = add nsw i32 %107, -1
%109 = sext i32 %108 to i64
%110 = getelementptr inbounds i8, i8* %5, i64 %109
%111 = load i8, i8* %110
%112 = icmp eq i8 %111, 46
%113 = select i1 %112, i32 %108, i32 %107
%114 = icmp eq i32 %106, 0
br i1 %114, label %165, label %115
115: ; preds = %104
%116 = add nsw i32 %113, 1
%117 = sext i32 %113 to i64
%118 = getelementptr inbounds i8, i8* %5, i64 %117
store i8 69, i8* %118
%119 = icmp slt i32 %106, 0
br i1 %119, label %120, label %125
120: ; preds = %115
%121 = add nsw i32 %113, 2
%122 = sext i32 %116 to i64
%123 = getelementptr inbounds i8, i8* %5, i64 %122
store i8 45, i8* %123
%124 = sub nsw i32 0, %106
br label %125
125: ; preds = %120, %115
%126 = phi i32 [ %121, %120 ], [ %116, %115 ]
%127 = phi i32 [ %124, %120 ], [ %106, %115 ]
%128 = icmp ugt i32 %127, 100
br i1 %128, label %129, label %145
129: ; preds = %125
%130 = udiv i32 %127, 100
%131 = trunc i32 %130 to i8
%132 = add i8 %131, 48
%133 = add nsw i32 %126, 1
%134 = sext i32 %126 to i64
%135 = getelementptr inbounds i8, i8* %5, i64 %134
store i8 %132, i8* %135
%136 = urem i32 %127, 100
%137 = trunc i32 %136 to i8
%138 = udiv i8 %137, 10
%139 = or i8 %138, 48
%140 = add nsw i32 %126, 2
%141 = sext i32 %133 to i64
%142 = getelementptr inbounds i8, i8* %5, i64 %141
store i8 %139, i8* %142
%143 = urem i8 %137, 10
%144 = or i8 %143, 48
br label %158
145: ; preds = %125
%146 = icmp ugt i32 %127, 10
%147 = trunc i32 %127 to i8
br i1 %146, label %148, label %156
148: ; preds = %145
%149 = udiv i8 %147, 10
%150 = add nuw nsw i8 %149, 48
%151 = add nsw i32 %126, 1
%152 = sext i32 %126 to i64
%153 = getelementptr inbounds i8, i8* %5, i64 %152
store i8 %150, i8* %153
%154 = urem i8 %147, 10
%155 = or i8 %154, 48
br label %158
156: ; preds = %145
%157 = add nuw nsw i8 %147, 48
br label %158
158: ; preds = %148, %156, %129
%159 = phi i32 [ 3, %129 ], [ 1, %156 ], [ 2, %148 ]
%160 = phi i32 [ %140, %129 ], [ %126, %156 ], [ %151, %148 ]
%161 = phi i8 [ %144, %129 ], [ %157, %156 ], [ %155, %148 ]
%162 = add nsw i32 %126, %159
%163 = sext i32 %160 to i64
%164 = getelementptr inbounds i8, i8* %5, i64 %163
store i8 %161, i8* %164
br label %165
165: ; preds = %158, %104
%166 = phi i32 [ %113, %104 ], [ %162, %158 ]
%167 = sext i32 %166 to i64
br label %168
168: ; preds = %165, %7
%169 = phi i64 [ %167, %165 ], [ 1, %7 ]
%170 = getelementptr inbounds i8, i8* %5, i64 %169
store i8 0, i8* %170
ret i8* %5
}