Fixed [ 763522 ] 1.3.19 segfault in SwigType_add_pointer/DohInsertitem.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5000 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2003-08-15 18:22:08 +00:00
commit ffec8016d8

View file

@ -319,6 +319,9 @@ public:
for (cls = Firstitem(classlist); cls; cls = Nextitem(classlist)) {
if (Getattr(cls,"perl5:proxy")) {
SwigType *type = Copy(Getattr(cls,"classtype"));
if (!type) continue; /* If unnamed class, no type will be found */
SwigType_add_pointer(type);
String *mangle = NewStringf("\"%s\"", SwigType_manglestr(type));
String *rep = NewStringf("\"%s\"", Getattr(cls,"perl5:proxy"));