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

fixes for the examples and tcl to use the old Tcl_SetResult()... methods

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7962 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2005-12-09 22:39:43 +00:00
commit efcc7aeacf
8 changed files with 47 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Examples/perl5/multimap/example.i
View file

@ -31,7 +31,7 @@ extern int gcd(int x, int y);
tempav = (AV*)SvRV($input);
len = av_len(tempav);
$1 = (int) len+1;
$2 = (char **) malloc($1*sizeof(char *));
$2 = (char **) malloc(($1+1)*sizeof(char *));
for (i = 0; i < $1; i++) {
tv = av_fetch(tempav, i, 0);
$2[i] = (char *) SvPV(*tv,PL_na);