c-lex.c (init_lex): Use getenv ("LANG"), not GET_ENVIRONMENT ().

        * c-lex.c (init_lex): Use getenv ("LANG"), not GET_ENVIRONMENT ().
        * cccp.c (main): Likewise.
        * gcc.c (process_command): Similarly for "GCC_EXEC_PREFIX".
        * cccp.c, collect2.c, cpplib.c, gcc.c, config/i386/xm-cygwin32.h:
        Rename GET_ENVIRONMENT to GET_ENV_PATH_LIST, and fix some
        macro-use bugs.

From-SVN: r22511

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 82863b5c827022c32c54b6614cf19b5e7cf9618c..3fe81519ed59e20c4e5d1f09f31cb42b669538c4 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,13 @@
+Mon Sep 21 01:53:05 1998  Felix Lee  <flee@cygnus.com>
+
+       * c-lex.c (init_lex): Use getenv ("LANG"), not GET_ENVIRONMENT ().
+       * cccp.c (main): Likewise.
+       * gcc.c (process_command): Similarly for "GCC_EXEC_PREFIX".
+
+       * cccp.c, collect2.c, cpplib.c, gcc.c, config/i386/xm-cygwin32.h:
+       Rename GET_ENVIRONMENT to GET_ENV_PATH_LIST, and fix some
+       macro-use bugs.
+
 Mon Sep 21 00:52:12 1998  Per Bothner  <bothner@cygnus.com>
 
        * Makefile.in (LIBS):  Link in libiberty.a.

diff --git a/gcc/c-lex.c b/gcc/c-lex.c
index a90d3b58f11ed446639e9d9eebfe0db74788afd9..e361f5bbe09ba2ff94bb79cb3f24a7b4c825387c 100644 (file)
--- a/gcc/c-lex.c
+++ b/gcc/c-lex.c
@@ -36,10 +36,6 @@ Boston, MA 02111-1307, USA.  */
 #ifdef MULTIBYTE_CHARS
 #include "mbchar.h"
 #include <locale.h>
-
-#ifndef GET_ENVIRONMENT
-#define GET_ENVIRONMENT(ENV_VALUE,ENV_NAME) ((ENV_VALUE) = getenv (ENV_NAME))
-#endif
 #endif /* MULTIBYTE_CHARS */
 
 #if USE_CPPLIB
@@ -230,7 +226,7 @@ init_lex ()
 #ifdef MULTIBYTE_CHARS
   /* Change to the native locale for multibyte conversions.  */
   setlocale (LC_CTYPE, "");
-  GET_ENVIRONMENT (literal_codeset, "LANG");
+  literal_codeset = getenv ("LANG");
 #endif
 
   maxtoken = 40;

diff --git a/gcc/cccp.c b/gcc/cccp.c
index fa359d75087c2d9984055bdef76c07e515e8e610..5afba12fad4fa9cd0ec2b2c9a288886e7e937be1 100644 (file)
--- a/gcc/cccp.c
+++ b/gcc/cccp.c
@@ -45,8 +45,8 @@ typedef unsigned char U_CHAR;
 #include <locale.h>
 #endif /* MULTIBYTE_CHARS */
 
-#ifndef GET_ENVIRONMENT
-#define GET_ENVIRONMENT(ENV_VALUE,ENV_NAME) ENV_VALUE = getenv (ENV_NAME)
+#ifndef GET_ENV_PATH_LIST
+#define GET_ENV_PATH_LIST(VAR,NAME)    do { (VAR) = getenv (NAME); } while (0)
 #endif
 
 #ifndef STANDARD_INCLUDE_DIR
@@ -1310,7 +1310,7 @@ main (argc, argv)
 #ifdef MULTIBYTE_CHARS
   /* Change to the native locale for multibyte conversions.  */
   setlocale (LC_CTYPE, "");
-  GET_ENVIRONMENT (literal_codeset, "LANG");
+  literal_codeset = getenv ("LANG");
 #endif
 
   /* Process switches and find input file name.  */
@@ -1742,7 +1742,7 @@ main (argc, argv)
   /* Some people say that CPATH should replace the standard include dirs,
      but that seems pointless: it comes before them, so it overrides them
      anyway.  */
-  GET_ENVIRONMENT (cp, "CPATH");
+  GET_ENV_PATH_LIST (cp, "CPATH");
   if (cp && ! no_standard_includes)
     path_include (cp);
 
@@ -1926,16 +1926,16 @@ main (argc, argv)
     switch ((objc << 1) + cplusplus)
       {
       case 0:
-       GET_ENVIRONMENT (epath, "C_INCLUDE_PATH");
+       GET_ENV_PATH_LIST (epath, "C_INCLUDE_PATH");
        break;
       case 1:
-       GET_ENVIRONMENT (epath, "CPLUS_INCLUDE_PATH");
+       GET_ENV_PATH_LIST (epath, "CPLUS_INCLUDE_PATH");
        break;
       case 2:
-       GET_ENVIRONMENT (epath, "OBJC_INCLUDE_PATH");
+       GET_ENV_PATH_LIST (epath, "OBJC_INCLUDE_PATH");
        break;
       case 3:
-       GET_ENVIRONMENT (epath, "OBJCPLUS_INCLUDE_PATH");
+       GET_ENV_PATH_LIST (epath, "OBJCPLUS_INCLUDE_PATH");
        break;
       }
     /* If the environment var for this language is set,

diff --git a/gcc/collect2.c b/gcc/collect2.c
index 91684d1a35804fbdcec27f830db18c89770e59e5..10cc4b6bdf32b3baa33b7838b1fb4f5881c48b34 100644 (file)
--- a/gcc/collect2.c
+++ b/gcc/collect2.c
@@ -233,8 +233,8 @@ extern int prepends_underscore;
 
 extern FILE *fdopen ();
 
-#ifndef GET_ENVIRONMENT
-#define GET_ENVIRONMENT(ENV_VALUE,ENV_NAME) ENV_VALUE = getenv (ENV_NAME)
+#ifndef GET_ENV_PATH_LIST
+#define GET_ENV_PATH_LIST(VAR,NAME)    do { (VAR) = getenv (NAME); } while (0)
 #endif
 
 /* Structure to hold all the directories in which to search for files to
@@ -862,7 +862,7 @@ prefix_from_env (env, pprefix)
      struct path_prefix *pprefix;
 {
   char *p;
-  GET_ENVIRONMENT (p, env);
+  GET_ENV_PATH_LIST (p, env);
 
   if (p)
     prefix_from_string (p, pprefix);

diff --git a/gcc/config/i386/xm-cygwin32.h b/gcc/config/i386/xm-cygwin32.h
index 521a65309912189217cc445c18064035b5191121..fd9c6db59232c25d25cdce2aa797ddb25c5ae082 100644 (file)
--- a/gcc/config/i386/xm-cygwin32.h
+++ b/gcc/config/i386/xm-cygwin32.h
@@ -32,22 +32,22 @@ Boston, MA 02111-1307, USA. */
 
 /* If we allow both '/' and '\' as dir separators, then
    allow both unix and win32 PATH syntax */
-#undef GET_ENVIRONMENT
-#define GET_ENVIRONMENT(ENV_VALUE,ENV_NAME)                   \
-{                                                             \
-  char *epath;                                                \
-  char *win32epath;                                           \
-                                                              \
-  epath = win32epath = getenv (ENV_NAME);                     \
-  /* if we have a posix path list, convert to win32 path list */ \
-  if (epath != NULL && *epath != 0 && cygwin32_posix_path_list_p (epath)) \
-    {                                                         \
-      win32epath = (char *) xmalloc                           \
-      (cygwin32_posix_to_win32_path_list_buf_size (epath));   \
-      cygwin32_posix_to_win32_path_list (epath, win32epath);  \
-    }                                                         \
-   ENV_VALUE = win32epath;                                    \
-}
+#undef GET_ENV_PATH_LIST
+#define GET_ENV_PATH_LIST(VAR,NAME)                                    \
+do {                                                                   \
+  char *_epath;                                                                \
+  char *_win32epath;                                                   \
+  _epath = _win32epath = getenv (NAME);                                        \
+  /* if we have a posix path list, convert to win32 path list */       \
+  if (_epath != NULL && *_epath != 0                                   \
+      && cygwin32_posix_path_list_p (_epath))                          \
+    {                                                                  \
+      _win32epath = (char *) xmalloc                                   \
+       (cygwin32_posix_to_win32_path_list_buf_size (_epath));          \
+      cygwin32_posix_to_win32_path_list (_epath, _win32epath);         \
+    }                                                                  \
+  (VAR) = _win32epath;                                                 \
+} while (0)
 
 #define PATH_SEPARATOR ';'
 

diff --git a/gcc/cpplib.c b/gcc/cpplib.c
index baf6e6fdb10e010981952922919794dbd928a936..7521723f8b8254b9ba5a00aefc02ceb3a128617d 100644 (file)
--- a/gcc/cpplib.c
+++ b/gcc/cpplib.c
@@ -39,8 +39,8 @@ Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 #include "cpplib.h"
 #include "cpphash.h"
 
-#ifndef GET_ENVIRONMENT
-#define GET_ENVIRONMENT(ENV_VALUE,ENV_NAME) ENV_VALUE = getenv (ENV_NAME)
+#ifndef GET_ENV_PATH_LIST
+#define GET_ENV_PATH_LIST(VAR,NAME)    do { (VAR) = getenv (NAME); } while (0)
 #endif
 
 extern char *update_path PARAMS ((char *, char *));
@@ -5710,7 +5710,7 @@ cpp_start_read (pfile, fname)
   /* Some people say that CPATH should replace the standard include dirs,
      but that seems pointless: it comes before them, so it overrides them
      anyway.  */
-  GET_ENVIRONMENT (p, "CPATH");
+  GET_ENV_PATH_LIST (p, "CPATH");
   if (p != 0 && ! opts->no_standard_includes)
     path_include (pfile, p);
 
@@ -5840,16 +5840,16 @@ cpp_start_read (pfile, fname)
     switch ((opts->objc << 1) + opts->cplusplus)
       {
       case 0:
-       GET_ENVIRONMENT (epath, "C_INCLUDE_PATH");
+       GET_ENV_PATH_LIST (epath, "C_INCLUDE_PATH");
        break;
       case 1:
-       GET_ENVIRONMENT (epath, "CPLUS_INCLUDE_PATH");
+       GET_ENV_PATH_LIST (epath, "CPLUS_INCLUDE_PATH");
        break;
       case 2:
-       GET_ENVIRONMENT (epath, "OBJC_INCLUDE_PATH");
+       GET_ENV_PATH_LIST (epath, "OBJC_INCLUDE_PATH");
        break;
       case 3:
-       GET_ENVIRONMENT (epath, "OBJCPLUS_INCLUDE_PATH");
+       GET_ENV_PATH_LIST (epath, "OBJCPLUS_INCLUDE_PATH");
        break;
       }
     /* If the environment var for this language is set,

diff --git a/gcc/gcc.c b/gcc/gcc.c
index 799f3d7435ee4fbafcf8b0a223fb1d6c39328e5d..e5ba9cdd5f816376f9127196cafd436ec78460f6 100644 (file)
--- a/gcc/gcc.c
+++ b/gcc/gcc.c
@@ -111,8 +111,8 @@ static char dir_separator_str[] = {DIR_SEPARATOR, 0};
 #define obstack_chunk_alloc xmalloc
 #define obstack_chunk_free free
 
-#ifndef GET_ENVIRONMENT
-#define GET_ENVIRONMENT(ENV_VALUE,ENV_NAME) ENV_VALUE = getenv (ENV_NAME)
+#ifndef GET_ENV_PATH_LIST
+#define GET_ENV_PATH_LIST(VAR,NAME)    do { (VAR) = getenv (NAME); } while (0)
 #endif
 
 extern char *my_strerror PROTO((int));
@@ -2563,7 +2563,7 @@ process_command (argc, argv)
   int have_o = 0;
   int lang_n_infiles = 0;
 
-  GET_ENVIRONMENT (gcc_exec_prefix, "GCC_EXEC_PREFIX");
+  gcc_exec_prefix = getenv ("GCC_EXEC_PREFIX");
 
   n_switches = 0;
   n_infiles = 0;
@@ -2606,7 +2606,7 @@ process_command (argc, argv)
   /* COMPILER_PATH and LIBRARY_PATH have values
      that are lists of directory names with colons.  */
 
-  GET_ENVIRONMENT (temp, "COMPILER_PATH");
+  GET_ENV_PATH_LIST (temp, "COMPILER_PATH");
   if (temp)
     {
       char *startp, *endp;
@@ -2640,7 +2640,7 @@ process_command (argc, argv)
        }
     }
 
-  GET_ENVIRONMENT (temp, "LIBRARY_PATH");
+  GET_ENV_PATH_LIST (temp, "LIBRARY_PATH");
   if (temp && *cross_compile == '0')
     {
       char *startp, *endp;
@@ -2673,7 +2673,7 @@ process_command (argc, argv)
     }
 
   /* Use LPATH like LIBRARY_PATH (for the CMU build program).  */
-  GET_ENVIRONMENT (temp, "LPATH");
+  GET_ENV_PATH_LIST (temp, "LPATH");
   if (temp && *cross_compile == '0')
     {
       char *startp, *endp;