diff options
| author | Bob Duff <duff@adacore.com> | 2018-05-25 09:03:19 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-05-25 09:03:19 +0000 |
| commit | 5a7aacd18052583ef1ed9620c20e25cc77c35938 (patch) | |
| tree | 022443dfa18fd31e41a2a6a488ff54b8f4c145ab /gcc | |
| parent | 6b5eb7d7d4368326570f7cb0a26828b8f8f1db8a (diff) | |
| download | gcc-5a7aacd18052583ef1ed9620c20e25cc77c35938.zip gcc-5a7aacd18052583ef1ed9620c20e25cc77c35938.tar.gz gcc-5a7aacd18052583ef1ed9620c20e25cc77c35938.tar.bz2 | |
[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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/libgnat/a-strunb__shared.ads | 1 | ||||
| -rw-r--r-- | gcc/ada/libgnat/a-stwiun__shared.ads | 1 | ||||
| -rw-r--r-- | gcc/ada/libgnat/a-stzunb__shared.ads | 1 |
4 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 132037c..1b95eb5 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 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> diff --git a/gcc/ada/libgnat/a-strunb__shared.ads b/gcc/ada/libgnat/a-strunb__shared.ads index 9279663..9739104 100644 --- a/gcc/ada/libgnat/a-strunb__shared.ads +++ b/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 diff --git a/gcc/ada/libgnat/a-stwiun__shared.ads b/gcc/ada/libgnat/a-stwiun__shared.ads index c00e53c..87b67dc 100644 --- a/gcc/ada/libgnat/a-stwiun__shared.ads +++ b/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 diff --git a/gcc/ada/libgnat/a-stzunb__shared.ads b/gcc/ada/libgnat/a-stzunb__shared.ads index 11ee743..93d492f 100644 --- a/gcc/ada/libgnat/a-stzunb__shared.ads +++ b/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 |