steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tweak windows exception error printing

db4
Joe Groff 2009-10-21 23:59:37 -05:00
parent 432d4f79e9
commit c4fe86fa7d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/debugger/windows/windows.factor Normal file → Executable file
View File

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