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

fix for null-reference 1038359

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@6672 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2004-11-05 02:49:10 +00:00
commit ebb79ea831
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
SWIG/Lib/perl5/typemaps.i
View file

@ -533,6 +533,7 @@ as follows :
{ {
SV *tempsv; SV *tempsv;
tempsv = SvRV($arg); tempsv = SvRV($arg);
if (!$1) SWIG_croak("expected a reference");
sv_setnv(tempsv, (double) *$1); sv_setnv(tempsv, (double) *$1);
} }
@ -544,6 +545,7 @@ as follows :
{ {
SV *tempsv; SV *tempsv;
tempsv = SvRV($input); tempsv = SvRV($input);
if (!$1) SWIG_croak("expected a reference");
sv_setiv(tempsv, (IV) *$1); sv_setiv(tempsv, (IV) *$1);
} }
@ -554,6 +556,7 @@ as follows :
{ {
SV *tempsv; SV *tempsv;
tempsv = SvRV($input); tempsv = SvRV($input);
if (!$1) SWIG_croak("expected a reference");
sv_setuv(tempsv, (UV) *$1); sv_setuv(tempsv, (UV) *$1);
} }