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

debugger: add summary method for VM errors

db4
Slava Pestov 2009-04-21 00:04:56 -05:00
parent f38d2f91f6
commit cb6205e9d4
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/debugger/debugger.factor
View File

@ -126,14 +126,14 @@ HOOK: signal-error. os ( obj -- )
: primitive-error. ( error -- ) : primitive-error. ( error -- )
"Unimplemented primitive" print drop ; "Unimplemented primitive" print drop ;
PREDICATE: kernel-error < array PREDICATE: vm-error < array
{ {
{ [ dup empty? ] [ drop f ] } { [ dup empty? ] [ drop f ] }
{ [ dup first "kernel-error" = not ] [ drop f ] } { [ dup first "kernel-error" = not ] [ drop f ] }
[ second 0 15 between? ] [ second 0 15 between? ]
} cond ; } cond ;
: kernel-errors ( error -- n errors ) : vm-errors ( error -- n errors )
second { second {
{ 0 [ expired-error. ] } { 0 [ expired-error. ] }
{ 1 [ io-error. ] } { 1 [ io-error. ] }
@ -153,9 +153,11 @@ PREDICATE: kernel-error < array
{ 15 [ memory-error. ] } { 15 [ memory-error. ] }
} ; inline } ; inline
M: kernel-error error. dup kernel-errors case ; M: vm-error summary drop "VM error" ;
M: kernel-error error-help kernel-errors at first ; M: vm-error error. dup vm-errors case ;
M: vm-error error-help vm-errors at first ;
M: no-method summary M: no-method summary
drop "No suitable method" ; drop "No suitable method" ;