void **bar = NULL;
auto void lcrec_finaliser();
- auto void lcrec_finaliser(void *obj, void *UNUSED(data))
+ auto void lcrec_finaliser(void *obj, void *SXE_UNUSED(data))
{
const struct lrecord_implementation *lrimp =
XRECORD_LHEADER_IMPLEMENTATION(obj);
}
#else /* !BDWGC */
static inline void
-lcrec_register_finaliser(struct lcrecord_header *UNUSED(b))
+lcrec_register_finaliser(struct lcrecord_header *SXE_UNUSED(b))
{
return;
}
void **bar = NULL;
auto void cons_finaliser();
- auto void cons_finaliser(void *obj, void *UNUSED(data))
+ auto void cons_finaliser(void *obj, void *SXE_UNUSED(data))
{
/* cleanse */
memset(obj, 0, sizeof(Lisp_Cons));
}
#else /* !BDWGC */
static inline void
-cons_register_finaliser(Lisp_Cons *UNUSED(b))
+cons_register_finaliser(Lisp_Cons *SXE_UNUSED(b))
{
return;
}
void **bar = NULL;
auto void bigz_finaliser();
- auto void bigz_finaliser(void *obj, void *UNUSED(data))
+ auto void bigz_finaliser(void *obj, void *SXE_UNUSED(data))
{
bigz_fini(bigz_data((Lisp_Bigz*)obj));
/* cleanse */
}
#else /* !BDWGC */
static inline void
-bigz_register_finaliser(Lisp_Bigz *UNUSED(b))
+bigz_register_finaliser(Lisp_Bigz *SXE_UNUSED(b))
{
return;
}
void **bar = NULL;
auto void bigq_finaliser();
- auto void bigq_finaliser(void *obj, void *UNUSED(data))
+ auto void bigq_finaliser(void *obj, void *SXE_UNUSED(data))
{
bigq_fini(bigq_data((Lisp_Bigq*)obj));
/* cleanse */
}
#else /* !BDWGC */
static inline void
-bigq_register_finaliser(Lisp_Bigq *UNUSED(b))
+bigq_register_finaliser(Lisp_Bigq *SXE_UNUSED(b))
{
return;
}
void **bar = NULL;
auto void bigf_finaliser();
- auto void bigf_finaliser(void *obj, void *UNUSED(data))
+ auto void bigf_finaliser(void *obj, void *SXE_UNUSED(data))
{
bigf_fini(bigf_data((Lisp_Bigf*)obj));
/* cleanse */
}
#else /* !BDWGC */
static inline void
-bigf_register_finaliser(Lisp_Bigf *UNUSED(b))
+bigf_register_finaliser(Lisp_Bigf *SXE_UNUSED(b))
{
return;
}
void **bar = NULL;
auto void bigfr_finaliser();
- auto void bigfr_finaliser(void *obj, void *UNUSED(data))
+ auto void bigfr_finaliser(void *obj, void *SXE_UNUSED(data))
{
bigfr_fini(bigfr_data((Lisp_Bigfr*)obj));
/* cleanse */
}
#else /* !BDWGC */
static inline void
-bigfr_register_finaliser(Lisp_Bigfr *UNUSED(b))
+bigfr_register_finaliser(Lisp_Bigfr *SXE_UNUSED(b))
{
return;
}
void **bar = NULL;
auto void bigg_finaliser();
- auto void bigg_finaliser(void *obj, void *UNUSED(data))
+ auto void bigg_finaliser(void *obj, void *SXE_UNUSED(data))
{
bigg_fini(bigg_data((Lisp_Bigg*)obj));
/* cleanse */
}
#else /* !BDWGC */
static inline void
-bigg_register_finaliser(Lisp_Bigg *UNUSED(b))
+bigg_register_finaliser(Lisp_Bigg *SXE_UNUSED(b))
{
return;
}
void **bar = NULL;
auto void bigc_finaliser();
- auto void bigc_finaliser(void *obj, void *UNUSED(data))
+ auto void bigc_finaliser(void *obj, void *SXE_UNUSED(data))
{
bigc_fini(bigc_data((Lisp_Bigc*)obj));
/* cleanse */
}
#else /* !BDWGC */
static inline void
-bigc_register_finaliser(Lisp_Bigc *UNUSED(b))
+bigc_register_finaliser(Lisp_Bigc *SXE_UNUSED(b))
{
return;
}
void **bar = NULL;
auto void quatern_finaliser();
- auto void quatern_finaliser(void *obj, void *UNUSED(data))
+ auto void quatern_finaliser(void *obj, void *SXE_UNUSED(data))
{
quatern_fini(quatern_data((Lisp_Quatern*)obj));
/* cleanse */
}
#else /* !BDWGC */
static inline void
-quatern_register_finaliser(Lisp_Quatern *UNUSED(b))
+quatern_register_finaliser(Lisp_Quatern *SXE_UNUSED(b))
{
return;
}
void **bar = NULL;
auto void dynacat_finaliser();
- auto void dynacat_finaliser(void *obj, void *UNUSED(data))
+ auto void dynacat_finaliser(void *obj, void *SXE_UNUSED(data))
{
SXE_DEBUG_GC("calling dynacat finaliser on %p\n", obj);
dynacat_fini(obj);
}
#else /* !BDWGC */
static inline void
-dynacat_register_finaliser(dynacat_t UNUSED(b))
+dynacat_register_finaliser(dynacat_t SXE_UNUSED(b))
{
return;
}
void **bar = NULL;
auto void string_finaliser();
- auto void string_finaliser(void *obj, void *UNUSED(data))
+ auto void string_finaliser(void *obj, void *SXE_UNUSED(data))
{
if (!(((Lisp_String*)obj)->lheader.c_readonly)) {
yfree(((Lisp_String*)obj)->data);
}
#else /* !BDWGC */
static inline void
-string_register_finaliser(Lisp_String *UNUSED(b))
+string_register_finaliser(Lisp_String *SXE_UNUSED(b))
{
return;
}
}
void
-free_managed_lcrecord(Lisp_Object UNUSED(lcrecord_list), Lisp_Object lcrecord)
+free_managed_lcrecord(Lisp_Object SXE_UNUSED(lcrecord_list), Lisp_Object lcrecord)
{
struct free_lcrecord_header *free_header =
(struct free_lcrecord_header*)XPNTR(lcrecord);
seen yet, recursively mark all the references contained in it. */
#if defined HAVE_BDWGC && defined EF_USE_BDWGC
-void mark_object(Lisp_Object UNUSED(obj))
+void mark_object(Lisp_Object SXE_UNUSED(obj))
{
return;
}
const char *name =
lrecord_implementations_table[i]->name;
int len = strlen(name);
+ int sz;
+
/* save this for the FSFmacs-compatible part of the
summary */
if (i == lrecord_type_vector)
lcrecord_stats[i].bytes_in_use +
lcrecord_stats[i].bytes_freed;
- snprintf(buf, sizeof(buf), "%s-storage", name);
+ sz = snprintf(buf, sizeof(buf), "%s-storage", name);
+ assert(sz >=0 && (size_t)sz < sizeof(buf));
pl = gc_plist_hack(buf, lcrecord_stats[i].bytes_in_use,
pl);
/* Okay, simple pluralization check for
`symbol-value-varalias' */
if (name[len - 1] == 's')
- snprintf(buf, sizeof(buf), "%ses-freed", name);
+ sz = snprintf(buf, sizeof(buf), "%ses-freed", name);
else
- snprintf(buf, sizeof(buf), "%ss-freed", name);
+ sz = snprintf(buf, sizeof(buf), "%ss-freed", name);
+ assert(sz >=0 && (size_t)sz < sizeof(buf));
if (lcrecord_stats[i].instances_freed != 0)
pl = gc_plist_hack(buf,
lcrecord_stats[i].
instances_freed, pl);
if (name[len - 1] == 's')
- snprintf(buf, sizeof(buf), "%ses-on-free-list", name);
+ sz = snprintf(buf, sizeof(buf), "%ses-on-free-list", name);
else
- snprintf(buf, sizeof(buf), "%ss-on-free-list", name);
+ sz = snprintf(buf, sizeof(buf), "%ss-on-free-list", name);
+ assert(sz >=0 && (size_t)sz < sizeof(buf));
if (lcrecord_stats[i].instances_on_free_list != 0)
pl = gc_plist_hack(buf,
lcrecord_stats[i].
instances_on_free_list, pl);
if (name[len - 1] == 's')
- snprintf(buf, sizeof(buf), "%ses-used", name);
+ sz = snprintf(buf, sizeof(buf), "%ses-used", name);
else
- snprintf(buf, sizeof(buf), "%ss-used", name);
+ sz = snprintf(buf, sizeof(buf), "%ss-used", name);
+ assert(sz >=0 && (size_t)sz < sizeof(buf));
pl = gc_plist_hack(buf,
lcrecord_stats[i].instances_in_use,
pl);
/* We need the next two functions since GNU MP insists on giving us an extra
parameter. */
static void*
-my_realloc (void *ptr, size_t UNUSED(old_size), size_t new_size)
+my_realloc (void *ptr, size_t SXE_UNUSED(old_size), size_t new_size)
{
void *foo = xrealloc(ptr, new_size);
SXE_DEBUG_GC_GMP("gmp realloc :was %p :is %p\n", ptr, foo);