source: trunk/src/odincrt/initterm.cpp@ 9022

Last change on this file since 9022 was 8759, checked in by sandervl, 23 years ago

KSO: Reserve low 32MB of address space before initializing the CRT IF we compile with the debug heap (kLib).
File size: 5.6 KB
Line 
1/*
2 * 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_DOSPROCESS
27#define INCL_DOSERRORS
28#include <os2wrap.h> //Odin32 OS/2 api wrappers
29#include <stdlib.h>
30#include <stdio.h>
31#include <string.h>
32#include <odin.h>
33#include <misc.h> /*PLF Wed 98-03-18 23:18:15*/
34#include <exitlist.h>
35#include <initdll.h>
36
37#ifdef __IBMCPP__
38extern "C" {
39
40/*-------------------------------------------------------------------*/
41/* A clean up routine registered with DosExitList must be used if */
42/* runtime calls are required and the runtime is dynamically linked. */
43/* This will guarantee that this clean up routine is run before the */
44/* library DLL is terminated. */
45/*-------------------------------------------------------------------*/
46static void APIENTRY cleanup(ULONG reason);
47}
48
49/****************************************************************************/
50/* _DLL_InitTerm is the function that gets called by the operating system */
51/* loader when it loads and frees this DLL for each process that accesses */
52/* this DLL. However, it only gets called the first time the DLL is loaded */
53/* and the last time it is freed for a particular process. The system */
54/* linkage convention MUST be used because the operating system loader is */
55/* calling this function. */
56/****************************************************************************/
57unsigned long SYSTEM _DLL_InitTerm(unsigned long hModule, unsigned long
58 ulFlag)
59{
60 APIRET rc;
61
62 /*-------------------------------------------------------------------------*/
63 /* If ulFlag is zero then the DLL is being loaded so initialization should */
64 /* be performed. If ulFlag is 1 then the DLL is being freed so */
65 /* termination should be performed. */
66 /*-------------------------------------------------------------------------*/
67
68 switch (ulFlag) {
69 case 0 :
70 {
71 #ifdef WITH_KLIB
72 /*
73 * We need to reserve memory for the executable image
74 * before initiating any heaps. Lets do reserve 32MBs
75 */
76 PVOID pvReserved = NULL;
77 DosAllocMem(&pvReserved, 32*1024*1024, PAG_READ);
78 #endif
79 /*******************************************************************/
80 /* The C run-time environment initialization function must be */
81 /* called before any calls to C run-time functions that are not */
82 /* inlined. */
83 /*******************************************************************/
84
85 if (_CRT_init() == -1)
86 return 0UL;
87 ctordtorInit();
88
89 /*******************************************************************/
90 /* A DosExitList routine must be used to clean up if runtime calls */
91 /* are required and the runtime is dynamically linked. */
92 /*******************************************************************/
93
94 rc = DosExitList(EXITLIST_ODINCRT|EXLST_ADD, cleanup);
95 if(rc)
96 return 0UL;
97 #if 1 /*
98 * Experimental console hack. Sets apptype to PM anyhow.
99 * First Dll to be initiated should now allways be OdinCrt!
100 * So include odincrt first!
101 */
102 PPIB pPIB;
103 PTIB pTIB;
104 rc = DosGetInfoBlocks(&pTIB, &pPIB);
105 if (rc != NO_ERROR)
106 return 0UL;
107 pPIB->pib_ultype = 3;
108 #endif
109
110 #ifdef WITH_KLIB
111 /* cleanup - hacking is done */
112 DosFreeMem(pvReserved);
113 #endif
114 break;
115 }
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 ctordtorTerm();
132 _CRT_term();
133 DosExitList(EXLST_EXIT, cleanup);
134 return ;
135}
136
137#elif defined(__WATCOM_CPLUSPLUS__)
138
139/*
140 * Watcom dll init and term routines.
141 */
142
143int __dll_initialize(unsigned long hModule, unsigned long ulFlag)
144{
145 APIRET rc;
146 #if 1 /*
147 * Experimental console hack. Sets apptype to PM anyhow.
148 * First Dll to be initiated should now allways be OdinCrt!
149 * So include odincrt first!
150 */
151 PPIB pPIB;
152 PTIB pTIB;
153 rc = DosGetInfoBlocks(&pTIB, &pPIB);
154 if (rc != NO_ERROR)
155 return 0UL;
156 pPIB->pib_ultype = 3;
157 #endif
158 return 1;
159}
160
161int __dll_terminate(unsigned long hModule, unsigned long ulFlag)
162{
163 return 1;
164}
165
166#else
167#error message("compiler is not supported");
168#endif
169
Note: See TracBrowser for help on using the repository browser.