diff options
| author | Robert Stone <talby@trap.mtview.ca.us> | 2012-04-18 21:49:32 +0000 |
|---|---|---|
| committer | Robert Stone <talby@trap.mtview.ca.us> | 2012-04-18 21:49:32 +0000 |
| commit | 121086fb77bdde585c5e80becb049ded680bdce0 (patch) | |
| tree | 65c3955ed4a0a8350401404bf276c10ae3e6bdc9 /Lib/perl5 | |
| parent | 4b1fdf5c55e1112922e8a0191e00b6782f036360 (diff) | |
| download | swig-121086fb77bdde585c5e80becb049ded680bdce0.tar.gz | |
* revert perl5 li_typemaps run tests due to Windows regressions.
* 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
Diffstat (limited to 'Lib/perl5')
| -rw-r--r-- | Lib/perl5/perlprimtypes.swg | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Lib/perl5/perlprimtypes.swg b/Lib/perl5/perlprimtypes.swg index 9420a2f41..15e8feef3 100644 --- a/Lib/perl5/perlprimtypes.swg +++ b/Lib/perl5/perlprimtypes.swg @@ -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]; |