2006-02-17 Eric Botcazou <botcazou@adacore.com>

	PR ada/26315

	* utils2.c (find_common_type): If both input types are BLKmode and
	have the same constant size, keep using the first one.

	* bindgen.adb: (Gen_Versions_Ada): Revert previous workaround.

	* decl.c (gnat_to_gnu_entity): Only check TREE_OVERFLOW for a constant.

	* misc.c (gnat_handle_option): New case for -Woverlength-strings.



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

1 files changed, 1 insertions, 7 deletions

diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb
index ab0f839c4a8..0b595fe044c 100644
--- a/gcc/ada/bindgen.adb
+++ b/gcc/ada/bindgen.adb
@@ -2538,13 +2538,7 @@ package body Bindgen is
       end loop;
 
       WBI ("");
-
-      --  We used to have more complex code: Ubuf := "u00000";
-      --  which was being miscompiled, so use simpler code instead:
-
-      for J in Ubuf'First + 1 .. Ubuf'Last loop
-         Ubuf (J) := '0';
-      end loop;
+      Ubuf := "u00000";
 
       for U in Units.First .. Units.Last loop
          Increment_Ubuf;