Changeset 13754

Timestamp:

Jun 1, 2010, 3:45:23 AM (14 years ago)

Author:

Gary Byers

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:

• arm-constants.h (modified) (2 diffs)
• arm-constants.s (modified) (4 diffs)

branches/arm/lisp-kernel/arm-constants.h

@@ -210 +210 @@
   LispObj header;
   LispObj pad;
+  LispObj value_low;
   LispObj value_high;
-  LispObj value_low;
 } double_float;
 
@@ -338 +338 @@
 #define PSR_C_MASK (1<<29)
 #define PSR_V_MASK (1<<28)
+
+#define TCR_FLAG_BIT_ALLOCPTR_FOREIGN (fixnumshift+8)

branches/arm/lisp-kernel/arm-constants.s

@@ -194 +194 @@
                 
 /*Immediate subtags. */
+        define_subtag(stack_alloc_marker,fulltag_imm,1)
         define_subtag(lisp_frame_marker,fulltag_imm,2) 
         define_subtag(character,fulltag_imm,9)
@@ -206 +207 @@
 illegal_marker = subtag_illegal
 no_thread_local_binding_marker = subtag_no_thread_local_binding
-lisp_frame_marker = subtag_lisp_frame_marker        
+lisp_frame_marker = subtag_lisp_frame_marker
+stack_alloc_marker = subtag_stack_alloc_marker        
         
 
@@ -625 +627 @@
         _ends
 
-TCR_FLAG_BIT_FOREIGN = fixnum_shift
+TCR_FLAG_BIT_FOREIGN = fixnum_shift       
 TCR_FLAG_BIT_AWAITING_PRESET = (fixnum_shift+1)
 TCR_FLAG_BIT_ALT_SUSPEND = (fixnumshift+2)
@@ -632 +634 @@
 TCR_FLAG_BIT_PENDING_EXCEPTION = (fixnumshift+5)
 TCR_FLAG_BIT_FOREIGN_EXCEPTION = (fixnumshift+6)
-TCR_FLAG_BIT_PENDING_SUSPEND = (fixnumshift+7)        
+TCR_FLAG_BIT_PENDING_SUSPEND = (fixnumshift+7)  
+TCR_FLAG_BIT_ALLOCPTR_FOREIGN = (fixnumshift+8)
         
 r0 = 0