source: trunk/src/kernel32/initterm.cpp@ 615

Last change on this file since 615 was 615, checked in by sandervl, 26 years ago

Logfile crash fix
File size: 5.1 KB
Line 
1/* $Id: initterm.cpp,v 1.12 1999-08-22 08:33:14 sandervl Exp $ */
2
3/*
4 * KERNEL32 DLL entry point
5 *
6 * Copyright 1998 Sander van Leeuwen
7 * Copyright 1998 Peter Fitzsimmons
8 *
9 *
10 * Project Odin Software License can be found in LICENSE.TXT
11 *
12 */
13
14/*-------------------------------------------------------------*/
15/* INITERM.C -- Source for a custom dynamic link library */
16/* initialization and termination (_DLL_InitTerm) */
17/* function. */
18/* */
19/* When called to perform initialization, this sample function */
20/* gets storage for an array of integers, and initializes its */
21/* elements with random integers. At termination time, it */
22/* frees the array. Substitute your own special processing. */
23/*-------------------------------------------------------------*/
24
25
26/* Include files */
27#define INCL_DOSMODULEMGR
28#define INCL_DOSMISC
29#define INCL_DOSPROCESS
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
39/*-------------------------------------------------------------------*/
40/* A clean up routine registered with DosExitList must be used if */
41/* runtime calls are required and the runtime is dynamically linked. */
42/* This will guarantee that this clean up routine is run before the */
43/* library DLL is terminated. */
44/*-------------------------------------------------------------------*/
45static void APIENTRY cleanup(ULONG reason);
46extern void APIENTRY Win32DllExitList(ULONG reason);
47
48extern "C" {
49void CDECL _ctordtorInit( void );
50void CDECL _ctordtorTerm( void );
51}
52
53void CloseLogFile(); //misc.cpp
54
55/* Tue 03.03.1998: knut */
56/* flag to optimize DosAllocMem to use all the memory on SMP machines */
57ULONG flAllocMem;
58
59#ifndef PAG_ANY
60 #define PAG_ANY 0x00000400
61#endif
62
63#ifndef QSV_VIRTUALADDRESSLIMIT
64 #define QSV_VIRTUALADDRESSLIMIT 30
65#endif
66
67/****************************************************************************/
68/* _DLL_InitTerm is the function that gets called by the operating system */
69/* loader when it loads and frees this DLL for each process that accesses */
70/* this DLL. However, it only gets called the first time the DLL is loaded */
71/* and the last time it is freed for a particular process. The system */
72/* linkage convention MUST be used because the operating system loader is */
73/* calling this function. */
74/****************************************************************************/
75unsigned long SYSTEM _DLL_InitTerm(unsigned long hModule, unsigned long
76 ulFlag)
77{
78 size_t i;
79 APIRET rc;
80 ULONG sysinfo;
81
82 /*-------------------------------------------------------------------------*/
83 /* If ulFlag is zero then the DLL is being loaded so initialization should */
84 /* be performed. If ulFlag is 1 then the DLL is being freed so */
85 /* termination should be performed. */
86 /*-------------------------------------------------------------------------*/
87
88 switch (ulFlag)
89 {
90 case 0 :
91 dprintf(("kernel32 init\n"));
92 _ctordtorInit();
93
94 CheckVersionFromHMOD(PE2LX_VERSION, hModule); /*PLF Wed 98-03-18 05:28:48*/
95 /*******************************************************************/
96 /* A DosExitList routine must be used to clean up if runtime calls */
97 /* are required and the runtime is dynamically linked. */
98 /*******************************************************************/
99
100 rc = DosExitList(0x0000F000|EXLST_ADD, cleanup);
101 if (rc)
102 return 0UL;
103
104 /* knut: check for high memory support */
105 rc = DosQuerySysInfo(QSV_VIRTUALADDRESSLIMIT, QSV_VIRTUALADDRESSLIMIT, &sysinfo, sizeof(sysinfo));
106
107 if ( rc == 0 && sysinfo > 512 ) //VirtualAddresslimit is in MB
108 flAllocMem = PAG_ANY; // high memory support. Let's use it!
109 else flAllocMem = 0; // no high memory support
110
111 InitializeTIB(TRUE);
112 //SvL: Do it here instead of during the exe object creation
113 //(std handles can be used in win32 dll initialization routines
114 HMInitialize(); /* store standard handles within HandleManager */
115 break;
116 case 1 :
117 break;
118 default :
119 return 0UL;
120 }
121
122 /***********************************************************/
123 /* A non-zero value must be returned to indicate success. */
124 /***********************************************************/
125 return 1UL;
126}
127
128
129static void APIENTRY cleanup(ULONG ulReason)
130{
131 dprintf(("kernel32 exit %d\n", ulReason));
132 WriteOutProfiles();
133 DestroyTIB();
134 //NOTE: Must be done after DestroyTIB
135 CloseLogFile();
136 _ctordtorTerm();
137 DosExitList(EXLST_EXIT, cleanup);
138 return ;
139}
Note: See TracBrowser for help on using the repository browser.