Index: /branches/arm/lisp-kernel/arm-constants.h
===================================================================
--- /branches/arm/lisp-kernel/arm-constants.h	(revision 13753)
+++ /branches/arm/lisp-kernel/arm-constants.h	(revision 13754)
@@ -210,6 +210,6 @@
   LispObj header;
   LispObj pad;
+  LispObj value_low;
   LispObj value_high;
-  LispObj value_low;
 } double_float;
 
@@ -338,2 +338,4 @@
 #define PSR_C_MASK (1<<29)
 #define PSR_V_MASK (1<<28)
+
+#define TCR_FLAG_BIT_ALLOCPTR_FOREIGN (fixnumshift+8)
Index: /branches/arm/lisp-kernel/arm-constants.s
===================================================================
--- /branches/arm/lisp-kernel/arm-constants.s	(revision 13753)
+++ /branches/arm/lisp-kernel/arm-constants.s	(revision 13754)
@@ -194,4 +194,5 @@
 		
 /*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,5 +207,6 @@
 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,5 +627,5 @@
 	_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,5 +634,6 @@
 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