From 89893302251345231f5334a2bb3ec8493cc381db Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 10 Sep 2007 14:49:21 +0200 Subject: [PATCH] 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 --- gcc/ada/Makefile.in | 1 + gcc/ada/exp_smem.ads | 14 +++++++------- gcc/ada/gnat_ugn.texi | 13 +++++++++++-- gcc/ada/vms_data.ads | 11 +++++++---- 4 files changed, 26 insertions(+), 13 deletions(-) diff --git a/gcc/ada/Makefile.in b/gcc/ada/Makefile.in index 2e5e1ae..9c00de4 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 75aa548..69b4ee9 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 42d3601..9717fd0 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 8b0a1e1..dc07196 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. -- 2.7.4