xeinfo.adb: Change int to char in translation of enumeration types.

	* xeinfo.adb: Change int to char in translation of enumeration types.
	This fixes a problem in the C representation of component alignment.
	Add 2001 to copyright notice

From-SVN: r46164

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index b3f500e43a4931e18cc996f2d32a946fe9d27e79..532efb4738278f444b66b5ad456f94fbefa1bfda 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2001-10-10  Robert Dewar <dewar@gnat.com>
+
+       * xeinfo.adb: Change int to char in translation of enumeration types. 
+       This fixes a problem in the C representation of component alignment.
+       Add 2001 to copyright notice
+
 2001-10-10  Richard Kenner <kenner@gnat.com>
 
        * decl.c: (validate_size): Do check size of object of integral type 

diff --git a/gcc/ada/xeinfo.adb b/gcc/ada/xeinfo.adb
index 38c35ce03c56b659298516f3d13751f19233b926..172127dc0eed633db4d2a6b7d6e1cddc8c03ba9b 100644 (file)
--- a/gcc/ada/xeinfo.adb
+++ b/gcc/ada/xeinfo.adb
@@ -6,9 +6,9 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                            $Revision: 1.29 $
+--                            $Revision$
 --                                                                          --
---          Copyright (C) 1992-2000 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2001 Free Software Foundation, Inc.          --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -249,7 +249,7 @@ procedure XEinfo is
 begin
    Anchored_Mode := True;
 
-   Match ("$Revision: 1.29 $", "$Rev" & "ision: " & Break (' ') * XEinforev);
+   Match ("$Revision$", "$Rev" & "ision: " & Break (' ') * XEinforev);
 
    if Argument_Count > 0 then
       Create (Ofile, Out_File, Argument (1));
@@ -312,7 +312,6 @@ begin
       Line := Get_Line (InF);
       exit when Match (Line, "   --  END XEINFO INLINES");
 
-
       if Match (Line, Inline) then
          Set (Inlined, Name, True);
       end if;
@@ -383,14 +382,13 @@ begin
             Put_Line (Ofile, "");
          end if;
 
-
       --  Case of type declaration
 
       elsif Match (Line, F_Typ) then
          --  Process type declaration (must be enumeration type)
 
          Ctr := 0;
-         Put_Line (Ofile, A & "typedef int " & N & ';');
+         Put_Line (Ofile, A & "typedef char " & N & ';');
 
          loop
             Line := Getlin;