From patchwork Wed Jan 2 11:13:58 2013 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Subject: [Ada] Make {Short,Long,Long_Long}_Complex_Elementary_Functions pure From: Arnaud Charlet X-Patchwork-Id: 208990 Message-Id: <20130102111358.GA8953@adacore.com> To: gcc-patches@gcc.gnu.org Cc: Geert Bosch Date: Wed, 2 Jan 2013 06:13:58 -0500 The other Complex_Elementary_Functions packages were already declared pure, these were missed by oversight. Tested on x86_64-pc-linux-gnu, committed on trunk 2013-01-02 Geert Bosch * a-nllcef.ads, a-nlcefu.ads, a-nscefu.ads: Make Pure. Index: a-nllcef.ads =================================================================== --- a-nllcef.ads (revision 194776) +++ a-nllcef.ads (working copy) @@ -19,3 +19,4 @@ package Ada.Numerics.Long_Long_Complex_Elementary_Functions is new Ada.Numerics.Generic_Complex_Elementary_Functions (Ada.Numerics.Long_Long_Complex_Types); +pragma Pure (Ada.Numerics.Long_Long_Complex_Elementary_Functions); Index: a-nlcefu.ads =================================================================== --- a-nlcefu.ads (revision 194776) +++ a-nlcefu.ads (working copy) @@ -19,3 +19,4 @@ package Ada.Numerics.Long_Complex_Elementary_Functions is new Ada.Numerics.Generic_Complex_Elementary_Functions (Ada.Numerics.Long_Complex_Types); +pragma Pure (Ada.Numerics.Long_Complex_Elementary_Functions); Index: a-nscefu.ads =================================================================== --- a-nscefu.ads (revision 194776) +++ a-nscefu.ads (working copy) @@ -19,3 +19,4 @@ package Ada.Numerics.Short_Complex_Elementary_Functions is new Ada.Numerics.Generic_Complex_Elementary_Functions (Ada.Numerics.Short_Complex_Types); +pragma Pure (Ada.Numerics.Short_Complex_Elementary_Functions);