Return to fault.c CVS log

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

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

1.1       root        1: static char ID[] = "@(#) fault.c: 1.1 3/16/82";
                      2: #include "sdp.h"
                      3: #include "define3.h"
                      4: 
                      5: #ifdef SHORT
                      6: #define FA01   "FA01 "
                      7: #define FA02   "FA02 "
                      8: #define FA03   "FA03 "
                      9: #define FA04   "FA04 "
                     10: #else
                     11: #define FA01   "%s","FA01 -- error return from nextsearch\n"
                     12: #define FA02   "%s","FA02 -- error return from writeframe\n"
                     13: #define FA03   "FA03 -- unknown ref/change value\n%d\t%o\t%d\n",manager[frame].ref_chng,sp,frame
                     14: #define FA04   "%s","FA04 -- error return from readpage\n"
                     15: #endif
                     16: 
                     17: extern FATAL() ;
                     18: extern struct LIBFILE *Glib_file ;
                     19: extern nextsearch() ;
                     20: extern readpage() ;
                     21: extern writeframe() ;
                     22: 
                     23: int                                    /* frame number of ERROR */
                     24: fault(sp,id)
                     25: struct SPACE   *sp ;
                     26: ITEMID         id ;
                     27: {
                     28:        register int            frame ;
                     29:        register struct MANAGER *manager ;
                     30: 
                     31:        id -= id % (sp->environ)->frame_size ;
                     32:        if( (frame = nextsearch(sp->environ)) == NOTFOUND)
                     33:                ERR_RET(FA01,ERROR)
                     34: 
                     35:        manager = (sp->environ)->manp ;
                     36:        switch(manager[frame].ref_chng)
                     37:        {
                     38:                case WRTN:
                     39:                        if(writeframe(manager[frame].space,frame) == ERROR)
                     40:                                ERR_RET(FA02,ERROR)
                     41: 
                     42:                case RCNULL:
                     43:                case RNLY:
                     44:                        break ;
                     45: 
                     46:                default:
                     47:                        ERR_RET(FA03,ERROR)
                     48:                        break ;
                     49:        }
                     50: 
                     51:        if(readpage(sp,id,frame) == ERROR)
                     52:                ERR_RET(FA04,ERROR)
                     53: 
                     54:        manager[frame].space = sp ;
                     55:        manager[frame].page_id = id ;
                     56: 
                     57:        return(frame) ;
                     58: }

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