#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 */
int hexdig(char);
double ldexp(double, int);
double hex_to_double(char *s) {
  char c;
  char *p1;
  char *p2;
  int digit;
  int expon;
  int esign;
  double msign;
  double mant;
  double value;
  for (;;) {
    c = *s++;
    if (c == ' ')
      continue;
    if (c == '\n')
      continue;
    if (c == '\t')
      continue;
    if (c == '\f')
      continue;
    if (c != '\v')
      break;
  }
  msign = 1.0;
  if (c == '-') {
    msign = -1.0;
    c = *s++;
  }
  mant = 0.0;
  if (c != '.')
    return (msign * mant);
  p1 = s;
  for (;;) {
    c = *s++;
    digit = hexdig(c);
    if (digit < 0)
      break;
  }
  for (p2 = s - 1; p2 > p1;) {
    digit = hexdig(*--p2);
    mant += ((double)digit);
    mant *= 0.0625;
  }
  expon = 0;
  if ((c == 'x') || (c == 'X')) {
    c = *s++;
    esign = 1;
    if (c == '-') {
      esign = -1;
      c = *s++;
    }
    for (;;) {
      digit = hexdig(c);
      if (digit < 0)
        break;
      expon = (expon << 4) + digit;
      c = *s++;
    }
    expon *= esign;
  }
  value = msign * ldexp(mant, expon);
  return (value);
}


x86 assembly (clang, -O0):
<hex_to_double>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
mov    %rdi,-0x10(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
mov    (%rax),%al
mov    %al,-0x11(%rbp)
movsbl -0x11(%rbp),%eax
cmp    $0x20,%eax
jne    1152 <hex_to_double+0x32>
jmp    112c <hex_to_double+0xc>
movsbl -0x11(%rbp),%eax
cmp    $0xa,%eax
jne    1164 <hex_to_double+0x44>
jmp    112c <hex_to_double+0xc>
movsbl -0x11(%rbp),%eax
cmp    $0x9,%eax
jne    1176 <hex_to_double+0x56>
jmp    112c <hex_to_double+0xc>
movsbl -0x11(%rbp),%eax
cmp    $0xc,%eax
jne    1188 <hex_to_double+0x68>
jmp    112c <hex_to_double+0xc>
movsbl -0x11(%rbp),%eax
cmp    $0xb,%eax
je     119a <hex_to_double+0x7a>
jmp    119f <hex_to_double+0x7f>
jmp    112c <hex_to_double+0xc>
movsd  0xe59(%rip),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsbl -0x11(%rbp),%eax
cmp    $0x2d,%eax
jne    11da <hex_to_double+0xba>
movsd  0xe47(%rip),%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
mov    (%rax),%al
mov    %al,-0x11(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x48(%rbp)
movsbl -0x11(%rbp),%eax
cmp    $0x2e,%eax
je     1203 <hex_to_double+0xe3>
movsd  -0x40(%rbp),%xmm0
mulsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    137f <hex_to_double+0x25f>
mov    -0x10(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
mov    (%rax),%al
mov    %al,-0x11(%rbp)
movsbl -0x11(%rbp),%edi
call   1040 <hexdig@plt>
mov    %eax,-0x2c(%rbp)
cmpl   $0x0,-0x2c(%rbp)
jge    123a <hex_to_double+0x11a>
jmp    123f <hex_to_double+0x11f>
jmp    120b <hex_to_double+0xeb>
mov    -0x10(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
cmp    -0x20(%rbp),%rax
jbe    129a <hex_to_double+0x17a>
mov    -0x28(%rbp),%rax
mov    %rax,%rcx
add    $0xffffffffffffffff,%rcx
mov    %rcx,-0x28(%rbp)
movsbl -0x1(%rax),%edi
call   1040 <hexdig@plt>
mov    %eax,-0x2c(%rbp)
cvtsi2sdl -0x2c(%rbp),%xmm0
addsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  0xd85(%rip),%xmm0
mulsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
jmp    124b <hex_to_double+0x12b>
movl   $0x0,-0x30(%rbp)
movsbl -0x11(%rbp),%eax
cmp    $0x78,%eax
je     12bb <hex_to_double+0x19b>
movsbl -0x11(%rbp),%eax
cmp    $0x58,%eax
jne    134d <hex_to_double+0x22d>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
mov    (%rax),%al
mov    %al,-0x11(%rbp)
movl   $0x1,-0x34(%rbp)
movsbl -0x11(%rbp),%eax
cmp    $0x2d,%eax
jne    12fe <hex_to_double+0x1de>
movl   $0xffffffff,-0x34(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
mov    (%rax),%al
mov    %al,-0x11(%rbp)
jmp    1303 <hex_to_double+0x1e3>
movsbl -0x11(%rbp),%edi
call   1040 <hexdig@plt>
mov    %eax,-0x2c(%rbp)
cmpl   $0x0,-0x2c(%rbp)
jge    131e <hex_to_double+0x1fe>
jmp    1343 <hex_to_double+0x223>
mov    -0x30(%rbp),%eax
shl    $0x4,%eax
add    -0x2c(%rbp),%eax
mov    %eax,-0x30(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
mov    (%rax),%al
mov    %al,-0x11(%rbp)
jmp    1303 <hex_to_double+0x1e3>
mov    -0x34(%rbp),%eax
imul   -0x30(%rbp),%eax
mov    %eax,-0x30(%rbp)
movsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x58(%rbp)
movsd  -0x48(%rbp),%xmm0
mov    -0x30(%rbp),%edi
call   1030 <ldexp@plt>
movaps %xmm0,%xmm1
movsd  -0x58(%rbp),%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x50(%rbp)
movsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<hex_to_double>:
push   %rbp
push   %r15
push   %r14
push   %rbx
sub    $0x18,%rsp
mov    %rdi,%r14
nopl   (%rax)
movzbl (%r14),%eax
add    $0x1,%r14
cmp    $0xc,%al
je     1130 <hex_to_double+0x10>
lea    -0x9(%rax),%ecx
cmp    $0x20,%al
je     1130 <hex_to_double+0x10>
cmp    $0x2,%cl
jb     1130 <hex_to_double+0x10>
cmp    $0xb,%al
je     1130 <hex_to_double+0x10>
cmp    $0x2d,%al
jne    1161 <hex_to_double+0x41>
mov    (%r14),%al
add    $0x1,%r14
movsd  0xea9(%rip),%xmm1
jmp    1169 <hex_to_double+0x49>
movsd  0xe97(%rip),%xmm1
xorpd  %xmm0,%xmm0
cmp    $0x2e,%al
jne    124c <hex_to_double+0x12c>
movsd  %xmm1,0x10(%rsp)
lea    0x2(%r14),%rbx
nop
movzbl -0x2(%rbx),%r15d
movsbl %r15b,%edi
call   1040 <hexdig@plt>
add    $0x1,%rbx
test   %eax,%eax
jns    1180 <hex_to_double+0x60>
lea    -0x3(%rbx),%rbp
xorpd  %xmm0,%xmm0
cmp    %r14,%rbp
jbe    11e1 <hex_to_double+0xc1>
xorpd  %xmm1,%xmm1
nopw   0x0(%rax,%rax,1)
movsd  %xmm1,0x8(%rsp)
movsbl -0x1(%rbp),%edi
add    $0xffffffffffffffff,%rbp
call   1040 <hexdig@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
addsd  0x8(%rsp),%xmm0
mulsd  0xe38(%rip),%xmm0
movapd %xmm0,%xmm1
cmp    %r14,%rbp
ja     11b0 <hex_to_double+0x90>
and    $0xdf,%r15b
xor    %ebp,%ebp
cmp    $0x58,%r15b
jne    123f <hex_to_double+0x11f>
mov    -0x2(%rbx),%al
cmp    $0x2d,%al
movsd  %xmm0,0x8(%rsp)
jne    1205 <hex_to_double+0xe5>
mov    -0x1(%rbx),%al
mov    $0xffffffff,%r14d
jmp    120f <hex_to_double+0xef>
add    $0xffffffffffffffff,%rbx
mov    $0x1,%r14d
movsbl %al,%edi
call   1040 <hexdig@plt>
xor    %ebp,%ebp
test   %eax,%eax
js     1235 <hex_to_double+0x115>
nopl   (%rax)
shl    $0x4,%ebp
add    %eax,%ebp
movsbl (%rbx),%edi
add    $0x1,%rbx
call   1040 <hexdig@plt>
test   %eax,%eax
jns    1220 <hex_to_double+0x100>
imul   %r14d,%ebp
movsd  0x8(%rsp),%xmm0
mov    %ebp,%edi
call   1030 <ldexp@plt>
movsd  0x10(%rsp),%xmm1
mulsd  %xmm0,%xmm1
movapd %xmm1,%xmm0
add    $0x18,%rsp
pop    %rbx
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define double @hex_to_double(i8* %0) {
br label %2
2: ; preds = %2, %1
%3 = phi i8* [ %0, %1 ], [ %4, %2 ]
%4 = getelementptr inbounds i8, i8* %3, i64 1
%5 = load i8, i8* %3
%6 = icmp eq i8 %5, 32
%7 = add i8 %5, -9
%8 = icmp ult i8 %7, 2
%9 = or i1 %6, %8
%10 = icmp eq i8 %5, 12
%11 = or i1 %10, %9
%12 = xor i1 %11, true
%13 = icmp ne i8 %5, 11
%14 = select i1 %12, i1 %13, i1 false
br i1 %14, label %15, label %2
15: ; preds = %2
%16 = icmp eq i8 %5, 45
br i1 %16, label %17, label %20
17: ; preds = %15
%18 = getelementptr inbounds i8, i8* %3, i64 2
%19 = load i8, i8* %4
br label %20
20: ; preds = %17, %15
%21 = phi i8 [ %19, %17 ], [ %5, %15 ]
%22 = phi i8* [ %18, %17 ], [ %4, %15 ]
%23 = phi double [ -1.000000e+00, %17 ], [ 1.000000e+00, %15 ]
%24 = icmp eq i8 %21, 46
br i1 %24, label %25, label %76
25: ; preds = %20, %25
%26 = phi i8* [ %27, %25 ], [ %22, %20 ]
%27 = getelementptr inbounds i8, i8* %26, i64 1
%28 = load i8, i8* %26
%29 = tail call i32 @hexdig(i8 signext %28)
%30 = icmp slt i32 %29, 0
br i1 %30, label %31, label %25
31: ; preds = %25
%32 = icmp ugt i8* %26, %22
br i1 %32, label %33, label %43
33: ; preds = %31, %33
%34 = phi double [ %41, %33 ], [ 0.000000e+00, %31 ]
%35 = phi i8* [ %36, %33 ], [ %26, %31 ]
%36 = getelementptr inbounds i8, i8* %35, i64 -1
%37 = load i8, i8* %36
%38 = tail call i32 @hexdig(i8 signext %37)
%39 = sitofp i32 %38 to double
%40 = fadd double %34, %39
%41 = fmul double %40, 6.250000e-02
%42 = icmp ugt i8* %36, %22
br i1 %42, label %33, label %43
43: ; preds = %33, %31
%44 = phi double [ 0.000000e+00, %31 ], [ %41, %33 ]
%45 = and i8 %28, -33
%46 = icmp eq i8 %45, 88
br i1 %46, label %47, label %73
47: ; preds = %43
%48 = getelementptr inbounds i8, i8* %26, i64 2
%49 = load i8, i8* %27
%50 = icmp eq i8 %49, 45
br i1 %50, label %51, label %54
51: ; preds = %47
%52 = getelementptr inbounds i8, i8* %26, i64 3
%53 = load i8, i8* %48
br label %54
54: ; preds = %51, %47
%55 = phi i8 [ %53, %51 ], [ %49, %47 ]
%56 = phi i8* [ %52, %51 ], [ %48, %47 ]
%57 = phi i32 [ -1, %51 ], [ 1, %47 ]
%58 = tail call i32 @hexdig(i8 signext %55)
%59 = icmp slt i32 %58, 0
br i1 %59, label %70, label %60
60: ; preds = %54, %60
%61 = phi i32 [ %68, %60 ], [ %58, %54 ]
%62 = phi i32 [ %65, %60 ], [ 0, %54 ]
%63 = phi i8* [ %66, %60 ], [ %56, %54 ]
%64 = shl i32 %62, 4
%65 = add nsw i32 %64, %61
%66 = getelementptr inbounds i8, i8* %63, i64 1
%67 = load i8, i8* %63
%68 = tail call i32 @hexdig(i8 signext %67)
%69 = icmp slt i32 %68, 0
br i1 %69, label %70, label %60
70: ; preds = %60, %54
%71 = phi i32 [ 0, %54 ], [ %65, %60 ]
%72 = mul nsw i32 %71, %57
br label %73
73: ; preds = %43, %70
%74 = phi i32 [ %72, %70 ], [ 0, %43 ]
%75 = tail call double @ldexp(double %44, i32 %74)
br label %76
76: ; preds = %20, %73
%77 = phi double [ %75, %73 ], [ 0.000000e+00, %20 ]
%78 = fmul double %23, %77
ret double %78
}