Posted to tcl by patthoyts at Sat Mar 08 11:10:26 GMT 2008view raw
- 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 */
- }
- }