Implemented __p__pgmptr, _pgmptr.

dlls/msvcrt/data.c

@@ -62,6 +62,8 @@ char **MSVCRT___initenv = 0;
 MSVCRT_wchar_t **MSVCRT___winitenv = 0;
 int MSVCRT_timezone;
 int MSVCRT_app_type;
+char MSVCRT_pgm[MAX_PATH];
+char* MSVCRT__pgmptr = 0;
 
 /* Get a snapshot of the current environment
  * and construct the __p__environ array
@@ -147,6 +149,12 @@ int* __p___argc(void) { return &MSVCRT___argc; }
  */
 unsigned int* __p__commode(void) { return &MSVCRT__commode; }
 
+
+/***********************************************************************
+ *              __p__pgmptr (MSVCRT.@)
+ */
+char** __p__pgmptr(void) { return &MSVCRT__pgmptr; }
+
 /***********************************************************************
  *		__p__fmode (MSVCRT.@)
  */
@@ -273,11 +281,12 @@ void msvcrt_init_args(void)
   MSVCRT___unguarded_readlc_active = 0;
   MSVCRT_timezone = 0;
 
-  /* FIXME: set app type for Winelib apps */
-
   MSVCRT___initenv= msvcrt_SnapshotOfEnvironmentA(NULL);
   MSVCRT___winitenv= msvcrt_SnapshotOfEnvironmentW(NULL);
 
+  MSVCRT_pgm[0] = '\0';
+  GetModuleFileNameA(0, MSVCRT_pgm, sizeof(MSVCRT_pgm)/sizeof(MSVCRT_pgm[0]));
+  MSVCRT__pgmptr = MSVCRT_pgm;
 }
 
 

dlls/msvcrt/msvcrt.spec

@@ -119,7 +119,7 @@
 @ cdecl __p__mbctype() __p__mbctype
 @ cdecl __p__osver()  __p__osver
 @ cdecl __p__pctype() __p__pctype
-@ stub __p__pgmptr #()
+@ cdecl __p__pgmptr() __p__pgmptr
 @ stub __p__pwctype #()
 @ cdecl __p__timezone() __p__timezone
 @ stub __p__tzname #()
@@ -402,7 +402,7 @@
 @ stub _outpw #(long long)
 @ stub _pclose #(ptr)
 @ extern _pctype MSVCRT__pctype
-@ stub _pgmptr
+@ extern _pgmptr MSVCRT__pgmptr
 @ stub _pipe #(ptr long long)
 @ stub _popen #(str str)
 @ cdecl _purecall() _purecall