offset = dump_float (ctx, XFLOAT (object));
break;
case_Lisp_Int:
- eassert (!"should not be dumping int: is self-representing");
+ eassert (("should not be dumping int: is self-representing", 0));
default:
emacs_abort ();
}
while (!NILP (cold_queue))
{
Lisp_Object item = dump_pop (&cold_queue);
- enum cold_op op = XFASTINT (XCAR (item));
+ enum cold_op op = (enum cold_op) XFASTINT (XCAR (item));
Lisp_Object data = XCDR (item);
switch (op)
{
static void
dump_do_fixup (struct dump_context *ctx, Lisp_Object fixup)
{
- enum dump_fixup_type type = XFASTINT (XCAR (fixup));
+ enum dump_fixup_type type =
+ (enum dump_fixup_type) XFASTINT (XCAR (fixup));
fixup = XCDR (fixup);
dump_off dump_fixup_offset = dump_off_from_lisp (XCAR (fixup));
fixup = XCDR (fixup);
{
struct dump_reloc reloc;
dump_object_start (ctx, 1, &reloc, sizeof (reloc));
- dump_reloc_set_type (&reloc, XFASTINT (dump_pop (&lreloc)));
+ dump_reloc_set_type (
+ &reloc,
+ (enum dump_reloc_type) XFASTINT (dump_pop (&lreloc)));
eassert (reloc.type <= RELOC_DUMP_TO_EMACS_LV + Lisp_Float);
dump_reloc_set_offset (&reloc, dump_off_from_lisp (dump_pop (&lreloc)));
if (dump_reloc_get_offset (reloc) < ctx->header.discardable_start)
const struct dump_reloc *reloc =
dump_find_relocation (&dump_private.header.object_starts, offset);
return (reloc != NULL && dump_reloc_get_offset (*reloc) == offset)
- ? reloc->type
+ ? (enum Lisp_Type) reloc->type
: PDUMPER_NO_OBJECT;
}
goto out;
err = PDUMPER_LOAD_BAD_FILE_TYPE;
- if (memcmp (header->magic, dump_magic, sizeof (dump_magic) != 0))
+ if (memcmp (header->magic, dump_magic, sizeof (dump_magic)) != 0)
goto out;
err = PDUMPER_LOAD_VERSION_MISMATCH;