aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada
diff options
context:
space:
mode:
authorRobert Dewar <dewar@adacore.com>2005-11-15 15:05:17 +0100
committerArnaud Charlet <charlet@gcc.gnu.org>2005-11-15 15:05:17 +0100
commit45b5a7a1b03817f89bef5e0d4c78b4dcf4d26e4c (patch)
tree5eaa75d0e7710635a02b9b8396403c0c6e514975 /gcc/ada
parent1c9e0120eb6386e36415a0e3c9f6d962f09879a2 (diff)
downloadgcc-45b5a7a1b03817f89bef5e0d4c78b4dcf4d26e4c.zip
gcc-45b5a7a1b03817f89bef5e0d4c78b4dcf4d26e4c.tar.gz
gcc-45b5a7a1b03817f89bef5e0d4c78b4dcf4d26e4c.tar.bz2
xgnatugn.adb: Replace invalid membership test by 'Valid
2005-11-14 Robert Dewar <dewar@adacore.com> * xgnatugn.adb: Replace invalid membership test by 'Valid From-SVN: r107013
Diffstat (limited to 'gcc/ada')
-rw-r--r--gcc/ada/xgnatugn.adb14
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/xgnatugn.adb b/gcc/ada/xgnatugn.adb
index 3a55df4..a7e90ff 100644
--- a/gcc/ada/xgnatugn.adb
+++ b/gcc/ada/xgnatugn.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2003-2004 Free Software Foundation, Inc. --
+-- Copyright (C) 2003-2005, 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- --
@@ -180,8 +180,8 @@ procedure Xgnatugn is
Target : Target_Type;
-- The Target variable is initialized using the command line
- Valid_Characters : constant Character_Set
- := To_Set (Span => (' ', '~'));
+ Valid_Characters : constant Character_Set :=
+ To_Set (Span => (' ', '~'));
-- This array controls which characters are permitted in the input
-- file (after line breaks have been removed). Valid characters
-- are all printable ASCII characters and the space character.
@@ -748,7 +748,7 @@ procedure Xgnatugn is
else
- -- Extend Seq to cover the current (known) word.
+ -- Extend Seq to cover the current (known) word
Seq.Last := Token.Span.Last;
Next_Token;
@@ -1045,7 +1045,7 @@ procedure Xgnatugn is
if (not Have_Conditional) or (Flag in Edition_Type) then
- -- The ordinary case.
+ -- The ordinary case
if not Currently_Excluding then
Put_Line (Output_File, Rewritten);
@@ -1068,7 +1068,7 @@ procedure Xgnatugn is
-- case).
procedure Add (Extension, Replacement : String);
- -- Adds an extension with a custom replacement.
+ -- Adds an extension with a custom replacement
---------
-- Add --
@@ -1294,7 +1294,7 @@ begin
begin
Target := Flag_Type'Value (Argument (1));
- if Target not in Target_Type then
+ if not Target'Valid then
Valid_Command_Line := False;
end if;