prj-tree.adb (Create_Attribute): Fix handling of VMS and Windows

2009-11-30  Emmanuel Briot  <briot@adacore.com>

	* prj-tree.adb (Create_Attribute): Fix handling of VMS and Windows
	* prj-attr.ads: Minor comment updates

From-SVN: r154790

gcc/ada/ChangeLog

+2009-11-30  Emmanuel Briot  <briot@adacore.com>
+
+	* prj-tree.adb (Create_Attribute): Fix handling of VMS and Windows
+	* prj-attr.ads: Minor comment updates
+
 2009-11-30  Robert Dewar  <dewar@adacore.com>
 
 	* gnat_rm.texi: Document pragma Short_Circuit

gcc/ada/prj-attr.ads

@@ -46,15 +46,27 @@ package Prj.Attr is
 
    type Attribute_Kind is
      (Unknown,
+      --  The attribute does not exist
+
       Single,
+      --  Single variable attribute (not an associative array)
+
       Associative_Array,
+      --  Associative array attribute with a case sensitive index
+
       Optional_Index_Associative_Array,
+      --  Associative array attribute with a case sensitive index and an
+      --  optional source index.
+
       Case_Insensitive_Associative_Array,
+      --  Associative array attribute with a case insensitive index
+
       Optional_Index_Case_Insensitive_Associative_Array);
+      --  Associative array attribute with a case insensitive index and an
+      --  optional source index.
    --  Characteristics of an attribute. Optional_Index indicates that there
    --  may be an optional index in the index of the associative array, as in
    --     for Switches ("files.ada" at 2) use ...
-   --  Above character literals should be documented ???
 
    subtype Defined_Attribute_Kind is Attribute_Kind
      range Single .. Optional_Index_Case_Insensitive_Associative_Array;

gcc/ada/prj-tree.adb

@@ -3078,7 +3078,9 @@ package body Prj.Tree is
 
       if At_Index /= 0 then
          if Attribute_Kind_Of (Start_At) =
-           Optional_Index_Associative_Array
+              Optional_Index_Associative_Array
+           or else Attribute_Kind_Of (Start_At) =
+              Optional_Index_Case_Insensitive_Associative_Array
          then
             --  Results in:   for Name ("index" at index) use "value";
             --  This is currently only used for executables