Patchwork [Ada] Make {Short,Long,Long_Long}_Complex_Elementary_Functions pure

login
register
mail settings
Submitter Arnaud Charlet
Date Jan. 2, 2013, 11:13 a.m.
Message ID <20130102111358.GA8953@adacore.com>
Download mbox | patch
Permalink /patch/208990/
State New
Headers show

Comments

Arnaud Charlet - Jan. 2, 2013, 11:13 a.m.
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  <bosch@adacore.com>

	* a-nllcef.ads, a-nlcefu.ads, a-nscefu.ads: Make Pure.

Patch

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);