mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* regex-posix.c (s_scm_regexp_exec): use scm_long2num not

Browse source 
SCM_MAKINUM to convert regoff_t value to SCM.
This commit is contained in:
Gary Houston 2001-07-22 12:50:04 +00:00
parent abf70d1e87
commit d41a4e1c9e
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2001-07-22 Gary Houston <ghouston@arglist.com>
* 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 <ghouston@arglist.com> 2001-07-21 Gary Houston <ghouston@arglist.com>
* scmsigs.c: include sys/time.h for itimer stuff. * scmsigs.c: include sys/time.h for itimer stuff.

4
libguile/regex-posix.c
View file

@ -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)); SCM_VELTS(mvec)[i+1] = scm_cons (SCM_MAKINUM (-1), SCM_MAKINUM (-1));
else else
SCM_VELTS(mvec)[i+1] SCM_VELTS(mvec)[i+1]
= scm_cons(SCM_MAKINUM(matches[i].rm_so + offset), = scm_cons (scm_long2num (matches[i].rm_so + offset),
SCM_MAKINUM(matches[i].rm_eo + offset)); scm_long2num (matches[i].rm_eo + offset));
} }
scm_must_free ((char *) matches); scm_must_free ((char *) matches);
SCM_ALLOW_INTS; SCM_ALLOW_INTS;