Method describe_ptr

src/simulate/simulate_gc.cpp:274–325

            ptrRangeStack.pop_back();
        }
        bool describe_ptr ( char * pa, uint64_t tsize, bool isHandle = false ) {
            auto ssize = (tsize + uint64_t(15)) & ~uint64_t(15);
            bool show = !errorsOnly;
            if ( context->stack.is_stack_ptr(pa) ) {
                if ( show ) tp << "\tSTACK";
            } else if ( context->isGlobalPtr(pa) ) {
                if ( show ) tp << "\tGLOBAL";
            } else if ( context->isSharedPtr(pa) ) {
                if ( show ) tp << "\tSHAREDGLOBAL";
            } else if ( context->heap->isOwnPtr(pa, ssize) ) {
                if ( context->heap->isValidPtr(pa, ssize) ) {
                    if ( show ) tp << "\tHEAP";
                } else {
                    tp << "\tHEAP FREE!!!";
                    show = true;
                }
            } else if ( context->stringHeap->isOwnPtr(pa, ssize) ) {
                if ( context->stringHeap->isValidPtr(pa, ssize) ) {
                    if ( show ) tp << "\tSTRINGHEAP";
                } else {
                    tp << "\tSTRINGHEAP FREE!!!";
                    show = true;
                }
            } else if ( context->constStringHeap->isOwnPtr(pa) ) {
                if ( show ) tp << "\tCONSTSTRINGHEAP";
            } else if  ( context->code->isOwnPtr(pa) ) {
                if ( show ) tp << "\tCODE";
            } else if ( context->debugInfo->isOwnPtr(pa) ) {
                if ( show ) tp << "\tDEBUGINFO";
            } else if ( isHandle ) {
                if ( show ) tp << "\tHANDLED";
            } else {
                tp << "UNCATEGORIZED!!!";
                show = true;
            }
            if ( show ) {
                tp << " " << tsize <<  " bytes, at 0x" << HEX << uint64_t(pa) << DEC << " ";
                if ( pa==nullptr ) {
                    tp << "= NULL";
                } else {
                    auto bpa = (uint8_t *) pa;
                    tp << HEX;
                    char tohex[] = "0123456789abcdef";
                    for ( int i=0; i<8; ++i ) {
                        auto t = bpa[i];
                        tp << " " << tohex[t>>4] << tohex[t&15];
                    }
                    tp << DEC;
                }
            }
            return show;
        }
        void describeInfo ( TypeInfo * ti ) {
            if ( ti->flags & (TypeInfo::flag_stringHeapGC | TypeInfo::flag_heapGC) ) tp << " ";
            if ( ti->flags & TypeInfo::flag_stringHeapGC ) tp << "<S>";