#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 */
char *get_charset_aliases();
char *getenv(char *);
int /*<<< orphan*/ strcmp(char const *, char const *);
int strlen(char const *);
const char *locale_charset(void) {
  const char *codeset;
  const char *aliases;
  const char *locale = NULL;
  if (locale == NULL || locale[0] == '\0') {
    locale = getenv("LC_ALL");
    if (locale == NULL || locale[0] == '\0') {
      locale = getenv("LC_CTYPE");
      if (locale == NULL || locale[0] == '\0')
        locale = getenv("LANG");
    }
  }
  codeset = locale;
  if (codeset != NULL && codeset[0] != '\0') {
    for (aliases = get_charset_aliases(); *aliases != '\0';
         aliases += strlen(aliases) + 1, aliases += strlen(aliases) + 1)
      if (!strcmp(codeset, aliases)) {
        codeset = aliases + strlen(aliases) + 1;
        break;
      }
  }
  return codeset;
}


x86 assembly (clang, -O0):
<locale_charset>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
movq   $0x0,-0x18(%rbp)
cmpq   $0x0,-0x18(%rbp)
je     116b <locale_charset+0x2b>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    11db <locale_charset+0x9b>
lea    0xe8e(%rip),%rdi
call   1030 <getenv@plt>
mov    %rax,-0x18(%rbp)
cmpq   $0x0,-0x18(%rbp)
je     1196 <locale_charset+0x56>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    11d6 <locale_charset+0x96>
lea    0xe6a(%rip),%rdi
call   1030 <getenv@plt>
mov    %rax,-0x18(%rbp)
cmpq   $0x0,-0x18(%rbp)
je     11c1 <locale_charset+0x81>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    11d1 <locale_charset+0x91>
lea    0xe48(%rip),%rdi
call   1030 <getenv@plt>
mov    %rax,-0x18(%rbp)
jmp    11d6 <locale_charset+0x96>
jmp    11db <locale_charset+0x9b>
mov    -0x18(%rbp),%rax
mov    %rax,-0x8(%rbp)
cmpq   $0x0,-0x8(%rbp)
je     12a0 <locale_charset+0x160>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
je     12a0 <locale_charset+0x160>
mov    $0x0,%al
call   1060 <get_charset_aliases@plt>
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
je     129b <locale_charset+0x15b>
mov    -0x8(%rbp),%rdi
mov    -0x10(%rbp),%rsi
call   1050 <strcmp@plt>
cmp    $0x0,%eax
jne    1259 <locale_charset+0x119>
mov    -0x10(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x10(%rbp),%rdi
call   1040 <strlen@plt>
mov    %eax,%ecx
mov    -0x20(%rbp),%rax
movslq %ecx,%rcx
add    %rcx,%rax
add    $0x1,%rax
mov    %rax,-0x8(%rbp)
jmp    129b <locale_charset+0x15b>
jmp    125e <locale_charset+0x11e>
mov    -0x10(%rbp),%rdi
call   1040 <strlen@plt>
mov    %eax,%ecx
add    $0x1,%ecx
mov    -0x10(%rbp),%rax
movslq %ecx,%rcx
add    %rcx,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rdi
call   1040 <strlen@plt>
mov    %eax,%ecx
add    $0x1,%ecx
mov    -0x10(%rbp),%rax
movslq %ecx,%rcx
add    %rcx,%rax
mov    %rax,-0x10(%rbp)
jmp    1209 <locale_charset+0xc9>
jmp    12a0 <locale_charset+0x160>
mov    -0x8(%rbp),%rax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<locale_charset>:
push   %rbp
push   %r14
push   %rbx
lea    0xeb5(%rip),%rdi
call   1030 <getenv@plt>
test   %rax,%rax
je     115d <locale_charset+0x1d>
mov    %rax,%r14
cmpb   $0x0,(%rax)
jne    118f <locale_charset+0x4f>
lea    0xea3(%rip),%rdi
call   1030 <getenv@plt>
test   %rax,%rax
je     1176 <locale_charset+0x36>
mov    %rax,%r14
cmpb   $0x0,(%rax)
jne    118f <locale_charset+0x4f>
lea    0xe93(%rip),%rdi
call   1030 <getenv@plt>
test   %rax,%rax
je     11e9 <locale_charset+0xa9>
mov    %rax,%r14
cmpb   $0x0,(%rax)
je     11ec <locale_charset+0xac>
xor    %eax,%eax
call   1060 <get_charset_aliases@plt>
cmpb   $0x0,(%rax)
je     11ec <locale_charset+0xac>
mov    %rax,%rbx
xchg   %ax,%ax
mov    %r14,%rdi
mov    %rbx,%rsi
call   1050 <strcmp@plt>
mov    %eax,%ebp
mov    %rbx,%rdi
call   1040 <strlen@plt>
cltq
test   %ebp,%ebp
je     11df <locale_charset+0x9f>
lea    (%rax,%rbx,1),%rbp
lea    (%rax,%rbx,1),%rdi
add    $0x1,%rdi
call   1040 <strlen@plt>
cltq
lea    (%rax,%rbp,1),%rbx
add    $0x2,%rbx
cmpb   $0x0,0x2(%rax,%rbp,1)
jne    11a0 <locale_charset+0x60>
jmp    11ec <locale_charset+0xac>
lea    (%rbx,%rax,1),%r14
add    $0x1,%r14
jmp    11ec <locale_charset+0xac>
xor    %r14d,%r14d
mov    %r14,%rax
pop    %rbx
pop    %r14
pop    %rbp
ret

LLVM IR (-O0):
@.str = [7 x i8] c"LC_ALL\00"
@.str.1 = [9 x i8] c"LC_CTYPE\00"
@.str.2 = [5 x i8] c"LANG\00"
define i8* @locale_charset() {
%1 = alloca i8*
%2 = alloca i8*
%3 = alloca i8*
store i8* null, i8** %3
%4 = load i8*, i8** %3
%5 = icmp eq i8* %4, null
br i1 %5, label %12, label %6
6: ; preds = %0
%7 = load i8*, i8** %3
%8 = getelementptr inbounds i8, i8* %7, i64 0
%9 = load i8, i8* %8
%10 = sext i8 %9 to i32
%11 = icmp eq i32 %10, 0
br i1 %11, label %12, label %36
12: ; preds = %6, %0
%13 = call i8* @getenv(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str, i64 0, i64 0))
store i8* %13, i8** %3
%14 = load i8*, i8** %3
%15 = icmp eq i8* %14, null
br i1 %15, label %22, label %16
16: ; preds = %12
%17 = load i8*, i8** %3
%18 = getelementptr inbounds i8, i8* %17, i64 0
%19 = load i8, i8* %18
%20 = sext i8 %19 to i32
%21 = icmp eq i32 %20, 0
br i1 %21, label %22, label %35
22: ; preds = %16, %12
%23 = call i8* @getenv(i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str.1, i64 0, i64 0))
store i8* %23, i8** %3
%24 = load i8*, i8** %3
%25 = icmp eq i8* %24, null
br i1 %25, label %32, label %26
26: ; preds = %22
%27 = load i8*, i8** %3
%28 = getelementptr inbounds i8, i8* %27, i64 0
%29 = load i8, i8* %28
%30 = sext i8 %29 to i32
%31 = icmp eq i32 %30, 0
br i1 %31, label %32, label %34
32: ; preds = %26, %22
%33 = call i8* @getenv(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.2, i64 0, i64 0))
store i8* %33, i8** %3
br label %34
34: ; preds = %32, %26
br label %35
35: ; preds = %34, %16
br label %36
36: ; preds = %35, %6
%37 = load i8*, i8** %3
store i8* %37, i8** %1
%38 = load i8*, i8** %1
%39 = icmp ne i8* %38, null
br i1 %39, label %40, label %80
40: ; preds = %36
%41 = load i8*, i8** %1
%42 = getelementptr inbounds i8, i8* %41, i64 0
%43 = load i8, i8* %42
%44 = sext i8 %43 to i32
%45 = icmp ne i32 %44, 0
br i1 %45, label %46, label %80
46: ; preds = %40
%47 = call i8* (...) @get_charset_aliases()
store i8* %47, i8** %2
br label %48
48: ; preds = %66, %46
%49 = load i8*, i8** %2
%50 = load i8, i8* %49
%51 = sext i8 %50 to i32
%52 = icmp ne i32 %51, 0
br i1 %52, label %53, label %79
53: ; preds = %48
%54 = load i8*, i8** %1
%55 = load i8*, i8** %2
%56 = call i32 @strcmp(i8* %54, i8* %55)
%57 = icmp ne i32 %56, 0
br i1 %57, label %65, label %58
58: ; preds = %53
%59 = load i8*, i8** %2
%60 = load i8*, i8** %2
%61 = call i32 @strlen(i8* %60)
%62 = sext i32 %61 to i64
%63 = getelementptr inbounds i8, i8* %59, i64 %62
%64 = getelementptr inbounds i8, i8* %63, i64 1
store i8* %64, i8** %1
br label %79
65: ; preds = %53
br label %66
66: ; preds = %65
%67 = load i8*, i8** %2
%68 = call i32 @strlen(i8* %67)
%69 = add nsw i32 %68, 1
%70 = load i8*, i8** %2
%71 = sext i32 %69 to i64
%72 = getelementptr inbounds i8, i8* %70, i64 %71
store i8* %72, i8** %2
%73 = load i8*, i8** %2
%74 = call i32 @strlen(i8* %73)
%75 = add nsw i32 %74, 1
%76 = load i8*, i8** %2
%77 = sext i32 %75 to i64
%78 = getelementptr inbounds i8, i8* %76, i64 %77
store i8* %78, i8** %2
br label %48
79: ; preds = %58, %48
br label %80
80: ; preds = %79, %40, %36
%81 = load i8*, i8** %1
ret i8* %81
}

LLVM IR (-O2):
@.str = [7 x i8] c"LC_ALL\00"
@.str.1 = [9 x i8] c"LC_CTYPE\00"
@.str.2 = [5 x i8] c"LANG\00"
define i8* @locale_charset() {
%1 = tail call i8* @getenv(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str, i64 0, i64 0))
%2 = icmp eq i8* %1, null
br i1 %2, label %6, label %3
3: ; preds = %0
%4 = load i8, i8* %1
%5 = icmp eq i8 %4, 0
br i1 %5, label %6, label %18
6: ; preds = %3, %0
%7 = tail call i8* @getenv(i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str.1, i64 0, i64 0))
%8 = icmp eq i8* %7, null
br i1 %8, label %12, label %9
9: ; preds = %6
%10 = load i8, i8* %7
%11 = icmp eq i8 %10, 0
br i1 %11, label %12, label %18
12: ; preds = %6, %9
%13 = tail call i8* @getenv(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.2, i64 0, i64 0))
%14 = icmp eq i8* %13, null
br i1 %14, label %42, label %15
15: ; preds = %12
%16 = load i8, i8* %13
%17 = icmp eq i8 %16, 0
br i1 %17, label %42, label %18
18: ; preds = %9, %3, %15
%19 = phi i8* [ %13, %15 ], [ %7, %9 ], [ %1, %3 ]
%20 = tail call i8* (...) @get_charset_aliases()
%21 = load i8, i8* %20
%22 = icmp eq i8 %21, 0
br i1 %22, label %42, label %23
23: ; preds = %18, %32
%24 = phi i8* [ %39, %32 ], [ %20, %18 ]
%25 = tail call i32 @strcmp(i8* %19, i8* %24)
%26 = icmp eq i32 %25, 0
%27 = tail call i32 @strlen(i8* %24)
br i1 %26, label %28, label %32
28: ; preds = %23
%29 = sext i32 %27 to i64
%30 = getelementptr inbounds i8, i8* %24, i64 %29
%31 = getelementptr inbounds i8, i8* %30, i64 1
br label %42
32: ; preds = %23
%33 = add nsw i32 %27, 1
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds i8, i8* %24, i64 %34
%36 = tail call i32 @strlen(i8* %35)
%37 = add nsw i32 %36, 1
%38 = sext i32 %37 to i64
%39 = getelementptr inbounds i8, i8* %35, i64 %38
%40 = load i8, i8* %39
%41 = icmp eq i8 %40, 0
br i1 %41, label %42, label %23
42: ; preds = %32, %18, %28, %15, %12
%43 = phi i8* [ %31, %28 ], [ %13, %15 ], [ null, %12 ], [ %19, %18 ], [ %19, %32 ]
ret i8* %43
}