CVS difference for arm/source/pre_strings.mss

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

--- arm/source/pre_strings.mss	2005/02/09 00:00:20	1.29
+++ arm/source/pre_strings.mss	2005/03/01 06:05:12	1.30
@@ -1,7 +1,7 @@
 @comment{ $Source: e:\\cvsroot/ARM/Source/pre_strings.mss,v $ }
-@comment{ $Revision: 1.29 $ $Date: 2005/02/09 00:00:20 $ $Author: Randy $ }
+@comment{ $Revision: 1.30 $ $Date: 2005/03/01 06:05:12 $ $Author: Randy $ }
 @Part(predefstrings, Root="ada.mss")
-@Comment{$Date: 2005/02/09 00:00:20 $}
+@Comment{$Date: 2005/03/01 06:05:12 $}
 
 @LabeledClause{String Handling}
 
@@ -358,7 +358,7 @@
 @begin{Extend95}
   @ChgRef{Version=[2],Kind=[AddedNormal],ARef=[AI95-00161-01]}
   @ChgAdded{Version=[2],Text=[@Defn{extensions to Ada 95}
-  Added @nt{pragma} Preelaboratable_Initialization to
+  Added @nt{pragma} Preelaborable_Initialization to
   types Character_Set and Character_Mapping, so that they can be used in
   preelaborated units.]}
 
@@ -708,7 +708,7 @@
 @ChgAdded{Version=[2],Type=[Trailing],Text=[Each Index function searches, starting from From, for a slice of
 Source, with length Pattern'Length, that matches Pattern with respect to
 Mapping; the parameter Going indicates the direction of the lookup. If
-From < Source'First, then Index_Error is propagated. If Going =
+From is not in Source'Range, then Index_Error is propagated. If Going =
 Forward, then Index returns the smallest index I which is greater than or equal
 to From such that the slice of Source starting at I matches Pattern. If Going =
 Backward, then Index returns the largest index I such that the slice of Source
@@ -790,11 +790,11 @@
 @ChgRef{Version=[2],Kind=[Added],ARef=[AI95-00301-01]}
 @ChgAdded{Version=[2],Type=[Trailing],Text=[Index searches for the first or
 last occurrence of any of a set of characters (when Test=Inside), or any of the
-complement of a set of characters (when Test=Outside). If From < Source'First,
-then Index_Error is propagated. Otherwise, it returns the smallest index I >=
-From (if Going=Forward) or the largest index I <= From (if Going=Backward) such
-that Source(I) satisfies the Test condition with respect to Set; it returns 0
-if there is no such Character in Source.]}
+complement of a set of characters (when Test=Outside). If From is not in
+Source'Range, then Index_Error is propagated. Otherwise, it returns the
+smallest index I >= From (if Going=Forward) or the largest index I <= From (if
+Going=Backward) such that Source(I) satisfies the Test condition with respect
+to Set; it returns 0 if there is no such Character in Source.]}
 
 @begin{Example}@Keepnext
 @key[function] Index (Source : @key[in] String;
@@ -2232,7 +2232,7 @@
 @begin{Extend95}
   @ChgRef{Version=[2],Kind=[AddedNormal],ARef=[AI95-00161-01]}
   @ChgAdded{Version=[2],Text=[@Defn{extensions to Ada 95}
-  Added a @nt{pragma} Preelaboratable_Initialization to
+  Added a @nt{pragma} Preelaborable_Initialization to
   type Unbounded_String, so that it can be used in preelaborated units.]}
 @end{Extend95}
 
@@ -2455,6 +2455,9 @@
 
 To_Wide_String replaces To_String
 
+@ChgRef{Version=[2],Kind=[Added],ARef=[AI95-00301-01]}
+@ChgAdded{Version=[2],Text=[Set_Bounded_Wide_String replaces Set_Bounded_String]}
+
 Unbounded_Wide_String replaces Unbounded_String
 
 Null_Unbounded_Wide_String replaces Null_Unbounded_String
@@ -2462,6 +2465,10 @@
 Wide_String_Access replaces String_Access
 
 To_Unbounded_Wide_String replaces To_Unbounded_String
+
+@ChgRef{Version=[2],Kind=[Added],ARef=[AI95-00301-01]}
+@ChgAdded{Version=[2],Text=[Set_Unbounded_Wide_String replaces Set_Unbounded_String]}
+
 @end{Itemize}
 
 @ChgRef{Version=[2],Kind=[Revised],ARef=[AI95-00285-01]}
@@ -2490,10 +2497,21 @@
 any element outside the Character portion of Wide_Character.
 @end{Notes}
 
+@begin{Incompatible95}
+  @ChgRef{Version=[2],Kind=[AddedNormal],ARef=[AI95-00301-01]}
+  @ChgAdded{Version=[2],Text=[@Defn{incompatibilities with Ada 95}
+  Various new operations are added to Strings.Wide_Fixed, Strings.Wide_Bounded,
+  and Strings.Wide_Unbounded. If one of these packages is referenced in a
+  @nt{use_clause}, and an entity @i<E> with the same @nt{defining_identifier}
+  as a new entity is defined in a package that is also referenced in a
+  @nt{use_clause}, the entity @i<E> may no longer be use-visible, resulting in
+  errors. This should be rare and is easily fixed if it does occur.]}
+@end{Incompatible95}
+
 @begin{Extend95}
   @ChgRef{Version=[2],Kind=[AddedNormal],ARef=[AI95-00161-01]}
   @ChgAdded{Version=[2],Text=[@Defn{extensions to Ada 95}
-  Added @nt{pragma} Preelaboratable_Initialization to
+  Added @nt{pragma} Preelaborable_Initialization to
   types Wide_Character_Set and Wide_Character_Mapping, so that they can be
   used in preelaborated units.]}
 @end{Extend95}
@@ -2699,6 +2717,9 @@
 @ChgRef{Version=[2],Kind=[AddedNormal]}
 @ChgAdded{Version=[2],Text=[To_Wide_Wide_String replaces To_String]}
 
+@ChgRef{Version=[2],Kind=[AddedNormal],ARef=[AI95-00301-01]}
+@ChgAdded{Version=[2],Text=[Set_Bounded_Wide_Wide_String replaces Set_Bounded_String]}
+
 @ChgRef{Version=[2],Kind=[AddedNormal]}
 @ChgAdded{Version=[2],Text=[Unbounded_Wide_Wide_String replaces Unbounded_String]}
 
@@ -2710,6 +2731,10 @@
 
 @ChgRef{Version=[2],Kind=[AddedNormal]}
 @ChgAdded{Version=[2],Text=[To_Unbounded_Wide_Wide_String replaces To_Unbounded_String]}
+
+@ChgRef{Version=[2],Kind=[AddedNormal],ARef=[AI95-00301-01]}
+@ChgAdded{Version=[2],Text=[Set_Unbounded_Wide_Wide_String replaces Set_Unbounded_String]}
+
 @end{Itemize}
 
 @ChgRef{Version=[2],Kind=[AddedNormal],ARef=[AI95-00285-01]}

Questions? Ask the ACAA Technical Agent