diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-10 14:48:53 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-10 14:48:53 +0000 |
| commit | 32722d733238f2c08f782cee1d60cf9bec2eb3c5 (patch) | |
| tree | d654d86f626250bcbb15daa84beb757605984558 /gcc/ada/xnmake.adb | |
| parent | 1e625a2ee3cbdec27b9c9666999bbec3e6b3f49a (diff) | |
| download | ppe42-gcc-32722d733238f2c08f782cee1d60cf9bec2eb3c5.tar.gz ppe42-gcc-32722d733238f2c08f782cee1d60cf9bec2eb3c5.zip | |
* xnmake.adb (XNmake): Fix handling of -s/-b options. No longer
use '/' as switch character, allowing for absolute file names.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46146 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/xnmake.adb')
| -rw-r--r-- | gcc/ada/xnmake.adb | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/gcc/ada/xnmake.adb b/gcc/ada/xnmake.adb index f87b8500b89..9a1f835f237 100644 --- a/gcc/ada/xnmake.adb +++ b/gcc/ada/xnmake.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.27 $ +-- $Revision$ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -105,7 +105,6 @@ procedure XNmake is GetT_Rev : Pattern := BreakX ('$') & "$Rev" & "ision: " & Break (' ') * Temp_Rev; - Body_Only : Pattern := BreakX (' ') * X & Span (' ') & "-- body only"; Spec_Only : Pattern := BreakX (' ') * X & Span (' ') & "-- spec only"; @@ -208,7 +207,7 @@ procedure XNmake is begin -- Capture our revision (following line updated by RCS) - Match ("$Revision: 1.27 $", "$Rev" & "ision: " & Break (' ') * XNmake_Rev); + Match ("$Revision$", "$Rev" & "ision: " & Break (' ') * XNmake_Rev); Lineno := 0; NWidth := 28; @@ -219,7 +218,7 @@ begin Arg : constant String := Argument (ArgN); begin - if Arg (1) = '/' or else Arg (1) = '-' then + if Arg (1) = '-' then if Arg'Length = 2 and then (Arg (2) = 'b' or else Arg (2) = 'B') then @@ -248,10 +247,10 @@ begin raise Err; elsif Given_File /= Nul then - if FileS = Nul then + if FileB = Nul then FileS := Given_File; - elsif FileB = Nul then + elsif FileS = Nul then FileB := Given_File; else |
