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

Fix previous commit

Browse source 
Revert changes inadvertently included, and fix `=` to `==`.
This commit is contained in:
Olly Betts 2022-03-20 19:44:23 +13:00
commit b2c58115d7
20 changed files with 38 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Lib/perl5/perlrun.swg
View file

@ -372,7 +372,7 @@ SWIG_Perl_ConvertPacked(SWIG_MAYBE_PERL_OBJECT SV *obj, void *ptr, int sz, swig_
swig_cast_info *tc;
const char *c = 0;
if (!obj || !SvOK(obj)) return SWIG_ERROR;
if ((!obj) || (!SvOK(obj))) return SWIG_ERROR;
c = SvPV_nolen(obj);
/* Pointer values must start with leading underscore */
if (*c != '_') return SWIG_ERROR;

4
Lib/swigrun.swg
View file

@ -318,7 +318,7 @@ SWIG_TypeCheckStruct(const swig_type_info *from, swig_type_info *ty) {
*/
SWIGRUNTIMEINLINE void *
SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory) {
return (!ty || !ty->converter) ? ptr : (*ty->converter)(ptr, newmemory);
return ((!ty) || (!ty->converter)) ? ptr : (*ty->converter)(ptr, newmemory);
}
/*
@ -328,7 +328,7 @@ SWIGRUNTIME swig_type_info *
SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr) {
swig_type_info *lastty = ty;
if (!ty || !ty->dcast) return ty;
while (ty && ty->dcast) {
while (ty && (ty->dcast)) {
ty = (*ty->dcast)(ptr);
if (ty) lastty = ty;
}