Return to M68.dep.c CVS log

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

Annotation of researchv10no/cmd/sml/src/runtime/M68.dep.c, revision 1.1.1.1

1.1       root        1: /* Copyright 1989 by AT&T Bell Laboratories */
                      2: /* M68.dep.c
                      3:  *
                      4:  *    M68 dependent code for the SML/NJ runtime kernel.
                      5:  */
                      6: 
                      7: #include <signal.h>
                      8: #include "tags.h"
                      9: 
                     10: #if defined(NeXT) && (! defined(FPE_TRAPV_TRAP))
                     11: /* This is required because NeXT 1.0 nuked this definition */
                     12: #define     FPE_TRAPV_TRAP      0x1c    /* TRAPV [cpTRAPcc TRAPcc] instr */
                     13: #endif
                     14: 
                     15: extern int cause, fault_code;
                     16: extern int saved_pc;
                     17: extern int saveregs[];
                     18: 
                     19: 
                     20: /* ghandle:
                     21:  */
                     22: ghandle (sig, code, scp, addr)
                     23:     int                        sig, code, addr;
                     24:     struct sigcontext  *scp;
                     25: {
                     26:     saved_pc = scp->sc_pc;
                     27:     scp->sc_pc = (int)saveregs; 
                     28: 
                     29: /* Note: versions of sony_news before Sept 1989 had pc pointer BEFORE
                     30:    trap instruction, not after. */
                     31:     if (sig==SIGFPE && code==FPE_TRAPV_TRAP && ((short*)saved_pc)[-1] == 23548)
                     32:     {   saved_pc-=4;
                     33:        cause=CAUSE_GC;
                     34:     }
                     35:     else {
                     36:        fault_code=exnCode(sig,code);
                     37:        cause=CAUSE_FAULT;
                     38:     }
                     39: }
                     40: 
                     41: 
                     42: extern int handleprof();
                     43: 
                     44: void setupsignals()
                     45: {
                     46:   struct sigvec a;
                     47:   extern fpenable();
                     48: 
                     49:   a.sv_handler = (void (*)()) ghandle;
                     50:   a.sv_onstack = 0;
                     51:   a.sv_mask    = 0;
                     52:   sigvec(SIGINT,&a,0);
                     53:   sigvec(SIGFPE,&a,0);
                     54:   sigvec(SIGEMT,&a,0);  /* in case 68881 is not present */
                     55:   a.sv_handler = SIG_IGN;
                     56:   sigvec(SIGPIPE,&a,0);
                     57:   a.sv_handler = (void (*)()) handleprof;
                     58:   sigvec(SIGVTALRM,&a,0);
                     59:   fpenable();
                     60: }

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