From e12825cd4853b560d81955e2b6711fc7484bcf02 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Fri, 24 Jan 2003 16:30:17 +0000 Subject: [PATCH] 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 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/ada-tree.h | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 252d4b209e7..c2b50acafee 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2003-01-24 Andreas Schwab + + * ada-tree.h (SET_TYPE_DIGITS_VALUE): Add intermediate cast to + size_t to avoid warning. + 2003-01-21 Zack Weinberg * 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 b1904a4284d..eaebe7b456a 100644 --- 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)) -- 2.30.2