Remove unused error from VM
							parent
							
								
									4061951d1c
								
							
						
					
					
						commit
						c08d325132
					
				| 
						 | 
				
			
			@ -129,9 +129,6 @@ HELP: c-string-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" } "." } ;
 | 
			
		||||
 | 
			
		||||
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.
 | 
			
		||||
{ $error-description "Thrown if a previously-compiled " { $link alien-invoke } " call refers to a native library symbol which no longer exists." } ;
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -103,9 +103,6 @@ HOOK: signal-error. os ( obj -- )
 | 
			
		|||
: ffi-error. ( obj -- )
 | 
			
		||||
    "FFI error" print drop ;
 | 
			
		||||
 | 
			
		||||
: heap-scan-error. ( obj -- )
 | 
			
		||||
    "Cannot do next-object outside begin/end-scan" print drop ;
 | 
			
		||||
 | 
			
		||||
: undefined-symbol-error. ( obj -- )
 | 
			
		||||
    "The image refers to a library or symbol that was not found at load time"
 | 
			
		||||
    print drop ;
 | 
			
		||||
| 
						 | 
				
			
			@ -148,14 +145,13 @@ PREDICATE: vm-error < array
 | 
			
		|||
        { 6  [ array-size-error.       ] }
 | 
			
		||||
        { 7  [ c-string-error.         ] }
 | 
			
		||||
        { 8  [ ffi-error.              ] }
 | 
			
		||||
        { 9  [ heap-scan-error.        ] }
 | 
			
		||||
        { 10 [ undefined-symbol-error. ] }
 | 
			
		||||
        { 11 [ datastack-underflow.    ] }
 | 
			
		||||
        { 12 [ datastack-overflow.     ] }
 | 
			
		||||
        { 13 [ retainstack-underflow.  ] }
 | 
			
		||||
        { 14 [ retainstack-overflow.   ] }
 | 
			
		||||
        { 15 [ memory-error.           ] }
 | 
			
		||||
        { 16 [ fp-trap-error.          ] }
 | 
			
		||||
        { 9  [ undefined-symbol-error. ] }
 | 
			
		||||
        { 10 [ datastack-underflow.    ] }
 | 
			
		||||
        { 11 [ datastack-overflow.     ] }
 | 
			
		||||
        { 12 [ retainstack-underflow.  ] }
 | 
			
		||||
        { 13 [ retainstack-overflow.   ] }
 | 
			
		||||
        { 14 [ memory-error.           ] }
 | 
			
		||||
        { 15 [ fp-trap-error.          ] }
 | 
			
		||||
    } ; inline
 | 
			
		||||
 | 
			
		||||
M: vm-error summary drop "VM error" ;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -13,7 +13,6 @@ enum vm_error_type
 | 
			
		|||
	ERROR_ARRAY_SIZE,
 | 
			
		||||
	ERROR_C_STRING,
 | 
			
		||||
	ERROR_FFI,
 | 
			
		||||
	ERROR_HEAP_SCAN,
 | 
			
		||||
	ERROR_UNDEFINED_SYMBOL,
 | 
			
		||||
	ERROR_DS_UNDERFLOW,
 | 
			
		||||
	ERROR_DS_OVERFLOW,
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue