Posted to tcl by patthoyts at Sat Mar 08 11:10:26 GMT 2008view pretty

package require critcl

namespace eval win32 {
    critcl::ccode {
#define STRICT
#define WIN32_LEAN_AND_MEAN
#include <windows.h>
#ifdef _MSC_VER
#include <crtdbg.h>
#endif

    # Halt the process and enter the debugger.
    critcl::cproc Debug {} void {
#ifdef _MSC_VER
#ifdef _DEBUG
        _ASSERTE(FALSE); /* this is a kinder way to halt */
#else
        __asm {
            int 3;
        };
#endif /* _DEBUG */
#else /* ! _MSC_VER */
        /* __asm__ __volatile__ ("int 3" "\n"); */
#endif /* _MSC_VER */
    }
}