Return to push_id.c CVS log

Up to [Research Unix] / researchv9 / jerq / sgs / libsdp

Annotation of researchv9/jerq/sgs/libsdp/push_id.c, revision 1.1.1.1

1.1       root        1: static char ID[] = "@(#) push_id.c: 1.1 3/16/82";
                      2: #include "sdp.h"
                      3: #include "define3.h"
                      4: 
                      5: #ifdef SHORT
                      6: #define PU01   "PU01 "
                      7: #define PU02   "PU02 "
                      8: #else
                      9: #define PU01   "%s","PU01 -- error return from stk2search\n"
                     10: #define PU02   "%s","PU02 -- error return from fault\n"
                     11: #endif
                     12: 
                     13: extern FATAL() ;
                     14: extern struct LIBFILE *Glib_file ;
                     15: extern fault() ;
                     16: extern framesearch() ;
                     17: extern stk2search() ;
                     18: 
                     19: int                                    /* SUCCESS or ERROR */
                     20: push_id(sp,id,howmuch)
                     21: struct SPACE   *sp ;
                     22: ITEMID         id ;
                     23: unsigned       howmuch ;
                     24: {
                     25:        register int            frame ;
                     26:        register int            offset ;
                     27:        register int            stack ;
                     28:        register struct MANAGER *manager ;
                     29:        register struct STAXINFO *pntr ;
                     30: 
                     31:        if(howmuch < sizeof(ITEMID)+sizeof(unsigned))
                     32:                return(SUCCESS) ;
                     33:        manager = (sp->environ)->manp ;
                     34: 
                     35:        if( (stack = stk2search(sp,howmuch)) == ERROR )
                     36:                ERR_RET(PU01,ERROR)
                     37: 
                     38:        if( (frame = framesearch(sp,id)) == NOTFOUND )
                     39:                frame = fault(sp,id) ;
                     40: 
                     41:        if(frame == ERROR)
                     42:                ERR_RET(PU02,ERROR)
                     43: 
                     44:        offset = id % (sp->environ)->frame_size ;
                     45:        pntr = (struct STAXINFO *)(manager[frame].frame_pntr + offset) ;
                     46:        pntr->top = sp->staxinfo[stack].top ;
                     47:        pntr->size = (long)howmuch ;
                     48:        sp->staxinfo[stack].top = id ;
                     49:        sp->staxinfo[stack].depth++  ;
                     50:        manager[frame].ref_chng = WRTN ;
                     51:        return(SUCCESS) ;
                     52: }

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