# HG changeset patch
# User crestani
# Date 1118951975 0
# Node ID 520c08f0473577cc2d87e37c85e410cb61b0a58b
# Parent  0f6ab06af483760c119bce49124aa6f8e1df859e
[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.

diff -r 0f6ab06af483 -r 520c08f04735 src/ChangeLog
--- 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:
diff -r 0f6ab06af483 -r 520c08f04735 src/lisp.h
--- 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)	\
diff -r 0f6ab06af483 -r 520c08f04735 src/symeval.h
--- 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;			\