OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
* 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
This commit is contained in:
Robert Dewar 2001-10-10 22:27:31 +00:00 committed by Geert Bosch
parent eeedeb5a17
commit d8d80dcd6c
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/ChangeLog
View File

@ -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

10
gcc/ada/xeinfo.adb
View File

@ -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;