summaryrefslogtreecommitdiff
path: root/libguile/regex-posix.c
diff options
context:
space:
mode:
authorLudovic Courtes <ludovic.courtes@laas.fr>2006-06-08 22:01:47 +0000
committerLudovic Courtès <ludo@gnu.org>2008-09-10 20:27:00 +0200
commit92d8fd328c66df2132e13ff1428bb83b2f4350c2 (patch)
treee1f169b254223ec763e7fef5d556201514015c65 /libguile/regex-posix.c
parent6cc80cb6ab28b6b1c3b016465d61c0e77c0ee290 (diff)
downloadguile-92d8fd328c66df2132e13ff1428bb83b2f4350c2.tar.gz
Use `scm_gc_malloc_pointerless' in various places (improves performance).
* libguile/fports.c (scm_fport_buffer_add): Use `scm_gc_malloc_pointerless ()' instead of `scm_gc_malloc ()' when allocating room for the read/write buffers. * libguile/numbers.c (scm_c_make_rectangular): Likewise. * libguile/ports.c (scm_ungetc): Likewise. * libguile/random.c (scm_i_copy_rstate): Likewise. (scm_c_make_rstate): Likewise. * libguile/regex-posix.c (scm_make_regexp): Likewise. git-archimport-id: lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--patch-36
Diffstat (limited to 'libguile/regex-posix.c')
-rw-r--r--libguile/regex-posix.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/regex-posix.c b/libguile/regex-posix.c
index fcef50006..9332f2661 100644
--- a/libguile/regex-posix.c
+++ b/libguile/regex-posix.c
@@ -172,7 +172,7 @@ SCM_DEFINE (scm_make_regexp, "make-regexp", 1, 0, 1,
flag = SCM_CDR (flag);
}
- rx = scm_gc_malloc (sizeof(regex_t), "regex");
+ rx = scm_gc_malloc_pointerless (sizeof (regex_t), "regex");
c_pat = scm_to_locale_string (pat);
status = regcomp (rx, c_pat,
/* Make sure they're not passing REG_NOSUB;