#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 /*<<< orphan*/ errors(char *, int);
char **malloc(int);
char *my_strdup(char *);
char **dup_env(char **env) {
  char **env_copy;
  static int i = 0;
  while (env[i] != NULL)
    i = i + 1;
  if ((env_copy = malloc(sizeof(*env_copy) * i + 1)) == NULL)
    errors("malloc error", 84);
  i = 0;
  while (env[i] != NULL) {
    env_copy[i] = my_strdup(env[i]);
    i++;
  }
  env_copy[i - 1] = NULL;
  return (env_copy);
}


x86 assembly (clang, -O0):
<dup_env>:
push   %rbp
mov    %rsp,%rbp
sub    $0x10,%rsp
mov    %rdi,-0x8(%rbp)
mov    -0x8(%rbp),%rax
movslq 0x2ef5(%rip),%rcx
cmpq   $0x0,(%rax,%rcx,8)
je     1166 <dup_env+0x36>
mov    0x2ee4(%rip),%eax
add    $0x1,%eax
mov    %eax,0x2edb(%rip)
jmp    113c <dup_env+0xc>
movslq 0x2ecf(%rip),%rax
shl    $0x3,%rax
add    $0x1,%rax
mov    %eax,%edi
call   1030 <malloc@plt>
mov    %rax,-0x10(%rbp)
cmp    $0x0,%rax
jne    119b <dup_env+0x6b>
lea    0xe6f(%rip),%rdi
mov    $0x54,%esi
call   1040 <errors@plt>
movl   $0x0,0x2e97(%rip)
mov    -0x8(%rbp),%rax
movslq 0x2e8c(%rip),%rcx
cmpq   $0x0,(%rax,%rcx,8)
je     11f5 <dup_env+0xc5>
mov    -0x8(%rbp),%rax
movslq 0x2e76(%rip),%rcx
mov    (%rax,%rcx,8),%rdi
call   1050 <my_strdup@plt>
mov    %rax,%rdx
mov    -0x10(%rbp),%rax
movslq 0x2e5f(%rip),%rcx
mov    %rdx,(%rax,%rcx,8)
mov    0x2e55(%rip),%eax
add    $0x1,%eax
mov    %eax,0x2e4c(%rip)
jmp    11a5 <dup_env+0x75>
mov    -0x10(%rbp),%rax
mov    0x2e3d(%rip),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movq   $0x0,(%rax,%rcx,8)
mov    -0x10(%rbp),%rax
add    $0x10,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<dup_env>:
push   %r14
push   %rbx
push   %rax
mov    %rdi,%r14
mov    0x2eff(%rip),%eax
movslq %eax,%rcx
cmpq   $0x0,(%rdi,%rcx,8)
je     1163 <dup_env+0x33>
lea    (%r14,%rcx,8),%rcx
add    $0x8,%rcx
nop
add    $0x1,%eax
cmpq   $0x0,(%rcx)
lea    0x8(%rcx),%rcx
jne    1150 <dup_env+0x20>
mov    %eax,0x2ed9(%rip)
lea    0x1(,%rax,8),%edi
call   1030 <malloc@plt>
mov    %rax,%rbx
test   %rax,%rax
jne    1188 <dup_env+0x58>
lea    0xe82(%rip),%rdi
mov    $0x54,%esi
call   1040 <errors@plt>
movl   $0x0,0x2eaa(%rip)
mov    (%r14),%rdi
test   %rdi,%rdi
je     11c6 <dup_env+0x96>
nopw   0x0(%rax,%rax,1)
call   1050 <my_strdup@plt>
movslq 0x2e90(%rip),%rcx
mov    %rax,(%rbx,%rcx,8)
lea    0x1(%rcx),%rax
mov    %eax,0x2e82(%rip)
mov    0x8(%r14,%rcx,8),%rdi
test   %rdi,%rdi
jne    11a0 <dup_env+0x70>
jmp    11cd <dup_env+0x9d>
mov    $0xffffffffffffffff,%rcx
movq   $0x0,(%rbx,%rcx,8)
mov    %rbx,%rax
add    $0x8,%rsp
pop    %rbx
pop    %r14
ret

LLVM IR (-O0):
@dup_env.i = internal global i32 0
@.str = [13 x i8] c"malloc error\00"
define i8** @dup_env(i8** %0) {
%2 = alloca i8**
%3 = alloca i8**
store i8** %0, i8*** %2
br label %4
4: ; preds = %11, %1
%5 = load i8**, i8*** %2
%6 = load i32, i32* @dup_env.i
%7 = sext i32 %6 to i64
%8 = getelementptr inbounds i8*, i8** %5, i64 %7
%9 = load i8*, i8** %8
%10 = icmp ne i8* %9, null
br i1 %10, label %11, label %14
11: ; preds = %4
%12 = load i32, i32* @dup_env.i
%13 = add nsw i32 %12, 1
store i32 %13, i32* @dup_env.i
br label %4
14: ; preds = %4
%15 = load i32, i32* @dup_env.i
%16 = sext i32 %15 to i64
%17 = mul i64 8, %16
%18 = add i64 %17, 1
%19 = trunc i64 %18 to i32
%20 = call i8** @malloc(i32 %19)
store i8** %20, i8*** %3
%21 = icmp eq i8** %20, null
br i1 %21, label %22, label %24
22: ; preds = %14
%23 = call i32 @errors(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str, i64 0, i64 0), i32 84)
br label %24
24: ; preds = %22, %14
store i32 0, i32* @dup_env.i
br label %25
25: ; preds = %32, %24
%26 = load i8**, i8*** %2
%27 = load i32, i32* @dup_env.i
%28 = sext i32 %27 to i64
%29 = getelementptr inbounds i8*, i8** %26, i64 %28
%30 = load i8*, i8** %29
%31 = icmp ne i8* %30, null
br i1 %31, label %32, label %45
32: ; preds = %25
%33 = load i8**, i8*** %2
%34 = load i32, i32* @dup_env.i
%35 = sext i32 %34 to i64
%36 = getelementptr inbounds i8*, i8** %33, i64 %35
%37 = load i8*, i8** %36
%38 = call i8* @my_strdup(i8* %37)
%39 = load i8**, i8*** %3
%40 = load i32, i32* @dup_env.i
%41 = sext i32 %40 to i64
%42 = getelementptr inbounds i8*, i8** %39, i64 %41
store i8* %38, i8** %42
%43 = load i32, i32* @dup_env.i
%44 = add nsw i32 %43, 1
store i32 %44, i32* @dup_env.i
br label %25
45: ; preds = %25
%46 = load i8**, i8*** %3
%47 = load i32, i32* @dup_env.i
%48 = sub nsw i32 %47, 1
%49 = sext i32 %48 to i64
%50 = getelementptr inbounds i8*, i8** %46, i64 %49
store i8* null, i8** %50
%51 = load i8**, i8*** %3
ret i8** %51
}

LLVM IR (-O2):
@dup_env.i = internal unnamed_addr global i32 0
@.str = [13 x i8] c"malloc error\00"
define noalias i8** @dup_env(i8** nocapture %0) {
%2 = load i32, i32* @dup_env.i
%3 = sext i32 %2 to i64
%4 = getelementptr inbounds i8*, i8** %0, i64 %3
%5 = load i8*, i8** %4
%6 = icmp eq i8* %5, null
br i1 %6, label %15, label %7
7: ; preds = %1, %7
%8 = phi i64 [ %9, %7 ], [ %3, %1 ]
%9 = add i64 %8, 1
%10 = getelementptr inbounds i8*, i8** %0, i64 %9
%11 = load i8*, i8** %10
%12 = icmp eq i8* %11, null
br i1 %12, label %13, label %7
13: ; preds = %7
%14 = trunc i64 %9 to i32
store i32 %14, i32* @dup_env.i
br label %15
15: ; preds = %13, %1
%16 = phi i32 [ %14, %13 ], [ %2, %1 ]
%17 = shl i32 %16, 3
%18 = or i32 %17, 1
%19 = tail call i8** @malloc(i32 %18)
%20 = icmp eq i8** %19, null
br i1 %20, label %21, label %23
21: ; preds = %15
%22 = tail call i32 @errors(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str, i64 0, i64 0), i32 84)
br label %23
23: ; preds = %21, %15
store i32 0, i32* @dup_env.i
%24 = load i8*, i8** %0
%25 = icmp eq i8* %24, null
br i1 %25, label %39, label %26
26: ; preds = %23, %26
%27 = phi i8* [ %35, %26 ], [ %24, %23 ]
%28 = tail call i8* @my_strdup(i8* %27)
%29 = load i32, i32* @dup_env.i
%30 = sext i32 %29 to i64
%31 = getelementptr inbounds i8*, i8** %19, i64 %30
store i8* %28, i8** %31
%32 = add nsw i32 %29, 1
store i32 %32, i32* @dup_env.i
%33 = sext i32 %32 to i64
%34 = getelementptr inbounds i8*, i8** %0, i64 %33
%35 = load i8*, i8** %34
%36 = icmp eq i8* %35, null
br i1 %36, label %37, label %26
37: ; preds = %26
%38 = sext i32 %29 to i64
br label %39
39: ; preds = %37, %23
%40 = phi i64 [ -1, %23 ], [ %38, %37 ]
%41 = getelementptr inbounds i8*, i8** %19, i64 %40
store i8* null, i8** %41
ret i8** %19
}