char parse_character(source)
char *source;
{
  char c;
  if (*source == '\\')
    switch (*++source) {
    case 'b':
      return ('\b');
    case 'f':
      return ('\f');
    case 'n':
      return ('\n');
    case 'r':
      return ('\r');
    case 't':
      return ('\t');
    case '\'':
      return ('\'');
    case '\\':
      return ('\\');
    case '^':
      return ('^');
    case '0':
    case '1':
    case '2':
    case '3':
    case '4':
    case '5':
    case '6':
    case '7':
      parse_octal(source, &c);
      return (c);
    default:
      return (*source);
    }
  else if (*source == '^') {
    c = *++source;
    return (('@' <= c && c <= '_') ? c - '@' : (c == '?') ? '\177' : c);
  } else
    return (*source);
}


x86 assembly (clang, -O0):
<parse_character>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x5c,%eax
jne    11d5 <parse_character+0xc5>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movsbl 0x1(%rax),%eax
add    $0xffffffd9,%eax
mov    %eax,%ecx
mov    %rcx,-0x20(%rbp)
sub    $0x4d,%eax
ja     11c7 <parse_character+0xb7>
mov    -0x20(%rbp),%rax
lea    0xea4(%rip),%rcx
movslq (%rcx,%rax,4),%rax
add    %rcx,%rax
jmp    *%rax
movb   $0x8,-0x1(%rbp)
jmp    1262 <parse_character+0x152>
movb   $0xc,-0x1(%rbp)
jmp    1262 <parse_character+0x152>
movb   $0xa,-0x1(%rbp)
jmp    1262 <parse_character+0x152>
movb   $0xd,-0x1(%rbp)
jmp    1262 <parse_character+0x152>
movb   $0x9,-0x1(%rbp)
jmp    1262 <parse_character+0x152>
movb   $0x27,-0x1(%rbp)
jmp    1262 <parse_character+0x152>
movb   $0x5c,-0x1(%rbp)
jmp    1262 <parse_character+0x152>
movb   $0x5e,-0x1(%rbp)
jmp    1262 <parse_character+0x152>
mov    -0x10(%rbp),%rdi
lea    -0x11(%rbp),%rsi
mov    $0x0,%al
call   1030 <parse_octal@plt>
mov    -0x11(%rbp),%al
mov    %al,-0x1(%rbp)
jmp    1262 <parse_character+0x152>
mov    -0x10(%rbp),%rax
mov    (%rax),%al
mov    %al,-0x1(%rbp)
jmp    1262 <parse_character+0x152>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x5e,%eax
jne    1259 <parse_character+0x149>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
mov    0x1(%rax),%al
mov    %al,-0x11(%rbp)
movsbl -0x11(%rbp),%ecx
mov    $0x40,%eax
cmp    %ecx,%eax
jg     1227 <parse_character+0x117>
movsbl -0x11(%rbp),%eax
cmp    $0x5f,%eax
jg     1227 <parse_character+0x117>
movsbl -0x11(%rbp),%eax
sub    $0x40,%eax
mov    %eax,-0x24(%rbp)
jmp    124e <parse_character+0x13e>
movsbl -0x11(%rbp),%eax
cmp    $0x3f,%eax
jne    1241 <parse_character+0x131>
mov    $0x7f,%eax
mov    %eax,-0x28(%rbp)
jmp    1248 <parse_character+0x138>
movsbl -0x11(%rbp),%eax
mov    %eax,-0x28(%rbp)
mov    -0x28(%rbp),%eax
mov    %eax,-0x24(%rbp)
mov    -0x24(%rbp),%eax
mov    %al,-0x1(%rbp)
jmp    1262 <parse_character+0x152>
mov    -0x10(%rbp),%rax
mov    (%rax),%al
mov    %al,-0x1(%rbp)
movsbl -0x1(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<parse_character>:
push   %rax
mov    (%rdi),%al
cmp    $0x5e,%al
je     1151 <parse_character+0x41>
cmp    $0x5c,%al
jne    114f <parse_character+0x3f>
movsbl 0x1(%rdi),%ecx
mov    %ecx,%edx
add    $0xffffffd9,%edx
cmp    $0x4d,%edx
ja     118e <parse_character+0x7e>
mov    $0x8,%al
lea    0xece(%rip),%rsi
movslq (%rsi,%rdx,4),%rdx
add    %rsi,%rdx
jmp    *%rdx
add    $0x1,%rdi
lea    0x7(%rsp),%rsi
xor    %eax,%eax
call   1030 <parse_octal@plt>
mov    0x7(%rsp),%al
pop    %rcx
ret
movzbl 0x1(%rdi),%eax
mov    %eax,%ecx
and    $0xe0,%cl
lea    -0x40(%rax),%edx
cmp    $0x3f,%al
mov    $0x7f,%esi
cmovne %eax,%esi
cmp    $0x40,%cl
movzbl %dl,%eax
cmovne %esi,%eax
pop    %rcx
ret
mov    $0x27,%al
pop    %rcx
ret
mov    $0x5c,%al
pop    %rcx
ret
mov    $0x5e,%al
pop    %rcx
ret
mov    $0xc,%al
pop    %rcx
ret
mov    $0xa,%al
pop    %rcx
ret
mov    $0xd,%al
pop    %rcx
ret
mov    $0x9,%al
pop    %rcx
ret
mov    %ecx,%eax
pop    %rcx
ret

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

LLVM IR (-O2):
define signext i8 @parse_character(i8* %0) {
%2 = alloca i8
%3 = load i8, i8* %0
switch i8 %3, label %28 [
i8 92, label %4
i8 94, label %19
]
4: ; preds = %1
%5 = getelementptr inbounds i8, i8* %0, i64 1
%6 = load i8, i8* %5
%7 = sext i8 %6 to i32
switch i32 %7, label %18 [
i32 98, label %28
i32 102, label %8
i32 110, label %9
i32 114, label %10
i32 116, label %11
i32 39, label %12
i32 92, label %13
i32 94, label %14
i32 48, label %15
i32 49, label %15
i32 50, label %15
i32 51, label %15
i32 52, label %15
i32 53, label %15
i32 54, label %15
i32 55, label %15
]
8: ; preds = %4
br label %28
9: ; preds = %4
br label %28
10: ; preds = %4
br label %28
11: ; preds = %4
br label %28
12: ; preds = %4
br label %28
13: ; preds = %4
br label %28
14: ; preds = %4
br label %28
15: ; preds = %4, %4, %4, %4, %4, %4, %4, %4
%16 = call i32 (i8*, i8*, ...) bitcast (i32 (...)* @parse_octal to i32 (i8*, i8*, ...)*)(i8* %5, i8* %2)
%17 = load i8, i8* %2
br label %28
18: ; preds = %4
br label %28
19: ; preds = %1
%20 = getelementptr inbounds i8, i8* %0, i64 1
%21 = load i8, i8* %20
%22 = and i8 %21, -32
%23 = icmp eq i8 %22, 64
%24 = add i8 %21, -64
%25 = icmp eq i8 %21, 63
%26 = select i1 %25, i8 127, i8 %21
%27 = select i1 %23, i8 %24, i8 %26
br label %28
28: ; preds = %1, %4, %19, %18, %15, %14, %13, %12, %11, %10, %9, %8
%29 = phi i8 [ %6, %18 ], [ %17, %15 ], [ 94, %14 ], [ 92, %13 ], [ 39, %12 ], [ 9, %11 ], [ 13, %10 ], [ 10, %9 ], [ 12, %8 ], [ %27, %19 ], [ 8, %4 ], [ %3, %1 ]
ret i8 %29
}