ada-tree.h (SET_TYPE_DIGITS_VALUE): Add intermediate cast to size_t to avoid warning.

	* ada-tree.h (SET_TYPE_DIGITS_VALUE): Add intermediate cast to
	size_t to avoid warning.

From-SVN: r61705

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 252d4b209e7033a4a6d32ad8e4aef12e0f792918..c2b50acafeeb795bc56870a9b6b3c98d285508a2 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-24  Andreas Schwab  <schwab@suse.de>
+
+       * ada-tree.h (SET_TYPE_DIGITS_VALUE): Add intermediate cast to
+       size_t to avoid warning.
+
 2003-01-21  Zack Weinberg  <zack@codesourcery.com>
 
        * Make-lang.in: Disable -Werror for tracebak.c and b_gnatb.c.

diff --git a/gcc/ada/ada-tree.h b/gcc/ada/ada-tree.h
index b1904a4284d4db519e167a01b32d9ae33f0b0fd5..eaebe7b456affb5a4f8e3ef4d2d6ca8703d6edd7 100644 (file)
--- a/gcc/ada/ada-tree.h
+++ b/gcc/ada/ada-tree.h
@@ -182,7 +182,7 @@ struct lang_type GTY(())
 #define TYPE_DIGITS_VALUE(NODE)  \
   ((long) TYPE_LANG_SPECIFIC (INTEGER_TYPE_CHECK (NODE)))
 #define SET_TYPE_DIGITS_VALUE(NODE, X)  \
-  (TYPE_LANG_SPECIFIC (INTEGER_TYPE_CHECK (NODE)) = (struct lang_type *)(X))
+  (TYPE_LANG_SPECIFIC (INTEGER_TYPE_CHECK (NODE)) = (struct lang_type *)(size_t)(X))
 
 /* For INTEGER_TYPE, stores the RM_Size of the type.  */
 #define TYPE_RM_SIZE_INT(NODE) TYPE_VALUES (INTEGER_TYPE_CHECK (NODE))