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

Last change on this file since 7318 was 7318, checked in by sandervl, 24 years ago

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