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

Reduced number of occurrences of annoying warning to 1, as reported by Gerald Williams using perl-5.8.0 and GCC3 onwards on Cygwin:

Browse source 
In function `int SWIG_ConvertPtr(SV*, void**,  swig_type_info*, int)':
warning: cast to pointer from integer of different size


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4974 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2003-08-04 22:32:02 +00:00
commit 8a54131cd2
1 changed files with 15 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

28
Lib/perl5/perlrun.swg
View file

@ -146,7 +146,7 @@ _SWIG_ConvertPtr(CPerlObj *pPerl, SV *sv, void **ptr, swig_type_info *_t, int fl
{ {
char *_c; char *_c;
swig_type_info *tc; swig_type_info *tc;
IV tmp; void *voidptr = (void *)0;
/* If magical, apply more magic */ /* If magical, apply more magic */
if (SvGMAGICAL(sv)) if (SvGMAGICAL(sv))
@ -155,24 +155,26 @@ _SWIG_ConvertPtr(CPerlObj *pPerl, SV *sv, void **ptr, swig_type_info *_t, int fl
/* Check to see if this is an object */ /* Check to see if this is an object */
if (sv_isobject(sv)) { if (sv_isobject(sv)) {
SV *tsv = (SV*) SvRV(sv); SV *tsv = (SV*) SvRV(sv);
IV tmp = 0;
if ((SvTYPE(tsv) == SVt_PVHV)) { if ((SvTYPE(tsv) == SVt_PVHV)) {
MAGIC *mg; MAGIC *mg;
if (SvMAGICAL(tsv)) { if (SvMAGICAL(tsv)) {
mg = mg_find(tsv,'P'); mg = mg_find(tsv,'P');
if (mg) { if (mg) {
SV *rsv = mg->mg_obj; SV *rsv = mg->mg_obj;
if (sv_isobject(rsv)) { if (sv_isobject(rsv)) {
tmp = SvIV((SV*)SvRV(rsv)); tmp = SvIV((SV*)SvRV(rsv));
} }
} }
} else { } else {
return -1; return -1;
} }
} else { } else {
tmp = SvIV((SV*)SvRV(sv)); tmp = SvIV((SV*)SvRV(sv));
} }
voidptr = (void *)tmp;
if (!_t) { if (!_t) {
*(ptr) = (void *) tmp; *(ptr) = voidptr;
return 0; return 0;
} }
} else if (! SvOK(sv)) { /* Check for undef */ } else if (! SvOK(sv)) { /* Check for undef */
@ -193,13 +195,13 @@ _SWIG_ConvertPtr(CPerlObj *pPerl, SV *sv, void **ptr, swig_type_info *_t, int fl
_c = HvNAME(SvSTASH(SvRV(sv))); _c = HvNAME(SvSTASH(SvRV(sv)));
tc = SWIG_TypeCheck(_c,_t); tc = SWIG_TypeCheck(_c,_t);
if (!tc) { if (!tc) {
*ptr = (void *) tmp; *ptr = voidptr;
return -1; return -1;
} }
*ptr = SWIG_TypeCast(tc,(void *)tmp); *ptr = SWIG_TypeCast(tc,voidptr);
return 0; return 0;
} }
*ptr = (void *) tmp; *ptr = voidptr;
return 0; return 0;
} }
#ifndef PERL_OBJECT #ifndef PERL_OBJECT