vms_data.ads: Add qualifier for the new gnatmetric '-lratio' option

	* vms_data.ads: Add qualifier for the new gnatmetric '-lratio' option

	* gnat_ugn.texi: Add description of the new '-lratio' option
	Update 7.3.1 section about availability of the feature.

	* exp_smem.ads, exp_smem.adb (Make_Shared_Var_Procs): Return last
	inserted node.

	* Makefile.in: (mips-irix section): Activate build of libgmem.

From-SVN: r128339

4 files changed, 26 insertions, 13 deletions

diff --git a/gcc/ada/Makefile.in b/gcc/ada/Makefile.in
index 2e5e1ae5c78..9c00de4679a 100644
--- a/gcc/ada/Makefile.in
+++ b/gcc/ada/Makefile.in
@@ -990,6 +990,7 @@ ifeq ($(strip $(filter-out mips sgi irix%,$(targ))),)
   MISCLIB = -lexc
   PREFIX_OBJS = $(PREFIX_REAL_OBJS)
   LIBRARY_VERSION := $(LIB_VERSION)
+  GMEM_LIB = gmemlib
 endif
 
 ifeq ($(strip $(filter-out hppa% hp hpux10%,$(targ))),)
diff --git a/gcc/ada/exp_smem.ads b/gcc/ada/exp_smem.ads
index 75aa548b921..69b4ee90eba 100644
--- a/gcc/ada/exp_smem.ads
+++ b/gcc/ada/exp_smem.ads
@@ -6,18 +6,17 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---           Copyright (C) 1998-2000, Free Software Foundation, Inc.        --
+--          Copyright (C) 1998-2007, 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- --
--- ware  Foundation;  either version 2,  or (at your option) any later ver- --
+-- ware  Foundation;  either version 3,  or (at your option) any later ver- --
 -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
 -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
 -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
 -- for  more details.  You should have  received  a copy of the GNU General --
--- Public License  distributed with GNAT;  see file COPYING.  If not, write --
--- to  the  Free Software Foundation,  51  Franklin  Street,  Fifth  Floor, --
--- Boston, MA 02110-1301, USA.                                              --
+-- Public License  distributed with GNAT; see file COPYING3.  If not, go to --
+-- http://www.gnu.org/licenses for a complete copy of the license.          --
 --                                                                          --
 -- GNAT was originally developed  by the GNAT team at  New York University. --
 -- Extensive contributions were provided by Ada Core Technologies Inc.      --
@@ -49,10 +48,11 @@ package Exp_Smem is
    --  global lock calls for this case. It also generates the necessary
    --  read/write calls for the protected object within the lock region.
 
-   procedure Make_Shared_Var_Procs (N : Node_Id);
+   function Make_Shared_Var_Procs (N : Node_Id) return Node_Id;
    --  N is the node for the declaration of a shared passive variable. This
    --  procedure constructs and inserts the read and assignment procedures
    --  for the shared memory variable. See System.Shared_Storage for a full
-   --  description of these procedures and how they are used.
+   --  description of these procedures and how they are used. The last inserted
+   --  node is returned.
 
 end Exp_Smem;
diff --git a/gcc/ada/gnat_ugn.texi b/gcc/ada/gnat_ugn.texi
index 42d3601f9f9..9717fd040f3 100644
--- a/gcc/ada/gnat_ugn.texi
+++ b/gcc/ada/gnat_ugn.texi
@@ -10143,8 +10143,9 @@ never used by this executable.
 This feature will allow you to eliminate such unused code from your
 executable, making it smaller (in disk and in memory).
 
-This functionality is available on all platforms using elf binary format and
-having GNU binutils version 2.16.1.
+This functionality is available on all Linux platforms except for the IA-64
+architecture and on all cross platforms using the ELF binary file format.
+In both cases GNU binutils version 2.16 or later are required to enable it.
 
 @node Compilation options
 @subsection Compilation options
@@ -16435,6 +16436,10 @@ the number of comment lines
 the number of code lines containing end-of-line comments;
 
 @item
+the ratio between the number of lines that contain comments and the number of all
+the non-blank lines expressed in percentages (the comment percentage);
+
+@item
 the number of empty lines and lines containing only space characters and/or
 format effectors (blank lines)
 
@@ -16467,6 +16472,10 @@ The number of comment lines
 The number of code lines containing
 end-of-line comments
 
+@cindex @option{^-ratio^/COMMENT_PERCENTAGE^} (@command{gnatmetric})
+@item ^-ratio^/COMMENT_PERCENTAGE^
+The comment percentage in the program text
+
 @cindex @option{^-lb^/BLANK_LINES^} (@command{gnatmetric})
 @item ^-lb^/BLANK_LINES^
 The number of blank lines
diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads
index 8b0a1e1ca5b..dc071960bd1 100644
--- a/gcc/ada/vms_data.ads
+++ b/gcc/ada/vms_data.ads
@@ -10,14 +10,13 @@
 --                                                                          --
 -- 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- --
--- ware  Foundation;  either version 2,  or (at your option) any later ver- --
+-- ware  Foundation;  either version 3,  or (at your option) any later ver- --
 -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
 -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
 -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
 -- for  more details.  You should have  received  a copy of the GNU General --
--- Public License  distributed with GNAT;  see file COPYING.  If not, write --
--- to  the  Free Software Foundation,  51  Franklin  Street,  Fifth  Floor, --
--- Boston, MA 02110-1301, USA.                                              --
+-- Public License  distributed with GNAT; see file COPYING3.  If not, go to --
+-- http://www.gnu.org/licenses for a complete copy of the license.          --
 --                                                                          --
 -- GNAT was originally developed  by the GNAT team at  New York University. --
 -- Extensive contributions were provided by Ada Core Technologies Inc.      --
@@ -4563,6 +4562,8 @@ package VMS_Data is
                                                  "-lcomm "                  &
                                                 "MIXED_CODE_COMMENTS "      &
                                                  "-leol "                   &
+                                                "COMMENT_PERCENTAGE "       &
+                                                 "-lratio "                 &
                                                 "BLANK_LINES "              &
                                                  "-lb ";
    --      /LINE_METRICS=(option, option ...)
@@ -4579,6 +4580,8 @@ package VMS_Data is
    --     COMENT_LINES         All comment lines are computed
    --     MIXED_CODE_COMMENTS  All lines containing both code and comment are
    --                          computed
+   --     COMMENT_PERCENTAGE   Ratio between comment lines and all the lines
+   --                          containing comments and program code
    --     BLANK_LINES          Blank lines are computed
    --
    --   All combinations of line metrics options are allowed.