mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-20 10:40:19 +02:00
Code Activity

fix error message for bad objcode cookie

Browse source 
* libguile/objcodes.c: Whoop-dee :)
This commit is contained in:
Andy Wingo 2009-07-02 21:55:28 +02:00
parent 40f892156a
commit 7c957b8657
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/objcodes.c
View file

@ -70,11 +70,11 @@ make_objcode_by_mmap (int fd)
if (memcmp (addr, OBJCODE_COOKIE, strlen (OBJCODE_COOKIE))) if (memcmp (addr, OBJCODE_COOKIE, strlen (OBJCODE_COOKIE)))
{ {
SCM args = scm_list_1 (scm_from_locale_stringn
(addr, strlen (OBJCODE_COOKIE)));
(void) close (fd); (void) close (fd);
(void) munmap (addr, st.st_size); (void) munmap (addr, st.st_size);
scm_misc_error (FUNC_NAME, "bad header on object file: ~s", scm_misc_error (FUNC_NAME, "bad header on object file: ~s", args);
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));