* clmodule.c (doParams): free PVbuffer in error condition.

* frameobject.c (newframeobject): initialize ob_type if taking entry
  from the free list, since it is zeroed out when DEBUG is defined.

diff --git a/Modules/clmodule.c b/Modules/clmodule.c
index a9a378e3451fafef8fe5f88cddf1b17642b08c7f..63e81db47076c2d5e46a6b9eee94a9bb12e45457 100644 (file)
--- a/Modules/clmodule.c
+++ b/Modules/clmodule.c
@@ -365,8 +365,10 @@ doParams(clobject *self, object *args, int (*func)(CL_Handle, int *, int),
 
        error_handler_called = 0;
        (*func)(self->ob_compressorHdl, PVbuffer, length);
-       if (error_handler_called)
+       if (error_handler_called) {
+               DEL(PVbuffer);
                return NULL;
+       }
 
        if (modified) {
                for (i = 0; i < length; i++) {

diff --git a/Objects/frameobject.c b/Objects/frameobject.c
index 62a18e20b6a4c7ee8322974cb4765f91151a9f41..0b5e75c034591e6890d336e246dcbb5b4bf60828 100644 (file)
--- a/Objects/frameobject.c
+++ b/Objects/frameobject.c
@@ -137,6 +137,7 @@ newframeobject(back, code, globals, locals, owner, nvalues, nblocks)
        else {
                f = free_list;
                free_list = free_list->f_back;
+               f->ob_type = &Frametype;
                NEWREF(f);
        }
        if (f != NULL) {