fix bug with long environment variables

db4
Doug Coleman 2008-04-11 21:37:18 -05:00
parent 481bb0b9bd
commit 07b1552d2e
1 changed files with 2 additions and 2 deletions

View File

@ -218,9 +218,9 @@ void sleep_millis(DWORD msec)
DEFINE_PRIMITIVE(os_env) DEFINE_PRIMITIVE(os_env)
{ {
F_CHAR *key = unbox_u16_string(); F_CHAR *key = unbox_u16_string();
F_CHAR *value = safe_malloc(MAX_UNICODE_PATH); F_CHAR *value = safe_malloc(MAX_UNICODE_PATH * 2);
int ret; int ret;
ret = GetEnvironmentVariable(key, value, MAX_UNICODE_PATH); ret = GetEnvironmentVariable(key, value, MAX_UNICODE_PATH * 2);
if(ret == 0) if(ret == 0)
dpush(F); dpush(F);
else else