From d41a4e1c9e7f0ed61c2564f77e687c2dd1586c87 Mon Sep 17 00:00:00 2001 From: Gary Houston Date: Sun, 22 Jul 2001 12:50:04 +0000 Subject: [PATCH] * regex-posix.c (s_scm_regexp_exec): use scm_long2num not SCM_MAKINUM to convert regoff_t value to SCM. --- libguile/ChangeLog | 5 +++++ libguile/regex-posix.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 919f0e95c..2f3df5301 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2001-07-22 Gary Houston + + * regex-posix.c (s_scm_regexp_exec): use scm_long2num not + SCM_MAKINUM to convert regoff_t value to SCM. + 2001-07-21 Gary Houston * scmsigs.c: include sys/time.h for itimer stuff. diff --git a/libguile/regex-posix.c b/libguile/regex-posix.c index 1a232d59f..d5d8fba63 100644 --- a/libguile/regex-posix.c +++ b/libguile/regex-posix.c @@ -278,8 +278,8 @@ SCM_DEFINE (scm_regexp_exec, "regexp-exec", 2, 2, 0, SCM_VELTS(mvec)[i+1] = scm_cons (SCM_MAKINUM (-1), SCM_MAKINUM (-1)); else SCM_VELTS(mvec)[i+1] - = scm_cons(SCM_MAKINUM(matches[i].rm_so + offset), - SCM_MAKINUM(matches[i].rm_eo + offset)); + = scm_cons (scm_long2num (matches[i].rm_so + offset), + scm_long2num (matches[i].rm_eo + offset)); } scm_must_free ((char *) matches); SCM_ALLOW_INTS;