Return to VAX.dep.c CVS log

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

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

1.1       root        1: /* Copyright 1989 by AT&T Bell Laboratories */
                      2: /* VAX.dep.c
                      3:  *
                      4:  *    VAX dependent code for the SML/NJ runtime kernel.
                      5:  */
                      6: 
                      7: #include <signal.h>
                      8: #include "tags.h"
                      9: 
                     10: extern int cause, fault_code;
                     11: extern int saved_pc;
                     12: extern int saveregs[];
                     13: 
                     14: 
                     15: int ghandle(sig,code,scp,addr) int sig, code, addr; struct sigcontext *scp;
                     16: {
                     17: #ifdef V9
                     18: #define FPE_INTOVF_TRAP K_INTOVF
                     19:     saved_pc = addr;  addr = (int)saveregs; 
                     20: #else
                     21:     saved_pc = scp->sc_pc; scp->sc_pc = (int)saveregs; 
                     22: #endif
                     23: 
                     24:  if (*(int*)(saved_pc-4) == 0x59585cc1 && code==FPE_INTOVF_TRAP)
                     25:        {cause=CAUSE_GC;
                     26:         saved_pc -= 4;    
                     27:        }
                     28:  else if ((*(int*)saved_pc & 0xffffff) == 0x5958c0 && code==FPE_INTOVF_TRAP)
                     29:    {cause=CAUSE_GC;
                     30: /* the next line is temporary */
                     31: if ( (*(int*)(saved_pc-8) & 0xffff) == 0x5cc1 && code==FPE_INTOVF_TRAP) saved_pc-=8; else
                     32:     saved_pc -= 12;
                     33:    }
                     34:  else {fault_code=exnCode(sig,code); cause=CAUSE_FAULT;}
                     35: }
                     36: 
                     37: /* This next define is needed by ultrix systems */
                     38: #ifndef sigmask
                     39: #define sigmask(X) (1<<((X)-1))
                     40: #endif
                     41: 
                     42: extern int handleprof();
                     43: 
                     44: setupsignals()
                     45: {
                     46: #ifdef BSD
                     47:   struct sigvec a;
                     48:   int (**handlerp)() = (int (**)()) &a.sv_handler;
                     49:   *handlerp = ghandle;
                     50:   a.sv_onstack = 0;
                     51:   a.sv_mask    = 0;
                     52:   sigvec(SIGINT,&a,0);
                     53:   sigvec(SIGFPE,&a,0);
                     54:   a.sv_handler = SIG_IGN;
                     55:   sigvec(SIGPIPE,&a,0);
                     56:   a.sv_handler = (int (*)()) handleprof;
                     57:   sigvec(SIGVTALRM,&a,0);
                     58: #endif
                     59: #ifdef V9
                     60:   signal(SIGINT,ghandle);
                     61:   signal(SIGFPE,ghandle);
                     62:   signal(SIGPIPE,SIG_IGN);
                     63: #endif
                     64: }

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