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

fix memory-management bugs in rktio on Windows

Browse Source
This commit is contained in:
Matthew Flatt 2017-06-21 15:52:51 -06:00
parent a15b16cfd9
commit 58dea081c6
2 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
racket/src/rktio/rktio_convert.c
View File

@ -344,31 +344,31 @@ char *rktio_system_language_country(rktio_t *rktio)
/* Windows */
LCID l;
int llen, clen;
char *lang, *country, *s;
wchar_t *lang, *country, *s;
l = GetUserDefaultLCID();
llen = GetLocaleInfo(l, LOCALE_SENGLANGUAGE, NULL, 0);
lang = malloc(llen);
llen = GetLocaleInfoW(l, LOCALE_SENGLANGUAGE, NULL, 0);
lang = malloc(llen * sizeof(wchar_t));
GetLocaleInfo(l, LOCALE_SENGLANGUAGE, lang, llen);
if (llen)
llen -= 1; /* drop nul terminator */
clen = GetLocaleInfo(l, LOCALE_SENGCOUNTRY, NULL, 0);
country = malloc(clen);
GetLocaleInfo(l, LOCALE_SENGCOUNTRY, country, clen);
clen = GetLocaleInfoW(l, LOCALE_SENGCOUNTRY, NULL, 0);
country = malloc(clen * sizeof(wchar_t));
GetLocaleInfoW(l, LOCALE_SENGCOUNTRY, country, clen);
if (clen)
clen -= 1; /* drop nul terminator */
s = malloc(clen + llen + 2);
memcpy(s, lang, llen);
memcpy(s + 1 + llen, country, clen);
s = malloc((clen + llen + 2) * sizeof(wchar_t));
memcpy(s, lang, llen * sizeof(wchar_t));
memcpy(s + 1 + llen, country, clen * sizeof(wchar_t));
s[llen] = '_';
s[clen + llen + 1] = 0;
free(lang);
free(country);
return s;
return NARROW_PATH_copy_then_free(s);
#else
/* Unix */
char *s;

2
racket/src/rktio/rktio_fs.c
View File

@ -365,7 +365,7 @@ static int UNC_stat(rktio_t *rktio, const char *dirname, int *flags, int *isdir,
len = strlen(dirname);
copy = malloc(len+1);
copy = malloc(len+3); /* leave room to add `\.` */
memcpy(copy, dirname, len+1);
if (!rktio->windows_nt_or_later