! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
- USING: assocs debugger io kernel literals namespaces prettyprint
- sequences system windows.kernel32 ;
+ USING: assocs debugger io kernel literals math.parser namespaces
+ prettyprint sequences system windows.kernel32 ;
IN: debugger.windows
CONSTANT: seh-names
{ $ STATUS_PRIVILEGED_INSTRUCTION "STATUS_PRIVILEGED_INSTRUCTION" }
{ $ STATUS_STACK_OVERFLOW "STATUS_STACK_OVERFLOW" }
{ $ STATUS_CONTROL_C_EXIT "STATUS_CONTROL_C_EXIT" }
+ { $ STATUS_FLOAT_MULTIPLE_FAULTS "STATUS_FLOAT_MULTIPLE_FAULTS" }
+ { $ STATUS_FLOAT_MULTIPLE_TRAPS "STATUS_FLOAT_MULTIPLE_TRAPS" }
}
: seh-name. ( n -- )
- seh-names get at [ " (" ")" surround write ] when* ;
+ seh-names at [ " (" ")" surround write ] when* ;
M: windows signal-error.
"Windows exception 0x" write
- third [ .h ] [ seh-name. ] bi nl ;
+ third [ >hex write ] [ seh-name. ] bi nl ;