diff options
Diffstat (limited to 'src/pdumper.c')
| -rw-r--r-- | src/pdumper.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/pdumper.c b/src/pdumper.c index c7ebb38dea5..ac8bf6f31f4 100644 --- a/src/pdumper.c +++ b/src/pdumper.c | |||
| @@ -3368,7 +3368,7 @@ dump_sort_copied_objects (struct dump_context *ctx) | |||
| 3368 | file and the copy into Emacs in-order, where prefetch will be | 3368 | file and the copy into Emacs in-order, where prefetch will be |
| 3369 | most effective. */ | 3369 | most effective. */ |
| 3370 | ctx->copied_queue = | 3370 | ctx->copied_queue = |
| 3371 | Fsort (Fnreverse (ctx->copied_queue), | 3371 | CALLN (Fsort, Fnreverse (ctx->copied_queue), |
| 3372 | Qdump_emacs_portable__sort_predicate_copied); | 3372 | Qdump_emacs_portable__sort_predicate_copied); |
| 3373 | } | 3373 | } |
| 3374 | 3374 | ||
| @@ -3935,7 +3935,7 @@ drain_reloc_list (struct dump_context *ctx, | |||
| 3935 | { | 3935 | { |
| 3936 | struct dump_flags old_flags = ctx->flags; | 3936 | struct dump_flags old_flags = ctx->flags; |
| 3937 | ctx->flags.pack_objects = true; | 3937 | ctx->flags.pack_objects = true; |
| 3938 | Lisp_Object relocs = Fsort (Fnreverse (*reloc_list), | 3938 | Lisp_Object relocs = CALLN (Fsort, Fnreverse (*reloc_list), |
| 3939 | Qdump_emacs_portable__sort_predicate); | 3939 | Qdump_emacs_portable__sort_predicate); |
| 3940 | *reloc_list = Qnil; | 3940 | *reloc_list = Qnil; |
| 3941 | dump_align_output (ctx, max (alignof (struct dump_reloc), | 3941 | dump_align_output (ctx, max (alignof (struct dump_reloc), |
| @@ -4057,7 +4057,7 @@ static void | |||
| 4057 | dump_do_fixups (struct dump_context *ctx) | 4057 | dump_do_fixups (struct dump_context *ctx) |
| 4058 | { | 4058 | { |
| 4059 | dump_off saved_offset = ctx->offset; | 4059 | dump_off saved_offset = ctx->offset; |
| 4060 | Lisp_Object fixups = Fsort (Fnreverse (ctx->fixups), | 4060 | Lisp_Object fixups = CALLN (Fsort, Fnreverse (ctx->fixups), |
| 4061 | Qdump_emacs_portable__sort_predicate); | 4061 | Qdump_emacs_portable__sort_predicate); |
| 4062 | Lisp_Object prev_fixup = Qnil; | 4062 | Lisp_Object prev_fixup = Qnil; |
| 4063 | ctx->fixups = Qnil; | 4063 | ctx->fixups = Qnil; |