trap.c 2.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128
  1. /*
  2. Trap handling
  3. */
  4. /* $Header$ */
  5. #include <setjmp.h>
  6. #include <em_abs.h>
  7. #include "logging.h"
  8. #include "global.h"
  9. #include "log.h"
  10. #include "trap.h"
  11. #include "warn.h"
  12. #include "mem.h"
  13. #include "shadow.h"
  14. #include "linfil.h"
  15. #include "rsb.h"
  16. #include "fra.h"
  17. extern char *sprintf();
  18. extern jmp_buf trapbuf; /* from main.c */
  19. int must_test; /* TEST-bit on in EM header word 2 */
  20. int signalled;
  21. PRIVATE int nonreturnable();
  22. PRIVATE char *trap_msg[] = {
  23. #include "trap_msg" /* generated from $(EM)/etc/traps */
  24. ""
  25. };
  26. char *trap2text(nr) /* transient */
  27. int nr;
  28. {
  29. if ( /* trap number in predefined range */
  30. nr < sizeof (trap_msg) / sizeof (trap_msg[0])
  31. && /* trap message not the empty string */
  32. trap_msg[nr][0]
  33. ) {
  34. return trap_msg[nr];
  35. }
  36. else {
  37. static char buf[50];
  38. sprintf(buf, "TRAP %d", nr);
  39. return buf;
  40. }
  41. }
  42. /*ARGSUSED*/
  43. do_trap(nr, L, F)
  44. int nr;
  45. int L;
  46. char *F;
  47. {
  48. /*
  49. 1. The trap has not been masked.
  50. 2. This routine does not return; it either ends in a call of
  51. fatal() or in a longjmp().
  52. */
  53. static int rec_nr; /* Recursive trap number */
  54. static int rec_trap = 0; /* To detect traps inside do_trap() */
  55. register long tpi; /* Trap Procedure Identifier */
  56. LOG(("@t1 trap(%d) [%s: %d]", nr, F, L));
  57. warning(WMSG + nr);
  58. switch (OnTrap) {
  59. case TR_ABORT:
  60. fatal("trap \"%s\" before program started", trap2text(nr));
  61. /*NOTREACHED*/
  62. case TR_HALT:
  63. fatal("trap \"%s\" not caught at %s",
  64. trap2text(nr), position());
  65. /*NOTREACHED*/
  66. case TR_TRAP:
  67. /* execute the trap */
  68. if (rec_trap) {
  69. fatal("recursive trap; first trap number was \"%s\"",
  70. trap2text(rec_nr));
  71. }
  72. rec_trap = 1;
  73. rec_nr = nr;
  74. /* save the Function Return Area */
  75. pushFRA(FRASize);
  76. npush((long)FRASize, wsize);
  77. npush((long)FRA_def, wsize);
  78. /* set up the trap number as the only parameter */
  79. npush((long) nr, wsize);
  80. tpi = TrapPI; /* allowed since OnTrap == TR_TRAP */
  81. TrapPI = 0;
  82. OnTrap = TR_HALT;
  83. call(tpi, (nonreturnable(nr) ? RSB_NRT : RSB_RTT));
  84. rec_trap = 0;
  85. longjmp(trapbuf, 1);
  86. /*NOTREACHED*/
  87. }
  88. }
  89. PRIVATE int nonreturnable(nr)
  90. int nr;
  91. {
  92. switch (nr) {
  93. case ESTACK:
  94. case EILLINS:
  95. case EODDZ:
  96. case ECASE:
  97. case EMEMFLT:
  98. case EBADPTR:
  99. case EBADPC:
  100. case EBADLAE:
  101. case EBADGTO:
  102. return 1;
  103. default:
  104. return 0;
  105. }
  106. /*NOTREACHED*/
  107. }