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

3m fix, maybe

Browse Source 
svn: r1649
This commit is contained in:
Matthew Flatt 2005-12-19 17:50:16 +00:00
parent ee7684dd9f
commit 7ccd4a4a61
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/src/string.c
View File

@ -2975,6 +2975,7 @@ mzchar *do_native_recase(int to_up, mzchar *in, int delta, int len, long *olen)
{
CFMutableStringRef mstr;
CFStringRef str;
GC_CAN_IGNORE CFRange rng;
char *result;
str = CFStringCreateWithBytes(NULL, ((char *)in) XFORM_OK_PLUS (delta * 2), (len * 2), kCFStringEncodingUnicode, FALSE);
@ -2991,7 +2992,8 @@ mzchar *do_native_recase(int to_up, mzchar *in, int delta, int len, long *olen)
result = (char *)scheme_malloc_atomic((len + 1) * 2);
CFStringGetCharacters(mstr, CFRangeMake(0, len), (UniChar *)result);
rng = CFRangeMake(0, len);
CFStringGetCharacters(mstr, rng, (UniChar *)result);
CFRelease(mstr);
((UniChar *)result)[len] = 0;