Make struct regexp the body of SVt_REGEXP SVs, REGEXPs become SVs,

[p5sagit/p5-mst-13.2.git] / ext / B / B.xs

diff --git a/ext/B/B.xs b/ext/B/B.xs
index a6f1d22..8f22122 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -1514,18 +1514,16 @@ IV
 REGEX(sv)
        B::REGEXP       sv
     CODE:
-       RETVAL = PTR2IV(((struct xregexp *)SvANY(sv))->xrx_regexp);
+       /* FIXME - can we code this method more efficiently?  */
+       RETVAL = PTR2IV(sv);
     OUTPUT:
         RETVAL
 
 SV*
 precomp(sv)
        B::REGEXP       sv
-       REGEXP* rx = NO_INIT
     CODE:
-       rx = ((struct xregexp *)SvANY(sv))->xrx_regexp;
-       /* FIXME - UTF-8? And the equivalent precomp methods? */
-       RETVAL = newSVpvn( RX_PRECOMP(rx), RX_PRELEN(rx) );
+       RETVAL = newSVpvn( RX_PRECOMP(sv), RX_PRELEN(sv) );
     OUTPUT:
         RETVAL