Index: /trunk/ccl/lisp-kernel/ppc-constants32.s
===================================================================
--- /trunk/ccl/lisp-kernel/ppc-constants32.s	(revision 5463)
+++ /trunk/ccl/lisp-kernel/ppc-constants32.s	(revision 5464)
@@ -275,5 +275,15 @@
 	 _node(displacement)
 	 _node(flags)
-	_endstructf	
+	_endstructf
+
+        _structf(arrayH)
+         _node(rank)
+         _node(physsize)
+         _node(data_vector)
+         _node(displacement)
+         _node(flags)
+         _struct_label(dim0)
+        _endstructf
+        
 	
         
Index: /trunk/ccl/lisp-kernel/ppc-constants64.s
===================================================================
--- /trunk/ccl/lisp-kernel/ppc-constants64.s	(revision 5463)
+++ /trunk/ccl/lisp-kernel/ppc-constants64.s	(revision 5464)
@@ -250,4 +250,12 @@
 	_endstructf	
 	
+        _structf(arrayH)
+         _node(rank)
+         _node(physsize)
+         _node(data_vector)
+         _node(displacement)
+         _node(flags)
+         _struct_label(dim0)
+        _endstructf
         
 	_struct(c_frame,0)	/* PowerOpen ABI C stack frame */