diff options
Diffstat (limited to 'gcc/ada/bindgen.adb')
| -rw-r--r-- | gcc/ada/bindgen.adb | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index bc47ec1..cb39af6 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; |