diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-14 14:11:48 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-14 14:11:48 +0200 |
| commit | 34639e68704cbaa4a66c710f9dd6ff830925e38b (patch) | |
| tree | 3f390a5f217a22e1d7ce5ad0029abc7b53481d40 /gcc/ada/sysdep.c | |
| parent | 165d9b9da492ae59ef3578b64284c86f03b1bd48 (diff) | |
| download | gcc-34639e68704cbaa4a66c710f9dd6ff830925e38b.tar.gz | |
[multiple changes]
2010-06-14 Ed Schonberg <schonberg@adacore.com>
* sinfo.ads, sinfo,adb (Withed_Body): New attribute of a with_clause.
Indicates that there is an instantiation in the current unit that
loaded the body of the unit denoted by the with_clause.
* sem_ch12.adb (Mark_Context): When instanting a generic body, check
whether a with_clause in the current context denotes the unit that
holds the generic declaration, and mark the with_clause accordingly.
(Instantiate_Package_Body): call Mark_Context.
* sem.adb (Process_Bodies_In_Context): Use Withed_Body to determine
whether a given body should be traversed before the spec of the main
unit.
2010-06-14 Ed Falis <falis@adacore.com>
* sysdep.c: Fix 653 build against vThreads headers
From-SVN: r160725
Diffstat (limited to 'gcc/ada/sysdep.c')
| -rw-r--r-- | gcc/ada/sysdep.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sysdep.c b/gcc/ada/sysdep.c index 5af4299e88c..6dcc66fa790 100644 --- a/gcc/ada/sysdep.c +++ b/gcc/ada/sysdep.c @@ -34,7 +34,7 @@ #ifdef __vxworks #include "ioLib.h" -#if ! defined (__VXWORKSMILS__) +#if ! defined (VTHREADS) #include "dosFsLib.h" #endif #if ! defined (__RTP__) && (! defined (VTHREADS) || defined (__VXWORKSMILS__)) @@ -987,7 +987,7 @@ __gnat_is_file_not_found_error (int errno_val) { /* In the case of VxWorks, we also have to take into account various * filesystem-specific variants of this error. */ -#if ! defined (__VXWORKSMILS__) +#if ! defined (VTHREADS) case S_dosFsLib_FILE_NOT_FOUND: #endif #if ! defined (__RTP__) && (! defined (VTHREADS) || defined (__VXWORKSMILS__)) |