annotate loader/module.c @ 2623:0d8f8d313f9c

fixed fault with --help
author alex
date Fri, 02 Nov 2001 02:21:57 +0000
parents ce45cce7f7a5
children 958d10763c34
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
1 /*
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
2 * Modules
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
3 *
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
4 * Copyright 1995 Alexandre Julliard
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
5 */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
6 #include <config.h>
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
7
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
8 #include <assert.h>
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
9 #include <errno.h>
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
10 #include <fcntl.h>
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
11 #include <stdio.h>
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
12 #include <stdlib.h>
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
13 #include <string.h>
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
14 #include <unistd.h>
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
15 #include <sys/mman.h>
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
16 #include <sys/types.h>
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
17 /*
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
18 #ifdef __linux__
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
19 #include <asm/unistd.h>
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
20 #include <asm/ldt.h>
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
21 #else
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
22 #define LDT_ENTRIES 8192
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
23 #define LDT_ENTRY_SIZE 8
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
24
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
25 struct modify_ldt_ldt_s {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
26 unsigned int entry_number;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
27 unsigned long base_addr;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
28 unsigned int limit;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
29 unsigned int seg_32bit:1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
30 unsigned int contents:2;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
31 unsigned int read_exec_only:1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
32 unsigned int limit_in_pages:1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
33 unsigned int seg_not_present:1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
34 unsigned int useable:1;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
35 };
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
36
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
37 #define MODIFY_LDT_CONTENTS_DATA 0
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
38 #define MODIFY_LDT_CONTENTS_STACK 1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
39 #define MODIFY_LDT_CONTENTS_CODE 2
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
40 #define __NR_modify_ldt 123
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
41 #endif
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
42
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
43 */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
44 #include <wine/windef.h>
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
45 #include <wine/winerror.h>
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
46 #include <wine/heap.h>
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
47 #include <wine/module.h>
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
48 #include <wine/pe_image.h>
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
49 #include <wine/debugtools.h>
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
50 #ifdef HAVE_LIBDL
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
51 #include <dlfcn.h>
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
52 #include <wine/elfdll.h>
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
53 #endif
1307
d8c1b0b38edc Add prototypes to wine/loader stuff, so that we can catch __stdcall function
jkeil
parents: 128
diff changeset
54 #include "win32.h"
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
55
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
56 struct modref_list_t;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
57
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
58 typedef struct modref_list_t
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
59 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
60 WINE_MODREF* wm;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
61 struct modref_list_t *next;
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
62 struct modref_list_t *prev;
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
63 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
64 modref_list;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
65
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
66 //WINE_MODREF *local_wm=NULL;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
67 modref_list* local_wm=NULL;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
68
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
69 //HANDLE SegptrHeap; // unused?
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
70
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
71 WINE_MODREF *MODULE_FindModule(LPCSTR m)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
72 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
73 modref_list* list=local_wm;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
74 TRACE("Module %s request\n", m);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
75 if(list==NULL)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
76 return NULL;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
77 while(strcmp(m, list->wm->filename))
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
78 {
128
28091b3caff9 DLL loader updated from avifile-0.60beta4
arpi_esp
parents: 1
diff changeset
79 TRACE("%s: %x\n", list->wm->filename, list->wm->module);
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
80 list=list->prev;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
81 if(list==NULL)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
82 return NULL;
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
83 }
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
84 TRACE("Resolved to %s\n", list->wm->filename);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
85 return list->wm;
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
86 }
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
87
1307
d8c1b0b38edc Add prototypes to wine/loader stuff, so that we can catch __stdcall function
jkeil
parents: 128
diff changeset
88 static void MODULE_RemoveFromList(WINE_MODREF *mod)
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
89 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
90 modref_list* list=local_wm;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
91 if(list==0)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
92 return;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
93 if(mod==0)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
94 return;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
95 if((list->prev==NULL)&&(list->next==NULL))
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
96 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
97 free(list);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
98 local_wm=NULL;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
99 // uninstall_fs();
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
100 return;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
101 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
102 for(;list;list=list->prev)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
103 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
104 if(list->wm==mod)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
105 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
106 if(list->prev)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
107 list->prev->next=list->next;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
108 if(list->next)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
109 list->next->prev=list->prev;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
110 if(list==local_wm)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
111 local_wm=list->prev;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
112 free(list);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
113 return;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
114 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
115 }
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
116 }
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
117
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
118 WINE_MODREF *MODULE32_LookupHMODULE(HMODULE m)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
119 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
120 modref_list* list=local_wm;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
121 TRACE("Module %X request\n", m);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
122 if(list==NULL)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
123 return NULL;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
124 while(m!=list->wm->module)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
125 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
126 // printf("Checking list %X wm %X module %X\n",
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
127 // list, list->wm, list->wm->module);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
128 list=list->prev;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
129 if(list==NULL)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
130 return NULL;
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
131 }
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
132 TRACE("LookupHMODULE hit %p\n", list->wm);
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
133 return list->wm;
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
134 }
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
135
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
136 /*************************************************************************
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
137 * MODULE_InitDll
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
138 */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
139 static WIN_BOOL MODULE_InitDll( WINE_MODREF *wm, DWORD type, LPVOID lpReserved )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
140 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
141 WIN_BOOL retv = TRUE;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
142
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
143 static LPCSTR typeName[] = { "PROCESS_DETACH", "PROCESS_ATTACH",
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
144 "THREAD_ATTACH", "THREAD_DETACH" };
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
145 assert( wm );
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
146
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
147
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
148 /* Skip calls for modules loaded with special load flags */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
149
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
150 if ( ( wm->flags & WINE_MODREF_DONT_RESOLVE_REFS )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
151 || ( wm->flags & WINE_MODREF_LOAD_AS_DATAFILE ) )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
152 return TRUE;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
153
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
154
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
155 TRACE("(%s,%s,%p) - CALL\n", wm->modname, typeName[type], lpReserved );
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
156
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
157 /* Call the initialization routine */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
158 switch ( wm->type )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
159 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
160 case MODULE32_PE:
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
161 retv = PE_InitDLL( wm, type, lpReserved );
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
162 break;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
163
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
164 case MODULE32_ELF:
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
165 /* no need to do that, dlopen() already does */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
166 break;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
167
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
168 default:
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
169 ERR("wine_modref type %d not handled.\n", wm->type );
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
170 retv = FALSE;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
171 break;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
172 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
173
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
174 /* The state of the module list may have changed due to the call
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
175 to PE_InitDLL. We cannot assume that this module has not been
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
176 deleted. */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
177 TRACE("(%p,%s,%p) - RETURN %d\n", wm, typeName[type], lpReserved, retv );
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
178
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
179 return retv;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
180 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
181
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
182 /*************************************************************************
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
183 * MODULE_DllProcessAttach
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
184 *
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
185 * Send the process attach notification to all DLLs the given module
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
186 * depends on (recursively). This is somewhat complicated due to the fact that
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
187 *
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
188 * - we have to respect the module dependencies, i.e. modules implicitly
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
189 * referenced by another module have to be initialized before the module
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
190 * itself can be initialized
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
191 *
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
192 * - the initialization routine of a DLL can itself call LoadLibrary,
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
193 * thereby introducing a whole new set of dependencies (even involving
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
194 * the 'old' modules) at any time during the whole process
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
195 *
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
196 * (Note that this routine can be recursively entered not only directly
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
197 * from itself, but also via LoadLibrary from one of the called initialization
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
198 * routines.)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
199 *
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
200 * Furthermore, we need to rearrange the main WINE_MODREF list to allow
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
201 * the process *detach* notifications to be sent in the correct order.
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
202 * This must not only take into account module dependencies, but also
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
203 * 'hidden' dependencies created by modules calling LoadLibrary in their
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
204 * attach notification routine.
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
205 *
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
206 * The strategy is rather simple: we move a WINE_MODREF to the head of the
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
207 * list after the attach notification has returned. This implies that the
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
208 * detach notifications are called in the reverse of the sequence the attach
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
209 * notifications *returned*.
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
210 *
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
211 * NOTE: Assumes that the process critical section is held!
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
212 *
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
213 */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
214 WIN_BOOL MODULE_DllProcessAttach( WINE_MODREF *wm, LPVOID lpReserved )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
215 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
216 WIN_BOOL retv = TRUE;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
217 int i;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
218 assert( wm );
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
219
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
220 /* prevent infinite recursion in case of cyclical dependencies */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
221 if ( ( wm->flags & WINE_MODREF_MARKER )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
222 || ( wm->flags & WINE_MODREF_PROCESS_ATTACHED ) )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
223 return retv;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
224
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
225 TRACE("(%s,%p) - START\n", wm->modname, lpReserved );
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
226
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
227 /* Tag current MODREF to prevent recursive loop */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
228 wm->flags |= WINE_MODREF_MARKER;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
229
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
230 /* Recursively attach all DLLs this one depends on */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
231 /* for ( i = 0; retv && i < wm->nDeps; i++ )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
232 if ( wm->deps[i] )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
233 retv = MODULE_DllProcessAttach( wm->deps[i], lpReserved );
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
234 */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
235 /* Call DLL entry point */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
236
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
237 //local_wm=wm;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
238 if(local_wm)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
239 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
240 local_wm->next=malloc(sizeof(modref_list));
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
241 local_wm->next->prev=local_wm;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
242 local_wm->next->next=NULL;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
243 local_wm->next->wm=wm;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
244 local_wm=local_wm->next;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
245 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
246 else
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
247 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
248 local_wm=malloc(sizeof(modref_list));
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
249 local_wm->next=local_wm->prev=NULL;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
250 local_wm->wm=wm;
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
251 }
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
252 /* Remove recursion flag */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
253 wm->flags &= ~WINE_MODREF_MARKER;
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
254
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
255 if ( retv )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
256 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
257 retv = MODULE_InitDll( wm, DLL_PROCESS_ATTACH, lpReserved );
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
258 if ( retv )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
259 wm->flags |= WINE_MODREF_PROCESS_ATTACHED;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
260 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
261
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
262
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
263 TRACE("(%s,%p) - END\n", wm->modname, lpReserved );
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
264
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
265 return retv;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
266 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
267
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
268 /*************************************************************************
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
269 * MODULE_DllProcessDetach
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
270 *
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
271 * Send DLL process detach notifications. See the comment about calling
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
272 * sequence at MODULE_DllProcessAttach. Unless the bForceDetach flag
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
273 * is set, only DLLs with zero refcount are notified.
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
274 */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
275 void MODULE_DllProcessDetach( WINE_MODREF* wm, WIN_BOOL bForceDetach, LPVOID lpReserved )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
276 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
277 // WINE_MODREF *wm=local_wm;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
278 wm->flags &= ~WINE_MODREF_PROCESS_ATTACHED;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
279 MODULE_InitDll( wm, DLL_PROCESS_DETACH, lpReserved );
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
280 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
281
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
282
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
283 /***********************************************************************
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
284 * LoadLibraryExA (KERNEL32)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
285 */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
286 HMODULE WINAPI LoadLibraryExA(LPCSTR libname, HANDLE hfile, DWORD flags)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
287 {
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
288 WINE_MODREF *wm = 0;
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
289 char* listpath[] = { "", "", "/usr/lib/win32", "/usr/local/lib/win32", 0 };
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
290 extern char* def_path;
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
291 char path[512];
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
292 char checked[2000];
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
293 int i = -1;
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
294
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
295 checked[0] = 0;
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
296 if(!libname)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
297 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
298 SetLastError(ERROR_INVALID_PARAMETER);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
299 return 0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
300 }
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
301
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
302 printf("Loading DLL: '%s'\n", libname);
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
303
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
304 // if(fs_installed==0)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
305 // install_fs();
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
306
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
307 while (wm == 0 && listpath[++i])
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
308 {
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
309 if (i < 2)
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
310 {
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
311 if (i == 0)
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
312 /* check just original file name */
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
313 strncpy(path, libname, 511);
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
314 else
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
315 /* check default user path */
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
316 strncpy(path, def_path, 300);
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
317 }
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
318 else if (strcmp(def_path, listpath[i]))
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
319 /* path from the list */
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
320 strncpy(path, listpath[i], 300);
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
321 else
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
322 continue;
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
323
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
324 if (i > 0)
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
325 {
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
326 strcat(path, "/");
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
327 strncat(path, libname, 100);
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
328 }
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
329 path[511] = 0;
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
330 wm = MODULE_LoadLibraryExA( path, hfile, flags );
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
331
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
332 if (!wm)
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
333 {
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
334 if (checked[0])
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
335 strcat(checked, ", ");
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
336 strcat(checked, path);
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
337 checked[1500] = 0;
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
338
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
339 }
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
340 }
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
341 if ( wm )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
342 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
343 if ( !MODULE_DllProcessAttach( wm, NULL ) )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
344 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
345 WARN_(module)("Attach failed for module '%s', \n", libname);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
346 MODULE_FreeLibrary(wm);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
347 SetLastError(ERROR_DLL_INIT_FAILED);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
348 MODULE_RemoveFromList(wm);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
349 wm = NULL;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
350 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
351 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
352
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
353 if (!wm)
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
354 printf("Win32 LoadLibrary failed to load: %s\n", checked);
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
355
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
356
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
357 return wm ? wm->module : 0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
358 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
359
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
360
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
361 /***********************************************************************
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
362 * MODULE_LoadLibraryExA (internal)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
363 *
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
364 * Load a PE style module according to the load order.
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
365 *
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
366 * The HFILE parameter is not used and marked reserved in the SDK. I can
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
367 * only guess that it should force a file to be mapped, but I rather
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
368 * ignore the parameter because it would be extremely difficult to
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
369 * integrate this with different types of module represenations.
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
370 *
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
371 */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
372 WINE_MODREF *MODULE_LoadLibraryExA( LPCSTR libname, HFILE hfile, DWORD flags )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
373 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
374 DWORD err = GetLastError();
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
375 WINE_MODREF *pwm;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
376 int i;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
377 // module_loadorder_t *plo;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
378
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
379 SetLastError( ERROR_FILE_NOT_FOUND );
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
380 TRACE("Trying native dll '%s'\n", libname);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
381 pwm = PE_LoadLibraryExA(libname, flags);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
382 #ifdef HAVE_LIBDL
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
383 if(!pwm)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
384 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
385 TRACE("Trying ELF dll '%s'\n", libname);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
386 pwm=(WINE_MODREF*)ELFDLL_LoadLibraryExA(libname, flags);
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
387 }
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
388 #endif
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
389 // printf("0x%08x\n", pwm);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
390 // break;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
391 if(pwm)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
392 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
393 /* Initialize DLL just loaded */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
394 TRACE("Loaded module '%s' at 0x%08x, \n", libname, pwm->module);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
395 /* Set the refCount here so that an attach failure will */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
396 /* decrement the dependencies through the MODULE_FreeLibrary call. */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
397 pwm->refCount++;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
398
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
399 SetLastError( err ); /* restore last error */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
400 return pwm;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
401 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
402
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
403
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
404 WARN("Failed to load module '%s'; error=0x%08lx, \n", libname, GetLastError());
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
405 return NULL;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
406 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
407
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
408 /***********************************************************************
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
409 * LoadLibraryA (KERNEL32)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
410 */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
411 HMODULE WINAPI LoadLibraryA(LPCSTR libname) {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
412 return LoadLibraryExA(libname,0,0);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
413 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
414
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
415
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
416 /***********************************************************************
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
417 * FreeLibrary
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
418 */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
419 WIN_BOOL WINAPI FreeLibrary(HINSTANCE hLibModule)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
420 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
421 WIN_BOOL retv = FALSE;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
422 WINE_MODREF *wm;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
423
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
424 wm=MODULE32_LookupHMODULE(hLibModule);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
425 // wm=local_wm;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
426
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
427 if ( !wm || !hLibModule )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
428 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
429 SetLastError( ERROR_INVALID_HANDLE );
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
430 return 0;
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
431 }
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
432 else
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
433 retv = MODULE_FreeLibrary( wm );
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
434
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
435 MODULE_RemoveFromList(wm);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
436
128
28091b3caff9 DLL loader updated from avifile-0.60beta4
arpi_esp
parents: 1
diff changeset
437 /* garbage... */
28091b3caff9 DLL loader updated from avifile-0.60beta4
arpi_esp
parents: 1
diff changeset
438 if (local_wm == NULL) my_garbagecollection();
28091b3caff9 DLL loader updated from avifile-0.60beta4
arpi_esp
parents: 1
diff changeset
439
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
440 return retv;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
441 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
442
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
443 /***********************************************************************
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
444 * MODULE_DecRefCount
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
445 *
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
446 * NOTE: Assumes that the process critical section is held!
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
447 */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
448 static void MODULE_DecRefCount( WINE_MODREF *wm )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
449 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
450 int i;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
451
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
452 if ( wm->flags & WINE_MODREF_MARKER )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
453 return;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
454
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
455 if ( wm->refCount <= 0 )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
456 return;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
457
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
458 --wm->refCount;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
459 TRACE("(%s) refCount: %d\n", wm->modname, wm->refCount );
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
460
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
461 if ( wm->refCount == 0 )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
462 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
463 wm->flags |= WINE_MODREF_MARKER;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
464
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
465 for ( i = 0; i < wm->nDeps; i++ )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
466 if ( wm->deps[i] )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
467 MODULE_DecRefCount( wm->deps[i] );
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
468
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
469 wm->flags &= ~WINE_MODREF_MARKER;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
470 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
471 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
472
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
473 /***********************************************************************
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
474 * MODULE_FreeLibrary
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
475 *
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
476 * NOTE: Assumes that the process critical section is held!
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
477 */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
478 WIN_BOOL MODULE_FreeLibrary( WINE_MODREF *wm )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
479 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
480 TRACE("(%s) - START\n", wm->modname );
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
481
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
482 /* Recursively decrement reference counts */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
483 //MODULE_DecRefCount( wm );
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
484
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
485 /* Call process detach notifications */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
486 MODULE_DllProcessDetach( wm, FALSE, NULL );
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
487
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
488 PE_UnloadLibrary(wm);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
489
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
490 TRACE("END\n");
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
491
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
492 return TRUE;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
493 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
494
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
495 /***********************************************************************
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
496 * GetProcAddress (KERNEL32.257)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
497 */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
498 FARPROC WINAPI GetProcAddress( HMODULE hModule, LPCSTR function )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
499 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
500 return MODULE_GetProcAddress( hModule, function, TRUE );
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
501 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
502
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
503 /***********************************************************************
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
504 * MODULE_GetProcAddress (internal)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
505 */
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
506 FARPROC MODULE_GetProcAddress(
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
507 HMODULE hModule, /* [in] current module handle */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
508 LPCSTR function, /* [in] function to be looked up */
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
509 WIN_BOOL snoop )
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
510 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
511 WINE_MODREF *wm = MODULE32_LookupHMODULE( hModule );
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
512 // WINE_MODREF *wm=local_wm;
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
513 FARPROC retproc;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
514
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
515 if (HIWORD(function))
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
516 TRACE_(win32)("(%08lx,%s)\n",(DWORD)hModule,function);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
517 else
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
518 TRACE_(win32)("(%08lx,%p)\n",(DWORD)hModule,function);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
519 if (!wm) {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
520 SetLastError(ERROR_INVALID_HANDLE);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
521 return (FARPROC)0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
522 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
523 switch (wm->type)
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
524 {
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
525 case MODULE32_PE:
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
526 retproc = PE_FindExportedFunction( wm, function, snoop );
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
527 if (!retproc) SetLastError(ERROR_PROC_NOT_FOUND);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
528 return retproc;
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
529 #ifdef HAVE_LIBDL
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
530 case MODULE32_ELF:
2069
ce45cce7f7a5 sync with avifile
arpi
parents: 1307
diff changeset
531 retproc = (FARPROC) dlsym( (void*) wm->module, function);
1
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
532 if (!retproc) SetLastError(ERROR_PROC_NOT_FOUND);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
533 return retproc;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
534 #endif
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
535 default:
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
536 ERR("wine_modref type %d not handled.\n",wm->type);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
537 SetLastError(ERROR_INVALID_HANDLE);
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
538 return (FARPROC)0;
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
539 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
540 }
3b5f5d1c5041 Initial revision
arpi_esp
parents:
diff changeset
541