Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

checking abi version in image files

Browse source
This commit is contained in:
Alex Shinn 2011-11-07 23:46:30 +09:00
parent fb6f53f8bd
commit c57e71d3dd
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
main.c
View file

@ -65,6 +65,10 @@ static sexp sexp_load_image (const char* file, sexp_uint_t heap_size, sexp_uint_
fprintf(stderr, "unsupported image version: %d.%d\n", fprintf(stderr, "unsupported image version: %d.%d\n",
header.major, header.minor); header.major, header.minor);
return NULL; return NULL;
} else if (!sexp_abi_compatible(NULL, header.abi, SEXP_ABI_IDENTIFIER)) {
fprintf(stderr, "unsupported ABI: %s (expected %s)\n",
header.abi, SEXP_ABI_IDENTIFIER);
return NULL;
} }
if (heap_size < header.size) heap_size = header.size; if (heap_size < header.size) heap_size = header.size;
heap = (sexp_heap)malloc(sexp_heap_pad_size(heap_size)); heap = (sexp_heap)malloc(sexp_heap_pad_size(heap_size));
@ -114,6 +118,7 @@ static int sexp_save_image (sexp ctx, const char* path) {
} }
heap = sexp_context_heap(ctx); heap = sexp_context_heap(ctx);
memcpy(&header.magic, SEXP_IMAGE_MAGIC, sizeof(header.magic)); memcpy(&header.magic, SEXP_IMAGE_MAGIC, sizeof(header.magic));
memcpy(&header.abi, SEXP_ABI_IDENTIFIER, sizeof(header.abi));
header.major = SEXP_IMAGE_MAJOR_VERSION; header.major = SEXP_IMAGE_MAJOR_VERSION;
header.minor = SEXP_IMAGE_MINOR_VERSION; header.minor = SEXP_IMAGE_MINOR_VERSION;
header.size = heap->size; header.size = heap->size;