Return to dump.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / rt

Annotation of 43BSD/contrib/icon/rt/dump.c, revision 1.1

1.1     ! root        1: #include "../h/rt.h"
        !             2: #include "../h/gc.h"
        !             3: int stkbase;
        !             4: int stktop;
        !             5: 
        !             6: /*
        !             7:  * ddump - dump a descriptor.  Used only for debugging.
        !             8:  */
        !             9: 
        !            10: ddump(desc)
        !            11: struct descrip *desc;
        !            12:    {
        !            13:    printf("%08x: ",desc);
        !            14:    if (isptr(desc))
        !            15:       if (VAR(*desc))
        !            16:          printf("%15s","interior ptr.");
        !            17:       else
        !            18:          printf("%15s",blkname[(desc->type)&TYPEMASK]);
        !            19:    else
        !            20:       if (QUAL(*desc))
        !            21:          printf("%15s","str. qualifier");
        !            22:       else
        !            23:          printf("%15s","integer");
        !            24:    printf(" %08x %08x\n",desc->type,desc->value.integr);
        !            25:    }
        !            26: 
        !            27: 
        !            28: /*
        !            29:  * mdump - dump the heap.  Used only for debugging.
        !            30:  */
        !            31: 
        !            32: mdump()
        !            33:    {
        !            34:    register char *blk;
        !            35:    register int type, size, fdesc;
        !            36:    register struct descrip *ndesc;
        !            37: 
        !            38:    printf("\nDump of heap.  base:%08x free:%08x max:%08x\n",
        !            39:            hpbase,hpfree,maxheap);
        !            40:    printf("  loc     type              size  contents\n");
        !            41: 
        !            42:    for (blk = hpbase; blk < hpfree; blk += getsize(blk)) {
        !            43:       type = blktype(blk);
        !            44:       size = getsize(blk);
        !            45:       printf(" %08x   %15s   %4d\n",blk,blkname[type],size);
        !            46:       if ((fdesc = firstd[type]) > 0)
        !            47:          for (ndesc = (struct descrip *) (blk + fdesc);
        !            48:                ndesc < (struct descrip *) (blk + size);ndesc++)  {
        !            49:             printf("                                 ");
        !            50:             ddump(ndesc);
        !            51:             }
        !            52:       printf("\n");
        !            53:       }
        !            54:    printf("end of heap.\n");
        !            55:    }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.