ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/IO-AIO/AIO.xs
(Generate patch)

Comparing IO-AIO/AIO.xs (file contents):
Revision 1.255 by root, Tue Feb 20 06:05:19 2018 UTC vs.
Revision 1.257 by root, Tue Jul 17 23:20:09 2018 UTC

… …
188 188
189#if !_POSIX_MEMORY_PROTECTION 189#if !_POSIX_MEMORY_PROTECTION
190# define mprotect(addr,len,prot) EIO_ENOSYS () 190# define mprotect(addr,len,prot) EIO_ENOSYS ()
191#endif 191#endif
192 192
193#if !MREMAP_MAYMOVE
194# define mremap(old_address,old_size,new_size,flags,new_address) (errno = ENOSYS, (void *)-1)
195#endif
196
193#define FOREIGN_MAGIC PERL_MAGIC_ext 197#define FOREIGN_MAGIC PERL_MAGIC_ext
194 198
195static int ecb_cold 199static int ecb_cold
196mmap_free (pTHX_ SV *sv, MAGIC *mg) 200mmap_free (pTHX_ SV *sv, MAGIC *mg)
197{ 201{
… …
1102 const_iv (MAP_NONBLOCK) 1106 const_iv (MAP_NONBLOCK)
1103 const_iv (MAP_GROWSDOWN) 1107 const_iv (MAP_GROWSDOWN)
1104 const_iv (MAP_32BIT) 1108 const_iv (MAP_32BIT)
1105 const_iv (MAP_HUGETLB) 1109 const_iv (MAP_HUGETLB)
1106 const_iv (MAP_STACK) 1110 const_iv (MAP_STACK)
1111
1112 const_iv (MREMAP_MAYMOVE)
1113 const_iv (MREMAP_FIXED)
1107 1114
1108 const_iv (F_DUPFD_CLOEXEC) 1115 const_iv (F_DUPFD_CLOEXEC)
1109 1116
1110 const_iv (F_OFD_GETLK) 1117 const_iv (F_OFD_GETLK)
1111 const_iv (F_OFD_SETLK) 1118 const_iv (F_OFD_SETLK)
… …
2057void 2064void
2058munmap (SV *scalar) 2065munmap (SV *scalar)
2059 CODE: 2066 CODE:
2060 sv_clear_foreign (scalar); 2067 sv_clear_foreign (scalar);
2061 2068
2069SV *
2070mremap (SV *scalar, STRLEN new_length, int flags = 0, IV new_address = 0)
2071 CODE:
2072{
2073 MAGIC *mg = mg_findext (scalar, FOREIGN_MAGIC, &mmap_vtbl);
2074 void *new;
2075
2076 if (!mg || SvPVX (scalar) != mg->mg_ptr)
2077 croak ("IO::AIO::mremap: scalar not mapped by IO::AIO::mmap or improperly modified");
2078
2079 new = mremap (mg->mg_ptr, (size_t)mg->mg_obj, new_length, flags, (void *)new_address);
2080
2081 RETVAL = &PL_sv_no;
2082
2083 if (new != (void *)-1)
2084 {
2085 RETVAL = new == (void *)mg->mg_ptr
2086 ? newSVpvn ("0 but true", 10)
2087 : &PL_sv_yes;
2088
2089 mg->mg_ptr = (char *)new;
2090 mg->mg_obj = (SV *)new_length;
2091
2092 SvPVX (scalar) = mg->mg_ptr;
2093 SvCUR_set (scalar, new_length);
2094 }
2095}
2096 OUTPUT:
2097 RETVAL
2098
2062int 2099int
2063madvise (SV *scalar, STRLEN offset = 0, SV *length = &PL_sv_undef, IV advice_or_prot) 2100madvise (SV *scalar, STRLEN offset = 0, SV *length = &PL_sv_undef, IV advice_or_prot)
2064 ALIAS: 2101 ALIAS:
2065 mprotect = 1 2102 mprotect = 1
2066 CODE: 2103 CODE:
… …
2230void 2267void
2231timerfd_settime (SV *fh, int flags, NV interval, NV value) 2268timerfd_settime (SV *fh, int flags, NV interval, NV value)
2232 PPCODE: 2269 PPCODE:
2233{ 2270{
2234 int fd = s_fileno_croak (fh, 0); 2271 int fd = s_fileno_croak (fh, 0);
2272#if HAVE_TIMERFD
2235 int res; 2273 int res;
2236 struct itimerspec its, ots; 2274 struct itimerspec its, ots;
2237 2275
2238 ts_set (&its.it_interval, interval); 2276 ts_set (&its.it_interval, interval);
2239 ts_set (&its.it_value , value); 2277 ts_set (&its.it_value , value);
2240#if HAVE_TIMERFD
2241 res = timerfd_settime (fd, flags, &its, &ots); 2278 res = timerfd_settime (fd, flags, &its, &ots);
2242#else
2243 res = (errno = ENOSYS, -1);
2244#endif
2245 2279
2246 if (!res) 2280 if (!res)
2247 { 2281 {
2248 EXTEND (SP, 2); 2282 EXTEND (SP, 2);
2249 PUSHs (newSVnv (ts_get (&ots.it_interval))); 2283 PUSHs (newSVnv (ts_get (&ots.it_interval)));
2250 PUSHs (newSVnv (ts_get (&ots.it_value))); 2284 PUSHs (newSVnv (ts_get (&ots.it_value)));
2251 } 2285 }
2286#else
2287 errno = ENOSYS;
2288#endif
2252} 2289}
2253 2290
2254void 2291void
2255timerfd_gettime (SV *fh) 2292timerfd_gettime (SV *fh)
2256 PPCODE: 2293 PPCODE:
2257{ 2294{
2258 int fd = s_fileno_croak (fh, 0); 2295 int fd = s_fileno_croak (fh, 0);
2296#if HAVE_TIMERFD
2259 int res; 2297 int res;
2260 struct itimerspec ots; 2298 struct itimerspec ots;
2261#if HAVE_TIMERFD
2262 res = timerfd_gettime (fd, &ots); 2299 res = timerfd_gettime (fd, &ots);
2263#else
2264 res = (errno = ENOSYS, -1);
2265#endif
2266 2300
2267 if (!res) 2301 if (!res)
2268 { 2302 {
2269 EXTEND (SP, 2); 2303 EXTEND (SP, 2);
2270 PUSHs (newSVnv (ts_get (&ots.it_interval))); 2304 PUSHs (newSVnv (ts_get (&ots.it_interval)));
2271 PUSHs (newSVnv (ts_get (&ots.it_value))); 2305 PUSHs (newSVnv (ts_get (&ots.it_value)));
2272 } 2306 }
2307#else
2308 errno = ENOSYS;
2309#endif
2273} 2310}
2274 2311
2275UV 2312UV
2276get_fdlimit () 2313get_fdlimit ()
2277 CODE: 2314 CODE:

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines