diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2014-02-04 06:38:55 -0300 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2014-02-04 12:57:53 +0000 |
| commit | 24120986965f248417d199c5818d145ea2a34607 (patch) | |
| tree | 9f32761aec6251fa9614a67310bc83266d47d59c /vxs.inc | |
| parent | 1ab48e3ad30800bfaff52faeea827eb2d57b1c28 (diff) | |
| download | perl-24120986965f248417d199c5818d145ea2a34607.tar.gz | |
vutil.c, vxs.inc: Avoid warnings from -Wmissing-prototypes -Wundef -Wunused-label
-Wmissing-prototypes was complaining about declaring XS()
functions without previously declaring a prototype.
-Wundef didn't like using #if foo instead of #ifdef foo
-Wunused-label warned because VER_{IV,NM,PV} were defined on all
versions of perl, but only used on < 5.17.2
Diffstat (limited to 'vxs.inc')
| -rw-r--r-- | vxs.inc | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -12,7 +12,7 @@ /* proto member is unused in version, it is used in CORE by non version xsubs */ # define VXSXSDP(x) #endif -#define VXS(name) XS(VXSp(name)) +#define VXS(name) XS(VXSp(name)); XS(VXSp(name)) /* uses PUSHs, so SP must be at start, PUSHs sv on Perl stack, then returns from xsub; this is a little more machine code/tailcall friendly than mPUSHs(foo); |