mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 14:30:34 +02:00
Code Activity

better error in make_objcode_by_mmap

Browse source 
* libguile/objcodes.c (make_objcode_by_mmap): Better error when the
  object header is incorrect.
This commit is contained in:
Andy Wingo 2009-06-20 11:41:50 +02:00
parent fc5b616b58
commit 74fdb02e5e
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/objcodes.c
View file

@ -66,7 +66,9 @@ make_objcode_by_mmap (int fd)
SCM_SYSERROR; SCM_SYSERROR;
if (memcmp (addr, OBJCODE_COOKIE, strlen (OBJCODE_COOKIE))) 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)); data = (struct scm_objcode*)(addr + strlen (OBJCODE_COOKIE));