diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-07-12 00:28:09 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-07-12 00:28:09 +0000 |
commit | c3c97a34e71c2dc762daab6b44dbeb98401dc8e7 (patch) | |
tree | 78111746615af291c36868c20fe55536e062aa85 /libguile/eval.c | |
parent | ea2c3968070f90570d8ac397920fafd1d8741105 (diff) | |
download | guile-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.c | 6 |
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 |