diff options
author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-05 00:48:27 +0000 |
---|---|---|
committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-05 00:48:27 +0000 |
commit | 71a3e6197e10d936a9b72307fb86d95cadccbe84 (patch) | |
tree | 743879f6ae6e8c245b06a0569ea179163f5c5d8e /gcc/ada/adaint.c | |
parent | 9d9321ec724cb9c94d54af357bdd961bccf8d3a0 (diff) | |
download | gcc-71a3e6197e10d936a9b72307fb86d95cadccbe84.tar.gz |
* adaint.c: Minor cleanups.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@47637 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/adaint.c')
-rw-r--r-- | gcc/ada/adaint.c | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index c169ec8ad10..bd86d22e070 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; |