X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-posix%2Finterface.lisp;h=4abe103894867940248e8def1828b4ea6d1f4c29;hb=2e9def5473ebcdf7b0d26705c252da476b7ea145;hp=1a0bd29eb9c71e4650a10f5ddeea2def211159d7;hpb=1f7401c39a46466c307938c8f6cf7db224741981;p=sbcl.git

diff --git a/contrib/sb-posix/interface.lisp b/contrib/sb-posix/interface.lisp
index 1a0bd29..4abe103 100644
--- a/contrib/sb-posix/interface.lisp
+++ b/contrib/sb-posix/interface.lisp
@@ -84,7 +84,7 @@
 	     (pid sb-posix::pid-t) (pgid sb-posix::pid-t))
 (define-call "setpgrp" int minusp)
 
-;;; mmap
+;;; mmap, msync
 (define-call "mmap" sb-sys:system-area-pointer
   ;; KLUDGE: #XFFFFFFFF is (void *)-1, which is the charming return
   ;; value of mmap on failure.  Except on 64 bit systems ...
@@ -96,5 +96,8 @@
 (define-call "munmap" int minusp
   (start sb-sys:system-area-pointer) (length unsigned))
 
+(define-call "msync" int minusp
+  (addr sb-sys:system-area-pointer) (length unsigned) (flags int))
+
 (define-call "getpagesize" int minusp)