Annotation of OpenXM_contrib2/asir2000/gc5.3/dbg_mlc.h, Revision 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>