summaryrefslogtreecommitdiff
path: root/libguile/objcodes.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-06-20 11:41:50 +0200
committerAndy Wingo <wingo@pobox.com>2009-06-20 11:41:50 +0200
commit74fdb02e5eaf31b4af337d8d101300493cc7f281 (patch)
tree2c139b1f49908ba8dd9673bd337dbf4d43097b98 /libguile/objcodes.c
parentfc5b616b5816a425863fd06c50f41513c31693f8 (diff)
downloadguile-74fdb02e5eaf31b4af337d8d101300493cc7f281.tar.gz
better error in make_objcode_by_mmap
* libguile/objcodes.c (make_objcode_by_mmap): Better error when the object header is incorrect.
Diffstat (limited to 'libguile/objcodes.c')
-rw-r--r--libguile/objcodes.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/libguile/objcodes.c b/libguile/objcodes.c
index f8da2d51d..6b69fb77f 100644
--- a/libguile/objcodes.c
+++ b/libguile/objcodes.c
@@ -66,7 +66,9 @@ make_objcode_by_mmap (int fd)
SCM_SYSERROR;
if (memcmp (addr, OBJCODE_COOKIE, strlen (OBJCODE_COOKIE)))
- SCM_SYSERROR;
+ scm_misc_error (FUNC_NAME, "bad header on object file: ~s",
+ scm_list_1 (scm_from_locale_stringn
+ (addr, strlen (OBJCODE_COOKIE))));
data = (struct scm_objcode*)(addr + strlen (OBJCODE_COOKIE));