dfa/imalloc.c

   1 /* $Id: imalloc.c,v 1.10 2004-11-19 10:26:54 heikki Exp $
   2    Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002
   3    Index Data Aps
   4
   5 This file is part of the Zebra server.
   6
   7 Zebra is free software; you can redistribute it and/or modify it under
   8 the terms of the GNU General Public License as published by the Free
   9 Software Foundation; either version 2, or (at your option) any later
  10 version.
  11
  12 Zebra is distributed in the hope that it will be useful, but WITHOUT ANY
  13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  15 for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with Zebra; see the file LICENSE.zebra.  If not, write to the
  19 Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  20 02111-1307, USA.
  21 */
  22
  23
  24 #include <stdio.h>
  25 #include <assert.h>
  26 #include <stdlib.h>
  27
  28 #include <zebrautl.h>
  29 #include "imalloc.h"
  30
  31 #if MEMDEBUG
  32 #define MAG1 0x8fe1
  33 #define MAG2 0x91
  34 #define MAG3 0xee
  35
  36 long alloc       = 0L;
  37 long max_alloc   = 0L;
  38 int  alloc_calls = 0;
  39 int  free_calls  = 0;
  40 #endif
  41
  42 void *imalloc (size_t size)
  43 {
  44 #if MEMDEBUG
  45     size_t words = (4*sizeof(unsigned) -1 + size)/sizeof(unsigned);
  46     char *p = (char *)xmalloc( words*sizeof(unsigned) );
  47     if( !p )
  48         yaz_log (YLOG_FATAL, "No memory: imalloc(%u); c/f %d/%d; %ld/%ld",
  49            size, alloc_calls, free_calls, alloc, max_alloc );
  50     *((unsigned *)p) = size;
  51     ((unsigned *)p)[1] = MAG1;
  52     p += sizeof(unsigned)*2;
  53     size[(unsigned char *) p] = MAG2;
  54     size[(unsigned char *) p+1] = MAG3;
  55     if( (alloc+=size) > max_alloc )
  56         max_alloc = alloc;
  57     ++alloc_calls;
  58     return (void *) p;
  59 #else
  60     void *p = (void *)xmalloc( size );
  61     if( !p )
  62         yaz_log (YLOG_FATAL, "Out of memory (imalloc)" );
  63     return p;
  64 #endif
  65 }
  66
  67 void *icalloc (size_t size)
  68 {
  69 #if MEMDEBUG
  70     unsigned words = (4*sizeof(unsigned) -1 + size)/sizeof(unsigned);
  71     char *p = (char *) xcalloc( words*sizeof(unsigned), 1 );
  72     if( !p )
  73         yaz_log (YLOG_FATAL, "No memory: icalloc(%u); c/f %d/%d; %ld/%ld",
  74            size, alloc_calls, free_calls, alloc, max_alloc );
  75     ((unsigned *)p)[0] = size;
  76     ((unsigned *)p)[1] = MAG1;
  77     p += sizeof(unsigned)*2;
  78     size[(unsigned char *) p] = MAG2;
  79     size[(unsigned char *) p+1] = MAG3;
  80     if( (alloc+=size) > max_alloc )
  81         max_alloc = alloc;
  82     ++alloc_calls;
  83     return (void *)p;
  84 #else
  85     void *p = (void *) xcalloc( size, 1 );
  86     if( !p )
  87         yaz_log (YLOG_FATAL, "Out of memory (icalloc)" );
  88     return p;
  89 #endif
  90 }
  91
  92 void ifree (void *p)
  93 {
  94 #if MEMDEBUG
  95     size_t size;
  96     if( !p )
  97         return;
  98     ++free_calls;
  99     size = (-2)[(unsigned *) p];
 100     if( (-1)[(unsigned *) p] != MAG1 )
 101         yaz_log (YLOG_FATAL,"Internal: ifree(%u) magic 1 corrupted", size );
 102     if( size[(unsigned char *) p] != MAG2 )
 103         yaz_log (YLOG_FATAL,"Internal: ifree(%u) magic 2 corrupted", size );
 104     if( (size+1)[(unsigned char *) p] != MAG3 )
 105         yaz_log (YLOG_FATAL,"Internal: ifree(%u) magic 3 corrupted", size );
 106     alloc -= size;
 107     if( alloc < 0L )
 108         yaz_log (YLOG_FATAL,"Internal: ifree(%u) negative alloc.", size );
 109     xfree( (unsigned *) p-2 );
 110 #else
 111     xfree (p);
 112 #endif
 113 }
 114
 115 #if MEMDEBUG
 116 void imemstat (void)
 117 {
 118     fprintf( stdout, "imalloc: calls malloc/free %d/%d, ",
 119                                      alloc_calls, free_calls );
 120     if( alloc )
 121         fprintf( stdout, "memory cur/max %ld/%ld : unreleased",
 122                                                           alloc, max_alloc );
 123     else
 124         fprintf( stdout, "memory max %ld", max_alloc );
 125     fputc( '\n', stdout );
 126 }
 127 #endif