OSDN Git Service

2009-09-18 Vincent Celier <celier@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 18 Sep 2009 13:55:20 +0000 (13:55 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 18 Sep 2009 13:55:20 +0000 (13:55 +0000)
* prj.ads, prj.adb (Project_Data): New component
Imported_Directories_Switches.

2009-09-18  Pascal Obry  <obry@adacore.com>

* mingw32.h: Include standard _mingw.h file.
Define _WIN32_WINNT only if not already defined.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@151843 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/ada/ChangeLog
gcc/ada/mingw32.h
gcc/ada/prj.adb
gcc/ada/prj.ads

index 647ff07..3729771 100644 (file)
@@ -1,3 +1,13 @@
+2009-09-18  Vincent Celier  <celier@adacore.com>
+
+       * prj.ads, prj.adb (Project_Data): New component
+       Imported_Directories_Switches.
+
+2009-09-18  Pascal Obry  <obry@adacore.com>
+
+       * mingw32.h: Include standard _mingw.h file.
+       Define _WIN32_WINNT only if not already defined.
+
 2009-09-18  Thomas Quinot  <quinot@adacore.com>
 
        * g-socket.adb (Is_Open): New function indicating whether a
index 2ad4d36..011e90b 100644 (file)
@@ -36,6 +36,8 @@
 #ifndef _MINGW32_H
 #define _MINGW32_H
 
+#include <_mingw.h>
+
 /* The unicode support is activated by default starting with the 3.9 MingW
    version. It is not possible to use it with previous version due to a bug
    in the MingW runtime.  */
@@ -62,7 +64,9 @@
 #endif
 
 /* We need functionality available only starting with Windows XP */
+#ifndef _WIN32_WINNT
 #define _WIN32_WINNT 0x0501
+#endif
 
 #include <tchar.h>
 #include <windows.h>
index b485f70..d42e711 100644 (file)
@@ -100,6 +100,7 @@ package body Prj is
                       Imported_Projects              => null,
                       All_Imported_Projects          => null,
                       Ada_Include_Path               => null,
+                      Imported_Directories_Switches  => null,
                       Ada_Objects_Path               => null,
                       Objects_Path                   => null,
                       Include_Path_File              => No_Path,
index 502ace9..453a7ca 100644 (file)
@@ -1190,6 +1190,10 @@ package Prj is
       -- Miscellaneous --
       -------------------
 
+      Imported_Directories_Switches : Argument_List_Access := null;
+      --  List of the source search switches (-I<source dir>) to be used
+      --  when compiling.
+
       Ada_Objects_Path : String_Access := null;
       --  The cached value of ADA_OBJECTS_PATH for this project file. Do not
       --  use this field directly outside of the compiler, use