From: Alastair B. <lis...@us...> - 2009-12-21 16:30:21
|
Update of /cvsroot/sbcl/sbcl/src/runtime In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv16353/src/runtime Modified Files: interr.c Log Message: 1.0.33.28: Display descriptions for internal errors in the runtime. * In genesis, output a define with the descriptions of internal errors. * In interr.c, create an array with said descriptions and use it when describing an internal error. Index: interr.c =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/runtime/interr.c,v retrieving revision 1.26 retrieving revision 1.27 diff -u -d -r1.26 -r1.27 --- interr.c 22 Mar 2009 21:44:07 -0000 1.26 +++ interr.c 21 Dec 2009 16:30:09 -0000 1.27 @@ -117,6 +117,7 @@ #endif } +char *internal_error_descriptions[] = {INTERNAL_ERROR_NAMES}; /* internal error handler for when the Lisp error system doesn't exist * * FIXME: Shouldn't error output go to stderr instead of stdout? (Alas, @@ -129,7 +130,9 @@ int len, scoffset, sc, offset, ch; len = *ptr++; - printf("internal error #%d\n", *ptr++); + printf("internal error #%d (%s)\n", *ptr, + internal_error_descriptions[*ptr]); + ptr++; len--; while (len > 0) { scoffset = *ptr++; |