#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
double expten(int);
scalar_t__ isdigit(unsigned char);
scalar_t__ isspace(unsigned char);
char toupper(unsigned char);
double luaO_str2d(char *s) {
  double a = 0.0;
  int point = 0;
  while (isdigit((unsigned char)*s)) {
    a = 10.0 * a + (*(s++) - '0');
  }
  if (*s == '.') {
    s++;
    while (isdigit((unsigned char)*s)) {
      a = 10.0 * a + (*(s++) - '0');
      point++;
    }
  }
  if (toupper((unsigned char)*s) == 'E') {
    int e = 0;
    int sig = 1;
    s++;
    if (*s == '-') {
      s++;
      sig = -1;
    } else if (*s == '+')
      s++;
    if (!isdigit((unsigned char)*s))
      return -1;
    do {
      e = 10 * e + (*(s++) - '0');
    } while (isdigit((unsigned char)*s));
    point -= sig * e;
  }
  while (isspace((unsigned char)*s))
    s++;
  if (*s != '\0')
    return -1;
  if (point > 0)
    a /= expten(point);
  else if (point < 0)
    a *= expten(-point);
  return a;
}


x86 assembly (clang, -O0):
<luaO_str2d>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x10(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x18(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x10(%rbp),%rax
movzbl (%rax),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%rax
je     11a9 <luaO_str2d+0x69>
movsd  -0x18(%rbp),%xmm0
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movsbl (%rax),%eax
sub    $0x30,%eax
cvtsi2sd %eax,%xmm1
movsd  0xe71(%rip),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x18(%rbp)
jmp    115b <luaO_str2d+0x1b>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2e,%eax
jne    1221 <luaO_str2d+0xe1>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movzbl (%rax),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%rax
je     121c <luaO_str2d+0xdc>
movsd  -0x18(%rbp),%xmm0
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movsbl (%rax),%eax
sub    $0x30,%eax
cvtsi2sd %eax,%xmm1
movsd  0xe07(%rip),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x18(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    11c5 <luaO_str2d+0x85>
jmp    1221 <luaO_str2d+0xe1>
mov    -0x10(%rbp),%rax
movzbl (%rax),%edi
call   1040 <toupper@plt>
movsbl %al,%eax
cmp    $0x45,%eax
jne    130c <luaO_str2d+0x1cc>
movl   $0x0,-0x20(%rbp)
movl   $0x1,-0x24(%rbp)
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2d,%eax
jne    127b <luaO_str2d+0x13b>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
movl   $0xffffffff,-0x24(%rbp)
jmp    129c <luaO_str2d+0x15c>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2b,%eax
jne    1297 <luaO_str2d+0x157>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    129c <luaO_str2d+0x15c>
mov    -0x10(%rbp),%rax
movzbl (%rax),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%rax
jne    12c4 <luaO_str2d+0x184>
movsd  0xd46(%rip),%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    13af <luaO_str2d+0x26f>
jmp    12c9 <luaO_str2d+0x189>
imul   $0xa,-0x20(%rbp),%eax
mov    -0x10(%rbp),%rcx
mov    %rcx,%rdx
add    $0x1,%rdx
mov    %rdx,-0x10(%rbp)
movsbl (%rcx),%ecx
sub    $0x30,%ecx
add    %ecx,%eax
mov    %eax,-0x20(%rbp)
mov    -0x10(%rbp),%rax
movzbl (%rax),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%rax
jne    12c9 <luaO_str2d+0x189>
mov    -0x24(%rbp),%ecx
imul   -0x20(%rbp),%ecx
mov    -0x1c(%rbp),%eax
sub    %ecx,%eax
mov    %eax,-0x1c(%rbp)
jmp    1311 <luaO_str2d+0x1d1>
mov    -0x10(%rbp),%rax
movzbl (%rax),%edi
call   1050 <isspace@plt>
cmp    $0x0,%rax
je     1338 <luaO_str2d+0x1f8>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    1311 <luaO_str2d+0x1d1>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
je     135a <luaO_str2d+0x21a>
movsd  0xcb0(%rip),%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    13af <luaO_str2d+0x26f>
cmpl   $0x0,-0x1c(%rbp)
jle    1382 <luaO_str2d+0x242>
mov    -0x1c(%rbp),%edi
call   1060 <expten@plt>
movaps %xmm0,%xmm1
movsd  -0x18(%rbp),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x18(%rbp)
jmp    13a5 <luaO_str2d+0x265>
cmpl   $0x0,-0x1c(%rbp)
jge    13a0 <luaO_str2d+0x260>
xor    %edi,%edi
sub    -0x1c(%rbp),%edi
call   1060 <expten@plt>
mulsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x18(%rbp)
jmp    13a5 <luaO_str2d+0x265>
movsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<luaO_str2d>:
push   %rbp
push   %r15
push   %r14
push   %rbx
push   %rax
mov    %rdi,%rbx
movzbl (%rdi),%edi
call   1030 <isdigit@plt>
xorpd  %xmm1,%xmm1
test   %rax,%rax
je     1198 <luaO_str2d+0x58>
mov    %rbx,%rcx
xchg   %ax,%ax
movsbl (%rcx),%eax
add    $0xffffffd0,%eax
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
lea    0x1(%rcx),%rbx
mulsd  0xe87(%rip),%xmm1
addsd  %xmm0,%xmm1
movsd  %xmm1,(%rsp)
movzbl 0x1(%rcx),%edi
call   1030 <isdigit@plt>
movsd  (%rsp),%xmm1
mov    %rbx,%rcx
test   %rax,%rax
jne    1160 <luaO_str2d+0x20>
movsd  %xmm1,(%rsp)
xor    %r14d,%r14d
cmpb   $0x2e,(%rbx)
jne    11fc <luaO_str2d+0xbc>
movzbl 0x1(%rbx),%edi
add    $0x1,%rbx
call   1030 <isdigit@plt>
test   %rax,%rax
je     11fc <luaO_str2d+0xbc>
xor    %r14d,%r14d
movsd  (%rsp),%xmm1
nop
movsbl (%rbx,%r14,1),%eax
add    $0xffffffd0,%eax
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
mulsd  0xe29(%rip),%xmm1
addsd  %xmm0,%xmm1
movsd  %xmm1,(%rsp)
movzbl 0x1(%rbx,%r14,1),%edi
call   1030 <isdigit@plt>
movsd  (%rsp),%xmm1
add    $0x1,%r14
test   %rax,%rax
jne    11c0 <luaO_str2d+0x80>
add    %r14,%rbx
movzbl (%rbx),%edi
call   1040 <toupper@plt>
cmp    $0x45,%al
jne    1270 <luaO_str2d+0x130>
mov    0x1(%rbx),%al
mov    $0xffffffff,%r15d
cmp    $0x2b,%al
je     1225 <luaO_str2d+0xe5>
cmp    $0x2d,%al
jne    122b <luaO_str2d+0xeb>
add    $0x2,%rbx
mov    $0x1,%r15d
jmp    122f <luaO_str2d+0xef>
add    $0x2,%rbx
jmp    122f <luaO_str2d+0xef>
add    $0x1,%rbx
movzbl (%rbx),%edi
call   1030 <isdigit@plt>
test   %rax,%rax
je     1287 <luaO_str2d+0x147>
xor    %ebp,%ebp
xchg   %ax,%ax
lea    0x0(%rbp,%rbp,4),%eax
movsbl (%rbx),%ecx
movzbl 0x1(%rbx),%edi
add    $0x1,%rbx
lea    (%rcx,%rax,2),%ebp
add    $0xffffffd0,%ebp
call   1030 <isdigit@plt>
test   %rax,%rax
jne    1240 <luaO_str2d+0x100>
imul   %r15d,%ebp
add    %r14d,%ebp
mov    %ebp,%r14d
nopl   0x0(%rax)
movzbl (%rbx),%edi
call   1050 <isspace@plt>
add    $0x1,%rbx
test   %rax,%rax
jne    1270 <luaO_str2d+0x130>
cmpb   $0x0,-0x1(%rbx)
je     1291 <luaO_str2d+0x151>
movsd  0xd79(%rip),%xmm0
jmp    12b4 <luaO_str2d+0x174>
test   %r14d,%r14d
jle    12ad <luaO_str2d+0x16d>
mov    %r14d,%edi
call   1060 <expten@plt>
movsd  (%rsp),%xmm1
divsd  %xmm0,%xmm1
movapd %xmm1,%xmm0
jmp    12b4 <luaO_str2d+0x174>
js     12bf <luaO_str2d+0x17f>
movsd  (%rsp),%xmm0
add    $0x8,%rsp
pop    %rbx
pop    %r14
pop    %r15
pop    %rbp
ret
neg    %r14d
mov    %r14d,%edi
call   1060 <expten@plt>
movsd  (%rsp),%xmm1
mulsd  %xmm0,%xmm1
jmp    12a7 <luaO_str2d+0x167>

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

LLVM IR (-O2):
define double @luaO_str2d(i8* nocapture %0) {
%2 = load i8, i8* %0
%3 = tail call i64 @isdigit(i8 zeroext %2)
%4 = icmp eq i64 %3, 0
br i1 %4, label %17, label %5
5: ; preds = %1, %5
%6 = phi double [ %13, %5 ], [ 0.000000e+00, %1 ]
%7 = phi i8* [ %8, %5 ], [ %0, %1 ]
%8 = getelementptr inbounds i8, i8* %7, i64 1
%9 = load i8, i8* %7
%10 = sext i8 %9 to i32
%11 = add nsw i32 %10, -48
%12 = sitofp i32 %11 to double
%13 = tail call double @llvm.fmuladd.f64(double %6, double 1.000000e+01, double %12)
%14 = load i8, i8* %8
%15 = tail call i64 @isdigit(i8 zeroext %14)
%16 = icmp eq i64 %15, 0
br i1 %16, label %17, label %5
17: ; preds = %5, %1
%18 = phi i8* [ %0, %1 ], [ %8, %5 ]
%19 = phi double [ 0.000000e+00, %1 ], [ %13, %5 ]
%20 = load i8, i8* %18
%21 = icmp eq i8 %20, 46
br i1 %21, label %22, label %41
22: ; preds = %17
%23 = getelementptr inbounds i8, i8* %18, i64 1
%24 = load i8, i8* %23
%25 = tail call i64 @isdigit(i8 zeroext %24)
%26 = icmp eq i64 %25, 0
br i1 %26, label %41, label %27
27: ; preds = %22, %27
%28 = phi i8* [ %37, %27 ], [ %23, %22 ]
%29 = phi i32 [ %36, %27 ], [ 0, %22 ]
%30 = phi double [ %35, %27 ], [ %19, %22 ]
%31 = load i8, i8* %28
%32 = sext i8 %31 to i32
%33 = add nsw i32 %32, -48
%34 = sitofp i32 %33 to double
%35 = tail call double @llvm.fmuladd.f64(double %30, double 1.000000e+01, double %34)
%36 = add nuw nsw i32 %29, 1
%37 = getelementptr inbounds i8, i8* %28, i64 1
%38 = load i8, i8* %37
%39 = tail call i64 @isdigit(i8 zeroext %38)
%40 = icmp eq i64 %39, 0
br i1 %40, label %41, label %27
41: ; preds = %27, %22, %17
%42 = phi i8* [ %18, %17 ], [ %23, %22 ], [ %37, %27 ]
%43 = phi double [ %19, %17 ], [ %19, %22 ], [ %35, %27 ]
%44 = phi i32 [ 0, %17 ], [ 0, %22 ], [ %36, %27 ]
%45 = load i8, i8* %42
%46 = tail call signext i8 @toupper(i8 zeroext %45)
%47 = icmp eq i8 %46, 69
br i1 %47, label %48, label %76
48: ; preds = %41
%49 = getelementptr inbounds i8, i8* %42, i64 1
%50 = load i8, i8* %49
switch i8 %50, label %55 [
i8 45, label %51
i8 43, label %53
]
51: ; preds = %48
%52 = getelementptr inbounds i8, i8* %42, i64 2
br label %55
53: ; preds = %48
%54 = getelementptr inbounds i8, i8* %42, i64 2
br label %55
55: ; preds = %48, %53, %51
%56 = phi i8* [ %52, %51 ], [ %54, %53 ], [ %49, %48 ]
%57 = phi i32 [ 1, %51 ], [ -1, %53 ], [ -1, %48 ]
%58 = load i8, i8* %56
%59 = tail call i64 @isdigit(i8 zeroext %58)
%60 = icmp eq i64 %59, 0
br i1 %60, label %99, label %61
61: ; preds = %55, %61
%62 = phi i8* [ %65, %61 ], [ %56, %55 ]
%63 = phi i32 [ %69, %61 ], [ 0, %55 ]
%64 = mul nsw i32 %63, 10
%65 = getelementptr inbounds i8, i8* %62, i64 1
%66 = load i8, i8* %62
%67 = sext i8 %66 to i32
%68 = add i32 %64, -48
%69 = add i32 %68, %67
%70 = load i8, i8* %65
%71 = tail call i64 @isdigit(i8 zeroext %70)
%72 = icmp eq i64 %71, 0
br i1 %72, label %73, label %61
73: ; preds = %61
%74 = mul i32 %69, %57
%75 = add i32 %74, %44
br label %76
76: ; preds = %73, %41
%77 = phi i8* [ %65, %73 ], [ %42, %41 ]
%78 = phi i32 [ %75, %73 ], [ %44, %41 ]
br label %79
79: ; preds = %79, %76
%80 = phi i8* [ %77, %76 ], [ %84, %79 ]
%81 = load i8, i8* %80
%82 = tail call i64 @isspace(i8 zeroext %81)
%83 = icmp eq i64 %82, 0
%84 = getelementptr inbounds i8, i8* %80, i64 1
br i1 %83, label %85, label %79
85: ; preds = %79
%86 = load i8, i8* %80
%87 = icmp eq i8 %86, 0
br i1 %87, label %88, label %99
88: ; preds = %85
%89 = icmp sgt i32 %78, 0
br i1 %89, label %90, label %93
90: ; preds = %88
%91 = tail call double @expten(i32 %78)
%92 = fdiv double %43, %91
br label %99
93: ; preds = %88
%94 = icmp slt i32 %78, 0
br i1 %94, label %95, label %99
95: ; preds = %93
%96 = sub nsw i32 0, %78
%97 = tail call double @expten(i32 %96)
%98 = fmul double %43, %97
br label %99
99: ; preds = %55, %90, %95, %93, %85
%100 = phi double [ -1.000000e+00, %85 ], [ %92, %90 ], [ %98, %95 ], [ %43, %93 ], [ -1.000000e+00, %55 ]
ret double %100
}