X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fsave.c;h=51c01a189736def0fc56a81beef1b8fa9e0b9a1c;hb=b3fc19fd2ee925f1a16e301012094b58c2cfd68a;hp=78a56adccbe88f8aa23a0542796c66d457f4e22f;hpb=351afff61b453dfc4fa21fc7973869b50c440640;p=sbcl.git diff --git a/src/runtime/save.c b/src/runtime/save.c index 78a56ad..51c01a1 100644 --- a/src/runtime/save.c +++ b/src/runtime/save.c @@ -283,12 +283,12 @@ save_to_filehandle(FILE *file, char *filename, lispobj init_function, { size_t size = (last_free_page*sizeof(long)+os_vm_page_size-1) &~(os_vm_page_size-1); - long *data = calloc(size, 1); + unsigned long *data = calloc(size, 1); if (data) { long offset; int i; for (i = 0; i < last_free_page; i++) { - data[i] = page_table[i].first_object_offset; + data[i] = page_table[i].region_start_offset; } write_lispobj(PAGE_TABLE_CORE_ENTRY_TYPE_CODE, file); write_lispobj(4, file);