Warning messages.
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5453 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
583550d010
commit
5572880cf5
1 changed files with 2 additions and 2 deletions
|
|
@ -36,7 +36,7 @@ extern int gcd(int x, int y);
|
|||
extern int gcdmain(int argc, char *argv[]);
|
||||
|
||||
%typemap(perl5,in) (char *bytes, int len) {
|
||||
unsigned int temp;
|
||||
STRLEN temp;
|
||||
$1 = (char *) SvPV($input, 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 */
|
||||
|
||||
%typemap(perl5,in) (char *str, int len) {
|
||||
unsigned int templen;
|
||||
STRLEN templen;
|
||||
char *temp;
|
||||
temp = (char *) SvPV($input,templen);
|
||||
$2 = (int) templen;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue