[multiple changes]

2004-08-16  Pascal Obry  <obry@gnat.com>

	* adaint.c (__gnat_prj_add_obj_files): Set to 0 only on Win32 for GCC
	backend prior to GCC 3.4. With GCC 3.4 we are using the GCC's shared
	option and not mdll anymore. Update comment.

2004-08-16  Pascal Obry  <obry@gnat.com>

	* bld.adb (Put_Include_Project): Properly handle directory separators
	on Windows.

2004-08-16  Ed Schonberg  <schonberg@gnat.com>

	* sem_ch4.adb (Try_Object_Operation): Restructure code. Optimize by
	decreasing the number of allocated junk nodes while searching for the
	appropriate subprogram.

From-SVN: r86049

gcc/ada/ChangeLog

+2004-08-16  Pascal Obry  <obry@gnat.com>
+
+	* adaint.c (__gnat_prj_add_obj_files): Set to 0 only on Win32 for GCC
+	backend prior to GCC 3.4. With GCC 3.4 we are using the GCC's shared
+	option and not mdll anymore. Update comment.
+
+2004-08-16  Pascal Obry  <obry@gnat.com>
+
+	* bld.adb (Put_Include_Project): Properly handle directory separators
+	on Windows.
+
+2004-08-16  Ed Schonberg  <schonberg@gnat.com>
+
+	* sem_ch4.adb (Try_Object_Operation): Restructure code. Optimize by
+	decreasing the number of allocated junk nodes while searching for the
+	appropriate subprogram.
+
 2004-08-15  Nathan Sidwell  <nathan@codesourcery.com>
 
 	* cuintp.c (UI_To_gnu): Use build_int_cst..

gcc/ada/adaint.c

@@ -2469,8 +2469,11 @@ int __gnat_argument_needs_quote = 0;
 
 /* This option is used to enable/disable object files handling from the
    binder file by the GNAT Project module. For example, this is disabled on
-   Windows as it is already done by the mdll module. */
-#if defined (_WIN32)
+   Windows (prior to GCC 3.4) as it is already done by the mdll module.
+   Stating with GCC 3.4 the shared libraries are not based on mdll
+   anymore as it uses the GCC's -shared option  */
+#if defined (_WIN32) \
+    && ((__GNUC__ < 3) || ((__GNUC__ == 3) && (__GNUC_MINOR__ < 4)))
 int __gnat_prj_add_obj_files = 0;
 #else
 int __gnat_prj_add_obj_files = 1;

gcc/ada/bld.adb

@@ -2388,7 +2388,8 @@ package body Bld is
             --  directory.
 
             if Last >= Included_Directory_Path'First
-              and then Included_Directory_Path (Last) = Directory_Separator
+              and then (Included_Directory_Path (Last) = Directory_Separator
+                          or else Included_Directory_Path (Last) = '/')
             then
                Last := Last - 1;
             end if;