#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_isalnum_(unsigned int const);
scalar_t__ qe_isalpha_(unsigned int const);
scalar_t__ qe_isdigit(unsigned int const);
int perl_var(const unsigned int *str, int j, int n) {
  if (qe_isdigit(str[j]))
    return j;
  for (; j < n; j++) {
    if (qe_isalnum_(str[j]))
      continue;
    if (str[j] == '\'' && qe_isalpha_(str[j + 1]))
      j++;
    else
      break;
  }
  return j;
}


x86 assembly (clang, -O0):
<perl_var>:
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
mov    (%rax,%rcx,4),%edi
call   1040 <qe_isdigit@plt>
cmp    $0x0,%rax
je     1167 <perl_var+0x37>
mov    -0x14(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    11f4 <perl_var+0xc4>
jmp    116c <perl_var+0x3c>
mov    -0x14(%rbp),%eax
cmp    -0x18(%rbp),%eax
jge    11ee <perl_var+0xbe>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
mov    (%rax,%rcx,4),%edi
call   1030 <qe_isalnum_@plt>
cmp    $0x0,%rax
je     1197 <perl_var+0x67>
jmp    11e0 <perl_var+0xb0>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
cmpl   $0x27,(%rax,%rcx,4)
jne    11d6 <perl_var+0xa6>
mov    -0x10(%rbp),%rax
mov    -0x14(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,4),%edi
call   1050 <qe_isalpha_@plt>
cmp    $0x0,%rax
je     11d6 <perl_var+0xa6>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    11db <perl_var+0xab>
jmp    11ee <perl_var+0xbe>
jmp    11e0 <perl_var+0xb0>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    116c <perl_var+0x3c>
mov    -0x14(%rbp),%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<perl_var>:
push   %rbp
push   %r15
push   %r14
push   %rbx
push   %rax
mov    %edx,%r14d
mov    %esi,%ebx
mov    %rdi,%r15
movslq %esi,%rax
mov    (%rdi,%rax,4),%edi
call   1040 <qe_isdigit@plt>
test   %rax,%rax
je     1163 <perl_var+0x33>
mov    %ebx,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r14
pop    %r15
pop    %rbp
ret
nopl   0x0(%rax)
add    $0x1,%ebx
cmp    %r14d,%ebx
jge    114f <perl_var+0x1f>
movslq %ebx,%rbp
mov    (%r15,%rbp,4),%edi
call   1030 <qe_isalnum_@plt>
test   %rax,%rax
jne    1160 <perl_var+0x30>
cmpl   $0x27,(%r15,%rbp,4)
jne    114f <perl_var+0x1f>
mov    0x4(%r15,%rbp,4),%edi
call   1050 <qe_isalpha_@plt>
test   %rax,%rax
je     114f <perl_var+0x1f>
add    $0x1,%ebx
jmp    1160 <perl_var+0x30>

LLVM IR (-O0):
define i32 @perl_var(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 = call i64 @qe_isdigit(i32 %12)
%14 = icmp ne i64 %13, 0
br i1 %14, label %15, label %17
15: ; preds = %3
%16 = load i32, i32* %6
store i32 %16, i32* %4
br label %57
17: ; preds = %3
br label %18
18: ; preds = %52, %17
%19 = load i32, i32* %6
%20 = load i32, i32* %7
%21 = icmp slt i32 %19, %20
br i1 %21, label %22, label %55
22: ; preds = %18
%23 = load i32*, i32** %5
%24 = load i32, i32* %6
%25 = sext i32 %24 to i64
%26 = getelementptr inbounds i32, i32* %23, i64 %25
%27 = load i32, i32* %26
%28 = call i64 @qe_isalnum_(i32 %27)
%29 = icmp ne i64 %28, 0
br i1 %29, label %30, label %31
30: ; preds = %22
br label %52
31: ; preds = %22
%32 = load i32*, i32** %5
%33 = load i32, i32* %6
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds i32, i32* %32, i64 %34
%36 = load i32, i32* %35
%37 = icmp eq i32 %36, 39
br i1 %37, label %38, label %50
38: ; preds = %31
%39 = load i32*, i32** %5
%40 = load i32, i32* %6
%41 = add nsw i32 %40, 1
%42 = sext i32 %41 to i64
%43 = getelementptr inbounds i32, i32* %39, i64 %42
%44 = load i32, i32* %43
%45 = call i64 @qe_isalpha_(i32 %44)
%46 = icmp ne i64 %45, 0
br i1 %46, label %47, label %50
47: ; preds = %38
%48 = load i32, i32* %6
%49 = add nsw i32 %48, 1
store i32 %49, i32* %6
br label %51
50: ; preds = %38, %31
br label %55
51: ; preds = %47
br label %52
52: ; preds = %51, %30
%53 = load i32, i32* %6
%54 = add nsw i32 %53, 1
store i32 %54, i32* %6
br label %18
55: ; preds = %50, %18
%56 = load i32, i32* %6
store i32 %56, i32* %4
br label %57
57: ; preds = %55, %15
%58 = load i32, i32* %4
ret i32 %58
}

LLVM IR (-O2):
define i32 @perl_var(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 = tail call i64 @qe_isdigit(i32 %6)
%8 = icmp eq i64 %7, 0
%9 = icmp slt i32 %1, %2
%10 = and i1 %8, %9
br i1 %10, label %11, label %32
11: ; preds = %3, %28
%12 = phi i32 [ %30, %28 ], [ %1, %3 ]
%13 = sext i32 %12 to i64
%14 = getelementptr inbounds i32, i32* %0, i64 %13
%15 = load i32, i32* %14
%16 = tail call i64 @qe_isalnum_(i32 %15)
%17 = icmp eq i64 %16, 0
br i1 %17, label %18, label %28
18: ; preds = %11
%19 = load i32, i32* %14
%20 = icmp eq i32 %19, 39
br i1 %20, label %21, label %32
21: ; preds = %18
%22 = add nsw i32 %12, 1
%23 = sext i32 %22 to i64
%24 = getelementptr inbounds i32, i32* %0, i64 %23
%25 = load i32, i32* %24
%26 = tail call i64 @qe_isalpha_(i32 %25)
%27 = icmp eq i64 %26, 0
br i1 %27, label %32, label %28
28: ; preds = %21, %11
%29 = phi i32 [ %12, %11 ], [ %22, %21 ]
%30 = add nsw i32 %29, 1
%31 = icmp slt i32 %30, %2
br i1 %31, label %11, label %32
32: ; preds = %18, %21, %28, %3
%33 = phi i32 [ %1, %3 ], [ %12, %18 ], [ %12, %21 ], [ %30, %28 ]
ret i32 %33
}