summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2005-07-12 00:28:09 +0000
committerKevin Ryde <user42@zip.com.au>2005-07-12 00:28:09 +0000
commitc3c97a34e71c2dc762daab6b44dbeb98401dc8e7 (patch)
tree78111746615af291c36868c20fe55536e062aa85 /libguile/eval.c
parentea2c3968070f90570d8ac397920fafd1d8741105 (diff)
downloadguile-c3c97a34e71c2dc762daab6b44dbeb98401dc8e7.tar.gz
(scm_dbg_make_iloc): Should be SCM_IFRAMEMAX and
SCM_IDISTMAX, and cast uints through scm_t_bits to make gcc happy. Reported by Ken Raeburn.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r--libguile/eval.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index 7c8db0a93..a2284027d 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004
+/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@@ -372,8 +372,8 @@ SCM_DEFINE (scm_dbg_make_iloc, "dbg-make-iloc", 3, 0, 0,
"offset @var{binding} and the cdr flag @var{cdrp}.")
#define FUNC_NAME s_scm_dbg_make_iloc
{
- return SCM_MAKE_ILOC (scm_to_unsigned_integer (frame, 0, SCM_IFRAME_MAX),
- scm_to_unsigned_integer (binding, 0, SCM_IDIST_MAX),
+ return SCM_MAKE_ILOC ((scm_t_bits) scm_to_unsigned_integer (frame, 0, SCM_IFRAMEMAX),
+ (scm_t_bits) scm_to_unsigned_integer (binding, 0, SCM_IDISTMAX),
scm_is_true (cdrp));
}
#undef FUNC_NAME