From 4ca5b2ccb3ab18ee1b79ce01b90b3a1c8907250f Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 29 Apr 2014 14:02:30 -0700 Subject: [PATCH] Revert "unix.ffi: be more explicit about dirent64." This reverts commit edf456149330d44995b1c8bdf61a1c5d2617ed9c. --- basis/io/directories/unix/linux/linux.factor | 2 +- basis/unix/ffi/linux/linux.factor | 9 ++++----- 2 files changed, 5 insertions(+), 6 deletions(-) diff --git a/basis/io/directories/unix/linux/linux.factor b/basis/io/directories/unix/linux/linux.factor index 45c1a146d8..bc1e53366d 100644 --- a/basis/io/directories/unix/linux/linux.factor +++ b/basis/io/directories/unix/linux/linux.factor @@ -12,6 +12,6 @@ IN: io.directories.unix.linux M: linux (directory-entries) ( path -- seq ) [ - dirent64 + dirent '[ _ _ next-dirent ] [ >directory-entry ] produce nip ] with-unix-directory ; diff --git a/basis/unix/ffi/linux/linux.factor b/basis/unix/ffi/linux/linux.factor index 711bf74209..31afb2365d 100644 --- a/basis/unix/ffi/linux/linux.factor +++ b/basis/unix/ffi/linux/linux.factor @@ -98,18 +98,17 @@ STRUCT: passwd { pw_dir c-string } { pw_shell c-string } ; -STRUCT: dirent64 +! dirent64 +STRUCT: dirent { d_ino ulonglong } { d_off longlong } { d_reclen ushort } { d_type uchar } { d_name char[256] } ; -ALIAS: dirent dirent64 - FUNCTION: int open64 ( c-string path, int flags, int prot ) ; -FUNCTION: dirent64* readdir64 ( DIR* dirp ) ; -FUNCTION: int readdir64_r ( void* dirp, dirent64* entry, dirent64** result ) ; +FUNCTION: dirent* readdir64 ( DIR* dirp ) ; +FUNCTION: int readdir64_r ( void* dirp, dirent* entry, dirent** result ) ; FUNCTION: ssize_t sendfile ( int out_fd, int in_fd, off_t* offset, size_t count ) ;