From 3d27ef4bd312750f8edca81f09644eab21a3d8e0 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 18 Nov 2010 22:30:27 +0100 Subject: fix a number of assumptions that a pointer could fit into a long * libguile/debug.c: * libguile/eval.c: * libguile/frames.c: * libguile/objcodes.c: * libguile/print.c: * libguile/programs.c: * libguile/read.c: * libguile/struct.c: * libguile/vm.c: Fix a number of instances in which we assumed we could fit a pointer into a long. --- libguile/programs.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/programs.c') diff --git a/libguile/programs.c b/libguile/programs.c index 4404f832a..8b769a576 100644 --- a/libguile/programs.c +++ b/libguile/programs.c @@ -131,7 +131,7 @@ SCM_DEFINE (scm_program_base, "program-base", 1, 0, 0, SCM_VALIDATE_PROGRAM (1, program); c_objcode = SCM_PROGRAM_DATA (program); - return scm_from_ulong ((unsigned long) SCM_C_OBJCODE_BASE (c_objcode)); + return scm_from_unsigned_integer ((scm_t_bits) SCM_C_OBJCODE_BASE (c_objcode)); } #undef FUNC_NAME -- cgit v1.2.3