* adaint.c: Minor cleanups.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@47637 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 6ba6901..533df40 100644 (file)
--- 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 (file)
--- 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;