diff options
| author | Robert May <robertmay@cpan.org> | 2007-07-22 03:29:37 +0100 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2007-07-25 12:15:18 +0000 |
| commit | 4ef0c66ee576bfc2e9944029fde5fa533ac892b6 (patch) | |
| tree | b324a0a576de4e77d5cbccca8a7eedda0da7aa44 /XSUB.h | |
| parent | 5ffe0e96ac0d0114a295f2300823da96ca033b31 (diff) | |
| download | perl-4ef0c66ee576bfc2e9944029fde5fa533ac892b6.tar.gz | |
XSUB.h - silence MSVC6 compiler warning
From: "Robert May" <robertmay@cpan.org>
Message-ID: <54bdc7510707211829t67e8b82eo7d8e722e73c6a3b3@mail.gmail.com>
p4raw-id: //depot/perl@31653
Diffstat (limited to 'XSUB.h')
| -rw-r--r-- | XSUB.h | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -144,11 +144,13 @@ is a lexical $_ in scope. #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) |