commit: Correct the NEW_GC non-DEBUG_XEMACS version of PARSE_KEYWORDS().

changeset: 5278:d9e65b48e2bf tag: tip user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Sat Sep 18 16:46:56 2010 +0100 files: src/ChangeLog src/lisp.h description: Correct the NEW_GC non-DEBUG_XEMACS version of PARSE_KEYWORDS(). 2010-09-18 Aidan Kehoe <kehoea(a)parhasard.net&gt; * lisp.h (PARSE_KEYWORDS): Correct the NEW_GC non-DEBUG_XEMACS version of this macro; under such builds S##function is a pointer, not a Lisp_Subr structure. diff -r d804e621add0 -r d9e65b48e2bf src/ChangeLog --- a/src/ChangeLog Sat Sep 18 15:57:20 2010 +0100 +++ b/src/ChangeLog Sat Sep 18 16:46:56 2010 +0100 ＠＠ -1,3 +1,9 ＠＠ +2010-09-18 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * lisp.h (PARSE_KEYWORDS): + Correct the NEW_GC non-DEBUG_XEMACS version of this macro; under + such builds S##function is a pointer, not a Lisp_Subr structure. + 2010-09-18 Aidan Kehoe <kehoea(a)parhasard.net&gt; Simplify the API of PARSE_KEYWORDS for callers. diff -r d804e621add0 -r d9e65b48e2bf src/lisp.h --- a/src/lisp.h Sat Sep 18 15:57:20 2010 +0100 +++ b/src/lisp.h Sat Sep 18 16:46:56 2010 +0100 ＠＠ -3554,6 +3554,12 ＠＠ (intern_massaging_name (1 + #function))), \ 0); \ assert (0 == strcmp (__func__, #function)) +#elsif defined (NEW_GC) +#define PARSE_KEYWORDS(function, nargs, args, keyword_count, keywords, \ + keyword_defaults) \ + PARSE_KEYWORDS_8 (intern (S##function->name), nargs, args, \ + keyword_count, keywords, \ + keyword_defaults, S##function->min_args, 0) #else #define PARSE_KEYWORDS(function, nargs, args, keyword_count, keywords, \ keyword_defaults) \ _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/mailman/listinfo/xemacs-patches