diff options
| author | nijtmans <nijtmans> | 2010-12-01 10:43:36 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-12-01 10:43:36 (GMT) |
| commit | 4bcb66e9c7f3ce1b10cc16af456a4643436fa8c6 (patch) | |
| tree | 603616c2d1f25fe70b1e09b96db7a2fa29cb89ae /generic/tclCkalloc.c | |
| parent | e403cf86b671bceaf1bec26fea81219d24e6e2dd (diff) | |
| download | tcl-4bcb66e9c7f3ce1b10cc16af456a4643436fa8c6.zip tcl-4bcb66e9c7f3ce1b10cc16af456a4643436fa8c6.tar.gz tcl-4bcb66e9c7f3ce1b10cc16af456a4643436fa8c6.tar.bz2 | |
Allow Tcl_Panic() to enter the debugger on win32
Diffstat (limited to 'generic/tclCkalloc.c')
| -rw-r--r-- | generic/tclCkalloc.c | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/generic/tclCkalloc.c b/generic/tclCkalloc.c index 872053b..dbd999e 100644 --- a/generic/tclCkalloc.c +++ b/generic/tclCkalloc.c @@ -14,7 +14,7 @@ * * This code contributed by Karl Lehenbauer and Mark Diekhans * - * RCS: @(#) $Id: tclCkalloc.c,v 1.40 2010/11/08 09:02:50 ferrieux Exp $ + * RCS: @(#) $Id: tclCkalloc.c,v 1.41 2010/12/01 10:43:36 nijtmans Exp $ */ #include "tclInt.h" @@ -453,11 +453,7 @@ Tcl_DbCkalloc( if (break_on_malloc && (total_mallocs >= break_on_malloc)) { break_on_malloc = 0; (void) fflush(stdout); - fprintf(stderr,"reached malloc break limit (%d)\n", - total_mallocs); - fprintf(stderr, "program will now enter C debugger\n"); - (void) fflush(stderr); - abort(); + Tcl_Panic("reached malloc break limit (%d)", total_mallocs); } current_malloc_packets++; @@ -546,11 +542,7 @@ Tcl_AttemptDbCkalloc( if (break_on_malloc && (total_mallocs >= break_on_malloc)) { break_on_malloc = 0; (void) fflush(stdout); - fprintf(stderr,"reached malloc break limit (%d)\n", - total_mallocs); - fprintf(stderr, "program will now enter C debugger\n"); - (void) fflush(stderr); - abort(); + Tcl_Panic("reached malloc break limit (%d)", total_mallocs); } current_malloc_packets++; |