#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
scalar_t__ isalpha(int);
scalar_t__ islower(int);
char toupper(char);
char *soundex(const char *str) {
  static char sbuf[50 + 1];
  unsigned sindex = 0;
  char lastc = ' ';
  const char *mapping = "01230120002455012622011202";
  char initial_letter = *str;
  if (islower((int)initial_letter)) {
    initial_letter = toupper(initial_letter);
  }
  if ((initial_letter == 'Y') || (initial_letter == 'J')) {
    sbuf[sindex] = '7';
    str++;
    sindex++;
  }
  while ((*str != '\0') && (sindex < 50)) {
    char ch = *str;
    if (isalpha((int)ch) && (ch != lastc)) {
      char translation;
      if (islower((int)ch)) {
        ch = toupper(ch);
      }
      translation = mapping[ch - 'A'];
      if ((translation != '0') && (translation != lastc)) {
        sbuf[sindex] = translation;
        sindex++;
        lastc = translation;
      }
    }
    str++;
  }
  sbuf[sindex] = '\0';
  return (sbuf);
}


x86 assembly (clang, -O0):
<soundex>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x8(%rbp)
movl   $0x0,-0xc(%rbp)
movb   $0x20,-0xd(%rbp)
lea    0xeb2(%rip),%rax
mov    %rax,-0x18(%rbp)
mov    -0x8(%rbp),%rax
mov    (%rax),%al
mov    %al,-0x19(%rbp)
movsbl -0x19(%rbp),%edi
call   1030 <islower@plt>
cmp    $0x0,%rax
je     117a <soundex+0x4a>
movsbl -0x19(%rbp),%edi
call   1040 <toupper@plt>
mov    %al,-0x19(%rbp)
movsbl -0x19(%rbp),%eax
cmp    $0x59,%eax
je     1194 <soundex+0x64>
movsbl -0x19(%rbp),%eax
cmp    $0x4a,%eax
jne    11b9 <soundex+0x89>
mov    -0xc(%rbp),%eax
mov    %eax,%ecx
lea    0x2eb0(%rip),%rax
movb   $0x37,(%rax,%rcx,1)
mov    -0x8(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x8(%rbp)
mov    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xc(%rbp)
jmp    11be <soundex+0x8e>
mov    -0x8(%rbp),%rax
movsbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x1c(%rbp)
je     11dd <soundex+0xad>
cmpl   $0x32,-0xc(%rbp)
setb   %al
mov    %al,-0x1c(%rbp)
mov    -0x1c(%rbp),%al
test   $0x1,%al
jne    11ed <soundex+0xbd>
jmp    12a0 <soundex+0x170>
mov    -0x8(%rbp),%rax
mov    (%rax),%al
mov    %al,-0x1a(%rbp)
movsbl -0x1a(%rbp),%edi
call   1050 <isalpha@plt>
cmp    $0x0,%rax
je     128f <soundex+0x15f>
movsbl -0x1a(%rbp),%eax
movsbl -0xd(%rbp),%ecx
cmp    %ecx,%eax
je     128f <soundex+0x15f>
movsbl -0x1a(%rbp),%edi
call   1030 <islower@plt>
cmp    $0x0,%rax
je     1238 <soundex+0x108>
movsbl -0x1a(%rbp),%edi
call   1040 <toupper@plt>
mov    %al,-0x1a(%rbp)
mov    -0x18(%rbp),%rax
movsbl -0x1a(%rbp),%ecx
sub    $0x41,%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,1),%al
mov    %al,-0x1b(%rbp)
movsbl -0x1b(%rbp),%eax
cmp    $0x30,%eax
je     128a <soundex+0x15a>
movsbl -0x1b(%rbp),%eax
movsbl -0xd(%rbp),%ecx
cmp    %ecx,%eax
je     128a <soundex+0x15a>
mov    -0x1b(%rbp),%dl
mov    -0xc(%rbp),%eax
mov    %eax,%ecx
lea    0x2dd8(%rip),%rax
mov    %dl,(%rax,%rcx,1)
mov    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xc(%rbp)
mov    -0x1b(%rbp),%al
mov    %al,-0xd(%rbp)
jmp    128f <soundex+0x15f>
mov    -0x8(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x8(%rbp)
jmp    11be <soundex+0x8e>
mov    -0xc(%rbp),%eax
mov    %eax,%ecx
lea    0x2da4(%rip),%rax
movb   $0x0,(%rax,%rcx,1)
lea    0x2d99(%rip),%rax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<soundex>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %rdi,%r14
mov    (%rdi),%bl
movsbl %bl,%ebp
mov    %ebp,%edi
call   1030 <islower@plt>
test   %rax,%rax
je     1158 <soundex+0x28>
mov    %ebp,%edi
call   1040 <toupper@plt>
mov    %eax,%ebx
cmp    $0x59,%bl
je     1165 <soundex+0x35>
xor    %r15d,%r15d
cmp    $0x4a,%bl
jne    1176 <soundex+0x46>
movb   $0x37,0x2ee4(%rip)
add    $0x1,%r14
mov    $0x1,%r15d
mov    (%r14),%bl
test   %bl,%bl
je     11fe <soundex+0xce>
add    $0x1,%r14
mov    $0x20,%r12b
mov    $0x1104391,%r13d
xchg   %ax,%ax
movsbl %bl,%ebp
mov    %ebp,%edi
call   1050 <isalpha@plt>
test   %rax,%rax
je     11ec <soundex+0xbc>
cmp    %r12b,%bl
je     11ec <soundex+0xbc>
mov    %ebp,%edi
call   1030 <islower@plt>
test   %rax,%rax
je     11b9 <soundex+0x89>
mov    %ebp,%edi
call   1040 <toupper@plt>
mov    %eax,%ebx
movsbq %bl,%rax
lea    -0x41(%rax),%rcx
bt     %rcx,%r13
jb     11ec <soundex+0xbc>
lea    0xe32(%rip),%rcx
movzbl -0x41(%rax,%rcx,1),%eax
cmp    %r12b,%al
je     11ec <soundex+0xbc>
mov    %r15d,%ecx
lea    0x2e6e(%rip),%rdx
mov    %al,(%rcx,%rdx,1)
add    $0x1,%r15d
mov    %eax,%r12d
movzbl (%r14),%ebx
test   %bl,%bl
je     11fe <soundex+0xce>
add    $0x1,%r14
cmp    $0x32,%r15d
jb     1190 <soundex+0x60>
mov    %r15d,%ecx
lea    0x2e48(%rip),%rax
movb   $0x0,(%rcx,%rax,1)
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@soundex.sbuf = internal global [51 x i8] zeroinitializer
@.str = [27 x i8] c"01230120002455012622011202\00"
define i8* @soundex(i8* %0) {
%2 = alloca i8*
%3 = alloca i32
%4 = alloca i8
%5 = alloca i8*
%6 = alloca i8
%7 = alloca i8
%8 = alloca i8
store i8* %0, i8** %2
store i32 0, i32* %3
store i8 32, i8* %4
store i8* getelementptr inbounds ([27 x i8], [27 x i8]* @.str, i64 0, i64 0), i8** %5
%9 = load i8*, i8** %2
%10 = load i8, i8* %9
store i8 %10, i8* %6
%11 = load i8, i8* %6
%12 = sext i8 %11 to i32
%13 = call i64 @islower(i32 %12)
%14 = icmp ne i64 %13, 0
br i1 %14, label %15, label %18
15: ; preds = %1
%16 = load i8, i8* %6
%17 = call signext i8 @toupper(i8 signext %16)
store i8 %17, i8* %6
br label %18
18: ; preds = %15, %1
%19 = load i8, i8* %6
%20 = sext i8 %19 to i32
%21 = icmp eq i32 %20, 89
br i1 %21, label %26, label %22
22: ; preds = %18
%23 = load i8, i8* %6
%24 = sext i8 %23 to i32
%25 = icmp eq i32 %24, 74
br i1 %25, label %26, label %34
26: ; preds = %22, %18
%27 = load i32, i32* %3
%28 = zext i32 %27 to i64
%29 = getelementptr inbounds [51 x i8], [51 x i8]* @soundex.sbuf, i64 0, i64 %28
store i8 55, i8* %29
%30 = load i8*, i8** %2
%31 = getelementptr inbounds i8, i8* %30, i32 1
store i8* %31, i8** %2
%32 = load i32, i32* %3
%33 = add i32 %32, 1
store i32 %33, i32* %3
br label %34
34: ; preds = %26, %22
br label %35
35: ; preds = %92, %34
%36 = load i8*, i8** %2
%37 = load i8, i8* %36
%38 = sext i8 %37 to i32
%39 = icmp ne i32 %38, 0
br i1 %39, label %40, label %43
40: ; preds = %35
%41 = load i32, i32* %3
%42 = icmp ult i32 %41, 50
br label %43
43: ; preds = %40, %35
%44 = phi i1 [ false, %35 ], [ %42, %40 ]
br i1 %44, label %45, label %95
45: ; preds = %43
%46 = load i8*, i8** %2
%47 = load i8, i8* %46
store i8 %47, i8* %7
%48 = load i8, i8* %7
%49 = sext i8 %48 to i32
%50 = call i64 @isalpha(i32 %49)
%51 = icmp ne i64 %50, 0
br i1 %51, label %52, label %92
52: ; preds = %45
%53 = load i8, i8* %7
%54 = sext i8 %53 to i32
%55 = load i8, i8* %4
%56 = sext i8 %55 to i32
%57 = icmp ne i32 %54, %56
br i1 %57, label %58, label %92
58: ; preds = %52
%59 = load i8, i8* %7
%60 = sext i8 %59 to i32
%61 = call i64 @islower(i32 %60)
%62 = icmp ne i64 %61, 0
br i1 %62, label %63, label %66
63: ; preds = %58
%64 = load i8, i8* %7
%65 = call signext i8 @toupper(i8 signext %64)
store i8 %65, i8* %7
br label %66
66: ; preds = %63, %58
%67 = load i8*, i8** %5
%68 = load i8, i8* %7
%69 = sext i8 %68 to i32
%70 = sub nsw i32 %69, 65
%71 = sext i32 %70 to i64
%72 = getelementptr inbounds i8, i8* %67, i64 %71
%73 = load i8, i8* %72
store i8 %73, i8* %8
%74 = load i8, i8* %8
%75 = sext i8 %74 to i32
%76 = icmp ne i32 %75, 48
br i1 %76, label %77, label %91
77: ; preds = %66
%78 = load i8, i8* %8
%79 = sext i8 %78 to i32
%80 = load i8, i8* %4
%81 = sext i8 %80 to i32
%82 = icmp ne i32 %79, %81
br i1 %82, label %83, label %91
83: ; preds = %77
%84 = load i8, i8* %8
%85 = load i32, i32* %3
%86 = zext i32 %85 to i64
%87 = getelementptr inbounds [51 x i8], [51 x i8]* @soundex.sbuf, i64 0, i64 %86
store i8 %84, i8* %87
%88 = load i32, i32* %3
%89 = add i32 %88, 1
store i32 %89, i32* %3
%90 = load i8, i8* %8
store i8 %90, i8* %4
br label %91
91: ; preds = %83, %77, %66
br label %92
92: ; preds = %91, %52, %45
%93 = load i8*, i8** %2
%94 = getelementptr inbounds i8, i8* %93, i32 1
store i8* %94, i8** %2
br label %35
95: ; preds = %43
%96 = load i32, i32* %3
%97 = zext i32 %96 to i64
%98 = getelementptr inbounds [51 x i8], [51 x i8]* @soundex.sbuf, i64 0, i64 %97
store i8 0, i8* %98
ret i8* getelementptr inbounds ([51 x i8], [51 x i8]* @soundex.sbuf, i64 0, i64 0)
}

LLVM IR (-O2):
@soundex.sbuf = internal global [51 x i8] zeroinitializer
@.str = [27 x i8] c"01230120002455012622011202\00"
define i8* @soundex(i8* nocapture %0) {
%2 = load i8, i8* %0
%3 = sext i8 %2 to i32
%4 = tail call i64 @islower(i32 %3)
%5 = icmp eq i64 %4, 0
br i1 %5, label %8, label %6
6: ; preds = %1
%7 = tail call signext i8 @toupper(i8 signext %2)
br label %8
8: ; preds = %6, %1
%9 = phi i8 [ %7, %6 ], [ %2, %1 ]
switch i8 %9, label %12 [
i8 89, label %10
i8 74, label %10
]
10: ; preds = %8, %8
store i8 55, i8* getelementptr inbounds ([51 x i8], [51 x i8]* @soundex.sbuf, i64 0, i64 0)
%11 = getelementptr inbounds i8, i8* %0, i64 1
br label %12
12: ; preds = %8, %10
%13 = phi i32 [ 1, %10 ], [ 0, %8 ]
%14 = phi i8* [ %11, %10 ], [ %0, %8 ]
%15 = load i8, i8* %14
%16 = icmp eq i8 %15, 0
br i1 %16, label %55, label %17
17: ; preds = %12, %47
%18 = phi i8 [ %51, %47 ], [ %15, %12 ]
%19 = phi i8* [ %50, %47 ], [ %14, %12 ]
%20 = phi i32 [ %49, %47 ], [ %13, %12 ]
%21 = phi i8 [ %48, %47 ], [ 32, %12 ]
%22 = sext i8 %18 to i32
%23 = tail call i64 @isalpha(i32 %22)
%24 = icmp eq i64 %23, 0
%25 = icmp eq i8 %18, %21
%26 = select i1 %24, i1 true, i1 %25
br i1 %26, label %47, label %27
27: ; preds = %17
%28 = tail call i64 @islower(i32 %22)
%29 = icmp eq i64 %28, 0
br i1 %29, label %32, label %30
30: ; preds = %27
%31 = tail call signext i8 @toupper(i8 signext %18)
br label %32
32: ; preds = %30, %27
%33 = phi i8 [ %31, %30 ], [ %18, %27 ]
%34 = sext i8 %33 to i64
%35 = add nsw i64 %34, -65
%36 = getelementptr inbounds [27 x i8], [27 x i8]* @.str, i64 0, i64 %35
%37 = load i8, i8* %36
%38 = lshr i64 17843089, %35
%39 = and i64 %38, 1
%40 = icmp ne i64 %39, 0
%41 = icmp eq i8 %37, %21
%42 = select i1 %40, i1 true, i1 %41
br i1 %42, label %47, label %43
43: ; preds = %32
%44 = zext i32 %20 to i64
%45 = getelementptr inbounds [51 x i8], [51 x i8]* @soundex.sbuf, i64 0, i64 %44
store i8 %37, i8* %45
%46 = add nuw nsw i32 %20, 1
br label %47
47: ; preds = %32, %43, %17
%48 = phi i8 [ %21, %17 ], [ %37, %43 ], [ %21, %32 ]
%49 = phi i32 [ %20, %17 ], [ %46, %43 ], [ %20, %32 ]
%50 = getelementptr inbounds i8, i8* %19, i64 1
%51 = load i8, i8* %50
%52 = icmp ne i8 %51, 0
%53 = icmp ult i32 %49, 50
%54 = select i1 %52, i1 %53, i1 false
br i1 %54, label %17, label %55
55: ; preds = %47, %12
%56 = phi i32 [ %13, %12 ], [ %49, %47 ]
%57 = zext i32 %56 to i64
%58 = getelementptr inbounds [51 x i8], [51 x i8]* @soundex.sbuf, i64 0, i64 %57
store i8 0, i8* %58
ret i8* getelementptr inbounds ([51 x i8], [51 x i8]* @soundex.sbuf, i64 0, i64 0)
}