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

	size_t to avoid warning.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@61705 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 252d4b2..c2b50ac 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 b1904a4..eaebe7b 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))