Mercurial > hg > xemacs-beta

comparison modules/postgresql/postgresql.h @ 3024:b7f26b2f78bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-10-25 08:32:40 by ben] more mc-alloc-related factoring; make it hard to do the wrong thing postgresql/postgresql.c, postgresql/postgresql.h: MC-Alloc refactoring. ldap/eldap.c, ldap/eldap.h: MC-Alloc refactoring. alloc.c, buffer.c, console.c, emacs.c, file-coding.c, lrecord.h, lstream.c, mule-charset.c, print.c, scrollbar-gtk.c, scrollbar-msw.c, scrollbar-x.c, scrollbar.c, symbols.c, symeval.h, unicode.c, window.c, xemacs.def.in.in: rename `struct lcrecord_header' to `struct old_lcrecord_header'; likewise for `old_basic_alloc_lcrecord', `old_free_lcrecord', `old_zero_lcrecord', `old_zero_sized_lcrecord', `old_copy_lcrecord', `old_copy_sized_lcrecord', `old_alloc_lcrecord_type'. Created new LISPOBJ_STORAGE_SIZE() used only on objects created through allocation of Lisp-Object memory instead of basic xmalloc()/xfree(). This is distinguished from malloced_storage_size(), for non-Lisp-Objects. The definition of LISPOBJ_STORAGE_SIZE() can reduce down to malloced_storage_size() when not MC-ALLOC, but with MC-ALLOC it's a different function. The whole point other than cleaning up the use of LISPOBJ_STORAGE_SIZE is to make it harder to accidentally use the old kind (lowercase) of function in new code, since you get a compile error.
author ben
date Tue, 25 Oct 2005 08:32:50 +0000
parents 6fa9919a9a0b
children 6ef4efc5cfe0
comparison
equal deleted inserted replaced
3023:d305f4207861 3024:b7f26b2f78bd
26 /* PGconn is an opaque object and we need to be able to store them in 26 /* PGconn is an opaque object and we need to be able to store them in
27 Lisp code because libpq supports multiple connections. 27 Lisp code because libpq supports multiple connections.
28 */ 28 */
29 struct Lisp_PGconn 29 struct Lisp_PGconn
30 { 30 {
31 #ifdef MC_ALLOC 31 struct LCRECORD_HEADER header;
32 struct lrecord_header header;
33 #else /* not MC_ALLOC */
34 struct lcrecord_header header;
35 #endif /* not MC_ALLOC */
36 PGconn *pgconn; 32 PGconn *pgconn;
37 }; 33 };
38 typedef struct Lisp_PGconn Lisp_PGconn; 34 typedef struct Lisp_PGconn Lisp_PGconn;
39 35
40 DECLARE_LRECORD (pgconn, Lisp_PGconn); 36 DECLARE_LRECORD (pgconn, Lisp_PGconn);
50 /* PGresult is an opaque object and we need to be able to store them in 46 /* PGresult is an opaque object and we need to be able to store them in
51 Lisp code. 47 Lisp code.
52 */ 48 */
53 struct Lisp_PGresult 49 struct Lisp_PGresult
54 { 50 {
55 #ifdef MC_ALLOC 51 struct LCRECORD_HEADER header;
56 struct lrecord_header header;
57 #else /* not MC_ALLOC */
58 struct lcrecord_header header;
59 #endif /* not MC_ALLOC */
60 PGresult *pgresult; 52 PGresult *pgresult;
61 }; 53 };
62 typedef struct Lisp_PGresult Lisp_PGresult; 54 typedef struct Lisp_PGresult Lisp_PGresult;
63 55
64 DECLARE_LRECORD (pgresult, Lisp_PGresult); 56 DECLARE_LRECORD (pgresult, Lisp_PGresult);