_str(f, buffer) double f;
char *buffer;
{
  register char *c = buffer;
  int eformat = 0;
  if (f >= 0) {
    if (f > 1.0e8) {
      eformat = 1;
      sprintf(buffer, " %e", f);
    } else
      sprintf(buffer, " %f", f);
    c++;
  } else {
    if (-f > 1.0e8) {
      eformat = 1;
      sprintf(buffer, "-%e", -f);
    } else
      sprintf(buffer, "-%f", -f);
  }
  if (!eformat) {
    for (; *c && *c != ' '; c++)
      ;
    c--;
    while (c > buffer && *c == '0') {
      *c = 0;
      c--;
    }
    if (*c == '.')
      *c = 0;
  }
}


x86 assembly (clang, -O0):
<_str>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
movsd  %xmm0,-0x10(%rbp)
mov    %rdi,-0x18(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
movsd  -0x10(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     11a4 <_str+0x94>
movsd  -0x10(%rbp),%xmm0
movsd  0xeb1(%rip),%xmm1
ucomisd %xmm1,%xmm0
jbe    117c <_str+0x6c>
movl   $0x1,-0x24(%rbp)
mov    -0x18(%rbp),%rdi
movsd  -0x10(%rbp),%xmm0
lea    0xe98(%rip),%rsi
mov    $0x1,%al
call   1030 <sprintf@plt>
jmp    1193 <_str+0x83>
mov    -0x18(%rbp),%rdi
movsd  -0x10(%rbp),%xmm0
lea    0xe80(%rip),%rsi
mov    $0x1,%al
call   1030 <sprintf@plt>
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
jmp    123f <_str+0x12f>
movsd  -0x10(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  0xe38(%rip),%xmm1
ucomisd %xmm1,%xmm0
jbe    120c <_str+0xfc>
movl   $0x1,-0x24(%rbp)
mov    -0x18(%rbp),%rdi
movsd  -0x10(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
lea    0xe10(%rip),%rsi
mov    $0x1,%al
call   1030 <sprintf@plt>
jmp    123a <_str+0x12a>
mov    -0x18(%rbp),%rdi
movsd  -0x10(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
lea    0xde1(%rip),%rsi
mov    $0x1,%al
call   1030 <sprintf@plt>
jmp    123f <_str+0x12f>
cmpl   $0x0,-0x24(%rbp)
jne    130c <_str+0x1fc>
jmp    124e <_str+0x13e>
mov    -0x20(%rbp),%rax
movsbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x25(%rbp)
je     1273 <_str+0x163>
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x20,%eax
setne  %al
mov    %al,-0x25(%rbp)
mov    -0x25(%rbp),%al
test   $0x1,%al
jne    1283 <_str+0x173>
jmp    1299 <_str+0x189>
jmp    1288 <_str+0x178>
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
jmp    124e <_str+0x13e>
mov    -0x20(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rcx
xor    %eax,%eax
cmp    -0x18(%rbp),%rcx
mov    %al,-0x26(%rbp)
jbe    12c8 <_str+0x1b8>
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x30,%eax
sete   %al
mov    %al,-0x26(%rbp)
mov    -0x26(%rbp),%al
test   $0x1,%al
jne    12d8 <_str+0x1c8>
jmp    12f0 <_str+0x1e0>
mov    -0x20(%rbp),%rax
movb   $0x0,(%rax)
mov    -0x20(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x20(%rbp)
jmp    12a5 <_str+0x195>
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2e,%eax
jne    1307 <_str+0x1f7>
mov    -0x20(%rbp),%rax
movb   $0x0,(%rax)
jmp    130c <_str+0x1fc>
mov    -0x4(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<_str>:
push   %rbx
mov    %rdi,%rbx
xorpd  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jae    1148 <_str+0x38>
movapd 0xeea(%rip),%xmm1
xorpd  %xmm0,%xmm1
movsd  0xed6(%rip),%xmm2
ucomisd %xmm0,%xmm2
jbe    1165 <_str+0x55>
lea    0xee9(%rip),%rsi
mov    %rbx,%rdi
movapd %xmm1,%xmm0
jmp    115c <_str+0x4c>
ucomisd 0xeb0(%rip),%xmm0
jbe    1180 <_str+0x70>
lea    0xec7(%rip),%rsi
mov    %rbx,%rdi
mov    $0x1,%al
call   1030 <sprintf@plt>
pop    %rbx
ret
lea    0xec0(%rip),%rsi
mov    %rbx,%rdi
movapd %xmm1,%xmm0
mov    $0x1,%al
call   1030 <sprintf@plt>
lea    -0x1(%rbx),%rax
jmp    11a4 <_str+0x94>
lea    0xe9d(%rip),%rsi
mov    %rbx,%rdi
mov    $0x1,%al
call   1030 <sprintf@plt>
lea    0x1(%rbx),%rax
add    $0xffffffffffffffff,%rax
jmp    11a4 <_str+0x94>
nopl   0x0(%rax,%rax,1)
add    $0x1,%rax
testb  $0xdf,0x1(%rax)
jne    11a0 <_str+0x90>
jmp    11bf <_str+0xaf>
nopl   0x0(%rax)
movzbl (%rax),%ecx
cmp    $0x30,%cl
jne    11c6 <_str+0xb6>
movb   $0x0,(%rax)
add    $0xffffffffffffffff,%rax
cmp    %rbx,%rax
ja     11b0 <_str+0xa0>
mov    (%rax),%cl
cmp    $0x2e,%cl
jne    11ce <_str+0xbe>
movb   $0x0,(%rax)
pop    %rbx
ret

LLVM IR (-O0):
@.str = [4 x i8] c" %e\00"
@.str.1 = [4 x i8] c" %f\00"
@.str.2 = [4 x i8] c"-%e\00"
@.str.3 = [4 x i8] c"-%f\00"
define i32 @_str(double %0, i8* %1) {
%3 = alloca i32
%4 = alloca double
%5 = alloca i8*
%6 = alloca i8*
%7 = alloca i32
store double %0, double* %4
store i8* %1, i8** %5
%8 = load i8*, i8** %5
store i8* %8, i8** %6
store i32 0, i32* %7
%9 = load double, double* %4
%10 = fcmp oge double %9, 0.000000e+00
br i1 %10, label %11, label %25
11: ; preds = %2
%12 = load double, double* %4
%13 = fcmp ogt double %12, 1.000000e+08
br i1 %13, label %14, label %18
14: ; preds = %11
store i32 1, i32* %7
%15 = load i8*, i8** %5
%16 = load double, double* %4
%17 = call i32 (i8*, i8*, ...) @sprintf(i8* %15, i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), double %16)
br label %22
18: ; preds = %11
%19 = load i8*, i8** %5
%20 = load double, double* %4
%21 = call i32 (i8*, i8*, ...) @sprintf(i8* %19, i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), double %20)
br label %22
22: ; preds = %18, %14
%23 = load i8*, i8** %6
%24 = getelementptr inbounds i8, i8* %23, i32 1
store i8* %24, i8** %6
br label %40
25: ; preds = %2
%26 = load double, double* %4
%27 = fneg double %26
%28 = fcmp ogt double %27, 1.000000e+08
br i1 %28, label %29, label %34
29: ; preds = %25
store i32 1, i32* %7
%30 = load i8*, i8** %5
%31 = load double, double* %4
%32 = fneg double %31
%33 = call i32 (i8*, i8*, ...) @sprintf(i8* %30, i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.2, i64 0, i64 0), double %32)
br label %39
34: ; preds = %25
%35 = load i8*, i8** %5
%36 = load double, double* %4
%37 = fneg double %36
%38 = call i32 (i8*, i8*, ...) @sprintf(i8* %35, i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.3, i64 0, i64 0), double %37)
br label %39
39: ; preds = %34, %29
br label %40
40: ; preds = %39, %22
%41 = load i32, i32* %7
%42 = icmp ne i32 %41, 0
br i1 %42, label %86, label %43
43: ; preds = %40
br label %44
44: ; preds = %57, %43
%45 = load i8*, i8** %6
%46 = load i8, i8* %45
%47 = sext i8 %46 to i32
%48 = icmp ne i32 %47, 0
br i1 %48, label %49, label %54
49: ; preds = %44
%50 = load i8*, i8** %6
%51 = load i8, i8* %50
%52 = sext i8 %51 to i32
%53 = icmp ne i32 %52, 32
br label %54
54: ; preds = %49, %44
%55 = phi i1 [ false, %44 ], [ %53, %49 ]
br i1 %55, label %56, label %60
56: ; preds = %54
br label %57
57: ; preds = %56
%58 = load i8*, i8** %6
%59 = getelementptr inbounds i8, i8* %58, i32 1
store i8* %59, i8** %6
br label %44
60: ; preds = %54
%61 = load i8*, i8** %6
%62 = getelementptr inbounds i8, i8* %61, i32 -1
store i8* %62, i8** %6
br label %63
63: ; preds = %74, %60
%64 = load i8*, i8** %6
%65 = load i8*, i8** %5
%66 = icmp ugt i8* %64, %65
br i1 %66, label %67, label %72
67: ; preds = %63
%68 = load i8*, i8** %6
%69 = load i8, i8* %68
%70 = sext i8 %69 to i32
%71 = icmp eq i32 %70, 48
br label %72
72: ; preds = %67, %63
%73 = phi i1 [ false, %63 ], [ %71, %67 ]
br i1 %73, label %74, label %78
74: ; preds = %72
%75 = load i8*, i8** %6
store i8 0, i8* %75
%76 = load i8*, i8** %6
%77 = getelementptr inbounds i8, i8* %76, i32 -1
store i8* %77, i8** %6
br label %63
78: ; preds = %72
%79 = load i8*, i8** %6
%80 = load i8, i8* %79
%81 = sext i8 %80 to i32
%82 = icmp eq i32 %81, 46
br i1 %82, label %83, label %85
83: ; preds = %78
%84 = load i8*, i8** %6
store i8 0, i8* %84
br label %85
85: ; preds = %83, %78
br label %86
86: ; preds = %85, %40
%87 = load i32, i32* %3
ret i32 %87
}

LLVM IR (-O2):
@.str = [4 x i8] c" %e\00"
@.str.1 = [4 x i8] c" %f\00"
@.str.2 = [4 x i8] c"-%e\00"
@.str.3 = [4 x i8] c"-%f\00"
define i32 @_str(double %0, i8* %1) {
%3 = fcmp ult double %0, 0.000000e+00
br i1 %3, label %9, label %4
4: ; preds = %2
%5 = fcmp ogt double %0, 1.000000e+08
br i1 %5, label %18, label %6
6: ; preds = %4
%7 = tail call i32 (i8*, i8*, ...) @sprintf(i8* dereferenceable(1) %1, i8* dereferenceable(1) getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), double %0)
%8 = getelementptr inbounds i8, i8* %1, i64 1
br label %16
9: ; preds = %2
%10 = fneg double %0
%11 = fcmp olt double %0, -1.000000e+08
br i1 %11, label %12, label %14
12: ; preds = %9
%13 = tail call i32 (i8*, i8*, ...) @sprintf(i8* dereferenceable(1) %1, i8* dereferenceable(1) getelementptr inbounds ([4 x i8], [4 x i8]* @.str.2, i64 0, i64 0), double %10)
br label %43
14: ; preds = %9
%15 = tail call i32 (i8*, i8*, ...) @sprintf(i8* dereferenceable(1) %1, i8* dereferenceable(1) getelementptr inbounds ([4 x i8], [4 x i8]* @.str.3, i64 0, i64 0), double %10)
br label %16
16: ; preds = %6, %14
%17 = phi i8* [ %8, %6 ], [ %1, %14 ]
br label %20
18: ; preds = %4
%19 = tail call i32 (i8*, i8*, ...) @sprintf(i8* dereferenceable(1) %1, i8* dereferenceable(1) getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), double %0)
br label %43
20: ; preds = %16, %23
%21 = phi i8* [ %24, %23 ], [ %17, %16 ]
%22 = load i8, i8* %21
switch i8 %22, label %23 [
i8 0, label %25
i8 32, label %25
]
23: ; preds = %20
%24 = getelementptr inbounds i8, i8* %21, i64 1
br label %20
25: ; preds = %20, %20
%26 = getelementptr inbounds i8, i8* %21, i64 -1
%27 = icmp ugt i8* %26, %1
br i1 %27, label %28, label %35
28: ; preds = %25, %32
%29 = phi i8* [ %33, %32 ], [ %26, %25 ]
%30 = load i8, i8* %29
%31 = icmp eq i8 %30, 48
br i1 %31, label %32, label %38
32: ; preds = %28
store i8 0, i8* %29
%33 = getelementptr inbounds i8, i8* %29, i64 -1
%34 = icmp ugt i8* %33, %1
br i1 %34, label %28, label %35
35: ; preds = %32, %25
%36 = phi i8* [ %26, %25 ], [ %33, %32 ]
%37 = load i8, i8* %36
br label %38
38: ; preds = %28, %35
%39 = phi i8* [ %36, %35 ], [ %29, %28 ]
%40 = phi i8 [ %37, %35 ], [ %30, %28 ]
%41 = icmp eq i8 %40, 46
br i1 %41, label %42, label %43
42: ; preds = %38
store i8 0, i8* %39
br label %43
43: ; preds = %18, %12, %38, %42
ret i32 undef
}