diff options
Diffstat (limited to 'gcc/ada/gprep.adb')
| -rw-r--r-- | gcc/ada/gprep.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/gprep.adb b/gcc/ada/gprep.adb index f6ce3acf02e..0fad22bf7a7 100644 --- a/gcc/ada/gprep.adb +++ b/gcc/ada/gprep.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2002-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 2002-2012, 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- -- @@ -720,7 +720,7 @@ package body GPrep is loop begin - Switch := GNAT.Command_Line.Getopt ("D: b c C r s T u v"); + Switch := GNAT.Command_Line.Getopt ("D: a b c C r s T u v"); case Switch is @@ -731,6 +731,10 @@ package body GPrep is Process_Command_Line_Symbol_Definition (S => GNAT.Command_Line.Parameter); + when 'a' => + Opt.No_Deletion := True; + Opt.Undefined_Symbols_Are_False := True; + when 'b' => Opt.Blank_Deleted_Lines := True; |