* utils.c (gnat_init_decl_processing): Ada has a signed sizetype.

From-SVN: r86656

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index b4f9ec5..27f6361 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2004-08-27  Nathan Sidwell  <nathan@codesourcery.com>
+
+       * utils.c (gnat_init_decl_processing): Ada has a signed sizetype.
+
 2004-08-27  Andreas Schwab  <schwab@suse.de>
 
        * Make-lang.in (EXTRA_GNATBIND_OBJS): Add errors.o.

diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c
index 0cc6c98..9d6a17e 100644 (file)
--- a/gcc/ada/utils.c
+++ b/gcc/ada/utils.c
@@ -381,7 +381,7 @@ gnat_init_decl_processing (void)
   free_binding_level = 0;
   gnat_pushlevel ();
 
-  build_common_tree_nodes (false, false);
+  build_common_tree_nodes (false, true);
 
   /* In Ada, we use a signed type for SIZETYPE.  Use the signed type
      corresponding to the size of Pmode.  In most cases when ptr_mode and