diff options
| author | Douglas B Rupp <rupp@gnat.com> | 2001-12-05 01:48:27 +0100 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-12-05 01:48:27 +0100 |
| commit | 5917e80db6c2cad4ff2eec14f7a9ced3012d25b9 (patch) | |
| tree | 743879f6ae6e8c245b06a0569ea179163f5c5d8e /gcc | |
| parent | 2c70f9ddc3097ce82a76f807af3ebde0c2e1e9b4 (diff) | |
| download | gcc-5917e80db6c2cad4ff2eec14f7a9ced3012d25b9.zip gcc-5917e80db6c2cad4ff2eec14f7a9ced3012d25b9.tar.gz gcc-5917e80db6c2cad4ff2eec14f7a9ced3012d25b9.tar.bz2 | |
* adaint.c: Minor cleanups.
From-SVN: r47637
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/adaint.c | 19 |
2 files changed, 12 insertions, 11 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 6ba6901..533df40 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,9 @@ 2001-12-04 Douglass B. Rupp <rupp@gnat.com> + * adaint.c: Minor cleanups. + +2001-12-04 Douglass B. Rupp <rupp@gnat.com> + * adaint.c: Do not use utime.h on vxworks. 2001-12-04 Arnaud Charlet <charlet@gnat.com> diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index c169ec8..bd86d22 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -69,6 +69,9 @@ #if defined (__EMX__) || defined (MSDOS) || defined (_WIN32) #elif defined (VMS) + +/* Header files and definitions for __gnat_set_file_time_name. */ + #include <rms.h> #include <atrdef.h> #include <fibdef.h> @@ -79,17 +82,6 @@ #include <string.h> #include <unixlib.h> -struct utimbuf -{ - time_t actime; - time_t modtime; -}; - -#define NOREAD 0x01 -#define NOWRITE 0x02 -#define NOEXECUTE 0x04 -#define NODELETE 0x08 - /* use native 64-bit arithmetic */ #define unix_time_to_vms(X,Y) \ { unsigned long long reftime, tmptime = (X); \ @@ -104,6 +96,7 @@ struct dsc$descriptor_fib struct fibdef *fib$l_addr; }; +/* I/O Status Block. */ struct IOSB { unsigned short status, count; @@ -112,6 +105,7 @@ struct IOSB static char *tryfile; +/* Variable length string. */ struct vstring { short length; @@ -937,6 +931,9 @@ __gnat_set_file_time_name (name, time_stamp) { #if defined (__EMX__) || defined (MSDOS) || defined (_WIN32) \ || defined (__vxworks) + +/* Code to implement __gnat_set_file_time_name for these systems. */ + #elif defined (VMS) struct FAB fab; struct NAM nam; |