char *_pfloat(r, s, n, b)
double r;
register char *s;
{
  register char *s1;
  int sign, dp;
  register int i;
  if (b == 0)
    n = 6;
  s1 = fcvt(r, n, &dp, &sign);
  if (sign)
    *s++ = '-';
  if (dp <= 0)
    *s++ = '0';
  for (i = dp; i > 0; i--)
    if (*s1)
      *s++ = *s1++;
    else
      *s++ = '0';
  if ((i = n) > 0)
    *s++ = '.';
  while (++dp <= 0) {
    if (--i < 0)
      break;
    *s++ = '0';
  }
  while (--i >= 0)
    if (*s1)
      *s++ = *s1++;
    else
      *s++ = '0';
  return (s);
}


x86 assembly (clang, -O0):
<_pfloat>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
movsd  %xmm0,-0x8(%rbp)
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %edx,-0x18(%rbp)
cmpl   $0x0,-0x18(%rbp)
jne    1138 <_pfloat+0x28>
movl   $0x6,-0x14(%rbp)
movsd  -0x8(%rbp),%xmm0
mov    -0x14(%rbp),%edi
lea    -0x28(%rbp),%rsi
lea    -0x24(%rbp),%rdx
mov    $0x1,%al
call   1030 <fcvt@plt>
cltq
mov    %rax,-0x20(%rbp)
cmpl   $0x0,-0x24(%rbp)
je     1171 <_pfloat+0x61>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movb   $0x2d,(%rax)
cmpl   $0x0,-0x28(%rbp)
jg     118d <_pfloat+0x7d>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movb   $0x30,(%rax)
mov    -0x28(%rbp),%eax
mov    %eax,-0x2c(%rbp)
cmpl   $0x0,-0x2c(%rbp)
jle    11f6 <_pfloat+0xe6>
mov    -0x20(%rbp),%rax
cmpb   $0x0,(%rax)
je     11d1 <_pfloat+0xc1>
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x20(%rbp)
mov    (%rax),%cl
mov    -0x10(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x10(%rbp)
mov    %cl,(%rax)
jmp    11e3 <_pfloat+0xd3>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movb   $0x30,(%rax)
jmp    11e8 <_pfloat+0xd8>
mov    -0x2c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x2c(%rbp)
jmp    1193 <_pfloat+0x83>
mov    -0x14(%rbp),%eax
mov    %eax,-0x2c(%rbp)
cmp    $0x0,%eax
jle    1217 <_pfloat+0x107>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movb   $0x2e,(%rax)
jmp    121c <_pfloat+0x10c>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
cmp    $0x0,%eax
jg     125c <_pfloat+0x14c>
mov    -0x2c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x2c(%rbp)
cmp    $0x0,%eax
jge    1245 <_pfloat+0x135>
jmp    125c <_pfloat+0x14c>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movb   $0x30,(%rax)
jmp    121c <_pfloat+0x10c>
jmp    1261 <_pfloat+0x151>
mov    -0x2c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x2c(%rbp)
cmp    $0x0,%eax
jl     12be <_pfloat+0x1ae>
mov    -0x20(%rbp),%rax
cmpb   $0x0,(%rax)
je     12a7 <_pfloat+0x197>
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x20(%rbp)
mov    (%rax),%cl
mov    -0x10(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x10(%rbp)
mov    %cl,(%rax)
jmp    12b9 <_pfloat+0x1a9>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movb   $0x30,(%rax)
jmp    1261 <_pfloat+0x151>
mov    -0x10(%rbp),%rax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<_pfloat>:
push   %r14
push   %rbx
push   %rax
mov    %rdi,%rbx
test   %edx,%edx
mov    $0x6,%r14d
cmovne %esi,%r14d
mov    %rsp,%rsi
lea    0x4(%rsp),%rdx
mov    %r14d,%edi
mov    $0x1,%al
call   1030 <fcvt@plt>
cmpl   $0x0,0x4(%rsp)
je     1143 <_pfloat+0x33>
movb   $0x2d,(%rbx)
add    $0x1,%rbx
cltq
mov    (%rsp),%edx
test   %edx,%edx
jle    115a <_pfloat+0x4a>
test   $0x1,%dl
jne    1163 <_pfloat+0x53>
mov    %edx,%ecx
cmp    $0x1,%edx
jne    1188 <_pfloat+0x78>
jmp    11d7 <_pfloat+0xc7>
movb   $0x30,(%rbx)
add    $0x1,%rbx
jmp    11d7 <_pfloat+0xc7>
movzbl (%rax),%ecx
xor    %esi,%esi
test   %cl,%cl
setne  %sil
mov    $0x30,%edi
cmovne %ecx,%edi
add    %rsi,%rax
mov    %dil,(%rbx)
add    $0x1,%rbx
lea    -0x1(%rdx),%ecx
cmp    $0x1,%edx
je     11d7 <_pfloat+0xc7>
add    $0xffffffff,%ecx
mov    $0x30,%r8d
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movzbl (%rax),%esi
xor    %edi,%edi
test   %sil,%sil
setne  %dil
cmove  %r8d,%esi
lea    (%rax,%rdi,1),%rdx
mov    %sil,(%rbx)
movzbl (%rax,%rdi,1),%esi
xor    %eax,%eax
test   %sil,%sil
setne  %al
cmove  %r8d,%esi
add    %rdx,%rax
mov    %sil,0x1(%rbx)
add    $0x2,%rbx
add    $0xfffffffe,%ecx
jb     11a0 <_pfloat+0x90>
test   %r14d,%r14d
jle    11e3 <_pfloat+0xd3>
movb   $0x2e,(%rbx)
add    $0x1,%rbx
mov    (%rsp),%ecx
lea    0x1(%rcx),%edx
mov    %edx,(%rsp)
test   %ecx,%ecx
jns    1221 <_pfloat+0x111>
xor    %ecx,%ecx
test   %r14d,%r14d
cmovs  %r14d,%ecx
add    $0xffffffff,%ecx
nopl   0x0(%rax)
test   %r14d,%r14d
jle    12a9 <_pfloat+0x199>
movb   $0x30,(%rbx)
add    $0x1,%rbx
mov    (%rsp),%edx
lea    0x1(%rdx),%esi
mov    %esi,(%rsp)
add    $0xffffffff,%r14d
test   %edx,%edx
js     1200 <_pfloat+0xf0>
test   %r14d,%r14d
jle    12b5 <_pfloat+0x1a5>
test   $0x1,%r14b
jne    123b <_pfloat+0x12b>
mov    %r14d,%ecx
cmp    $0x1,%r14d
jne    1262 <_pfloat+0x152>
jmp    12b5 <_pfloat+0x1a5>
lea    -0x1(%r14),%ecx
movzbl (%rax),%edx
xor    %esi,%esi
test   %dl,%dl
mov    $0x30,%edi
cmovne %edx,%edi
setne  %sil
add    %rsi,%rax
mov    %dil,(%rbx)
add    $0x1,%rbx
cmp    $0x1,%r14d
je     12b5 <_pfloat+0x1a5>
add    $0xffffffff,%ecx
mov    $0x30,%r8d
nopl   0x0(%rax,%rax,1)
movzbl (%rax),%esi
xor    %edi,%edi
test   %sil,%sil
setne  %dil
cmove  %r8d,%esi
lea    (%rax,%rdi,1),%rdx
mov    %sil,(%rbx)
movzbl (%rax,%rdi,1),%esi
xor    %eax,%eax
test   %sil,%sil
setne  %al
cmove  %r8d,%esi
add    %rdx,%rax
mov    %sil,0x1(%rbx)
add    $0x2,%rbx
add    $0xfffffffe,%ecx
jb     1270 <_pfloat+0x160>
jmp    12b5 <_pfloat+0x1a5>
mov    %ecx,%r14d
test   %r14d,%r14d
jg     122a <_pfloat+0x11a>
mov    %rbx,%rax
add    $0x8,%rsp
pop    %rbx
pop    %r14
ret

LLVM IR (-O0):
define i8* @_pfloat(double %0, i8* %1, i32 %2, i32 %3) {
%5 = alloca double
%6 = alloca i8*
%7 = alloca i32
%8 = alloca i32
%9 = alloca i8*
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32
store double %0, double* %5
store i8* %1, i8** %6
store i32 %2, i32* %7
store i32 %3, i32* %8
%13 = load i32, i32* %8
%14 = icmp eq i32 %13, 0
br i1 %14, label %15, label %16
15: ; preds = %4
store i32 6, i32* %7
br label %16
16: ; preds = %15, %4
%17 = load double, double* %5
%18 = load i32, i32* %7
%19 = call i32 (double, i32, i32*, i32*, ...) bitcast (i32 (...)* @fcvt to i32 (double, i32, i32*, i32*, ...)*)(double %17, i32 %18, i32* %11, i32* %10)
%20 = sext i32 %19 to i64
%21 = inttoptr i64 %20 to i8*
store i8* %21, i8** %9
%22 = load i32, i32* %10
%23 = icmp ne i32 %22, 0
br i1 %23, label %24, label %27
24: ; preds = %16
%25 = load i8*, i8** %6
%26 = getelementptr inbounds i8, i8* %25, i32 1
store i8* %26, i8** %6
store i8 45, i8* %25
br label %27
27: ; preds = %24, %16
%28 = load i32, i32* %11
%29 = icmp sle i32 %28, 0
br i1 %29, label %30, label %33
30: ; preds = %27
%31 = load i8*, i8** %6
%32 = getelementptr inbounds i8, i8* %31, i32 1
store i8* %32, i8** %6
store i8 48, i8* %31
br label %33
33: ; preds = %30, %27
%34 = load i32, i32* %11
store i32 %34, i32* %12
br label %35
35: ; preds = %52, %33
%36 = load i32, i32* %12
%37 = icmp sgt i32 %36, 0
br i1 %37, label %38, label %55
38: ; preds = %35
%39 = load i8*, i8** %9
%40 = load i8, i8* %39
%41 = icmp ne i8 %40, 0
br i1 %41, label %42, label %48
42: ; preds = %38
%43 = load i8*, i8** %9
%44 = getelementptr inbounds i8, i8* %43, i32 1
store i8* %44, i8** %9
%45 = load i8, i8* %43
%46 = load i8*, i8** %6
%47 = getelementptr inbounds i8, i8* %46, i32 1
store i8* %47, i8** %6
store i8 %45, i8* %46
br label %51
48: ; preds = %38
%49 = load i8*, i8** %6
%50 = getelementptr inbounds i8, i8* %49, i32 1
store i8* %50, i8** %6
store i8 48, i8* %49
br label %51
51: ; preds = %48, %42
br label %52
52: ; preds = %51
%53 = load i32, i32* %12
%54 = add nsw i32 %53, -1
store i32 %54, i32* %12
br label %35
55: ; preds = %35
%56 = load i32, i32* %7
store i32 %56, i32* %12
%57 = icmp sgt i32 %56, 0
br i1 %57, label %58, label %61
58: ; preds = %55
%59 = load i8*, i8** %6
%60 = getelementptr inbounds i8, i8* %59, i32 1
store i8* %60, i8** %6
store i8 46, i8* %59
br label %61
61: ; preds = %58, %55
br label %62
62: ; preds = %71, %61
%63 = load i32, i32* %11
%64 = add nsw i32 %63, 1
store i32 %64, i32* %11
%65 = icmp sle i32 %64, 0
br i1 %65, label %66, label %74
66: ; preds = %62
%67 = load i32, i32* %12
%68 = add nsw i32 %67, -1
store i32 %68, i32* %12
%69 = icmp slt i32 %68, 0
br i1 %69, label %70, label %71
70: ; preds = %66
br label %74
71: ; preds = %66
%72 = load i8*, i8** %6
%73 = getelementptr inbounds i8, i8* %72, i32 1
store i8* %73, i8** %6
store i8 48, i8* %72
br label %62
74: ; preds = %70, %62
br label %75
75: ; preds = %92, %74
%76 = load i32, i32* %12
%77 = add nsw i32 %76, -1
store i32 %77, i32* %12
%78 = icmp sge i32 %77, 0
br i1 %78, label %79, label %93
79: ; preds = %75
%80 = load i8*, i8** %9
%81 = load i8, i8* %80
%82 = icmp ne i8 %81, 0
br i1 %82, label %83, label %89
83: ; preds = %79
%84 = load i8*, i8** %9
%85 = getelementptr inbounds i8, i8* %84, i32 1
store i8* %85, i8** %9
%86 = load i8, i8* %84
%87 = load i8*, i8** %6
%88 = getelementptr inbounds i8, i8* %87, i32 1
store i8* %88, i8** %6
store i8 %86, i8* %87
br label %92
89: ; preds = %79
%90 = load i8*, i8** %6
%91 = getelementptr inbounds i8, i8* %90, i32 1
store i8* %91, i8** %6
store i8 48, i8* %90
br label %92
92: ; preds = %89, %83
br label %75
93: ; preds = %75
%94 = load i8*, i8** %6
ret i8* %94
}

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