Mercurial > hg > xemacs-beta

comparison src/symeval.h @ 2814:520c08f04735

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-06-16 19:59:33 by crestani] 2005-06-06 Marcus Crestani <crestani@xemacs.org> * lisp.h (DEFUN): Define S##fname here. * lisp.h (DEFUN_NORETURN): Define S##fname here. * symeval.h (DEFSUBR_MC_ALLOC): Use already defined S##fname.
author crestani
date Thu, 16 Jun 2005 19:59:35 +0000
parents 6fa9919a9a0b
children 1e7cc382eb16
comparison
equal deleted inserted replaced
2813:0f6ab06af483 2814:520c08f04735
282 DEFSUBR (Fname); // in syms_of_foo(); 282 DEFSUBR (Fname); // in syms_of_foo();
283 */ 283 */
284 #ifdef MC_ALLOC 284 #ifdef MC_ALLOC
285 MODULE_API void defsubr (Lisp_Subr *); 285 MODULE_API void defsubr (Lisp_Subr *);
286 #define DEFSUBR_MC_ALLOC(Fname) \ 286 #define DEFSUBR_MC_ALLOC(Fname) \
287 struct Lisp_Subr *S##Fname= (struct Lisp_Subr *) \ 287 S##Fname= (struct Lisp_Subr *) mc_alloc (sizeof (struct Lisp_Subr)); \
288 mc_alloc (sizeof (struct Lisp_Subr)); \
289 set_lheader_implementation (&S##Fname->lheader, &lrecord_subr); \ 288 set_lheader_implementation (&S##Fname->lheader, &lrecord_subr); \
290 \ 289 \
291 S##Fname->min_args = MC_ALLOC_S##Fname.min_args; \ 290 S##Fname->min_args = MC_ALLOC_S##Fname.min_args; \
292 S##Fname->max_args = MC_ALLOC_S##Fname.max_args; \ 291 S##Fname->max_args = MC_ALLOC_S##Fname.max_args; \
293 S##Fname->prompt = MC_ALLOC_S##Fname.prompt; \ 292 S##Fname->prompt = MC_ALLOC_S##Fname.prompt; \