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

[Tcl] Fix std_vector typecheck typemaps

Browse source 
In some cases the typecheck typemap would try to access the first
element of an empty Tcl list.

Fixes https://sourceforge.net/p/swig/bugs/1309/
This commit is contained in:
Olly Betts 2022-02-01 13:08:13 +13:00
commit 6f4adde4b4
2 changed files with 19 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Examples/test-suite/tcl/li_std_vector_runme.tcl Normal file
View file

@ -0,0 +1,7 @@
if [ catch { load ./li_std_vector[info sharedlibextension] li_std_vector} err_msg ] {
puts stderr "Could not load shared object:\n$err_msg"
}
# # Regression test for bug fixed in SWIG 4.2.0.
if {[sum []] != 0} { error "bad vector sum" }

4
Lib/tcl/std_vector.i
View file

@ -332,7 +332,7 @@ namespace std {
if (nitems == 0) if (nitems == 0)
$1 = 1; $1 = 1;
//check the first value to see if it is of correct type //check the first value to see if it is of correct type
if (CONVERT_FROM(interp, listobjv[0], &temp) == TCL_ERROR) else if (CONVERT_FROM(interp, listobjv[0], &temp) == TCL_ERROR)
$1 = 0; $1 = 0;
else else
$1 = 1; $1 = 1;
@ -359,7 +359,7 @@ namespace std {
if (nitems == 0) if (nitems == 0)
$1 = 1; $1 = 1;
//check the first value to see if it is of correct type //check the first value to see if it is of correct type
if (CONVERT_FROM(interp, listobjv[0], &temp) == TCL_ERROR) else if (CONVERT_FROM(interp, listobjv[0], &temp) == TCL_ERROR)
$1 = 0; $1 = 0;
else else
$1 = 1; $1 = 1;