[Ada] Avoid redefining IS_DIR_SEPARATOR macro
authorArnaud Charlet <charlet@adacore.com>
Sat, 25 Jan 2020 10:00:20 +0000 (05:00 -0500)
committerPierre-Marie de Rodat <derodat@adacore.com>
Thu, 4 Jun 2020 09:11:09 +0000 (05:11 -0400)
2020-06-04  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

* adaint.c: Avoid redefining IS_DIR_SEPARATOR macro.

gcc/ada/adaint.c

index a4992000c017a8b0a22ecf3796e15f4406aa3ecf..c44d193233272c8b1cd43a54a69e23da436eb58f 100644 (file)
@@ -264,9 +264,9 @@ UINT __gnat_current_ccs_encoding;
 
 #ifndef DIR_SEPARATOR
 #define DIR_SEPARATOR '/'
-#define IS_DIR_SEPARATOR(c) ((c) == DIR_SEPARATOR)
+#define IS_DIRECTORY_SEPARATOR(c) ((c) == DIR_SEPARATOR)
 #else
-#define IS_DIR_SEPARATOR(c) ((c) == '/' || (c) == DIR_SEPARATOR)
+#define IS_DIRECTORY_SEPARATOR(c) ((c) == '/' || (c) == DIR_SEPARATOR)
 #endif
 
 /* Check for cross-compilation.  */
@@ -1712,10 +1712,10 @@ __gnat_is_absolute_path (char *name, int length)
   return 0;
 #else
   return (length != 0) &&
-     (IS_DIR_SEPARATOR(*name)
+     (IS_DIRECTORY_SEPARATOR(*name)
 #if defined (WINNT) || defined(__DJGPP__)
       || (length > 2 && ISALPHA (name[0]) && name[1] == ':'
-          && IS_DIR_SEPARATOR(name[2]))
+          && IS_DIRECTORY_SEPARATOR(name[2]))
 #endif
          );
 #endif
@@ -2849,7 +2849,7 @@ __gnat_locate_file_with_predicate (char *file_name, char *path_val,
 
   /* If file_name include directory separator(s), try it first as
      a path name relative to the current directory */
-  for (ptr = file_name; *ptr && !IS_DIR_SEPARATOR(*ptr); ptr++)
+  for (ptr = file_name; *ptr && !IS_DIRECTORY_SEPARATOR(*ptr); ptr++)
     ;
 
   if (*ptr != 0)
@@ -2890,7 +2890,7 @@ __gnat_locate_file_with_predicate (char *file_name, char *path_val,
       if (*ptr == '"')
        ptr--;
 
-      if (!IS_DIR_SEPARATOR(*ptr))
+      if (!IS_DIRECTORY_SEPARATOR(*ptr))
         *++ptr = DIR_SEPARATOR;
 
       strcpy (++ptr, file_name);