From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 25 Jun 2001 18:27:19 +0000 (+0000)
Subject: Tweak the XSFUNCTION, from Doug MacEachern, as suggested
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2554589c31907b9180ed71e0f68af5a4f1febd98;p=p5sagit%2Fp5-mst-13.2.git

Tweak the XSFUNCTION, from Doug MacEachern, as suggested
by Ilya Zakharevich in
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2001-05/msg01582.html

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

diff --git a/XSUB.h b/XSUB.h
index 87a05d0..23f292b 100644
--- a/XSUB.h
+++ b/XSUB.h
@@ -90,7 +90,7 @@ handled automatically by C<xsubpp>.
 #  define XSINTERFACE_CVT(ret,name) ret (*name)()
 #endif
 #define dXSFUNCTION(ret)		XSINTERFACE_CVT(ret,XSFUNCTION)
-#define XSINTERFACE_FUNC(ret,cv,f)	((XSINTERFACE_CVT(ret,cv))(f))
+#define XSINTERFACE_FUNC(ret,cv,f)     ((XSINTERFACE_CVT(ret,))(f))
 #define XSINTERFACE_FUNC_SET(cv,f)	\
 		CvXSUBANY(cv).any_dptr = (void (*) (pTHXo_ void*))(f)