aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/styleg.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/styleg.adb')
-rw-r--r--gcc/ada/styleg.adb5
1 files changed, 1 insertions, 4 deletions
diff --git a/gcc/ada/styleg.adb b/gcc/ada/styleg.adb
index 67af2fc..0a1880f 100644
--- a/gcc/ada/styleg.adb
+++ b/gcc/ada/styleg.adb
@@ -30,7 +30,6 @@
with Atree; use Atree;
with Casing; use Casing;
with Csets; use Csets;
-with Debug; use Debug;
with Einfo; use Einfo;
with Err_Vars; use Err_Vars;
with Opt; use Opt;
@@ -1019,9 +1018,7 @@ package body Styleg is
begin
if If_Line = Then_Line then
null;
- elsif Debug_Flag_Dot_XX
- and then Token_Ptr /= First_Non_Blank_Location
- then
+ elsif Token_Ptr /= First_Non_Blank_Location then
Error_Msg_SC ("(style) misplaced THEN");
end if;
end;