From 7eb7bb079d2fb0c22d9e31995a3ea8d812e5a042 Mon Sep 17 00:00:00 2001
From: Robert Dewar <dewar@gnat.com>
Date: Mon, 17 Dec 2001 20:51:30 +0000
Subject: frontend.adb: Move call to Check_Unused_Withs from Frontend...

	* frontend.adb: Move call to Check_Unused_Withs from Frontend, so
	that it happens before modification of Sloc values for -gnatD.

	* gnat1drv.adb: Move call to Check_Unused_Withs to Frontend,
	so that it happens before modification of Sloc values for -gnatD.

	* switch.adb: Minor reformatting

From-SVN: r48124
---
 gcc/ada/switch.adb | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'gcc/ada/switch.adb')

diff --git a/gcc/ada/switch.adb b/gcc/ada/switch.adb
index 9b06500..5749e0f 100644
--- a/gcc/ada/switch.adb
+++ b/gcc/ada/switch.adb
@@ -221,14 +221,17 @@ package body Switch is
 
          when 'g' =>
             Ptr := Ptr + 1;
+
             if Ptr <= Max then
                C := Switch_Chars (Ptr);
+
                if C in '0' .. '3' then
                   Debugger_Level :=
                     Character'Pos
                       (Switch_Chars (Ptr)) - Character'Pos ('0');
                   Ptr := Ptr + 1;
                end if;
+
             else
                Debugger_Level := 2;
             end if;
-- 
cgit v1.1