From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 28 Dec 2006 23:57:16 +0000 (+0000)
Subject: Eliminate BmPREVIOUS_set - with the complexity gone from how the datum
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=44a10c71f5d5adc63a15c1d8fb5e8b72de48836f;p=p5sagit%2Fp5-mst-13.2.git

Eliminate BmPREVIOUS_set - with the complexity gone from how the datum
is stored, there's no need for it.

p4raw-id: //depot/perl@29635
---

diff --git a/sv.h b/sv.h
index 60c606a..f7a7ba0 100644
--- a/sv.h
+++ b/sv.h
@@ -1464,8 +1464,6 @@ the scalar's value cannot change unless written to.
 #  define BmPREVIOUS(sv)	((XPVGV*) SvANY(sv))->xnv_u.xbm_s.xbm_previous
 
 #endif
-#define BmPREVIOUS_set(sv, val)						\
-    STMT_START { BmPREVIOUS(sv) = val; } STMT_END
 
 #define FmLINES(sv)	((XPVFM*)  SvANY(sv))->xfm_lines
 
diff --git a/util.c b/util.c
index 1c64b94..2eded6f 100644
--- a/util.c
+++ b/util.c
@@ -525,7 +525,7 @@ Perl_fbm_compile(pTHX_ SV *sv, U32 flags)
 	}
     }
     BmRARE(sv) = s[rarest];
-    BmPREVIOUS_set(sv, rarest);
+    BmPREVIOUS(sv) = rarest;
     BmUSEFUL(sv) = 100;			/* Initial value */
     if (flags & FBMcf_TAIL)
 	SvTAIL_on(sv);