various warning fixes
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10549 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
4bb0e64213
commit
3463ced917
5 changed files with 22 additions and 17 deletions
|
|
@ -20,7 +20,7 @@ extern int gcd(int x, int y);
|
|||
SCM *v;
|
||||
if (!(SCM_NIMP($input) && SCM_VECTORP($input))) {
|
||||
SWIG_exception(SWIG_ValueError, "Expecting a vector");
|
||||
return;
|
||||
return 0;
|
||||
}
|
||||
$1 = SCM_LENGTH($input);
|
||||
if ($1 == 0) {
|
||||
|
|
@ -32,7 +32,7 @@ extern int gcd(int x, int y);
|
|||
if (!(SCM_NIMP(v[i]) && SCM_STRINGP(v[i]))) {
|
||||
free($2);
|
||||
SWIG_exception(SWIG_ValueError, "Vector items must be strings");
|
||||
return;
|
||||
return 0;
|
||||
}
|
||||
$2[i] = SCM_CHARS(v[i]);
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue