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

* regex-posix.c (scm_free_regex_t): Return size of regex_t instead

Browse source 
of 0; size_t --> scm_size_t.  Thanks to Bernard Urban.
This commit is contained in:
Mikael Djurfeldt 1997-11-06 15:09:30 +00:00
parent 0d5d71838d
commit 80b991c346
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 @@
1997-11-06 Mikael Djurfeldt <mdj@nada.kth.se>
* regex-posix.c (scm_free_regex_t): Return size of regex_t instead
of 0; size_t --> scm_size_t. Thanks to Bernard Urban.
1997-10-26 Mikael Djurfeldt <mdj@nada.kth.se> 1997-10-26 Mikael Djurfeldt <mdj@nada.kth.se>
* scmconfig.h.in: Updated (HAVE_LIBTERMCAP was added when * scmconfig.h.in: Updated (HAVE_LIBTERMCAP was added when

4
libguile/regex-posix.c
View file

@ -87,13 +87,13 @@
long scm_tc16_regex_t; long scm_tc16_regex_t;
static size_t static scm_size_t
scm_free_regex_t (obj) scm_free_regex_t (obj)
SCM obj; SCM obj;
{ {
regfree (SCM_RGX (obj)); regfree (SCM_RGX (obj));
free (SCM_RGX (obj)); free (SCM_RGX (obj));
return 0; return sizeof(regex_t);
} }
static int static int