ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Make environment variables uppercase.

This commit is contained in:
Markus Amsler 2004-08-13 00:39:16 +00:00 committed by Alexandre Julliard
parent be2c020ce4
commit f89e115867
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
dlls/winedos/module.c
View File

@ -158,6 +158,7 @@ static void MZ_FillPSP( LPVOID lpPSP, LPCSTR cmdtail, int length )
static WORD MZ_InitEnvironment( LPCSTR env, LPCSTR name ) static WORD MZ_InitEnvironment( LPCSTR env, LPCSTR name )
{ {
unsigned sz=0; unsigned sz=0;
unsigned i=0;
WORD seg; WORD seg;
LPSTR envblk; LPSTR envblk;
@ -171,6 +172,16 @@ static WORD MZ_InitEnvironment( LPCSTR env, LPCSTR name )
if (env) { if (env) {
memcpy(envblk,env,sz); memcpy(envblk,env,sz);
} else envblk[0]=0; } else envblk[0]=0;
/* DOS environment variables are uppercase */
while (envblk[i]){
while (envblk[i] != '='){
if (envblk[i]>='a' && envblk[i] <= 'z'){
envblk[i] -= 32;
}
i++;
}
i += strlen(envblk+i) + 1;
}
/* DOS 3.x: the block contains 1 additional string */ /* DOS 3.x: the block contains 1 additional string */
*(WORD*)(envblk+sz)=1; *(WORD*)(envblk+sz)=1;
/* being the program name itself */ /* being the program name itself */