diff options
| author | Vincent Celier <celier@adacore.com> | 2008-03-26 08:39:50 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-03-26 08:39:50 +0100 |
| commit | 944f7f28cdb3368b192412eee53cec7210cfe84f (patch) | |
| tree | 02208e30faa9386ce553c365f878daeba8b06582 /gcc/ada/prj-attr.ads | |
| parent | 26658d3a35a9206153d7b1d5f03decd1bdf65062 (diff) | |
| download | gcc-944f7f28cdb3368b192412eee53cec7210cfe84f.zip gcc-944f7f28cdb3368b192412eee53cec7210cfe84f.tar.gz gcc-944f7f28cdb3368b192412eee53cec7210cfe84f.tar.bz2 | |
gnatcmd.adb: Add processing for GNAT SYNC
2008-03-26 Vincent Celier <celier@adacore.com>
* gnatcmd.adb: Add processing for GNAT SYNC
* vms_conv.ads: (Command_Type): Add command Sync
* vms_conv.adb (Initialize): Add Command_List data for new command Sync
* vms_data.ads: Add entries for -gnatw.w
Add qualifier for gnatstub --header-file option
Add switches for GNAT SYNC
* prj-attr.ads, prj-attr.adb: Add new package Synchronize for GNAT SYNC
(Add_Package_Name): New procedure
(Package_Name_List): New function
(Initialize): Add known package names to the list
(Register_New_Package): Add the new package name to the list
From-SVN: r133567
Diffstat (limited to 'gcc/ada/prj-attr.ads')
| -rw-r--r-- | gcc/ada/prj-attr.ads | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/prj-attr.ads b/gcc/ada/prj-attr.ads index 135878e..2d314b6 100644 --- a/gcc/ada/prj-attr.ads +++ b/gcc/ada/prj-attr.ads @@ -28,10 +28,18 @@ -- It is also possible to define new packages with their attributes +with System.Strings; with Table; package Prj.Attr is + use System; + + function Package_Name_List return Strings.String_List; + -- Returns the list of valid package names, including those added by + -- procedures Register_New_Package below. The String_Access components of + -- the returned String_List should never be feeed. + procedure Initialize; -- Initialize the predefined project level attributes and the predefined -- packages and their attribute. This procedure should be called by |