#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 */
char *bracket_end(char *);
int /*<<< orphan*/ luaL_verror(char *, char);
int /*<<< orphan*/ lua_error(char *);
int matchclass(int, unsigned char);
int luaI_singlematch(int c, char *p, char **ep) {
  switch (*p) {
  case '.':
    *ep = p + 1;
    return 1;
  case '\0':
    *ep = p;
    return 0;
  case '%':
    if (*(++p) == '\0')
      luaL_verror("incorrect pattern (ends with `%c')", '%');
    *ep = p + 1;
    return matchclass(c, (unsigned char)*p);
  case '[': {
    char *end = bracket_end(p + 1);
    int sig = *(p + 1) == '^' ? (p++, 0) : 1;
    if (end == NULL)
      lua_error("incorrect pattern (missing `]')");
    *ep = end + 1;
    while (++p < end) {
      if (*p == '%') {
        if (((p + 1) < end) && matchclass(c, (unsigned char)*++p))
          return sig;
      } else if ((*(p + 1) == '-') && (p + 2 < end)) {
        p += 2;
        if ((unsigned char)*(p - 2) <= c && c <= (unsigned char)*p)
          return sig;
      } else if ((unsigned char)*p == c)
        return sig;
    }
    return !sig;
  }
  default:
    *ep = p + 1;
    return ((unsigned char)*p == c);
  }
}


x86 assembly (clang, -O0):
<luaI_singlematch>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %edi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
mov    %eax,-0x28(%rbp)
test   %eax,%eax
je     11b8 <luaI_singlematch+0x78>
jmp    116a <luaI_singlematch+0x2a>
mov    -0x28(%rbp),%eax
sub    $0x25,%eax
je     11cf <luaI_singlematch+0x8f>
jmp    117b <luaI_singlematch+0x3b>
mov    -0x28(%rbp),%eax
sub    $0x2e,%eax
je     119d <luaI_singlematch+0x5d>
jmp    118c <luaI_singlematch+0x4c>
mov    -0x28(%rbp),%eax
sub    $0x5b,%eax
je     1222 <luaI_singlematch+0xe2>
jmp    13a1 <luaI_singlematch+0x261>
mov    -0x10(%rbp),%rcx
add    $0x1,%rcx
mov    -0x18(%rbp),%rax
mov    %rcx,(%rax)
movl   $0x1,-0x4(%rbp)
jmp    13c5 <luaI_singlematch+0x285>
mov    -0x10(%rbp),%rcx
mov    -0x18(%rbp),%rax
mov    %rcx,(%rax)
movl   $0x0,-0x4(%rbp)
jmp    13c5 <luaI_singlematch+0x285>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movsbl 0x1(%rax),%eax
cmp    $0x0,%eax
jne    11fc <luaI_singlematch+0xbc>
lea    0xe0e(%rip),%rdi
mov    $0x25,%esi
call   1040 <luaL_verror@plt>
mov    -0x10(%rbp),%rcx
add    $0x1,%rcx
mov    -0x18(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x8(%rbp),%edi
mov    -0x10(%rbp),%rax
movzbl (%rax),%esi
call   1060 <matchclass@plt>
mov    %eax,-0x4(%rbp)
jmp    13c5 <luaI_singlematch+0x285>
mov    -0x10(%rbp),%rdi
add    $0x1,%rdi
call   1030 <bracket_end@plt>
mov    %rax,-0x20(%rbp)
mov    -0x10(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x5e,%eax
jne    125a <luaI_singlematch+0x11a>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
xor    %eax,%eax
mov    %eax,-0x2c(%rbp)
jmp    1267 <luaI_singlematch+0x127>
mov    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1267 <luaI_singlematch+0x127>
mov    -0x2c(%rbp),%eax
mov    %eax,-0x24(%rbp)
cmpq   $0x0,-0x20(%rbp)
jne    1284 <luaI_singlematch+0x144>
lea    0xda4(%rip),%rdi
call   1050 <lua_error@plt>
mov    -0x20(%rbp),%rcx
add    $0x1,%rcx
mov    -0x18(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
cmp    -0x20(%rbp),%rax
jae    138b <luaI_singlematch+0x24b>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x25,%eax
jne    12ff <luaI_singlematch+0x1bf>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
cmp    -0x20(%rbp),%rax
jae    12fa <luaI_singlematch+0x1ba>
mov    -0x8(%rbp),%edi
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movzbl 0x1(%rax),%esi
call   1060 <matchclass@plt>
cmp    $0x0,%eax
je     12fa <luaI_singlematch+0x1ba>
mov    -0x24(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    13c5 <luaI_singlematch+0x285>
jmp    1386 <luaI_singlematch+0x246>
mov    -0x10(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x2d,%eax
jne    1361 <luaI_singlematch+0x221>
mov    -0x10(%rbp),%rax
add    $0x2,%rax
cmp    -0x20(%rbp),%rax
jae    1361 <luaI_singlematch+0x221>
mov    -0x10(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movzbl -0x2(%rax),%eax
cmp    -0x8(%rbp),%eax
jg     135c <luaI_singlematch+0x21c>
mov    -0x8(%rbp),%eax
mov    -0x10(%rbp),%rcx
movzbl (%rcx),%ecx
cmp    %ecx,%eax
jg     135c <luaI_singlematch+0x21c>
mov    -0x24(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    13c5 <luaI_singlematch+0x285>
jmp    1381 <luaI_singlematch+0x241>
mov    -0x10(%rbp),%rax
movzbl (%rax),%eax
cmp    -0x8(%rbp),%eax
jne    137c <luaI_singlematch+0x23c>
mov    -0x24(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    13c5 <luaI_singlematch+0x285>
jmp    1381 <luaI_singlematch+0x241>
jmp    1386 <luaI_singlematch+0x246>
jmp    1293 <luaI_singlematch+0x153>
cmpl   $0x0,-0x24(%rbp)
setne  %al
xor    $0xff,%al
and    $0x1,%al
movzbl %al,%eax
mov    %eax,-0x4(%rbp)
jmp    13c5 <luaI_singlematch+0x285>
mov    -0x10(%rbp),%rcx
add    $0x1,%rcx
mov    -0x18(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x10(%rbp),%rax
movzbl (%rax),%eax
cmp    -0x8(%rbp),%eax
sete   %al
and    $0x1,%al
movzbl %al,%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<luaI_singlematch>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %rdx,%r12
mov    %rsi,%rbx
mov    %edi,%r14d
movsbl (%rsi),%eax
cmp    $0x2d,%eax
jg     11a2 <luaI_singlematch+0x62>
test   %eax,%eax
je     11c3 <luaI_singlematch+0x83>
cmp    $0x25,%eax
jne    1286 <luaI_singlematch+0x146>
cmpb   $0x0,0x1(%rbx)
jne    1180 <luaI_singlematch+0x40>
lea    0xe8a(%rip),%rdi
mov    $0x25,%esi
call   1040 <luaL_verror@plt>
lea    0x2(%rbx),%rax
mov    %rax,(%r12)
movzbl 0x1(%rbx),%esi
mov    %r14d,%edi
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
jmp    1060 <matchclass@plt>
cmp    $0x5b,%eax
je     11cf <luaI_singlematch+0x8f>
cmp    $0x2e,%eax
jne    1286 <luaI_singlematch+0x146>
add    $0x1,%rbx
mov    %rbx,(%r12)
mov    $0x1,%r15d
jmp    12a5 <luaI_singlematch+0x165>
mov    %rbx,(%r12)
xor    %r15d,%r15d
jmp    12a5 <luaI_singlematch+0x165>
lea    0x1(%rbx),%rbp
mov    %rbp,%rdi
call   1030 <bracket_end@plt>
mov    %rax,%r13
mov    0x1(%rbx),%al
xor    %r15d,%r15d
mov    %al,0x7(%rsp)
cmp    $0x5e,%al
setne  %dl
cmove  %rbp,%rbx
test   %r13,%r13
jne    1206 <luaI_singlematch+0xc6>
lea    0xe26(%rip),%rdi
mov    %edx,%ebp
call   1050 <lua_error@plt>
mov    %ebp,%edx
lea    0x1(%r13),%rax
mov    %rax,(%r12)
lea    0x1(%rbx),%rcx
cmp    %r13,%rcx
jae    1299 <luaI_singlematch+0x159>
mov    %dl,%r15b
jmp    1235 <luaI_singlematch+0xf5>
cmp    %r14d,%eax
je     12a5 <luaI_singlematch+0x165>
mov    %rcx,%rbx
add    $0x1,%rcx
cmp    %r13,%rcx
jae    1299 <luaI_singlematch+0x159>
movzbl 0x1(%rbx),%eax
lea    0x2(%rbx),%rbp
cmp    $0x25,%eax
jne    1260 <luaI_singlematch+0x120>
cmp    %r13,%rbp
jae    1229 <luaI_singlematch+0xe9>
movzbl 0x0(%rbp),%esi
mov    %r14d,%edi
call   1060 <matchclass@plt>
mov    %rbp,%rcx
test   %eax,%eax
je     1229 <luaI_singlematch+0xe9>
jmp    12a5 <luaI_singlematch+0x165>
nopl   0x0(%rax)
cmpb   $0x2d,0x0(%rbp)
jne    1220 <luaI_singlematch+0xe0>
add    $0x3,%rbx
cmp    %r13,%rbx
jae    1220 <luaI_singlematch+0xe0>
cmp    %r14d,%eax
jle    1279 <luaI_singlematch+0x139>
mov    %rbx,%rcx
jmp    1229 <luaI_singlematch+0xe9>
movzbl (%rbx),%eax
mov    %rbx,%rcx
cmp    %r14d,%eax
jl     1229 <luaI_singlematch+0xe9>
jmp    12a5 <luaI_singlematch+0x165>
lea    0x1(%rbx),%rax
mov    %rax,(%r12)
movzbl (%rbx),%eax
xor    %r15d,%r15d
cmp    %r14d,%eax
jmp    12a1 <luaI_singlematch+0x161>
xor    %r15d,%r15d
cmpb   $0x5e,0x7(%rsp)
sete   %r15b
mov    %r15d,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [35 x i8] c"incorrect pattern (ends with `%c')\00"
@.str.1 = [32 x i8] c"incorrect pattern (missing `]')\00"
define i32 @luaI_singlematch(i32 %0, i8* %1, i8** %2) {
%4 = alloca i32
%5 = alloca i32
%6 = alloca i8*
%7 = alloca i8**
%8 = alloca i8*
%9 = alloca i32
store i32 %0, i32* %5
store i8* %1, i8** %6
store i8** %2, i8*** %7
%10 = load i8*, i8** %6
%11 = load i8, i8* %10
%12 = sext i8 %11 to i32
switch i32 %12, label %129 [
i32 46, label %13
i32 0, label %17
i32 37, label %20
i32 91, label %36
]
13: ; preds = %3
%14 = load i8*, i8** %6
%15 = getelementptr inbounds i8, i8* %14, i64 1
%16 = load i8**, i8*** %7
store i8* %15, i8** %16
store i32 1, i32* %4
br label %139
17: ; preds = %3
%18 = load i8*, i8** %6
%19 = load i8**, i8*** %7
store i8* %18, i8** %19
store i32 0, i32* %4
br label %139
20: ; preds = %3
%21 = load i8*, i8** %6
%22 = getelementptr inbounds i8, i8* %21, i32 1
store i8* %22, i8** %6
%23 = load i8, i8* %22
%24 = sext i8 %23 to i32
%25 = icmp eq i32 %24, 0
br i1 %25, label %26, label %28
26: ; preds = %20
%27 = call i32 @luaL_verror(i8* getelementptr inbounds ([35 x i8], [35 x i8]* @.str, i64 0, i64 0), i8 signext 37)
br label %28
28: ; preds = %26, %20
%29 = load i8*, i8** %6
%30 = getelementptr inbounds i8, i8* %29, i64 1
%31 = load i8**, i8*** %7
store i8* %30, i8** %31
%32 = load i32, i32* %5
%33 = load i8*, i8** %6
%34 = load i8, i8* %33
%35 = call i32 @matchclass(i32 %32, i8 zeroext %34)
store i32 %35, i32* %4
br label %139
36: ; preds = %3
%37 = load i8*, i8** %6
%38 = getelementptr inbounds i8, i8* %37, i64 1
%39 = call i8* @bracket_end(i8* %38)
store i8* %39, i8** %8
%40 = load i8*, i8** %6
%41 = getelementptr inbounds i8, i8* %40, i64 1
%42 = load i8, i8* %41
%43 = sext i8 %42 to i32
%44 = icmp eq i32 %43, 94
br i1 %44, label %45, label %48
45: ; preds = %36
%46 = load i8*, i8** %6
%47 = getelementptr inbounds i8, i8* %46, i32 1
store i8* %47, i8** %6
br label %49
48: ; preds = %36
br label %49
49: ; preds = %48, %45
%50 = phi i32 [ 0, %45 ], [ 1, %48 ]
store i32 %50, i32* %9
%51 = load i8*, i8** %8
%52 = icmp eq i8* %51, null
br i1 %52, label %53, label %55
53: ; preds = %49
%54 = call i32 @lua_error(i8* getelementptr inbounds ([32 x i8], [32 x i8]* @.str.1, i64 0, i64 0))
br label %55
55: ; preds = %53, %49
%56 = load i8*, i8** %8
%57 = getelementptr inbounds i8, i8* %56, i64 1
%58 = load i8**, i8*** %7
store i8* %57, i8** %58
br label %59
59: ; preds = %123, %55
%60 = load i8*, i8** %6
%61 = getelementptr inbounds i8, i8* %60, i32 1
store i8* %61, i8** %6
%62 = load i8*, i8** %8
%63 = icmp ult i8* %61, %62
br i1 %63, label %64, label %124
64: ; preds = %59
%65 = load i8*, i8** %6
%66 = load i8, i8* %65
%67 = sext i8 %66 to i32
%68 = icmp eq i32 %67, 37
br i1 %68, label %69, label %84
69: ; preds = %64
%70 = load i8*, i8** %6
%71 = getelementptr inbounds i8, i8* %70, i64 1
%72 = load i8*, i8** %8
%73 = icmp ult i8* %71, %72
br i1 %73, label %74, label %83
74: ; preds = %69
%75 = load i32, i32* %5
%76 = load i8*, i8** %6
%77 = getelementptr inbounds i8, i8* %76, i32 1
store i8* %77, i8** %6
%78 = load i8, i8* %77
%79 = call i32 @matchclass(i32 %75, i8 zeroext %78)
%80 = icmp ne i32 %79, 0
br i1 %80, label %81, label %83
81: ; preds = %74
%82 = load i32, i32* %9
store i32 %82, i32* %4
br label %139
83: ; preds = %74, %69
br label %123
84: ; preds = %64
%85 = load i8*, i8** %6
%86 = getelementptr inbounds i8, i8* %85, i64 1
%87 = load i8, i8* %86
%88 = sext i8 %87 to i32
%89 = icmp eq i32 %88, 45
br i1 %89, label %90, label %113
90: ; preds = %84
%91 = load i8*, i8** %6
%92 = getelementptr inbounds i8, i8* %91, i64 2
%93 = load i8*, i8** %8
%94 = icmp ult i8* %92, %93
br i1 %94, label %95, label %113
95: ; preds = %90
%96 = load i8*, i8** %6
%97 = getelementptr inbounds i8, i8* %96, i64 2
store i8* %97, i8** %6
%98 = load i8*, i8** %6
%99 = getelementptr inbounds i8, i8* %98, i64 -2
%100 = load i8, i8* %99
%101 = zext i8 %100 to i32
%102 = load i32, i32* %5
%103 = icmp sle i32 %101, %102
br i1 %103, label %104, label %112
104: ; preds = %95
%105 = load i32, i32* %5
%106 = load i8*, i8** %6
%107 = load i8, i8* %106
%108 = zext i8 %107 to i32
%109 = icmp sle i32 %105, %108
br i1 %109, label %110, label %112
110: ; preds = %104
%111 = load i32, i32* %9
store i32 %111, i32* %4
br label %139
112: ; preds = %104, %95
br label %122
113: ; preds = %90, %84
%114 = load i8*, i8** %6
%115 = load i8, i8* %114
%116 = zext i8 %115 to i32
%117 = load i32, i32* %5
%118 = icmp eq i32 %116, %117
br i1 %118, label %119, label %121
119: ; preds = %113
%120 = load i32, i32* %9
store i32 %120, i32* %4
br label %139
121: ; preds = %113
br label %122
122: ; preds = %121, %112
br label %123
123: ; preds = %122, %83
br label %59
124: ; preds = %59
%125 = load i32, i32* %9
%126 = icmp ne i32 %125, 0
%127 = xor i1 %126, true
%128 = zext i1 %127 to i32
store i32 %128, i32* %4
br label %139
129: ; preds = %3
%130 = load i8*, i8** %6
%131 = getelementptr inbounds i8, i8* %130, i64 1
%132 = load i8**, i8*** %7
store i8* %131, i8** %132
%133 = load i8*, i8** %6
%134 = load i8, i8* %133
%135 = zext i8 %134 to i32
%136 = load i32, i32* %5
%137 = icmp eq i32 %135, %136
%138 = zext i1 %137 to i32
store i32 %138, i32* %4
br label %139
139: ; preds = %129, %124, %119, %110, %81, %28, %17, %13
%140 = load i32, i32* %4
ret i32 %140
}

LLVM IR (-O2):
@.str = [35 x i8] c"incorrect pattern (ends with `%c')\00"
@.str.1 = [32 x i8] c"incorrect pattern (missing `]')\00"
define i32 @luaI_singlematch(i32 %0, i8* %1, i8** nocapture writeonly %2) {
%4 = load i8, i8* %1
%5 = sext i8 %4 to i32
switch i32 %5, label %68 [
i32 46, label %6
i32 0, label %8
i32 37, label %9
i32 91, label %19
]
6: ; preds = %3
%7 = getelementptr inbounds i8, i8* %1, i64 1
store i8* %7, i8** %2
br label %74
8: ; preds = %3
store i8* %1, i8** %2
br label %74
9: ; preds = %3
%10 = getelementptr inbounds i8, i8* %1, i64 1
%11 = load i8, i8* %10
%12 = icmp eq i8 %11, 0
br i1 %12, label %13, label %15
13: ; preds = %9
%14 = tail call i32 @luaL_verror(i8* getelementptr inbounds ([35 x i8], [35 x i8]* @.str, i64 0, i64 0), i8 signext 37)
br label %15
15: ; preds = %13, %9
%16 = getelementptr inbounds i8, i8* %1, i64 2
store i8* %16, i8** %2
%17 = load i8, i8* %10
%18 = tail call i32 @matchclass(i32 %0, i8 zeroext %17)
br label %74
19: ; preds = %3
%20 = getelementptr inbounds i8, i8* %1, i64 1
%21 = tail call i8* @bracket_end(i8* %20)
%22 = load i8, i8* %20
%23 = icmp eq i8 %22, 94
%24 = select i1 %23, i8* %20, i8* %1
%25 = xor i1 %23, true
%26 = zext i1 %25 to i32
%27 = icmp eq i8* %21, null
br i1 %27, label %28, label %30
28: ; preds = %19
%29 = tail call i32 @lua_error(i8* getelementptr inbounds ([32 x i8], [32 x i8]* @.str.1, i64 0, i64 0))
br label %30
30: ; preds = %28, %19
%31 = getelementptr inbounds i8, i8* %21, i64 1
store i8* %31, i8** %2
%32 = getelementptr inbounds i8, i8* %24, i64 1
%33 = icmp ult i8* %32, %21
br i1 %33, label %34, label %66
34: ; preds = %30, %62
%35 = phi i8* [ %64, %62 ], [ %32, %30 ]
%36 = phi i8* [ %63, %62 ], [ %24, %30 ]
%37 = load i8, i8* %35
%38 = icmp eq i8 %37, 37
%39 = getelementptr inbounds i8, i8* %36, i64 2
br i1 %38, label %40, label %46
40: ; preds = %34
%41 = icmp ult i8* %39, %21
br i1 %41, label %42, label %62
42: ; preds = %40
%43 = load i8, i8* %39
%44 = tail call i32 @matchclass(i32 %0, i8 zeroext %43)
%45 = icmp eq i32 %44, 0
br i1 %45, label %62, label %74
46: ; preds = %34
%47 = load i8, i8* %39
%48 = icmp eq i8 %47, 45
br i1 %48, label %49, label %59
49: ; preds = %46
%50 = getelementptr inbounds i8, i8* %36, i64 3
%51 = icmp ult i8* %50, %21
br i1 %51, label %52, label %59
52: ; preds = %49
%53 = zext i8 %37 to i32
%54 = icmp sgt i32 %53, %0
br i1 %54, label %62, label %55
55: ; preds = %52
%56 = load i8, i8* %50
%57 = zext i8 %56 to i32
%58 = icmp slt i32 %57, %0
br i1 %58, label %62, label %74
59: ; preds = %49, %46
%60 = zext i8 %37 to i32
%61 = icmp eq i32 %60, %0
br i1 %61, label %74, label %62
62: ; preds = %55, %52, %59, %40, %42
%63 = phi i8* [ %39, %42 ], [ %35, %40 ], [ %50, %55 ], [ %50, %52 ], [ %35, %59 ]
%64 = getelementptr inbounds i8, i8* %63, i64 1
%65 = icmp ult i8* %64, %21
br i1 %65, label %34, label %66
66: ; preds = %62, %30
%67 = zext i1 %23 to i32
br label %74
68: ; preds = %3
%69 = getelementptr inbounds i8, i8* %1, i64 1
store i8* %69, i8** %2
%70 = load i8, i8* %1
%71 = zext i8 %70 to i32
%72 = icmp eq i32 %71, %0
%73 = zext i1 %72 to i32
br label %74
74: ; preds = %42, %55, %59, %66, %68, %15, %8, %6
%75 = phi i32 [ %73, %68 ], [ %18, %15 ], [ 0, %8 ], [ 1, %6 ], [ %67, %66 ], [ %26, %59 ], [ %26, %55 ], [ %26, %42 ]
ret i32 %75
}