* adaint.c: Minor cleanups.

From-SVN: r47637

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 6ba69012ad88d2c5081dd854a29baeb83c45d4ac..533df40c5ee414f65478d29b3663dc21b15ff88e 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+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.

diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c
index c169ec8ad107a2800faf204357714852798430c4..bd86d22e07007a1cf3919744a4b739215e75c886 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;