Initial entry

1988-06-22 16:57:09 +00:00
parent 100ec25991
commit 0d49fd4227
68 changed files with 15062 additions and 0 deletions
--- a/util/int/trap.c
+++ b/util/int/trap.c
@@ -0,0 +1,128 @@
+/*
+	Trap handling
+*/
+
+/* $Header$ */
+
+#include	<setjmp.h>
+
+#include	<em_abs.h>
+#include	"logging.h"
+#include	"global.h"
+#include	"log.h"
+#include	"trap.h"
+#include	"warn.h"
+#include	"mem.h"
+#include	"shadow.h"
+#include	"linfil.h"
+#include	"rsb.h"
+#include	"fra.h"
+
+extern char *sprintf();
+
+extern jmp_buf trapbuf;			/* from main.c */
+
+int must_test;				/* TEST-bit on in EM header word 2 */
+int signalled;
+
+PRIVATE int nonreturnable();
+
+PRIVATE char *trap_msg[] = {
+#include	"trap_msg"		/* generated from $(EM)/etc/traps */
+	""
+};
+
+char *trap2text(nr)			/* transient */
+	int nr;
+{
+	if (	/* trap number in predefined range */
+		nr < sizeof (trap_msg) / sizeof (trap_msg[0])
+	&&	/* trap message not the empty string */
+		trap_msg[nr][0]
+	) {
+		return trap_msg[nr];
+	}
+	else {
+		static char buf[50];
+
+		sprintf(buf, "TRAP %d", nr);
+		return buf;
+	}
+}
+
+/*ARGSUSED*/
+do_trap(nr, L, F)
+	int nr;
+	int L;
+	char *F;
+{
+	/*
+	1.	The trap has not been masked.
+	2.	This routine does not return; it either ends in a call of
+		fatal() or in a longjmp().
+	*/
+	static int rec_nr;		/* Recursive trap number */
+	static int rec_trap = 0;	/* To detect traps inside do_trap() */
+	
+	register long tpi;		/* Trap Procedure Identifier */
+
+	LOG(("@t1 trap(%d) [%s: %d]", nr, F, L));
+	warning(WMSG + nr);
+
+	switch (OnTrap) {
+	case TR_ABORT:
+		fatal("trap \"%s\" before program started", trap2text(nr));
+		/*NOTREACHED*/
+
+	case TR_HALT:
+		fatal("trap \"%s\" not caught at %s",
+				trap2text(nr), position());
+		/*NOTREACHED*/
+
+	case TR_TRAP:
+		/* execute the trap */
+		if (rec_trap) {
+			fatal("recursive trap; first trap number was \"%s\"",
+					trap2text(rec_nr));
+		}
+		rec_trap = 1;
+		rec_nr = nr;
+
+		/* save the Function Return Area */
+		pushFRA(FRASize);
+		npush((long)FRASize, wsize);
+		npush((long)FRA_def, wsize);
+
+		/* set up the trap number as the only parameter */
+		npush((long) nr, wsize);
+
+		tpi = TrapPI;		/* allowed since OnTrap == TR_TRAP */
+		TrapPI = 0;
+		OnTrap = TR_HALT;
+		call(tpi, (nonreturnable(nr) ? RSB_NRT : RSB_RTT));
+		rec_trap = 0;
+		longjmp(trapbuf, 1);
+		/*NOTREACHED*/
+	}
+}
+
+PRIVATE int nonreturnable(nr)
+	int nr;
+{
+	switch (nr) {
+	case ESTACK:
+	case EILLINS:
+	case EODDZ:
+	case ECASE:
+	case EMEMFLT:
+	case EBADPTR:
+	case EBADPC:
+	case EBADLAE:
+	case EBADGTO:
+		return 1;
+	default:
+		return 0;
+	}
+	/*NOTREACHED*/
+}
+