# HG changeset patch
# User jwe
# Date 748643994 0
# Node ID 174de3807b618d0729c6035769c04d2332a03866
# Parent  80f682c2da339d5a8e611a8a7e9c8df0407a1d55
[project @ 1993-09-21 20:39:54 by jwe]
(force_global): When a variable is moved to the global symbol table,
mark it as global.

diff -r 80f682c2da33 -r 174de3807b61 src/variables.cc
--- a/src/variables.cc	Tue Sep 21 20:38:16 1993 +0000
+++ b/src/variables.cc	Tue Sep 21 20:39:54 1993 +0000
@@ -88,6 +88,7 @@
       if (sr == (symbol_record *) NULL)
 	{
 	  retval = global_sym_tab->lookup (name, 1, 0);
+	  retval->mark_as_forced_global ();
 	}
       else if (sr->is_formal_parameter ())
 	{
@@ -96,6 +97,7 @@
       else
 	{
 	  retval = global_sym_tab->lookup (name, 1, 0);
+	  retval->mark_as_forced_global ();
 	  retval->alias (sr);
 	  curr_sym_tab->clear (name);
 	}