mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 20:00:19 +02:00
remove SCM_CHAR_CODE_LIMIT define
* libguile/__scm.h: Remove SCM_CHAR_CODE_LIMIT define. * libguile/feature.c (scm_init_feature): Remove char-code-limit define, which was sure to be 256: a bogus value.
This commit is contained in:
parent
e0c332ed41
commit
7b34720346
2 changed files with 0 additions and 8 deletions
|
@ -290,12 +290,6 @@
|
||||||
# define SCM_LONG_BIT (SCM_CHAR_BIT * sizeof (long) / sizeof (char))
|
# define SCM_LONG_BIT (SCM_CHAR_BIT * sizeof (long) / sizeof (char))
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifdef UCHAR_MAX
|
|
||||||
# define SCM_CHAR_CODE_LIMIT (UCHAR_MAX + 1L)
|
|
||||||
#else
|
|
||||||
# define SCM_CHAR_CODE_LIMIT 256L
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#define SCM_I_UTYPE_MAX(type) ((type)-1)
|
#define SCM_I_UTYPE_MAX(type) ((type)-1)
|
||||||
#define SCM_I_TYPE_MAX(type,umax) ((type)((umax)/2))
|
#define SCM_I_TYPE_MAX(type,umax) ((type)((umax)/2))
|
||||||
#define SCM_I_TYPE_MIN(type,umax) (-((type)((umax)/2))-1)
|
#define SCM_I_TYPE_MIN(type,umax) (-((type)((umax)/2))-1)
|
||||||
|
|
|
@ -118,8 +118,6 @@ scm_init_feature()
|
||||||
scm_add_feature ("threads");
|
scm_add_feature ("threads");
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
scm_c_define ("char-code-limit", scm_from_int (SCM_CHAR_CODE_LIMIT));
|
|
||||||
|
|
||||||
#include "libguile/feature.x"
|
#include "libguile/feature.x"
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue