From 32722d733238f2c08f782cee1d60cf9bec2eb3c5 Mon Sep 17 00:00:00 2001 From: bosch Date: Wed, 10 Oct 2001 14:48:53 +0000 Subject: * 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 --- gcc/ada/xnmake.adb | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'gcc/ada/xnmake.adb') 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 -- cgit v1.2.1