Gmatch(s, p) register char *s, *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++) {
        if (cc == ']') {
          if (ok)
            break;
          return (0);
        }
        if (cc == '-') {
          if (lc <= scc && scc <= *p++)
            ok++;
        } else if (scc == (lc = cc))
          ok++;
      }
      if (cc == 0)
        bferr("Missing ]");
      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     12e9 <Gmatch+0x1c9>
jmp    116d <Gmatch+0x4d>
mov    -0x30(%rbp),%eax
sub    $0x2a,%eax
je     1273 <Gmatch+0x153>
jmp    117e <Gmatch+0x5e>
mov    -0x30(%rbp),%eax
sub    $0x3f,%eax
je     131d <Gmatch+0x1fd>
jmp    118f <Gmatch+0x6f>
mov    -0x30(%rbp),%eax
sub    $0x5b,%eax
jne    12fd <Gmatch+0x1dd>
jmp    11a0 <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     1256 <Gmatch+0x136>
cmpl   $0x5d,-0x2c(%rbp)
jne    11f1 <Gmatch+0xd1>
cmpl   $0x0,-0x20(%rbp)
je     11e5 <Gmatch+0xc5>
jmp    1256 <Gmatch+0x136>
movl   $0x0,-0x4(%rbp)
jmp    1338 <Gmatch+0x218>
cmpl   $0x2d,-0x2c(%rbp)
jne    1232 <Gmatch+0x112>
mov    -0x24(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jg     122d <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     122d <Gmatch+0x10d>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1251 <Gmatch+0x131>
mov    -0x1c(%rbp),%eax
mov    -0x2c(%rbp),%ecx
mov    %ecx,-0x24(%rbp)
cmp    %ecx,%eax
jne    124c <Gmatch+0x12c>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1251 <Gmatch+0x131>
jmp    11ae <Gmatch+0x8e>
cmpl   $0x0,-0x2c(%rbp)
jne    126e <Gmatch+0x14e>
lea    0xd99(%rip),%rdi
mov    $0x0,%al
call   1040 <bferr@plt>
jmp    1130 <Gmatch+0x10>
mov    -0x18(%rbp),%rax
cmpb   $0x0,(%rax)
jne    128c <Gmatch+0x16c>
movl   $0x1,-0x4(%rbp)
jmp    1338 <Gmatch+0x218>
mov    -0x10(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
cmpb   $0x0,(%rax)
je     12dd <Gmatch+0x1bd>
mov    -0x10(%rbp),%rdi
mov    -0x18(%rbp),%rsi
call   1030 <Gmatch@plt>
cmp    $0x0,%eax
je     12c7 <Gmatch+0x1a7>
movl   $0x1,-0x4(%rbp)
jmp    1338 <Gmatch+0x218>
jmp    12cc <Gmatch+0x1ac>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    1298 <Gmatch+0x178>
movl   $0x0,-0x4(%rbp)
jmp    1338 <Gmatch+0x218>
cmpl   $0x0,-0x1c(%rbp)
sete   %al
and    $0x1,%al
movzbl %al,%eax
mov    %eax,-0x4(%rbp)
jmp    1338 <Gmatch+0x218>
mov    -0x28(%rbp),%eax
and    $0x7f,%eax
cmp    -0x1c(%rbp),%eax
je     1318 <Gmatch+0x1f8>
movl   $0x0,-0x4(%rbp)
jmp    1338 <Gmatch+0x218>
jmp    1130 <Gmatch+0x10>
cmpl   $0x0,-0x1c(%rbp)
jne    1333 <Gmatch+0x213>
movl   $0x0,-0x4(%rbp)
jmp    1338 <Gmatch+0x218>
jmp    1130 <Gmatch+0x10>
mov    -0x4(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<Gmatch>:
push   %rbp
push   %r15
push   %r14
push   %rbx
push   %rax
mov    %rsi,%rbx
mov    %rdi,%r15
lea    0xecc(%rip),%r14
jmp    114e <Gmatch+0x2e>
cs nopw 0x0(%rax,%rax,1)
and    $0x7f,%edx
mov    %rbp,%r15
cmp    %eax,%edx
jne    123a <Gmatch+0x11a>
lea    0x1(%r15),%rbp
movzbl (%r15),%ecx
mov    %ecx,%eax
and    $0x7f,%eax
movsbl (%rbx),%edx
add    $0x1,%rbx
cmp    $0x5a,%edx
jg     1180 <Gmatch+0x60>
cmp    $0x3f,%edx
jne    11d8 <Gmatch+0xb8>
mov    %rbp,%r15
test   %al,%al
jne    114e <Gmatch+0x2e>
jmp    123a <Gmatch+0x11a>
nopl   0x0(%rax,%rax,1)
cmp    $0x5b,%edx
jne    1140 <Gmatch+0x20>
mov    $0x7fff,%edx
xor    %ecx,%ecx
add    $0x1,%rbx
movsbl -0x1(%rbx),%esi
cmp    $0x2d,%esi
jne    11c0 <Gmatch+0xa0>
add    $0x1,%rbx
cmp    %eax,%edx
jg     1190 <Gmatch+0x70>
movsbl -0x1(%rbx),%esi
xor    %edi,%edi
cmp    %esi,%eax
setle  %dil
add    %edi,%ecx
jmp    118c <Gmatch+0x6c>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
test   %sil,%sil
je     11e7 <Gmatch+0xc7>
cmp    $0x5d,%sil
je     11f9 <Gmatch+0xd9>
xor    %edx,%edx
cmp    %esi,%eax
sete   %dl
add    %edx,%ecx
mov    %esi,%edx
jmp    118c <Gmatch+0x6c>
test   %edx,%edx
je     1206 <Gmatch+0xe6>
cmp    $0x2a,%edx
jne    1140 <Gmatch+0x20>
jmp    1210 <Gmatch+0xf0>
mov    %r14,%rdi
xor    %eax,%eax
call   1040 <bferr@plt>
mov    %rbp,%r15
jmp    114e <Gmatch+0x2e>
mov    %rbp,%r15
test   %ecx,%ecx
jne    114e <Gmatch+0x2e>
jmp    123a <Gmatch+0x11a>
xor    %ebp,%ebp
test   %al,%al
sete   %bpl
jmp    123c <Gmatch+0x11c>
mov    $0x1,%ebp
cmpb   $0x0,(%rbx)
je     123c <Gmatch+0x11c>
test   %cl,%cl
je     123a <Gmatch+0x11a>
xchg   %ax,%ax
mov    %r15,%rdi
mov    %rbx,%rsi
call   1030 <Gmatch@plt>
test   %eax,%eax
jne    123c <Gmatch+0x11c>
cmpb   $0x0,0x1(%r15)
lea    0x1(%r15),%r15
jne    1220 <Gmatch+0x100>
xor    %ebp,%ebp
mov    %ebp,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [10 x i8] c"Missing ]\00"
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 = %107, %102, %68, %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 %96 [
i32 91, label %21
i32 42, label %69
i32 0, label %92
i32 63, label %103
]
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 %108
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 %68
66: ; preds = %63
%67 = call i32 (i8*, ...) bitcast (i32 (...)* @bferr to i32 (i8*, ...)*)(i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str, i64 0, i64 0))
br label %68
68: ; preds = %66, %63
br label %11
69: ; preds = %11
%70 = load i8*, i8** %5
%71 = load i8, i8* %70
%72 = icmp ne i8 %71, 0
br i1 %72, label %74, label %73
73: ; preds = %69
store i32 1, i32* %3
br label %108
74: ; preds = %69
%75 = load i8*, i8** %4
%76 = getelementptr inbounds i8, i8* %75, i32 -1
store i8* %76, i8** %4
br label %77
77: ; preds = %88, %74
%78 = load i8*, i8** %4
%79 = load i8, i8* %78
%80 = icmp ne i8 %79, 0
br i1 %80, label %81, label %91
81: ; preds = %77
%82 = load i8*, i8** %4
%83 = load i8*, i8** %5
%84 = call i32 @Gmatch(i8* %82, i8* %83)
%85 = icmp ne i32 %84, 0
br i1 %85, label %86, label %87
86: ; preds = %81
store i32 1, i32* %3
br label %108
87: ; preds = %81
br label %88
88: ; preds = %87
%89 = load i8*, i8** %4
%90 = getelementptr inbounds i8, i8* %89, i32 1
store i8* %90, i8** %4
br label %77
91: ; preds = %77
store i32 0, i32* %3
br label %108
92: ; preds = %11
%93 = load i32, i32* %6
%94 = icmp eq i32 %93, 0
%95 = zext i1 %94 to i32
store i32 %95, i32* %3
br label %108
96: ; preds = %11
%97 = load i32, i32* %9
%98 = and i32 %97, 127
%99 = load i32, i32* %6
%100 = icmp ne i32 %98, %99
br i1 %100, label %101, label %102
101: ; preds = %96
store i32 0, i32* %3
br label %108
102: ; preds = %96
br label %11
103: ; preds = %11
%104 = load i32, i32* %6
%105 = icmp eq i32 %104, 0
br i1 %105, label %106, label %107
106: ; preds = %103
store i32 0, i32* %3
br label %108
107: ; preds = %103
br label %11
108: ; preds = %106, %101, %92, %91, %86, %73, %35
%109 = load i32, i32* %3
ret i32 %109
}

LLVM IR (-O2):
@.str = [10 x i8] c"Missing ]\00"
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 = tail call i32 (i8*, ...) bitcast (i32 (...)* @bferr to i32 (i8*, ...)*)(i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str, i64 0, i64 0))
br label %42
42: ; preds = %40, %25, %60, %63
%43 = phi i8* [ %10, %60 ], [ %10, %63 ], [ %23, %25 ], [ %23, %40 ]
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, %25, %52, %49, %47, %44, %57
%66 = phi i32 [ %59, %57 ], [ 1, %44 ], [ 0, %47 ], [ 1, %52 ], [ 0, %49 ], [ 0, %25 ], [ 0, %60 ], [ 0, %63 ]
ret i32 %66
}