Return to getnxtpage.c CVS log

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

Annotation of researchv9/jerq/sgs/inc/sdpsrc/lo/getnxtpage.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * static char ID_gnxpagc[] = "@(#) getnxtpage.c: 1.1 1/7/82";
                      3:  */
                      4: 
                      5: long getnxtpage(spacenbr)
                      6: int spacenbr;
                      7: {
                      8:        register long pagenbr;
                      9: 
                     10:        pagenbr = global_frames[spacenbr].maxpage;
                     11: 
                     12:        if( ++pagenbr == SPSIZE )
                     13:                return( (long) fatal("SDP page limit reached") );
                     14: 
                     15:        global_frames[spacenbr].maxpage = pagenbr;
                     16: 
                     17:        return( pagenbr );
                     18: }

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