X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/87817af89b2262a403386b38a0ec95388a6df5ad..c8b4c873675620354afe4a07cd00bce5f6f602b8:/src/xbt/mmalloc/mmorecore.c diff --git a/src/xbt/mmalloc/mmorecore.c b/src/xbt/mmalloc/mmorecore.c index 9e2d22ed53..9fbf7a9704 100644 --- a/src/xbt/mmalloc/mmorecore.c +++ b/src/xbt/mmalloc/mmorecore.c @@ -1,17 +1,14 @@ -/* Support for an sbrk-like function that uses mmap. - Copyright 1992, 2000 Free Software Foundation, Inc. +/* Support for an sbrk-like function that uses mmap. */ - Contributed by Fred Fish at Cygnus Support. fnf@cygnus.com */ - -/* Copyright (c) 2010. The SimGrid Team. +/* Copyright (c) 2010-2014. The SimGrid Team. * All rights reserved. */ /* This program is free software; you can redistribute it and/or modify it * under the terms of the license (GNU LGPL) which comes with this package. */ -#ifndef MAP_ANONYMOUS -#define MAP_ANONYMOUS MAP_ANON -#endif +/* Copyright 1992, 2000 Free Software Foundation, Inc. + + Contributed by Fred Fish at Cygnus Support. fnf@cygnus.com */ #ifdef HAVE_UNISTD_H #include /* Prototypes for lseek */ @@ -19,51 +16,50 @@ #include #include #include +#include #include "mmprivate.h" -/* Cache the pagesize for the current host machine. Note that if the host - does not readily provide a getpagesize() function, we need to emulate it - elsewhere, not clutter up this file with lots of kluges to try to figure - it out. */ - -static size_t pagesize; +#ifndef MAP_ANONYMOUS +#define MAP_ANONYMOUS MAP_ANON +#endif -#define PAGE_ALIGN(addr) (void*) (((long)(addr) + pagesize - 1) & \ - ~(pagesize - 1)) +#define PAGE_ALIGN(addr) (void*) (((long)(addr) + xbt_pagesize - 1) & \ + ~((long)xbt_pagesize - 1)) /* Return MAP_PRIVATE if MDP represents /dev/zero. Otherwise, return MAP_SHARED. */ #define MAP_PRIVATE_OR_SHARED(MDP) (( MDP -> flags & MMALLOC_ANONYMOUS) \ - ? MAP_PRIVATE \ + ? MAP_PRIVATE \ : MAP_SHARED) /* Return MAP_ANONYMOUS if MDP uses anonymous mapping. Otherwise, return 0 */ #define MAP_IS_ANONYMOUS(MDP) (((MDP) -> flags & MMALLOC_ANONYMOUS) \ - ? MAP_ANONYMOUS \ - : 0) + ? MAP_ANONYMOUS \ + : 0) /* Return -1 if MDP uses anonymous mapping. Otherwise, return MDP->FD */ #define MAP_ANON_OR_FD(MDP) (((MDP) -> flags & MMALLOC_ANONYMOUS) \ - ? -1 \ - : (MDP) -> fd) + ? -1 \ + : (MDP) -> fd) /* Get core for the memory region specified by MDP, using SIZE as the amount to either add to or subtract from the existing region. Works - like sbrk(), but using mmap(). */ + like sbrk(), but using mmap(). -void *mmorecore(struct mdesc *mdp, int size) + It never returns NULL. Instead, it dies verbosely on errors. */ + +void *mmorecore(struct mdesc *mdp, ssize_t size) { ssize_t test = 0; - void *result = NULL; + void *result; // please keep it uninitialized to track issues off_t foffset; /* File offset at which new mapping will start */ size_t mapbytes; /* Number of bytes to map */ void *moveto; /* Address where we wish to move "break value" to */ void *mapto; /* Address we actually mapped to */ char buf = 0; /* Single byte to write to extend mapped file */ - if (pagesize == 0) - pagesize = getpagesize(); +// fprintf(stderr,"increase %p by %u\n",mdp,size); if (size == 0) { /* Just return the current "break" value. */ @@ -72,8 +68,8 @@ void *mmorecore(struct mdesc *mdp, int size) } else if (size < 0) { /* We are deallocating memory. If the amount requested would cause us to try to deallocate back past the base of the mmap'd region - then do nothing, and return NULL. Otherwise, deallocate the - memory and return the old break value. */ + then die verbosely. Otherwise, deallocate the memory and return + the old break value. */ if (((char *) mdp->breakval) + size >= (char *) mdp->base) { result = (void *) mdp->breakval; mdp->breakval = (char *) mdp->breakval + size; @@ -81,13 +77,16 @@ void *mmorecore(struct mdesc *mdp, int size) munmap(moveto, (size_t) (((char *) mdp->top) - ((char *) moveto)) - 1); mdp->top = moveto; + } else { + fprintf(stderr,"Internal error: mmap was asked to deallocate more memory than it previously allocated. Bailling out now!\n"); + abort(); } } else { /* We are allocating memory. Make sure we have an open file descriptor if not working with anonymous memory. */ if (!(mdp->flags & MMALLOC_ANONYMOUS) && mdp->fd < 0) { - THROWF(system_error,0,"mmap file descriptor <0 (%d), without MMALLOC_ANONYMOUS being in the flags",mdp->fd); - result = NULL; + fprintf(stderr,"Internal error: mmap file descriptor <0 (%d), without MMALLOC_ANONYMOUS being in the flags.\n",mdp->fd); + abort(); } else if ((char *) mdp->breakval + size > (char *) mdp->top) { /* The request would move us past the end of the currently mapped memory, so map in enough more memory to satisfy @@ -102,8 +101,10 @@ void *mmorecore(struct mdesc *mdp, int size) /* FIXME: Test results of lseek() */ lseek(mdp->fd, foffset + mapbytes - 1, SEEK_SET); test = write(mdp->fd, &buf, 1); - if (test == -1) - THROWF(system_error, 0, "write to mmap'ed fd failed! error: %s", strerror(errno)); + if (test == -1) { + fprintf(stderr,"Internal error: write to mmap'ed fd failed! error: %s", strerror(errno)); + abort(); + } } /* Let's call mmap. Note that it is possible that mdp->top @@ -112,11 +113,19 @@ void *mmorecore(struct mdesc *mdp, int size) MAP_PRIVATE_OR_SHARED(mdp) | MAP_IS_ANONYMOUS(mdp) | MAP_FIXED, MAP_ANON_OR_FD(mdp), foffset); - if (mapto == (void *) -1/* That's MAP_FAILED */) - THROWF(system_error,0,"mmap returned MAP_FAILED! error: %s",strerror(errno)); + if (mapto == (void *) -1/* That's MAP_FAILED */) { + char buff[1024]; + fprintf(stderr,"Internal error: mmap returned MAP_FAILED! error: %s\n",strerror(errno)); + sprintf(buff,"cat /proc/%d/maps",getpid()); + int status = system(buff); + if (status == -1 || !(WIFEXITED(status) && WEXITSTATUS(status) == 0)) + fprintf(stderr, "Something went wrong when trying to %s\n", buff); + sleep(1); + abort(); + } if (mdp->top == 0) - mdp->base = mdp->breakval = mapto; + mdp->base = mdp->breakval = mapto; mdp->top = PAGE_ALIGN((char *) mdp->breakval + size); result = (void *) mdp->breakval;