int Tcl_ScanElement(string, flagPtr)
char *string;
int *flagPtr;
{
  int flags, nestingLevel;
  register char *p;
  nestingLevel = 0;
  flags = 0;
  p = string;
  if ((*p == '{') || (*p == '"') || (*p == 0)) {
    flags |= 2;
  }
  for (; *p != 0; p++) {
    switch (*p) {
    case '{':
      nestingLevel++;
      break;
    case '}':
      nestingLevel--;
      if (nestingLevel < 0) {
        flags |= 1 | 4;
      }
      break;
    case '[':
    case '$':
    case ';':
    case ' ':
    case '\f':
    case '\n':
    case '\r':
    case '\t':
    case '\v':
      flags |= 2;
      break;
    case '\\':
      if (p[1] == 0) {
        flags = 1;
      } else {
        int size;
        (void)Tcl_Backslash(p, &size);
        p += size - 1;
        flags |= 2;
      }
      break;
    }
  }
  if (nestingLevel != 0) {
    flags = 1 | 4;
  }
  *flagPtr = flags;
  return 2 * (p - string) + 2;
}


x86 assembly (clang, -O0):
<Tcl_ScanElement>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
movl   $0x0,-0x18(%rbp)
movl   $0x0,-0x14(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x7b,%eax
je     1166 <Tcl_ScanElement+0x56>
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x22,%eax
je     1166 <Tcl_ScanElement+0x56>
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    116f <Tcl_ScanElement+0x5f>
mov    -0x14(%rbp),%eax
or     $0x2,%eax
mov    %eax,-0x14(%rbp)
jmp    1174 <Tcl_ScanElement+0x64>
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
je     1252 <Tcl_ScanElement+0x142>
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
add    $0xfffffff7,%eax
mov    %eax,%ecx
mov    %rcx,-0x30(%rbp)
sub    $0x74,%eax
ja     123c <Tcl_ScanElement+0x12c>
mov    -0x30(%rbp),%rax
lea    0xe58(%rip),%rcx
movslq (%rcx,%rax,4),%rax
add    %rcx,%rax
jmp    *%rax
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    123c <Tcl_ScanElement+0x12c>
mov    -0x18(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x18(%rbp)
cmpl   $0x0,-0x18(%rbp)
jge    11db <Tcl_ScanElement+0xcb>
mov    -0x14(%rbp),%eax
or     $0x5,%eax
mov    %eax,-0x14(%rbp)
jmp    123c <Tcl_ScanElement+0x12c>
mov    -0x14(%rbp),%eax
or     $0x2,%eax
mov    %eax,-0x14(%rbp)
jmp    123c <Tcl_ScanElement+0x12c>
mov    -0x20(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x0,%eax
jne    120b <Tcl_ScanElement+0xfb>
movl   $0x1,-0x14(%rbp)
jmp    1237 <Tcl_ScanElement+0x127>
mov    -0x20(%rbp),%rdi
lea    -0x24(%rbp),%rsi
mov    $0x0,%al
call   1030 <Tcl_Backslash@plt>
mov    -0x24(%rbp),%ecx
sub    $0x1,%ecx
mov    -0x20(%rbp),%rax
movslq %ecx,%rcx
add    %rcx,%rax
mov    %rax,-0x20(%rbp)
mov    -0x14(%rbp),%eax
or     $0x2,%eax
mov    %eax,-0x14(%rbp)
jmp    123c <Tcl_ScanElement+0x12c>
jmp    1241 <Tcl_ScanElement+0x131>
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
jmp    1174 <Tcl_ScanElement+0x64>
cmpl   $0x0,-0x18(%rbp)
je     1263 <Tcl_ScanElement+0x153>
movl   $0x5,-0x14(%rbp)
mov    -0x14(%rbp),%ecx
mov    -0x10(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x20(%rbp),%rax
mov    -0x8(%rbp),%rcx
sub    %rcx,%rax
shl    $0x1,%rax
add    $0x2,%rax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<Tcl_ScanElement>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %rsi,%r14
mov    %rdi,%r15
mov    (%rdi),%al
test   %al,%al
je     11c2 <Tcl_ScanElement+0xb2>
cmp    $0x7b,%al
je     1135 <Tcl_ScanElement+0x25>
xor    %ebp,%ebp
cmp    $0x22,%al
jne    113a <Tcl_ScanElement+0x2a>
mov    $0x2,%ebp
lea    0xebf(%rip),%r13
mov    %r15,%rbx
xor    %r12d,%r12d
jmp    117f <Tcl_ScanElement+0x6f>
cmpb   $0x0,0x1(%rbx)
je     11af <Tcl_ScanElement+0x9f>
mov    %rbx,%rdi
lea    0x4(%rsp),%rsi
xor    %eax,%eax
call   1030 <Tcl_Backslash@plt>
movslq 0x4(%rsp),%rax
add    %rax,%rbx
add    $0xffffffffffffffff,%rbx
nopw   0x0(%rax,%rax,1)
or     $0x2,%ebp
movzbl 0x1(%rbx),%eax
add    $0x1,%rbx
test   %al,%al
je     11b6 <Tcl_ScanElement+0xa6>
movsbl %al,%eax
add    $0xfffffff7,%eax
cmp    $0x74,%eax
ja     1173 <Tcl_ScanElement+0x63>
movslq 0x0(%r13,%rax,4),%rax
add    %r13,%rax
jmp    *%rax
add    $0x1,%r12d
jmp    1173 <Tcl_ScanElement+0x63>
mov    %ebp,%eax
or     $0x5,%eax
test   %r12d,%r12d
lea    -0x1(%r12),%ecx
cmovle %eax,%ebp
mov    %ecx,%r12d
jmp    1173 <Tcl_ScanElement+0x63>
mov    $0x1,%ebp
jmp    1173 <Tcl_ScanElement+0x63>
mov    $0x5,%eax
test   %r12d,%r12d
jne    11cc <Tcl_ScanElement+0xbc>
jmp    11ca <Tcl_ScanElement+0xba>
mov    $0x2,%ebp
mov    %r15,%rbx
mov    %ebp,%eax
mov    %eax,(%r14)
sub    %r15d,%ebx
lea    (%rbx,%rbx,1),%eax
add    $0x2,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i32 @Tcl_ScanElement(i8* %0, i32* %1) {
%3 = alloca i8*
%4 = alloca i32*
%5 = alloca i32
%6 = alloca i32
%7 = alloca i8*
%8 = alloca i32
store i8* %0, i8** %3
store i32* %1, i32** %4
store i32 0, i32* %6
store i32 0, i32* %5
%9 = load i8*, i8** %3
store i8* %9, i8** %7
%10 = load i8*, i8** %7
%11 = load i8, i8* %10
%12 = sext i8 %11 to i32
%13 = icmp eq i32 %12, 123
br i1 %13, label %24, label %14
14: ; preds = %2
%15 = load i8*, i8** %7
%16 = load i8, i8* %15
%17 = sext i8 %16 to i32
%18 = icmp eq i32 %17, 34
br i1 %18, label %24, label %19
19: ; preds = %14
%20 = load i8*, i8** %7
%21 = load i8, i8* %20
%22 = sext i8 %21 to i32
%23 = icmp eq i32 %22, 0
br i1 %23, label %24, label %27
24: ; preds = %19, %14, %2
%25 = load i32, i32* %5
%26 = or i32 %25, 2
store i32 %26, i32* %5
br label %27
27: ; preds = %24, %19
br label %28
28: ; preds = %71, %27
%29 = load i8*, i8** %7
%30 = load i8, i8* %29
%31 = sext i8 %30 to i32
%32 = icmp ne i32 %31, 0
br i1 %32, label %33, label %74
33: ; preds = %28
%34 = load i8*, i8** %7
%35 = load i8, i8* %34
%36 = sext i8 %35 to i32
switch i32 %36, label %70 [
i32 123, label %37
i32 125, label %40
i32 91, label %49
i32 36, label %49
i32 59, label %49
i32 32, label %49
i32 12, label %49
i32 10, label %49
i32 13, label %49
i32 9, label %49
i32 11, label %49
i32 92, label %52
]
37: ; preds = %33
%38 = load i32, i32* %6
%39 = add nsw i32 %38, 1
store i32 %39, i32* %6
br label %70
40: ; preds = %33
%41 = load i32, i32* %6
%42 = add nsw i32 %41, -1
store i32 %42, i32* %6
%43 = load i32, i32* %6
%44 = icmp slt i32 %43, 0
br i1 %44, label %45, label %48
45: ; preds = %40
%46 = load i32, i32* %5
%47 = or i32 %46, 5
store i32 %47, i32* %5
br label %48
48: ; preds = %45, %40
br label %70
49: ; preds = %33, %33, %33, %33, %33, %33, %33, %33, %33
%50 = load i32, i32* %5
%51 = or i32 %50, 2
store i32 %51, i32* %5
br label %70
52: ; preds = %33
%53 = load i8*, i8** %7
%54 = getelementptr inbounds i8, i8* %53, i64 1
%55 = load i8, i8* %54
%56 = sext i8 %55 to i32
%57 = icmp eq i32 %56, 0
br i1 %57, label %58, label %59
58: ; preds = %52
store i32 1, i32* %5
br label %69
59: ; preds = %52
%60 = load i8*, i8** %7
%61 = call i32 (i8*, i32*, ...) bitcast (i32 (...)* @Tcl_Backslash to i32 (i8*, i32*, ...)*)(i8* %60, i32* %8)
%62 = load i32, i32* %8
%63 = sub nsw i32 %62, 1
%64 = load i8*, i8** %7
%65 = sext i32 %63 to i64
%66 = getelementptr inbounds i8, i8* %64, i64 %65
store i8* %66, i8** %7
%67 = load i32, i32* %5
%68 = or i32 %67, 2
store i32 %68, i32* %5
br label %69
69: ; preds = %59, %58
br label %70
70: ; preds = %33, %69, %49, %48, %37
br label %71
71: ; preds = %70
%72 = load i8*, i8** %7
%73 = getelementptr inbounds i8, i8* %72, i32 1
store i8* %73, i8** %7
br label %28
74: ; preds = %28
%75 = load i32, i32* %6
%76 = icmp ne i32 %75, 0
br i1 %76, label %77, label %78
77: ; preds = %74
store i32 5, i32* %5
br label %78
78: ; preds = %77, %74
%79 = load i32, i32* %5
%80 = load i32*, i32** %4
store i32 %79, i32* %80
%81 = load i8*, i8** %7
%82 = load i8*, i8** %3
%83 = ptrtoint i8* %81 to i64
%84 = ptrtoint i8* %82 to i64
%85 = sub i64 %83, %84
%86 = mul nsw i64 2, %85
%87 = add nsw i64 %86, 2
%88 = trunc i64 %87 to i32
ret i32 %88
}

LLVM IR (-O2):
define i32 @Tcl_ScanElement(i8* %0, i32* nocapture writeonly %1) {
%3 = alloca i32
%4 = load i8, i8* %0
switch i8 %4, label %6 [
i8 0, label %44
i8 34, label %5
i8 123, label %5
]
5: ; preds = %2, %2
br label %6
6: ; preds = %2, %5
%7 = phi i32 [ 0, %2 ], [ 2, %5 ]
%8 = bitcast i32* %3 to i8*
br label %9
9: ; preds = %6, %35
%10 = phi i8 [ %4, %6 ], [ %40, %35 ]
%11 = phi i8* [ %0, %6 ], [ %39, %35 ]
%12 = phi i32 [ 0, %6 ], [ %37, %35 ]
%13 = phi i32 [ %7, %6 ], [ %36, %35 ]
%14 = sext i8 %10 to i32
switch i32 %14, label %35 [
i32 123, label %15
i32 125, label %17
i32 91, label %22
i32 36, label %22
i32 59, label %22
i32 32, label %22
i32 12, label %22
i32 10, label %22
i32 13, label %22
i32 9, label %22
i32 11, label %22
i32 92, label %24
]
15: ; preds = %9
%16 = add nsw i32 %12, 1
br label %35
17: ; preds = %9
%18 = add nsw i32 %12, -1
%19 = icmp slt i32 %12, 1
%20 = or i32 %13, 5
%21 = select i1 %19, i32 %20, i32 %13
br label %35
22: ; preds = %9, %9, %9, %9, %9, %9, %9, %9, %9
%23 = or i32 %13, 2
br label %35
24: ; preds = %9
%25 = getelementptr inbounds i8, i8* %11, i64 1
%26 = load i8, i8* %25
%27 = icmp eq i8 %26, 0
br i1 %27, label %35, label %28
28: ; preds = %24
%29 = call i32 (i8*, i32*, ...) bitcast (i32 (...)* @Tcl_Backslash to i32 (i8*, i32*, ...)*)(i8* %11, i32* %3)
%30 = load i32, i32* %3
%31 = add nsw i32 %30, -1
%32 = sext i32 %31 to i64
%33 = getelementptr inbounds i8, i8* %11, i64 %32
%34 = or i32 %13, 2
br label %35
35: ; preds = %17, %24, %15, %22, %9, %28
%36 = phi i32 [ %13, %9 ], [ %34, %28 ], [ %23, %22 ], [ %13, %15 ], [ %21, %17 ], [ 1, %24 ]
%37 = phi i32 [ %12, %9 ], [ %12, %28 ], [ %12, %22 ], [ %16, %15 ], [ %18, %17 ], [ %12, %24 ]
%38 = phi i8* [ %11, %9 ], [ %33, %28 ], [ %11, %22 ], [ %11, %15 ], [ %11, %17 ], [ %11, %24 ]
%39 = getelementptr inbounds i8, i8* %38, i64 1
%40 = load i8, i8* %39
%41 = icmp eq i8 %40, 0
br i1 %41, label %42, label %9
42: ; preds = %35
%43 = icmp eq i32 %37, 0
br i1 %43, label %44, label %47
44: ; preds = %2, %42
%45 = phi i8* [ %39, %42 ], [ %0, %2 ]
%46 = phi i32 [ %36, %42 ], [ 2, %2 ]
br label %47
47: ; preds = %42, %44
%48 = phi i8* [ %45, %44 ], [ %39, %42 ]
%49 = phi i32 [ %46, %44 ], [ 5, %42 ]
store i32 %49, i32* %1
%50 = ptrtoint i8* %48 to i64
%51 = ptrtoint i8* %0 to i64
%52 = sub i64 %50, %51
%53 = trunc i64 %52 to i32
%54 = shl i32 %53, 1
%55 = add i32 %54, 2
ret i32 %55
}