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

diff --git a/ext/B/B/CC.pm b/ext/B/B/CC.pm
index a0e0bb9..14c70fe 100644 (file)
--- 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)));
        }