diff options
| -rw-r--r-- | gcc/ada/adaint.c | 1 | ||||
| -rwxr-xr-x | gcc/ada/s-os_lib.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/s-osinte-irix.ads | 7 | ||||
| -rw-r--r-- | gcc/ada/s-winext.ads | 32 |
4 files changed, 10 insertions, 32 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 62e540c..391a424 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -2882,6 +2882,7 @@ _flush_cache() && defined (__SVR4)) \ && ! (defined (linux) && (defined (i386) || defined (__x86_64__))) \ && ! (defined (linux) && defined (__ia64__)) \ + && ! (defined (linux) && defined (powerpc)) \ && ! defined (__FreeBSD__) \ && ! defined (__hpux__) \ && ! defined (__APPLE__) \ diff --git a/gcc/ada/s-os_lib.adb b/gcc/ada/s-os_lib.adb index ff65720..f3e369c 100755 --- a/gcc/ada/s-os_lib.adb +++ b/gcc/ada/s-os_lib.adb @@ -1896,7 +1896,7 @@ package body System.OS_Lib is and then Path_Buffer (2) /= Directory_Separator then declare - Cur_Dir : String := Get_Directory (""); + Cur_Dir : constant String := Get_Directory (""); -- Get the current directory to get the drive letter begin diff --git a/gcc/ada/s-osinte-irix.ads b/gcc/ada/s-osinte-irix.ads index 15bd400..01b01b5 100644 --- a/gcc/ada/s-osinte-irix.ads +++ b/gcc/ada/s-osinte-irix.ads @@ -261,6 +261,13 @@ package System.OS_Interface is PTHREAD_CREATE_DETACHED : constant := 1; + ----------- + -- Stack -- + ----------- + + Alternate_Stack_Size : constant := 0; + -- No alternate signal stack is used on this platform + --------------------------------------- -- Nonstandard Thread Initialization -- --------------------------------------- diff --git a/gcc/ada/s-winext.ads b/gcc/ada/s-winext.ads index a0091ff..e00ae7b 100644 --- a/gcc/ada/s-winext.ads +++ b/gcc/ada/s-winext.ads @@ -98,37 +98,7 @@ package System.Win32.Ext is wReserved1 : WORD; end record; pragma Convention (C, DCB); - - for DCB use record - DCBLENGTH at 0 range 0 .. 31; - BaudRate at 4 range 0 .. 31; - fBinary at 8 range 0 .. 0; - fParity at 8 range 1 .. 1; - fOutxCtsFlow at 8 range 2 .. 2; - fOutxDsrFlow at 8 range 3 .. 3; - fDtrControl at 8 range 4 .. 5; - fDsrSensitivity at 8 range 6 .. 6; - fTXContinueOnXoff at 8 range 7 .. 7; - fOutX at 9 range 0 .. 0; - fInX at 9 range 1 .. 1; - fErrorChar at 9 range 2 .. 2; - fNull at 9 range 3 .. 3; - fRtsControl at 9 range 4 .. 5; - fAbortOnError at 9 range 6 .. 6; - fDummy2 at 9 range 7 .. 23; - wReserved at 12 range 0 .. 15; - XonLim at 14 range 0 .. 15; - XoffLim at 16 range 0 .. 15; - ByteSize at 18 range 0 .. 7; - Parity at 19 range 0 .. 7; - StopBits at 20 range 0 .. 7; - XonChar at 21 range 0 .. 7; - XoffChar at 22 range 0 .. 7; - ErrorChar at 23 range 0 .. 7; - EofChar at 24 range 0 .. 7; - EvtChar at 25 range 0 .. 7; - wReserved1 at 26 range 0 .. 15; - end record; + pragma Pack (DCB); type COMMTIMEOUTS is record ReadIntervalTimeout : DWORD; |