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

fix casts to unsigned long in objcodes.c

Browse source 
* libguile/objcodes.c (scm_c_make_objcode_slice): Fix casts to unsigned
  long.
This commit is contained in:
Andy Wingo 2009-03-19 11:46:22 +01:00
parent 05588a1ace
commit 17dd267a35
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/objcodes.c
View file

@ -121,8 +121,8 @@ scm_c_make_objcode_slice (SCM parent, scm_t_uint8 *ptr)
|| ptr >= (parent_data->base + parent_data->len + parent_data->metalen
- sizeof (struct scm_objcode)))
scm_misc_error (FUNC_NAME, "offset out of bounds (~a vs ~a + ~a + ~a)",
SCM_LIST4 (scm_from_ulong ((ulong)ptr),
scm_from_ulong ((ulong)parent_data->base),
SCM_LIST4 (scm_from_ulong ((unsigned long)ptr),
scm_from_ulong ((unsigned long)parent_data->base),
scm_from_uint32 (parent_data->len),
scm_from_uint32 (parent_data->metalen)));