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

Last change on this file since 21302 was 21302, checked in by ydario, 16 years ago

Kernel32 updates.
File size: 11.3 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 <_ras.h>
63
64#define DBG_LOCALLOG DBG_initterm
65#include "dbglocal.h"
66
67PVOID SYSTEM _O32_GetEnvironmentStrings( VOID );
68
69extern "C" {
70 //Win32 resource table (produced by wrc)
71 extern DWORD kernel32_PEResTab;
72}
73
74 ULONG flAllocMem = 0; /* flag to optimize DosAllocMem to use all the memory on SMP machines */
75 ULONG ulMaxAddr = 0x20000000; /* end of user address space. */
76 int loadNr = 0;
77 char kernel32Path[CCHMAXPATH] = "";
78static HMODULE dllHandle = 0;
79 BOOL fInit = FALSE;
80 BOOL fWin32k = FALSE;
81
82/****************************************************************************/
83/* _DLL_InitTerm is the function that gets called by the operating system */
84/* loader when it loads and frees this DLL for each process that accesses */
85/* this DLL. However, it only gets called the first time the DLL is loaded */
86/* and the last time it is freed for a particular process. The system */
87/* linkage convention MUST be used because the operating system loader is */
88/* calling this function. */
89/****************************************************************************/
90ULONG APIENTRY inittermKernel32(ULONG hModule, ULONG ulFlag)
91{
92 size_t i;
93 APIRET rc;
94 ULONG ulSysinfo, version[2];
95
96 /*-------------------------------------------------------------------------*/
97 /* If ulFlag is zero then the DLL is being loaded so initialization should */
98 /* be performed. If ulFlag is 1 then the DLL is being freed so */
99 /* termination should be performed. */
100 /*-------------------------------------------------------------------------*/
101
102 if(fInit == TRUE && ulFlag == 0) {
103 return 1; //already initialized
104 }
105 fInit = TRUE;
106
107 switch (ulFlag)
108 {
109 case 0 :
110 {
111 // This always must be the first thing to do.
112 RasInitialize (hModule);
113#ifdef RAS
114 extern void rasInitVirtual (void);
115 rasInitVirtual ();
116#endif
117
118 ParseLogStatusKERNEL32();
119
120 /*
121 * Init the win32k library.
122 * We will also need to tell win32k where the Odin32 environment is
123 * located. Currently that is within Open32. I'm quite sure that it's
124 * not relocated during run, so we're pretty well off.
125 */
126 //Note: we do NOT want to use any win32k services with custom builds
127 if (fCustomBuild == FALSE && !libWin32kInit())
128 {
129 rc = libWin32kSetEnvironment((PSZ)_O32_GetEnvironmentStrings(), 0, 0);
130 if (rc)
131 {
132 dprintf(("KERNEL32: initterm: libWin32kSetEnvironment failed with rc=%d\n", rc));
133 }
134 else fWin32k = TRUE;
135 }
136 strcpy(kernel32Path, OSLibGetDllName(hModule));
137 char *endofpath = strrchr(kernel32Path, '\\');
138 *(endofpath+1) = 0;
139
140 CheckVersionFromHMOD(PE2LX_VERSION, hModule); /*PLF Wed 98-03-18 05:28:48*/
141
142 /* knut: check for high memory support */
143 rc = DosQuerySysInfo(QSV_VIRTUALADDRESSLIMIT, QSV_VIRTUALADDRESSLIMIT, &ulSysinfo, sizeof(ulSysinfo));
144 if (rc == 0 && ulSysinfo > 512) //VirtualAddresslimit is in MB
145 {
146 flAllocMem = PAG_ANY; // high memory support. Let's use it!
147 ulMaxAddr = ulSysinfo * (1024*1024);
148 }
149 else
150 flAllocMem = 0; // no high memory support
151
152 dprintf(("kernel32 init %s %s (%x) Win32k - %s", __DATE__, __TIME__, inittermKernel32,
153 libWin32kInstalled() ? "Installed" : "Not Installed"));
154
155 OpenPrivateLogFiles();
156
157 //SvL: Do it here instead of during the exe object creation
158 //(std handles can be used in win32 dll initialization routines
159 HMInitialize(); /* store standard handles within HandleManager */
160
161 // VP: Shared heap should be initialized before call to PROFILE_*
162 // because they use a critical section which in turn uses smalloc
163 // in debug build
164 if (InitializeSharedHeap() == FALSE)
165 return 0UL;
166
167 // VP: initialize profile internal data (critical section actually).
168 // This was done in PROFILE_LoadOdinIni but PROFILE_GetOdinIniInt
169 // is called earlier and this lead to a handle leak.
170 PROFILE_Initialize();
171
172 if(flAllocMem == PAG_ANY) {
173 OSLibInitWSeBFileIO();
174 if (PROFILE_GetOdinIniInt(ODINSYSTEM_SECTION, HIGHMEM_KEY, 1) == 0) {
175 dprintf(("WARNING: OS/2 kernel supports high memory, but support is DISABLED because of HIGHMEM odin.ini key"));
176 flAllocMem = 0;
177 }
178 }
179
180 if (InitializeCodeHeap() == FALSE)
181 return 0UL;
182
183 InitializeMemMaps();
184
185 PROFILE_LoadOdinIni();
186 dllHandle = RegisterLxDll(hModule, 0, (PVOID)&kernel32_PEResTab);
187 if (dllHandle == 0)
188 return 0UL;
189
190 //SvL: Kernel32 is a special case; pe.exe loads it, so increase
191 // the reference count here
192 Win32DllBase *module = Win32DllBase::findModule(dllHandle);
193 if (module)
194 {
195 module->AddRef();
196 module->DisableUnload();
197 }
198
199 OSLibDosSetInitialMaxFileHandles(ODIN_DEFAULT_MAX_FILEHANDLES);
200
201
202#ifdef DEBUG
203 {
204 LPSTR WIN32API GetEnvironmentStringsA();
205
206 char *tmpenvnew = GetEnvironmentStringsA();
207 dprintf(("Environment:"));
208 while(*tmpenvnew) {
209 dprintf(("%s", tmpenvnew));
210 tmpenvnew += strlen(tmpenvnew)+1;
211 }
212 }
213#endif
214
215 InitDirectories(); //Must be done before InitializeTIB (which loads NTDLL -> USER32)
216 InitializeMainThread(); //Must be done after HMInitialize!
217 RegisterDevices();
218 Win32DllBase::setDefaultRenaming();
219 rc = DosQuerySysInfo(QSV_NUMPROCESSORS, QSV_NUMPROCESSORS, &ulSysinfo, sizeof(ulSysinfo));
220 if (rc != 0)
221 ulSysinfo = 1;
222
223 /* Setup codepage info */
224 CODEPAGE_Init();
225
226 InitSystemInfo(ulSysinfo);
227 //Set up environment as found in NT
228 InitEnvironment(ulSysinfo);
229
230 //InitDynamicRegistry creates/changes keys that may change (i.e. odin.ini
231 //keys that affect windows version)
232 InitDynamicRegistry();
233
234 //Set the process affinity mask to the system affinity mask
235 DWORD dwProcessAffinityMask, dwSystemAffinityMask;
236 GetProcessAffinityMask(GetCurrentProcess(), &dwProcessAffinityMask, &dwSystemAffinityMask);
237 SetProcessAffinityMask(GetCurrentProcess(), dwSystemAffinityMask);
238
239 //Activate current timezone information
240 TIME_ZONE_INFORMATION tzone;
241 GetTimeZoneInformation(&tzone);
242 SetTimeZoneInformation(&tzone);
243
244 //Set default paths for PE & NE loaders
245 InitLoaders();
246
247 RasEntry (RAS_EVENT_Kernel32InitComplete, &dllHandle, sizeof (dllHandle));
248
249 break;
250 }
251
252 case 1 :
253 if (dllHandle)
254 {
255 UnregisterLxDll(dllHandle);
256 }
257 break;
258
259 default :
260 return 0UL;
261 }
262
263 /***********************************************************/
264 /* A non-zero value must be returned to indicate success. */
265 /***********************************************************/
266 return 1UL;
267}
268//******************************************************************************
269//******************************************************************************
270void APIENTRY cleanupKernel32(ULONG ulReason)
271{
272 dprintf(("kernel32 exit %d\n", ulReason));
273
274 //Flush and delete all open memory mapped files
275 Win32MemMap::deleteAll();
276 WinExe = NULL;
277
278 FinalizeMemMaps();
279
280 WriteOutProfiles();
281 //Unload LVM subsystem for volume/mountpoint win32 functions
282 OSLibLVMExit();
283
284 TEB *teb = GetThreadTEB();
285 if(teb) DestroyTEB(teb);
286 DestroySharedHeap();
287 DestroyCodeHeap();
288
289 HMTerminate(); /* shutdown handlemanager */
290
291#ifdef DEBUG
292 extern void printCriticalSectionStatistic (void);
293 printCriticalSectionStatistic ();
294#endif
295
296#if defined(DEBUG) && defined(__IBMCPP__) && __IBMCPP__ == 300
297 ULONG totalmemalloc, nrcalls_malloc, nrcalls_free;
298
299 getcrtstat(&nrcalls_malloc, &nrcalls_free, &totalmemalloc);
300 dprintf(("************* KERNEL32 STATISTICS BEGIN *****************"));
301 dprintf(("Total nr of malloc calls %d", nrcalls_malloc));
302 dprintf(("Total nr of free calls %d", nrcalls_free));
303 dprintf(("Leaked memory: %d bytes", totalmemalloc));
304 dprintf(("************* KERNEL32 STATISTICS END *****************"));
305
306 //SvL: This can cause an exitlist hang; disabled for now
307//// _dump_allocated(0);
308#endif
309
310 //NOTE: Must be done after DestroyTIB
311 ClosePrivateLogFiles();
312
313#ifndef DEBUG
314 //if we do a dump of the shared heap, then we'll need the logging facility
315 //for a little while longer
316 CloseLogFile();
317#endif
318
319 /*
320 * Terminate win32k library.
321 */
322 libWin32kSetEnvironment(NULL, 0, 0);
323 libWin32kTerm();
324
325 RasUninitialize ();
326
327 return ;
328}
329//******************************************************************************
330//******************************************************************************
Note: See TracBrowser for help on using the repository browser.