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 */ } }