Return to MIPS.dep.c CVS log

Up to [Research Unix] / researchv10no / cmd / sml / src / runtime

Annotation of researchv10no/cmd/sml/src/runtime/MIPS.dep.c, revision 1.1

1.1     ! root        1: /* Copyright 1989 by AT&T Bell Laboratories */
        !             2: /* MIPS.dep.c
        !             3:  *
        !             4:  *    MIPS dependent code for SML/NJ runtime kernel.
        !             5:  */
        !             6: 
        !             7: #include <signal.h>
        !             8: #include "tags.h"
        !             9: 
        !            10: 
        !            11: /* ghandle:
        !            12:  *    Handler for GC signals.
        !            13:  */
        !            14: ghandle(sig,code,scp,addr) int sig, code, addr; struct sigcontext *scp;
        !            15: {
        !            16:     saved_pc = scp->sc_pc;
        !            17:     scp->sc_pc = (int)saveregs;
        !            18:     if(sig == SIGSEGV)
        !            19:         cause = CAUSE_GC;
        !            20:     else {
        !            21:         fault_code = exnCode(sig,code);
        !            22:         cause = CAUSE_FAULT;
        !            23:     }
        !            24: }
        !            25: 
        !            26: 
        !            27: extern int handleprof();
        !            28: 
        !            29: setupsignals ()
        !            30: {
        !            31:   struct sigvec a;
        !            32: 
        !            33:   a.sv_handler = (void (*)()) ghandle;
        !            34:   a.sv_mask    = sigmask(SIGINT);
        !            35:   a.sv_onstack = 0;
        !            36:   a.sv_mask    = 0;
        !            37:   sigvec(SIGINT,&a,0);
        !            38:   sigvec(SIGFPE,&a,0);
        !            39:   a.sv_handler = SIG_IGN;
        !            40:   sigvec(SIGPIPE,&a,0);
        !            41:   a.sv_handler = (int (*)()) handleprof;
        !            42:   sigvec(SIGVTALRM,&a,0);
        !            43: }

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