Mercurial > hg > xemacs-beta

comparison src/emacs.c @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 4be1180a9e89
children cca96a509cfe
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
177 { 177 {
178 fatal_error_in_progress = 1; 178 fatal_error_in_progress = 1;
179 shut_down_emacs (sig, Qnil); 179 shut_down_emacs (sig, Qnil);
180 stderr_out("\nLisp backtrace follows:\n\n"); 180 stderr_out("\nLisp backtrace follows:\n\n");
181 Fbacktrace(Qexternal_debugging_output, Qt); 181 Fbacktrace(Qexternal_debugging_output, Qt);
182 182 # if 0 /* This is evil, rarely useful, and causes grief in some cases. */
183 /* Check for Sun-style stack printing via /proc */ 183 /* Check for Sun-style stack printing via /proc */
184 { 184 {
185 CONST char *pstack = "/usr/proc/bin/pstack"; 185 CONST char *pstack = "/usr/proc/bin/pstack";
186 if (access(pstack, X_OK) == 0) 186 if (access(pstack, X_OK) == 0)
187 { 187 {
190 "(A real debugger may provide better information)\n\n"); 190 "(A real debugger may provide better information)\n\n");
191 sprintf(buf, "%s %d >&2", pstack, (int)getpid()); 191 sprintf(buf, "%s %d >&2", pstack, (int)getpid());
192 system(buf); 192 system(buf);
193 } 193 }
194 } 194 }
195 # endif
195 } 196 }
196 #ifdef VMS 197 #ifdef VMS
197 LIB$STOP (SS$_ABORT); 198 LIB$STOP (SS$_ABORT);
198 #else 199 #else
199 /* Signal the same code; this time it will really be fatal. */ 200 /* Signal the same code; this time it will really be fatal. */