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     ! 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 */