Mercurial > hg > octave-nkf
diff src/load-path.cc @ 6159:645605133a6f
[project @ 2006-11-14 02:55:05 by jwe]
author | jwe |
---|---|
date | Tue, 14 Nov 2006 02:55:05 +0000 |
parents | 3a68a2dc6eb1 |
children | 4942c93e37e3 |
line wrap: on
line diff
--- a/src/load-path.cc +++ b/src/load-path.cc @@ -761,11 +761,14 @@ if (all_files[i] == file) { dir_name = p->dir_name; - break; + + goto done; } } } + done: + if (! dir_name.empty ()) retval = dir_name + file_ops::dir_sep_str + file; @@ -810,19 +813,21 @@ for (octave_idx_type i = 0; i < len; i++) { - for (octave_idx_type j = 0; j < rel_flen; j++) { if (all_files[i] == rel_flist[j]) { dir_name = p->dir_name; file_name = rel_flist[j]; - break; + + goto done; } } } } + done: + if (! dir_name.empty ()) retval = dir_name + file_ops::dir_sep_str + file_name;