OSDN Git Service

2009-11-30 Jerome Lambourg <lambourg@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 30 Nov 2009 14:28:21 +0000 (14:28 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 30 Nov 2009 14:28:21 +0000 (14:28 +0000)
* exp_ch3.adb (Make_Predefined_Primitive_Specs): Improve comment for
the Value_Type case.

2009-11-30  Thomas Quinot  <quinot@adacore.com>

* a-textio.adb: Minor reformatting

2009-11-30  Pascal Obry  <obry@adacore.com>

* adaint.c: Fix bug in passing parameter.
* expect.c: Include io.h to get definition of _open_osfhandle

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

gcc/ada/ChangeLog
gcc/ada/a-textio.adb
gcc/ada/adaint.c
gcc/ada/exp_ch3.adb
gcc/ada/expect.c

index 6477c1e..1c071f6 100644 (file)
@@ -1,3 +1,17 @@
+2009-11-30  Jerome Lambourg  <lambourg@adacore.com>
+
+       * exp_ch3.adb (Make_Predefined_Primitive_Specs): Improve comment for
+       the Value_Type case.
+
+2009-11-30  Thomas Quinot  <quinot@adacore.com>
+
+       * a-textio.adb: Minor reformatting
+
+2009-11-30  Pascal Obry  <obry@adacore.com>
+
+       * adaint.c: Fix bug in passing parameter.
+       * expect.c: Include io.h to get definition of _open_osfhandle
+
 2009-11-30  Javier Miranda  <miranda@adacore.com>
 
        * exp_ch6.adb, sem_scil.adb (Adjust_SCIL_Node): Add missing management
index ceacfe5..0dd5463 100644 (file)
@@ -1659,8 +1659,8 @@ package body Ada.Text_IO is
    begin
       --  Don't allow change of mode for current file (RM A.10.2(5))
 
-      if (File = Current_In or else
-          File = Current_Out  or else
+      if (File = Current_In  or else
+          File = Current_Out or else
           File = Current_Error)
         and then To_FCB (Mode) /= File.Mode
       then
index 5bce387..b4446f7 100644 (file)
@@ -697,7 +697,7 @@ __gnat_os_filename (char *filename ATTRIBUTE_UNUSED,
                    char *encoding ATTRIBUTE_UNUSED, int *e_length)
 {
 #if defined (_WIN32) && ! defined (__vxworks) && ! defined (IS_CROSS)
-  WS2SC (os_name, (TCHAR *)w_filename, (DWORD)o_length);
+  WS2SC (os_name, (TCHAR *)w_filename, (DWORD)*o_length);
   *o_length = strlen (os_name);
   strcpy (encoding, "encoding=utf8");
   *e_length = strlen (encoding);
index 13454c7..17e6395 100644 (file)
@@ -8104,7 +8104,8 @@ package body Exp_Ch3 is
       elsif Restriction_Active (No_Finalization) then
          null;
 
-      --  We skip these for CIL Value types (why???)
+      --  We skip these for CIL Value types, where finalization is not
+      --  available
 
       elsif Is_Value_Type (Tag_Typ) then
          null;
index c11a3aa..c013feb 100644 (file)
 
 #ifdef _WIN32
 
-/* We need functionality available only starting with Windows XP */
-#define _WIN32_WINNT 0x0501
-
 #include <windows.h>
 #include <process.h>
 #include <signal.h>
+#include <io.h>
+#include "mingw32.h"
 
 void
 __gnat_kill (int pid, int sig, int close)