--- IO-AIO/AIO.xs	2010/05/09 20:49:52	1.167
+++ IO-AIO/AIO.xs	2010/08/04 17:16:19	1.171
@@ -142,6 +142,44 @@
 # define POSIX_FADV_DONTNEED 0
 #endif
 
+#if _XOPEN_SOURCE < 600 || NO_FADVISE
+# define posix_fadvise(a,b,c,d) errno = ENOSYS /* also return ENOSYS */
+#endif
+
+#ifndef POSIX_MADV_NORMAL
+# define POSIX_MADV_NORMAL 0
+# define NO_MADVISE 1
+#endif
+#ifndef POSIX_MADV_SEQUENTIAL
+# define POSIX_MADV_SEQUENTIAL 0
+#endif
+#ifndef POSIX_MADV_RANDOM
+# define POSIX_MADV_RANDOM 0
+#endif
+#ifndef POSIX_MADV_WILLNEED
+# define POSIX_MADV_WILLNEED 0
+#endif
+#ifndef POSIX_MADV_DONTNEED
+# define POSIX_MADV_DONTNEED 0
+#endif
+
+#if _XOPEN_SOURCE < 600 || NO_MADVISE
+# define posix_madvise(a,b,c) errno = ENOSYS /* also return ENOSYS */
+#endif
+
+#ifndef PROT_NONE
+# define PROT_NONE 0
+#endif
+#ifndef PROT_READ
+# define PROT_READ 0
+#endif
+#ifndef PROT_WRITE
+# define PROT_READ 0
+#endif
+#ifndef PROT_EXEC
+# define PROT_EXEC 0
+#endif
+
 #ifndef ST_NODEV
 # define ST_NODEV       0
 #endif
@@ -608,6 +646,7 @@
 #if !_POSIX_MAPPED_FILES
 # define mmap(addr,length,prot,flags,fd,offs) (errno = ENOSYS, -1)
 # define munmap(addr,length)                  (errno = ENOSYS, -1)
+# define mprotect(addr,len,prot)              (errno = ENOSYS, -1)
 #endif
 
 #define MMAP_MAGIC PERL_MAGIC_ext
@@ -622,8 +661,11 @@
   mg->mg_obj = 0; /* just in case */
 
   SvREADONLY_off (sv);
+
+  if (SvPVX (sv) != mg->mg_ptr)
+    croak ("ERROR: IO::AIO::mmap-mapped scalar changed location, detected");
+
   SvCUR_set (sv, 0);
-  SvLEN_set (sv, 0);
   SvPVX (sv) = 0;
   SvOK_off (sv);
 
@@ -698,6 +740,12 @@
     const_niv (FADV_WILLNEED  , POSIX_FADV_WILLNEED)
     const_niv (FADV_DONTNEED  , POSIX_FADV_DONTNEED)
 
+    const_niv (MADV_NORMAL    , POSIX_MADV_NORMAL)
+    const_niv (MADV_SEQUENTIAL, POSIX_MADV_SEQUENTIAL)
+    const_niv (MADV_RANDOM    , POSIX_MADV_RANDOM)
+    const_niv (MADV_WILLNEED  , POSIX_MADV_WILLNEED)
+    const_niv (MADV_DONTNEED  , POSIX_MADV_DONTNEED)
+
     const_iv (ST_RDONLY)
     const_iv (ST_NOSUID)
     const_iv (ST_NODEV)
@@ -711,8 +759,8 @@
     const_iv (ST_NODIRATIME)
     const_iv (ST_RELATIME)
 
-    const_iv (PROT_EXEC)
     const_iv (PROT_NONE)
+    const_iv (PROT_EXEC)
     const_iv (PROT_READ)
     const_iv (PROT_WRITE)
 
@@ -1361,11 +1409,7 @@
 fadvise (aio_rfd fh, off_t offset, off_t length, IV advice)
         PROTOTYPE: $$$$
         CODE:
-#if _XOPEN_SOURCE >= 600 && !NO_FADVISE
         RETVAL = posix_fadvise (fh, offset, length, advice);
-#else
-        RETVAL = errno = ENOSYS; /* yes, this is actually correct */
-#endif
 	OUTPUT:
         RETVAL
 
@@ -1388,14 +1432,20 @@
 	if (addr == (void *)-1)
 	  XSRETURN_NO;
 
+        sv_force_normal (scalar);
+
         /* we store the length in mg_obj, as namlen is I32 :/ */
         sv_magicext (scalar, 0, MMAP_MAGIC, &mmap_vtbl, (char *)addr, 0)
           ->mg_obj = (SV *)length;
 
 	SvUPGRADE (scalar, SVt_PV); /* nop... */
+
 	if (!(prot & PROT_WRITE))
 	  SvREADONLY_on (scalar);
 
+        if (SvLEN (scalar))
+          Safefree (SvPVX (scalar));
+
 	SvPVX (scalar) = (char *)addr;
 	SvCUR_set (scalar, length);
 	SvLEN_set (scalar, 0);
@@ -1411,6 +1461,36 @@
         sv_unmagic (scalar, MMAP_MAGIC);
 
 int
+madvise (SV *scalar, off_t offset, off_t length, IV advice_or_prot)
+	ALIAS:
+        mprotect = 1
+        PROTOTYPE: $$$$
+        CODE:
+{
+	STRLEN cur;
+  	char *addr = SvPVbyte (scalar, cur);
+
+        if (offset > cur)
+          RETVAL = errno = EFAULT;
+        else 
+          {
+            if (!SvOK (ST (2)))
+              length = cur - offset;
+
+	    if (offset + length > cur)
+              RETVAL = errno = EFAULT;
+            else
+              switch (ix)
+                {
+                  case 0: RETVAL = posix_madvise (addr + offset, length, advice_or_prot); break;
+                  case 1: RETVAL = mprotect      (addr + offset, length, advice_or_prot); break;
+                }
+          }
+}
+	OUTPUT:
+        RETVAL
+
+int
 mlockall (int flags)
 	PROTOTYPE: $
         CODE: