mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

* snarf.h: g++ says it's non-portable not to specify the first

Browse source 
argument in a varargs declaration.  I introduced the first
argument by using preprocessor conditionals.
This commit is contained in:
Mikael Djurfeldt 1997-03-14 23:06:42 +00:00
parent 3bc61059b4
commit dfa84eae7b
2 changed files with 19 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ChangeLog
View file

@ -1,3 +1,9 @@
Sat Mar 15 00:06:08 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* snarf.h: g++ says it's non-portable not to specify the first
argument in a varargs declaration. I introduced the first
argument by using preprocessor conditionals.
Thu Mar 13 21:28:25 1997 Gary Houston <ghouston@actrix.gen.nz> Thu Mar 13 21:28:25 1997 Gary Houston <ghouston@actrix.gen.nz>
* ioext.c (scm_read_delimited_x): use RO string macros for delims. * ioext.c (scm_read_delimited_x): use RO string macros for delims.

16
libguile/snarf.h
View file

@ -53,16 +53,26 @@
static char RANAME[]=STR static char RANAME[]=STR
#else #else
#ifdef __cplusplus #ifdef __cplusplus
#if REQ == 0 && OPT == 0 && VAR == 0
#define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \ #define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \
%%% scm_make_gsubr (RANAME, REQ, OPT, VAR, (SCM (*) (...)) CFN) %%% scm_make_gsubr (RANAME, REQ, OPT, VAR, (SCM (*) ()) CFN)
#else
#define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \
%%% scm_make_gsubr (RANAME, REQ, OPT, VAR, (SCM (*) (SCM, ...)) CFN)
#endif
#if TYPE == scm_tc7_subr_0
#define SCM_PROC1(RANAME, STR, TYPE, CFN) \ #define SCM_PROC1(RANAME, STR, TYPE, CFN) \
%%% scm_make_subr(RANAME, TYPE, (SCM (*)(...)) CFN) %%% scm_make_subr(RANAME, TYPE, (SCM (*)(...)) CFN)
#else /* not __cplusplus */ #else
#define SCM_PROC1(RANAME, STR, TYPE, CFN) \
%%% scm_make_subr(RANAME, TYPE, (SCM (*)(...)) CFN)
#endif
#else /* __cplusplus */
#define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \ #define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \
%%% scm_make_gsubr (RANAME, REQ, OPT, VAR, CFN) %%% scm_make_gsubr (RANAME, REQ, OPT, VAR, CFN)
#define SCM_PROC1(RANAME, STR, TYPE, CFN) \ #define SCM_PROC1(RANAME, STR, TYPE, CFN) \
%%% scm_make_subr(RANAME, TYPE, CFN) %%% scm_make_subr(RANAME, TYPE, CFN)
#endif /* not __cplusplus */ #endif /* __cplusplus */
#endif #endif
#ifndef SCM_MAGIC_SNARFER #ifndef SCM_MAGIC_SNARFER