summaryrefslogtreecommitdiff
path: root/gcc/ada/exp_ch11.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/exp_ch11.adb')
-rw-r--r--gcc/ada/exp_ch11.adb2
1 files changed, 0 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch11.adb b/gcc/ada/exp_ch11.adb
index 06d8e7c0c00..3a5381448c2 100644
--- a/gcc/ada/exp_ch11.adb
+++ b/gcc/ada/exp_ch11.adb
@@ -730,7 +730,6 @@ package body Exp_Ch11 is
end;
end if;
-
-- If an exception occurrence is present, then we must declare it
-- and initialize it from the value stored in the TSD
@@ -1175,7 +1174,6 @@ package body Exp_Ch11 is
Name_Buffer (Name_Len) := ASCII.NUL;
end if;
-
if Opt.Exception_Locations_Suppressed then
Name_Len := 0;
end if;