From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Mon, 5 May 1997 19:41:18 +0000 (+0000)
Subject: Don't make pp_enter and pp_return trigger basic blocks.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d5f18de1c6876ec99531da53f98f6972dd2d13c4;p=p5sagit%2Fp5-mst-13.2.git

Don't make pp_enter and pp_return trigger basic blocks.

p4raw-id: //depot/perlext/Compiler@13
---

diff --git a/B/Bblock.pm b/B/Bblock.pm
index 2adca70..125c8a3 100644
--- a/B/Bblock.pm
+++ b/B/Bblock.pm
@@ -62,14 +62,7 @@ sub walk_bblocks_obj {
     walk_bblocks($cv->ROOT, $cv->START);
 }
 
-sub B::OP::mark_if_leader {
-    my $op = shift;
-    my $ppaddr = $op->ppaddr;
-#    if ($ppaddr eq "pp_enter" || $ppaddr eq "pp_entersub" || $ppaddr eq "pp_return") {
-    if ($ppaddr eq "pp_enter" || $ppaddr eq "pp_return") {
-	mark_leader($op->next);
-    }
-}
+sub B::OP::mark_if_leader {}
 
 sub B::COP::mark_if_leader {
     my $op = shift;
@@ -136,7 +129,7 @@ sub compile {
 
 # Basic block leaders:
 #     Any COP (pp_nextstate) with a non-NULL label
-#     The op after a pp_enter
+#     [The op after a pp_enter] Omit
 #     [The op after a pp_entersub. Don't count this one.]
 #     The ops pointed at by nextop, redoop and lastop->op_next of a LOOP
 #     The ops pointed at by op_next and op_other of a LOGOP, except
@@ -144,6 +137,6 @@ sub compile {
 #     The ops pointed at by op_true and op_false of a CONDOP
 #     The op pointed at by op_pmreplstart of a PMOP
 #     The op pointed at by op_other->op_pmreplstart of pp_substcont?
-#     The op after a pp_return
+#     [The op after a pp_return] Omit
 
 1;