suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

string allocation tweak

Browse Source
This commit is contained in:
Matthew Flatt 2011-07-06 19:58:11 -06:00
parent 2769fdd311
commit 0c605acaf4
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/racket/src/strops.inc
View File

@ -18,7 +18,10 @@ X(scheme_make_sized_offset, _string)(Xchar *chars, intptr_t d, intptr_t len, int
if (copy) {
Xchar *naya;
naya = (Xchar *)scheme_malloc_fail_ok(scheme_malloc_atomic, (len + 1) * sizeof(Xchar));
if (len < 100)
naya = (Xchar *)scheme_malloc_atomic((len + 1) * sizeof(Xchar));
else
naya = (Xchar *)scheme_malloc_fail_ok(scheme_malloc_atomic, (len + 1) * sizeof(Xchar));
SCHEME_X_STR_VAL(str) = naya;
memcpy(naya, chars + d, len * sizeof(Xchar));
naya[len] = 0;