<html lang='en'>
<head>
<meta content='text/html; charset=utf-8' http-equiv='Content-Type'>
<title>
GitLab
</title>
</meta>
</head>
<style>
img {
max-width: 100%;
height: auto;
}
p.details {
font-style:italic;
color:#777
}
.footer p {
font-size:small;
color:#777
}
pre.commit-message {
white-space: pre-wrap;
}
.file-stats a {
text-decoration: none;
}
.file-stats .new-file {
color: #090;
}
.file-stats .deleted-file {
color: #B00;
}}
</style>
<body>
<div class='content'>
<h3>Raymond Toy pushed to branch rtoy-unix-core at <a href="https://gitlab.common-lisp.net/cmucl/cmucl">cmucl / cmucl</a></h3>
<h4>
Commits:
</h4>
<ul>
<li>
<strong><a href="https://gitlab.common-lisp.net/cmucl/cmucl/commit/f5368940188bb555a18438953a101becb3524856">f5368940</a></strong>
<div>
<span>by Raymond Toy</span>
<i>at 2015-05-10T10:47:55Z</i>
</div>
<pre class='commit-message'>Oops. Forgot to remove mmap stuff for contrib/unix/unix-glibc2.lisp.</pre>
</li>
</ul>
<h4>1 changed file:</h4>
<ul>
<li class='file-stats'>
<a href='#diff-0'>
src/contrib/unix/unix-glibc2.lisp
</a>
</li>
</ul>
<h4>Changes:</h4>
<li id='diff-0'>
<a href='https://gitlab.common-lisp.net/cmucl/cmucl/commit/f5368940188bb555a18438953a101becb3524856#diff-0'>
<strong>
src/contrib/unix/unix-glibc2.lisp
</strong>
</a>
<hr>
<pre class="highlight"><code><span style="color: #000000;background-color: #ffdddd">--- a/src/contrib/unix/unix-glibc2.lisp
</span><span style="color: #000000;background-color: #ddffdd">+++ b/src/contrib/unix/unix-glibc2.lisp
</span><span style="color: #aaaaaa">@@ -204,57 +204,6 @@
</span> (setf cur (funcall inc cur 1)))))
`(progn ,@(mapcar #'defform names))))
-;;;; Memory-mapped files
-
-(defconstant +null+ (sys:int-sap 0))
-
-(defconstant prot_read 1)
-(defconstant prot_write 2)
-(defconstant prot_exec 4)
-(defconstant prot_none 0)
-
-(defconstant map_shared 1)
-(defconstant map_private 2)
-(defconstant map_fixed 16)
-(defconstant map_anonymous 32)
-
-(defconstant ms_async 1)
-(defconstant ms_sync 4)
-(defconstant ms_invalidate 2)
-
-;; The return value from mmap that means mmap failed.
-(defconstant map_failed (int-sap (1- (ash 1 vm:word-bits))))
-
-(defun unix-mmap (addr length prot flags fd offset)
<span style="color: #000000;background-color: #ffdddd">- (declare (type (or null system-area-pointer) addr)
</span>- (type (unsigned-byte 32) length)
<span style="color: #000000;background-color: #ffdddd">- (type (integer 1 7) prot)
</span>- (type (unsigned-byte 32) flags)
- (type (or null unix-fd) fd)
- (type (signed-byte 32) offset))
<span style="color: #000000;background-color: #ffdddd">- ;; Can't use syscall, because the address that is returned could be
- ;; "negative". Hence we explicitly check for mmap returning
- ;; MAP_FAILED.
- (let ((result
</span>- (alien-funcall (extern-alien "mmap" (function system-area-pointer
- system-area-pointer
- size-t int int int off-t))
- (or addr +null+) length prot flags (or fd -1) offset)))
<span style="color: #000000;background-color: #ffdddd">- (if (sap= result map_failed)
</span>- (values nil (unix-errno))
- (values result 0))))
-
-(defun unix-munmap (addr length)
<span style="color: #000000;background-color: #ffdddd">- (declare (type system-area-pointer addr)
</span>- (type (unsigned-byte 32) length))
<span style="color: #000000;background-color: #ffdddd">- (syscall ("munmap" system-area-pointer size-t) t addr length))
</span>-
-(defun unix-msync (addr length flags)
<span style="color: #000000;background-color: #ffdddd">- (declare (type system-area-pointer addr)
</span>- (type (unsigned-byte 32) length)
- (type (signed-byte 32) flags))
<span style="color: #000000;background-color: #ffdddd">- (syscall ("msync" system-area-pointer size-t int) t addr length flags))
</span>-
;;;; User and group database structures: <pwd.h> and <grp.h>
(defstruct group-info
</code></pre>
<br>
</li>
</div>
<div class='footer' style='margin-top: 10px;'>
<p>
—
<br>
<a href="https://gitlab.common-lisp.net/cmucl/cmucl/commit/f5368940188bb555a18438953a101becb3524856">View it on GitLab</a>
<script type="application/ld+json">{"@context":"http://schema.org","@type":"EmailMessage","action":{"@type":"ViewAction","name":"View Commit","url":"https://gitlab.common-lisp.net/cmucl/cmucl/commit/f5368940188bb555a18438953a101becb3524856"}}</script>
</p>
</div>
</body>
</html>