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

VC++ warning fixes

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10032 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2007-10-23 22:09:24 +00:00
commit 6456ed936d
1 changed files with 4 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Lib/perl5/std_vector.i
View file

@ -130,7 +130,6 @@ namespace std {
/* native sequence? */ /* native sequence? */
AV *av = (AV *)SvRV($input); AV *av = (AV *)SvRV($input);
if (SvTYPE(av) == SVt_PVAV) { if (SvTYPE(av) == SVt_PVAV) {
SV **tv;
I32 len = av_len(av) + 1; I32 len = av_len(av) + 1;
if (len == 0) { if (len == 0) {
/* an empty sequence can be of any type */ /* an empty sequence can be of any type */
@ -138,7 +137,7 @@ namespace std {
} else { } else {
/* check the first element only */ /* check the first element only */
T* obj; T* obj;
tv = av_fetch(av, 0, 0); SV **tv = av_fetch(av, 0, 0);
if (SWIG_ConvertPtr(*tv, (void **)&obj, if (SWIG_ConvertPtr(*tv, (void **)&obj,
$descriptor(T *),0) != -1) $descriptor(T *),0) != -1)
$1 = 1; $1 = 1;
@ -163,7 +162,6 @@ namespace std {
/* native sequence? */ /* native sequence? */
AV *av = (AV *)SvRV($input); AV *av = (AV *)SvRV($input);
if (SvTYPE(av) == SVt_PVAV) { if (SvTYPE(av) == SVt_PVAV) {
SV **tv;
I32 len = av_len(av) + 1; I32 len = av_len(av) + 1;
if (len == 0) { if (len == 0) {
/* an empty sequence can be of any type */ /* an empty sequence can be of any type */
@ -171,7 +169,7 @@ namespace std {
} else { } else {
/* check the first element only */ /* check the first element only */
T* obj; T* obj;
tv = av_fetch(av, 0, 0); SV **tv = av_fetch(av, 0, 0);
if (SWIG_ConvertPtr(*tv, (void **)&obj, if (SWIG_ConvertPtr(*tv, (void **)&obj,
$descriptor(T *),0) != -1) $descriptor(T *),0) != -1)
$1 = 1; $1 = 1;
@ -333,7 +331,6 @@ namespace std {
/* native sequence? */ /* native sequence? */
AV *av = (AV *)SvRV($input); AV *av = (AV *)SvRV($input);
if (SvTYPE(av) == SVt_PVAV) { if (SvTYPE(av) == SVt_PVAV) {
SV **tv;
I32 len = av_len(av) + 1; I32 len = av_len(av) + 1;
if (len == 0) { if (len == 0) {
/* an empty sequence can be of any type */ /* an empty sequence can be of any type */
@ -474,14 +471,13 @@ namespace std {
/* native sequence? */ /* native sequence? */
AV *av = (AV *)SvRV($input); AV *av = (AV *)SvRV($input);
if (SvTYPE(av) == SVt_PVAV) { if (SvTYPE(av) == SVt_PVAV) {
SV **tv;
I32 len = av_len(av) + 1; I32 len = av_len(av) + 1;
if (len == 0) { if (len == 0) {
/* an empty sequence can be of any type */ /* an empty sequence can be of any type */
$1 = 1; $1 = 1;
} else { } else {
/* check the first element only */ /* check the first element only */
tv = av_fetch(av, 0, 0); SV **tv = av_fetch(av, 0, 0);
if (CHECK_T(*tv)) if (CHECK_T(*tv))
$1 = 1; $1 = 1;
else else
@ -505,14 +501,13 @@ namespace std {
/* native sequence? */ /* native sequence? */
AV *av = (AV *)SvRV($input); AV *av = (AV *)SvRV($input);
if (SvTYPE(av) == SVt_PVAV) { if (SvTYPE(av) == SVt_PVAV) {
SV **tv;
I32 len = av_len(av) + 1; I32 len = av_len(av) + 1;
if (len == 0) { if (len == 0) {
/* an empty sequence can be of any type */ /* an empty sequence can be of any type */
$1 = 1; $1 = 1;
} else { } else {
/* check the first element only */ /* check the first element only */
tv = av_fetch(av, 0, 0); SV **tv = av_fetch(av, 0, 0);
if (CHECK_T(*tv)) if (CHECK_T(*tv))
$1 = 1; $1 = 1;
else else