Mercurial > hg > octave-nkf
diff src/parse.y @ 6657:86354a8cd6a7
[project @ 2007-05-23 04:35:04 by jwe]
author | jwe |
---|---|
date | Wed, 23 May 2007 04:35:04 +0000 |
parents | 6a7fc4105bcc |
children | c05fbb1b7e1f |
line wrap: on
line diff
--- a/src/parse.y +++ b/src/parse.y @@ -1782,28 +1782,7 @@ symtab_context.pop (); if (stmt && stmt->is_expression ()) - { - symbol_record *sr = fcn_sym_tab->lookup ("__retval__", true); - - tree_expression *e = stmt->expression (); - - tree_identifier *id = new tree_identifier (sr); - - tree_simple_assignment *asn = new tree_simple_assignment (id, e); - - stmt->set_expression (asn); - - stmt->set_print_flag (false); - - // FIXME -- would like to delete old_stmt here or - // replace expression inside it with the new expression we just - // created so we don't have to create a new statement at all. - - id = new tree_identifier (sr); - tree_decl_elt *elt = new tree_decl_elt (id); - - ret_list = new tree_parameter_list (elt); - } + stmt->set_print_flag (false); tree_statement_list *body = new tree_statement_list (stmt);