Seg fault fix running uffi tests

This commit is contained in:
William S Fulton 2018-01-13 07:57:30 +00:00
commit 9b0e06a8e8

View file

@ -363,6 +363,7 @@ int UFFI::classHandler(Node *n) {
for (c = firstChild(n); c; c = nextSibling(c)) { for (c = firstChild(n); c; c = nextSibling(c)) {
SwigType *type = Getattr(c, "type"); SwigType *type = Getattr(c, "type");
SwigType *decl = Getattr(c, "decl"); SwigType *decl = Getattr(c, "decl");
if (type) {
type = Copy(type); type = Copy(type);
SwigType_push(type, decl); SwigType_push(type, decl);
String *lisp_type; String *lisp_type;
@ -373,7 +374,6 @@ int UFFI::classHandler(Node *n) {
SWIG_exit(EXIT_FAILURE); SWIG_exit(EXIT_FAILURE);
} }
/* Printf(stdout, "Converting %s in %s\n", type, name); */ /* Printf(stdout, "Converting %s in %s\n", type, name); */
lisp_type = get_ffi_type(n, type, Getattr(c, "sym:name")); lisp_type = get_ffi_type(n, type, Getattr(c, "sym:name"));
@ -381,6 +381,7 @@ int UFFI::classHandler(Node *n) {
Delete(lisp_type); Delete(lisp_type);
} }
}
// Language::classHandler(n); // Language::classHandler(n);