diff options
Diffstat (limited to 'gcc/ada/bindgen.adb')
| -rw-r--r-- | gcc/ada/bindgen.adb | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index ec983760f29..834186239e5 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -360,8 +360,8 @@ package body Bindgen is Write_Statement_Buffer; Set_String (" """); - for J in Restrictions'Range loop - Set_Char (Restrictions (J)); + for J in All_Restrictions loop + null; end loop; Set_String (""";"); @@ -607,8 +607,8 @@ package body Bindgen is Set_String (" const char *restrictions = """); - for J in Restrictions'Range loop - Set_Char (Restrictions (J)); + for J in All_Restrictions loop + null; end loop; Set_String (""";"); @@ -1171,7 +1171,7 @@ package body Bindgen is -- If compiling for the JVM, we directly reference Adafinal because -- we don't import it via Do_Finalize (see Gen_Output_File_Ada). - if not Restrictions_On_Target (No_Finalization) then + if not Cumulative_Restrictions.Set (No_Finalization) then if Hostparm.Java_VM then Set_String (" System.Standard_Library.Adafinal'Code_Address"); @@ -1337,7 +1337,7 @@ package body Bindgen is WBI (" " & Ada_Init_Name.all & ","); - if not Restrictions_On_Target (No_Finalization) then + if not Cumulative_Restrictions.Set (No_Finalization) then Set_String (" system__standard_library__adafinal"); end if; @@ -1410,7 +1410,7 @@ package body Bindgen is -- Initialize and Finalize - if not Restrictions_On_Target (No_Finalization) then + if not Cumulative_Restrictions.Set (No_Finalization) then WBI (" procedure initialize;"); WBI (" pragma Import (C, initialize, ""__gnat_initialize"");"); WBI (""); @@ -1494,7 +1494,7 @@ package body Bindgen is WBI (" gnat_envp := System.Null_Address;"); end if; - if not Restrictions_On_Target (No_Finalization) then + if not Cumulative_Restrictions.Set (No_Finalization) then WBI (" Initialize;"); end if; @@ -1512,7 +1512,7 @@ package body Bindgen is -- Adafinal call is skipped if no finalization - if not Restrictions_On_Target (No_Finalization) then + if not Cumulative_Restrictions.Set (No_Finalization) then -- If compiling for the JVM, we directly call Adafinal because -- we don't import it via Do_Finalize (see Gen_Output_File_Ada). @@ -1526,7 +1526,7 @@ package body Bindgen is -- Finalize is only called if we have a run time - if not Restrictions_On_Target (No_Finalization) then + if not Cumulative_Restrictions.Set (No_Finalization) then WBI (" Finalize;"); end if; @@ -1652,7 +1652,7 @@ package body Bindgen is -- Call adafinal if finalization active - if not Restrictions_On_Target (No_Finalization) then + if not Cumulative_Restrictions.Set (No_Finalization) then WBI (" "); WBI (" system__standard_library__adafinal ();"); end if; @@ -2011,7 +2011,7 @@ package body Bindgen is -- then we need to make sure that the binder program is compiled with -- the same restriction, so that no exception tables are generated. - if Restrictions_On_Target (No_Exception_Handlers) then + if Cumulative_Restrictions.Set (No_Exception_Handlers) then WBI ("pragma Restrictions (No_Exception_Handlers);"); end if; @@ -2116,7 +2116,7 @@ package body Bindgen is -- No need to generate a finalization routine if finalization -- is restricted, since there is nothing to do in this case. - if not Restrictions_On_Target (No_Finalization) then + if not Cumulative_Restrictions.Set (No_Finalization) then WBI (""); WBI (" procedure " & Ada_Final_Name.all & ";"); WBI (" pragma Export (C, " & Ada_Final_Name.all & ", """ & @@ -2223,7 +2223,7 @@ package body Bindgen is -- Import the finalization procedure only if finalization active - if not Restrictions_On_Target (No_Finalization) then + if not Cumulative_Restrictions.Set (No_Finalization) then -- In the Java case, pragma Import C cannot be used, so the -- standard Ada constructs will be used instead. @@ -2242,7 +2242,7 @@ package body Bindgen is -- No need to generate a finalization routine if no finalization - if not Restrictions_On_Target (No_Finalization) then + if not Cumulative_Restrictions.Set (No_Finalization) then Gen_Adafinal_Ada; end if; @@ -2430,7 +2430,7 @@ package body Bindgen is -- Generate the adafinal routine. In no runtime mode, this is -- not needed, since there is no finalization to do. - if not Restrictions_On_Target (No_Finalization) then + if not Cumulative_Restrictions.Set (No_Finalization) then Gen_Adafinal_C; end if; |