void
Perl_win32_init (int *argcp, char ***argvp)
{
  HMODULE module;

  _control87 (0x0008001f, 0x0008001f);
#line 4840 "win32.c"
  ;

  InitCommonControls ();

  module = GetModuleHandleA ("ntdll.dll");
  if (module)
    {
      *(FARPROC *) & pfnZwQuerySystemInformation = GetProcAddress (module, "ZwQuerySystemInformation");
    }

  module = GetModuleHandleA ("kernel32.dll");
  if (module)
    {
      *(FARPROC *) & pfnCreateToolhelp32Snapshot = GetProcAddress (module, "CreateToolhelp32Snapshot");
      *(FARPROC *) & pfnProcess32First = GetProcAddress (module, "Process32First");
      *(FARPROC *) & pfnProcess32Next = GetProcAddress (module, "Process32Next");
    }

  g_osver.dwOSVersionInfoSize = sizeof (g_osver);
  GetVersionExA (&g_osver);

  ansify_path ();
}