diff options
| author | Vishal Bhatia <vishal@deja.com> | 1998-12-09 08:50:30 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1998-12-29 12:41:31 +0000 |
| commit | 7dbaefaf7fd4c8163c86138a8770e9263ceb1155 (patch) | |
| tree | e8cf684127c541d155e0a53c14e1064119e908d0 | |
| parent | cfaf527eb4b7a6905c549ce74f6f932b640d93a8 (diff) | |
| download | perl-7dbaefaf7fd4c8163c86138a8770e9263ceb1155.tar.gz | |
return value of perlcc/B::CC generated functions.
To: nick@ni-s.u-net.com
Cc: perl5-porters@perl.org
Message-ID: <MLIST_19981209043146.16829.qmail@hotmail.com>
p4raw-id: //depot/cfgperl@2523
| -rw-r--r-- | ext/B/B/CC.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/B/B/CC.pm b/ext/B/B/CC.pm index a0e0bb94f6..14c70fe705 100644 --- a/ext/B/B/CC.pm +++ b/ext/B/B/CC.pm @@ -1064,7 +1064,7 @@ sub pp_return { write_back_lexicals(REGISTER|TEMPORARY); write_back_stack(); doop($op); - runtime("PUTBACK;", "return (PL_op)?PL_op->op_next:0;"); + runtime("PUTBACK;", "return PL_op;"); $know_op = 0; return $op->next; } @@ -1357,7 +1357,7 @@ sub cc { $need_freetmps = 0; } if (!$$op) { - runtime("PUTBACK;","return (PL_op)?PL_op->op_next:0;"); + runtime("PUTBACK;","return PL_op;"); } elsif ($done{$$op}) { runtime(sprintf("goto %s;", label($op))); } |