Mercurial > octave-nkf
diff src/variables.cc @ 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 | 78fd87e624cb |
children | abc5f0a0785f |
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); }