From 6829f5e2f12086d827b73097d3d0c7a306c68f16 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 30 Oct 2010 12:09:26 +0100
Subject: [PATCH] Merge the implementation of B::IV::{needs64bits,packiv} using
 ALIAS.

---
 ext/B/B.xs | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/ext/B/B.xs b/ext/B/B.xs
index a05cbc6..42bc5e5 100644
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -1340,17 +1340,15 @@ SvUVX(sv)
 
 MODULE = B	PACKAGE = B::IV
 
-#define needs64bits(sv) ((I32)SvIVX(sv) != SvIVX(sv))
-
-int
-needs64bits(sv)
-	B::IV	sv
-
 void
 packiv(sv)
 	B::IV	sv
+    ALIAS:
+	needs64bits = 1
     CODE:
-	if (sizeof(IV) == 8) {
+	if (ix) {
+	    ST(0) = boolSV((I32)SvIVX(sv) != SvIVX(sv));
+	} else if (sizeof(IV) == 8) {
 	    U32 wp[2];
 	    const IV iv = SvIVX(sv);
 	    /*
-- 
2.7.4