Change 33185 by [EMAIL PROTECTED] on 2008/02/02 15:04:50
Integrate:
[ 31653]
Subject: [PATCH] XSUB.h - silence MSVC6 compiler warning
From: "Robert May" <[EMAIL PROTECTED]>
Date: Sun, 22 Jul 2007 02:29:37 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/maint-5.8/perl/XSUB.h#43 integrate
... //depot/maint-5.8/perl/pod/perlxs.pod#12 integrate
Differences ...
==== //depot/maint-5.8/perl/XSUB.h#43 (text) ====
Index: perl/XSUB.h
--- perl/XSUB.h#42~33180~ 2008-02-01 14:57:38.000000000 -0800
+++ perl/XSUB.h 2008-02-02 07:04:50.000000000 -0800
@@ -151,11 +151,13 @@
#ifdef __cplusplus
# define XSINTERFACE_CVT(ret,name) ret (*name)(...)
+# define XSINTERFACE_CVT_ANON(ret) ret (*)(...)
#else
# define XSINTERFACE_CVT(ret,name) ret (*name)()
+# define XSINTERFACE_CVT_ANON(ret) ret (*)()
#endif
#define dXSFUNCTION(ret) XSINTERFACE_CVT(ret,XSFUNCTION)
-#define XSINTERFACE_FUNC(ret,cv,f) ((XSINTERFACE_CVT(ret,))(f))
+#define XSINTERFACE_FUNC(ret,cv,f) ((XSINTERFACE_CVT_ANON(ret))(f))
#define XSINTERFACE_FUNC_SET(cv,f) \
CvXSUBANY(cv).any_dxptr = (void (*) (pTHX_ void*))(f)
==== //depot/maint-5.8/perl/pod/perlxs.pod#12 (text) ====
Index: perl/pod/perlxs.pod
--- perl/pod/perlxs.pod#11~32259~ 2007-11-09 14:28:10.000000000 -0800
+++ perl/pod/perlxs.pod 2008-02-02 07:04:50.000000000 -0800
@@ -1391,7 +1391,7 @@
C<subtract_off>. Then one can use
#define XSINTERFACE_FUNC_BYOFFSET(ret,cv,f) \
- ((XSINTERFACE_CVT(ret,))fp[CvXSUBANY(cv).any_i32])
+ ((XSINTERFACE_CVT_ANON(ret))fp[CvXSUBANY(cv).any_i32])
#define XSINTERFACE_FUNC_BYOFFSET_set(cv,f) \
CvXSUBANY(cv).any_i32 = CAT2( f, _off )
End of Patch.
