diff options
| author | Thomas Quinot <quinot@adacore.com> | 2007-09-26 12:42:09 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-09-26 12:42:09 +0200 |
| commit | e29bd38f96e9c8a9bd6ba0d12a73dee3794f4895 (patch) | |
| tree | 122d807b58819eca7af099f8147ccecdf1e42fad /gcc/ada/tree_io.ads | |
| parent | 8dfea8e71402226d8589cf0dcbaef8c0f19db236 (diff) | |
| download | gcc-e29bd38f96e9c8a9bd6ba0d12a73dee3794f4895.zip gcc-e29bd38f96e9c8a9bd6ba0d12a73dee3794f4895.tar.gz gcc-e29bd38f96e9c8a9bd6ba0d12a73dee3794f4895.tar.bz2 | |
gnatvsn.ads (PCS_Version_Number, [...]): Removed.
2007-09-26 Thomas Quinot <quinot@adacore.com>
Sergey Rybin <rybin@adacore.com>
* gnatvsn.ads (PCS_Version_Number, ASIS_Version_Number): Removed.
* exp_dist.ads (PCS_Version_Number): Move from Gnatvsn to Exp_Dist,
where it belongs.
* opt.ads: Move ASIS_Version_Number from Gnatvsn into Tree_IO.
* rtsfind.adb (PCS_Version_Number): Move from Gnatvsn to Exp_Dist,
where it belongs.
* sem_dist.ads: Minor comment fix
* tree_io.ads: Move ASIS_Version_Number from Gnatvsn into Tree_IO.
From-SVN: r128783
Diffstat (limited to 'gcc/ada/tree_io.ads')
| -rw-r--r-- | gcc/ada/tree_io.ads | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/ada/tree_io.ads b/gcc/ada/tree_io.ads index 64f883a..a8a49e9 100644 --- a/gcc/ada/tree_io.ads +++ b/gcc/ada/tree_io.ads @@ -46,6 +46,13 @@ package Tree_IO is Tree_Format_Error : exception; -- Raised if a format error is detected in the input file + ASIS_Version_Number : constant := 21; + -- ASIS Version. This is used to check for consistency between the compiler + -- used to generate trees and an ASIS application that is reading the + -- trees. It must be incremented whenever a change is made to the tree + -- format that would result in the compiler being incompatible with an + -- older version of ASIS, or vice versa. + procedure Tree_Read_Initialize (Desc : File_Descriptor); -- Called to initialize reading of a tree file. This call must be made -- before calls to Tree_Read_xx. No calls to Tree_Write_xx are permitted |