#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 *getenv(char *);
int strlen(char *);
void cgetenvironment_(char *e, char *v, int ne, int nv) {
  int i, ns;
  char *s, *p, *q;
  s = getenv(e);
  if (s == NULL)
    s = "";
  ns = strlen(s);
  if (ns > nv)
    ns = nv;
  p = &s[0];
  q = &v[0];
  for (i = 0; i < ns; i++) {
    *q++ = *p++;
  }
  *q = '\0';
}


x86 assembly (clang, -O0):
<cgetenvironment_>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
mov    -0x8(%rbp),%rdi
call   1030 <getenv@plt>
mov    %rax,-0x28(%rbp)
cmpq   $0x0,-0x28(%rbp)
jne    1159 <cgetenvironment_+0x39>
lea    0xeab(%rip),%rax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rdi
call   1040 <strlen@plt>
mov    %eax,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x18(%rbp),%eax
jle    1177 <cgetenvironment_+0x57>
mov    -0x18(%rbp),%eax
mov    %eax,-0x20(%rbp)
mov    -0x28(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x38(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x20(%rbp),%eax
jge    11ca <cgetenvironment_+0xaa>
mov    -0x30(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x30(%rbp)
mov    (%rax),%cl
mov    -0x38(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x38(%rbp)
mov    %cl,(%rax)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    118e <cgetenvironment_+0x6e>
mov    -0x38(%rbp),%rax
movb   $0x0,(%rax)
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<cgetenvironment_>:
push   %rbp
push   %r14
push   %rbx
mov    %ecx,%ebp
mov    %rsi,%r14
call   1030 <getenv@plt>
test   %rax,%rax
lea    0xec8(%rip),%rbx
cmovne %rax,%rbx
mov    %rbx,%rdi
call   1040 <strlen@plt>
cmp    %ebp,%eax
cmovg  %ebp,%eax
test   %eax,%eax
jle    12f9 <cgetenvironment_+0x1d9>
lea    -0x1(%rax),%edx
xor    %r8d,%r8d
cmp    $0x1f,%edx
jb     125b <cgetenvironment_+0x13b>
lea    (%rbx,%rdx,1),%rcx
add    $0x1,%rcx
cmp    %r14,%rcx
jbe    117e <cgetenvironment_+0x5e>
lea    (%r14,%rdx,1),%rcx
add    $0x1,%rcx
cmp    %rcx,%rbx
jb     125b <cgetenvironment_+0x13b>
add    $0x1,%rdx
mov    %rdx,%r8
and    $0xffffffffffffffe0,%r8
lea    -0x20(%r8),%rcx
mov    %rcx,%rdi
shr    $0x5,%rdi
add    $0x1,%rdi
mov    %edi,%esi
and    $0x3,%esi
cmp    $0x60,%rcx
jae    11a7 <cgetenvironment_+0x87>
xor    %ebp,%ebp
jmp    1210 <cgetenvironment_+0xf0>
and    $0xfffffffffffffffc,%rdi
xor    %ebp,%ebp
nopl   (%rax)
movups (%rbx,%rbp,1),%xmm0
movups 0x10(%rbx,%rbp,1),%xmm1
movups %xmm0,(%r14,%rbp,1)
movups %xmm1,0x10(%r14,%rbp,1)
movups 0x20(%rbx,%rbp,1),%xmm0
movups 0x30(%rbx,%rbp,1),%xmm1
movups %xmm0,0x20(%r14,%rbp,1)
movups %xmm1,0x30(%r14,%rbp,1)
movups 0x40(%rbx,%rbp,1),%xmm0
movups 0x50(%rbx,%rbp,1),%xmm1
movups %xmm0,0x40(%r14,%rbp,1)
movups %xmm1,0x50(%r14,%rbp,1)
movups 0x60(%rbx,%rbp,1),%xmm0
movups 0x70(%rbx,%rbp,1),%xmm1
movups %xmm0,0x60(%r14,%rbp,1)
movups %xmm1,0x70(%r14,%rbp,1)
sub    $0xffffffffffffff80,%rbp
add    $0xfffffffffffffffc,%rdi
jne    11b0 <cgetenvironment_+0x90>
test   %rsi,%rsi
je     124c <cgetenvironment_+0x12c>
lea    (%rbx,%rbp,1),%rdi
add    $0x10,%rdi
add    %r14,%rbp
add    $0x10,%rbp
shl    $0x5,%rsi
xor    %ecx,%ecx
nopw   0x0(%rax,%rax,1)
movups -0x10(%rdi,%rcx,1),%xmm0
movups (%rdi,%rcx,1),%xmm1
movups %xmm0,-0x10(%rbp,%rcx,1)
movups %xmm1,0x0(%rbp,%rcx,1)
add    $0x20,%rcx
cmp    %rcx,%rsi
jne    1230 <cgetenvironment_+0x110>
add    %r8,%r14
cmp    %r8,%rdx
je     12f9 <cgetenvironment_+0x1d9>
add    %r8,%rbx
mov    %eax,%esi
sub    %r8d,%esi
mov    %r8d,%edx
not    %edx
add    %eax,%edx
and    $0x7,%esi
je     1289 <cgetenvironment_+0x169>
neg    %esi
xor    %edi,%edi
movzbl (%rbx),%ecx
add    $0x1,%rbx
mov    %cl,(%r14)
add    $0x1,%r14
add    $0xffffffffffffffff,%rdi
cmp    %edi,%esi
jne    1270 <cgetenvironment_+0x150>
sub    %edi,%r8d
cmp    $0x7,%edx
jb     12f9 <cgetenvironment_+0x1d9>
sub    %r8d,%eax
xor    %ecx,%ecx
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movzbl (%rbx,%rcx,1),%edx
mov    %dl,(%r14,%rcx,1)
movzbl 0x1(%rbx,%rcx,1),%edx
mov    %dl,0x1(%r14,%rcx,1)
movzbl 0x2(%rbx,%rcx,1),%edx
mov    %dl,0x2(%r14,%rcx,1)
movzbl 0x3(%rbx,%rcx,1),%edx
mov    %dl,0x3(%r14,%rcx,1)
movzbl 0x4(%rbx,%rcx,1),%edx
mov    %dl,0x4(%r14,%rcx,1)
movzbl 0x5(%rbx,%rcx,1),%edx
mov    %dl,0x5(%r14,%rcx,1)
movzbl 0x6(%rbx,%rcx,1),%edx
mov    %dl,0x6(%r14,%rcx,1)
movzbl 0x7(%rbx,%rcx,1),%edx
mov    %dl,0x7(%r14,%rcx,1)
add    $0x8,%rcx
cmp    %ecx,%eax
jne    12a0 <cgetenvironment_+0x180>
add    %rcx,%r14
movb   $0x0,(%r14)
pop    %rbx
pop    %r14
pop    %rbp
ret

LLVM IR (-O0):
@.str = [1 x i8] zeroinitializer
define void @cgetenvironment_(i8* %0, i8* %1, i32 %2, i32 %3) {
%5 = alloca i8*
%6 = alloca i8*
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i8*
%12 = alloca i8*
%13 = alloca i8*
store i8* %0, i8** %5
store i8* %1, i8** %6
store i32 %2, i32* %7
store i32 %3, i32* %8
%14 = load i8*, i8** %5
%15 = call i8* @getenv(i8* %14)
store i8* %15, i8** %11
%16 = load i8*, i8** %11
%17 = icmp eq i8* %16, null
br i1 %17, label %18, label %19
18: ; preds = %4
store i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str, i64 0, i64 0), i8** %11
br label %19
19: ; preds = %18, %4
%20 = load i8*, i8** %11
%21 = call i32 @strlen(i8* %20)
store i32 %21, i32* %10
%22 = load i32, i32* %10
%23 = load i32, i32* %8
%24 = icmp sgt i32 %22, %23
br i1 %24, label %25, label %27
25: ; preds = %19
%26 = load i32, i32* %8
store i32 %26, i32* %10
br label %27
27: ; preds = %25, %19
%28 = load i8*, i8** %11
%29 = getelementptr inbounds i8, i8* %28, i64 0
store i8* %29, i8** %12
%30 = load i8*, i8** %6
%31 = getelementptr inbounds i8, i8* %30, i64 0
store i8* %31, i8** %13
store i32 0, i32* %9
br label %32
32: ; preds = %42, %27
%33 = load i32, i32* %9
%34 = load i32, i32* %10
%35 = icmp slt i32 %33, %34
br i1 %35, label %36, label %45
36: ; preds = %32
%37 = load i8*, i8** %12
%38 = getelementptr inbounds i8, i8* %37, i32 1
store i8* %38, i8** %12
%39 = load i8, i8* %37
%40 = load i8*, i8** %13
%41 = getelementptr inbounds i8, i8* %40, i32 1
store i8* %41, i8** %13
store i8 %39, i8* %40
br label %42
42: ; preds = %36
%43 = load i32, i32* %9
%44 = add nsw i32 %43, 1
store i32 %44, i32* %9
br label %32
45: ; preds = %32
%46 = load i8*, i8** %13
store i8 0, i8* %46
ret void
}

LLVM IR (-O2):
@.str = [1 x i8] zeroinitializer
define void @cgetenvironment_(i8* nocapture %0, i8* nocapture writeonly %1, i32 %2, i32 %3) {
%5 = tail call i8* @getenv(i8* %0)
%6 = icmp eq i8* %5, null
%7 = select i1 %6, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str, i64 0, i64 0), i8* %5
%8 = tail call i32 @strlen(i8* %7)
%9 = icmp sgt i32 %8, %3
%10 = select i1 %9, i32 %3, i32 %8
%11 = icmp sgt i32 %10, 0
br i1 %11, label %12, label %164
12: ; preds = %4
%13 = add i32 %10, -1
%14 = zext i32 %13 to i64
%15 = add nuw nsw i64 %14, 1
%16 = icmp ult i32 %13, 31
br i1 %16, label %108, label %17
17: ; preds = %12
%18 = add i32 %10, -1
%19 = zext i32 %18 to i64
%20 = add nuw nsw i64 %19, 1
%21 = getelementptr i8, i8* %1, i64 %20
%22 = getelementptr i8, i8* %7, i64 %20
%23 = icmp ugt i8* %22, %1
%24 = icmp ult i8* %7, %21
%25 = and i1 %23, %24
br i1 %25, label %108, label %26
26: ; preds = %17
%27 = and i64 %15, 8589934560
%28 = getelementptr i8, i8* %1, i64 %27
%29 = getelementptr i8, i8* %7, i64 %27
%30 = trunc i64 %27 to i32
%31 = add nsw i64 %27, -32
%32 = lshr exact i64 %31, 5
%33 = add nuw nsw i64 %32, 1
%34 = and i64 %33, 3
%35 = icmp ult i64 %31, 96
br i1 %35, label %87, label %36
36: ; preds = %26
%37 = and i64 %33, 1152921504606846972
br label %38
38: ; preds = %38, %36
%39 = phi i64 [ 0, %36 ], [ %84, %38 ]
%40 = phi i64 [ 0, %36 ], [ %85, %38 ]
%41 = getelementptr i8, i8* %1, i64 %39
%42 = getelementptr i8, i8* %7, i64 %39
%43 = bitcast i8* %42 to <16 x i8>*
%44 = load <16 x i8>, <16 x i8>* %43
%45 = getelementptr i8, i8* %42, i64 16
%46 = bitcast i8* %45 to <16 x i8>*
%47 = load <16 x i8>, <16 x i8>* %46
%48 = bitcast i8* %41 to <16 x i8>*
store <16 x i8> %44, <16 x i8>* %48
%49 = getelementptr i8, i8* %41, i64 16
%50 = bitcast i8* %49 to <16 x i8>*
store <16 x i8> %47, <16 x i8>* %50
%51 = or i64 %39, 32
%52 = getelementptr i8, i8* %1, i64 %51
%53 = getelementptr i8, i8* %7, i64 %51
%54 = bitcast i8* %53 to <16 x i8>*
%55 = load <16 x i8>, <16 x i8>* %54
%56 = getelementptr i8, i8* %53, i64 16
%57 = bitcast i8* %56 to <16 x i8>*
%58 = load <16 x i8>, <16 x i8>* %57
%59 = bitcast i8* %52 to <16 x i8>*
store <16 x i8> %55, <16 x i8>* %59
%60 = getelementptr i8, i8* %52, i64 16
%61 = bitcast i8* %60 to <16 x i8>*
store <16 x i8> %58, <16 x i8>* %61
%62 = or i64 %39, 64
%63 = getelementptr i8, i8* %1, i64 %62
%64 = getelementptr i8, i8* %7, i64 %62
%65 = bitcast i8* %64 to <16 x i8>*
%66 = load <16 x i8>, <16 x i8>* %65
%67 = getelementptr i8, i8* %64, i64 16
%68 = bitcast i8* %67 to <16 x i8>*
%69 = load <16 x i8>, <16 x i8>* %68
%70 = bitcast i8* %63 to <16 x i8>*
store <16 x i8> %66, <16 x i8>* %70
%71 = getelementptr i8, i8* %63, i64 16
%72 = bitcast i8* %71 to <16 x i8>*
store <16 x i8> %69, <16 x i8>* %72
%73 = or i64 %39, 96
%74 = getelementptr i8, i8* %1, i64 %73
%75 = getelementptr i8, i8* %7, i64 %73
%76 = bitcast i8* %75 to <16 x i8>*
%77 = load <16 x i8>, <16 x i8>* %76
%78 = getelementptr i8, i8* %75, i64 16
%79 = bitcast i8* %78 to <16 x i8>*
%80 = load <16 x i8>, <16 x i8>* %79
%81 = bitcast i8* %74 to <16 x i8>*
store <16 x i8> %77, <16 x i8>* %81
%82 = getelementptr i8, i8* %74, i64 16
%83 = bitcast i8* %82 to <16 x i8>*
store <16 x i8> %80, <16 x i8>* %83
%84 = add nuw i64 %39, 128
%85 = add i64 %40, 4
%86 = icmp eq i64 %85, %37
br i1 %86, label %87, label %38
87: ; preds = %38, %26
%88 = phi i64 [ 0, %26 ], [ %84, %38 ]
%89 = icmp eq i64 %34, 0
br i1 %89, label %106, label %90
90: ; preds = %87, %90
%91 = phi i64 [ %103, %90 ], [ %88, %87 ]
%92 = phi i64 [ %104, %90 ], [ 0, %87 ]
%93 = getelementptr i8, i8* %1, i64 %91
%94 = getelementptr i8, i8* %7, i64 %91
%95 = bitcast i8* %94 to <16 x i8>*
%96 = load <16 x i8>, <16 x i8>* %95
%97 = getelementptr i8, i8* %94, i64 16
%98 = bitcast i8* %97 to <16 x i8>*
%99 = load <16 x i8>, <16 x i8>* %98
%100 = bitcast i8* %93 to <16 x i8>*
store <16 x i8> %96, <16 x i8>* %100
%101 = getelementptr i8, i8* %93, i64 16
%102 = bitcast i8* %101 to <16 x i8>*
store <16 x i8> %99, <16 x i8>* %102
%103 = add nuw i64 %91, 32
%104 = add i64 %92, 1
%105 = icmp eq i64 %104, %34
br i1 %105, label %106, label %90
106: ; preds = %90, %87
%107 = icmp eq i64 %15, %27
br i1 %107, label %164, label %108
108: ; preds = %17, %12, %106
%109 = phi i8* [ %1, %17 ], [ %1, %12 ], [ %28, %106 ]
%110 = phi i8* [ %7, %17 ], [ %7, %12 ], [ %29, %106 ]
%111 = phi i32 [ 0, %17 ], [ 0, %12 ], [ %30, %106 ]
%112 = sub i32 %10, %111
%113 = xor i32 %111, -1
%114 = add i32 %10, %113
%115 = and i32 %112, 7
%116 = icmp eq i32 %115, 0
br i1 %116, label %128, label %117
117: ; preds = %108, %117
%118 = phi i8* [ %124, %117 ], [ %109, %108 ]
%119 = phi i8* [ %122, %117 ], [ %110, %108 ]
%120 = phi i32 [ %125, %117 ], [ %111, %108 ]
%121 = phi i32 [ %126, %117 ], [ 0, %108 ]
%122 = getelementptr inbounds i8, i8* %119, i64 1
%123 = load i8, i8* %119
%124 = getelementptr inbounds i8, i8* %118, i64 1
store i8 %123, i8* %118
%125 = add nuw nsw i32 %120, 1
%126 = add i32 %121, 1
%127 = icmp eq i32 %126, %115
br i1 %127, label %128, label %117
128: ; preds = %117, %108
%129 = phi i8* [ undef, %108 ], [ %124, %117 ]
%130 = phi i8* [ %109, %108 ], [ %124, %117 ]
%131 = phi i8* [ %110, %108 ], [ %122, %117 ]
%132 = phi i32 [ %111, %108 ], [ %125, %117 ]
%133 = icmp ult i32 %114, 7
br i1 %133, label %164, label %134
134: ; preds = %128, %134
%135 = phi i8* [ %161, %134 ], [ %130, %128 ]
%136 = phi i8* [ %159, %134 ], [ %131, %128 ]
%137 = phi i32 [ %162, %134 ], [ %132, %128 ]
%138 = getelementptr inbounds i8, i8* %136, i64 1
%139 = load i8, i8* %136
%140 = getelementptr inbounds i8, i8* %135, i64 1
store i8 %139, i8* %135
%141 = getelementptr inbounds i8, i8* %136, i64 2
%142 = load i8, i8* %138
%143 = getelementptr inbounds i8, i8* %135, i64 2
store i8 %142, i8* %140
%144 = getelementptr inbounds i8, i8* %136, i64 3
%145 = load i8, i8* %141
%146 = getelementptr inbounds i8, i8* %135, i64 3
store i8 %145, i8* %143
%147 = getelementptr inbounds i8, i8* %136, i64 4
%148 = load i8, i8* %144
%149 = getelementptr inbounds i8, i8* %135, i64 4
store i8 %148, i8* %146
%150 = getelementptr inbounds i8, i8* %136, i64 5
%151 = load i8, i8* %147
%152 = getelementptr inbounds i8, i8* %135, i64 5
store i8 %151, i8* %149
%153 = getelementptr inbounds i8, i8* %136, i64 6
%154 = load i8, i8* %150
%155 = getelementptr inbounds i8, i8* %135, i64 6
store i8 %154, i8* %152
%156 = getelementptr inbounds i8, i8* %136, i64 7
%157 = load i8, i8* %153
%158 = getelementptr inbounds i8, i8* %135, i64 7
store i8 %157, i8* %155
%159 = getelementptr inbounds i8, i8* %136, i64 8
%160 = load i8, i8* %156
%161 = getelementptr inbounds i8, i8* %135, i64 8
store i8 %160, i8* %158
%162 = add nuw nsw i32 %137, 8
%163 = icmp eq i32 %162, %10
br i1 %163, label %164, label %134
164: ; preds = %128, %134, %106, %4
%165 = phi i8* [ %1, %4 ], [ %28, %106 ], [ %129, %128 ], [ %161, %134 ]
store i8 0, i8* %165
ret void
}