Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • gerd's avatar
    8cb97ea1
    Use int64-t for off-t on BSDs for large file support. · 8cb97ea1
    gerd authored
    	Check return value of syscalls for -1 instead of < 0.
    
    	* src/code/unix.lisp (quad-t) [#+bsd]: Removed.
    	(int64-t, u-int64-t): Added.
    	(off-t): Define as int64-t for BSDs.
    	(file-offset): New deftype; (signed-byte 64) for BSDs,
    	(signed-byte 32) otherwise.
    	(unix-mmap): Remove FreeBSD version.  Move down after the
    	definition of the syscall macro.
    	(%syscall): New macro.  Test return value for being -1 instead
    	of being < 0.
    	(syscall): Use it.
    	(off-t-syscall): New macro.
    	(unix-lseek): Remove BSD-specific version.  Use off-t-syscall.
    8cb97ea1
    History
    Use int64-t for off-t on BSDs for large file support.
    gerd authored
    	Check return value of syscalls for -1 instead of < 0.
    
    	* src/code/unix.lisp (quad-t) [#+bsd]: Removed.
    	(int64-t, u-int64-t): Added.
    	(off-t): Define as int64-t for BSDs.
    	(file-offset): New deftype; (signed-byte 64) for BSDs,
    	(signed-byte 32) otherwise.
    	(unix-mmap): Remove FreeBSD version.  Move down after the
    	definition of the syscall macro.
    	(%syscall): New macro.  Test return value for being -1 instead
    	of being < 0.
    	(syscall): Use it.
    	(off-t-syscall): New macro.
    	(unix-lseek): Remove BSD-specific version.  Use off-t-syscall.