From 5ae7c3cf2e21534dda6af57c5c34318d30d0c98a Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 20 Feb 2015 12:48:57 +0100 Subject: [multiple changes] 2015-02-20 Arnaud Charlet * sysdep.c, expect.c, s-oscons-tmplt.c, gsocket.h, adaint.c: Remove obsolete references to RTX, nucleus, VMS. 2015-02-20 Ed Schonberg * sem_prag.adb (Fix_Error): For an illegal Type_Invariant'Class aspect, use name that mentions Class explicitly, rather than compiler-internal name. 2015-02-20 Robert Dewar * debug.adb: Add documentation for -gnatd.2 (allow statements in decl sequences). * par-ch3.adb (P_Identifier_Declarations): Handle statement appearing where declaration expected more cleanly. (Statement_When_Declaration_Expected): Implement debug flag -gnatd.2. 2015-02-20 Jose Ruiz * a-dinopr.ads: Add spec for this package (Unimplemented_Unit). * a-dispat.ads (Yield): Include procedure added in Ada 2012. * a-dispat.adb (Yield): Implement procedure added in Ada 2012. * impunit.adb (Non_Imp_File_Names_05): Mark unit a-dinopr.ads as defined by Ada 2005. * snames.ads-tmpl (Name_Non_Preemptive_FIFO_Within_Priorities): This is the correct name for the dispatching policy (FIFO was missing). 2015-02-20 Javier Miranda * sem_res.adb (Resolve_Type_Conversion): If the type of the operand is the limited-view of a class-wide type then recover the class-wide type of the non-limited view. From-SVN: r220852 --- gcc/ada/sysdep.c | 89 +++++++------------------------------------------------- 1 file changed, 10 insertions(+), 79 deletions(-) (limited to 'gcc/ada/sysdep.c') diff --git a/gcc/ada/sysdep.c b/gcc/ada/sysdep.c index 0ae05e0..fd90ffe 100644 --- a/gcc/ada/sysdep.c +++ b/gcc/ada/sysdep.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * Copyright (C) 1992-2014, Free Software Foundation, Inc. * + * Copyright (C) 1992-2015, Free Software Foundation, Inc. * * * * GNAT is free software; you can redistribute it and/or modify it under * * terms of the GNU General Public License as published by the Free Soft- * @@ -58,9 +58,6 @@ #include "tsystem.h" #include #include -#ifdef VMS -#include -#endif #else #include "config.h" #include "system.h" @@ -190,8 +187,6 @@ __gnat_ttyname (int filedes) #if defined (__CYGWIN__) || defined (__MINGW32__) #include -#ifndef RTX - int __gnat_is_windows_xp (void); int @@ -216,8 +211,6 @@ __gnat_is_windows_xp (void) return is_win_xp; } -#endif /* !RTX */ - /* Get the bounds of the stack. The stack pointer is supposed to be initialized to BASE when a thread is created and the stack can be extended to LIMIT before reaching a guard page. @@ -279,13 +272,13 @@ __gnat_set_mode (int handle ATTRIBUTE_UNUSED, int mode ATTRIBUTE_UNUSED) char * __gnat_ttyname (int filedes) { -#if defined (__vxworks) || defined (__nucleus) +#if defined (__vxworks) return ""; #else extern char *ttyname (int); return ttyname (filedes); -#endif /* defined (__vxworks) || defined (__nucleus) */ +#endif /* defined (__vxworks) */ } #endif @@ -306,11 +299,6 @@ __gnat_ttyname (int filedes) # include # endif -#else -# if defined (VMS) -extern char *decc$ga_stdscr; -static int initted = 0; -# endif #endif /* Implements the common processing for getc_immediate and @@ -424,29 +412,6 @@ getc_immediate_common (FILE *stream, } else -#elif defined (VMS) - int fd = fileno (stream); - - if (isatty (fd)) - { - if (initted == 0) - { - decc$bsd_initscr (); - initted = 1; - } - - decc$bsd_cbreak (); - *ch = decc$bsd_wgetch (decc$ga_stdscr); - - if (*ch == 4) - *end_of_file = 1; - else - *end_of_file = 0; - - *avail = 1; - decc$bsd_nocbreak (); - } - else #elif defined (__MINGW32__) int fd = fileno (stream); int char_waiting; @@ -629,23 +594,6 @@ rts_get_nShowCmd (void) } #endif /* WINNT */ -#ifdef VMS - -/* This gets around a problem with using the old threads library on VMS 7.0. */ - -extern long get_gmtoff (void); - -long -get_gmtoff (void) -{ - time_t t; - struct tm *ts; - - t = time ((time_t) 0); - ts = localtime (&t); - return ts->tm_gmtoff; -} -#endif /* This value is returned as the time zone offset when a valid value cannot be determined. It is simply a bizarre value that will never @@ -689,25 +637,18 @@ __gnat_localtime_tzoff (const time_t *timer, const int *is_historic, long *off) { TIME_ZONE_INFORMATION tzi; - BOOL rtx_active; DWORD tzi_status; -#ifdef RTX - rtx_active = 1; -#else - rtx_active = 0; -#endif - (*Lock_Task) (); tzi_status = GetTimeZoneInformation (&tzi); - /* Processing for RTX targets or cases where we simply want to extract the - offset of the current time zone, regardless of the date. A value of "0" - for flag "is_historic" signifies that the date is NOT historic, see the + /* Cases where we simply want to extract the offset of the current time + zone, regardless of the date. A value of "0" for flag "is_historic" + signifies that the date is NOT historic, see the body of Ada.Calendar.UTC_Time_Offset. */ - if (rtx_active || *is_historic == 0) { + if (*is_historic == 0) { *off = tzi.Bias; /* The system is operating in the range covered by the StandardDate @@ -775,12 +716,10 @@ __gnat_localtime_tzoff (const time_t *timer, const int *is_historic, long *off) (*Unlock_Task) (); } -#else +#elif defined (__Lynx__) /* On Lynx, all time values are treated in GMT */ -#if defined (__Lynx__) - /* As of LynxOS 3.1.0a patch level 040, LynuxWorks changes the prototype to the C library function localtime_r from the POSIX.4 Draft 9 to the POSIX 1.c version. Before this change the following @@ -798,13 +737,7 @@ __gnat_localtime_tzoff (const time_t *timer, const int *is_historic, long *off) #else -/* VMS does not need __gnat_localtime_tzoff */ - -#if defined (VMS) - -/* Other targets except Lynx, VMS and Windows provide a standard localtime_r */ - -#else +/* Other targets except Lynx and Windows provide a standard localtime_r */ #define Lock_Task system__soft_links__lock_task extern void (*Lock_Task) (void); @@ -898,12 +831,10 @@ __gnat_localtime_tzoff (const time_t *timer ATTRIBUTE_UNUSED, #else *off = 0; -#endif +#endif /* defined(_AIX) ... */ } #endif -#endif -#endif #ifdef __vxworks -- cgit v1.1