misc.c (gnat_init_options): Do not concatenate -I and its argument, except for…

misc.c (gnat_init_options): Do not concatenate -I and its argument, except for the special -I- switch.

	* gcc-interface/misc.c (gnat_init_options): Do not concatenate -I and
	its argument, except for the special -I- switch.

From-SVN: r170150

gcc/ada/ChangeLog

+2011-02-14  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gcc-interface/misc.c (gnat_init_options): Do not concatenate -I and
+	its argument, except for the special -I- switch.
+
 2011-02-12  Gerald Pfeifer  <gerald@pfeifer.com>
 
 	* gnat_ugn.texi (Compiling Different Versions of Ada): Update

gcc/ada/gcc-interface/misc.c

@@ -195,13 +195,12 @@ gnat_init_options (unsigned int decoded_options_count,
 	  || num_elements == 0)
 	continue;
 
-      if (decoded_options[i].opt_index == OPT_I)
-	{
-	  gcc_assert (num_elements == 2);
-	  save_argv[save_argc++]
-	    = concat (decoded_options[i].canonical_option[0],
-		      decoded_options[i].canonical_option[1], NULL);
-	}
+      /* Deal with -I- specially since it must be a single switch.  */
+      if (decoded_options[i].opt_index == OPT_I
+	  && num_elements == 2
+	  && decoded_options[i].canonical_option[1][0] == '-'
+	  && decoded_options[i].canonical_option[1][1] == '\0')
+	save_argv[save_argc++] = "-I-";
       else
 	{
 	  gcc_assert (num_elements >= 1 && num_elements <= 2);

gcc/testsuite/ChangeLog

+2011-02-14  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gnat.dg/include.adb: New test.
+
 2011-02-14  Janus Weil  <janus@gcc.gnu.org>
 
 	PR fortran/47728

gcc/testsuite/gnat.dg/include.adb

+-- { dg-do compile } */
+-- { dg-options "-cargs -I -gnatws" }
+
+-- { dg-error "search directory missing" "" { target *-*-* } 0 }