Mercurial > hg > xemacs-beta

comparison modules/postgresql/postgresql.c @ 5141:0dcd22290039

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix issues with finalizers in number.c, postgresql, ldap -------------------- ChangeLog entries follow: -------------------- modules/ChangeLog addition: 2010-03-07 Ben Wing <ben@xemacs.org> * postgresql/postgresql.c (finalize_pgconn): * postgresql/postgresql.c (finalize_pgresult): * ldap/eldap.c (finalize_ldap): Fix the finalizers to go with the new calling sequence. Done previously but somehow got lost. src/ChangeLog addition: 2010-03-07 Ben Wing <ben@xemacs.org> * number.c (bignum_finalize): * number.c (ratio_finalize): * number.c (bigfloat_finalize): Fix the finalizers to go with the new calling sequence. Done previously but somehow got lost.
author Ben Wing <ben@xemacs.org>
date Sun, 07 Mar 2010 19:26:04 -0600
parents a9c41067dd88
children f965e31a35f0
comparison
equal deleted inserted replaced
5135:59bac09f31d2 5141:0dcd22290039
293 } 293 }
294 294
295 #else /* not RUNNING_XEMACS_21_4 */ 295 #else /* not RUNNING_XEMACS_21_4 */
296 296
297 static void 297 static void
298 finalize_pgconn (void *header) 298 finalize_pgconn (Lisp_Object obj)
299 { 299 {
300 Lisp_PGconn *pgconn = (Lisp_PGconn *)header; 300 Lisp_PGconn *pgconn = XPGCONN (obj);
301 301
302 if (pgconn->pgconn) 302 if (pgconn->pgconn)
303 { 303 {
304 PQfinish (pgconn->pgconn); 304 PQfinish (pgconn->pgconn);
305 pgconn->pgconn = (PGconn *)NULL; 305 pgconn->pgconn = (PGconn *)NULL;
445 } 445 }
446 446
447 #else /* not RUNNING_XEMACS_21_4 */ 447 #else /* not RUNNING_XEMACS_21_4 */
448 448
449 static void 449 static void
450 finalize_pgresult (void *header) 450 finalize_pgresult (Lisp_Object obj)
451 { 451 {
452 Lisp_PGresult *pgresult = (Lisp_PGresult *)header; 452 Lisp_PGresult *pgresult = XPGRESULT (obj);
453 453
454 if (pgresult->pgresult) 454 if (pgresult->pgresult)
455 { 455 {
456 PQclear (pgresult->pgresult); 456 PQclear (pgresult->pgresult);
457 pgresult->pgresult = (PGresult *)NULL; 457 pgresult->pgresult = (PGresult *)NULL;