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

Last change on this file since 8706 was 8648, checked in by sandervl, 23 years ago

thread linking + create TEB before thread creation
File size: 9.4 KB
Line 
1/* $Id: initkernel32.cpp,v 1.19 2002-06-11 16:36:53 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
62#define DBG_LOCALLOG DBG_initterm
63#include "dbglocal.h"
64
65PVOID SYSTEM _O32_GetEnvironmentStrings( VOID );
66
67extern "C" {
68 //Win32 resource table (produced by wrc)
69 extern DWORD kernel32_PEResTab;
70}
71
72 ULONG flAllocMem = 0; /* flag to optimize DosAllocMem to use all the memory on SMP machines */
73 ULONG ulMaxAddr = 0x20000000; /* end of user address space. */
74 int loadNr = 0;
75 char kernel32Path[CCHMAXPATH] = "";
76static HMODULE dllHandle = 0;
77 BOOL fInit = FALSE;
78
79/****************************************************************************/
80/* _DLL_InitTerm is the function that gets called by the operating system */
81/* loader when it loads and frees this DLL for each process that accesses */
82/* this DLL. However, it only gets called the first time the DLL is loaded */
83/* and the last time it is freed for a particular process. The system */
84/* linkage convention MUST be used because the operating system loader is */
85/* calling this function. */
86/****************************************************************************/
87ULONG APIENTRY inittermKernel32(ULONG hModule, ULONG ulFlag)
88{
89 size_t i;
90 APIRET rc;
91 ULONG ulSysinfo, version[2];
92
93 /*-------------------------------------------------------------------------*/
94 /* If ulFlag is zero then the DLL is being loaded so initialization should */
95 /* be performed. If ulFlag is 1 then the DLL is being freed so */
96 /* termination should be performed. */
97 /*-------------------------------------------------------------------------*/
98
99 if(fInit == TRUE && ulFlag == 0) {
100 return 1; //already initialized
101 }
102 fInit = TRUE;
103
104 switch (ulFlag)
105 {
106 case 0 :
107 {
108 ParseLogStatusKERNEL32();
109
110 /*
111 * Init the win32k library.
112 * We will also need to tell win32k where the Odin32 environment is
113 * located. Currently that is within Open32. I'm quite sure that it's
114 * not relocated during run, so we're pretty well off.
115 */
116 if (!libWin32kInit())
117 {
118 rc = libWin32kSetEnvironment((PSZ)_O32_GetEnvironmentStrings(), 0, 0);
119 if (rc)
120 {
121 dprintf(("KERNEL32: initterm: libWin32kSetEnvironment failed with rc=%d\n", rc));
122 }
123 }
124 strcpy(kernel32Path, OSLibGetDllName(hModule));
125 char *endofpath = strrchr(kernel32Path, '\\');
126 *(endofpath+1) = 0;
127
128 CheckVersionFromHMOD(PE2LX_VERSION, hModule); /*PLF Wed 98-03-18 05:28:48*/
129
130 dprintf(("kernel32 init %s %s (%x) Win32k - %s", __DATE__, __TIME__, inittermKernel32,
131 libWin32kInstalled() ? "Installed" : "Not Installed"));
132
133 OpenPrivateLogFiles();
134
135 if (InitializeSharedHeap() == FALSE)
136 return 0UL;
137
138 if (InitializeCodeHeap() == FALSE)
139 return 0UL;
140
141 InitializeMemMaps();
142
143 PROFILE_LoadOdinIni();
144 dllHandle = RegisterLxDll(hModule, 0, (PVOID)&kernel32_PEResTab);
145 if (dllHandle == 0)
146 return 0UL;
147
148 //SvL: Kernel32 is a special case; pe.exe loads it, so increase
149 // the reference count here
150 Win32DllBase *module = Win32DllBase::findModule(dllHandle);
151 if (module)
152 {
153 module->AddRef();
154 module->DisableUnload();
155 }
156
157 /* knut: check for high memory support */
158 rc = DosQuerySysInfo(QSV_VIRTUALADDRESSLIMIT, QSV_VIRTUALADDRESSLIMIT, &ulSysinfo, sizeof(ulSysinfo));
159 if (rc == 0 && ulSysinfo > 512) //VirtualAddresslimit is in MB
160 {
161 flAllocMem = PAG_ANY; // high memory support. Let's use it!
162 ulMaxAddr = ulSysinfo * (1024*1024);
163 OSLibInitWSeBFileIO();
164 if (PROFILE_GetOdinIniInt(ODINSYSTEM_SECTION, HIGHMEM_KEY, 1) == 0) {
165 dprintf(("WARNING: OS/2 kernel supports high memory, but support is DISABLED because of HIGHMEM odin.ini key"));
166 flAllocMem = 0;
167 }
168 }
169 else
170 flAllocMem = 0; // no high memory support
171
172 OSLibDosSetInitialMaxFileHandles(ODIN_DEFAULT_MAX_FILEHANDLES);
173
174 //SvL: Do it here instead of during the exe object creation
175 //(std handles can be used in win32 dll initialization routines
176 HMInitialize(); /* store standard handles within HandleManager */
177 InitDirectories(); //Must be done before InitializeTIB (which loads NTDLL -> USER32)
178 InitializeMainThread(); //Must be done after HMInitialize!
179 RegisterDevices();
180 Win32DllBase::setDefaultRenaming();
181 rc = DosQuerySysInfo(QSV_NUMPROCESSORS, QSV_NUMPROCESSORS, &ulSysinfo, sizeof(ulSysinfo));
182 if (rc != 0)
183 ulSysinfo = 1;
184
185 /* Setup codepage info */
186 CODEPAGE_Init();
187
188 InitSystemInfo(ulSysinfo);
189 //Set up environment as found in NT
190 InitEnvironment(ulSysinfo);
191
192 //InitDynamicRegistry creates/changes keys that may change (i.e. odin.ini
193 //keys that affect windows version)
194 InitDynamicRegistry();
195
196 //Load LVM subsystem for volume/mountpoint win32 functions
197 OSLibLVMInit();
198
199 //Set the process affinity mask to the system affinity mask
200 DWORD dwProcessAffinityMask, dwSystemAffinityMask;
201 GetProcessAffinityMask(GetCurrentProcess(), &dwProcessAffinityMask, &dwSystemAffinityMask);
202 SetProcessAffinityMask(GetCurrentProcess(), dwSystemAffinityMask);
203 break;
204 }
205
206 case 1 :
207 if (dllHandle)
208 {
209 UnregisterLxDll(dllHandle);
210 }
211 break;
212
213 default :
214 return 0UL;
215 }
216
217 /***********************************************************/
218 /* A non-zero value must be returned to indicate success. */
219 /***********************************************************/
220 return 1UL;
221}
222
223
224void APIENTRY cleanupKernel32(ULONG ulReason)
225{
226 dprintf(("kernel32 exit %d\n", ulReason));
227
228 //Flush and delete all open memory mapped files
229 Win32MemMap::deleteAll();
230 WinExe = NULL;
231
232 WriteOutProfiles();
233 //Unload LVM subsystem for volume/mountpoint win32 functions
234 OSLibLVMExit();
235
236 TEB *teb = GetThreadTEB();
237 if(teb) DestroyTEB(teb);
238 DestroySharedHeap();
239 DestroyCodeHeap();
240
241 HMTerminate(); /* shutdown handlemanager */
242
243#if defined(DEBUG) && defined(__IBMCPP__) && __IBMCPP__ == 300
244 ULONG totalmemalloc, nrcalls_malloc, nrcalls_free;
245
246 getcrtstat(&nrcalls_malloc, &nrcalls_free, &totalmemalloc);
247 dprintf(("************* KERNEL32 STATISTICS BEGIN *****************"));
248 dprintf(("Total nr of malloc calls %d", nrcalls_malloc));
249 dprintf(("Total nr of free calls %d", nrcalls_free));
250 dprintf(("Leaked memory: %d bytes", totalmemalloc));
251 dprintf(("************* KERNEL32 STATISTICS END *****************"));
252
253 //SvL: This can cause an exitlist hang; disabled for now
254//// _dump_allocated(0);
255#endif
256
257 //NOTE: Must be done after DestroyTIB
258 ClosePrivateLogFiles();
259 CloseLogFile();
260
261 /*
262 * Terminate win32k library.
263 */
264 libWin32kSetEnvironment(NULL, 0, 0);
265 libWin32kTerm();
266 return ;
267}
268//******************************************************************************
269//******************************************************************************
Note: See TracBrowser for help on using the repository browser.