From: Vishal Bhatia <vishal@deja.com>
Date: Wed, 9 Dec 1998 06:50:30 +0000 (+0200)
Subject: return value of perlcc/B::CC generated functions.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7dbaefaf7fd4c8163c86138a8770e9263ceb1155;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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)));
 	}