Change 31653 by [EMAIL PROTECTED] on 2007/07/25 12:15:18
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/perl/XSUB.h#123 edit
... //depot/perl/pod/perlxs.pod#51 edit
Differences ...
==== //depot/perl/XSUB.h#123 (text) ====
Index: perl/XSUB.h
--- perl/XSUB.h#122~31270~ 2007-05-25 00:46:08.000000000 -0700
+++ perl/XSUB.h 2007-07-25 05:15:18.000000000 -0700
@@ -144,11 +144,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/perl/pod/perlxs.pod#51 (text) ====
Index: perl/pod/perlxs.pod
--- perl/pod/perlxs.pod#50~30310~ 2007-02-15 01:34:01.000000000 -0800
+++ perl/pod/perlxs.pod 2007-07-25 05:15:18.000000000 -0700
@@ -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.
