Return to release.c CVS log

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

Annotation of researchv9/jerq/sgs/inc/sdpsrc/hi/release.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * static char ID_relc[] = "@(#) release.c: 1.1 1/7/82";
                      3:  */
                      4: 
                      5: release(what,howmuch)
                      6: ITEMID what;
                      7: int    howmuch;
                      8: {
                      9:        int frameno,ordinal,tops;
                     10:        char *place, *scan;
                     11: 
                     12:        frameno = sojourn(what,YES);
                     13:        if(frameno<0) return(fatal("RL01 -- unable to find frame for release"));
                     14: 
                     15: 
                     16:        if( (ordinal = sp2or(XTRCTSP(what))) <0 )
                     17:                return(fatal("RL02 -- unknown space number"));
                     18: 
                     19:        place = manager[frameno].frame_pntr + (what & BYTEMASK);
                     20: 
                     21:        for(tops=global_frames[ordinal]->numbstax-1; tops >= 0; tops--)
                     22:                if( howmuch >= global_frame[ordinal]->sizestax[tops] )
                     23:                {
                     24:                        (*( (ITEMID *)place )) = global_frame[ordinal] -> topstax[tops];
                     25:                        global_frame[ordinal] -> topstax[tops] = what;
                     26:                        manager[frameno].ref_chng = WRTN;
                     27:                        break;
                     28:                }
                     29: 
                     30:        for(scan=place; scan<place+howmuch; *scan++=0);
                     31: 
                     32:        return(SUCCESS);
                     33: 
                     34: }

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