Raymond Toy pushed to branch rtoy-unix-core at cmucl / cmucl Commits: 8a9a7ae2 by Raymond Toy at 2015-05-10T09:43:23Z unix-glibc2 needs unix-munmap. prot_read is available for both. - - - - - 2 changed files: - src/code/exports.lisp - src/code/unix-glibc2.lisp Changes: ===================================== src/code/exports.lisp ===================================== --- a/src/code/exports.lisp +++ b/src/code/exports.lisp @@ -284,7 +284,9 @@ "FD-CLR" ;; Simple streams + "PROT_READ" "UNIX-MMAP" + "UNIX-MUNMAP" "UNIX-MSYNC" ;; Motif @@ -313,10 +315,6 @@ ;; run-program.lisp "SGTTYB" - ;; Simple streams - "PROT_READ" - "UNIX-MUNMAP" - ;; Other symbols from structures, etc. "C-CC" "C-CFLAG" @@ -672,10 +670,6 @@ ;; run-program.lisp "SGTTYB" - ;; Simple streams - "PROT_READ" - "UNIX-MUNMAP" - ;; Other symbols "BLKCNT-T" "C-CC" ===================================== src/code/unix-glibc2.lisp ===================================== --- a/src/code/unix-glibc2.lisp +++ b/src/code/unix-glibc2.lisp @@ -1036,6 +1036,11 @@ (values nil (unix-errno)) (values result 0)))) +(defun unix-munmap (addr length) + (declare (type system-area-pointer addr) + (type (unsigned-byte 32) length)) + (syscall ("munmap" system-area-pointer size-t) t addr length)) + (defun unix-msync (addr length flags) (declare (type system-area-pointer addr) (type (unsigned-byte 32) length) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/8a9a7ae2a692430b069b307a09...