mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 20:00:19 +02:00
* libguile.h: #include "__scm.h" before testing the STDC_HEADERS
preprocessor symbol; "__scm.h" is where it might get #defined. * __scm.h: Similar: #include <scmconfig.h> before testing HAVE_LIMITS_H. * __scm.h: It's HAVE_LIMITS_H, not HAVE_LIMITSH. * __scm.h (PROTO): New macro, for declaring functions with prototypes. * __scm.h (SCM_SYSMISSING): When we don't have ENOSYS, don't complain about it in the error message; the error message is adequate without that note, and there's nothing the user can do about it.
This commit is contained in:
parent
86789f9b69
commit
b971d089b4
1 changed files with 19 additions and 4 deletions
|
@ -119,6 +119,22 @@ typedef long long_long;
|
||||||
typedef unsigned long ulong_long;
|
typedef unsigned long ulong_long;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
/* What did the configure script discover about the outside world? */
|
||||||
|
#include <scmconfig.h>
|
||||||
|
|
||||||
|
|
||||||
|
/* Write prototype declarations like this:
|
||||||
|
int foo PROTO(int a, int b);
|
||||||
|
At definitions, use K&R style declarations, but make sure there's a
|
||||||
|
declarative prototype (as above) in scope. This will give you
|
||||||
|
argument type checking, when available, and be harmless otherwise. */
|
||||||
|
#ifdef __STDC__
|
||||||
|
# define PROTO(x) x
|
||||||
|
#else
|
||||||
|
# define PROTO(x) (x)
|
||||||
|
#endif
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
/* Define
|
/* Define
|
||||||
|
@ -128,7 +144,7 @@ typedef unsigned long ulong_long;
|
||||||
* SCM_MOST_NEGATIVE_FIXNUM == SCM_SRS((long)LONG_MIN, 2)
|
* SCM_MOST_NEGATIVE_FIXNUM == SCM_SRS((long)LONG_MIN, 2)
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#ifdef HAVE_LIMITSH
|
#ifdef HAVE_LIMITS_H
|
||||||
# include <limits.h>
|
# include <limits.h>
|
||||||
# ifdef UCHAR_MAX
|
# ifdef UCHAR_MAX
|
||||||
# define SCM_CHAR_SCM_CODE_LIMIT (UCHAR_MAX+1L)
|
# define SCM_CHAR_SCM_CODE_LIMIT (UCHAR_MAX+1L)
|
||||||
|
@ -149,10 +165,9 @@ typedef unsigned long ulong_long;
|
||||||
# else
|
# else
|
||||||
# define SCM_MOST_NEGATIVE_FIXNUM (-SCM_MOST_POSITIVE_FIXNUM)
|
# define SCM_MOST_NEGATIVE_FIXNUM (-SCM_MOST_POSITIVE_FIXNUM)
|
||||||
# endif /* (0 != ~0) */
|
# endif /* (0 != ~0) */
|
||||||
#endif /* def HAVE_LIMITSH */
|
#endif /* def HAVE_LIMITS_H */
|
||||||
|
|
||||||
|
|
||||||
#include <scmconfig.h>
|
|
||||||
#include "tags.h"
|
#include "tags.h"
|
||||||
|
|
||||||
|
|
||||||
|
@ -300,7 +315,7 @@ extern unsigned int scm_async_clock;
|
||||||
#else
|
#else
|
||||||
# define SCM_SYSMISSING(_subr) \
|
# define SCM_SYSMISSING(_subr) \
|
||||||
scm_everr (SCM_UNDEFINED, SCM_EOL, SCM_UNDEFINED, \
|
scm_everr (SCM_UNDEFINED, SCM_EOL, SCM_UNDEFINED, \
|
||||||
"missing function, even ENOSYS is missing", _subr)
|
"missing function", _subr)
|
||||||
#endif
|
#endif
|
||||||
#define SCM_ARGn 0
|
#define SCM_ARGn 0
|
||||||
#define SCM_ARG1 1
|
#define SCM_ARG1 1
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue