char Tcl_Backslash(src, readPtr) const char *src;
int *readPtr;
{
  const char *p = src + 1;
  char result;
  int count;
  count = 2;
  switch (*p) {
  case 'a':
    result = 0x7;
    break;
  case 'b':
    result = 0x8;
    break;
  case 'f':
    result = 0xc;
    break;
  case 'n':
    result = 0xa;
    break;
  case 'r':
    result = 0xd;
    break;
  case 't':
    result = 0x9;
    break;
  case 'v':
    result = 0xb;
    break;
  case 'x':
    if (isxdigit(((unsigned char)(p[1])))) {
      char *end;
      result = (char)strtoul(p + 1, &end, 16);
      count = end - src;
    } else {
      count = 2;
      result = 'x';
    }
    break;
  case '\n':
    do {
      p++;
    } while ((*p == ' ') || (*p == '\t'));
    result = ' ';
    count = p - src;
    break;
  case 0:
    result = '\\';
    count = 1;
    break;
  default:
    if (isdigit(((unsigned char)(*p)))) {
      result = (char)(*p - '0');
      p++;
      if (!isdigit(((unsigned char)(*p)))) {
        break;
      }
      count = 3;
      result = (char)((result << 3) + (*p - '0'));
      p++;
      if (!isdigit(((unsigned char)(*p)))) {
        break;
      }
      count = 4;
      result = (char)((result << 3) + (*p - '0'));
      break;
    }
    result = *p;
    count = 2;
    break;
  }
  if (readPtr != 0) {
    *readPtr = count;
  }
  return result;
}


x86 assembly (clang, -O0):
<Tcl_Backslash>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    -0x8(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
movl   $0x2,-0x20(%rbp)
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
mov    %eax,-0x2c(%rbp)
test   %eax,%eax
je     12ec <Tcl_Backslash+0x1bc>
jmp    116a <Tcl_Backslash+0x3a>
mov    -0x2c(%rbp),%eax
sub    $0xa,%eax
je     1294 <Tcl_Backslash+0x164>
jmp    117b <Tcl_Backslash+0x4b>
mov    -0x2c(%rbp),%eax
sub    $0x61,%eax
je     1203 <Tcl_Backslash+0xd3>
jmp    118c <Tcl_Backslash+0x5c>
mov    -0x2c(%rbp),%eax
sub    $0x62,%eax
je     120c <Tcl_Backslash+0xdc>
jmp    119d <Tcl_Backslash+0x6d>
mov    -0x2c(%rbp),%eax
sub    $0x66,%eax
je     1215 <Tcl_Backslash+0xe5>
jmp    11ae <Tcl_Backslash+0x7e>
mov    -0x2c(%rbp),%eax
sub    $0x6e,%eax
je     121e <Tcl_Backslash+0xee>
jmp    11bf <Tcl_Backslash+0x8f>
mov    -0x2c(%rbp),%eax
sub    $0x72,%eax
je     1227 <Tcl_Backslash+0xf7>
jmp    11d0 <Tcl_Backslash+0xa0>
mov    -0x2c(%rbp),%eax
sub    $0x74,%eax
je     1230 <Tcl_Backslash+0x100>
jmp    11e1 <Tcl_Backslash+0xb1>
mov    -0x2c(%rbp),%eax
sub    $0x76,%eax
je     1239 <Tcl_Backslash+0x109>
jmp    11f2 <Tcl_Backslash+0xc2>
mov    -0x2c(%rbp),%eax
sub    $0x78,%eax
je     1242 <Tcl_Backslash+0x112>
jmp    12fc <Tcl_Backslash+0x1cc>
movb   $0x7,-0x19(%rbp)
jmp    13b9 <Tcl_Backslash+0x289>
movb   $0x8,-0x19(%rbp)
jmp    13b9 <Tcl_Backslash+0x289>
movb   $0xc,-0x19(%rbp)
jmp    13b9 <Tcl_Backslash+0x289>
movb   $0xa,-0x19(%rbp)
jmp    13b9 <Tcl_Backslash+0x289>
movb   $0xd,-0x19(%rbp)
jmp    13b9 <Tcl_Backslash+0x289>
movb   $0x9,-0x19(%rbp)
jmp    13b9 <Tcl_Backslash+0x289>
movb   $0xb,-0x19(%rbp)
jmp    13b9 <Tcl_Backslash+0x289>
mov    -0x18(%rbp),%rax
movzbl 0x1(%rax),%edi
call   1050 <isxdigit@plt>
cmp    $0x0,%eax
je     1284 <Tcl_Backslash+0x154>
mov    -0x18(%rbp),%rdi
add    $0x1,%rdi
lea    -0x28(%rbp),%rsi
mov    $0x10,%edx
call   1040 <strtoul@plt>
mov    %al,-0x19(%rbp)
mov    -0x28(%rbp),%rax
mov    -0x8(%rbp),%rcx
sub    %rcx,%rax
mov    %eax,-0x20(%rbp)
jmp    128f <Tcl_Backslash+0x15f>
movl   $0x2,-0x20(%rbp)
movb   $0x78,-0x19(%rbp)
jmp    13b9 <Tcl_Backslash+0x289>
jmp    1299 <Tcl_Backslash+0x169>
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
movsbl (%rax),%ecx
mov    $0x1,%al
cmp    $0x20,%ecx
mov    %al,-0x2d(%rbp)
je     12ca <Tcl_Backslash+0x19a>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x9,%eax
sete   %al
mov    %al,-0x2d(%rbp)
mov    -0x2d(%rbp),%al
test   $0x1,%al
jne    1299 <Tcl_Backslash+0x169>
movb   $0x20,-0x19(%rbp)
mov    -0x18(%rbp),%rax
mov    -0x8(%rbp),%rcx
sub    %rcx,%rax
mov    %eax,-0x20(%rbp)
jmp    13b9 <Tcl_Backslash+0x289>
movb   $0x5c,-0x19(%rbp)
movl   $0x1,-0x20(%rbp)
jmp    13b9 <Tcl_Backslash+0x289>
mov    -0x18(%rbp),%rax
movzbl (%rax),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%eax
je     13a9 <Tcl_Backslash+0x279>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
sub    $0x30,%eax
mov    %al,-0x19(%rbp)
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
movzbl (%rax),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%eax
jne    1344 <Tcl_Backslash+0x214>
jmp    13b9 <Tcl_Backslash+0x289>
movl   $0x3,-0x20(%rbp)
movsbl -0x19(%rbp),%eax
shl    $0x3,%eax
mov    -0x18(%rbp),%rcx
movsbl (%rcx),%ecx
sub    $0x30,%ecx
add    %ecx,%eax
mov    %al,-0x19(%rbp)
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
movzbl (%rax),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%eax
jne    1387 <Tcl_Backslash+0x257>
jmp    13b9 <Tcl_Backslash+0x289>
movl   $0x4,-0x20(%rbp)
movsbl -0x19(%rbp),%eax
shl    $0x3,%eax
mov    -0x18(%rbp),%rcx
movsbl (%rcx),%ecx
sub    $0x30,%ecx
add    %ecx,%eax
mov    %al,-0x19(%rbp)
jmp    13b9 <Tcl_Backslash+0x289>
mov    -0x18(%rbp),%rax
mov    (%rax),%al
mov    %al,-0x19(%rbp)
movl   $0x2,-0x20(%rbp)
cmpq   $0x0,-0x10(%rbp)
je     13cd <Tcl_Backslash+0x29d>
mov    -0x20(%rbp),%ecx
mov    -0x10(%rbp),%rax
mov    %ecx,(%rax)
movsbl -0x19(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<Tcl_Backslash>:
push   %r15
push   %r14
push   %rbx
sub    $0x10,%rsp
mov    %rsi,%r14
mov    %rdi,%r15
mov    0x1(%rdi),%cl
movsbl %cl,%eax
mov    $0x2,%ebx
lea    -0x61(%rax),%edx
cmp    $0x17,%edx
ja     1164 <Tcl_Backslash+0x44>
mov    $0x7,%al
lea    0xeb5(%rip),%rsi
movslq (%rsi,%rdx,4),%rdx
add    %rsi,%rdx
jmp    *%rdx
mov    $0x8,%al
test   %r14,%r14
jne    1263 <Tcl_Backslash+0x143>
jmp    1266 <Tcl_Backslash+0x146>
test   %eax,%eax
je     1257 <Tcl_Backslash+0x137>
cmp    $0xa,%eax
jne    11a1 <Tcl_Backslash+0x81>
mov    $0x2,%ebx
jmp    1184 <Tcl_Backslash+0x64>
nopl   0x0(%rax,%rax,1)
add    $0x1,%rbx
movzbl (%r15,%rbx,1),%eax
cmp    $0x20,%al
je     1180 <Tcl_Backslash+0x60>
cmp    $0x9,%al
je     1180 <Tcl_Backslash+0x60>
mov    $0x20,%al
test   %r14,%r14
jne    1263 <Tcl_Backslash+0x143>
jmp    1266 <Tcl_Backslash+0x146>
movzbl %cl,%eax
add    $0xffffffd0,%eax
cmp    $0x9,%eax
ja     124e <Tcl_Backslash+0x12e>
add    $0xd0,%cl
movzbl 0x2(%r15),%eax
lea    -0x30(%rax),%edx
cmp    $0x9,%edx
ja     124e <Tcl_Backslash+0x12e>
shl    $0x3,%cl
add    %al,%cl
mov    %ecx,%eax
add    $0xd0,%al
movzbl 0x3(%r15),%ecx
lea    -0x30(%rcx),%edx
mov    $0x3,%ebx
cmp    $0x9,%edx
ja     125e <Tcl_Backslash+0x13e>
shl    $0x3,%al
add    %cl,%al
add    $0xd0,%al
mov    $0x4,%ebx
test   %r14,%r14
jne    1263 <Tcl_Backslash+0x143>
jmp    1266 <Tcl_Backslash+0x146>
mov    $0xc,%al
test   %r14,%r14
jne    1263 <Tcl_Backslash+0x143>
jmp    1266 <Tcl_Backslash+0x146>
mov    $0xa,%al
test   %r14,%r14
jne    1263 <Tcl_Backslash+0x143>
jmp    1266 <Tcl_Backslash+0x146>
mov    $0xd,%al
test   %r14,%r14
jne    1263 <Tcl_Backslash+0x143>
jmp    1266 <Tcl_Backslash+0x146>
mov    $0x9,%al
test   %r14,%r14
jne    1263 <Tcl_Backslash+0x143>
jmp    1266 <Tcl_Backslash+0x146>
mov    $0xb,%al
test   %r14,%r14
jne    1263 <Tcl_Backslash+0x143>
jmp    1266 <Tcl_Backslash+0x146>
movzbl 0x2(%r15),%edi
call   1040 <isxdigit@plt>
test   %eax,%eax
je     1270 <Tcl_Backslash+0x150>
lea    0x2(%r15),%rdi
lea    0x8(%rsp),%rsi
mov    $0x10,%edx
call   1030 <strtoul@plt>
mov    0x8(%rsp),%ebx
sub    %r15d,%ebx
test   %r14,%r14
jne    1263 <Tcl_Backslash+0x143>
jmp    1266 <Tcl_Backslash+0x146>
mov    %ecx,%eax
test   %r14,%r14
jne    1263 <Tcl_Backslash+0x143>
jmp    1266 <Tcl_Backslash+0x146>
mov    $0x1,%ebx
mov    $0x5c,%al
test   %r14,%r14
je     1266 <Tcl_Backslash+0x146>
mov    %ebx,(%r14)
add    $0x10,%rsp
pop    %rbx
pop    %r14
pop    %r15
ret
mov    $0x78,%al
test   %r14,%r14
jne    1263 <Tcl_Backslash+0x143>
jmp    1266 <Tcl_Backslash+0x146>

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

LLVM IR (-O2):
define signext i8 @Tcl_Backslash(i8* %0, i32* writeonly %1) {
%3 = alloca i8*
%4 = getelementptr inbounds i8, i8* %0, i64 1
%5 = load i8, i8* %4
%6 = sext i8 %5 to i32
switch i32 %6, label %39 [
i32 97, label %63
i32 98, label %7
i32 102, label %8
i32 110, label %9
i32 114, label %10
i32 116, label %11
i32 118, label %12
i32 120, label %13
i32 10, label %28
i32 0, label %38
]
7: ; preds = %2
br label %63
8: ; preds = %2
br label %63
9: ; preds = %2
br label %63
10: ; preds = %2
br label %63
11: ; preds = %2
br label %63
12: ; preds = %2
br label %63
13: ; preds = %2
%14 = getelementptr inbounds i8, i8* %0, i64 2
%15 = load i8, i8* %14
%16 = zext i8 %15 to i32
%17 = tail call i32 @isxdigit(i32 %16)
%18 = icmp eq i32 %17, 0
br i1 %18, label %63, label %19
19: ; preds = %13
%20 = bitcast i8** %3 to i8*
%21 = call i64 @strtoul(i8* %14, i8** %3, i32 16)
%22 = trunc i64 %21 to i8
%23 = load i8*, i8** %3
%24 = ptrtoint i8* %23 to i64
%25 = ptrtoint i8* %0 to i64
%26 = sub i64 %24, %25
%27 = trunc i64 %26 to i32
br label %63
28: ; preds = %2, %32
%29 = phi i8* [ %30, %32 ], [ %4, %2 ]
%30 = getelementptr inbounds i8, i8* %29, i64 1
%31 = load i8, i8* %30
switch i8 %31, label %33 [
i8 32, label %32
i8 9, label %32
]
32: ; preds = %28, %28
br label %28
33: ; preds = %28
%34 = ptrtoint i8* %30 to i64
%35 = ptrtoint i8* %0 to i64
%36 = sub i64 %34, %35
%37 = trunc i64 %36 to i32
br label %63
38: ; preds = %2
br label %63
39: ; preds = %2
%40 = zext i8 %5 to i32
%41 = add nsw i32 %40, -48
%42 = icmp ult i32 %41, 10
br i1 %42, label %43, label %63
43: ; preds = %39
%44 = add i8 %5, -48
%45 = getelementptr inbounds i8, i8* %0, i64 2
%46 = load i8, i8* %45
%47 = zext i8 %46 to i32
%48 = add nsw i32 %47, -48
%49 = icmp ult i32 %48, 10
br i1 %49, label %50, label %63
50: ; preds = %43
%51 = shl i8 %44, 3
%52 = add i8 %51, -48
%53 = add i8 %52, %46
%54 = getelementptr inbounds i8, i8* %0, i64 3
%55 = load i8, i8* %54
%56 = zext i8 %55 to i32
%57 = add nsw i32 %56, -48
%58 = icmp ult i32 %57, 10
br i1 %58, label %59, label %63
59: ; preds = %50
%60 = shl i8 %53, 3
%61 = add i8 %60, -48
%62 = add i8 %61, %55
br label %63
63: ; preds = %39, %13, %2, %50, %43, %19, %59, %38, %33, %12, %11, %10, %9, %8, %7
%64 = phi i8 [ %62, %59 ], [ %53, %50 ], [ %44, %43 ], [ 92, %38 ], [ 32, %33 ], [ %22, %19 ], [ 11, %12 ], [ 9, %11 ], [ 13, %10 ], [ 10, %9 ], [ 12, %8 ], [ 8, %7 ], [ 7, %2 ], [ 120, %13 ], [ %5, %39 ]
%65 = phi i32 [ 4, %59 ], [ 3, %50 ], [ 2, %43 ], [ 1, %38 ], [ %37, %33 ], [ %27, %19 ], [ 2, %12 ], [ 2, %11 ], [ 2, %10 ], [ 2, %9 ], [ 2, %8 ], [ 2, %7 ], [ 2, %2 ], [ 2, %13 ], [ 2, %39 ]
%66 = icmp eq i32* %1, null
br i1 %66, label %68, label %67
67: ; preds = %63
store i32 %65, i32* %1
br label %68
68: ; preds = %67, %63
ret i8 %64
}