Mercurial > hg > octave-nkf
diff src/variables.cc @ 2790:ecc1a12678de
[project @ 1997-03-05 02:47:54 by jwe]
author | jwe |
---|---|
date | Wed, 05 Mar 1997 02:47:55 +0000 |
parents | 0c5e671499ed |
children | 74bc1ede3c3d |
line wrap: on
line diff
--- a/src/variables.cc +++ b/src/variables.cc @@ -331,18 +331,19 @@ } string struct_elts; + string symbol_name = name; size_t pos = name.find ('.'); - if (pos != NPOS) + if (pos != NPOS && pos > 0) { struct_elts = name.substr (pos+1); - name = name.substr (0, pos); + symbol_name = name.substr (0, pos); } - symbol_record *sr = curr_sym_tab->lookup (name, 0, 0); + symbol_record *sr = curr_sym_tab->lookup (symbol_name, 0, 0); if (! sr) - sr = global_sym_tab->lookup (name, 0, 0); + sr = global_sym_tab->lookup (symbol_name, 0, 0); retval = 0.0;