unsigned int arikkei_strtod_simple(const unsigned char *str, unsigned int len,
                                   double *val) {
  const unsigned char *p;
  double sign, integra, fract;
  unsigned int valid;
  p = str;
  valid = 0;
  if (!p)
    return 0;
  while (*p && (*p == ' '))
    p += 1;
  if (!*p)
    return 0;
  if (*p == '-') {
    sign = -1.0;
    p += 1;
  } else {
    if (*p == '+')
      p += 1;
    sign = 1.0;
  }
  integra = 0.0;
  fract = 0.0;
  while (*p && (*p >= '0') && (*p <= '9')) {
    integra = integra * 10.0 + (double)(*p - '0');
    valid = 1;
    p += 1;
  }
  if (*p == '.') {
    double denom;
    p += 1;
    denom = 1.0;
    while (*p && (*p >= '0') && (*p <= '9')) {
      fract = fract * 10.0 + (double)(*p - '0');
      denom *= 10.0;
      valid = 1;
      p += 1;
    }
    fract = fract / denom;
  }
  if (!valid)
    return 0;
  *val = sign * (integra + fract);
  return (unsigned int)(p - str);
}


x86 assembly (clang, -O0):
<arikkei_strtod_simple>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %rdx,-0x20(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x28(%rbp)
movl   $0x0,-0x44(%rbp)
cmpq   $0x0,-0x28(%rbp)
jne    1135 <arikkei_strtod_simple+0x35>
movl   $0x0,-0x4(%rbp)
jmp    139d <arikkei_strtod_simple+0x29d>
jmp    113a <arikkei_strtod_simple+0x3a>
mov    -0x28(%rbp),%rax
movzbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x51(%rbp)
je     115f <arikkei_strtod_simple+0x5f>
mov    -0x28(%rbp),%rax
movzbl (%rax),%eax
cmp    $0x20,%eax
sete   %al
mov    %al,-0x51(%rbp)
mov    -0x51(%rbp),%al
test   $0x1,%al
jne    116f <arikkei_strtod_simple+0x6f>
jmp    1180 <arikkei_strtod_simple+0x80>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    113a <arikkei_strtod_simple+0x3a>
mov    -0x28(%rbp),%rax
cmpb   $0x0,(%rax)
jne    1199 <arikkei_strtod_simple+0x99>
movl   $0x0,-0x4(%rbp)
jmp    139d <arikkei_strtod_simple+0x29d>
mov    -0x28(%rbp),%rax
movzbl (%rax),%eax
cmp    $0x2d,%eax
jne    11c7 <arikkei_strtod_simple+0xc7>
movsd  0xe57(%rip),%xmm0
movsd  %xmm0,-0x30(%rbp)
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    11f0 <arikkei_strtod_simple+0xf0>
mov    -0x28(%rbp),%rax
movzbl (%rax),%eax
cmp    $0x2b,%eax
jne    11e3 <arikkei_strtod_simple+0xe3>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
movsd  0xe15(%rip),%xmm0
movsd  %xmm0,-0x30(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x38(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x28(%rbp),%rax
movzbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x52(%rbp)
je     123a <arikkei_strtod_simple+0x13a>
mov    -0x28(%rbp),%rax
movzbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x30,%ecx
mov    %al,-0x52(%rbp)
jl     123a <arikkei_strtod_simple+0x13a>
mov    -0x28(%rbp),%rax
movzbl (%rax),%eax
cmp    $0x39,%eax
setle  %al
mov    %al,-0x52(%rbp)
mov    -0x52(%rbp),%al
test   $0x1,%al
jne    124a <arikkei_strtod_simple+0x14a>
jmp    128a <arikkei_strtod_simple+0x18a>
movsd  -0x38(%rbp),%xmm0
mov    -0x28(%rbp),%rax
movzbl (%rax),%eax
sub    $0x30,%eax
cvtsi2sd %eax,%xmm1
movsd  0xdab(%rip),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
movl   $0x1,-0x44(%rbp)
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    1200 <arikkei_strtod_simple+0x100>
mov    -0x28(%rbp),%rax
movzbl (%rax),%eax
cmp    $0x2e,%eax
jne    135e <arikkei_strtod_simple+0x25e>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
movsd  0xd52(%rip),%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x28(%rbp),%rax
movzbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x53(%rbp)
je     12ed <arikkei_strtod_simple+0x1ed>
mov    -0x28(%rbp),%rax
movzbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x30,%ecx
mov    %al,-0x53(%rbp)
jl     12ed <arikkei_strtod_simple+0x1ed>
mov    -0x28(%rbp),%rax
movzbl (%rax),%eax
cmp    $0x39,%eax
setle  %al
mov    %al,-0x53(%rbp)
mov    -0x53(%rbp),%al
test   $0x1,%al
jne    12fd <arikkei_strtod_simple+0x1fd>
jmp    134f <arikkei_strtod_simple+0x24f>
movsd  -0x40(%rbp),%xmm0
mov    -0x28(%rbp),%rax
movzbl (%rax),%eax
sub    $0x30,%eax
cvtsi2sd %eax,%xmm1
movsd  0xcf8(%rip),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  0xce3(%rip),%xmm0
mulsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x50(%rbp)
movl   $0x1,-0x44(%rbp)
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    12b3 <arikkei_strtod_simple+0x1b3>
movsd  -0x40(%rbp),%xmm0
divsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
cmpl   $0x0,-0x44(%rbp)
jne    1374 <arikkei_strtod_simple+0x274>
movl   $0x0,-0x4(%rbp)
jmp    139d <arikkei_strtod_simple+0x29d>
movsd  -0x30(%rbp),%xmm0
movsd  -0x38(%rbp),%xmm1
addsd  -0x40(%rbp),%xmm1
mulsd  %xmm1,%xmm0
mov    -0x20(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x28(%rbp),%rax
mov    -0x10(%rbp),%rcx
sub    %rcx,%rax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<arikkei_strtod_simple>:
xor    %eax,%eax
test   %rdi,%rdi
je     121c <arikkei_strtod_simple+0x11c>
mov    %rdi,%r9
xchg   %ax,%ax
movzbl (%r9),%ecx
cmp    $0x20,%cl
jne    111f <arikkei_strtod_simple+0x1f>
add    $0x1,%r9
jmp    1110 <arikkei_strtod_simple+0x10>
test   %cl,%cl
je     121c <arikkei_strtod_simple+0x11c>
cmp    $0x2b,%cl
je     113f <arikkei_strtod_simple+0x3f>
cmp    $0x2d,%cl
jne    1143 <arikkei_strtod_simple+0x43>
add    $0x1,%r9
movsd  0xecb(%rip),%xmm0
jmp    114b <arikkei_strtod_simple+0x4b>
add    $0x1,%r9
movsd  0xeb5(%rip),%xmm0
mov    (%r9),%sil
lea    -0x30(%rsi),%r8d
xorpd  %xmm1,%xmm1
cmp    $0x9,%r8b
ja     1197 <arikkei_strtod_simple+0x97>
xorpd  %xmm1,%xmm1
movsd  0xea8(%rip),%xmm2
nopl   0x0(%rax,%rax,1)
movzbl %sil,%ecx
add    $0xffffffd0,%ecx
xorps  %xmm3,%xmm3
cvtsi2sd %ecx,%xmm3
mulsd  %xmm2,%xmm1
addsd  %xmm3,%xmm1
movzbl 0x1(%r9),%esi
add    $0x1,%r9
lea    -0x30(%rsi),%ecx
cmp    $0xa,%cl
jb     1170 <arikkei_strtod_simple+0x70>
cmp    $0x2e,%sil
jne    1200 <arikkei_strtod_simple+0x100>
mov    0x1(%r9),%sil
add    $0x1,%r9
lea    -0x30(%rsi),%ecx
cmp    $0x9,%cl
ja     1200 <arikkei_strtod_simple+0x100>
xorpd  %xmm2,%xmm2
movsd  0xe47(%rip),%xmm3
movsd  0xe4f(%rip),%xmm4
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movzbl %sil,%eax
add    $0xffffffd0,%eax
xorps  %xmm5,%xmm5
cvtsi2sd %eax,%xmm5
mulsd  %xmm4,%xmm2
addsd  %xmm5,%xmm2
mulsd  %xmm4,%xmm3
movzbl 0x1(%r9),%esi
add    $0x1,%r9
lea    -0x30(%rsi),%eax
cmp    $0xa,%al
jb     11d0 <arikkei_strtod_simple+0xd0>
divsd  %xmm3,%xmm2
jmp    120a <arikkei_strtod_simple+0x10a>
xorpd  %xmm2,%xmm2
cmp    $0x9,%r8b
ja     121c <arikkei_strtod_simple+0x11c>
addsd  %xmm2,%xmm1
mulsd  %xmm1,%xmm0
movsd  %xmm0,(%rdx)
sub    %edi,%r9d
mov    %r9d,%eax
ret

LLVM IR (-O0):
define i32 @arikkei_strtod_simple(i8* %0, i32 %1, double* %2) {
%4 = alloca i32
%5 = alloca i8*
%6 = alloca i32
%7 = alloca double*
%8 = alloca i8*
%9 = alloca double
%10 = alloca double
%11 = alloca double
%12 = alloca i32
%13 = alloca double
store i8* %0, i8** %5
store i32 %1, i32* %6
store double* %2, double** %7
%14 = load i8*, i8** %5
store i8* %14, i8** %8
store i32 0, i32* %12
%15 = load i8*, i8** %8
%16 = icmp ne i8* %15, null
br i1 %16, label %18, label %17
17: ; preds = %3
store i32 0, i32* %4
br label %142
18: ; preds = %3
br label %19
19: ; preds = %31, %18
%20 = load i8*, i8** %8
%21 = load i8, i8* %20
%22 = zext i8 %21 to i32
%23 = icmp ne i32 %22, 0
br i1 %23, label %24, label %29
24: ; preds = %19
%25 = load i8*, i8** %8
%26 = load i8, i8* %25
%27 = zext i8 %26 to i32
%28 = icmp eq i32 %27, 32
br label %29
29: ; preds = %24, %19
%30 = phi i1 [ false, %19 ], [ %28, %24 ]
br i1 %30, label %31, label %34
31: ; preds = %29
%32 = load i8*, i8** %8
%33 = getelementptr inbounds i8, i8* %32, i64 1
store i8* %33, i8** %8
br label %19
34: ; preds = %29
%35 = load i8*, i8** %8
%36 = load i8, i8* %35
%37 = icmp ne i8 %36, 0
br i1 %37, label %39, label %38
38: ; preds = %34
store i32 0, i32* %4
br label %142
39: ; preds = %34
%40 = load i8*, i8** %8
%41 = load i8, i8* %40
%42 = zext i8 %41 to i32
%43 = icmp eq i32 %42, 45
br i1 %43, label %44, label %47
44: ; preds = %39
store double -1.000000e+00, double* %9
%45 = load i8*, i8** %8
%46 = getelementptr inbounds i8, i8* %45, i64 1
store i8* %46, i8** %8
br label %56
47: ; preds = %39
%48 = load i8*, i8** %8
%49 = load i8, i8* %48
%50 = zext i8 %49 to i32
%51 = icmp eq i32 %50, 43
br i1 %51, label %52, label %55
52: ; preds = %47
%53 = load i8*, i8** %8
%54 = getelementptr inbounds i8, i8* %53, i64 1
store i8* %54, i8** %8
br label %55
55: ; preds = %52, %47
store double 1.000000e+00, double* %9
br label %56
56: ; preds = %55, %44
store double 0.000000e+00, double* %10
store double 0.000000e+00, double* %11
br label %57
57: ; preds = %74, %56
%58 = load i8*, i8** %8
%59 = load i8, i8* %58
%60 = zext i8 %59 to i32
%61 = icmp ne i32 %60, 0
br i1 %61, label %62, label %72
62: ; preds = %57
%63 = load i8*, i8** %8
%64 = load i8, i8* %63
%65 = zext i8 %64 to i32
%66 = icmp sge i32 %65, 48
br i1 %66, label %67, label %72
67: ; preds = %62
%68 = load i8*, i8** %8
%69 = load i8, i8* %68
%70 = zext i8 %69 to i32
%71 = icmp sle i32 %70, 57
br label %72
72: ; preds = %67, %62, %57
%73 = phi i1 [ false, %62 ], [ false, %57 ], [ %71, %67 ]
br i1 %73, label %74, label %84
74: ; preds = %72
%75 = load double, double* %10
%76 = load i8*, i8** %8
%77 = load i8, i8* %76
%78 = zext i8 %77 to i32
%79 = sub nsw i32 %78, 48
%80 = sitofp i32 %79 to double
%81 = call double @llvm.fmuladd.f64(double %75, double 1.000000e+01, double %80)
store double %81, double* %10
store i32 1, i32* %12
%82 = load i8*, i8** %8
%83 = getelementptr inbounds i8, i8* %82, i64 1
store i8* %83, i8** %8
br label %57
84: ; preds = %72
%85 = load i8*, i8** %8
%86 = load i8, i8* %85
%87 = zext i8 %86 to i32
%88 = icmp eq i32 %87, 46
br i1 %88, label %89, label %125
89: ; preds = %84
%90 = load i8*, i8** %8
%91 = getelementptr inbounds i8, i8* %90, i64 1
store i8* %91, i8** %8
store double 1.000000e+00, double* %13
br label %92
92: ; preds = %109, %89
%93 = load i8*, i8** %8
%94 = load i8, i8* %93
%95 = zext i8 %94 to i32
%96 = icmp ne i32 %95, 0
br i1 %96, label %97, label %107
97: ; preds = %92
%98 = load i8*, i8** %8
%99 = load i8, i8* %98
%100 = zext i8 %99 to i32
%101 = icmp sge i32 %100, 48
br i1 %101, label %102, label %107
102: ; preds = %97
%103 = load i8*, i8** %8
%104 = load i8, i8* %103
%105 = zext i8 %104 to i32
%106 = icmp sle i32 %105, 57
br label %107
107: ; preds = %102, %97, %92
%108 = phi i1 [ false, %97 ], [ false, %92 ], [ %106, %102 ]
br i1 %108, label %109, label %121
109: ; preds = %107
%110 = load double, double* %11
%111 = load i8*, i8** %8
%112 = load i8, i8* %111
%113 = zext i8 %112 to i32
%114 = sub nsw i32 %113, 48
%115 = sitofp i32 %114 to double
%116 = call double @llvm.fmuladd.f64(double %110, double 1.000000e+01, double %115)
store double %116, double* %11
%117 = load double, double* %13
%118 = fmul double %117, 1.000000e+01
store double %118, double* %13
store i32 1, i32* %12
%119 = load i8*, i8** %8
%120 = getelementptr inbounds i8, i8* %119, i64 1
store i8* %120, i8** %8
br label %92
121: ; preds = %107
%122 = load double, double* %11
%123 = load double, double* %13
%124 = fdiv double %122, %123
store double %124, double* %11
br label %125
125: ; preds = %121, %84
%126 = load i32, i32* %12
%127 = icmp ne i32 %126, 0
br i1 %127, label %129, label %128
128: ; preds = %125
store i32 0, i32* %4
br label %142
129: ; preds = %125
%130 = load double, double* %9
%131 = load double, double* %10
%132 = load double, double* %11
%133 = fadd double %131, %132
%134 = fmul double %130, %133
%135 = load double*, double** %7
store double %134, double* %135
%136 = load i8*, i8** %8
%137 = load i8*, i8** %5
%138 = ptrtoint i8* %136 to i64
%139 = ptrtoint i8* %137 to i64
%140 = sub i64 %138, %139
%141 = trunc i64 %140 to i32
store i32 %141, i32* %4
br label %142
142: ; preds = %129, %128, %38, %17
%143 = load i32, i32* %4
ret i32 %143
}

LLVM IR (-O2):
define i32 @arikkei_strtod_simple(i8* %0, i32 %1, double* nocapture writeonly %2) {
%4 = icmp eq i8* %0, null
br i1 %4, label %69, label %5
5: ; preds = %3, %8
%6 = phi i8* [ %9, %8 ], [ %0, %3 ]
%7 = load i8, i8* %6
switch i8 %7, label %14 [
i8 32, label %8
i8 0, label %69
i8 45, label %10
i8 43, label %12
]
8: ; preds = %5
%9 = getelementptr inbounds i8, i8* %6, i64 1
br label %5
10: ; preds = %5
%11 = getelementptr inbounds i8, i8* %6, i64 1
br label %14
12: ; preds = %5
%13 = getelementptr inbounds i8, i8* %6, i64 1
br label %14
14: ; preds = %5, %12, %10
%15 = phi i8* [ %11, %10 ], [ %13, %12 ], [ %6, %5 ]
%16 = phi double [ -1.000000e+00, %10 ], [ 1.000000e+00, %12 ], [ 1.000000e+00, %5 ]
%17 = load i8, i8* %15
%18 = add i8 %17, -48
%19 = icmp ult i8 %18, 10
br i1 %19, label %20, label %32
20: ; preds = %14, %20
%21 = phi i8 [ %29, %20 ], [ %17, %14 ]
%22 = phi double [ %27, %20 ], [ 0.000000e+00, %14 ]
%23 = phi i8* [ %28, %20 ], [ %15, %14 ]
%24 = zext i8 %21 to i32
%25 = add nsw i32 %24, -48
%26 = sitofp i32 %25 to double
%27 = tail call double @llvm.fmuladd.f64(double %22, double 1.000000e+01, double %26)
%28 = getelementptr inbounds i8, i8* %23, i64 1
%29 = load i8, i8* %28
%30 = add i8 %29, -48
%31 = icmp ult i8 %30, 10
br i1 %31, label %20, label %32
32: ; preds = %20, %14
%33 = phi i8* [ %15, %14 ], [ %28, %20 ]
%34 = phi double [ 0.000000e+00, %14 ], [ %27, %20 ]
%35 = phi i8 [ %17, %14 ], [ %29, %20 ]
%36 = icmp eq i8 %35, 46
br i1 %36, label %37, label %58
37: ; preds = %32
%38 = getelementptr inbounds i8, i8* %33, i64 1
%39 = load i8, i8* %38
%40 = add i8 %39, -48
%41 = icmp ult i8 %40, 10
br i1 %41, label %42, label %58
42: ; preds = %37, %42
%43 = phi i8 [ %53, %42 ], [ %39, %37 ]
%44 = phi i8* [ %52, %42 ], [ %38, %37 ]
%45 = phi double [ %51, %42 ], [ 1.000000e+00, %37 ]
%46 = phi double [ %50, %42 ], [ 0.000000e+00, %37 ]
%47 = zext i8 %43 to i32
%48 = add nsw i32 %47, -48
%49 = sitofp i32 %48 to double
%50 = tail call double @llvm.fmuladd.f64(double %46, double 1.000000e+01, double %49)
%51 = fmul double %45, 1.000000e+01
%52 = getelementptr inbounds i8, i8* %44, i64 1
%53 = load i8, i8* %52
%54 = add i8 %53, -48
%55 = icmp ult i8 %54, 10
br i1 %55, label %42, label %56
56: ; preds = %42
%57 = fdiv double %50, %51
br label %60
58: ; preds = %37, %32
%59 = phi i8* [ %33, %32 ], [ %38, %37 ]
br i1 %19, label %60, label %69
60: ; preds = %56, %58
%61 = phi double [ %57, %56 ], [ 0.000000e+00, %58 ]
%62 = phi i8* [ %52, %56 ], [ %59, %58 ]
%63 = fadd double %34, %61
%64 = fmul double %16, %63
store double %64, double* %2
%65 = ptrtoint i8* %62 to i64
%66 = ptrtoint i8* %0 to i64
%67 = sub i64 %65, %66
%68 = trunc i64 %67 to i32
br label %69
69: ; preds = %5, %58, %3, %60
%70 = phi i32 [ %68, %60 ], [ 0, %3 ], [ 0, %58 ], [ 0, %5 ]
ret i32 %70
}