char *ScriptEnd(p, lastChar, nested)
char *p;
char *lastChar;
int nested;
{
  int commentOK = 1;
  int length;
  while (1) {
    while (isspace(((unsigned char)(*p)))) {
      if (*p == '\n') {
        commentOK = 1;
      }
      p++;
    }
    if ((*p == '#') && commentOK) {
      do {
        if (*p == '\\') {
          if ((p[1] == '\n') && (p + 2 == lastChar)) {
            return p + 2;
          }
          Tcl_Backslash(p, &length);
          p += length;
        } else {
          p++;
        }
      } while ((p != lastChar) && (*p != '\n'));
      continue;
    }
    p = TclWordEnd(p, lastChar, nested, &commentOK);
    if (p == lastChar) {
      return p;
    }
    p++;
    if (nested) {
      if (*p == ']') {
        return p;
      }
    } else {
      if (p == lastChar) {
        return p - 1;
      }
    }
  }
}


x86 assembly (clang, -O0):
<ScriptEnd>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %edx,-0x1c(%rbp)
movl   $0x1,-0x20(%rbp)
jmp    114f <ScriptEnd+0x1f>
mov    -0x10(%rbp),%rax
movzbl (%rax),%edi
call   1040 <isspace@plt>
cmp    $0x0,%eax
je     118c <ScriptEnd+0x5c>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0xa,%eax
jne    117b <ScriptEnd+0x4b>
movl   $0x1,-0x20(%rbp)
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    114f <ScriptEnd+0x1f>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x23,%eax
jne    1258 <ScriptEnd+0x128>
cmpl   $0x0,-0x20(%rbp)
je     1258 <ScriptEnd+0x128>
jmp    11ab <ScriptEnd+0x7b>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x5c,%eax
jne    1214 <ScriptEnd+0xe4>
mov    -0x10(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0xa,%eax
jne    11ef <ScriptEnd+0xbf>
mov    -0x10(%rbp),%rax
add    $0x2,%rax
cmp    -0x18(%rbp),%rax
jne    11ef <ScriptEnd+0xbf>
mov    -0x10(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x8(%rbp)
jmp    12f0 <ScriptEnd+0x1c0>
mov    -0x10(%rbp),%rdi
lea    -0x24(%rbp),%rsi
mov    $0x0,%al
call   1030 <Tcl_Backslash@plt>
mov    -0x24(%rbp),%ecx
mov    -0x10(%rbp),%rax
movslq %ecx,%rcx
add    %rcx,%rax
mov    %rax,-0x10(%rbp)
jmp    1220 <ScriptEnd+0xf0>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    1225 <ScriptEnd+0xf5>
mov    -0x10(%rbp),%rcx
xor    %eax,%eax
cmp    -0x18(%rbp),%rcx
mov    %al,-0x25(%rbp)
je     1248 <ScriptEnd+0x118>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0xa,%eax
setne  %al
mov    %al,-0x25(%rbp)
mov    -0x25(%rbp),%al
test   $0x1,%al
jne    11ab <ScriptEnd+0x7b>
jmp    114a <ScriptEnd+0x1a>
mov    -0x10(%rbp),%rdi
mov    -0x18(%rbp),%rsi
mov    -0x1c(%rbp),%edx
lea    -0x20(%rbp),%rcx
mov    $0x0,%al
call   1050 <TclWordEnd@plt>
cltq
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
cmp    -0x18(%rbp),%rax
jne    128f <ScriptEnd+0x15f>
mov    -0x10(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    12f0 <ScriptEnd+0x1c0>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
cmpl   $0x0,-0x1c(%rbp)
je     12c7 <ScriptEnd+0x197>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x5d,%eax
jne    12c2 <ScriptEnd+0x192>
mov    -0x10(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    12f0 <ScriptEnd+0x1c0>
jmp    12eb <ScriptEnd+0x1bb>
mov    -0x10(%rbp),%rax
cmp    -0x18(%rbp),%rax
jne    12e6 <ScriptEnd+0x1b6>
mov    -0x10(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x8(%rbp)
jmp    12f0 <ScriptEnd+0x1c0>
jmp    12eb <ScriptEnd+0x1bb>
jmp    114a <ScriptEnd+0x1a>
mov    -0x8(%rbp),%rax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<ScriptEnd>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %edx,%r14d
mov    %rsi,%r13
mov    %rdi,%rbp
movl   $0x1,(%rsp)
lea    0x4(%rsp),%r12
mov    %rsp,%r15
jmp    1160 <ScriptEnd+0x30>
cmp    %r13,%rbp
je     1248 <ScriptEnd+0x118>
xchg   %ax,%ax
mov    0x0(%rbp),%bl
jmp    1178 <ScriptEnd+0x48>
cs nopw 0x0(%rax,%rax,1)
nop
movzbl 0x1(%rbp),%ebx
add    $0x1,%rbp
movzbl %bl,%edi
call   1040 <isspace@plt>
test   %eax,%eax
je     11a0 <ScriptEnd+0x70>
cmp    $0xa,%bl
jne    1170 <ScriptEnd+0x40>
movl   $0x1,(%rsp)
jmp    1170 <ScriptEnd+0x40>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
cmp    $0x23,%bl
jne    1200 <ScriptEnd+0xd0>
cmpl   $0x0,(%rsp)
je     1200 <ScriptEnd+0xd0>
mov    $0x23,%al
jmp    11c1 <ScriptEnd+0x91>
nop
add    $0x1,%rbp
cmp    %r13,%rbp
je     11ee <ScriptEnd+0xbe>
movzbl 0x0(%rbp),%eax
cmp    $0xa,%al
je     1160 <ScriptEnd+0x30>
cmp    $0x5c,%al
jne    11b0 <ScriptEnd+0x80>
cmpb   $0xa,0x1(%rbp)
jne    11d4 <ScriptEnd+0xa4>
lea    0x2(%rbp),%rax
cmp    %r13,%rax
je     1233 <ScriptEnd+0x103>
mov    %rbp,%rdi
mov    %r12,%rsi
xor    %eax,%eax
call   1030 <Tcl_Backslash@plt>
movslq 0x4(%rsp),%rax
add    %rax,%rbp
cmp    %r13,%rbp
jne    11b9 <ScriptEnd+0x89>
mov    %r13,%rbp
jmp    1160 <ScriptEnd+0x30>
cs nopw 0x0(%rax,%rax,1)
mov    %rbp,%rdi
mov    %r13,%rsi
mov    %r14d,%edx
mov    %r15,%rcx
xor    %eax,%eax
call   1050 <TclWordEnd@plt>
cltq
cmp    %r13,%rax
je     1233 <ScriptEnd+0x103>
lea    0x1(%rax),%rbp
test   %r14d,%r14d
je     1155 <ScriptEnd+0x25>
cmpb   $0x5d,0x0(%rbp)
jne    1160 <ScriptEnd+0x30>
jmp    1236 <ScriptEnd+0x106>
mov    %r13,%rbp
mov    %rbp,%rax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
mov    %rax,%rbp
jmp    1236 <ScriptEnd+0x106>

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

LLVM IR (-O2):
define i8* @ScriptEnd(i8* %0, i8* %1, i32 %2) {
%4 = alloca i32
%5 = alloca i32
%6 = bitcast i32* %4 to i8*
store i32 1, i32* %4
%7 = bitcast i32* %5 to i8*
%8 = icmp eq i32 %2, 0
br label %9
9: ; preds = %65, %3
%10 = phi i8* [ %0, %3 ], [ %66, %65 ]
%11 = load i8, i8* %10
%12 = zext i8 %11 to i32
%13 = call i32 @isspace(i32 %12)
%14 = icmp eq i32 %13, 0
br i1 %14, label %26, label %15
15: ; preds = %9, %20
%16 = phi i8 [ %22, %20 ], [ %11, %9 ]
%17 = phi i8* [ %21, %20 ], [ %10, %9 ]
%18 = icmp eq i8 %16, 10
br i1 %18, label %19, label %20
19: ; preds = %15
store i32 1, i32* %4
br label %20
20: ; preds = %19, %15
%21 = getelementptr inbounds i8, i8* %17, i64 1
%22 = load i8, i8* %21
%23 = zext i8 %22 to i32
%24 = call i32 @isspace(i32 %23)
%25 = icmp eq i32 %24, 0
br i1 %25, label %26, label %15
26: ; preds = %20, %9
%27 = phi i8* [ %10, %9 ], [ %21, %20 ]
%28 = phi i8 [ %11, %9 ], [ %22, %20 ]
%29 = icmp eq i8 %28, 35
%30 = load i32, i32* %4
%31 = icmp ne i32 %30, 0
%32 = select i1 %29, i1 %31, i1 false
br i1 %32, label %33, label %55
33: ; preds = %26, %52
%34 = phi i8 [ %53, %52 ], [ 35, %26 ]
%35 = phi i8* [ %50, %52 ], [ %27, %26 ]
%36 = icmp eq i8 %34, 92
%37 = getelementptr inbounds i8, i8* %35, i64 1
br i1 %36, label %38, label %49
38: ; preds = %33
%39 = load i8, i8* %37
%40 = icmp eq i8 %39, 10
%41 = getelementptr inbounds i8, i8* %35, i64 2
%42 = icmp eq i8* %41, %1
%43 = select i1 %40, i1 %42, i1 false
br i1 %43, label %71, label %44
44: ; preds = %38
%45 = call i32 (i8*, i32*, ...) bitcast (i32 (...)* @Tcl_Backslash to i32 (i8*, i32*, ...)*)(i8* %35, i32* %5)
%46 = load i32, i32* %5
%47 = sext i32 %46 to i64
%48 = getelementptr inbounds i8, i8* %35, i64 %47
br label %49
49: ; preds = %33, %44
%50 = phi i8* [ %48, %44 ], [ %37, %33 ]
%51 = icmp eq i8* %50, %1
br i1 %51, label %65, label %52
52: ; preds = %49
%53 = load i8, i8* %50
%54 = icmp eq i8 %53, 10
br i1 %54, label %65, label %33
55: ; preds = %26
%56 = call i32 (i8*, i8*, i32, i32*, ...) bitcast (i32 (...)* @TclWordEnd to i32 (i8*, i8*, i32, i32*, ...)*)(i8* %27, i8* %1, i32 %2, i32* %4)
%57 = sext i32 %56 to i64
%58 = inttoptr i64 %57 to i8*
%59 = icmp eq i8* %58, %1
br i1 %59, label %71, label %60
60: ; preds = %55
%61 = getelementptr inbounds i8, i8* %58, i64 1
br i1 %8, label %67, label %62
62: ; preds = %60
%63 = load i8, i8* %61
%64 = icmp eq i8 %63, 93
br i1 %64, label %71, label %65
65: ; preds = %49, %52, %62, %67
%66 = phi i8* [ %61, %67 ], [ %61, %62 ], [ %50, %52 ], [ %1, %49 ]
br label %9
67: ; preds = %60
%68 = icmp eq i8* %61, %1
br i1 %68, label %69, label %65
69: ; preds = %67
%70 = inttoptr i64 %57 to i8*
br label %71
71: ; preds = %55, %62, %38, %69
%72 = phi i8* [ %70, %69 ], [ %1, %38 ], [ %1, %55 ], [ %61, %62 ]
ret i8* %72
}