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

Fix in Perl out-typemap for std::vector (thanks to Josh Cherry)

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5980 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Luigi Ballabio 2004-06-11 07:37:41 +00:00
commit 13374b6a80
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Lib/perl5/std_vector.i
View file

@ -139,8 +139,9 @@ namespace std {
int len = $1.size(); int len = $1.size();
SV **svs = new SV*[len]; SV **svs = new SV*[len];
for (unsigned int i=0; i<len; i++) { for (unsigned int i=0; i<len; i++) {
T* ptr = new T($1[i]);
svs[i] = sv_newmortal(); svs[i] = sv_newmortal();
SWIG_MakePtr(svs[i], (void*)&($1[i]), SWIG_MakePtr(svs[i], (void*) ptr,
$descriptor(T *), $shadow|$owner); $descriptor(T *), $shadow|$owner);
} }
AV *myav = av_make(len, svs); AV *myav = av_make(len, svs);