[cmucl/cmucl][rtoy-unix-core] unix-glibc2 needs unix-munmap. prot_read is available for both.

[Raymond Toy]

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/8a9a7ae2a692430b069b307a0993113f9f287229
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20150510/a52aeeb7/attachment.html>