diff options
| author | Robert Dewar <dewar@gnat.com> | 2001-10-10 22:27:31 +0000 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-10-11 00:27:31 +0200 |
| commit | d8d80dcd6ca6561c46d2724d0724f6ce5a74d6b6 (patch) | |
| tree | 9db658683c33acef77b8ac40ffdb9bda9e0fc4eb | |
| parent | eeedeb5a179c0c4a378bc14d5bebfcfc4dfcf354 (diff) | |
| download | gcc-d8d80dcd6ca6561c46d2724d0724f6ce5a74d6b6.zip gcc-d8d80dcd6ca6561c46d2724d0724f6ce5a74d6b6.tar.gz gcc-d8d80dcd6ca6561c46d2724d0724f6ce5a74d6b6.tar.bz2 | |
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
| -rw-r--r-- | gcc/ada/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/ada/xeinfo.adb | 10 |
2 files changed, 10 insertions, 6 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index b3f500e..532efb4 100644 --- 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 38c35ce..172127d 100644 --- 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; |