define SvIOK_UV if missing
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8776 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
e1f152104f
commit
774a40c822
1 changed files with 4 additions and 0 deletions
|
|
@ -165,6 +165,10 @@ typedef int (*SwigMagicFuncHack)(struct interpreter *, SV *, MAGIC *);
|
|||
|
||||
/* Add in functionality missing in older versions of Perl. Much of this is based on Devel-PPPort on cpan. */
|
||||
|
||||
#ifndef SvIOK_UV
|
||||
# define SvIOK_UV(sv) (SvIOK(sv) && (SvUVX(sv) == SvIVX(sv)))
|
||||
#endif
|
||||
|
||||
#ifndef SvUOK
|
||||
# define SvUOK(sv) SvIOK_UV(sv)
|
||||
#endif
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue