Copyright 1990, 1991, 1992 Free Software Foundation
Written May 1989 by Mike Haertel.
- Heavily modified Mar 1992 by Fred Fish. (fnf@cygnus.com)
+ Heavily modified Mar 1992 by Fred Fish. (fnf@cygnus.com) */
-The GNU C Library is free software; you can redistribute it and/or
-modify it under the terms of the GNU Library General Public License as
-published by the Free Software Foundation; either version 2 of the
-License, or (at your option) any later version.
-
-The GNU C Library is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-Library General Public License for more details.
-
-You should have received a copy of the GNU Library General Public
-License along with the GNU C Library; see the file COPYING.LIB. If
-not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA.
-
- The author may be reached (Email) at the address mike@ai.mit.edu,
- or (US mail) as Mike Haertel c/o Free Software Foundation. */
+/* Copyright (c) 2010. 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 __MMPRIVATE_H
#define __MMPRIVATE_H 1
+#include "portable.h"
+#include "xbt/xbt_os_thread.h"
#include "xbt/mmalloc.h"
+#include <semaphore.h>
#ifdef HAVE_LIMITS_H
# include <limits.h>
# endif
#endif
-#ifndef MIN
-# define MIN(A, B) ((A) < (B) ? (A) : (B))
-#endif
-
-#define MMALLOC_MAGIC "mmalloc" /* Mapped file magic number */
-#define MMALLOC_MAGIC_SIZE 8 /* Size of magic number buf */
-#define MMALLOC_VERSION 1 /* Current mmalloc version */
-#define MMALLOC_KEYS 16 /* Keys for application use */
+#define MMALLOC_MAGIC "mmalloc" /* Mapped file magic number */
+#define MMALLOC_MAGIC_SIZE 8 /* Size of magic number buf */
+#define MMALLOC_VERSION 1 /* Current mmalloc version */
/* The allocator divides the heap into blocks of fixed size; large
requests receive one or more whole blocks, and small requests
#define ADDRESS(B) ((void*) (((ADDR2UINT(B)) - 1) * BLOCKSIZE + (char*) mdp -> heapbase))
-/* Data structure giving per-block information. */
+const char *xbt_thread_self_name(void);
-typedef union
- {
- /* Heap information for a busy block. */
- struct
- {
- /* Zero for a large block, or positive giving the
- logarithm to the base two of the fragment size. */
- int type;
- union
- {
- struct
- {
- size_t nfree; /* Free fragments in a fragmented block. */
- size_t first; /* First free fragment of the block. */
- } frag;
- /* Size (in blocks) of a large cluster. */
- size_t size;
- } info;
- } busy;
- /* Heap information for a free block (that may be the first of
- a free cluster). */
- struct
- {
- size_t size; /* Size (in blocks) of a free cluster. */
- size_t next; /* Index of next free cluster. */
- size_t prev; /* Index of previous free cluster. */
- } free;
- } malloc_info;
+/* Data structure giving per-block information. */
+typedef union {
+ /* Heap information for a busy block. */
+ struct {
+ /* Zero for a large block, or positive giving the
+ logarithm to the base two of the fragment size. */
+ int type;
+ union {
+ struct {
+ size_t nfree; /* Free fragments in a fragmented block. */
+ size_t first; /* First free fragment of the block. */
+ } frag;
+ struct {
+ size_t size; /* Size (in blocks) of a large cluster. */
+ size_t busy_size;
+ } block;
+ } info;
+ } busy;
+ /* Heap information for a free block (that may be the first of
+ a free cluster). */
+ struct {
+ size_t size; /* Size (in blocks) of a free cluster. */
+ size_t next; /* Index of next free cluster. */
+ size_t prev; /* Index of previous free cluster. */
+ } free;
+} malloc_info;
/* List of blocks allocated with `mmemalign' (or `mvalloc'). */
-struct alignlist
- {
- struct alignlist *next;
- void* aligned; /* The address that mmemaligned returned. */
- void* exact; /* The address that malloc returned. */
- };
+struct alignlist {
+ struct alignlist *next;
+ void *aligned; /* The address that mmemaligned returned. */
+ void *exact; /* The address that malloc returned. */
+};
/* Doubly linked lists of free fragments. */
-struct list
- {
- struct list *next;
- struct list *prev;
- };
+struct list {
+ struct list *next;
+ struct list *prev;
+};
/* Statistics available to the user.
FIXME: By design, the internals of the malloc package are no longer
to be via some other mechanism, such as mmstat_<something> where the
return value is the <something> the user is interested in. */
-struct mstats
- {
- size_t bytes_total; /* Total size of the heap. */
- size_t chunks_used; /* Chunks allocated by the user. */
- size_t bytes_used; /* Byte total of user-allocated chunks. */
- size_t chunks_free; /* Chunks in the free list. */
- size_t bytes_free; /* Byte total of chunks in the free list. */
- };
+struct mstats {
+ size_t bytes_total; /* Total size of the heap. */
+ size_t chunks_used; /* Chunks allocated by the user. */
+ size_t bytes_used; /* Byte total of user-allocated chunks. */
+ size_t chunks_free; /* Chunks in the free list. */
+ size_t bytes_free; /* Byte total of chunks in the free list. */
+};
/* Internal structure that defines the format of the malloc-descriptor.
This gets written to the base address of the region that mmalloc is
managing, and thus also becomes the file header for the mapped file,
if such a file exists. */
-struct mdesc
-{
- /* The "magic number" for an mmalloc file. */
+struct mdesc {
+
+ /* Semaphore locking the access to the heap */
+ sem_t sem;
+
+ /* Number of processes that attached the heap */
+ unsigned int refcount;
+ /* Chained lists of mdescs */
+ struct mdesc *next_mdesc;
+
+ /* The "magic number" for an mmalloc file. */
char magic[MMALLOC_MAGIC_SIZE];
/* The size in bytes of this structure, used as a sanity check when reusing
a previously created mapped file. */
-
unsigned int headersize;
/* The version number of the mmalloc package that created this file. */
-
unsigned char version;
/* Some flag bits to keep track of various internal things. */
-
unsigned int flags;
/* If a system call made by the mmalloc package fails, the errno is
preserved for future examination. */
-
int saved_errno;
/* Pointer to the function that is used to get more core, or return core
FIXME: For mapped regions shared by more than one process, this
needs to be maintained on a per-process basis. */
-
- void* (*morecore) (struct mdesc *mdp, int size);
-
- /* Pointer to the function that causes an abort when the memory checking
- features are activated. By default this is set to abort(), but can
- be set to another function by the application using mmalloc().
-
- FIXME: For mapped regions shared by more than one process, this
- needs to be maintained on a per-process basis. */
-
- void (*abortfunc) (void);
-
- /* Debugging hook for free.
-
- FIXME: For mapped regions shared by more than one process, this
- needs to be maintained on a per-process basis. */
-
- void (*mfree_hook) (void* mdp, void* ptr);
-
- /* Debugging hook for `malloc'.
-
- FIXME: For mapped regions shared by more than one process, this
- needs to be maintained on a per-process basis. */
-
- void* (*mmalloc_hook) (void* mdp, size_t size);
-
- /* Debugging hook for realloc.
-
- FIXME: For mapped regions shared by more than one process, this
- needs to be maintained on a per-process basis. */
-
- void* (*mrealloc_hook) (void* mdp, void* ptr, size_t size);
+ void *(*morecore) (struct mdesc * mdp, int size);
/* Number of info entries. */
-
size_t heapsize;
/* Pointer to first block of the heap (base of the first block). */
-
- void* heapbase;
+ void *heapbase;
/* Current search index for the heap table. */
/* Search index in the info table. */
-
size_t heapindex;
/* Limit of valid info table indices. */
-
size_t heaplimit;
/* Block information table.
is the location where the bookkeeping data for mmap and for malloc
begins. */
- void* base;
+ void *base;
/* The current location in the memory region for this malloc heap which
represents the end of memory in use. */
- void* breakval;
+ void *breakval;
/* The end of the current memory region for this malloc heap. This is
the first location past the end of mapped memory. */
- void* top;
+ void *top;
/* Open file descriptor for the file to which this malloc heap is mapped.
This will always be a valid file descriptor, since /dev/zero is used
int fd;
- /* An array of keys to data within the mapped region, for use by the
- application. */
+};
+
+int mmalloc_compare_heap(void *h1, void *h2, void *std_heap_addr);
- void* keys[MMALLOC_KEYS];
+int mmalloc_compare_mdesc(struct mdesc *mdp1, struct mdesc *mdp2, void *std_heap_addr);
-};
+void mmalloc_display_info(void *h);
/* Bits to look at in the malloc descriptor flags word */
-#define MMALLOC_DEVZERO (1 << 0) /* Have mapped to /dev/zero */
-#define MMALLOC_ANONYMOUS (1 << 1) /* Use anonymous mapping */
-#define MMALLOC_INITIALIZED (1 << 2) /* Initialized mmalloc */
-#define MMALLOC_MMCHECK_USED (1 << 3) /* mmcheckf() called already */
+#define MMALLOC_DEVZERO (1 << 0) /* Have mapped to /dev/zero */
+#define MMALLOC_ANONYMOUS (1 << 1) /* Use anonymous mapping */
+#define MMALLOC_INITIALIZED (1 << 2) /* Initialized mmalloc */
/* Internal version of `mfree' used in `morecore'. */
-extern void __mmalloc_free (struct mdesc *mdp, void* ptr);
+extern void __mmalloc_free(struct mdesc *mdp, void *ptr);
/* A default malloc descriptor for the single sbrk() managed region. */
/* Initialize the first use of the default malloc descriptor, which uses
an sbrk() region. */
-extern struct mdesc *__mmalloc_sbrk_init (void);
+extern struct mdesc *__mmalloc_create_default_mdp(void);
/* Grow or shrink a contiguous mapped region using mmap().
- Works much like sbrk() */
-
-#if defined(HAVE_MMAP)
+ Works much like sbrk(), only faster */
-extern void* __mmalloc_mmap_morecore (struct mdesc *mdp, int size);
+extern void *__mmalloc_mmap_morecore(struct mdesc *mdp, int size);
-#endif
/* Remap a mmalloc region that was previously mapped. */
-extern void* __mmalloc_remap_core (struct mdesc *mdp);
+extern void *__mmalloc_remap_core(struct mdesc *mdp);
/* Macro to convert from a user supplied malloc descriptor to pointer to the
internal malloc descriptor. If the user supplied descriptor is NULL, then
#define MD_TO_MDP(md) \
((md) == NULL \
- ? (__mmalloc_default_mdp == NULL \
- ? __mmalloc_sbrk_init () \
- : __mmalloc_default_mdp) \
+ ? __mmalloc_default_mdp \
: (struct mdesc *) (md))
-#endif /* __MMPRIVATE_H */
+/* Thread-safety (if the sem is already created)*/
+#define LOCK(md) \
+ do {\
+ struct mdesc *lock_local_mdp = MD_TO_MDP(md); \
+ sem_wait(&lock_local_mdp->sem); \
+ } while (0)
+
+#define UNLOCK(md) \
+ do { \
+ struct mdesc *unlock_local_mdp = MD_TO_MDP(md); \
+ sem_post(&unlock_local_mdp->sem); \
+ } while (0)
+
+#endif /* __MMPRIVATE_H */