Return to balloc.c CVS log

Up to [Research Unix] / researchv9 / jerq / src / lib / j

Annotation of researchv9/jerq/src/lib/j/balloc.c, revision 1.1

1.1     ! root        1: #include <jerq.h>
        !             2: /*
        !             3:  * All Bitmaps come from here
        !             4:  */
        !             5: Bitmap *
        !             6: realballoc(r, caller)
        !             7:        Rectangle  r;
        !             8:        char *caller;
        !             9: {
        !            10:        register rox=r.origin.x, roy=r.origin.y;
        !            11:        register rcx=r.corner.x, rcy=r.corner.y;
        !            12:        register left, right;
        !            13:        register Bitmap *bp;
        !            14:        char *realgcalloc(), *realalloc();
        !            15: 
        !            16:        if((bp=(Bitmap *)realalloc(sizeof(Bitmap), caller))==0)
        !            17:                return 0;
        !            18:        left=rox&~WORDMASK;
        !            19:        if((right=rcx)&WORDMASK){
        !            20:                right|=WORDMASK;
        !            21:                right++;
        !            22:        }
        !            23:        bp->width=(right-left)>>WORDSHIFT;
        !            24:        bp->rect.origin.x=rox; bp->rect.origin.y=roy;
        !            25:        bp->rect.corner.x=rcx; bp->rect.corner.y=rcy;
        !            26:        if(realgcalloc(((unsigned long)bp->width<<2)*(rcy-roy),
        !            27:           (long **)&bp->base, caller)==0){
        !            28:                free((char *) bp);
        !            29:                return 0;
        !            30:        }
        !            31:        bp->_null=0;
        !            32:        return bp;
        !            33: }
        !            34: 
        !            35: 
        !            36: Bitmap *
        !            37: balloc(r)
        !            38:        Rectangle r;
        !            39: {
        !            40:        return realballoc(r, (char *)0);
        !            41: }
        !            42: 
        !            43: bfree(bp)
        !            44:        register Bitmap *bp;
        !            45: {
        !            46:        if(bp){
        !            47:                gcfree((char *)bp->base);
        !            48:                free((char *)bp);
        !            49:        }
        !            50: }

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