From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 23 Nov 1992 04:01:58 +0000 (+0000)
Subject: Print trapping pc and sp if there is no handler in an attempt to find
X-Git-Tag: 20090517-FFI~8722
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7e7ef349740a7aa3ef60b06455112d1b24597cf0;p=mit-scheme.git

Print trapping pc and sp if there is no handler in an attempt to find
out what's happening with the spurious traps at boot time.
---

diff --git a/v7/src/microcode/dostrap.c b/v7/src/microcode/dostrap.c
index dce456b4b..2d6bb90c2 100644
--- a/v7/src/microcode/dostrap.c
+++ b/v7/src/microcode/dostrap.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: dostrap.c,v 1.2 1992/09/18 05:54:06 jinx Exp $
+$Id: dostrap.c,v 1.3 1992/11/23 04:01:58 gjr Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -414,6 +414,8 @@ DEFUN (setup_trap_frame, (trapno, info, scp, trinfo, new_stack_pointer),
     {
       fprintf (stderr, "There is no trap handler for recovery!\n");
       fprintf (stderr, "Trap = %s.\n", (find_trap_name (trapno)));
+      fprintf (stderr, "pc = %04x:%08lx; sp = %04x:%08lx.\n",
+	       scp->sc_cs, scp->sc_eip, scp->sc_ss, scp->sc_esp);
       fflush (stderr);
       termination_trap ();
     }