diff src/variables.cc @ 3325:2efa28a91e7a

[project @ 1999-10-29 21:39:20 by jwe]
author jwe
date Fri, 29 Oct 1999 21:39:31 +0000
parents fa345875edea
children c4983fc7318f
line wrap: on
line diff
--- a/src/variables.cc	Fri Oct 29 21:33:38 1999 +0000
+++ b/src/variables.cc	Fri Oct 29 21:39:31 1999 +0000
@@ -520,7 +520,12 @@
 		{
 		  time_t tp = tmp->time_parsed ();
 
-		  string fname = fcn_file_in_path (ff);
+		  string fname;
+
+		  if (tmp->is_dld_function ())
+		    fname = ff;
+		  else
+		    fname = fcn_file_in_path (ff);
 
 		  tmp->mark_fcn_file_up_to_date (octave_time ());
 
@@ -1082,17 +1087,16 @@
 	{
 	  string_vector tmp;
 
-	  lvars = curr_sym_tab->name_list (lcount, tmp, false,
-					   SYMTAB_VARIABLES,
-					   SYMTAB_LOCAL_SCOPE);
+	  lvars = curr_sym_tab->name_list
+	    (lcount, tmp, false, SYMTAB_VARIABLES, SYMTAB_LOCAL_SCOPE);
 
-	  gvars = curr_sym_tab->name_list (gcount, tmp, false,
-					   SYMTAB_VARIABLES,
-					   SYMTAB_GLOBAL_SCOPE);
+	  gvars = curr_sym_tab->name_list
+	    (gcount, tmp, false, SYMTAB_VARIABLES, SYMTAB_GLOBAL_SCOPE);
 
-	  fcns = global_sym_tab->name_list (fcount, tmp, false,
-					    symbol_record::USER_FUNCTION,
-					    SYMTAB_ALL_SCOPES);
+	  fcns = global_sym_tab->name_list
+	    (fcount, tmp, false,
+	     symbol_record::USER_FUNCTION|symbol_record::DLD_FUNCTION,
+	     SYMTAB_ALL_SCOPES);
 	}
 
       // XXX FIXME XXX -- this needs to be optimized to avoid the