From 99e9e773cba195bd70a4c757d46afe9b55f6c399 Mon Sep 17 00:00:00 2001
From: "Kaveh R. Ghazi" <ghazi@caip.rutgers.edu>
Date: Wed, 2 Jan 2002 03:35:21 +0000
Subject: [PATCH] * warn_summary: Add -ada subdirectory flag.
From-SVN: r48457
---
contrib/ChangeLog | 4 ++++
contrib/warn_summary | 8 ++++----
2 files changed, 8 insertions(+), 4 deletions(-)
diff --git a/contrib/ChangeLog b/contrib/ChangeLog
index 14ce2080fe02..8131f901d3fd 100644
--- a/contrib/ChangeLog
+++ b/contrib/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-01 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
+
+ * warn_summary: Add -ada subdirectory flag.
+
2001-12-12 Matthias Klose <doko@debian.org>
* texi2pod.pl: Merge changes from binutils' texi2pod.pl. Allows
diff --git a/contrib/warn_summary b/contrib/warn_summary
index 5b023a38e51f..10b4c0d78318 100755
--- a/contrib/warn_summary
+++ b/contrib/warn_summary
@@ -3,7 +3,7 @@
# This script parses the output of a gcc bootstrap when using warning
# flags and determines various statistics.
#
-# usage: warn_summary [-llf] [-s stage] [-nosub|-ch|-cp|-f|-java|-intl|-fixinc]
+# usage: warn_summary [-llf] [-s stage] [-nosub|-ch|-cp|-f|-java|-ada|-intl|-fixinc]
# [-pass|-wpass] [file(s)]
#
# -llf
@@ -19,7 +19,7 @@
#
# -nosub
# Only show warnings from the gcc top level directory.
-# -ch|-cp|-f|-java|-intl|-fixinc
+# -ch|-cp|-f|-java|-ada|-intl|-fixinc
# Only show warnings from the specified language subdirectory.
# These override each other so only the last one passed takes effect.
#
@@ -132,7 +132,7 @@ s%^[^ ]*/\(lib[a-z23+-]*/\)%\1%;'
# Start the main section.
-usage="usage: `basename $0` [-llf] [-s stage] [-nosub|-ch|-cp|-f|-java|-intl|-fixinc] [-pass|-wpass] [file(s)]"
+usage="usage: `basename $0` [-llf] [-s stage] [-nosub|-ch|-cp|-f|-java|-ada|-intl|-fixinc] [-pass|-wpass] [file(s)]"
stageN=3
tmpfile=/tmp/tmp-warn.$$
@@ -158,7 +158,7 @@ while test -n "$1" ; do
-s) if test -z "$2"; then echo $usage 1>&2; exit 1; fi
stageN="$2"; shift 2 ;;
-s*) stageN="`expr $1 : '-s\(.*\)'`" ; shift ;;
- -nosub|-ch|-cp|-f|-java|-intl|-fixinc) filter="`expr $1 : '-\(.*\)'`" ; shift ;;
+ -nosub|-ch|-cp|-f|-java|-ada|-intl|-fixinc) filter="`expr $1 : '-\(.*\)'`" ; shift ;;
-pass) pass=1 ; shift ;;
-wpass) pass=w ; shift ;;
-*) echo $usage 1>&2 ; exit 1 ;;
--
GitLab