Mercurial > hg > xemacs-beta
diff modules/postgresql/postgresql.c @ 5143:186aebf7f6c6
merge
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Sat, 13 Mar 2010 11:38:54 -0600 |
| parents | f965e31a35f0 |
| children | 8bda66cd0414 |
line wrap: on
line diff
--- a/modules/postgresql/postgresql.c Sat Mar 13 05:38:34 2010 -0600 +++ b/modules/postgresql/postgresql.c Sat Mar 13 11:38:54 2010 -0600 @@ -253,7 +253,7 @@ strcpy (buf, "#<PGconn connecting>"); /* evil! */ if (print_readably) - printing_unreadable_object ("%s", buf); + printing_unreadable_object_fmt ("%s", buf); else write_cistring (printcharfun, buf); } @@ -295,9 +295,9 @@ #else /* not RUNNING_XEMACS_21_4 */ static void -finalize_pgconn (void *header) +finalize_pgconn (Lisp_Object obj) { - Lisp_PGconn *pgconn = (Lisp_PGconn *)header; + Lisp_PGconn *pgconn = XPGCONN (obj); if (pgconn->pgconn) { @@ -401,7 +401,7 @@ strcpy (buf, "#<PGresult DEAD>"); /* evil! */ if (print_readably) - printing_unreadable_object ("%s", buf); + printing_unreadable_object_fmt ("%s", buf); else write_cistring (printcharfun, buf); } @@ -447,9 +447,9 @@ #else /* not RUNNING_XEMACS_21_4 */ static void -finalize_pgresult (void *header) +finalize_pgresult (Lisp_Object obj) { - Lisp_PGresult *pgresult = (Lisp_PGresult *)header; + Lisp_PGresult *pgresult = XPGRESULT (obj); if (pgresult->pgresult) {