ada-tree.h (TYPE_RM_SIZE_INT): Use TYPE_LANG_SLOT_1.

	* ada-tree.h (TYPE_RM_SIZE_INT): Use TYPE_LANG_SLOT_1.

Co-Authored-By: Richard Kenner <kenner@vlsi1.ultra.nyu.edu>

From-SVN: r86545

gcc/ada/ChangeLog

 2004-08-25  Nathan Sidwell  <nathan@codesourcery.com>
+	    Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
+	
+	* ada-tree.h (TYPE_RM_SIZE_INT): Use TYPE_LANG_SLOT_1.
+
+2004-08-25  Nathan Sidwell  <nathan@codesourcery.com>
 
 	* cuintp.c (UI_To_gnu): Adjust build_int_cst calls.
 	* trans.c (Exception_Handler_to_gnu_sjlj, gnat_to_gnu): Likewise.

gcc/ada/ada-tree.h

@@ -165,7 +165,7 @@ struct lang_type GTY(()) {union lang_tree_node t; };
   (TYPE_LANG_SPECIFIC (INTEGER_TYPE_CHECK (NODE)) = (struct lang_type *) (X))
 
 /* For INTEGER_TYPE, stores the RM_Size of the type.  */
-#define TYPE_RM_SIZE_INT(NODE)	(INTEGER_TYPE_CHECK (NODE)->type.values)
+#define TYPE_RM_SIZE_INT(NODE)	TYPE_LANG_SLOT_1 (INTEGER_TYPE_CHECK (NODE))
 
 /* Likewise for ENUMERAL_TYPE.  */
 #define TYPE_RM_SIZE_ENUM(NODE)	\