From 5917e80db6c2cad4ff2eec14f7a9ced3012d25b9 Mon Sep 17 00:00:00 2001
From: Douglas B Rupp <rupp@gnat.com>
Date: Wed, 5 Dec 2001 01:48:27 +0100
Subject: [PATCH] * adaint.c: Minor cleanups.

From-SVN: r47637
---
 gcc/ada/ChangeLog |  4 ++++
 gcc/ada/adaint.c  | 19 ++++++++-----------
 2 files changed, 12 insertions(+), 11 deletions(-)

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 6ba69012ad8..533df40c5ee 100644
--- 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 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;
-- 
2.30.2