mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-09 05:30:21 +02:00
Fix snarfing of `SCM_DEFINE' with static allocation.
* libguile/snarf.h (SCM_DEFINE)[SCM_SUPPORT_STATIC_ALLOCATION]: Provide a declaration for FNAME since the last argument to `SCM_IMMUTABLE_SUBR ()' refers to it.
This commit is contained in:
parent
440ae51035
commit
f476797998
1 changed files with 3 additions and 2 deletions
|
@ -101,14 +101,15 @@ SCM_SNARF_DOCS(primitive, FNAME, PRIMNAME, ARGLIST, REQ, OPT, VAR, DOCSTRING)
|
|||
/* Static subr allocation. */
|
||||
#define SCM_DEFINE(FNAME, PRIMNAME, REQ, OPT, VAR, ARGLIST, DOCSTRING) \
|
||||
SCM_SYMBOL (scm_i_paste (FNAME, __name), PRIMNAME); \
|
||||
SCM_SNARF_HERE( \
|
||||
SCM_SNARF_HERE( \
|
||||
static const char scm_i_paste (s_, FNAME) [] = PRIMNAME; \
|
||||
SCM_API SCM FNAME ARGLIST; \
|
||||
SCM_IMMUTABLE_SUBR (scm_i_paste (FNAME, __subr), \
|
||||
scm_i_paste (FNAME, __name), \
|
||||
REQ, OPT, VAR, &FNAME); \
|
||||
SCM FNAME ARGLIST \
|
||||
) \
|
||||
SCM_SNARF_INIT( \
|
||||
SCM_SNARF_INIT( \
|
||||
/* Initialize the procedure name (an interned symbol). */ \
|
||||
scm_i_paste (FNAME, __subr_meta_info)[0] = scm_i_paste (FNAME, __name); \
|
||||
\
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue