#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 */
struct dirent {
  int /*<<< orphan*/ d_name;
};
typedef int /*<<< orphan*/ DIR;

/* Variables and functions */
int /*<<< orphan*/ INT_MAX;
int /*<<< orphan*/ closedir(int /*<<< orphan*/ *);
int /*<<< orphan*/ closefrom_close(int);
int dirfd(int /*<<< orphan*/ *);
int /*<<< orphan*/ free(int *);
int /*<<< orphan*/ *opendir(char const *);
struct dirent *readdir(int /*<<< orphan*/ *);
int *reallocarray(int *, int, int);
int strtonum(int /*<<< orphan*/, int, int /*<<< orphan*/, char const **);
void closefrom(int lowfd) {
  const char *path;
  DIR *dirp;
  struct dirent *dent;
  int *fd_array = NULL;
  int fd_array_used = 0;
  int fd_array_size = 0;
  int i;
  path = "/proc/self/fd";
  dirp = opendir(path);
  if (dirp == NULL)
    return;
  while ((dent = readdir(dirp)) != NULL) {
    const char *errstr;
    int fd;
    fd = strtonum(dent->d_name, lowfd, INT_MAX, &errstr);
    if (errstr != NULL || fd == dirfd(dirp))
      continue;
    if (fd_array_used >= fd_array_size) {
      int *ptr;
      if (fd_array_size > 0)
        fd_array_size *= 2;
      else
        fd_array_size = 32;
      ptr = reallocarray(fd_array, fd_array_size, sizeof(int));
      if (ptr == NULL) {
        break;
      }
      fd_array = ptr;
    }
    fd_array[fd_array_used++] = fd;
  }
  for (i = 0; i < fd_array_used; i++)
    closefrom_close(fd_array[i]);
  free(fd_array);
  (void)closedir(dirp);
}


x86 assembly (clang, -O0):
<closefrom>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
mov    %edi,-0x4(%rbp)
movq   $0x0,-0x28(%rbp)
movl   $0x0,-0x2c(%rbp)
movl   $0x0,-0x30(%rbp)
lea    0xe58(%rip),%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rdi
call   1050 <opendir@plt>
mov    %rax,-0x18(%rbp)
cmpq   $0x0,-0x18(%rbp)
jne    11c9 <closefrom+0x49>
jmp    12e7 <closefrom+0x167>
jmp    11ce <closefrom+0x4e>
mov    -0x18(%rbp),%rdi
call   1090 <readdir@plt>
mov    %rax,-0x20(%rbp)
cmp    $0x0,%rax
je     12a4 <closefrom+0x124>
mov    -0x20(%rbp),%rax
mov    (%rax),%edi
mov    -0x4(%rbp),%esi
mov    0x2df3(%rip),%rax
mov    (%rax),%edx
lea    -0x40(%rbp),%rcx
call   10a0 <strtonum@plt>
mov    %eax,-0x44(%rbp)
cmpq   $0x0,-0x40(%rbp)
jne    122a <closefrom+0xaa>
mov    -0x44(%rbp),%eax
mov    %eax,-0x54(%rbp)
mov    -0x18(%rbp),%rdi
call   1080 <dirfd@plt>
mov    %eax,%ecx
mov    -0x54(%rbp),%eax
cmp    %ecx,%eax
jne    122f <closefrom+0xaf>
jmp    11ce <closefrom+0x4e>
mov    -0x2c(%rbp),%eax
cmp    -0x30(%rbp),%eax
jl     1287 <closefrom+0x107>
cmpl   $0x0,-0x30(%rbp)
jle    1253 <closefrom+0xd3>
mov    -0x30(%rbp),%eax
shl    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    125a <closefrom+0xda>
movl   $0x20,-0x30(%rbp)
mov    -0x28(%rbp),%rdi
mov    -0x30(%rbp),%esi
mov    $0x4,%edx
call   1040 <reallocarray@plt>
mov    %rax,-0x50(%rbp)
cmpq   $0x0,-0x50(%rbp)
jne    127f <closefrom+0xff>
jmp    12a4 <closefrom+0x124>
mov    -0x50(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x44(%rbp),%edx
mov    -0x28(%rbp),%rax
mov    -0x2c(%rbp),%ecx
mov    %ecx,%esi
add    $0x1,%esi
mov    %esi,-0x2c(%rbp)
movslq %ecx,%rcx
mov    %edx,(%rax,%rcx,4)
jmp    11ce <closefrom+0x4e>
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0x2c(%rbp),%eax
jge    12d5 <closefrom+0x155>
mov    -0x28(%rbp),%rax
movslq -0x34(%rbp),%rcx
mov    (%rax,%rcx,4),%edi
call   1060 <closefrom_close@plt>
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    12ab <closefrom+0x12b>
mov    -0x28(%rbp),%rdi
call   1030 <free@plt>
mov    -0x18(%rbp),%rdi
call   1070 <closedir@plt>
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<closefrom>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    %edi,%r12d
lea    0xe68(%rip),%rdi
call   1050 <opendir@plt>
test   %rax,%rax
je     1293 <closefrom+0x113>
mov    %rax,%r14
mov    %rax,%rdi
call   1090 <readdir@plt>
test   %rax,%rax
je     125e <closefrom+0xde>
xor    %r13d,%r13d
mov    0x2e24(%rip),%rbx
xor    %r15d,%r15d
xor    %ecx,%ecx
mov    %rcx,0x8(%rsp)
jmp    11fd <closefrom+0x7d>
mov    %r13,%rax
mov    %rcx,0x8(%rsp)
movslq %r15d,%rcx
add    $0x1,%r15d
mov    %ebp,(%rax,%rcx,4)
mov    %rax,%r13
cs nopw 0x0(%rax,%rax,1)
nop
mov    %r14,%rdi
call   1090 <readdir@plt>
test   %rax,%rax
je     1264 <closefrom+0xe4>
mov    (%rax),%edi
mov    (%rbx),%edx
mov    %r12d,%esi
lea    0x10(%rsp),%rcx
call   10a0 <strtonum@plt>
cmpq   $0x0,0x10(%rsp)
jne    11f0 <closefrom+0x70>
mov    %eax,%ebp
mov    %r14,%rdi
call   1080 <dirfd@plt>
cmp    %eax,%ebp
je     11f0 <closefrom+0x70>
mov    0x8(%rsp),%rcx
cmp    %ecx,%r15d
jl     11d0 <closefrom+0x50>
lea    (%rcx,%rcx,1),%ebx
test   %ecx,%ecx
mov    $0x20,%eax
cmovle %eax,%ebx
mov    %r13,%rdi
mov    %ebx,%esi
mov    $0x4,%edx
call   1040 <reallocarray@plt>
mov    %ebx,%ecx
mov    0x2d95(%rip),%rbx
test   %rax,%rax
jne    11d3 <closefrom+0x53>
jmp    1264 <closefrom+0xe4>
xor    %r15d,%r15d
xor    %r13d,%r13d
test   %r15d,%r15d
jle    1283 <closefrom+0x103>
mov    %r15d,%ebx
xor    %ebp,%ebp
xchg   %ax,%ax
mov    0x0(%r13,%rbp,4),%edi
call   1060 <closefrom_close@plt>
add    $0x1,%rbp
cmp    %rbp,%rbx
jne    1270 <closefrom+0xf0>
mov    %r13,%rdi
call   1030 <free@plt>
mov    %r14,%rdi
call   1070 <closedir@plt>
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
%struct.dirent = type { i32 }
@.str = [14 x i8] c"/proc/self/fd\00"
@INT_MAX = global i32 0
define void @closefrom(i32 %0) {
%2 = alloca i32
%3 = alloca i8*
%4 = alloca i32*
%5 = alloca %struct.dirent*
%6 = alloca i32*
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i8*
%11 = alloca i32
%12 = alloca i32*
store i32 %0, i32* %2
store i32* null, i32** %6
store i32 0, i32* %7
store i32 0, i32* %8
store i8* getelementptr inbounds ([14 x i8], [14 x i8]* @.str, i64 0, i64 0), i8** %3
%13 = load i8*, i8** %3
%14 = call i32* @opendir(i8* %13)
store i32* %14, i32** %4
%15 = load i32*, i32** %4
%16 = icmp eq i32* %15, null
br i1 %16, label %17, label %18
17: ; preds = %1
br label %85
18: ; preds = %1
br label %19
19: ; preds = %58, %37, %18
%20 = load i32*, i32** %4
%21 = call %struct.dirent* @readdir(i32* %20)
store %struct.dirent* %21, %struct.dirent** %5
%22 = icmp ne %struct.dirent* %21, null
br i1 %22, label %23, label %65
23: ; preds = %19
%24 = load %struct.dirent*, %struct.dirent** %5
%25 = getelementptr inbounds %struct.dirent, %struct.dirent* %24, i32 0, i32 0
%26 = load i32, i32* %25
%27 = load i32, i32* %2
%28 = load i32, i32* @INT_MAX
%29 = call i32 @strtonum(i32 %26, i32 %27, i32 %28, i8** %10)
store i32 %29, i32* %11
%30 = load i8*, i8** %10
%31 = icmp ne i8* %30, null
br i1 %31, label %37, label %32
32: ; preds = %23
%33 = load i32, i32* %11
%34 = load i32*, i32** %4
%35 = call i32 @dirfd(i32* %34)
%36 = icmp eq i32 %33, %35
br i1 %36, label %37, label %38
37: ; preds = %32, %23
br label %19
38: ; preds = %32
%39 = load i32, i32* %7
%40 = load i32, i32* %8
%41 = icmp sge i32 %39, %40
br i1 %41, label %42, label %58
42: ; preds = %38
%43 = load i32, i32* %8
%44 = icmp sgt i32 %43, 0
br i1 %44, label %45, label %48
45: ; preds = %42
%46 = load i32, i32* %8
%47 = mul nsw i32 %46, 2
store i32 %47, i32* %8
br label %49
48: ; preds = %42
store i32 32, i32* %8
br label %49
49: ; preds = %48, %45
%50 = load i32*, i32** %6
%51 = load i32, i32* %8
%52 = call i32* @reallocarray(i32* %50, i32 %51, i32 4)
store i32* %52, i32** %12
%53 = load i32*, i32** %12
%54 = icmp eq i32* %53, null
br i1 %54, label %55, label %56
55: ; preds = %49
br label %65
56: ; preds = %49
%57 = load i32*, i32** %12
store i32* %57, i32** %6
br label %58
58: ; preds = %56, %38
%59 = load i32, i32* %11
%60 = load i32*, i32** %6
%61 = load i32, i32* %7
%62 = add nsw i32 %61, 1
store i32 %62, i32* %7
%63 = sext i32 %61 to i64
%64 = getelementptr inbounds i32, i32* %60, i64 %63
store i32 %59, i32* %64
br label %19
65: ; preds = %55, %19
store i32 0, i32* %9
br label %66
66: ; preds = %77, %65
%67 = load i32, i32* %9
%68 = load i32, i32* %7
%69 = icmp slt i32 %67, %68
br i1 %69, label %70, label %80
70: ; preds = %66
%71 = load i32*, i32** %6
%72 = load i32, i32* %9
%73 = sext i32 %72 to i64
%74 = getelementptr inbounds i32, i32* %71, i64 %73
%75 = load i32, i32* %74
%76 = call i32 @closefrom_close(i32 %75)
br label %77
77: ; preds = %70
%78 = load i32, i32* %9
%79 = add nsw i32 %78, 1
store i32 %79, i32* %9
br label %66
80: ; preds = %66
%81 = load i32*, i32** %6
%82 = call i32 @free(i32* %81)
%83 = load i32*, i32** %4
%84 = call i32 @closedir(i32* %83)
br label %85
85: ; preds = %80, %17
ret void
}

LLVM IR (-O2):
%struct.dirent = type { i32 }
@.str = [14 x i8] c"/proc/self/fd\00"
@INT_MAX = global i32 0
define void @closefrom(i32 %0) {
%2 = alloca i8*
%3 = tail call i32* @opendir(i8* getelementptr inbounds ([14 x i8], [14 x i8]* @.str, i64 0, i64 0))
%4 = icmp eq i32* %3, null
br i1 %4, label %60, label %5
5: ; preds = %1
%6 = bitcast i8** %2 to i8*
%7 = call %struct.dirent* @readdir(i32* %3)
%8 = icmp eq %struct.dirent* %7, null
br i1 %8, label %44, label %9
9: ; preds = %5, %38
%10 = phi %struct.dirent* [ %42, %38 ], [ %7, %5 ]
%11 = phi i32* [ %41, %38 ], [ null, %5 ]
%12 = phi i32 [ %40, %38 ], [ 0, %5 ]
%13 = phi i32 [ %39, %38 ], [ 0, %5 ]
%14 = getelementptr inbounds %struct.dirent, %struct.dirent* %10, i64 0, i32 0
%15 = load i32, i32* %14
%16 = load i32, i32* @INT_MAX
%17 = call i32 @strtonum(i32 %15, i32 %0, i32 %16, i8** %2)
%18 = load i8*, i8** %2
%19 = icmp eq i8* %18, null
br i1 %19, label %20, label %38
20: ; preds = %9
%21 = call i32 @dirfd(i32* %3)
%22 = icmp eq i32 %17, %21
br i1 %22, label %38, label %23
23: ; preds = %20
%24 = icmp slt i32 %12, %13
br i1 %24, label %32, label %25
25: ; preds = %23
%26 = icmp sgt i32 %13, 0
%27 = shl nsw i32 %13, 1
%28 = select i1 %26, i32 %27, i32 32
%29 = call i32* @reallocarray(i32* %11, i32 %28, i32 4)
%30 = icmp eq i32* %29, null
br i1 %30, label %31, label %32
31: ; preds = %25
br label %44
32: ; preds = %25, %23
%33 = phi i32 [ %28, %25 ], [ %13, %23 ]
%34 = phi i32* [ %29, %25 ], [ %11, %23 ]
%35 = add nsw i32 %12, 1
%36 = sext i32 %12 to i64
%37 = getelementptr inbounds i32, i32* %34, i64 %36
store i32 %17, i32* %37
br label %38
38: ; preds = %9, %20, %32
%39 = phi i32 [ %33, %32 ], [ %13, %20 ], [ %13, %9 ]
%40 = phi i32 [ %35, %32 ], [ %12, %20 ], [ %12, %9 ]
%41 = phi i32* [ %34, %32 ], [ %11, %20 ], [ %11, %9 ]
%42 = call %struct.dirent* @readdir(i32* %3)
%43 = icmp eq %struct.dirent* %42, null
br i1 %43, label %44, label %9
44: ; preds = %38, %5, %31
%45 = phi i32 [ %12, %31 ], [ 0, %5 ], [ %40, %38 ]
%46 = phi i32* [ %11, %31 ], [ null, %5 ], [ %41, %38 ]
%47 = icmp sgt i32 %45, 0
br i1 %47, label %48, label %57
48: ; preds = %44
%49 = zext i32 %45 to i64
br label %50
50: ; preds = %48, %50
%51 = phi i64 [ 0, %48 ], [ %55, %50 ]
%52 = getelementptr inbounds i32, i32* %46, i64 %51
%53 = load i32, i32* %52
%54 = call i32 @closefrom_close(i32 %53)
%55 = add nuw nsw i64 %51, 1
%56 = icmp eq i64 %55, %49
br i1 %56, label %57, label %50
57: ; preds = %50, %44
%58 = call i32 @free(i32* %46)
%59 = call i32 @closedir(i32* %3)
br label %60
60: ; preds = %1, %57
ret void
}