(main): Pass INIT_ENVIRONMENT to putenv.
authorwilson <wilson@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 25 Apr 1995 22:39:42 +0000 (22:39 +0000)
committerwilson <wilson@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 25 Apr 1995 22:39:42 +0000 (22:39 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@9455 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/gcc.c

index 7865df2..7fac9c8 100644 (file)
--- a/gcc/gcc.c
+++ b/gcc/gcc.c
@@ -4357,6 +4357,11 @@ main (argc, argv)
   obstack_grow (&collect_obstack, argv[0], strlen (argv[0])+1);
   putenv (obstack_finish (&collect_obstack));
 
+#ifdef INIT_ENVIRONMENT
+  /* Set up any other necessary machine specific environment variables.  */
+  putenv (INIT_ENVIRONMENT);
+#endif
+
   /* Choose directory for temp files.  */
 
   choose_temp_base ();