isc-malloc.c 1.96 KB
Newer Older
Per Cederqvist's avatar
Per Cederqvist committed
1
/*
2 3
 * $Id: isc-malloc.c,v 1.8 1995/01/01 20:17:21 ceder Exp $
 * Copyright (C) 1991, 1992, 1993, 1994, 1995  Lysator Academic Computer Association.
Per Cederqvist's avatar
Per Cederqvist committed
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
 *
 * This file is part of the LysKOM server.
 * 
 * LysKOM is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by 
 * the Free Software Foundation; either version 1, or (at your option) 
 * any later version.
 * 
 * LysKOM 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 General Public License
 * for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with LysKOM; see the file COPYING.  If not, write to
 * Lysator, c/o ISY, Linkoping University, S-581 83 Linkoping, SWEDEN,
 * or the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, 
 * MA 02139, USA.
 *
 * Please mail bug reports to bug-lyskom@lysator.liu.se. 
 */
/*
 * Malloc wrappers for the isc package.
 *
 * These functions call smalloc and also counts
 * how many allocated blocks there are.
 */

32
static char *rcsid = "$Id: isc-malloc.c,v 1.8 1995/01/01 20:17:21 ceder Exp $";
33 34
#include "rcs.h"
USE(rcsid);
Per Cederqvist's avatar
Per Cederqvist committed
35

Per Cederqvist's avatar
Per Cederqvist committed
36
#include <sys/types.h>
Per Cederqvist's avatar
Per Cederqvist committed
37 38 39
#ifdef HAVE_STDDEF_H
#  include <stddef.h>
#endif
Per Cederqvist's avatar
Per Cederqvist committed
40 41
#include <stdio.h>

Per Cederqvist's avatar
Per Cederqvist committed
42 43
#include "exp.h"
#include "isc-malloc.h"
Per Cederqvist's avatar
Per Cederqvist committed
44
#include "server/smalloc.h"
Per Cederqvist's avatar
Per Cederqvist committed
45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76

static int no_of_allocated_blocks = 0;

EXPORT  void *
isc_malloc_wrapper(size_t size)
{
   ++no_of_allocated_blocks;
   return smalloc (size);
}


EXPORT  void
isc_free_wrapper(void * ptr)
{
    --no_of_allocated_blocks;
    sfree(ptr);
}

EXPORT  void *
isc_realloc_wrapper (void * ptr,
		     size_t size)
{
    if ( ptr == NULL )
	return isc_malloc_wrapper (size);

    return srealloc (ptr, size);
}


EXPORT void
dump_isc_alloc_counts(FILE *stat_file)
{
Per Cederqvist's avatar
Per Cederqvist committed
77 78
    fprintf(stat_file, "---%s:\n\tAllocated blocks by isc: %d\n",
	    __FILE__, no_of_allocated_blocks);
Per Cederqvist's avatar
Per Cederqvist committed
79
}