This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Ada] Fix problem with xeinfo (patch)
- To: gcc-patches at gcc dot gnu dot org
- Subject: [Ada] Fix problem with xeinfo (patch)
- From: Geert Bosch <bosch at gnat dot com>
- Date: Wed, 10 Oct 2001 18:29:09 -0400 (EDT)
Following checked in for Robert.
-Geert
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
*** xeinfo.adb 2000/08/10 20:08:42 1.29
--- xeinfo.adb 2001/09/28 22:01:53 1.30
***************
*** 8,14 ****
-- --
-- $Revision$
-- --
! -- Copyright (C) 1992-2000 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- --
--- 8,14 ----
-- --
-- $Revision$
-- --
! -- 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- --
*************** begin
*** 312,318 ****
Line := Get_Line (InF);
exit when Match (Line, " -- END XEINFO INLINES");
-
if Match (Line, Inline) then
Set (Inlined, Name, True);
end if;
--- 312,317 ----
*************** begin
*** 383,396 ****
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 & ';');
loop
Line := Getlin;
--- 382,394 ----
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 char " & N & ';');
loop
Line := Getlin;