double convert_str_double(s)
char *s;
{
  char v[100];
  register char *t;
  int n;
  if ((n = strlen(s)) > 90) {
    error("too many digits in floating constant");
    n = 90;
  }
  for (t = v; n-- > 0; s++)
    *t++ = (*s == 'd' ? 'e' : *s);
  *t = '\0';
  return (atof(v));
}


x86 assembly (clang, -O0):
<convert_str_double>:
push   %rbp
mov    %rsp,%rbp
sub    $0x80,%rsp
mov    %rdi,-0x8(%rbp)
mov    -0x8(%rbp),%rdi
call   1040 <strlen@plt>
mov    %eax,-0x7c(%rbp)
cmp    $0x5a,%eax
jle    1169 <convert_str_double+0x39>
lea    0xea5(%rip),%rdi
mov    $0x0,%al
call   1050 <error@plt>
movl   $0x5a,-0x7c(%rbp)
lea    -0x70(%rbp),%rax
mov    %rax,-0x78(%rbp)
mov    -0x7c(%rbp),%eax
mov    %eax,%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0x7c(%rbp)
cmp    $0x0,%eax
jle    11d3 <convert_str_double+0xa3>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x64,%eax
jne    11a2 <convert_str_double+0x72>
mov    $0x65,%eax
mov    %eax,-0x80(%rbp)
jmp    11ac <convert_str_double+0x7c>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
mov    %eax,-0x80(%rbp)
mov    -0x80(%rbp),%eax
mov    %al,%cl
mov    -0x78(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x78(%rbp)
mov    %cl,(%rax)
mov    -0x8(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x8(%rbp)
jmp    1171 <convert_str_double+0x41>
mov    -0x78(%rbp),%rax
movb   $0x0,(%rax)
lea    -0x70(%rbp),%rdi
mov    $0x0,%al
call   1030 <atof@plt>
cvtsi2sd %eax,%xmm0
add    $0x80,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<convert_str_double>:
push   %rbx
sub    $0x70,%rsp
mov    %rdi,%rbx
call   1040 <strlen@plt>
cmp    $0x5b,%eax
jl     1157 <convert_str_double+0x27>
lea    0xed7(%rip),%rdi
xor    %eax,%eax
call   1050 <error@plt>
mov    $0x5a,%eax
jmp    115f <convert_str_double+0x2f>
test   %eax,%eax
jle    12df <convert_str_double+0x1af>
add    $0xffffffff,%eax
cmp    $0x1f,%eax
jae    116f <convert_str_double+0x3f>
mov    %rsp,%rdx
jmp    12af <convert_str_double+0x17f>
lea    0x1(%rax),%r8
mov    %r8,%rcx
and    $0xffffffffffffffe0,%rcx
lea    -0x20(%rcx),%rsi
mov    %rsi,%rdx
shr    $0x5,%rdx
add    $0x1,%rdx
test   %rsi,%rsi
je     12fc <convert_str_double+0x1cc>
mov    %rdx,%rdi
and    $0xfffffffffffffffe,%rdi
xor    %esi,%esi
movdqa 0xe5d(%rip),%xmm0
movdqa 0xe65(%rip),%xmm1
nopl   0x0(%rax,%rax,1)
movdqu (%rbx,%rsi,1),%xmm2
movdqu 0x10(%rbx,%rsi,1),%xmm3
movdqa %xmm2,%xmm4
pcmpeqb %xmm0,%xmm4
movdqa %xmm3,%xmm5
pcmpeqb %xmm0,%xmm5
movdqa %xmm4,%xmm6
pandn  %xmm2,%xmm6
pand   %xmm1,%xmm4
por    %xmm6,%xmm4
movdqa %xmm5,%xmm2
pandn  %xmm3,%xmm2
pand   %xmm1,%xmm5
por    %xmm2,%xmm5
movdqa %xmm4,(%rsp,%rsi,1)
movdqa %xmm5,0x10(%rsp,%rsi,1)
movdqu 0x20(%rbx,%rsi,1),%xmm2
movdqu 0x30(%rbx,%rsi,1),%xmm3
movdqa %xmm2,%xmm4
pcmpeqb %xmm0,%xmm4
movdqa %xmm3,%xmm5
pcmpeqb %xmm0,%xmm5
movdqa %xmm4,%xmm6
pandn  %xmm2,%xmm6
pand   %xmm1,%xmm4
por    %xmm6,%xmm4
movdqa %xmm5,%xmm2
pandn  %xmm3,%xmm2
pand   %xmm1,%xmm5
por    %xmm2,%xmm5
movdqa %xmm4,0x20(%rsp,%rsi,1)
movdqa %xmm5,0x30(%rsp,%rsi,1)
add    $0x40,%rsi
add    $0xfffffffffffffffe,%rdi
jne    11b0 <convert_str_double+0x80>
test   $0x1,%dl
je     12a3 <convert_str_double+0x173>
movdqu (%rbx,%rsi,1),%xmm0
movdqu 0x10(%rbx,%rsi,1),%xmm1
movdqa 0xd9c(%rip),%xmm2
movdqa %xmm0,%xmm3
pcmpeqb %xmm2,%xmm3
pcmpeqb %xmm1,%xmm2
movdqa %xmm3,%xmm4
pandn  %xmm0,%xmm4
movdqa 0xd90(%rip),%xmm0
pand   %xmm0,%xmm3
por    %xmm4,%xmm3
movdqa %xmm2,%xmm4
pandn  %xmm1,%xmm4
pand   %xmm0,%xmm2
por    %xmm4,%xmm2
movdqa %xmm3,(%rsp,%rsi,1)
movdqa %xmm2,0x10(%rsp,%rsi,1)
lea    (%rsp,%rcx,1),%rdx
cmp    %rcx,%r8
je     12e2 <convert_str_double+0x1b2>
add    %rcx,%rbx
add    %rsp,%rax
mov    $0x65,%ecx
mov    %rdx,%rsi
nopw   0x0(%rax,%rax,1)
movzbl (%rbx),%edi
cmp    $0x64,%dil
cmove  %ecx,%edi
lea    0x1(%rsi),%rdx
mov    %dil,(%rsi)
add    $0x1,%rbx
cmp    %rax,%rsi
mov    %rdx,%rsi
jne    12c0 <convert_str_double+0x190>
jmp    12e2 <convert_str_double+0x1b2>
mov    %rsp,%rdx
movb   $0x0,(%rdx)
mov    %rsp,%rdi
xor    %eax,%eax
call   1030 <atof@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
add    $0x70,%rsp
pop    %rbx
ret
xor    %esi,%esi
test   $0x1,%dl
jne    1251 <convert_str_double+0x121>
jmp    12a3 <convert_str_double+0x173>

LLVM IR (-O0):
@.str = [37 x i8] c"too many digits in floating constant\00"
define double @convert_str_double(i8* %0) {
%2 = alloca i8*
%3 = alloca [100 x i8]
%4 = alloca i8*
%5 = alloca i32
store i8* %0, i8** %2
%6 = load i8*, i8** %2
%7 = call i64 @strlen(i8* %6)
%8 = trunc i64 %7 to i32
store i32 %8, i32* %5
%9 = icmp sgt i32 %8, 90
br i1 %9, label %10, label %12
10: ; preds = %1
%11 = call i32 (i8*, ...) bitcast (i32 (...)* @error to i32 (i8*, ...)*)(i8* getelementptr inbounds ([37 x i8], [37 x i8]* @.str, i64 0, i64 0))
store i32 90, i32* %5
br label %12
12: ; preds = %10, %1
%13 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 0
store i8* %13, i8** %4
br label %14
14: ; preds = %33, %12
%15 = load i32, i32* %5
%16 = add nsw i32 %15, -1
store i32 %16, i32* %5
%17 = icmp sgt i32 %15, 0
br i1 %17, label %18, label %36
18: ; preds = %14
%19 = load i8*, i8** %2
%20 = load i8, i8* %19
%21 = sext i8 %20 to i32
%22 = icmp eq i32 %21, 100
br i1 %22, label %23, label %24
23: ; preds = %18
br label %28
24: ; preds = %18
%25 = load i8*, i8** %2
%26 = load i8, i8* %25
%27 = sext i8 %26 to i32
br label %28
28: ; preds = %24, %23
%29 = phi i32 [ 101, %23 ], [ %27, %24 ]
%30 = trunc i32 %29 to i8
%31 = load i8*, i8** %4
%32 = getelementptr inbounds i8, i8* %31, i32 1
store i8* %32, i8** %4
store i8 %30, i8* %31
br label %33
33: ; preds = %28
%34 = load i8*, i8** %2
%35 = getelementptr inbounds i8, i8* %34, i32 1
store i8* %35, i8** %2
br label %14
36: ; preds = %14
%37 = load i8*, i8** %4
store i8 0, i8* %37
%38 = getelementptr inbounds [100 x i8], [100 x i8]* %3, i64 0, i64 0
%39 = call i32 (i8*, ...) bitcast (i32 (...)* @atof to i32 (i8*, ...)*)(i8* %38)
%40 = sitofp i32 %39 to double
ret double %40
}

LLVM IR (-O2):
@.str = [37 x i8] c"too many digits in floating constant\00"
define double @convert_str_double(i8* nocapture %0) {
%2 = alloca [100 x i8]
%3 = getelementptr inbounds [100 x i8], [100 x i8]* %2, i64 0, i64 0
%4 = tail call i64 @strlen(i8* dereferenceable(1) %0)
%5 = trunc i64 %4 to i32
%6 = icmp sgt i32 %5, 90
br i1 %6, label %7, label %9
7: ; preds = %1
%8 = tail call i32 (i8*, ...) bitcast (i32 (...)* @error to i32 (i8*, ...)*)(i8* getelementptr inbounds ([37 x i8], [37 x i8]* @.str, i64 0, i64 0))
br label %11
9: ; preds = %1
%10 = icmp sgt i32 %5, 0
br i1 %10, label %11, label %96
11: ; preds = %7, %9
%12 = phi i64 [ 90, %7 ], [ %4, %9 ]
%13 = add i64 %12, 4294967295
%14 = and i64 %13, 4294967295
%15 = getelementptr [100 x i8], [100 x i8]* %2, i64 0, i64 %14
%16 = add nuw nsw i64 %14, 1
%17 = icmp ult i64 %14, 31
br i1 %17, label %84, label %18
18: ; preds = %11
%19 = and i64 %16, 8589934560
%20 = getelementptr [100 x i8], [100 x i8]* %2, i64 0, i64 %19
%21 = getelementptr i8, i8* %0, i64 %19
%22 = add nsw i64 %19, -32
%23 = lshr exact i64 %22, 5
%24 = add nuw nsw i64 %23, 1
%25 = and i64 %24, 1
%26 = icmp eq i64 %22, 0
br i1 %26, label %64, label %27
27: ; preds = %18
%28 = and i64 %24, 1152921504606846974
br label %29
29: ; preds = %29, %27
%30 = phi i64 [ 0, %27 ], [ %61, %29 ]
%31 = phi i64 [ 0, %27 ], [ %62, %29 ]
%32 = getelementptr [100 x i8], [100 x i8]* %2, i64 0, i64 %30
%33 = getelementptr i8, i8* %0, i64 %30
%34 = bitcast i8* %33 to <16 x i8>*
%35 = load <16 x i8>, <16 x i8>* %34
%36 = getelementptr i8, i8* %33, i64 16
%37 = bitcast i8* %36 to <16 x i8>*
%38 = load <16 x i8>, <16 x i8>* %37
%39 = icmp eq <16 x i8> %35, <i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100>
%40 = icmp eq <16 x i8> %38, <i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100>
%41 = select <16 x i1> %39, <16 x i8> <i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101>, <16 x i8> %35
%42 = select <16 x i1> %40, <16 x i8> <i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101>, <16 x i8> %38
%43 = bitcast i8* %32 to <16 x i8>*
store <16 x i8> %41, <16 x i8>* %43
%44 = getelementptr i8, i8* %32, i64 16
%45 = bitcast i8* %44 to <16 x i8>*
store <16 x i8> %42, <16 x i8>* %45
%46 = or i64 %30, 32
%47 = getelementptr [100 x i8], [100 x i8]* %2, i64 0, i64 %46
%48 = getelementptr i8, i8* %0, i64 %46
%49 = bitcast i8* %48 to <16 x i8>*
%50 = load <16 x i8>, <16 x i8>* %49
%51 = getelementptr i8, i8* %48, i64 16
%52 = bitcast i8* %51 to <16 x i8>*
%53 = load <16 x i8>, <16 x i8>* %52
%54 = icmp eq <16 x i8> %50, <i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100>
%55 = icmp eq <16 x i8> %53, <i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100>
%56 = select <16 x i1> %54, <16 x i8> <i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101>, <16 x i8> %50
%57 = select <16 x i1> %55, <16 x i8> <i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101>, <16 x i8> %53
%58 = bitcast i8* %47 to <16 x i8>*
store <16 x i8> %56, <16 x i8>* %58
%59 = getelementptr i8, i8* %47, i64 16
%60 = bitcast i8* %59 to <16 x i8>*
store <16 x i8> %57, <16 x i8>* %60
%61 = add nuw i64 %30, 64
%62 = add i64 %31, 2
%63 = icmp eq i64 %62, %28
br i1 %63, label %64, label %29
64: ; preds = %29, %18
%65 = phi i64 [ 0, %18 ], [ %61, %29 ]
%66 = icmp eq i64 %25, 0
br i1 %66, label %82, label %67
67: ; preds = %64
%68 = getelementptr [100 x i8], [100 x i8]* %2, i64 0, i64 %65
%69 = getelementptr i8, i8* %0, i64 %65
%70 = bitcast i8* %69 to <16 x i8>*
%71 = load <16 x i8>, <16 x i8>* %70
%72 = getelementptr i8, i8* %69, i64 16
%73 = bitcast i8* %72 to <16 x i8>*
%74 = load <16 x i8>, <16 x i8>* %73
%75 = icmp eq <16 x i8> %71, <i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100>
%76 = icmp eq <16 x i8> %74, <i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100, i8 100>
%77 = select <16 x i1> %75, <16 x i8> <i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101>, <16 x i8> %71
%78 = select <16 x i1> %76, <16 x i8> <i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101>, <16 x i8> %74
%79 = bitcast i8* %68 to <16 x i8>*
store <16 x i8> %77, <16 x i8>* %79
%80 = getelementptr i8, i8* %68, i64 16
%81 = bitcast i8* %80 to <16 x i8>*
store <16 x i8> %78, <16 x i8>* %81
br label %82
82: ; preds = %64, %67
%83 = icmp eq i64 %16, %19
br i1 %83, label %96, label %84
84: ; preds = %11, %82
%85 = phi i8* [ %3, %11 ], [ %20, %82 ]
%86 = phi i8* [ %0, %11 ], [ %21, %82 ]
br label %87
87: ; preds = %84, %87
%88 = phi i8* [ %93, %87 ], [ %85, %84 ]
%89 = phi i8* [ %94, %87 ], [ %86, %84 ]
%90 = load i8, i8* %89
%91 = icmp eq i8 %90, 100
%92 = select i1 %91, i8 101, i8 %90
%93 = getelementptr inbounds i8, i8* %88, i64 1
store i8 %92, i8* %88
%94 = getelementptr inbounds i8, i8* %89, i64 1
%95 = icmp eq i8* %88, %15
br i1 %95, label %96, label %87
96: ; preds = %87, %82, %9
%97 = phi i8* [ %3, %9 ], [ %20, %82 ], [ %93, %87 ]
store i8 0, i8* %97
%98 = call i32 (i8*, ...) bitcast (i32 (...)* @atof to i32 (i8*, ...)*)(i8* %3)
%99 = sitofp i32 %98 to double
ret double %99
}