string-malloc.c 1.9 KB
Newer Older
Linus Tolke's avatar
Linus Tolke committed
1
/*
2
 * $Id: string-malloc.c,v 0.6 1993/01/16 23:18:29 ceder Exp $
Linus Tolke's avatar
Linus Tolke committed
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 * Copyright (C) 1991  Lysator Academic Computer Association.
 *
 * 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. 
 */
Per Cederqvist's avatar
Per Cederqvist committed
25
26
27
28
29
30
31
/*
 * Malloc wrappers for the string package.
 *
 * These functions call smalloc and also counts
 * how many allocated strings there are.
 */

32
33
34
static char *rcsid = "$Id: string-malloc.c,v 0.6 1993/01/16 23:18:29 ceder Exp $";
#include "rcs.h"
USE(rcsid);
Per Cederqvist's avatar
Per Cederqvist committed
35
36


Per Cederqvist's avatar
Per Cederqvist committed
37
#include <stdio.h>
Per Cederqvist's avatar
Per Cederqvist committed
38
#include <stddef.h>
39
#include <server/smalloc.h>
Per Cederqvist's avatar
Per Cederqvist committed
40
41
#include "log.h"
#include "exp.h"
Per Cederqvist's avatar
Per Cederqvist committed
42
#include "string-malloc.h"
Per Cederqvist's avatar
Per Cederqvist committed
43
44
45
46

static int no_of_allocated_blocks = 0;

EXPORT  void *
Per Cederqvist's avatar
Per Cederqvist committed
47
string_malloc(size_t size)
Per Cederqvist's avatar
Per Cederqvist committed
48
49
50
51
52
53
54
{
   ++no_of_allocated_blocks;
   return smalloc (size);
}


EXPORT  void
Per Cederqvist's avatar
Per Cederqvist committed
55
string_free(void * ptr)
Per Cederqvist's avatar
Per Cederqvist committed
56
57
58
59
60
61
{
    --no_of_allocated_blocks;
    sfree(ptr);
}

EXPORT  void *
Per Cederqvist's avatar
Per Cederqvist committed
62
string_realloc (void * ptr,
Per Cederqvist's avatar
Per Cederqvist committed
63
64
65
		size_t size)
{
    if ( ptr == NULL )
Per Cederqvist's avatar
Per Cederqvist committed
66
	return string_malloc (size);
Per Cederqvist's avatar
Per Cederqvist committed
67
68
69
70
71
72
73
74
75
76
77
78

    return srealloc (ptr, size);
}


EXPORT void
dump_string_alloc_counts(FILE *stat_file)
{
    fprintf(stat_file, "---" __FILE__ ":\n"
	    "\tAllocated strings:    %d\n",
	    no_of_allocated_blocks);
}