From 9aa51d297dc569820932cc6cc8f64eb7f6f5c7aa Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Mon, 4 Sep 2000 15:35:52 +0000
Subject: [PATCH] Fix the naming of the float register storage classes, but the
 code is still broken and disabled.

---
 lisp/interr.c | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

diff --git a/lisp/interr.c b/lisp/interr.c
index 5e892139e..a5fffc0ce 100644
--- a/lisp/interr.c
+++ b/lisp/interr.c
@@ -1,5 +1,5 @@
 /*
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/interr.c,v 1.3 1997/01/21 00:28:13 ram Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/interr.c,v 1.4 2000/09/04 15:35:52 dtc Exp $
  *
  * Stuff to handle internal errors.
  *
@@ -118,15 +118,22 @@ void internal_error(struct sigcontext *context)
 	  case sc_UnsignedReg:
 	    printf("\t%u\n", SC_REG(context, offset));
 	    break;
-#ifdef sc_SingleFloatReg
-	  case sc_SingleFloatReg:
-	    printf("\t%g\n", *(float *)&context->sc_fpregs[offset]);
+#if 0 /* broken */
+#ifdef sc_SingleReg
+	  case sc_SingleReg:
+	    printf("\t%g\n", *(float *) &context->sc_fpregs[offset]);
 	    break;
 #endif
-#ifdef sc_DoubleFloatReg
-	  case sc_DoubleFloatReg:
-	    printf("\t%g\n", *(double *)&context->sc_fpregs[offset]);
+#ifdef sc_DoubleReg
+	  case sc_DoubleReg:
+	    printf("\t%g\n", *(double *) &context->sc_fpregs[offset]);
 	    break;
+#endif
+#ifdef sc_LongReg
+	  case sc_LongReg:
+	    printf("\t%Lg\n", *(long double *) &context->sc_fpregs[offset]);
+	    break;
+#endif
 #endif
 	  default:
 	    printf("\t???\n");
-- 
GitLab