Mercurial > hg > octave-lyh

comparison src/pt-misc.cc @ 7336:745a8299c2b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-12-28 20:56:55 by jwe]
author jwe
date Fri, 28 Dec 2007 20:56:58 +0000
parents a1dbe9d80eee
children 1f662945c2be
comparison
equal deleted inserted replaced
7335:58f5fab3ebe5 7336:745a8299c2b5
73 if (++count > nargout) 73 if (++count > nargout)
74 break; 74 break;
75 75
76 tree_decl_elt *elt = *p; 76 tree_decl_elt *elt = *p;
77 77
78 if (! elt->is_defined ()) 78 if (! elt->is_variable ())
79 { 79 {
80 if (! warned) 80 if (! warned)
81 { 81 {
82 warned = true; 82 warned = true;
83 83
175 175
176 for (iterator p = begin (); p != end (); p++) 176 for (iterator p = begin (); p != end (); p++)
177 { 177 {
178 tree_decl_elt *elt = *p; 178 tree_decl_elt *elt = *p;
179 179
180 if (! elt->is_defined ()) 180 if (! elt->is_variable ())
181 { 181 {
182 status = false; 182 status = false;
183 break; 183 break;
184 } 184 }
185 } 185 }
186 186
187 return status; 187 return status;
188 } 188 }
189 189
190 tree_parameter_list * 190 tree_parameter_list *
191 tree_parameter_list::dup (symbol_table *sym_tab) 191 tree_parameter_list::dup (symbol_table::scope_id scope)
192 { 192 {
193 tree_parameter_list *new_list = new tree_parameter_list (); 193 tree_parameter_list *new_list = new tree_parameter_list ();
194 194
195 if (takes_varargs ()) 195 if (takes_varargs ())
196 new_list->mark_varargs (); 196 new_list->mark_varargs ();
197 197
198 for (iterator p = begin (); p != end (); p++) 198 for (iterator p = begin (); p != end (); p++)
199 { 199 {
200 tree_decl_elt *elt = *p; 200 tree_decl_elt *elt = *p;
201 201
202 new_list->append (elt->dup (sym_tab)); 202 new_list->append (elt->dup (scope));
203 } 203 }
204 204
205 return new_list; 205 return new_list;
206 } 206 }
207 207
222 erase (p); 222 erase (p);
223 } 223 }
224 } 224 }
225 225
226 tree_return_list * 226 tree_return_list *
227 tree_return_list::dup (symbol_table *sym_tab) 227 tree_return_list::dup (symbol_table::scope_id scope)
228 { 228 {
229 tree_return_list *new_list = new tree_return_list (); 229 tree_return_list *new_list = new tree_return_list ();
230 230
231 for (iterator p = begin (); p != end (); p++) 231 for (iterator p = begin (); p != end (); p++)
232 { 232 {
233 tree_index_expression *elt = *p; 233 tree_index_expression *elt = *p;
234 234
235 new_list->append (elt->dup (sym_tab)); 235 new_list->append (elt->dup (scope));
236 } 236 }
237 237
238 return new_list; 238 return new_list;
239 } 239 }
240 240