* 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.

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++) {

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) {