char *s_getenv(name)
char *name;
{
  int i;
  char buffer[256];
  char *r;
  r = getenv(name);
  if (!r) {
    for (i = 0; name[i]; i++, r++)
      buffer[i] = toupper(name[i]);
    buffer[i] = '\0';
    r = getenv(buffer);
    if (!r)
      r = "";
  }
  return zlex_strsave(r);
}


x86 assembly (clang, -O0):
<s_getenv>:
push   %rbp
mov    %rsp,%rbp
sub    $0x120,%rsp
mov    %rdi,-0x8(%rbp)
mov    -0x8(%rbp),%rdi
mov    $0x0,%al
call   1030 <getenv@plt>
cltq
mov    %rax,-0x118(%rbp)
cmpq   $0x0,-0x118(%rbp)
jne    11fc <s_getenv+0xcc>
movl   $0x0,-0xc(%rbp)
mov    -0x8(%rbp),%rax
movslq -0xc(%rbp),%rcx
cmpb   $0x0,(%rax,%rcx,1)
je     11b8 <s_getenv+0x88>
mov    -0x8(%rbp),%rax
movslq -0xc(%rbp),%rcx
movsbl (%rax,%rcx,1),%edi
call   1040 <toupper@plt>
mov    %al,%cl
movslq -0xc(%rbp),%rax
mov    %cl,-0x110(%rbp,%rax,1)
mov    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xc(%rbp)
mov    -0x118(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x118(%rbp)
jmp    1168 <s_getenv+0x38>
movslq -0xc(%rbp),%rax
movb   $0x0,-0x110(%rbp,%rax,1)
lea    -0x110(%rbp),%rdi
mov    $0x0,%al
call   1030 <getenv@plt>
cltq
mov    %rax,-0x118(%rbp)
cmpq   $0x0,-0x118(%rbp)
jne    11f7 <s_getenv+0xc7>
lea    0xe10(%rip),%rax
mov    %rax,-0x118(%rbp)
jmp    11fc <s_getenv+0xcc>
mov    -0x118(%rbp),%rdi
mov    $0x0,%al
call   1050 <zlex_strsave@plt>
cltq
add    $0x120,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<s_getenv>:
push   %r14
push   %rbx
sub    $0x108,%rsp
mov    %rdi,%r14
xor    %eax,%eax
call   1030 <getenv@plt>
test   %eax,%eax
je     114d <s_getenv+0x1d>
movslq %eax,%rdi
jmp    119c <s_getenv+0x6c>
mov    (%r14),%al
test   %al,%al
je     117d <s_getenv+0x4d>
xor    %ebx,%ebx
cs nopw 0x0(%rax,%rax,1)
movsbl %al,%edi
call   1040 <toupper@plt>
mov    %al,(%rsp,%rbx,1)
movzbl 0x1(%r14,%rbx,1),%eax
add    $0x1,%rbx
test   %al,%al
jne    1160 <s_getenv+0x30>
mov    %ebx,%eax
jmp    117f <s_getenv+0x4f>
xor    %eax,%eax
movb   $0x0,(%rsp,%rax,1)
mov    %rsp,%rdi
xor    %eax,%eax
call   1030 <getenv@plt>
cltq
test   %eax,%eax
lea    0xe68(%rip),%rdi
cmovne %rax,%rdi
xor    %eax,%eax
call   1050 <zlex_strsave@plt>
cltq
add    $0x108,%rsp
pop    %rbx
pop    %r14
ret

LLVM IR (-O0):
@.str = [1 x i8] zeroinitializer
define i8* @s_getenv(i8* %0) {
%2 = alloca i8*
%3 = alloca i32
%4 = alloca [256 x i8]
%5 = alloca i8*
store i8* %0, i8** %2
%6 = load i8*, i8** %2
%7 = call i32 (i8*, ...) bitcast (i32 (...)* @getenv to i32 (i8*, ...)*)(i8* %6)
%8 = sext i32 %7 to i64
%9 = inttoptr i64 %8 to i8*
store i8* %9, i8** %5
%10 = load i8*, i8** %5
%11 = icmp ne i8* %10, null
br i1 %11, label %49, label %12
12: ; preds = %1
store i32 0, i32* %3
br label %13
13: ; preds = %32, %12
%14 = load i8*, i8** %2
%15 = load i32, i32* %3
%16 = sext i32 %15 to i64
%17 = getelementptr inbounds i8, i8* %14, i64 %16
%18 = load i8, i8* %17
%19 = icmp ne i8 %18, 0
br i1 %19, label %20, label %37
20: ; preds = %13
%21 = load i8*, i8** %2
%22 = load i32, i32* %3
%23 = sext i32 %22 to i64
%24 = getelementptr inbounds i8, i8* %21, i64 %23
%25 = load i8, i8* %24
%26 = sext i8 %25 to i32
%27 = call i32 @toupper(i32 %26)
%28 = trunc i32 %27 to i8
%29 = load i32, i32* %3
%30 = sext i32 %29 to i64
%31 = getelementptr inbounds [256 x i8], [256 x i8]* %4, i64 0, i64 %30
store i8 %28, i8* %31
br label %32
32: ; preds = %20
%33 = load i32, i32* %3
%34 = add nsw i32 %33, 1
store i32 %34, i32* %3
%35 = load i8*, i8** %5
%36 = getelementptr inbounds i8, i8* %35, i32 1
store i8* %36, i8** %5
br label %13
37: ; preds = %13
%38 = load i32, i32* %3
%39 = sext i32 %38 to i64
%40 = getelementptr inbounds [256 x i8], [256 x i8]* %4, i64 0, i64 %39
store i8 0, i8* %40
%41 = getelementptr inbounds [256 x i8], [256 x i8]* %4, i64 0, i64 0
%42 = call i32 (i8*, ...) bitcast (i32 (...)* @getenv to i32 (i8*, ...)*)(i8* %41)
%43 = sext i32 %42 to i64
%44 = inttoptr i64 %43 to i8*
store i8* %44, i8** %5
%45 = load i8*, i8** %5
%46 = icmp ne i8* %45, null
br i1 %46, label %48, label %47
47: ; preds = %37
store i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str, i64 0, i64 0), i8** %5
br label %48
48: ; preds = %47, %37
br label %49
49: ; preds = %48, %1
%50 = load i8*, i8** %5
%51 = call i32 (i8*, ...) bitcast (i32 (...)* @zlex_strsave to i32 (i8*, ...)*)(i8* %50)
%52 = sext i32 %51 to i64
%53 = inttoptr i64 %52 to i8*
ret i8* %53
}

LLVM IR (-O2):
@.str = [1 x i8] zeroinitializer
define i8* @s_getenv(i8* %0) {
%2 = alloca [256 x i8]
%3 = getelementptr inbounds [256 x i8], [256 x i8]* %2, i64 0, i64 0
%4 = tail call i32 (i8*, ...) bitcast (i32 (...)* @getenv to i32 (i8*, ...)*)(i8* %0)
%5 = sext i32 %4 to i64
%6 = inttoptr i64 %5 to i8*
%7 = icmp eq i32 %4, 0
br i1 %7, label %8, label %32
8: ; preds = %1
%9 = load i8, i8* %0
%10 = icmp eq i8 %9, 0
br i1 %10, label %24, label %11
11: ; preds = %8, %11
%12 = phi i64 [ %18, %11 ], [ 0, %8 ]
%13 = phi i8 [ %20, %11 ], [ %9, %8 ]
%14 = sext i8 %13 to i32
%15 = tail call i32 @toupper(i32 %14)
%16 = trunc i32 %15 to i8
%17 = getelementptr inbounds [256 x i8], [256 x i8]* %2, i64 0, i64 %12
store i8 %16, i8* %17
%18 = add nuw nsw i64 %12, 1
%19 = getelementptr inbounds i8, i8* %0, i64 %18
%20 = load i8, i8* %19
%21 = icmp eq i8 %20, 0
br i1 %21, label %22, label %11
22: ; preds = %11
%23 = and i64 %18, 4294967295
br label %24
24: ; preds = %22, %8
%25 = phi i64 [ 0, %8 ], [ %23, %22 ]
%26 = getelementptr inbounds [256 x i8], [256 x i8]* %2, i64 0, i64 %25
store i8 0, i8* %26
%27 = call i32 (i8*, ...) bitcast (i32 (...)* @getenv to i32 (i8*, ...)*)(i8* %3)
%28 = sext i32 %27 to i64
%29 = inttoptr i64 %28 to i8*
%30 = icmp eq i32 %27, 0
%31 = select i1 %30, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str, i64 0, i64 0), i8* %29
br label %32
32: ; preds = %24, %1
%33 = phi i8* [ %6, %1 ], [ %31, %24 ]
%34 = call i32 (i8*, ...) bitcast (i32 (...)* @zlex_strsave to i32 (i8*, ...)*)(i8* %33)
%35 = sext i32 %34 to i64
%36 = inttoptr i64 %35 to i8*
ret i8* %36
}