summaryrefslogtreecommitdiff
path: root/libguile/regex-posix.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1998-06-09 20:27:35 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1998-06-09 20:27:35 +0000
commit62f1c6d2161dd000e420626df6619ba1c999349e (patch)
treecf317ba13847c9ca1105b12208ae31ed9860b51b /libguile/regex-posix.c
parent38d0f691cefdf7a1b6dea6776128890f3fb5030a (diff)
downloadguile-62f1c6d2161dd000e420626df6619ba1c999349e.tar.gz
* regex-posix.c (scm_regexp_exec): Free malloced memory. (Thanks
to Julian Satchell and Roland Kaufmann.)
Diffstat (limited to 'libguile/regex-posix.c')
-rw-r--r--libguile/regex-posix.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/regex-posix.c b/libguile/regex-posix.c
index 8fd9b03ce..0b63a3ea8 100644
--- a/libguile/regex-posix.c
+++ b/libguile/regex-posix.c
@@ -256,6 +256,7 @@ scm_regexp_exec (SCM rx, SCM str, SCM start, SCM flags)
SCM_VELTS(mvec)[i+1] = scm_cons(SCM_MAKINUM(matches[i].rm_so + offset),
SCM_MAKINUM(matches[i].rm_eo + offset));
}
+ scm_must_free ((char *) matches);
SCM_ALLOW_INTS;
if (status != 0 && status != REG_NOMATCH)