Fixed warnings from TestEnvironmentGetEnvironmentStrings

This commit is contained in:
Armin Novak 2019-10-29 12:57:19 +01:00
parent 1fb716d864
commit b06efc78ec
1 changed files with 13 additions and 3 deletions

View File

@ -6,23 +6,33 @@
int TestEnvironmentGetEnvironmentStrings(int argc, char* argv[])
{
int r = -1;
TCHAR* p;
int length;
size_t length;
LPTCH lpszEnvironmentBlock;
WINPR_UNUSED(argc);
WINPR_UNUSED(argv);
lpszEnvironmentBlock = GetEnvironmentStrings();
p = (TCHAR*) lpszEnvironmentBlock;
while (p[0] && p[1])
{
_tprintf(_T("%s\n"), p);
const int rc = _tprintf(_T("%s\n"), p);
if (rc < 1)
goto fail;
length = _tcslen(p);
if (length != (size_t)(rc - 1))
goto fail;
p += (length + 1);
}
r = 0;
fail:
FreeEnvironmentStrings(lpszEnvironmentBlock);
return 0;
return r;
}