Return to balloc.c CVS log

Up to [Research Unix] / researchv10no / libcc

Annotation of researchv10no/libcc/balloc.c, revision 1.1

1.1     ! root        1: #include <jstructs.h>
        !             2: 
        !             3: #define rox    r.origin.x
        !             4: #define roy    r.origin.y
        !             5: #define rcx    r.corner.x
        !             6: #define rcy    r.corner.y
        !             7: 
        !             8: Bitmap *
        !             9: balloc(r)
        !            10: Rectangle r;
        !            11: {
        !            12:        char *malloc(), *calloc();
        !            13:        register left, right;
        !            14:        register Bitmap *bp;
        !            15: 
        !            16:        if ((bp=(Bitmap *)malloc(sizeof(Bitmap))) == (Bitmap *)0)
        !            17:                return (Bitmap *)0;
        !            18: 
        !            19:        left = rox & ~WORDMASK;
        !            20:        if ((right=rcx) & WORDMASK) {
        !            21:                right |= WORDMASK;
        !            22:                right ++;
        !            23:        }
        !            24:        bp->width = (right-left)>>WORDSHIFT;
        !            25:        bp->rect = r;
        !            26: 
        !            27:        bp->base = (Word *)calloc(bp->width * (rcy-roy), sizeof(Word));
        !            28:        if (bp->base == (Word *)0){
        !            29:                free((char *)bp);
        !            30:                return (Bitmap *)0;
        !            31:        }
        !            32:        bp->_null=0;
        !            33:        return bp;
        !            34: }
        !            35: 
        !            36: bfree(bp)
        !            37:        register Bitmap *bp;
        !            38: {
        !            39:        if (bp) {
        !            40:                free((char *)bp->base);
        !            41:                free((char *)bp);
        !            42:        }
        !            43: }

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