diff --git a/lisp/interr.c b/lisp/interr.c index 5e892139e3bde99b9fb8d28496cb535ca1eba0b9..a5fffc0ce06387581f88bbdbafcb4844f512fd61 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");