int Gmatch(register char *s, register char *p) {
  register int scc;
  int ok, lc;
  int c, cc;
  for (;;) {
    scc = *s++ & 0177;
    switch (c = *p++) {
    case '[':
      ok = 0;
      lc = 077777;
      while ((cc = *p++) != '\0') {
        if (cc == ']') {
          if (ok)
            break;
          return (0);
        }
        if (cc == '-') {
          if (lc <= scc && scc <= *p++)
            ok++;
        } else if (scc == (lc = cc))
          ok++;
      }
      if (cc == 0) {
        if (ok)
          p--;
        else
          return 0;
      }
      continue;
    case '*':
      if (!*p)
        return (1);
      for (s--; *s; s++)
        if (Gmatch(s, p))
          return (1);
      return (0);
    case 0:
      return (scc == 0);
    default:
      if ((c & 0177) != scc)
        return (0);
      continue;
    case '?':
      if (scc == 0)
        return (0);
      continue;
    }
  }
}


x86 assembly (clang, -O0):
<Gmatch>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movzbl (%rax),%eax
and    $0x7f,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
movsbl (%rax),%eax
mov    %eax,-0x30(%rbp)
mov    %eax,-0x28(%rbp)
test   %eax,%eax
je     12f7 <Gmatch+0x1e7>
jmp    115d <Gmatch+0x4d>
mov    -0x30(%rbp),%eax
sub    $0x2a,%eax
je     1281 <Gmatch+0x171>
jmp    116e <Gmatch+0x5e>
mov    -0x30(%rbp),%eax
sub    $0x3f,%eax
je     132b <Gmatch+0x21b>
jmp    117f <Gmatch+0x6f>
mov    -0x30(%rbp),%eax
sub    $0x5b,%eax
jne    130b <Gmatch+0x1fb>
jmp    1190 <Gmatch+0x80>
movl   $0x0,-0x20(%rbp)
movl   $0x7fff,-0x24(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
movsbl (%rax),%eax
mov    %eax,-0x2c(%rbp)
cmp    $0x0,%eax
je     1246 <Gmatch+0x136>
cmpl   $0x5d,-0x2c(%rbp)
jne    11e1 <Gmatch+0xd1>
cmpl   $0x0,-0x20(%rbp)
je     11d5 <Gmatch+0xc5>
jmp    1246 <Gmatch+0x136>
movl   $0x0,-0x4(%rbp)
jmp    1346 <Gmatch+0x236>
cmpl   $0x2d,-0x2c(%rbp)
jne    1222 <Gmatch+0x112>
mov    -0x24(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jg     121d <Gmatch+0x10d>
mov    -0x1c(%rbp),%eax
mov    -0x18(%rbp),%rcx
mov    %rcx,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
movsbl (%rcx),%ecx
cmp    %ecx,%eax
jg     121d <Gmatch+0x10d>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1241 <Gmatch+0x131>
mov    -0x1c(%rbp),%eax
mov    -0x2c(%rbp),%ecx
mov    %ecx,-0x24(%rbp)
cmp    %ecx,%eax
jne    123c <Gmatch+0x12c>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1241 <Gmatch+0x131>
jmp    119e <Gmatch+0x8e>
cmpl   $0x0,-0x2c(%rbp)
jne    127c <Gmatch+0x16c>
cmpl   $0x0,-0x20(%rbp)
je     126b <Gmatch+0x15b>
mov    -0x18(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x18(%rbp)
jmp    1277 <Gmatch+0x167>
movl   $0x0,-0x4(%rbp)
jmp    1346 <Gmatch+0x236>
jmp    127c <Gmatch+0x16c>
jmp    1120 <Gmatch+0x10>
mov    -0x18(%rbp),%rax
cmpb   $0x0,(%rax)
jne    129a <Gmatch+0x18a>
movl   $0x1,-0x4(%rbp)
jmp    1346 <Gmatch+0x236>
mov    -0x10(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
cmpb   $0x0,(%rax)
je     12eb <Gmatch+0x1db>
mov    -0x10(%rbp),%rdi
mov    -0x18(%rbp),%rsi
call   1030 <Gmatch@plt>
cmp    $0x0,%eax
je     12d5 <Gmatch+0x1c5>
movl   $0x1,-0x4(%rbp)
jmp    1346 <Gmatch+0x236>
jmp    12da <Gmatch+0x1ca>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    12a6 <Gmatch+0x196>
movl   $0x0,-0x4(%rbp)
jmp    1346 <Gmatch+0x236>
cmpl   $0x0,-0x1c(%rbp)
sete   %al
and    $0x1,%al
movzbl %al,%eax
mov    %eax,-0x4(%rbp)
jmp    1346 <Gmatch+0x236>
mov    -0x28(%rbp),%eax
and    $0x7f,%eax
cmp    -0x1c(%rbp),%eax
je     1326 <Gmatch+0x216>
movl   $0x0,-0x4(%rbp)
jmp    1346 <Gmatch+0x236>
jmp    1120 <Gmatch+0x10>
cmpl   $0x0,-0x1c(%rbp)
jne    1341 <Gmatch+0x231>
movl   $0x0,-0x4(%rbp)
jmp    1346 <Gmatch+0x236>
jmp    1120 <Gmatch+0x10>
mov    -0x4(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<Gmatch>:
push   %rbp
push   %r14
push   %rbx
mov    %rsi,%rbx
mov    %rdi,%r14
jmp    112e <Gmatch+0x1e>
nopl   0x0(%rax)
and    $0x7f,%esi
mov    %rax,%r14
cmp    %ecx,%esi
jne    120a <Gmatch+0xfa>
lea    0x1(%r14),%rax
movzbl (%r14),%edx
mov    %edx,%ecx
and    $0x7f,%ecx
movsbl (%rbx),%esi
add    $0x1,%rbx
cmp    $0x5a,%esi
jg     1160 <Gmatch+0x50>
cmp    $0x3f,%esi
jne    11b0 <Gmatch+0xa0>
mov    %rax,%r14
test   %cl,%cl
jne    112e <Gmatch+0x1e>
jmp    120a <Gmatch+0xfa>
nopl   0x0(%rax,%rax,1)
cmp    $0x5b,%esi
jne    1120 <Gmatch+0x10>
mov    $0x7fff,%esi
xor    %edx,%edx
nopl   0x0(%rax)
movsbl (%rbx),%edi
cmp    $0x2d,%edi
jne    1193 <Gmatch+0x83>
add    $0x1,%rbx
cmp    %ecx,%esi
jg     1170 <Gmatch+0x60>
movsbl (%rbx),%edi
add    $0x1,%rbx
xor    %ebp,%ebp
cmp    %edi,%ecx
setle  %bpl
add    %ebp,%edx
jmp    1170 <Gmatch+0x60>
test   %dil,%dil
je     11c3 <Gmatch+0xb3>
cmp    $0x5d,%dil
je     11bf <Gmatch+0xaf>
xor    %esi,%esi
cmp    %edi,%ecx
sete   %sil
add    %esi,%edx
add    $0x1,%rbx
mov    %edi,%esi
jmp    1170 <Gmatch+0x60>
test   %esi,%esi
je     11d0 <Gmatch+0xc0>
cmp    $0x2a,%esi
jne    1120 <Gmatch+0x10>
jmp    11da <Gmatch+0xca>
add    $0x1,%rbx
mov    %rax,%r14
test   %edx,%edx
jne    112e <Gmatch+0x1e>
jmp    120a <Gmatch+0xfa>
xor    %ebp,%ebp
test   %cl,%cl
sete   %bpl
jmp    120c <Gmatch+0xfc>
mov    $0x1,%ebp
cmpb   $0x0,(%rbx)
je     120c <Gmatch+0xfc>
test   %dl,%dl
je     120a <Gmatch+0xfa>
nopl   0x0(%rax,%rax,1)
mov    %r14,%rdi
mov    %rbx,%rsi
call   1030 <Gmatch@plt>
test   %eax,%eax
jne    120c <Gmatch+0xfc>
cmpb   $0x0,0x1(%r14)
lea    0x1(%r14),%r14
jne    11f0 <Gmatch+0xe0>
xor    %ebp,%ebp
mov    %ebp,%eax
pop    %rbx
pop    %r14
pop    %rbp
ret

LLVM IR (-O0):
define i32 @Gmatch(i8* %0, i8* %1) {
%3 = alloca i32
%4 = alloca i8*
%5 = alloca i8*
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
store i8* %0, i8** %4
store i8* %1, i8** %5
br label %11
11: ; preds = %113, %108, %74, %2
%12 = load i8*, i8** %4
%13 = getelementptr inbounds i8, i8* %12, i32 1
store i8* %13, i8** %4
%14 = load i8, i8* %12
%15 = sext i8 %14 to i32
%16 = and i32 %15, 127
store i32 %16, i32* %6
%17 = load i8*, i8** %5
%18 = getelementptr inbounds i8, i8* %17, i32 1
store i8* %18, i8** %5
%19 = load i8, i8* %17
%20 = sext i8 %19 to i32
store i32 %20, i32* %9
switch i32 %20, label %102 [
i32 91, label %21
i32 42, label %75
i32 0, label %98
i32 63, label %109
]
21: ; preds = %11
store i32 0, i32* %7
store i32 32767, i32* %8
br label %22
22: ; preds = %62, %21
%23 = load i8*, i8** %5
%24 = getelementptr inbounds i8, i8* %23, i32 1
store i8* %24, i8** %5
%25 = load i8, i8* %23
%26 = sext i8 %25 to i32
store i32 %26, i32* %10
%27 = icmp ne i32 %26, 0
br i1 %27, label %28, label %63
28: ; preds = %22
%29 = load i32, i32* %10
%30 = icmp eq i32 %29, 93
br i1 %30, label %31, label %36
31: ; preds = %28
%32 = load i32, i32* %7
%33 = icmp ne i32 %32, 0
br i1 %33, label %34, label %35
34: ; preds = %31
br label %63
35: ; preds = %31
store i32 0, i32* %3
br label %114
36: ; preds = %28
%37 = load i32, i32* %10
%38 = icmp eq i32 %37, 45
br i1 %38, label %39, label %54
39: ; preds = %36
%40 = load i32, i32* %8
%41 = load i32, i32* %6
%42 = icmp sle i32 %40, %41
br i1 %42, label %43, label %53
43: ; preds = %39
%44 = load i32, i32* %6
%45 = load i8*, i8** %5
%46 = getelementptr inbounds i8, i8* %45, i32 1
store i8* %46, i8** %5
%47 = load i8, i8* %45
%48 = sext i8 %47 to i32
%49 = icmp sle i32 %44, %48
br i1 %49, label %50, label %53
50: ; preds = %43
%51 = load i32, i32* %7
%52 = add nsw i32 %51, 1
store i32 %52, i32* %7
br label %53
53: ; preds = %50, %43, %39
br label %62
54: ; preds = %36
%55 = load i32, i32* %6
%56 = load i32, i32* %10
store i32 %56, i32* %8
%57 = icmp eq i32 %55, %56
br i1 %57, label %58, label %61
58: ; preds = %54
%59 = load i32, i32* %7
%60 = add nsw i32 %59, 1
store i32 %60, i32* %7
br label %61
61: ; preds = %58, %54
br label %62
62: ; preds = %61, %53
br label %22
63: ; preds = %34, %22
%64 = load i32, i32* %10
%65 = icmp eq i32 %64, 0
br i1 %65, label %66, label %74
66: ; preds = %63
%67 = load i32, i32* %7
%68 = icmp ne i32 %67, 0
br i1 %68, label %69, label %72
69: ; preds = %66
%70 = load i8*, i8** %5
%71 = getelementptr inbounds i8, i8* %70, i32 -1
store i8* %71, i8** %5
br label %73
72: ; preds = %66
store i32 0, i32* %3
br label %114
73: ; preds = %69
br label %74
74: ; preds = %73, %63
br label %11
75: ; preds = %11
%76 = load i8*, i8** %5
%77 = load i8, i8* %76
%78 = icmp ne i8 %77, 0
br i1 %78, label %80, label %79
79: ; preds = %75
store i32 1, i32* %3
br label %114
80: ; preds = %75
%81 = load i8*, i8** %4
%82 = getelementptr inbounds i8, i8* %81, i32 -1
store i8* %82, i8** %4
br label %83
83: ; preds = %94, %80
%84 = load i8*, i8** %4
%85 = load i8, i8* %84
%86 = icmp ne i8 %85, 0
br i1 %86, label %87, label %97
87: ; preds = %83
%88 = load i8*, i8** %4
%89 = load i8*, i8** %5
%90 = call i32 @Gmatch(i8* %88, i8* %89)
%91 = icmp ne i32 %90, 0
br i1 %91, label %92, label %93
92: ; preds = %87
store i32 1, i32* %3
br label %114
93: ; preds = %87
br label %94
94: ; preds = %93
%95 = load i8*, i8** %4
%96 = getelementptr inbounds i8, i8* %95, i32 1
store i8* %96, i8** %4
br label %83
97: ; preds = %83
store i32 0, i32* %3
br label %114
98: ; preds = %11
%99 = load i32, i32* %6
%100 = icmp eq i32 %99, 0
%101 = zext i1 %100 to i32
store i32 %101, i32* %3
br label %114
102: ; preds = %11
%103 = load i32, i32* %9
%104 = and i32 %103, 127
%105 = load i32, i32* %6
%106 = icmp ne i32 %104, %105
br i1 %106, label %107, label %108
107: ; preds = %102
store i32 0, i32* %3
br label %114
108: ; preds = %102
br label %11
109: ; preds = %11
%110 = load i32, i32* %6
%111 = icmp eq i32 %110, 0
br i1 %111, label %112, label %113
112: ; preds = %109
store i32 0, i32* %3
br label %114
113: ; preds = %109
br label %11
114: ; preds = %112, %107, %98, %97, %92, %79, %72, %35
%115 = load i32, i32* %3
ret i32 %115
}

LLVM IR (-O2):
define i32 @Gmatch(i8* nocapture %0, i8* nocapture %1) {
br label %3
3: ; preds = %42, %2
%4 = phi i8* [ %1, %2 ], [ %43, %42 ]
%5 = phi i8* [ %0, %2 ], [ %6, %42 ]
%6 = getelementptr inbounds i8, i8* %5, i64 1
%7 = load i8, i8* %5
%8 = and i8 %7, 127
%9 = zext i8 %8 to i32
%10 = getelementptr inbounds i8, i8* %4, i64 1
%11 = load i8, i8* %4
%12 = sext i8 %11 to i32
switch i32 %12, label %60 [
i32 91, label %13
i32 42, label %44
i32 0, label %57
i32 63, label %63
]
13: ; preds = %3, %35
%14 = phi i8* [ %23, %35 ], [ %10, %3 ]
%15 = phi i32 [ %39, %35 ], [ 0, %3 ]
%16 = phi i32 [ %36, %35 ], [ 32767, %3 ]
%17 = icmp sgt i32 %16, %9
br label %18
18: ; preds = %13, %28
%19 = phi i8* [ %29, %28 ], [ %14, %13 ]
%20 = phi i32 [ %34, %28 ], [ %15, %13 ]
br label %21
21: ; preds = %18, %27
%22 = phi i8* [ %23, %27 ], [ %19, %18 ]
%23 = getelementptr inbounds i8, i8* %22, i64 1
%24 = load i8, i8* %22
switch i8 %24, label %35 [
i8 45, label %27
i8 93, label %25
i8 0, label %40
]
25: ; preds = %21
%26 = icmp eq i32 %20, 0
br i1 %26, label %65, label %42
27: ; preds = %21
br i1 %17, label %21, label %28
28: ; preds = %27
%29 = getelementptr inbounds i8, i8* %22, i64 2
%30 = load i8, i8* %23
%31 = sext i8 %30 to i32
%32 = icmp sle i32 %9, %31
%33 = zext i1 %32 to i32
%34 = add nsw i32 %20, %33
br label %18
35: ; preds = %21
%36 = sext i8 %24 to i32
%37 = icmp eq i32 %9, %36
%38 = zext i1 %37 to i32
%39 = add nsw i32 %20, %38
br label %13
40: ; preds = %21
%41 = icmp eq i32 %20, 0
br i1 %41, label %65, label %42
42: ; preds = %40, %25, %60, %63
%43 = phi i8* [ %10, %60 ], [ %10, %63 ], [ %22, %40 ], [ %23, %25 ]
br label %3
44: ; preds = %3
%45 = load i8, i8* %10
%46 = icmp eq i8 %45, 0
br i1 %46, label %65, label %47
47: ; preds = %44
%48 = icmp eq i8 %7, 0
br i1 %48, label %65, label %52
49: ; preds = %52
%50 = load i8, i8* %56
%51 = icmp eq i8 %50, 0
br i1 %51, label %65, label %52
52: ; preds = %47, %49
%53 = phi i8* [ %56, %49 ], [ %5, %47 ]
%54 = tail call i32 @Gmatch(i8* %53, i8* %10)
%55 = icmp eq i32 %54, 0
%56 = getelementptr inbounds i8, i8* %53, i64 1
br i1 %55, label %49, label %65
57: ; preds = %3
%58 = icmp eq i8 %8, 0
%59 = zext i1 %58 to i32
br label %65
60: ; preds = %3
%61 = and i32 %12, 127
%62 = icmp eq i32 %61, %9
br i1 %62, label %42, label %65
63: ; preds = %3
%64 = icmp eq i8 %8, 0
br i1 %64, label %65, label %42
65: ; preds = %63, %60, %40, %25, %52, %49, %47, %44, %57
%66 = phi i32 [ %59, %57 ], [ 1, %44 ], [ 0, %47 ], [ 1, %52 ], [ 0, %49 ], [ 0, %25 ], [ 0, %40 ], [ 0, %60 ], [ 0, %63 ]
ret i32 %66
}