Return to malloc_t.c CVS log

Up to [Research Unix] / researchv10no / cmd / trace

Annotation of researchv10no/cmd/trace/malloc_t.c, revision 1.1

1.1     ! root        1: #include <stdio.h>
        !             2: #include "trace.h"
        !             3: 
        !             4: #define DEBUG  0
        !             5: 
        !             6: #if DEBUG
        !             7: #define log(e, u, d)   event[e][u] += (long) d;
        !             8: #else
        !             9: #define log(e, u, d)
        !            10: #endif
        !            11: 
        !            12: #define A_LARGE 64
        !            13: #define A_USER 0x55000000
        !            14: 
        !            15: #define POOL   0
        !            16: #define ALLOC  1
        !            17: #define FREE   2
        !            18: #define NREVENT        3
        !            19: 
        !            20:  union M {
        !            21:        long size;
        !            22:        union M *link;
        !            23:  };
        !            24: 
        !            25:  union M *freelist[A_LARGE];
        !            26:  long   req[A_LARGE];
        !            27:  long   event[NREVENT][A_LARGE];
        !            28: 
        !            29: char *
        !            30: talloc(u)
        !            31:        long u;
        !            32: { union M *m;
        !            33:   register r;
        !            34:   char *Smalloc();
        !            35: 
        !            36:        u = ((u-1)/sizeof(union M) + 2);
        !            37: 
        !            38:        if( u >= A_LARGE )
        !            39:        {       log(ALLOC, 0, (long) 1);
        !            40:                m = (union M *) malloc( u * sizeof(union M) );
        !            41:                if (m == NULL)
        !            42:                        whoops("malloc fault");
        !            43:        } else
        !            44:        {       if( freelist[u] == NULL )
        !            45:                {       r = req[u] += req[u] ? req[u] : 1;
        !            46:                        if (r > NOTOOBIG)
        !            47:                                r = req[u] = NOTOOBIG+1;
        !            48:                        log(POOL, (int) u, (long) r);
        !            49:                        freelist[u] = (union M *) Smalloc( r*u*sizeof(union M) );
        !            50:                        if (freelist[u] == NULL)
        !            51:                                whoops("malloc fault");
        !            52: 
        !            53:                        (freelist[u] + u*(r-1))->link = 0;
        !            54:                        for (m = freelist[u] + u*(r-2); m >= freelist[u]; m -= u)
        !            55:                                        m->link = m+u;
        !            56:                }
        !            57:                log(ALLOC, (int) u, (long) 1);
        !            58: 
        !            59:                m = freelist[u];
        !            60:                freelist[u] = m->link;
        !            61:        }
        !            62:        m->size = u | A_USER;
        !            63: /*
        !            64:        for (r = 1; r < u; )
        !            65:                (&m->size)[r++] = 0;
        !            66: */
        !            67:        return (char *) (m+1);
        !            68: }
        !            69: 
        !            70: tfree(v)
        !            71:        char *v;
        !            72: { register union M *m = (union M *) v;
        !            73:   register long u;
        !            74: 
        !            75:        --m;
        !            76:        if ( (m->size&0xFF000000) != A_USER)
        !            77:        {       fprintf(stderr, "panic: releasing a free block\n");
        !            78:                kill(getpid(), 3);
        !            79:        }
        !            80: 
        !            81:        u = (m->size &= 0xFFFFFF);
        !            82:        if ( u >= A_LARGE )
        !            83:        {       log(FREE, (int) 0, (long) 1);
        !            84:                free(m);
        !            85:        }
        !            86:        else
        !            87:        {       log(FREE, (int) u, (long) 1);
        !            88:                m->link = freelist[u];
        !            89:                freelist[u] = m;
        !            90:        }
        !            91: }
        !            92: 
        !            93: #if DEBUG
        !            94: double
        !            95: a_stats()
        !            96: { register int i;
        !            97:   long p, a, f, j;
        !            98:   long sum = 0;
        !            99: 
        !           100:        fprintf(stderr, "chunk\t  pool\tallocs\t frees\t spill\n");
        !           101:        for (i = 0; i < A_LARGE; i++)
        !           102:        {
        !           103:                p = event[POOL][i];
        !           104:                a = event[ALLOC][i];
        !           105:                f = event[FREE][i];
        !           106: 
        !           107:                if( !(p|a|f) )
        !           108:                        continue;
        !           109: 
        !           110:                j = (long) (i * sizeof(union M));
        !           111:                fprintf(stderr, "%5d\t%6ld\t%6ld\t%6ld\t%6ld\n", j, p, a, f, a-f);
        !           112: 
        !           113:                sum += p*j;
        !           114:        }
        !           115:        fprintf(stderr, "total pools  %7u\n", sum);
        !           116: 
        !           117:        return (double) sum;
        !           118: }
        !           119: #endif

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