This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
return value of perlcc/B::CC generated functions.
authorVishal Bhatia <vishal@deja.com>
Wed, 9 Dec 1998 06:50:30 +0000 (08:50 +0200)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 29 Dec 1998 12:41:31 +0000 (12:41 +0000)
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

ext/B/B/CC.pm

index a0e0bb9..14c70fe 100644 (file)
@@ -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)));
        }