trap.c 2.2 KB

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