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

scm_from_uintptr_t / scm_from_ptrdiff_t usage

Browse source 
* libguile/frames.c:
* libguile/programs.c: Use scm_from_ptrdiff_t and scm_from_uintptr_t
  where appropriate.
This commit is contained in:
Andy Wingo 2013-11-07 18:11:00 +01:00
parent e15aa02284
commit 72b82b0f21
2 changed files with 11 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/programs.c
View file

@ -106,8 +106,7 @@ SCM_DEFINE (scm_rtl_program_code, "rtl-program-code", 1, 0, 0,
{
SCM_VALIDATE_RTL_PROGRAM (1, program);
/* FIXME: we need scm_from_uintptr (). */
return scm_from_size_t ((size_t) SCM_RTL_PROGRAM_CODE (program));
return scm_from_uintptr_t ((scm_t_uintptr) SCM_RTL_PROGRAM_CODE (program));
}
#undef FUNC_NAME