source: trunk/src/kernel32/initkernel32.cpp@ 21649

Last change on this file since 21649 was 21649, checked in by dmik, 14 years ago

general: Exit gracefully instead of crashing if KERNEL32.DLL initialization fails. Note that "gracefully" means "silently" in this case since it seems that the only way how the OS/2 loader reports a failure to initialize a required DLL for a started EXE is by returning a non-zero exit code.
File size: 12.0 KB
Line 
1/* $Id: initkernel32.cpp,v 1.28 2004-05-24 08:56:06 sandervl Exp $
2 *
3 * KERNEL32 DLL entry point
4 *
5 * Copyright 1998 Sander van Leeuwen
6 * Copyright 1998 Peter Fitzsimmons
7 *
8 *
9 * Project Odin Software License can be found in LICENSE.TXT
10 *
11 */
12
13/*-------------------------------------------------------------*/
14/* INITERM.C -- Source for a custom dynamic link library */
15/* initialization and termination (_DLL_InitTerm) */
16/* function. */
17/* */
18/* When called to perform initialization, this sample function */
19/* gets storage for an array of integers, and initializes its */
20/* elements with random integers. At termination time, it */
21/* frees the array. Substitute your own special processing. */
22/*-------------------------------------------------------------*/
23
24
25/* Include files */
26#define INCL_DOSMODULEMGR
27#define INCL_DOSMISC
28#define INCL_DOSPROCESS
29#define INCL_DOSSEMAPHORES
30#include <os2wrap.h> //Odin32 OS/2 api wrappers
31#include <stdlib.h>
32#include <stdio.h>
33#include <string.h>
34#include <misc.h>
35#include <wprocess.h>
36#include "handlemanager.h"
37#include "profile.h"
38#include <options.h>
39#include "initterm.h"
40#include <win32type.h>
41#include <win32api.h>
42#include <odinlx.h>
43#include "oslibmisc.h"
44#include <heapshared.h>
45#include <heapcode.h>
46#include "mmap.h"
47#include "directory.h"
48#include "hmdevio.h"
49#include "hmcomm.h"
50#include <windllbase.h>
51#include "winexepe2lx.h"
52#include <exitlist.h>
53#include "oslibdos.h"
54#include "osliblvm.h"
55#include <cpuhlp.h>
56#include <Win32k.h>
57#include <initdll.h>
58#include <codepage.h>
59#include <process.h>
60#include <stats.h>
61#include <heapshared.h>
62#include <heapstring.h>
63#include <_ras.h>
64
65#define DBG_LOCALLOG DBG_initterm
66#include "dbglocal.h"
67
68PVOID SYSTEM _O32_GetEnvironmentStrings( VOID );
69
70extern "C" {
71 //Win32 resource table (produced by wrc)
72 extern DWORD kernel32_PEResTab;
73}
74
75// borrowed from ntddk.h
76extern "C"
77void WIN32API RtlUnwind(
78 LPVOID,
79 LPVOID,
80 LPVOID,DWORD);
81
82extern PFN pfnImSetMsgQueueProperty;
83
84 ULONG flAllocMem = 0; /* flag to optimize DosAllocMem to use all the memory on SMP machines */
85 ULONG ulMaxAddr = 0x20000000; /* end of user address space. */
86 int loadNr = 0;
87 char kernel32Path[CCHMAXPATH] = "";
88static HMODULE dllHandle = 0;
89 BOOL fInit = FALSE;
90 BOOL fWin32k = FALSE;
91 HMODULE imHandle = 0;
92 char szModName[ 256 ] = "";
93
94/****************************************************************************/
95/* _DLL_InitTerm is the function that gets called by the operating system */
96/* loader when it loads and frees this DLL for each process that accesses */
97/* this DLL. However, it only gets called the first time the DLL is loaded */
98/* and the last time it is freed for a particular process. The system */
99/* linkage convention MUST be used because the operating system loader is */
100/* calling this function. */
101/****************************************************************************/
102ULONG APIENTRY inittermKernel32(ULONG hModule, ULONG ulFlag)
103{
104 size_t i;
105 APIRET rc;
106 ULONG ulSysinfo, version[2];
107
108 /*-------------------------------------------------------------------------*/
109 /* If ulFlag is zero then the DLL is being loaded so initialization should */
110 /* be performed. If ulFlag is 1 then the DLL is being freed so */
111 /* termination should be performed. */
112 /*-------------------------------------------------------------------------*/
113
114 switch (ulFlag)
115 {
116 case 0:
117 {
118 if (fInit)
119 return 1; // already initialized
120
121 // This always must be the first thing to do.
122 RasInitialize (hModule);
123#ifdef RAS
124 extern void rasInitVirtual (void);
125 rasInitVirtual ();
126#endif
127
128 ParseLogStatusKERNEL32();
129
130 /*
131 * Init the win32k library.
132 * We will also need to tell win32k where the Odin32 environment is
133 * located. Currently that is within Open32. I'm quite sure that it's
134 * not relocated during run, so we're pretty well off.
135 */
136 //Note: we do NOT want to use any win32k services with custom builds
137 if (fCustomBuild == FALSE && !libWin32kInit())
138 {
139 rc = libWin32kSetEnvironment((PSZ)_O32_GetEnvironmentStrings(), 0, 0);
140 if (rc)
141 {
142 dprintf(("KERNEL32: initterm: libWin32kSetEnvironment failed with rc=%d\n", rc));
143 }
144 else fWin32k = TRUE;
145 }
146 strcpy(kernel32Path, OSLibGetDllName(hModule));
147 char *endofpath = strrchr(kernel32Path, '\\');
148 *(endofpath+1) = 0;
149
150 CheckVersionFromHMOD(PE2LX_VERSION, hModule); /*PLF Wed 98-03-18 05:28:48*/
151
152 /* knut: check for high memory support */
153 rc = DosQuerySysInfo(QSV_VIRTUALADDRESSLIMIT, QSV_VIRTUALADDRESSLIMIT, &ulSysinfo, sizeof(ulSysinfo));
154 if (rc == 0 && ulSysinfo > 512) //VirtualAddresslimit is in MB
155 {
156 flAllocMem = PAG_ANY; // high memory support. Let's use it!
157 ulMaxAddr = ulSysinfo * (1024*1024);
158 }
159 else
160 flAllocMem = 0; // no high memory support
161
162 dprintf(("kernel32 init %s %s (%x) Win32k - %s", __DATE__, __TIME__, inittermKernel32,
163 libWin32kInstalled() ? "Installed" : "Not Installed"));
164
165 OpenPrivateLogFiles();
166
167 //SvL: Do it here instead of during the exe object creation
168 //(std handles can be used in win32 dll initialization routines
169 HMInitialize(); /* store standard handles within HandleManager */
170
171 // VP: Shared heap should be initialized before call to PROFILE_*
172 // because they use a critical section which in turn uses smalloc
173 // in debug build
174 if (InitializeSharedHeap() == FALSE)
175 return 0UL;
176
177 // VP: initialize profile internal data (critical section actually).
178 // This was done in PROFILE_LoadOdinIni but PROFILE_GetOdinIniInt
179 // is called earlier and this lead to a handle leak.
180 PROFILE_Initialize();
181
182 if(flAllocMem == PAG_ANY) {
183 OSLibInitWSeBFileIO();
184 if (PROFILE_GetOdinIniInt(ODINSYSTEM_SECTION, HIGHMEM_KEY, 1) == 0) {
185 dprintf(("WARNING: OS/2 kernel supports high memory, but support is DISABLED because of HIGHMEM odin.ini key"));
186 flAllocMem = 0;
187 }
188 }
189
190 if (InitializeCodeHeap() == FALSE)
191 return 0UL;
192
193 InitializeMemMaps();
194
195 PROFILE_LoadOdinIni();
196 dllHandle = RegisterLxDll(hModule, 0, (PVOID)&kernel32_PEResTab);
197 if (dllHandle == 0)
198 return 0UL;
199
200 //SvL: Kernel32 is a special case; pe.exe loads it, so increase
201 // the reference count here
202 Win32DllBase *module = Win32DllBase::findModule(dllHandle);
203 if (module)
204 {
205 module->AddRef();
206 module->DisableUnload();
207 }
208
209 OSLibDosSetInitialMaxFileHandles(ODIN_DEFAULT_MAX_FILEHANDLES);
210
211
212#ifdef DEBUG
213 {
214 LPSTR WIN32API GetEnvironmentStringsA();
215
216 char *tmpenvnew = GetEnvironmentStringsA();
217 dprintf(("Environment:"));
218 while(*tmpenvnew) {
219 dprintf(("%s", tmpenvnew));
220 tmpenvnew += strlen(tmpenvnew)+1;
221 }
222 }
223#endif
224
225 InitDirectories(); //Must be done before InitializeTIB (which loads NTDLL -> USER32)
226 InitializeMainThread(); //Must be done after HMInitialize!
227 RegisterDevices();
228 Win32DllBase::setDefaultRenaming();
229 rc = DosQuerySysInfo(QSV_NUMPROCESSORS, QSV_NUMPROCESSORS, &ulSysinfo, sizeof(ulSysinfo));
230 if (rc != 0)
231 ulSysinfo = 1;
232
233 /* Setup codepage info */
234 CODEPAGE_Init();
235
236 if( IsDBCSEnv() && DosLoadModule( szModName, sizeof( szModName ), "OS2IM", &imHandle ) == 0 )
237 DosQueryProcAddr( imHandle, 140, NULL, &pfnImSetMsgQueueProperty );
238
239 InitSystemInfo(ulSysinfo);
240 //Set up environment as found in NT
241 InitEnvironment(ulSysinfo);
242
243 //InitDynamicRegistry creates/changes keys that may change (i.e. odin.ini
244 //keys that affect windows version)
245 InitDynamicRegistry();
246
247 //Set the process affinity mask to the system affinity mask
248 DWORD dwProcessAffinityMask, dwSystemAffinityMask;
249 GetProcessAffinityMask(GetCurrentProcess(), &dwProcessAffinityMask, &dwSystemAffinityMask);
250 SetProcessAffinityMask(GetCurrentProcess(), dwSystemAffinityMask);
251
252 //Set default paths for PE & NE loaders
253 InitLoaders();
254
255 RasEntry (RAS_EVENT_Kernel32InitComplete, &dllHandle, sizeof (dllHandle));
256
257 fInit = TRUE;
258
259 break;
260 }
261
262 case 1:
263 if (dllHandle)
264 {
265 UnregisterLxDll(dllHandle);
266 }
267 break;
268
269 default:
270 return 0;
271 }
272
273 /***********************************************************/
274 /* A non-zero value must be returned to indicate success. */
275 /***********************************************************/
276 return 1UL;
277}
278//******************************************************************************
279//******************************************************************************
280void APIENTRY cleanupKernel32(ULONG ulReason)
281{
282 if (!fInit)
283 {
284 // The initialization sequence was not complete; attempting to
285 // uninitialize some things may crash (yeah, dirty code that doesn't
286 // analyze its own state)
287 return;
288 }
289
290 dprintf(("kernel32 exit %d", ulReason));
291
292 TEB *teb = GetThreadTEB();
293
294 if (teb)
295 {
296 // make sure the Win32 exception stack (if there is still any) is unwound
297 // before we destroy internal structures including the Win32 TEB
298 RtlUnwind(NULL, 0, 0, 0);
299 }
300
301 if( IsDBCSEnv() && imHandle )
302 DosFreeModule( imHandle );
303
304 //Flush and delete all open memory mapped files
305 Win32MemMap::deleteAll();
306 WinExe = NULL;
307
308 FinalizeMemMaps();
309
310 WriteOutProfiles();
311 //Unload LVM subsystem for volume/mountpoint win32 functions
312 OSLibLVMExit();
313
314 if(teb) DestroyTEB(teb);
315 DestroySharedHeap();
316 DestroyCodeHeap();
317
318 HMTerminate(); /* shutdown handlemanager */
319
320#ifdef DEBUG
321 extern void printCriticalSectionStatistic (void);
322 printCriticalSectionStatistic ();
323#endif
324
325#if defined(DEBUG) && defined(__IBMCPP__) && __IBMCPP__ == 300
326 ULONG totalmemalloc, nrcalls_malloc, nrcalls_free;
327
328 getcrtstat(&nrcalls_malloc, &nrcalls_free, &totalmemalloc);
329 dprintf(("************* KERNEL32 STATISTICS BEGIN *****************"));
330 dprintf(("Total nr of malloc calls %d", nrcalls_malloc));
331 dprintf(("Total nr of free calls %d", nrcalls_free));
332 dprintf(("Leaked memory: %d bytes", totalmemalloc));
333 dprintf(("************* KERNEL32 STATISTICS END *****************"));
334
335 //SvL: This can cause an exitlist hang; disabled for now
336//// _dump_allocated(0);
337#endif
338
339 //NOTE: Must be done after DestroyTIB
340 ClosePrivateLogFiles();
341
342#ifndef DEBUG
343 //if we do a dump of the shared heap, then we'll need the logging facility
344 //for a little while longer
345 CloseLogFile();
346#endif
347
348 /*
349 * Terminate win32k library.
350 */
351 libWin32kSetEnvironment(NULL, 0, 0);
352 libWin32kTerm();
353
354 RasUninitialize ();
355
356 return ;
357}
358//******************************************************************************
359//******************************************************************************
Note: See TracBrowser for help on using the repository browser.