diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-12-10 20:02:07 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-12-10 20:02:07 -0600 |
commit | 21f4126b5fdf6fe80a12e85574b9f8a9134ca610 (patch) | |
tree | e86bf4ae1fe6407a9f8a411f539a794865c4bd52 | |
parent | 96545a9df27f543cd202626a8322c78b45ef3a92 (diff) | |
download | package-stash-xs-21f4126b5fdf6fe80a12e85574b9f8a9134ca610.tar.gz package-stash-xs-21f4126b5fdf6fe80a12e85574b9f8a9134ca610.zip |
need these for older perl versions
-rw-r--r-- | XS.xs | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -28,6 +28,14 @@ #define GvCV_set(gv, cv) (GvCV(gv) = (CV*)(cv)) #endif +#ifndef MUTABLE_PTR +#define MUTABLE_PTR(p) ((void *) (p)) +#endif + +#ifndef MUTABLE_SV +#define MUTABLE_SV(p) ((SV *)MUTABLE_PTR(p)) +#endif + #ifndef SVT_SCALAR #define SVT_SCALAR(svt) (svt <= SVt_PVLV) #endif |