Return to unlock.c CVS log

Up to [Research Unix] / researchv9 / jerq / sgs / inc / sdpsrc / hi

Annotation of researchv9/jerq/sgs/inc/sdpsrc/hi/unlock.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * static char ID_unlckc[] = "@(#) unlock.c: 1.1 1/7/82";
        !             3:  */
        !             4: 
        !             5: unlock(itemid, permissions)
        !             6: ITEMID itemid;
        !             7: int    permissions;
        !             8: {
        !             9: 
        !            10:        register index;
        !            11: 
        !            12:        LD_unlock++;
        !            13: #if DEBUG
        !            14:        if( dflag > 15 )
        !            15:                fprintf( stderr, "unlock %08lx ", itemid );
        !            16: #endif
        !            17: 
        !            18:        itemid &= ~BYTEMASK;
        !            19: 
        !            20:        for( index = 0; index < NUMBERFRAMES; index++ )
        !            21:                if( itemid == manager[index].page_id) {
        !            22:                        manager[index].lock_count--;
        !            23:                        if( permissions == WRTN )
        !            24:                                manager[index].ref_chng = WRTN;
        !            25:                        if( manager[index].lock_count < 0 )
        !            26:                                return( fatal("attempt to unlock unlocked frame") );
        !            27:                        if( manager[index].lock_count == 0 )
        !            28:                                if( enlist(index, MRU) < 0 )
        !            29:                                        return( fatal("unable to replace frame on free list") );
        !            30:                        return(SUCCESS);
        !            31:                        }
        !            32: 
        !            33:        return( fatal("attempt to unlock non-resident item") );
        !            34: }

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