debugger: add summary method for VM errors
parent
f38d2f91f6
commit
cb6205e9d4
|
@ -126,14 +126,14 @@ HOOK: signal-error. os ( obj -- )
|
|||
: primitive-error. ( error -- )
|
||||
"Unimplemented primitive" print drop ;
|
||||
|
||||
PREDICATE: kernel-error < array
|
||||
PREDICATE: vm-error < array
|
||||
{
|
||||
{ [ dup empty? ] [ drop f ] }
|
||||
{ [ dup first "kernel-error" = not ] [ drop f ] }
|
||||
[ second 0 15 between? ]
|
||||
} cond ;
|
||||
|
||||
: kernel-errors ( error -- n errors )
|
||||
: vm-errors ( error -- n errors )
|
||||
second {
|
||||
{ 0 [ expired-error. ] }
|
||||
{ 1 [ io-error. ] }
|
||||
|
@ -153,9 +153,11 @@ PREDICATE: kernel-error < array
|
|||
{ 15 [ memory-error. ] }
|
||||
} ; 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
|
||||
drop "No suitable method" ;
|
||||
|
|
Loading…
Reference in New Issue