From 74fdb02e5eaf31b4af337d8d101300493cc7f281 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sat, 20 Jun 2009 11:41:50 +0200 Subject: [PATCH] better error in make_objcode_by_mmap * libguile/objcodes.c (make_objcode_by_mmap): Better error when the object header is incorrect. --- libguile/objcodes.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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));