procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

xgnatugn.adb: Replace invalid membership test by 'Valid

Browse source 
2005-11-14  Robert Dewar  <dewar@adacore.com>

	* xgnatugn.adb: Replace invalid membership test by 'Valid

From-SVN: r107013
This commit is contained in:
Robert Dewar 2005-11-15 15:05:17 +01:00 • committed by Arnaud Charlet
parent 1c9e0120eb
commit 45b5a7a1b0
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gcc/ada/xgnatugn.adb
View file

@ -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;