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

Remove unused error from VM

db4
Slava Pestov 2009-11-05 21:52:31 -06:00
parent 4061951d1c
commit c08d325132
3 changed files with 7 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/debugger/debugger-docs.factor
View File

@ -129,9 +129,6 @@ HELP: c-string-error.
HELP: ffi-error. HELP: ffi-error.
{ $error-description "Thrown by " { $link dlopen } " and " { $link dlsym } " if a problem occurs while loading a native library or looking up a symbol. See " { $link "alien" } "." } ; { $error-description "Thrown by " { $link dlopen } " and " { $link dlsym } " if a problem occurs while loading a native library or looking up a symbol. See " { $link "alien" } "." } ;
HELP: heap-scan-error.
{ $error-description "Thrown if " { $link next-object } " is called outside of a " { $link begin-scan } "/" { $link end-scan } " pair." } ;
HELP: undefined-symbol-error. HELP: undefined-symbol-error.
{ $error-description "Thrown if a previously-compiled " { $link alien-invoke } " call refers to a native library symbol which no longer exists." } ; { $error-description "Thrown if a previously-compiled " { $link alien-invoke } " call refers to a native library symbol which no longer exists." } ;

18
basis/debugger/debugger.factor
View File

@ -103,9 +103,6 @@ HOOK: signal-error. os ( obj -- )
: ffi-error. ( obj -- ) : ffi-error. ( obj -- )
"FFI error" print drop ; "FFI error" print drop ;
: heap-scan-error. ( obj -- )
"Cannot do next-object outside begin/end-scan" print drop ;
: undefined-symbol-error. ( obj -- ) : undefined-symbol-error. ( obj -- )
"The image refers to a library or symbol that was not found at load time" "The image refers to a library or symbol that was not found at load time"
print drop ; print drop ;
@ -148,14 +145,13 @@ PREDICATE: vm-error < array
{ 6 [ array-size-error. ] } { 6 [ array-size-error. ] }
{ 7 [ c-string-error. ] } { 7 [ c-string-error. ] }
{ 8 [ ffi-error. ] } { 8 [ ffi-error. ] }
{ 9 [ heap-scan-error. ] } { 9 [ undefined-symbol-error. ] }
{ 10 [ undefined-symbol-error. ] } { 10 [ datastack-underflow. ] }
{ 11 [ datastack-underflow. ] } { 11 [ datastack-overflow. ] }
{ 12 [ datastack-overflow. ] } { 12 [ retainstack-underflow. ] }
{ 13 [ retainstack-underflow. ] } { 13 [ retainstack-overflow. ] }
{ 14 [ retainstack-overflow. ] } { 14 [ memory-error. ] }
{ 15 [ memory-error. ] } { 15 [ fp-trap-error. ] }
{ 16 [ fp-trap-error. ] }
} ; inline } ; inline
M: vm-error summary drop "VM error" ; M: vm-error summary drop "VM error" ;

1
vm/errors.hpp
View File

@ -13,7 +13,6 @@ enum vm_error_type
ERROR_ARRAY_SIZE, ERROR_ARRAY_SIZE,
ERROR_C_STRING, ERROR_C_STRING,
ERROR_FFI, ERROR_FFI,
ERROR_HEAP_SCAN,
ERROR_UNDEFINED_SYMBOL, ERROR_UNDEFINED_SYMBOL,
ERROR_DS_UNDERFLOW, ERROR_DS_UNDERFLOW,
ERROR_DS_OVERFLOW, ERROR_DS_OVERFLOW,