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
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
77
78
79
80
81
82
83
84
|
/* This file is part of the Project Athena Zephyr Notification System.
* It is one of the source files comprising zwgc, the Zephyr WindowGram
* client.
*
* Created by: Marc Horowitz <marc@athena.mit.edu>
*
* $Id$
*
* Copyright (c) 1989 by the Massachusetts Institute of Technology.
* For copying and distribution information, see the file
* "mit-copyright.h".
*/
/* This entire module goes out the window in saber */
#if !defined(SABER) && (defined(DEBUG) || defined(DEBUG_MEMORY))
#ifndef memory_MODULE
#define memory_MODULE
extern void *memory__malloc(unsigned); /* PRIVATE */
extern void *memory__realloc(void *, unsigned); /* PRIVATE */
extern void *memory__calloc(unsigned, unsigned); /* PRIVATE */
extern void memory__free(void *); /* PRIVATE */
#ifdef DEBUG_MEMORY
#define CHECK_FIELD_VALUE 0xe5e7e3e9
typedef struct _memory_block_header {
unsigned size;
char *creating_module;
int line_number_in_creating_module;
unsigned int check_field;
} memory_block_header;
#define memory__size_of_header (sizeof(struct _memory_block_header))
#define memory__get_header(block) \
((struct _memory_block_header *)((block)-memory__size_of_header))
#define memory__on_heap_p(block) \
(memory__get_header(block)->check_field==CHECK_FIELD_VALUE)
#else
#define memory__size_of_header 0
#define memory__on_heap_p(block) 1
#endif
/*
* int string_Length(string s):
* Effects: Returns the number of non-null characters in s.
*/
#ifndef memory__PROVIDER
#ifdef DEBUG_MEMORY
extern char *current_module;
extern void set_module();
#define malloc(size) (set_module(__FILE__,__LINE__),\
memory__malloc(size))
#define realloc(ptr, size) (set_module(__FILE__,__LINE__),\
memory__realloc((char *) ptr, size))
#define calloc(nelem, elsize) (set_module(__FILE__,__LINE__),\
memory__calloc(nelem, elsize))
#define free(ptr) (set_module(__FILE__,__LINE__),\
memory__free((char *) ptr))
#else
#define malloc(size) memory__malloc(size)
#define realloc(ptr, size) memory__realloc((char *) ptr, size)
#define calloc(nelem, elsize) memory__calloc(nelem, elsize)
#define free(ptr) memory__free((char *) ptr)
#endif /* DEBUG_MEMORY */
#endif /* memory__PROVIDER */
#endif /* memory_MODULE */
#endif /* SABER */
|
