2006-01-31  Nicolas Setton  <setton@adacore.com>

	* decl.c (gnat_to_gnu_entity): Set TYPE_STRING_FLAG on character types.


Index: decl.c
===================================================================
RCS file: /nile.c/cvs/Dev/gnat/decl.c,v
retrieving revision 1.63.2.143
diff -c -p -r1.63.2.143 decl.c
*** decl.c	29 Jan 2006 16:25:45 -0000	1.63.2.143
--- decl.c	31 Jan 2006 09:46:26 -0000
*************** gnat_to_gnu_entity (Entity_Id gnat_entit
*** 1219,1224 ****
--- 1219,1229 ----
        if (No (First_Literal (gnat_entity)))
  	{
  	  gnu_type = make_unsigned_type (esize);
+ 
+ 	  /* Set the TYPE_STRING_FLAG for ada Character and Wide_Character
+ 	     types. This is needed by the dwarf-2 debug writer to distinguish
+ 	     between unsigned integer types and character types.  */
+ 	  TYPE_STRING_FLAG (gnu_type) = 1;
  	  break;
  	}