com.c (ffecom_init_0): Rename xargc to f__xargc, in accord with same-dated change...

Tue May 19 12:56:54 1998  Craig Burley  <burley@gnu.org>
* com.c (ffecom_init_0): Rename xargc to f__xargc,
in accord with same-dated change to f/runtime.

From-SVN: r19952

diff --git a/gcc/f/com.c b/gcc/f/com.c
index 7f299a29d0baa3c0f9dad084bfdf2517ba767370..a8a9e97d54cde8fb1b1bc8543b2516c017f54907 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -12518,7 +12518,7 @@ ffecom_init_0 ()
   /* Do "extern int xargc;".  */
 
   ffecom_tree_xargc_ = build_decl (VAR_DECL,
-                                  get_identifier ("xargc"),
+                                  get_identifier ("f__xargc"),
                                   integer_type_node);
   DECL_EXTERNAL (ffecom_tree_xargc_) = 1;
   TREE_STATIC (ffecom_tree_xargc_) = 1;