diff options
| author | nijtmans <nijtmans> | 2011-01-12 20:17:03 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2011-01-12 20:17:03 (GMT) |
| commit | 825e2402afb20392182bfdb0cc585bf5f2c5f89d (patch) | |
| tree | 876961469ee1c7aeeb0e47569de3112ec7e185ba /generic/tclPanic.c | |
| parent | 36ea4889f7a2016c2525f6b251f1787fbcb7d4aa (diff) | |
| download | tcl-825e2402afb20392182bfdb0cc585bf5f2c5f89d.zip tcl-825e2402afb20392182bfdb0cc585bf5f2c5f89d.tar.gz tcl-825e2402afb20392182bfdb0cc585bf5f2c5f89d.tar.bz2 | |
fall back to assembler for VC++ 32-bit
Diffstat (limited to 'generic/tclPanic.c')
| -rw-r--r-- | generic/tclPanic.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclPanic.c b/generic/tclPanic.c index 035edd5..3a48afa 100644 --- a/generic/tclPanic.c +++ b/generic/tclPanic.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclPanic.c,v 1.20 2011/01/12 07:48:29 nijtmans Exp $ + * RCS: @(#) $Id: tclPanic.c,v 1.21 2011/01/12 20:17:03 nijtmans Exp $ */ #include "tclInt.h" @@ -105,8 +105,10 @@ Tcl_PanicVA( #ifdef _WIN32 # if defined(__GNUC__) __builtin_trap(); -# elif defined(_MSC_VER) +# elif defined(_WIN64) __debugbreak(); +# elif defined(_MSC_VER) + _asm {int 3} # else DebugBreak(); # endif |