377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
|
*
* Side effects:
* None.
*
*----------------------------------------------------------------------
*/
TCL_NORETURN void
|
|
|
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
|
*
* Side effects:
* None.
*
*----------------------------------------------------------------------
*/
void
tclWinDebugPanic(
const char *format, ...)
{
#define TCL_MAX_WARN_LEN 1024
va_list argList;
va_start(argList, format);
|
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
|
if (!isatty(fileno(stderr))) {
fprintf(stderr, "\xef\xbb\xbf");
}
vfprintf(stderr, format, argList);
fprintf(stderr, "\n");
fflush(stderr);
}
# if defined(__GNUC__)
__builtin_trap();
# else
DebugBreak();
# endif
abort();
|
<
<
<
<
<
<
|
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
|
if (!isatty(fileno(stderr))) {
fprintf(stderr, "\xef\xbb\xbf");
}
vfprintf(stderr, format, argList);
fprintf(stderr, "\n");
fflush(stderr);
}
}
#endif
/*
* Local Variables:
* mode: c
* c-basic-offset: 4
* fill-column: 78
* tab-width: 8
* End:
*/
|