mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Deprecate SCM_STATIC_DOUBLE_CELL snarf macro

Browse source 
* libguile/snarf.h:
* libguile/deprecated.h (SCM_STATIC_DOUBLE_CELL): Deprecate this unused
  macro.
This commit is contained in:
Andy Wingo 2018-06-20 09:13:11 +02:00
parent bf15afa6bf
commit 8f8e450a60
2 changed files with 12 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/deprecated.h
View file

@ -20,6 +20,7 @@
*/ */
#include "libguile/__scm.h" #include "libguile/__scm.h"
#include "libguile/snarf.h"
#if (SCM_ENABLE_DEPRECATED == 1) #if (SCM_ENABLE_DEPRECATED == 1)
@ -42,6 +43,17 @@
v, pos, FUNC_NAME); \ v, pos, FUNC_NAME); \
} while (0) } while (0)
#ifdef SCM_SUPPORT_STATIC_ALLOCATION
#define SCM_STATIC_DOUBLE_CELL(c_name, car, cbr, ccr, cdr) \
static SCM_ALIGNED (8) SCM_UNUSED scm_t_cell \
c_name ## _raw_cell [2] = \
{ \
{ SCM_PACK (car), SCM_PACK (cbr) }, \
{ SCM_PACK (ccr), SCM_PACK (cdr) } \
}; \
static SCM_UNUSED SCM c_name = SCM_PACK (& c_name ## _raw_cell)
#endif /* SCM_SUPPORT_STATIC_ALLOCATION */
#define scm_gc_running_p 0 #define scm_gc_running_p 0
void scm_i_init_deprecated (void); void scm_i_init_deprecated (void);

9
libguile/snarf.h
View file

@ -196,15 +196,6 @@ SCM_SNARF_INIT(scm_set_smob_apply((tag), (c_name), (req), (opt), (rest));)
}; \ }; \
static SCM_UNUSED const SCM c_name = SCM_PACK (& c_name ## _raw_cell) static SCM_UNUSED const SCM c_name = SCM_PACK (& c_name ## _raw_cell)
#define SCM_STATIC_DOUBLE_CELL(c_name, car, cbr, ccr, cdr) \
static SCM_ALIGNED (8) SCM_UNUSED scm_t_cell \
c_name ## _raw_cell [2] = \
{ \
{ SCM_PACK (car), SCM_PACK (cbr) }, \
{ SCM_PACK (ccr), SCM_PACK (cdr) } \
}; \
static SCM_UNUSED SCM c_name = SCM_PACK (& c_name ## _raw_cell)
#define SCM_IMMUTABLE_STRINGBUF(c_name, contents) \ #define SCM_IMMUTABLE_STRINGBUF(c_name, contents) \
static SCM_UNUSED const \ static SCM_UNUSED const \
struct \ struct \