From e29bd38f96e9c8a9bd6ba0d12a73dee3794f4895 Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Wed, 26 Sep 2007 12:42:09 +0200 Subject: gnatvsn.ads (PCS_Version_Number, [...]): Removed. 2007-09-26 Thomas Quinot Sergey Rybin * 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 --- gcc/ada/tree_io.ads | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'gcc/ada/tree_io.ads') 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 -- cgit v1.1