Return to dbg_mlc.h CVS log

Up to [local] / OpenXM_contrib / gc

Annotation of OpenXM_contrib/gc/dbg_mlc.h, Revision 1.1.1.1

1.1       maekawa     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 */