diff options
author | Ludovic Courtes <ludovic.courtes@laas.fr> | 2006-06-08 22:01:47 +0000 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2008-09-10 20:27:00 +0200 |
commit | 92d8fd328c66df2132e13ff1428bb83b2f4350c2 (patch) | |
tree | e1f169b254223ec763e7fef5d556201514015c65 /libguile/regex-posix.c | |
parent | 6cc80cb6ab28b6b1c3b016465d61c0e77c0ee290 (diff) | |
download | guile-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.c | 2 |
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; |