This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
committed: ada updates
- From: Arnaud Charlet <charlet at ACT-Europe dot FR>
- To: gcc-patches at gcc dot gnu dot org
- Date: Fri, 24 Oct 2003 16:43:30 +0200
- Subject: committed: ada updates
These changes help reducing further the differences between ACT and
FSF trees by putting back pragmas that had been removed previousely.
Tested on x86-linux.
--
2003-10-24 Arnaud Charlet <charlet@act-europe.fr>
* gnatvsn.ads (Gnat_Static_Version_String): New constant, used to
minimize the differences with ACT tree.
* gnatkr.adb, gnatlink.adb, gnatls.adb, gnatmake.adb,
gnatprep.adb, gnatpsta.adb, gnatvsn.ads: Take advantage of
Gnatvsn.Gnat_Static_Version_String to reduce differences between
ACT and FSF trees.
--
Index: gnatkr.adb
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/gnatkr.adb,v
retrieving revision 1.6
diff -u -c -3 -p -r1.6 gnatkr.adb
*** gnatkr.adb 21 Oct 2003 13:42:08 -0000 1.6
--- gnatkr.adb 24 Oct 2003 14:38:44 -0000
***************
*** 26,35 ****
--- 26,38 ----
with Ada.Characters.Handling; use Ada.Characters.Handling;
with Ada.Command_Line; use Ada.Command_Line;
+ with Gnatvsn;
with Krunch;
with System.IO; use System.IO;
procedure Gnatkr is
+ pragma Ident (Gnatvsn.Gnat_Static_Version_String);
+
Count : Natural;
Maxlen : Integer;
Exit_Program : exception;
Index: gnatlink.adb
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/gnatlink.adb,v
retrieving revision 1.8
diff -u -c -3 -p -r1.8 gnatlink.adb
*** gnatlink.adb 21 Oct 2003 13:42:08 -0000 1.8
--- gnatlink.adb 24 Oct 2003 14:38:44 -0000
*************** with GNAT.OS_Lib; use GNAT.OS_L
*** 44,49 ****
--- 44,50 ----
with Interfaces.C_Streams; use Interfaces.C_Streams;
procedure Gnatlink is
+ pragma Ident (Gnatvsn.Gnat_Static_Version_String);
package Gcc_Linker_Options is new Table.Table (
Table_Component_Type => String_Access,
Index: gnatls.adb
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/gnatls.adb,v
retrieving revision 1.10
diff -u -c -3 -p -r1.10 gnatls.adb
*** gnatls.adb 21 Oct 2003 13:42:08 -0000 1.10
--- gnatls.adb 24 Oct 2003 14:38:44 -0000
*************** with Targparm; use Targparm;
*** 41,46 ****
--- 41,48 ----
with Types; use Types;
procedure Gnatls is
+ pragma Ident (Gnat_Static_Version_String);
+
Max_Column : constant := 80;
type File_Status is (
Index: gnatmake.adb
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/gnatmake.adb,v
retrieving revision 1.6
diff -u -c -3 -p -r1.6 gnatmake.adb
*** gnatmake.adb 21 Oct 2003 13:42:08 -0000 1.6
--- gnatmake.adb 24 Oct 2003 14:38:44 -0000
***************
*** 26,34 ****
--- 26,36 ----
-- Gnatmake usage: please consult the gnat documentation
+ with Gnatvsn;
with Make;
procedure Gnatmake is
+ pragma Ident (Gnatvsn.Gnat_Static_Version_String);
begin
-- The real work is done in Package Make. Gnatmake used to be a standalone
-- routine. Now Gnatmake's facilities have been placed in a package
Index: gnatprep.adb
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/gnatprep.adb,v
retrieving revision 1.7
diff -u -c -3 -p -r1.7 gnatprep.adb
*** gnatprep.adb 21 Oct 2003 13:42:08 -0000 1.7
--- gnatprep.adb 24 Oct 2003 14:38:44 -0000
***************
*** 6,12 ****
-- --
-- B o d y --
-- --
! -- Copyright (C) 1996-2002, 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- --
--- 6,12 ----
-- --
-- B o d y --
-- --
! -- Copyright (C) 1996-2003, 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- --
***************
*** 24,32 ****
--- 24,34 ----
-- --
------------------------------------------------------------------------------
+ with Gnatvsn;
with GPrep;
procedure GNATprep is
+ pragma Ident (Gnatvsn.Gnat_Static_Version_String);
begin
-- Everything is done in GPrep
Index: gnatpsta.adb
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/gnatpsta.adb,v
retrieving revision 1.6
diff -u -c -3 -p -r1.6 gnatpsta.adb
*** gnatpsta.adb 21 Oct 2003 13:42:08 -0000 1.6
--- gnatpsta.adb 24 Oct 2003 14:38:44 -0000
***************
*** 6,12 ****
-- --
-- B o d y --
-- --
! -- Copyright (C) 1997-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- --
--- 6,12 ----
-- --
-- B o d y --
-- --
! -- Copyright (C) 1997-2003 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- --
***************
*** 33,43 ****
--- 33,46 ----
-- integer and floating point sizes.
with Ada.Text_IO; use Ada.Text_IO;
+ with Gnatvsn;
with Ttypef; use Ttypef;
with Ttypes; use Ttypes;
with Types; use Types;
procedure GnatPsta is
+ pragma Ident (Gnatvsn.Gnat_Static_Version_String);
+
procedure P (Item : String) renames Ada.Text_IO.Put_Line;
procedure P_Int_Range (Size : Pos; Put_First : Boolean := True);
Index: gnatvsn.ads
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/gnatvsn.ads,v
retrieving revision 1.130
diff -u -c -3 -p -r1.130 gnatvsn.ads
*** gnatvsn.ads 21 Oct 2003 13:42:08 -0000 1.130
--- gnatvsn.ads 24 Oct 2003 14:38:44 -0000
*************** package Gnatvsn is
*** 41,46 ****
--- 41,50 ----
-- GNATBIND, GNATCHOP, GNATFIND, GNATLINK, GNATMAKE, GNATXREF, are run
-- (with appropriate verbose option switch set).
+ Gnat_Static_Version_String : constant String := "GNU Ada";
+ -- Static string identifying this version, that can be used as an argument
+ -- to e.g. pragma Ident.
+
Gnat_Version_Type : constant String := "FSF ";
-- GNAT FSF version. This version of GNAT is part of a Free Software
-- Foundation release of the GNU Compiler Collection (GCC). The binder