#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 */
int str2ascii(char const *, char const *, char **);
size_t strlen(char *);
char toupper(char);
scalar_t__ valid_a_char(char);
int str2a_char(const char *icharset, const char *input, char **output) {
  int ret;
  char *ascii;
  size_t len, i;
  if (output == NULL) {
    return 0xF030FFFA;
  }
  if (input == NULL) {
    *output = NULL;
    return 0;
  }
  ret = str2ascii(icharset, input, &ascii);
  if (ret < 0) {
    *output = NULL;
    return ret;
  }
  len = strlen(ascii);
  for (i = 0; i < len; ++i) {
    char c = toupper(ascii[i]);
    ascii[i] = valid_a_char(c) ? c : '_';
  }
  *output = ascii;
  return 1;
}


x86 assembly (clang, -O0):
<str2a_char>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
cmpq   $0x0,-0x20(%rbp)
jne    116b <str2a_char+0x2b>
movl   $0xf030fffa,-0x4(%rbp)
jmp    1257 <str2a_char+0x117>
cmpq   $0x0,-0x18(%rbp)
jne    118d <str2a_char+0x4d>
mov    -0x20(%rbp),%rax
movq   $0x0,(%rax)
movl   $0x0,-0x4(%rbp)
jmp    1257 <str2a_char+0x117>
mov    -0x10(%rbp),%rdi
mov    -0x18(%rbp),%rsi
lea    -0x30(%rbp),%rdx
call   1050 <str2ascii@plt>
mov    %eax,-0x24(%rbp)
cmpl   $0x0,-0x24(%rbp)
jge    11c1 <str2a_char+0x81>
mov    -0x20(%rbp),%rax
movq   $0x0,(%rax)
mov    -0x24(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    1257 <str2a_char+0x117>
mov    -0x30(%rbp),%rdi
call   1040 <strlen@plt>
mov    %rax,-0x38(%rbp)
movq   $0x0,-0x40(%rbp)
mov    -0x40(%rbp),%rax
cmp    -0x38(%rbp),%rax
jae    1245 <str2a_char+0x105>
mov    -0x30(%rbp),%rax
mov    -0x40(%rbp),%rcx
movsbl (%rax,%rcx,1),%edi
call   1030 <toupper@plt>
mov    %al,-0x41(%rbp)
movsbl -0x41(%rbp),%edi
call   1060 <valid_a_char@plt>
cmp    $0x0,%rax
je     1217 <str2a_char+0xd7>
movsbl -0x41(%rbp),%eax
mov    %eax,-0x48(%rbp)
jmp    1224 <str2a_char+0xe4>
mov    $0x5f,%eax
mov    %eax,-0x48(%rbp)
jmp    1224 <str2a_char+0xe4>
mov    -0x48(%rbp),%eax
mov    %al,%dl
mov    -0x30(%rbp),%rax
mov    -0x40(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x40(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x40(%rbp)
jmp    11d6 <str2a_char+0x96>
mov    -0x30(%rbp),%rcx
mov    -0x20(%rbp),%rax
mov    %rcx,(%rax)
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<str2a_char>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
test   %rdx,%rdx
je     11c3 <str2a_char+0x83>
mov    %rdx,%r14
test   %rsi,%rsi
je     11cb <str2a_char+0x8b>
mov    %rsp,%rdx
call   1050 <str2ascii@plt>
test   %eax,%eax
js     11d2 <str2a_char+0x92>
mov    (%rsp),%rbx
mov    %rbx,%rdi
call   1040 <strlen@plt>
mov    $0x1,%r15d
test   %rax,%rax
je     11d7 <str2a_char+0x97>
mov    %rax,%r12
xor    %ebp,%ebp
mov    $0x5f,%r13d
cs nopw 0x0(%rax,%rax,1)
movsbl (%rbx,%rbp,1),%edi
call   1030 <toupper@plt>
movsbl %al,%ebx
mov    %ebx,%edi
call   1060 <valid_a_char@plt>
test   %rax,%rax
movzbl %bl,%eax
cmove  %r13d,%eax
mov    (%rsp),%rcx
mov    %al,(%rcx,%rbp,1)
add    $0x1,%rbp
mov    (%rsp),%rbx
cmp    %rbp,%r12
jne    1190 <str2a_char+0x50>
jmp    11d7 <str2a_char+0x97>
mov    $0xf030fffa,%r15d
jmp    11da <str2a_char+0x9a>
xor    %ebx,%ebx
xor    %r15d,%r15d
jmp    11d7 <str2a_char+0x97>
mov    %eax,%r15d
xor    %ebx,%ebx
mov    %rbx,(%r14)
mov    %r15d,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i32 @str2a_char(i8* %0, i8* %1, i8** %2) {
%4 = alloca i32
%5 = alloca i8*
%6 = alloca i8*
%7 = alloca i8**
%8 = alloca i32
%9 = alloca i8*
%10 = alloca i64
%11 = alloca i64
%12 = alloca i8
store i8* %0, i8** %5
store i8* %1, i8** %6
store i8** %2, i8*** %7
%13 = load i8**, i8*** %7
%14 = icmp eq i8** %13, null
br i1 %14, label %15, label %16
15: ; preds = %3
store i32 -265224198, i32* %4
br label %62
16: ; preds = %3
%17 = load i8*, i8** %6
%18 = icmp eq i8* %17, null
br i1 %18, label %19, label %21
19: ; preds = %16
%20 = load i8**, i8*** %7
store i8* null, i8** %20
store i32 0, i32* %4
br label %62
21: ; preds = %16
%22 = load i8*, i8** %5
%23 = load i8*, i8** %6
%24 = call i32 @str2ascii(i8* %22, i8* %23, i8** %9)
store i32 %24, i32* %8
%25 = load i32, i32* %8
%26 = icmp slt i32 %25, 0
br i1 %26, label %27, label %30
27: ; preds = %21
%28 = load i8**, i8*** %7
store i8* null, i8** %28
%29 = load i32, i32* %8
store i32 %29, i32* %4
br label %62
30: ; preds = %21
%31 = load i8*, i8** %9
%32 = call i64 @strlen(i8* %31)
store i64 %32, i64* %10
store i64 0, i64* %11
br label %33
33: ; preds = %56, %30
%34 = load i64, i64* %11
%35 = load i64, i64* %10
%36 = icmp ult i64 %34, %35
br i1 %36, label %37, label %59
37: ; preds = %33
%38 = load i8*, i8** %9
%39 = load i64, i64* %11
%40 = getelementptr inbounds i8, i8* %38, i64 %39
%41 = load i8, i8* %40
%42 = call signext i8 @toupper(i8 signext %41)
store i8 %42, i8* %12
%43 = load i8, i8* %12
%44 = call i64 @valid_a_char(i8 signext %43)
%45 = icmp ne i64 %44, 0
br i1 %45, label %46, label %49
46: ; preds = %37
%47 = load i8, i8* %12
%48 = sext i8 %47 to i32
br label %50
49: ; preds = %37
br label %50
50: ; preds = %49, %46
%51 = phi i32 [ %48, %46 ], [ 95, %49 ]
%52 = trunc i32 %51 to i8
%53 = load i8*, i8** %9
%54 = load i64, i64* %11
%55 = getelementptr inbounds i8, i8* %53, i64 %54
store i8 %52, i8* %55
br label %56
56: ; preds = %50
%57 = load i64, i64* %11
%58 = add i64 %57, 1
store i64 %58, i64* %11
br label %33
59: ; preds = %33
%60 = load i8*, i8** %9
%61 = load i8**, i8*** %7
store i8* %60, i8** %61
store i32 1, i32* %4
br label %62
62: ; preds = %59, %27, %19, %15
%63 = load i32, i32* %4
ret i32 %63
}

LLVM IR (-O2):
define i32 @str2a_char(i8* %0, i8* %1, i8** writeonly %2) {
%4 = alloca i8*
%5 = bitcast i8** %4 to i8*
%6 = icmp eq i8** %2, null
br i1 %6, label %33, label %7
7: ; preds = %3
%8 = icmp eq i8* %1, null
br i1 %8, label %30, label %9
9: ; preds = %7
%10 = call i32 @str2ascii(i8* %0, i8* %1, i8** %4)
%11 = icmp slt i32 %10, 0
br i1 %11, label %30, label %12
12: ; preds = %9
%13 = load i8*, i8** %4
%14 = call i64 @strlen(i8* dereferenceable(1) %13)
%15 = icmp eq i64 %14, 0
br i1 %15, label %30, label %16
16: ; preds = %12, %16
%17 = phi i8* [ %29, %16 ], [ %13, %12 ]
%18 = phi i64 [ %27, %16 ], [ 0, %12 ]
%19 = getelementptr inbounds i8, i8* %17, i64 %18
%20 = load i8, i8* %19
%21 = call signext i8 @toupper(i8 signext %20)
%22 = call i64 @valid_a_char(i8 signext %21)
%23 = icmp eq i64 %22, 0
%24 = select i1 %23, i8 95, i8 %21
%25 = load i8*, i8** %4
%26 = getelementptr inbounds i8, i8* %25, i64 %18
store i8 %24, i8* %26
%27 = add nuw i64 %18, 1
%28 = icmp eq i64 %27, %14
%29 = load i8*, i8** %4
br i1 %28, label %30, label %16
30: ; preds = %16, %12, %9, %7
%31 = phi i8* [ null, %7 ], [ null, %9 ], [ %13, %12 ], [ %29, %16 ]
%32 = phi i32 [ 0, %7 ], [ %10, %9 ], [ 1, %12 ], [ 1, %16 ]
store i8* %31, i8** %2
br label %33
33: ; preds = %30, %3
%34 = phi i32 [ -265224198, %3 ], [ %32, %30 ]
ret i32 %34
}