Changeset 14024 for branches


Ignore:
Timestamp:
Jul 23, 2010, 1:07:59 PM (9 years ago)
Author:
gb
Message:

Define a new UUO, reserved for use as a forward marker (not a valid lisp
object or a valid instruction.)

Location:
branches/arm/lisp-kernel
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/lisp-kernel/arm-uuo.s

    r14002 r14024  
    9999define(`uuo_error_slot_unbound',`binary_errorUUO($1,$2,$3,3)')
    100100define(`uuo_error_eep_unresolved',`binary_errorUUO($1,$2,$3,4)')       
    101 define(`uuo_error_fpu_exception',`binary_errorUUO($1,$2,$3,5)')       
    102                
    103 
     101define(`uuo_error_fpu_exception',`binary_errorUUO($1,$2,$3,5)')
     102define(`uuo_error_array_rank',`binary_errorUUO($1,$2,$3,6)')
     103define(`uuo_error_array_flags',`binary_errorUUO($1,$2,$3,7)')
     104       
     105/* This should never be generated (never be a legal instruction in a code
     106   vector); it should only be used by purify/impurify. */
     107define(`forward_marker',`uuo(al,uuo_format_unary,0xfff)')
     108           
  • branches/arm/lisp-kernel/gc.h

    r13737 r14024  
    108108#define forward_marker subtag_forward_marker
    109109#else
     110#ifdef ARM
     111#define forward_marker (0xe7fffff0|uuo_format_unary)
     112#else
    110113#define forward_marker fulltag_nil
     114#endif
    111115#endif
    112116
Note: See TracChangeset for help on using the changeset viewer.