changeset 123:174de3807b61

[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.
author jwe
date Tue, 21 Sep 1993 20:39:54 +0000
parents 80f682c2da33
children b09b2c84688b
files src/variables.cc
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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);
 	}