Return to flush.c CVS log

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

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

1.1     ! root        1: /*
        !             2:  * static char ID_flshc[] = "@(#) flush.c: 1.1 1/7/82";
        !             3:  */
        !             4: 
        !             5: sdpterm(spacenbr)
        !             6: int spacenbr;
        !             7: {
        !             8:        register int index, fdes;
        !             9: 
        !            10:        if( (spacenbr < 0)  ||  (spacenbr > MAXATTACH) )
        !            11:                return( fatal("illegal space number") );
        !            12: 
        !            13:        if( open_spacenumbers[spacenbr] != YES )
        !            14:                return( fatal("address space not open") );
        !            15: 
        !            16:        num_spaces--;
        !            17:        open_spacenumbers[spacenbr] = NO;
        !            18: 
        !            19:        for( index = 0; index < NUMBERFRAMES; index++ ) {
        !            20:        
        !            21:                if( spacenbr != XTRCTSP(manager[index].page_id) )
        !            22:                        continue;
        !            23: 
        !            24:                if( manager[index].lock_count > 0 )
        !            25:                        return( fatal("not all in-core pages unlocked") );
        !            26:                else if( manager[index].lock_count < 0 )
        !            27:                        return( fatal("page lock count has gone negative") );
        !            28:                
        !            29:                if( (manager[index].ref_chng != WRTN)  &&
        !            30:                    (manager[index].ref_chng != RNLY) )
        !            31:                        return( fatal("illegal page ref/change value") );
        !            32:                }
        !            33:                
        !            34:        for( index = 0; index < global_frames[spacenbr].numbfiles; index++ ) {
        !            35:                fdes = global_frames[spacenbr].filedes[index];
        !            36:                if( (fdes == NOTMADE) || (fdes == CLOSED) )
        !            37:                        continue;
        !            38:                if( close(fdes) == SYSERR )
        !            39:                        return( fatal("can't close pageing file") );
        !            40:                }
        !            41: 
        !            42:        return(SUCCESS);
        !            43: }

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