diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-09-26 10:42:09 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-09-26 10:42:09 +0000 |
| commit | da336b70c58a7eae86b0edd97c183503c25a9dd0 (patch) | |
| tree | 122d807b58819eca7af099f8147ccecdf1e42fad /gcc/ada/exp_dist.ads | |
| parent | 2359306a95a08a4b7c34d1d9fc0ab34c1b4ed5d3 (diff) | |
| download | gcc-da336b70c58a7eae86b0edd97c183503c25a9dd0.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@128783 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_dist.ads')
| -rw-r--r-- | gcc/ada/exp_dist.ads | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/ada/exp_dist.ads b/gcc/ada/exp_dist.ads index 75ac7797046..cada018330d 100644 --- a/gcc/ada/exp_dist.ads +++ b/gcc/ada/exp_dist.ads @@ -31,6 +31,13 @@ with Types; use Types; package Exp_Dist is + PCS_Version_Number : constant := 1; + -- PCS interface version. This is used to check for consistency between the + -- compiler used to generate distribution stubs and the PCS implementation. + -- It must be incremented whenever a change is made to the generated code + -- for distribution stubs that would result in the compiler being + -- incompatible with an older version of the PCS, or vice versa. + procedure Add_RAST_Features (Vis_Decl : Node_Id); -- Build and add bodies for dereference and 'Access subprograms for a -- remote access to subprogram type. Vis_Decl is the declaration node for |