Changeset 13754


Ignore:
Timestamp:
Jun 1, 2010, 10:45:23 AM (10 years ago)
Author:
gb
Message:

ARMs are usually little-endian, so update order of double-float words.
Define TCR_FLAG_BIT_ALLOCPTR_FOREIGN; if thread is interrupted when
that's set, pc_luser_xp() et al should treat allocptr as an imm reg.

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

Legend:

Unmodified
Added
Removed
  • branches/arm/lisp-kernel/arm-constants.h

    r13737 r13754  
    210210  LispObj header;
    211211  LispObj pad;
     212  LispObj value_low;
    212213  LispObj value_high;
    213   LispObj value_low;
    214214} double_float;
    215215
     
    338338#define PSR_C_MASK (1<<29)
    339339#define PSR_V_MASK (1<<28)
     340
     341#define TCR_FLAG_BIT_ALLOCPTR_FOREIGN (fixnumshift+8)
  • branches/arm/lisp-kernel/arm-constants.s

    r13737 r13754  
    194194               
    195195/*Immediate subtags. */
     196        define_subtag(stack_alloc_marker,fulltag_imm,1)
    196197        define_subtag(lisp_frame_marker,fulltag_imm,2)
    197198        define_subtag(character,fulltag_imm,9)
     
    206207illegal_marker = subtag_illegal
    207208no_thread_local_binding_marker = subtag_no_thread_local_binding
    208 lisp_frame_marker = subtag_lisp_frame_marker       
     209lisp_frame_marker = subtag_lisp_frame_marker
     210stack_alloc_marker = subtag_stack_alloc_marker       
    209211       
    210212
     
    625627        _ends
    626628
    627 TCR_FLAG_BIT_FOREIGN = fixnum_shift
     629TCR_FLAG_BIT_FOREIGN = fixnum_shift       
    628630TCR_FLAG_BIT_AWAITING_PRESET = (fixnum_shift+1)
    629631TCR_FLAG_BIT_ALT_SUSPEND = (fixnumshift+2)
     
    632634TCR_FLAG_BIT_PENDING_EXCEPTION = (fixnumshift+5)
    633635TCR_FLAG_BIT_FOREIGN_EXCEPTION = (fixnumshift+6)
    634 TCR_FLAG_BIT_PENDING_SUSPEND = (fixnumshift+7)       
     636TCR_FLAG_BIT_PENDING_SUSPEND = (fixnumshift+7) 
     637TCR_FLAG_BIT_ALLOCPTR_FOREIGN = (fixnumshift+8)
    635638       
    636639r0 = 0
Note: See TracChangeset for help on using the changeset viewer.