#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 */
scalar_t__ qe_isdigit(unsigned int const);
scalar_t__ qe_isxdigit(unsigned int const);
int perl_number(const unsigned int *str, int j, __attribute__((unused)) int n) {
  if (str[j] == '0') {
    j++;
    if (str[j] == 'x' || str[j] == 'X') {
      do {
        j++;
      } while (qe_isxdigit(str[j]));
      return j;
    }
    if (str[j] >= '0' && str[j] <= '7') {
      do {
        j++;
      } while (str[j] >= '0' && str[j] <= '7');
      return j;
    }
  }
  while (qe_isdigit(str[j]))
    j++;
  if (str[j] == '.')
    do {
      j++;
    } while (qe_isdigit(str[j]));
  if (str[j] == 'E' || str[j] == 'e') {
    j++;
    if (str[j] == '-' || str[j] == '+')
      j++;
    while (qe_isdigit(str[j]))
      j++;
  }
  return j;
}


x86 assembly (clang, -O0):
<perl_number>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %edx,-0x18(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
cmpl   $0x30,(%rax,%rcx,4)
jne    121a <perl_number+0xfa>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
cmpl   $0x78,(%rax,%rcx,4)
je     1171 <perl_number+0x51>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
cmpl   $0x58,(%rax,%rcx,4)
jne    11a4 <perl_number+0x84>
jmp    1176 <perl_number+0x56>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
mov    (%rax,%rcx,4),%edi
call   1040 <qe_isxdigit@plt>
cmp    $0x0,%rax
jne    1176 <perl_number+0x56>
mov    -0x14(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    1318 <perl_number+0x1f8>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
cmpl   $0x30,(%rax,%rcx,4)
jb     1215 <perl_number+0xf5>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
cmpl   $0x37,(%rax,%rcx,4)
ja     1215 <perl_number+0xf5>
jmp    11cd <perl_number+0xad>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x10(%rbp),%rcx
movslq -0x14(%rbp),%rdx
xor    %eax,%eax
cmpl   $0x30,(%rcx,%rdx,4)
mov    %al,-0x19(%rbp)
jb     11ff <perl_number+0xdf>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
cmpl   $0x37,(%rax,%rcx,4)
setbe  %al
mov    %al,-0x19(%rbp)
mov    -0x19(%rbp),%al
test   $0x1,%al
jne    11cd <perl_number+0xad>
mov    -0x14(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    1318 <perl_number+0x1f8>
jmp    121a <perl_number+0xfa>
jmp    121f <perl_number+0xff>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
mov    (%rax,%rcx,4),%edi
call   1030 <qe_isdigit@plt>
cmp    $0x0,%rax
je     1247 <perl_number+0x127>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    121f <perl_number+0xff>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
cmpl   $0x2e,(%rax,%rcx,4)
jne    1286 <perl_number+0x166>
jmp    125e <perl_number+0x13e>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
mov    (%rax,%rcx,4),%edi
call   1030 <qe_isdigit@plt>
cmp    $0x0,%rax
jne    125e <perl_number+0x13e>
jmp    1286 <perl_number+0x166>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
cmpl   $0x45,(%rax,%rcx,4)
je     12aa <perl_number+0x18a>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
cmpl   $0x65,(%rax,%rcx,4)
jne    1312 <perl_number+0x1f2>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
cmpl   $0x2d,(%rax,%rcx,4)
je     12d7 <perl_number+0x1b7>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
cmpl   $0x2b,(%rax,%rcx,4)
jne    12e0 <perl_number+0x1c0>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    12e5 <perl_number+0x1c5>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
mov    (%rax,%rcx,4),%edi
call   1030 <qe_isdigit@plt>
cmp    $0x0,%rax
je     130d <perl_number+0x1ed>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    12e5 <perl_number+0x1c5>
jmp    1312 <perl_number+0x1f2>
mov    -0x14(%rbp),%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<perl_number>:
push   %r15
push   %r14
push   %r12
push   %rbx
push   %rax
mov    %rdi,%r14
movslq %esi,%rbx
cmpl   $0x30,(%rdi,%rbx,4)
jne    1186 <perl_number+0x66>
movslq %esi,%rbx
mov    0x4(%r14,%rbx,4),%eax
add    $0x1,%rbx
mov    %eax,%ecx
or     $0x20,%ecx
cmp    $0x78,%ecx
jne    1168 <perl_number+0x48>
nopw   0x0(%rax,%rax,1)
mov    0x4(%r14,%rbx,4),%edi
add    $0x1,%rbx
call   1040 <qe_isxdigit@plt>
test   %rax,%rax
jne    1150 <perl_number+0x30>
jmp    1253 <perl_number+0x133>
and    $0xfffffff8,%eax
cmp    $0x30,%eax
jne    1186 <perl_number+0x66>
mov    0x4(%r14,%rbx,4),%eax
add    $0x1,%rbx
and    $0xfffffff8,%eax
cmp    $0x30,%eax
je     1170 <perl_number+0x50>
jmp    1253 <perl_number+0x133>
movabs $0x100000000,%r15
lea    -0x1(%rbx),%rax
shl    $0x20,%rbx
movabs $0xffffffff00000000,%r12
ff ff ff
add    %rbx,%r12
mov    %rax,%rbx
nopl   0x0(%rax,%rax,1)
mov    0x4(%r14,%rbx,4),%edi
call   1030 <qe_isdigit@plt>
add    $0x1,%rbx
add    %r15,%r12
test   %rax,%rax
jne    11b0 <perl_number+0x90>
cmpl   $0x2e,(%r14,%rbx,4)
jne    11f3 <perl_number+0xd3>
sar    $0x20,%r12
mov    %r12,%rbx
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    0x4(%r14,%rbx,4),%edi
add    $0x1,%rbx
call   1030 <qe_isdigit@plt>
test   %rax,%rax
jne    11e0 <perl_number+0xc0>
movslq %ebx,%rax
mov    (%r14,%rax,4),%eax
or     $0x20,%eax
cmp    $0x65,%eax
jne    1253 <perl_number+0x133>
mov    %rbx,%rax
shl    $0x20,%rax
add    %r15,%rax
mov    %rax,%rcx
sar    $0x1e,%rcx
mov    (%r14,%rcx,1),%ecx
cmp    $0x2d,%ecx
je     1221 <perl_number+0x101>
cmp    $0x2b,%ecx
jne    1229 <perl_number+0x109>
add    $0x2,%ebx
movslq %ebx,%rbx
jmp    1230 <perl_number+0x110>
sar    $0x20,%rax
mov    %rax,%rbx
add    $0xffffffffffffffff,%rbx
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    0x4(%r14,%rbx,4),%edi
call   1030 <qe_isdigit@plt>
add    $0x1,%rbx
test   %rax,%rax
jne    1240 <perl_number+0x120>
mov    %ebx,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
define i32 @perl_number(i32* %0, i32 %1, i32 %2) {
%4 = alloca i32
%5 = alloca i32*
%6 = alloca i32
%7 = alloca i32
store i32* %0, i32** %5
store i32 %1, i32* %6
store i32 %2, i32* %7
%8 = load i32*, i32** %5
%9 = load i32, i32* %6
%10 = sext i32 %9 to i64
%11 = getelementptr inbounds i32, i32* %8, i64 %10
%12 = load i32, i32* %11
%13 = icmp eq i32 %12, 48
br i1 %13, label %14, label %81
14: ; preds = %3
%15 = load i32, i32* %6
%16 = add nsw i32 %15, 1
store i32 %16, i32* %6
%17 = load i32*, i32** %5
%18 = load i32, i32* %6
%19 = sext i32 %18 to i64
%20 = getelementptr inbounds i32, i32* %17, i64 %19
%21 = load i32, i32* %20
%22 = icmp eq i32 %21, 120
br i1 %22, label %30, label %23
23: ; preds = %14
%24 = load i32*, i32** %5
%25 = load i32, i32* %6
%26 = sext i32 %25 to i64
%27 = getelementptr inbounds i32, i32* %24, i64 %26
%28 = load i32, i32* %27
%29 = icmp eq i32 %28, 88
br i1 %29, label %30, label %44
30: ; preds = %23, %14
br label %31
31: ; preds = %34, %30
%32 = load i32, i32* %6
%33 = add nsw i32 %32, 1
store i32 %33, i32* %6
br label %34
34: ; preds = %31
%35 = load i32*, i32** %5
%36 = load i32, i32* %6
%37 = sext i32 %36 to i64
%38 = getelementptr inbounds i32, i32* %35, i64 %37
%39 = load i32, i32* %38
%40 = call i64 @qe_isxdigit(i32 %39)
%41 = icmp ne i64 %40, 0
br i1 %41, label %31, label %42
42: ; preds = %34
%43 = load i32, i32* %6
store i32 %43, i32* %4
br label %161
44: ; preds = %23
%45 = load i32*, i32** %5
%46 = load i32, i32* %6
%47 = sext i32 %46 to i64
%48 = getelementptr inbounds i32, i32* %45, i64 %47
%49 = load i32, i32* %48
%50 = icmp uge i32 %49, 48
br i1 %50, label %51, label %80
51: ; preds = %44
%52 = load i32*, i32** %5
%53 = load i32, i32* %6
%54 = sext i32 %53 to i64
%55 = getelementptr inbounds i32, i32* %52, i64 %54
%56 = load i32, i32* %55
%57 = icmp ule i32 %56, 55
br i1 %57, label %58, label %80
58: ; preds = %51
br label %59
59: ; preds = %76, %58
%60 = load i32, i32* %6
%61 = add nsw i32 %60, 1
store i32 %61, i32* %6
br label %62
62: ; preds = %59
%63 = load i32*, i32** %5
%64 = load i32, i32* %6
%65 = sext i32 %64 to i64
%66 = getelementptr inbounds i32, i32* %63, i64 %65
%67 = load i32, i32* %66
%68 = icmp uge i32 %67, 48
br i1 %68, label %69, label %76
69: ; preds = %62
%70 = load i32*, i32** %5
%71 = load i32, i32* %6
%72 = sext i32 %71 to i64
%73 = getelementptr inbounds i32, i32* %70, i64 %72
%74 = load i32, i32* %73
%75 = icmp ule i32 %74, 55
br label %76
76: ; preds = %69, %62
%77 = phi i1 [ false, %62 ], [ %75, %69 ]
br i1 %77, label %59, label %78
78: ; preds = %76
%79 = load i32, i32* %6
store i32 %79, i32* %4
br label %161
80: ; preds = %51, %44
br label %81
81: ; preds = %80, %3
br label %82
82: ; preds = %90, %81
%83 = load i32*, i32** %5
%84 = load i32, i32* %6
%85 = sext i32 %84 to i64
%86 = getelementptr inbounds i32, i32* %83, i64 %85
%87 = load i32, i32* %86
%88 = call i64 @qe_isdigit(i32 %87)
%89 = icmp ne i64 %88, 0
br i1 %89, label %90, label %93
90: ; preds = %82
%91 = load i32, i32* %6
%92 = add nsw i32 %91, 1
store i32 %92, i32* %6
br label %82
93: ; preds = %82
%94 = load i32*, i32** %5
%95 = load i32, i32* %6
%96 = sext i32 %95 to i64
%97 = getelementptr inbounds i32, i32* %94, i64 %96
%98 = load i32, i32* %97
%99 = icmp eq i32 %98, 46
br i1 %99, label %100, label %113
100: ; preds = %93
br label %101
101: ; preds = %104, %100
%102 = load i32, i32* %6
%103 = add nsw i32 %102, 1
store i32 %103, i32* %6
br label %104
104: ; preds = %101
%105 = load i32*, i32** %5
%106 = load i32, i32* %6
%107 = sext i32 %106 to i64
%108 = getelementptr inbounds i32, i32* %105, i64 %107
%109 = load i32, i32* %108
%110 = call i64 @qe_isdigit(i32 %109)
%111 = icmp ne i64 %110, 0
br i1 %111, label %101, label %112
112: ; preds = %104
br label %113
113: ; preds = %112, %93
%114 = load i32*, i32** %5
%115 = load i32, i32* %6
%116 = sext i32 %115 to i64
%117 = getelementptr inbounds i32, i32* %114, i64 %116
%118 = load i32, i32* %117
%119 = icmp eq i32 %118, 69
br i1 %119, label %127, label %120
120: ; preds = %113
%121 = load i32*, i32** %5
%122 = load i32, i32* %6
%123 = sext i32 %122 to i64
%124 = getelementptr inbounds i32, i32* %121, i64 %123
%125 = load i32, i32* %124
%126 = icmp eq i32 %125, 101
br i1 %126, label %127, label %159
127: ; preds = %120, %113
%128 = load i32, i32* %6
%129 = add nsw i32 %128, 1
store i32 %129, i32* %6
%130 = load i32*, i32** %5
%131 = load i32, i32* %6
%132 = sext i32 %131 to i64
%133 = getelementptr inbounds i32, i32* %130, i64 %132
%134 = load i32, i32* %133
%135 = icmp eq i32 %134, 45
br i1 %135, label %143, label %136
136: ; preds = %127
%137 = load i32*, i32** %5
%138 = load i32, i32* %6
%139 = sext i32 %138 to i64
%140 = getelementptr inbounds i32, i32* %137, i64 %139
%141 = load i32, i32* %140
%142 = icmp eq i32 %141, 43
br i1 %142, label %143, label %146
143: ; preds = %136, %127
%144 = load i32, i32* %6
%145 = add nsw i32 %144, 1
store i32 %145, i32* %6
br label %146
146: ; preds = %143, %136
br label %147
147: ; preds = %155, %146
%148 = load i32*, i32** %5
%149 = load i32, i32* %6
%150 = sext i32 %149 to i64
%151 = getelementptr inbounds i32, i32* %148, i64 %150
%152 = load i32, i32* %151
%153 = call i64 @qe_isdigit(i32 %152)
%154 = icmp ne i64 %153, 0
br i1 %154, label %155, label %158
155: ; preds = %147
%156 = load i32, i32* %6
%157 = add nsw i32 %156, 1
store i32 %157, i32* %6
br label %147
158: ; preds = %147
br label %159
159: ; preds = %158, %120
%160 = load i32, i32* %6
store i32 %160, i32* %4
br label %161
161: ; preds = %159, %78, %42
%162 = load i32, i32* %4
ret i32 %162
}

LLVM IR (-O2):
define i32 @perl_number(i32* nocapture %0, i32 %1, i32 %2) {
%4 = sext i32 %1 to i64
%5 = getelementptr inbounds i32, i32* %0, i64 %4
%6 = load i32, i32* %5
%7 = icmp eq i32 %6, 48
br i1 %7, label %10, label %8
8: ; preds = %23, %3
%9 = phi i64 [ %4, %3 ], [ %12, %23 ]
br label %33
10: ; preds = %3
%11 = add nsw i32 %1, 1
%12 = sext i32 %11 to i64
%13 = getelementptr inbounds i32, i32* %0, i64 %12
%14 = load i32, i32* %13
switch i32 %14, label %23 [
i32 120, label %15
i32 88, label %15
]
15: ; preds = %10, %10
br label %16
16: ; preds = %15, %16
%17 = phi i64 [ %18, %16 ], [ %12, %15 ]
%18 = add i64 %17, 1
%19 = getelementptr inbounds i32, i32* %0, i64 %18
%20 = load i32, i32* %19
%21 = tail call i64 @qe_isxdigit(i32 %20)
%22 = icmp eq i64 %21, 0
br i1 %22, label %79, label %16
23: ; preds = %10
%24 = and i32 %14, -8
%25 = icmp eq i32 %24, 48
br i1 %25, label %26, label %8
26: ; preds = %23, %26
%27 = phi i64 [ %28, %26 ], [ %12, %23 ]
%28 = add i64 %27, 1
%29 = getelementptr inbounds i32, i32* %0, i64 %28
%30 = load i32, i32* %29
%31 = and i32 %30, -8
%32 = icmp eq i32 %31, 48
br i1 %32, label %26, label %79
33: ; preds = %8, %33
%34 = phi i64 [ %39, %33 ], [ %9, %8 ]
%35 = getelementptr inbounds i32, i32* %0, i64 %34
%36 = load i32, i32* %35
%37 = tail call i64 @qe_isdigit(i32 %36)
%38 = icmp eq i64 %37, 0
%39 = add i64 %34, 1
br i1 %38, label %40, label %33
40: ; preds = %33
%41 = getelementptr inbounds i32, i32* %0, i64 %34
%42 = load i32, i32* %41
%43 = icmp eq i32 %42, 46
br i1 %43, label %44, label %54
44: ; preds = %40
%45 = shl i64 %34, 32
%46 = ashr exact i64 %45, 32
br label %47
47: ; preds = %44, %47
%48 = phi i64 [ %46, %44 ], [ %49, %47 ]
%49 = add i64 %48, 1
%50 = getelementptr inbounds i32, i32* %0, i64 %49
%51 = load i32, i32* %50
%52 = tail call i64 @qe_isdigit(i32 %51)
%53 = icmp eq i64 %52, 0
br i1 %53, label %54, label %47
54: ; preds = %47, %40
%55 = phi i64 [ %34, %40 ], [ %49, %47 ]
%56 = shl i64 %55, 32
%57 = ashr exact i64 %56, 32
%58 = getelementptr inbounds i32, i32* %0, i64 %57
%59 = load i32, i32* %58
switch i32 %59, label %79 [
i32 69, label %60
i32 101, label %60
]
60: ; preds = %54, %54
%61 = shl i64 %55, 32
%62 = add i64 %61, 4294967296
%63 = ashr exact i64 %62, 32
%64 = getelementptr inbounds i32, i32* %0, i64 %63
%65 = load i32, i32* %64
switch i32 %65, label %70 [
i32 45, label %66
i32 43, label %66
]
66: ; preds = %60, %60
%67 = shl i64 %55, 32
%68 = add i64 %67, 8589934592
%69 = ashr exact i64 %68, 32
br label %70
70: ; preds = %60, %66
%71 = phi i64 [ %69, %66 ], [ %63, %60 ]
br label %72
72: ; preds = %70, %72
%73 = phi i64 [ %78, %72 ], [ %71, %70 ]
%74 = getelementptr inbounds i32, i32* %0, i64 %73
%75 = load i32, i32* %74
%76 = tail call i64 @qe_isdigit(i32 %75)
%77 = icmp eq i64 %76, 0
%78 = add i64 %73, 1
br i1 %77, label %79, label %72
79: ; preds = %16, %72, %26, %54
%80 = phi i64 [ %55, %54 ], [ %28, %26 ], [ %73, %72 ], [ %18, %16 ]
%81 = trunc i64 %80 to i32
ret i32 %81
}