jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* revert perl5 li_typemaps run tests due to Windows regressions.

Browse source 
* stricter casting to sidestep compiler warnings on Windows.


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@13002 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Robert Stone 2012-04-18 21:49:32 +00:00
commit 121086fb77
2 changed files with 62 additions and 86 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Lib/perl5/perlprimtypes.swg
View file

@ -23,7 +23,7 @@ SWIG_AsVal_dec(bool)(SV *obj, bool* val)
if (val) *val = false;
return SWIG_OK;
} else {
if (val) *val = SvTRUE(obj);
if (val) *val = (bool)(SvTRUE(obj));
return SWIG_AddCast(SWIG_OK);
}
}
@ -171,7 +171,7 @@ SWIG_From_dec(long long)(long long value)
{
SV *sv;
if (value >= IV_MIN && value <= IV_MAX)
sv = newSViv(value);
sv = newSViv((IV)(value));
else {
//sv = newSVpvf("%lld", value); doesn't work in non 64bit Perl
char temp[256];
@ -248,7 +248,7 @@ SWIG_From_dec(unsigned long long)(unsigned long long value)
{
SV *sv;
if (value <= UV_MAX)
sv = newSVuv(value);
sv = newSVuv((UV)(value));
else {
//sv = newSVpvf("%llu", value); doesn't work in non 64bit Perl
char temp[256];