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

Warning messages.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5453 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2003-12-01 13:38:08 +00:00
commit 5572880cf5
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
SWIG/Examples/perl5/multimap/example.i
View file

@ -36,7 +36,7 @@ extern int gcd(int x, int y);
extern int gcdmain(int argc, char *argv[]); extern int gcdmain(int argc, char *argv[]);
%typemap(perl5,in) (char *bytes, int len) { %typemap(perl5,in) (char *bytes, int len) {
unsigned int temp; STRLEN temp;
$1 = (char *) SvPV($input, temp); $1 = (char *) SvPV($input, temp);
$2 = (int) temp; $2 = (int) temp;
} }
@ -47,7 +47,7 @@ extern int count(char *bytes, int len, char c);
/* This example shows how to wrap a function that mutates a string */ /* This example shows how to wrap a function that mutates a string */
%typemap(perl5,in) (char *str, int len) { %typemap(perl5,in) (char *str, int len) {
unsigned int templen; STRLEN templen;
char *temp; char *temp;
temp = (char *) SvPV($input,templen); temp = (char *) SvPV($input,templen);
$2 = (int) templen; $2 = (int) templen;