Mercurial > hg > xemacs-beta
changeset 2814:520c08f04735
[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 | 0f6ab06af483 |
| children | 71c00e89a03a |
| files | src/ChangeLog src/lisp.h src/symeval.h |
| diffstat | 3 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Wed Jun 15 21:51:26 2005 +0000 +++ b/src/ChangeLog Thu Jun 16 19:59:35 2005 +0000 @@ -1,3 +1,9 @@ +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. + 2005-06-01 Marcus Crestani <crestani@xemacs.org> * ralloc.c:
--- a/src/lisp.h Wed Jun 15 21:51:26 2005 +0000 +++ b/src/lisp.h Thu Jun 16 19:59:35 2005 +0000 @@ -2994,6 +2994,7 @@ lname, \ (lisp_fn_t) Fname \ }; \ + static struct Lisp_Subr *S##Fname; \ Lisp_Object Fname (DEFUN_##max_args arglist) #define DEFUN_NORETURN(lname, Fname, min_args, max_args, prompt, arglist) \ @@ -3013,6 +3014,7 @@ lname, \ (lisp_fn_t) Fname \ }; \ + static struct Lisp_Subr *S##Fname; \ DOESNT_RETURN_TYPE (Lisp_Object) Fname (DEFUN_##max_args arglist) #else /* not MC_ALLOC */ #define DEFUN(lname, Fname, min_args, max_args, prompt, arglist) \
--- a/src/symeval.h Wed Jun 15 21:51:26 2005 +0000 +++ b/src/symeval.h Thu Jun 16 19:59:35 2005 +0000 @@ -284,8 +284,7 @@ #ifdef MC_ALLOC MODULE_API void defsubr (Lisp_Subr *); #define DEFSUBR_MC_ALLOC(Fname) \ - struct Lisp_Subr *S##Fname= (struct Lisp_Subr *) \ - mc_alloc (sizeof (struct Lisp_Subr)); \ + S##Fname= (struct Lisp_Subr *) mc_alloc (sizeof (struct Lisp_Subr)); \ set_lheader_implementation (&S##Fname->lheader, &lrecord_subr); \ \ S##Fname->min_args = MC_ALLOC_S##Fname.min_args; \