[Ada] Unbounded strings: inline Initialize and Adjust

Procedures Initialize and Adjust in the Ada.[Wide_[Wide_]]Strings.Unbounded
package are now inlined for nondispatching calls. No test available (efficiency
issue only).

2018-05-25  Bob Duff  <duff@adacore.com>

gcc/ada/

	* libgnat/a-strunb__shared.ads, libgnat/a-stwiun__shared.ads,
	libgnat/a-stzunb__shared.ads: (Initialize, Adjust): Add pragma Inline.

From-SVN: r260719

gcc/ada/ChangeLog

 2018-05-25  Bob Duff  <duff@adacore.com>
 
+	* libgnat/a-strunb__shared.ads, libgnat/a-stwiun__shared.ads,
+	libgnat/a-stzunb__shared.ads: (Initialize, Adjust): Add pragma Inline.
+
+2018-05-25  Bob Duff  <duff@adacore.com>
+
 	* sem_util.ads: Minor comment fix.
 
 2018-05-25  Ed Schonberg  <schonberg@adacore.com>

gcc/ada/libgnat/a-strunb__shared.ads

@@ -482,6 +482,7 @@ private
    overriding procedure Initialize (Object : in out Unbounded_String);
    overriding procedure Adjust     (Object : in out Unbounded_String);
    overriding procedure Finalize   (Object : in out Unbounded_String);
+   pragma Inline (Initialize, Adjust);
 
    Null_Unbounded_String : constant Unbounded_String :=
                              (AF.Controlled with

gcc/ada/libgnat/a-stwiun__shared.ads

@@ -485,6 +485,7 @@ private
    overriding procedure Initialize (Object : in out Unbounded_Wide_String);
    overriding procedure Adjust     (Object : in out Unbounded_Wide_String);
    overriding procedure Finalize   (Object : in out Unbounded_Wide_String);
+   pragma Inline (Initialize, Adjust);
 
    Null_Unbounded_Wide_String : constant Unbounded_Wide_String :=
                                   (AF.Controlled with

gcc/ada/libgnat/a-stzunb__shared.ads

@@ -503,6 +503,7 @@ private
      (Object : in out Unbounded_Wide_Wide_String);
    overriding procedure Finalize
      (Object : in out Unbounded_Wide_Wide_String);
+   pragma Inline (Initialize, Adjust);
 
    Null_Unbounded_Wide_Wide_String : constant Unbounded_Wide_Wide_String :=
                                        (AF.Controlled with