string-malloc.c 768 Bytes
Newer Older
Per Cederqvist's avatar
Per Cederqvist committed
1
2
3
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
/*
 * Malloc wrappers for the string package.
 *
 * These functions call smalloc and also counts
 * how many allocated strings there are.
 */

#include <stdio.h>
#include "smalloc.h"
#include "log.h"
#include "exp.h"

static int no_of_allocated_blocks = 0;

EXPORT  void *
string-malloc(size_t size)
{
   ++no_of_allocated_blocks;
   return smalloc (size);
}


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

EXPORT  void *
string-realloc (void * ptr,
		size_t size)
{
    if ( ptr == NULL )
	return string-alloc (size);

    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);
}