2 * Win32 builtin functions
4 * Copyright 1997 Alexandre Julliard
16 #include <sys/types.h>
17 #ifdef HAVE_SYS_MMAN_H
22 #include "wine/winbase16.h"
23 #include "builtin32.h"
33 #include "debugtools.h"
35 DEFAULT_DEBUG_CHANNEL(module);
36 DECLARE_DEBUG_CHANNEL(relay);
43 IMAGE_RESOURCE_DATA_ENTRY *entries;
48 static const BUILTIN32_DESCRIPTOR *builtin_dlls[MAX_DLLS];
49 static HMODULE dll_modules[MAX_DLLS];
53 /***********************************************************************
54 * BUILTIN32_WarnSecondInstance
56 * Emit a warning when we are creating a second instance for a DLL
57 * that is known to not support this.
59 static void BUILTIN32_WarnSecondInstance( const char *name )
61 static const char * const warning_list[] =
62 { "comctl32.dll", "comdlg32.dll", "crtdll.dll",
63 "imagehlp.dll", "msacm32.dll", "shell32.dll", NULL };
65 const char * const *ptr = warning_list;
69 if (!strcasecmp( *ptr, name ))
71 ERR( "Attempt to instantiate built-in dll '%s' twice "
72 "in the same address space. Expect trouble!\n", name );
79 /***********************************************************************
82 void *BUILTIN32_dlopen( const char *name )
87 if ((p = strrchr( name, '/' ))) name = p + 1;
88 if ((p = strrchr( name, '\\' ))) name = p + 1;
89 sprintf( buffer, "lib%s", name );
90 for (p = buffer; *p; p++) *p = tolower(*p);
91 if ((p = strrchr( buffer, '.' )) && (!strcmp( p, ".dll" ) || !strcmp( p, ".exe" ))) *p = 0;
92 strcat( buffer, ".so" );
94 if (!(handle = ELFDLL_dlopen( buffer, RTLD_NOW )))
95 WARN( "failed to load %s: %s\n", buffer, dlerror() );
102 /***********************************************************************
105 int BUILTIN32_dlclose( void *handle )
108 /* FIXME: should unregister descriptors first */
109 /* return dlclose( handle ); */
115 /***********************************************************************
118 * Adjust an array of pointers to make them into RVAs.
120 static inline void fixup_rva_ptrs( void *array, void *base, int count )
122 void **ptr = (void **)array;
125 if (*ptr) *ptr = (void *)((char *)*ptr - (char *)base);
131 /***********************************************************************
132 * BUILTIN32_DoLoadImage
134 * Load a built-in Win32 module. Helper function for BUILTIN32_LoadImage.
136 static HMODULE BUILTIN32_DoLoadImage( const BUILTIN32_DESCRIPTOR *descr )
138 IMAGE_DATA_DIRECTORY *dir;
139 IMAGE_DOS_HEADER *dos;
140 IMAGE_NT_HEADERS *nt;
141 IMAGE_SECTION_HEADER *sec;
142 IMAGE_IMPORT_DESCRIPTOR *imp;
143 IMAGE_EXPORT_DIRECTORY *exports = descr->exports;
144 INT i, size, nb_sections;
145 BYTE *addr, *code_start, *data_start;
146 int page_size = VIRTUAL_GetPageSize();
148 /* Allocate the module */
150 nb_sections = 2; /* code + data */
152 size = (sizeof(IMAGE_DOS_HEADER)
153 + sizeof(IMAGE_NT_HEADERS)
154 + nb_sections * sizeof(IMAGE_SECTION_HEADER)
155 + (descr->nb_imports+1) * sizeof(IMAGE_IMPORT_DESCRIPTOR));
157 assert( size <= page_size );
159 if (descr->pe_header)
161 if ((addr = FILE_dommap( -1, descr->pe_header, 0, page_size, 0, 0,
162 PROT_READ|PROT_WRITE, MAP_FIXED )) != descr->pe_header)
164 ERR("failed to map over PE header for %s at %p\n", descr->filename, descr->pe_header );
170 if (!(addr = VirtualAlloc( NULL, page_size, MEM_COMMIT, PAGE_READWRITE ))) return 0;
173 dos = (IMAGE_DOS_HEADER *)addr;
174 nt = (IMAGE_NT_HEADERS *)(dos + 1);
175 sec = (IMAGE_SECTION_HEADER *)(nt + 1);
176 imp = (IMAGE_IMPORT_DESCRIPTOR *)(sec + nb_sections);
177 code_start = addr + page_size;
180 data_start = code_start + page_size;
182 /* Build the DOS and NT headers */
184 dos->e_magic = IMAGE_DOS_SIGNATURE;
185 dos->e_lfanew = sizeof(*dos);
187 nt->Signature = IMAGE_NT_SIGNATURE;
188 nt->FileHeader.Machine = IMAGE_FILE_MACHINE_I386;
189 nt->FileHeader.NumberOfSections = nb_sections;
190 nt->FileHeader.SizeOfOptionalHeader = sizeof(nt->OptionalHeader);
191 nt->FileHeader.Characteristics = descr->characteristics;
193 nt->OptionalHeader.Magic = IMAGE_NT_OPTIONAL_HDR_MAGIC;
194 nt->OptionalHeader.SizeOfCode = data_start - code_start;
195 nt->OptionalHeader.SizeOfInitializedData = 0;
196 nt->OptionalHeader.SizeOfUninitializedData = 0;
197 nt->OptionalHeader.ImageBase = (DWORD)addr;
198 nt->OptionalHeader.SectionAlignment = page_size;
199 nt->OptionalHeader.FileAlignment = page_size;
200 nt->OptionalHeader.MajorOperatingSystemVersion = 1;
201 nt->OptionalHeader.MinorOperatingSystemVersion = 0;
202 nt->OptionalHeader.MajorSubsystemVersion = 4;
203 nt->OptionalHeader.MinorSubsystemVersion = 0;
204 nt->OptionalHeader.SizeOfImage = page_size;
205 nt->OptionalHeader.SizeOfHeaders = page_size;
206 nt->OptionalHeader.NumberOfRvaAndSizes = IMAGE_NUMBEROF_DIRECTORY_ENTRIES;
207 if (descr->dllentrypoint)
208 nt->OptionalHeader.AddressOfEntryPoint = (DWORD)descr->dllentrypoint - (DWORD)addr;
210 /* Build the code section */
212 strcpy( sec->Name, ".text" );
213 sec->SizeOfRawData = data_start - code_start;
214 sec->Misc.VirtualSize = sec->SizeOfRawData;
215 sec->VirtualAddress = code_start - addr;
216 sec->PointerToRawData = code_start - addr;
217 sec->Characteristics = (IMAGE_SCN_CNT_CODE | IMAGE_SCN_MEM_EXECUTE | IMAGE_SCN_MEM_READ);
220 /* Build the data section */
222 strcpy( sec->Name, ".data" );
223 sec->SizeOfRawData = 0;
224 sec->Misc.VirtualSize = sec->SizeOfRawData;
225 sec->VirtualAddress = data_start - addr;
226 sec->PointerToRawData = data_start - addr;
227 sec->Characteristics = (IMAGE_SCN_CNT_INITIALIZED_DATA |
228 IMAGE_SCN_MEM_WRITE | IMAGE_SCN_MEM_READ);
231 /* Build the import directory */
233 if (descr->nb_imports)
235 dir = &nt->OptionalHeader.DataDirectory[IMAGE_FILE_IMPORT_DIRECTORY];
236 dir->VirtualAddress = (BYTE *)imp - addr;
237 dir->Size = sizeof(*imp) * (descr->nb_imports + 1);
239 /* Build the imports */
240 for (i = 0; i < descr->nb_imports; i++)
242 imp[i].u.Characteristics = 0;
243 imp[i].ForwarderChain = -1;
244 imp[i].Name = (BYTE *)descr->imports[i] - addr;
245 /* hack: make first thunk point to some zero value */
246 imp[i].FirstThunk = (PIMAGE_THUNK_DATA)((BYTE *)&imp[i].u.Characteristics - addr);
250 /* Build the resource directory */
254 BUILTIN32_RESOURCE *rsrc = descr->rsrc;
255 IMAGE_RESOURCE_DATA_ENTRY *rdep;
256 dir = &nt->OptionalHeader.DataDirectory[IMAGE_FILE_RESOURCE_DIRECTORY];
257 dir->VirtualAddress = (BYTE *)rsrc->restab - addr;
258 dir->Size = rsrc->restabsize;
259 rdep = rsrc->entries;
260 for (i = 0; i < rsrc->nresources; i++) rdep[i].OffsetToData += dir->VirtualAddress;
263 /* Build the export directory */
267 dir = &nt->OptionalHeader.DataDirectory[IMAGE_FILE_EXPORT_DIRECTORY];
268 dir->VirtualAddress = (BYTE *)exports - addr;
269 dir->Size = descr->exports_size;
271 fixup_rva_ptrs( (void *)exports->AddressOfFunctions, addr, exports->NumberOfFunctions );
272 fixup_rva_ptrs( (void *)exports->AddressOfNames, addr, exports->NumberOfNames );
273 fixup_rva_ptrs( &exports->Name, addr, 1 );
274 fixup_rva_ptrs( &exports->AddressOfFunctions, addr, 1 );
275 fixup_rva_ptrs( &exports->AddressOfNames, addr, 1 );
276 fixup_rva_ptrs( &exports->AddressOfNameOrdinals, addr, 1 );
278 /* Setup relay debugging entry points */
279 if (WARN_ON(relay) || TRACE_ON(relay)) RELAY_SetupDLL( addr );
282 return (HMODULE)addr;
285 /***********************************************************************
286 * BUILTIN32_LoadLibraryExA
288 * Partly copied from the original PE_ version.
291 WINE_MODREF *BUILTIN32_LoadLibraryExA(LPCSTR path, DWORD flags)
293 struct load_dll_request *req = get_req_buffer();
297 char dllname[MAX_PATH], *p;
301 /* Fix the name in case we have a full path and extension */
302 if ((p = strrchr( path, '\\' ))) path = p + 1;
303 lstrcpynA( dllname, path, sizeof(dllname) );
305 p = strrchr( dllname, '.' );
306 if (!p) strcat( dllname, ".dll" );
308 /* Search built-in descriptor */
309 for (i = 0; i < nb_dlls; i++)
310 if (!strcasecmp( builtin_dlls[i]->filename, dllname )) goto found;
312 if ((handle = BUILTIN32_dlopen( dllname )))
314 for (i = 0; i < nb_dlls; i++)
315 if (!strcasecmp( builtin_dlls[i]->filename, dllname )) goto found;
316 ERR( "loaded .so but dll %s still not found\n", dllname );
317 BUILTIN32_dlclose( handle );
320 SetLastError( ERROR_FILE_NOT_FOUND );
324 /* Load built-in module */
327 if (!(dll_modules[i] = BUILTIN32_DoLoadImage( builtin_dlls[i] ))) return NULL;
329 else BUILTIN32_WarnSecondInstance( builtin_dlls[i]->filename );
331 /* Create 16-bit dummy module */
332 if ((hModule16 = MODULE_CreateDummyModule( dllname, dll_modules[i] )) < 32)
334 SetLastError( (DWORD)hModule16 );
335 return NULL; /* FIXME: Should unload the builtin module */
337 pModule = (NE_MODULE *)GlobalLock16( hModule16 );
338 pModule->flags = NE_FFLAGS_LIBMODULE | NE_FFLAGS_SINGLEDATA | NE_FFLAGS_WIN32 | NE_FFLAGS_BUILTIN;
340 /* Create 32-bit MODREF */
341 if ( !(wm = PE_CreateModule( pModule->module32, dllname, flags, TRUE )) )
343 ERR( "can't load %s\n", path );
344 FreeLibrary16( hModule16 ); /* FIXME: Should unload the builtin module */
345 SetLastError( ERROR_OUTOFMEMORY );
349 if (wm->binfmt.pe.pe_export)
350 SNOOP_RegisterDLL(wm->module,wm->modname,wm->binfmt.pe.pe_export->NumberOfFunctions);
353 req->base = (void *)pModule->module32;
356 req->name = &wm->modname;
357 server_call_noerr( REQ_LOAD_DLL );
361 /***********************************************************************
362 * BUILTIN32_LoadExeModule
364 HMODULE BUILTIN32_LoadExeModule(void)
368 /* Search built-in EXE descriptor */
369 for ( i = 0; i < nb_dlls; i++ )
370 if ( !(builtin_dlls[i]->characteristics & IMAGE_FILE_DLL) )
374 MESSAGE( "More than one built-in EXE module loaded!\n" );
383 MESSAGE( "No built-in EXE module loaded! Did you create a .spec file?\n" );
387 /* Load built-in module */
388 if ( !dll_modules[exe] )
389 if ( !(dll_modules[exe] = BUILTIN32_DoLoadImage( builtin_dlls[exe] )) )
391 return dll_modules[exe];
395 /***********************************************************************
396 * BUILTIN32_UnloadLibrary
398 * Unload the built-in library and free the modref.
400 void BUILTIN32_UnloadLibrary(WINE_MODREF *wm)
402 /* FIXME: do something here */
405 /***********************************************************************
406 * BUILTIN32_RegisterDLL
408 * Register a built-in DLL descriptor.
410 void BUILTIN32_RegisterDLL( const BUILTIN32_DESCRIPTOR *descr )
412 assert( nb_dlls < MAX_DLLS );
413 builtin_dlls[nb_dlls++] = descr;
416 /***********************************************************************
417 * BUILTIN32_Unimplemented
419 * This function is called for unimplemented 32-bit entry points (declared
420 * as 'stub' in the spec file).
422 void BUILTIN32_Unimplemented( const char *dllname, const char *funcname )
424 __RESTORE_ES; /* Just in case */
426 MESSAGE( "FATAL: No handler for Win32 routine %s.%s", dllname, funcname );
428 MESSAGE( " (called from %p)", __builtin_return_address(1) );