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

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

* empty log message *
File size: 5.9 KB
Line 
1/*
2 * KERNEL32 DLL entry point
3 *
4 * Copyright 1998 Sander van Leeuwen
5 * Copyright 1998 Peter Fitzsimmons
6 *
7 *
8 * Project Odin Software License can be found in LICENSE.TXT
9 *
10 */
11
12/*-------------------------------------------------------------*/
13/* INITERM.C -- Source for a custom dynamic link library */
14/* initialization and termination (_DLL_InitTerm) */
15/* function. */
16/* */
17/* When called to perform initialization, this sample function */
18/* gets storage for an array of integers, and initializes its */
19/* elements with random integers. At termination time, it */
20/* frees the array. Substitute your own special processing. */
21/*-------------------------------------------------------------*/
22
23
24/* Include files */
25#define INCL_DOSMODULEMGR
26#define INCL_DOSMISC
27#define INCL_DOSPROCESS
28#include <os2.h>
29#include <stdlib.h>
30#include <stdio.h>
31#include <string.h>
32#include <misc.h>
33
34extern "C" {
35/*-------------------------------------------------------------------*/
36/* _CRT_init is the C run-time environment initialization function. */
37/* It will return 0 to indicate success and -1 to indicate failure. */
38/*-------------------------------------------------------------------*/
39int CDECL CRT_init(void);
40/*-------------------------------------------------------------------*/
41/* _CRT_term is the C run-time environment termination function. */
42/* It only needs to be called when the C run-time functions are */
43/* statically linked. */
44/*-------------------------------------------------------------------*/
45void CDECL CRT_term(void);
46void CDECL _ctordtorInit( void );
47void CDECL _ctordtorTerm( void );
48}
49
50/*-------------------------------------------------------------------*/
51/* A clean up routine registered with DosExitList must be used if */
52/* runtime calls are required and the runtime is dynamically linked. */
53/* This will guarantee that this clean up routine is run before the */
54/* library DLL is terminated. */
55/*-------------------------------------------------------------------*/
56static void APIENTRY cleanup(ULONG reason);
57extern void APIENTRY Win32DllExitList(ULONG reason);
58
59/* Tue 03.03.1998: knut */
60/* flag to optimize DosAllocMem to use all the memory on SMP machines */
61ULONG flAllocMem;
62
63#ifndef PAG_ANY
64 #define PAG_ANY 0x00000400
65#endif
66
67#ifndef QSV_VIRTUALADDRESSLIMIT
68 #define QSV_VIRTUALADDRESSLIMIT 30
69#endif
70
71/****************************************************************************/
72/* _DLL_InitTerm is the function that gets called by the operating system */
73/* loader when it loads and frees this DLL for each process that accesses */
74/* this DLL. However, it only gets called the first time the DLL is loaded */
75/* and the last time it is freed for a particular process. The system */
76/* linkage convention MUST be used because the operating system loader is */
77/* calling this function. */
78/****************************************************************************/
79unsigned long SYSTEM _DLL_InitTerm(unsigned long hModule, unsigned long
80 ulFlag)
81{
82 size_t i;
83 APIRET rc;
84 ULONG sysinfo;
85
86 /*-------------------------------------------------------------------------*/
87 /* If ulFlag is zero then the DLL is being loaded so initialization should */
88 /* be performed. If ulFlag is 1 then the DLL is being freed so */
89 /* termination should be performed. */
90 /*-------------------------------------------------------------------------*/
91
92 switch (ulFlag)
93 {
94 case 0 :
95
96 /*******************************************************************/
97 /* The C run-time environment initialization function must be */
98 /* called before any calls to C run-time functions that are not */
99 /* inlined. */
100 /*******************************************************************/
101
102 if (CRT_init() == -1)
103 return 0UL;
104 _ctordtorInit();
105
106 dprintf(("kernel32 init\n"));
107 CheckVersionFromHMOD(PE2LX_VERSION, hModule); /*PLF Wed 98-03-18 05:28:48*/
108 /*******************************************************************/
109 /* A DosExitList routine must be used to clean up if runtime calls */
110 /* are required and the runtime is dynamically linked. */
111 /*******************************************************************/
112
113 rc = DosExitList(0x0000FF00|EXLST_ADD, cleanup);
114 if (rc)
115 return 0UL;
116
117 rc = DosExitList(0x00002A00|EXLST_ADD, Win32DllExitList);
118 if (rc)
119 return 0UL;
120
121 /* knut: check for high memory support */
122 rc = DosQuerySysInfo(QSV_VIRTUALADDRESSLIMIT, QSV_VIRTUALADDRESSLIMIT, &sysinfo, sizeof(sysinfo));
123
124 if ( rc == 0 && sysinfo > 512 ) //VirtualAddresslimit is in MB
125 flAllocMem = PAG_ANY; // high memory support. Let's use it!
126 else flAllocMem = 0; // no high memory support
127
128 break;
129 case 1 :
130 break;
131 default :
132 return 0UL;
133 }
134
135 /***********************************************************/
136 /* A non-zero value must be returned to indicate success. */
137 /***********************************************************/
138 return 1UL;
139}
140
141
142static void APIENTRY cleanup(ULONG ulReason)
143{
144 dprintf(("kernel32 exit\n"));
145 _dump_allocated(10); /*PLF Wed 98-03-18 23:55:07*/
146 _ctordtorTerm();
147 CRT_term();
148 DosExitList(EXLST_EXIT, cleanup);
149 return ;
150}
Note: See TracBrowser for help on using the repository browser.