From: Piotr Trojanek <troja...@adacore.com>
Remove leftovers from zero cost exception handling; semantics is unaffected.
gcc/ada/ChangeLog:
* ali.ads (Unit_Record): Fix grammar in comment.
* bindgen.adb (Num_Elab_Calls, Num_Primary_Stacks): Remove counters
that were only incremented and never actually used.
Tested on x86_64-pc-linux-gnu, committed on master.
---
gcc/ada/ali.ads | 4 ++--
gcc/ada/bindgen.adb | 20 --------------------
2 files changed, 2 insertions(+), 22 deletions(-)
diff --git a/gcc/ada/ali.ads b/gcc/ada/ali.ads
index 2f90b88a7c6..da71c51e4ab 100644
--- a/gcc/ada/ali.ads
+++ b/gcc/ada/ali.ads
@@ -358,8 +358,8 @@ package ALI is
-- Indicates presence of PR parameter for a preelaborated package
No_Elab : Boolean;
- -- Indicates presence of NE parameter for a unit that has does not
- -- have an elaboration routine (since it has no elaboration code).
+ -- Indicates presence of NE parameter for a unit that does not have an
+ -- elaboration routine (since it has no elaboration code).
Pure : Boolean;
-- Indicates presence of PU parameter for a package having pragma Pure
diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb
index bc47ec12ab3..cb39af67f9a 100644
--- a/gcc/ada/bindgen.adb
+++ b/gcc/ada/bindgen.adb
@@ -53,13 +53,6 @@ package body Bindgen is
-- Flag which indicates whether the program uses the GNARL library
-- (presence of the unit System.OS_Interface)
- Num_Elab_Calls : Nat := 0;
- -- Number of generated calls to elaboration routines
-
- Num_Primary_Stacks : Nat := 0;
- -- Number of default-sized primary stacks the binder needs to allocate for
- -- task objects declared in the program.
-
Num_Sec_Stacks : Nat := 0;
-- Number of default-sized primary stacks the binder needs to allocate for
-- task objects declared in the program.
@@ -2483,16 +2476,6 @@ package body Bindgen is
ALIs.Table (ALIs.First).Time_Slice_Value := Opt.Time_Slice_Value;
end if;
- -- Count number of elaboration calls
-
- for E in Elab_Order'Range loop
- if Units.Table (Elab_Order (E)).No_Elab then
- null;
- else
- Num_Elab_Calls := Num_Elab_Calls + 1;
- end if;
- end loop;
-
-- Count the number of statically allocated stacks to be generated by
-- the binder. If the user has specified the number of default-sized
-- secondary stacks, use that number. Otherwise start the count at one
@@ -2506,9 +2489,6 @@ package body Bindgen is
end if;
for J in Units.First .. Units.Last loop
- Num_Primary_Stacks :=
- Num_Primary_Stacks + Units.Table (J).Primary_Stack_Count;
-
Num_Sec_Stacks :=
Num_Sec_Stacks + Units.Table (J).Sec_Stack_Count;
end loop;
--
2.43.0
