This should have been added when the branch was created

Author: tjj2017

gnat2goto/driver/tree_walk.adb

@@ -1477,17 +1477,7 @@ package body Tree_Walk is
          when N_Explicit_Dereference => return Do_Dereference (N);
          when N_Case_Expression      => return Do_Case_Expression (N);
          when N_Aggregate            => return Do_Aggregate_Literal (N);
-         when N_Indexed_Component    =>
-            if Nkind (Etype (Prefix (N))) = N_Defining_Identifier
-              and then
-                Get_Name_String (Chars (Etype (Etype (Prefix (N)))))
-              = "string"
-            then
-               return Report_Unhandled_Node_Irep (N, "Do_Expression",
-                                                "Index of string unsupported");
-            else
-               return Do_Indexed_Component (N);
-            end if;
+         when N_Indexed_Component    => return Do_Indexed_Component (N);
          when N_Slice                => return Do_Slice (N);
          when N_In                   =>  return Do_In (N);
          when N_Real_Literal => return Do_Real_Constant (N);