CVS difference for arm/source/pre_strings.mss

Differences between 1.77 and version 1.78
Log of other versions for file arm/source/pre_strings.mss

--- arm/source/pre_strings.mss	2012/03/20 06:13:59	1.77
+++ arm/source/pre_strings.mss	2012/05/19 02:05:52	1.78
@@ -1,7 +1,7 @@
 @comment{ $Source: e:\\cvsroot/ARM/Source/pre_strings.mss,v $ }
-@comment{ $Revision: 1.77 $ $Date: 2012/03/20 06:13:59 $ $Author: randy $ }
+@comment{ $Revision: 1.78 $ $Date: 2012/05/19 02:05:52 $ $Author: randy $ }
 @Part(predefstrings, Root="ada.mss")
-@Comment{$Date: 2012/03/20 06:13:59 $}
+@Comment{$Date: 2012/05/19 02:05:52 $}
 
 @RMNewPageVer{Version=[3]}@Comment{For printed version of Ada 2012 RM}
 @LabeledClause{String Handling}
@@ -3109,9 +3109,10 @@
 function Strings.Hash has the following declaration:]}
 @begin{Example}
 @ChgRef{Version=[2],Kind=[AddedNormal]}
+@ChgRef{Version=[3],Kind=[Revised],ARef=[AI05-0298-1]}
 @ChgAdded{Version=[2],Text=[@key<with> Ada.Containers;
 @key<function> Ada.Strings.Hash (Key : String) @key<return> Containers.Hash_Type;@SubChildUnit{Parent=[Ada.Strings],Child=[Hash]}
-@key<pragma> Pure(Hash);]}
+@key<pragma> Pure(@Chg{Version=[3],New=[Ada.Strings.Hash],Old=[Hash]});]}
 @end{Example}
 
 @begin{DescribeCode}
@@ -3130,10 +3131,11 @@
 function Strings.Fixed.Hash has the following declaration:]}
 @begin{Example}
 @ChgRef{Version=[2],Kind=[AddedNormal]}
+@ChgRef{Version=[3],Kind=[Revised],ARef=[AI05-0298-1]}
 @ChgAdded{Version=[2],Text=[@key<with> Ada.Containers, Ada.Strings.Hash;
 @key<function> Ada.Strings.Fixed.Hash (Key : String) @key<return> Containers.Hash_Type
-   @key<renames> Ada.Strings.Hash;
-@key<pragma> Pure(Hash);]}
+   @key<renames> Ada.Strings.Hash;@Chg{Version=[3],New=[],Old=[
+@key<pragma> Pure(Hash);]}]}
 @end{Example}
 
 @ChgRef{Version=[2],Kind=[AddedNormal],ARef=[AI95-00302-03]}
@@ -3141,13 +3143,14 @@
 function Strings.Bounded.Hash has the following declaration:]}
 @begin{Example}
 @ChgRef{Version=[2],Kind=[AddedNormal]}
+@ChgRef{Version=[3],Kind=[Revised],ARef=[AI05-0298-1]}
 @ChgAdded{Version=[2],Text=[@key<with> Ada.Containers;
 @key<generic>@SubChildUnit{Parent=[Ada.Strings.Bounded],Child=[Hash]}
    @key<with package> Bounded @key<is>
       @key<new> Ada.Strings.Bounded.Generic_Bounded_Length (<>);
 @key<function> Ada.Strings.Bounded.Hash (Key : Bounded.Bounded_String)
    @key<return> Containers.Hash_Type;
-@key<pragma> Preelaborate(Hash);]}
+@key<pragma> Preelaborate(@Chg{Version=[3],New=[Ada.Strings.Bounded.Hash],Old=[Hash]});]}
 @end{Example}
 
 @begin{DescribeCode}
@@ -3165,10 +3168,11 @@
 function Strings.Unbounded.Hash has the following declaration:]}
 @begin{Example}
 @ChgRef{Version=[2],Kind=[AddedNormal]}
+@ChgRef{Version=[3],Kind=[Revised],ARef=[AI05-0298-1]}
 @ChgAdded{Version=[2],Text=[@key<with> Ada.Containers;
 @key<function> Ada.Strings.Unbounded.Hash (Key : Unbounded_String)@SubChildUnit{Parent=[Ada.Strings.Unbounded],Child=[Hash]}
    @key<return> Containers.Hash_Type;
-@key<pragma> Preelaborate(Hash);]}
+@key<pragma> Preelaborate(@Chg{Version=[3],New=[Ada.Strings.Unbounded.Hash],Old=[Hash]});]}
 @end{Example}
 
 @begin{DescribeCode}
@@ -3182,20 +3186,20 @@
 
 @end{DescribeCode}
 
-@ChgRef{Version=[3],Kind=[AddedNormal],ARef=[AI05-0001-1]}
+@ChgRef{Version=[3],Kind=[Added],ARef=[AI05-0001-1],ARef=[AI05-0298-1]}
 @ChgAdded{Version=[3],KeepNext=[T],Type=[Leading],Text=[The library function
 Strings.Hash_Case_Insensitive has the following declaration:]}
 
 @begin{Example}
-@ChgRef{Version=[3],Kind=[AddedNormal]}
+@ChgRef{Version=[3],Kind=[Added]}
 @ChgAdded{Version=[3],Text=[@key<with> Ada.Containers;
 @key<function> Ada.Strings.Hash_Case_Insensitive (Key : String)@SubChildUnit{Parent=[Ada.Strings],Child=[Hash_Case_Insensitive]}
    @key<return> Containers.Hash_Type;
-@key<pragma> Pure(Hash_Case_Insensitive);]}
+@key<pragma> Pure(Ada.Strings.Hash_Case_Insensitive);]}
 @end{Example}
 
 @begin{DescribeCode}
-@ChgRef{Version=[3],Kind=[AddedNormal]}
+@ChgRef{Version=[3],Kind=[Added]}
 @ChgAdded{Version=[3],Type=[Trailing],Text=[Returns an implementation-defined
 value which is a function of the value of Key, converted to lower case. If
 A and B are strings such that Strings.Equal_Case_Insensitive (A, B) (see
@@ -3203,7 +3207,7 @@
 True, then Hash_Case_Insensitive(A) equals Hash_Case_Insensitive(B).]}
 @end{DescribeCode}
 
-@ChgRef{Version=[3],Kind=[Added],ARef=[AI05-0001-1]}
+@ChgRef{Version=[3],Kind=[Added],ARef=[AI05-0001-1],ARef=[AI05-0298-1]}
 @ChgAdded{Version=[3],KeepNext=[T],Type=[Leading],Text=[The library function
 Strings.Fixed.Hash_Case_Insensitive has the following declaration:]}
 
@@ -3211,13 +3215,12 @@
 @ChgRef{Version=[3],Kind=[Added]}
 @ChgAdded{Version=[3],Text=[@key<with> Ada.Containers, Ada.Strings.Hash_Case_Insensitive;
 @key[function] Ada.Strings.Fixed.Hash_Case_Insensitive (Key : String)@SubChildUnit{Parent=[Ada.Strings.Fixed],Child=[Hash_Case_Insensitive]}
-   @key[return] Containers.Hash_Type @key[renames] Ada.Strings.Hash_Case_Insensitive;
-@key[pragma] Pure(Hash_Case_Insensitive);]}
+   @key[return] Containers.Hash_Type @key[renames] Ada.Strings.Hash_Case_Insensitive;]}
 @end{Example}
 
 
-@ChgRef{Version=[2],Kind=[Added],ARef=[AI05-0001-1]}
-@ChgAdded{Version=[2],KeepNext=[T],Type=[Leading],Text=[The generic library
+@ChgRef{Version=[3],Kind=[Added],ARef=[AI05-0001-1],ARef=[AI05-0298-1]}
+@ChgAdded{Version=[3],KeepNext=[T],Type=[Leading],Text=[The generic library
 function Strings.Bounded.Hash_Case_Insensitive has the following declaration:]}
 
 @begin{Example}
@@ -3228,7 +3231,7 @@
       @key[new] Ada.Strings.Bounded.Generic_Bounded_Length (<>);
 @key[function] Ada.Strings.Bounded.Hash_Case_Insensitive@SubChildUnit{Parent=[Ada.Strings.Bounded],Child=[Hash_Case_Insensitive]}
    (Key : Bounded.Bounded_String) @key[return] Containers.Hash_Type;
-@key[pragma] Preelaborate(Hash_Case_Insensitive);]}
+@key[pragma] Preelaborate(Ada.Strings.Bounded.Hash_Case_Insensitive);]}
 @end{Example}
 
 @begin{DescribeCode}
@@ -3238,7 +3241,7 @@
 Strings.Hash_Case_Insensitive (Bounded.To_String (Key));]}
 @end{DescribeCode}
 
-@ChgRef{Version=[3],Kind=[Added],ARef=[AI05-0001-1]}
+@ChgRef{Version=[3],Kind=[Added],ARef=[AI05-0001-1],ARef=[AI05-0298-1]}
 @ChgAdded{Version=[3],KeepNext=[T],Type=[Leading],Text=[The library function
 Strings.Unbounded.Hash_Case_Insensitive has the following declaration:]}
 
@@ -3247,7 +3250,7 @@
 @ChgAdded{Version=[3],Text=[@key<with> Ada.Containers;
 @key[function] Ada.Strings.Unbounded.Hash_Case_Insensitive@SubChildUnit{Parent=[Ada.Strings.Unbounded],Child=[Hash_Case_Insensitive]}
    (Key : Unbounded_String) @key[return] Containers.Hash_Type;
-@key[pragma] Preelaborate(Hash_Case_Insensitive);]}
+@key[pragma] Preelaborate(Ada.Strings.Unbounded.Hash_Case_Insensitive);]}
 @end{Example}
 
 @begin{DescribeCode}
@@ -3295,7 +3298,7 @@
 @LabeledAddedSubClause{Version=[3],Name=[String Comparison]}
 
 @begin{StaticSem}
-@ChgRef{Version=[3],Kind=[AddedNormal],ARef=[AI05-0001-1],ARef=[AI05-0286-1]}
+@ChgRef{Version=[3],Kind=[AddedNormal],ARef=[AI05-0001-1],ARef=[AI05-0286-1],ARef=[AI05-0298-1]}
 @ChgAdded{Version=[3],KeepNext=[T],Type=[Leading],Text=[The library function
 Strings.Equal_Case_Insensitive has the following declaration:]}
 
@@ -3303,7 +3306,7 @@
 @ChgRef{Version=[3],Kind=[AddedNormal]}
 @ChgAdded{Version=[3],Text=[@key[function] Ada.Strings.Equal_Case_Insensitive (Left, Right : String)@SubChildUnit{Parent=[Ada.Strings],Child=[Equal_Case_Insensitive]}
    @key[return] Boolean;
-@key[pragma] Pure(Equal_Case_Insensitive);]}
+@key[pragma] Pure(Ada.Strings.Equal_Case_Insensitive);]}
 @end{Example}
 
 @begin{DescribeCode}
@@ -3327,7 +3330,7 @@
 @end{Discussion}
 @end{DescribeCode}
 
-@ChgRef{Version=[3],Kind=[AddedNormal],ARef=[AI05-0001-1],ARef=[AI05-0248-1]}
+@ChgRef{Version=[3],Kind=[AddedNormal],ARef=[AI05-0001-1],ARef=[AI05-0248-1],ARef=[AI05-0298-1]}
 @ChgAdded{Version=[3],KeepNext=[T],Type=[Leading],Text=[The library function
 Strings.Fixed.Equal_Case_Insensitive has the following declaration:]}
 
@@ -3336,11 +3339,10 @@
 @ChgAdded{Version=[3],Text=[@key[with] Ada.Strings.Equal_Case_Insensitive;
 @key[function] Ada.Strings.Fixed.Equal_Case_Insensitive@SubChildUnit{Parent=[Ada.Strings.Fixed],Child=[Equal_Case_Insensitive]}
    (Left, Right : String) @key[return] Boolean
-      @key[renames] Ada.Strings.Equal_Case_Insensitive;
-@key[pragma] Pure(Equal_Case_Insensitive);]}
+      @key[renames] Ada.Strings.Equal_Case_Insensitive;]}
 @end{Example}
 
-@ChgRef{Version=[3],Kind=[AddedNormal],ARef=[AI05-0001-1],ARef=[AI05-0248-1]}
+@ChgRef{Version=[3],Kind=[AddedNormal],ARef=[AI05-0001-1],ARef=[AI05-0248-1],ARef=[AI05-0298-1]}
 @ChgAdded{Version=[3],KeepNext=[T],Type=[Leading],Text=[The generic library
 function Strings.Bounded.Equal_Case_Insensitive has the following declaration:]}
 
@@ -3351,7 +3353,7 @@
       @key[new] Ada.Strings.Bounded.Generic_Bounded_Length (<>);
 @key[function] Ada.Strings.Bounded.Equal_Case_Insensitive@SubChildUnit{Parent=[Ada.Strings.Bounded],Child=[Equal_Case_Insensitive]}
    (Left, Right : Bounded.Bounded_String) @key[return] Boolean;
-@key[pragma] Preelaborate(Equal_Case_Insensitive);]}
+@key[pragma] Preelaborate(Ada.Strings.Bounded.Equal_Case_Insensitive);]}
 @end{Example}
 
 @begin{DescribeCode}
@@ -3361,7 +3363,7 @@
 @end{DescribeCode}
 
 
-@ChgRef{Version=[3],Kind=[AddedNormal],ARef=[AI05-0001-1],ARef=[AI05-0248-1]}
+@ChgRef{Version=[3],Kind=[AddedNormal],ARef=[AI05-0001-1],ARef=[AI05-0248-1],ARef=[AI05-0298-1]}
 @ChgAdded{Version=[3],KeepNext=[T],Type=[Leading],Text=[The library function
 Strings.Unbounded.Equal_Case_Insensitive has the following declaration:]}
 
@@ -3369,7 +3371,7 @@
 @ChgRef{Version=[3],Kind=[AddedNormal]}
 @ChgAdded{Version=[3],Text=[@key[function] Ada.Strings.Unbounded.Equal_Case_Insensitive@SubChildUnit{Parent=[Ada.Strings.Unbounded],Child=[Equal_Case_Insensitive]}
    (Left, Right : Unbounded_String) @key[return] Boolean;
-@key[pragma] Preelaborate(Equal_Case_Insensitive);]}
+@key[pragma] Preelaborate(Ada.Strings.Unbounded.Equal_Case_Insensitive);]}
 @end{Example}
 
 @begin{DescribeCode}
@@ -3379,7 +3381,7 @@
 @end{DescribeCode}
 
 
-@ChgRef{Version=[3],Kind=[AddedNormal],ARef=[AI05-0001-1]}
+@ChgRef{Version=[3],Kind=[AddedNormal],ARef=[AI05-0001-1],ARef=[AI05-0298-1]}
 @ChgAdded{Version=[3],KeepNext=[T],Type=[Leading],Text=[The library function
 Strings.Less_Case_Insensitive has the following declaration:]}
 
@@ -3387,7 +3389,7 @@
 @ChgRef{Version=[3],Kind=[AddedNormal]}
 @ChgAdded{Version=[3],Text=[@key[function] Ada.Strings.Less_Case_Insensitive (Left, Right : String)@SubChildUnit{Parent=[Ada.Strings],Child=[Less_Case_Insensitive]}
    @key[return] Boolean;
-@key[pragma] Pure(Less_Case_Insensitive);]}
+@key[pragma] Pure(Ada.Strings.Less_Case_Insensitive);]}
 @end{Example}
 
 @begin{DescribeCode}
@@ -3397,7 +3399,7 @@
 @end{DescribeCode}
 
 
-@ChgRef{Version=[3],Kind=[AddedNormal],ARef=[AI05-0001-1],ARef=[AI05-0248-1]}
+@ChgRef{Version=[3],Kind=[AddedNormal],ARef=[AI05-0001-1],ARef=[AI05-0248-1],ARef=[AI05-0298-1]}
 @ChgAdded{Version=[3],KeepNext=[T],Type=[Leading],Text=[The library function
 Strings.Fixed.Less_Case_Insensitive has the following declaration:]}
 
@@ -3406,12 +3408,11 @@
 @ChgAdded{Version=[3],Text=[@key[with] Ada.Strings.Less_Case_Insensitive;
 @key[function] Ada.Strings.Fixed.Less_Case_Insensitive@SubChildUnit{Parent=[Ada.Strings.Fixed],Child=[Less_Case_Insensitive]}
    (Left, Right : String) @key[return] Boolean
-      @key[renames] Ada.Strings.Less_Case_Insensitive;
-@key[pragma] Pure(Less_Case_Insensitive);]}
+      @key[renames] Ada.Strings.Less_Case_Insensitive;]}
 @end{Example}
 
 
-@ChgRef{Version=[3],Kind=[AddedNormal],ARef=[AI05-0001-1],ARef=[AI05-0248-1]}
+@ChgRef{Version=[3],Kind=[AddedNormal],ARef=[AI05-0001-1],ARef=[AI05-0248-1],ARef=[AI05-0298-1]}
 @ChgAdded{Version=[3],KeepNext=[T],Type=[Leading],Text=[The generic library
 function Strings.Bounded.Less_Case_Insensitive has the following declaration:]}
 
@@ -3422,7 +3423,7 @@
       @key[new] Ada.Strings.Bounded.Generic_Bounded_Length (<>);
 @key[function] Ada.Strings.Bounded.Less_Case_Insensitive@SubChildUnit{Parent=[Ada.Strings.Bounded],Child=[Less_Case_Insensitive]}
   (Left, Right : Bounded.Bounded_String) @key[return] Boolean;
-@key[pragma] Preelaborate(Less_Case_Insensitive);]}
+@key[pragma] Preelaborate(Ada.Strings.Bounded.Less_Case_Insensitive);]}
 @end{Example}
 
 @begin{DescribeCode}
@@ -3432,7 +3433,7 @@
 @end{DescribeCode}
 
 
-@ChgRef{Version=[3],Kind=[AddedNormal],ARef=[AI05-0001-1],ARef=[AI05-0248-1]}
+@ChgRef{Version=[3],Kind=[AddedNormal],ARef=[AI05-0001-1],ARef=[AI05-0248-1],ARef=[AI05-0298-1]}
 @ChgAdded{Version=[3],KeepNext=[T],Type=[Leading],Text=[The library function
 Strings.Unbounded.Less_Case_Insensitive has the following declaration:]}
 
@@ -3440,7 +3441,7 @@
 @ChgRef{Version=[3],Kind=[AddedNormal]}
 @ChgAdded{Version=[3],Text=[@key[function] Ada.Strings.Unbounded.Less_Case_Insensitive@SubChildUnit{Parent=[Ada.Strings.Unbounded],Child=[Less_Case_Insensitive]}
   (Left, Right : Unbounded_String) @key[return] Boolean;
-@key[pragma] Preelaborate(Less_Case_Insensitive);]}
+@key[pragma] Preelaborate(Ada.Strings.Unbounded.Less_Case_Insensitive);]}
 @end{Example}
 
 @begin{DescribeCode}

Questions? Ask the ACAA Technical Agent