Annotation of OpenXM_contrib2/asir2000/gc5.3/dbg_mlc.h, Revision 1.1.1.1
1.1 noro 1: /*
2: * Copyright 1988, 1989 Hans-J. Boehm, Alan J. Demers
3: * Copyright (c) 1991-1995 by Xerox Corporation. All rights reserved.
4: * Copyright (c) 1997 by Silicon Graphics. All rights reserved.
5: * Copyright (c) 1999 by Hewlett-Packard Company. All rights reserved.
6: *
7: * THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY EXPRESSED
8: * OR IMPLIED. ANY USE IS AT YOUR OWN RISK.
9: *
10: * Permission is hereby granted to use or copy this program
11: * for any purpose, provided the above notices are retained on all copies.
12: * Permission to modify the code and to distribute modified code is granted,
13: * provided the above notices are retained, and a notice that the code was
14: * modified is included with the above copyright notice.
15: */
16:
17: /*
18: * This is mostly an internal header file. Typical clients should
19: * not use it. Clients that define their own object kinds with
20: * debugging allocators will probably want to include this, however.
21: * No attempt is made to keep the namespace clean. This should not be
22: * included from header filrd that are frequently included by clients.
23: */
24:
25: #ifndef _DBG_MLC_H
26:
27: #define _DBG_MLC_H
28:
29: # define I_HIDE_POINTERS
30: # include "gc_priv.h"
31: # ifdef KEEP_BACK_PTRS
32: # include "backptr.h"
33: # endif
34:
35: # define START_FLAG ((word)0xfedcedcb)
36: # define END_FLAG ((word)0xbcdecdef)
37: /* Stored both one past the end of user object, and one before */
38: /* the end of the object as seen by the allocator. */
39:
40:
41: /* Object header */
42: typedef struct {
43: # ifdef KEEP_BACK_PTRS
44: ptr_t oh_back_ptr;
45: # define MARKED_FOR_FINALIZATION (ptr_t)(-1)
46: /* Object was marked because it is finalizable. */
47: # define MARKED_FROM_REGISTER (ptr_t)(-2)
48: /* Object was marked from a rgister. Hence the */
49: /* source of the reference doesn't have an address. */
50: # ifdef ALIGN_DOUBLE
51: word oh_dummy;
52: # endif
53: # endif
54: char * oh_string; /* object descriptor string */
55: word oh_int; /* object descriptor integers */
56: # ifdef NEED_CALLINFO
57: struct callinfo oh_ci[NFRAMES];
58: # endif
59: word oh_sz; /* Original malloc arg. */
60: word oh_sf; /* start flag */
61: } oh;
62: /* The size of the above structure is assumed not to dealign things, */
63: /* and to be a multiple of the word length. */
64:
65: #define DEBUG_BYTES (sizeof (oh) + sizeof (word))
66: #define USR_PTR_FROM_BASE(p) ((ptr_t)(p) + sizeof(oh))
67:
68: /* There is no reason to ever add a byte at the end explicitly, since we */
69: /* already add a guard word. */
70: #undef ROUNDED_UP_WORDS
71: #define ROUNDED_UP_WORDS(n) BYTES_TO_WORDS((n) + WORDS_TO_BYTES(1) - 1)
72:
73: #ifdef SAVE_CALL_CHAIN
74: # define ADD_CALL_CHAIN(base, ra) GC_save_callers(((oh *)(base)) -> oh_ci)
75: # define PRINT_CALL_CHAIN(base) GC_print_callers(((oh *)(base)) -> oh_ci)
76: #else
77: # ifdef GC_ADD_CALLER
78: # define ADD_CALL_CHAIN(base, ra) ((oh *)(base)) -> oh_ci[0].ci_pc = (ra)
79: # define PRINT_CALL_CHAIN(base) GC_print_callers(((oh *)(base)) -> oh_ci)
80: # else
81: # define ADD_CALL_CHAIN(base, ra)
82: # define PRINT_CALL_CHAIN(base)
83: # endif
84: #endif
85:
86: # ifdef GC_ADD_CALLER
87: # define OPT_RA ra,
88: # else
89: # define OPT_RA
90: # endif
91:
92:
93: /* Check whether object with base pointer p has debugging info */
94: /* p is assumed to point to a legitimate object in our part */
95: /* of the heap. */
96: GC_bool GC_has_debug_info(/* p */);
97:
98: /* Store debugging info into p. Return displaced pointer. */
99: /* Assumes we don't hold allocation lock. */
100: ptr_t GC_store_debug_info(/* p, sz, string, integer */);
101:
102: #endif /* _DBG_MLC_H */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>