?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
ole32/tests: Relax the reference counting tests a bit. We only care whether reference...
[wine/hramrach.git] / dlls / krnl386.exe16 / ne_segment.c
blob48910e4013c73b75e802b52d319fedf85a486f04
1 /*
2 * NE segment loading
3 *
4 * Copyright 1993 Robert J. Amstadt
5 * Copyright 1995 Alexandre Julliard
6 *
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
11 *
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
16 *
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20 */
21
22 #include "config.h"
23 #include "wine/port.h"
24
25 #include <assert.h>
26 #include <stdio.h>
27 #include <stdlib.h>
28 #include <sys/types.h>
29 #include <fcntl.h>
30 #ifdef HAVE_UNISTD_H
31 # include <unistd.h>
32 #endif
33 #include <ctype.h>
34 #include <string.h>
35
36 #include "wine/winbase16.h"
37 #include "wownt32.h"
38 #include "winternl.h"
39 #include "wine/library.h"
40 #include "kernel16_private.h"
41 #include "wine/debug.h"
42
43 WINE_DEFAULT_DEBUG_CHANNEL(fixup);
44 WINE_DECLARE_DEBUG_CHANNEL(dll);
45 WINE_DECLARE_DEBUG_CHANNEL(module);
46
47 /*
48 * Relocation table entry
49 */
50 struct relocation_entry_s
51 {
52 BYTE address_type; /* Relocation address type */
53 BYTE relocation_type; /* Relocation type */
54 WORD offset; /* Offset in segment to fixup */
55 WORD target1; /* Target specification */
56 WORD target2; /* Target specification */
57 };
58
59 /*
60 * Relocation address types
61 */
62 #define NE_RADDR_LOWBYTE 0
63 #define NE_RADDR_SELECTOR 2
64 #define NE_RADDR_POINTER32 3
65 #define NE_RADDR_OFFSET16 5
66 #define NE_RADDR_POINTER48 11
67 #define NE_RADDR_OFFSET32 13
68
69 /*
70 * Relocation types
71 */
72 #define NE_RELTYPE_INTERNAL 0
73 #define NE_RELTYPE_ORDINAL 1
74 #define NE_RELTYPE_NAME 2
75 #define NE_RELTYPE_OSFIXUP 3
76 #define NE_RELFLAG_ADDITIVE 4
77
78 /* Self-loading modules contain this structure in their first segment */
79 typedef struct
80 {
81 WORD version; /* Must be "A0" (0x3041) */
82 WORD reserved;
83 FARPROC16 BootApp; /* startup procedure */
84 FARPROC16 LoadAppSeg; /* procedure to load a segment */
85 FARPROC16 reserved2;
86 FARPROC16 MyAlloc; /* memory allocation procedure,
87 * wine must write this field */
88 FARPROC16 EntryAddrProc;
89 FARPROC16 ExitProc; /* exit procedure */
90 WORD reserved3[4];
91 FARPROC16 SetOwner; /* Set Owner procedure, exported by wine */
92 } SELFLOADHEADER;
93
94 #define SEL(x) ((x)|1)
95
96 static void NE_FixupSegmentPrologs(NE_MODULE *pModule, WORD segnum);
97
98
99 /***********************************************************************
100 * NE_GetRelocAddrName
101 */
102 static const char *NE_GetRelocAddrName( BYTE addr_type, int additive )
103 {
104 switch(addr_type & 0x7f)
105 {
106 case NE_RADDR_LOWBYTE: return additive ? "BYTE add" : "BYTE";
107 case NE_RADDR_OFFSET16: return additive ? "OFFSET16 add" : "OFFSET16";
108 case NE_RADDR_POINTER32: return additive ? "POINTER32 add" : "POINTER32";
109 case NE_RADDR_SELECTOR: return additive ? "SELECTOR add" : "SELECTOR";
110 case NE_RADDR_POINTER48: return additive ? "POINTER48 add" : "POINTER48";
111 case NE_RADDR_OFFSET32: return additive ? "OFFSET32 add" : "OFFSET32";
112 }
113 return "???";
114 }
115
116
117 /***********************************************************************
118 * NE_OpenFile
119 */
120 static HFILE16 NE_OpenFile( NE_MODULE *pModule )
121 {
122 char *name = NE_MODULE_NAME( pModule );
123 HANDLE handle = CreateFileA( name, GENERIC_READ, FILE_SHARE_READ,
124 NULL, OPEN_EXISTING, 0, 0 );
125
126 if (handle == INVALID_HANDLE_VALUE)
127 {
128 ERR( "Can't open file '%s' for module %04x\n", name, pModule->self );
129 return HFILE_ERROR;
130 }
131 return Win32HandleToDosFileHandle( handle );
132 }
133
134
135 /***********************************************************************
136 * apply_relocations
137 *
138 * Apply relocations to a segment. Helper for NE_LoadSegment.
139 */
140 static inline BOOL apply_relocations( NE_MODULE *pModule, const struct relocation_entry_s *rep,
141 int count, int segnum )
142 {
143 BYTE *func_name;
144 char buffer[256];
145 int i, ordinal;
146 WORD offset, *sp;
147 HMODULE16 module;
148 FARPROC16 address = 0;
149 HMODULE16 *pModuleTable = (HMODULE16 *)((char *)pModule + pModule->ne_modtab);
150 SEGTABLEENTRY *pSegTable = NE_SEG_TABLE( pModule );
151 SEGTABLEENTRY *pSeg = pSegTable + segnum - 1;
152
153 /*
154 * Go through the relocation table one entry at a time.
155 */
156 for (i = 0; i < count; i++, rep++)
157 {
158 /*
159 * Get the target address corresponding to this entry.
160 */
161
162 /* If additive, there is no target chain list. Instead, add source
163 and target */
164 int additive = rep->relocation_type & NE_RELFLAG_ADDITIVE;
165 switch (rep->relocation_type & 3)
166 {
167 case NE_RELTYPE_ORDINAL:
168 module = pModuleTable[rep->target1-1];
169 ordinal = rep->target2;
170 address = NE_GetEntryPoint( module, ordinal );
171 if (!address)
172 {
173 NE_MODULE *pTarget = NE_GetPtr( module );
174 if (!pTarget)
175 WARN_(module)("Module not found: %04x, reference %d of module %*.*s\n",
176 module, rep->target1,
177 *((BYTE *)pModule + pModule->ne_restab),
178 *((BYTE *)pModule + pModule->ne_restab),
179 (char *)pModule + pModule->ne_restab + 1 );
180 else
181 {
182 ERR("No implementation for %.*s.%d, setting to 0xdeadbeef\n",
183 *((BYTE *)pTarget + pTarget->ne_restab),
184 (char *)pTarget + pTarget->ne_restab + 1,
185 ordinal );
186 address = (FARPROC16)0xdeadbeef;
187 }
188 }
189 if (TRACE_ON(fixup))
190 {
191 NE_MODULE *pTarget = NE_GetPtr( module );
192 TRACE("%d: %.*s.%d=%04x:%04x %s\n", i + 1,
193 *((BYTE *)pTarget + pTarget->ne_restab),
194 (char *)pTarget + pTarget->ne_restab + 1,
195 ordinal, HIWORD(address), LOWORD(address),
196 NE_GetRelocAddrName( rep->address_type, additive ) );
197 }
198 break;
199
200 case NE_RELTYPE_NAME:
201 module = pModuleTable[rep->target1-1];
202 func_name = (BYTE *)pModule + pModule->ne_imptab + rep->target2;
203 memcpy( buffer, func_name+1, *func_name );
204 buffer[*func_name] = '\0';
205 ordinal = NE_GetOrdinal( module, buffer );
206 address = NE_GetEntryPoint( module, ordinal );
207
208 if (ERR_ON(fixup) && !address)
209 {
210 NE_MODULE *pTarget = NE_GetPtr( module );
211 ERR("No implementation for %.*s.%s, setting to 0xdeadbeef\n",
212 *((BYTE *)pTarget + pTarget->ne_restab),
213 (char *)pTarget + pTarget->ne_restab + 1, buffer );
214 }
215 if (!address) address = (FARPROC16) 0xdeadbeef;
216 if (TRACE_ON(fixup))
217 {
218 NE_MODULE *pTarget = NE_GetPtr( module );
219 TRACE("%d: %.*s.%s=%04x:%04x %s\n", i + 1,
220 *((BYTE *)pTarget + pTarget->ne_restab),
221 (char *)pTarget + pTarget->ne_restab + 1,
222 buffer, HIWORD(address), LOWORD(address),
223 NE_GetRelocAddrName( rep->address_type, additive ) );
224 }
225 break;
226
227 case NE_RELTYPE_INTERNAL:
228 if ((rep->target1 & 0xff) == 0xff)
229 {
230 address = NE_GetEntryPoint( pModule->self, rep->target2 );
231 }
232 else
233 {
234 address = (FARPROC16)MAKESEGPTR( SEL(pSegTable[rep->target1-1].hSeg), rep->target2 );
235 }
236
237 TRACE("%d: %04x:%04x %s\n",
238 i + 1, HIWORD(address), LOWORD(address),
239 NE_GetRelocAddrName( rep->address_type, additive ) );
240 break;
241
242 case NE_RELTYPE_OSFIXUP:
243 /* Relocation type 7:
244 *
245 * These appear to be used as fixups for the Windows
246 * floating point emulator. Let's just ignore them and
247 * try to use the hardware floating point. Linux should
248 * successfully emulate the coprocessor if it doesn't
249 * exist.
250 */
251 TRACE("%d: TYPE %d, OFFSET %04x, TARGET %04x %04x %s\n",
252 i + 1, rep->relocation_type, rep->offset,
253 rep->target1, rep->target2,
254 NE_GetRelocAddrName( rep->address_type, additive ) );
255 continue;
256 }
257
258 offset = rep->offset;
259
260 /* Apparently, high bit of address_type is sometimes set; */
261 /* we ignore it for now */
262 if (rep->address_type > NE_RADDR_OFFSET32)
263 {
264 char module[10];
265 GetModuleName16( pModule->self, module, sizeof(module) );
266 ERR("WARNING: module %s: unknown reloc addr type = 0x%02x. Please report.\n",
267 module, rep->address_type );
268 }
269
270 if (additive)
271 {
272 sp = MapSL( MAKESEGPTR( SEL(pSeg->hSeg), offset ) );
273 TRACE(" %04x:%04x\n", offset, *sp );
274 switch (rep->address_type & 0x7f)
275 {
276 case NE_RADDR_LOWBYTE:
277 *(BYTE *)sp += LOBYTE((int)address);
278 break;
279 case NE_RADDR_OFFSET16:
280 *sp += LOWORD(address);
281 break;
282 case NE_RADDR_POINTER32:
283 *sp += LOWORD(address);
284 *(sp+1) = HIWORD(address);
285 break;
286 case NE_RADDR_SELECTOR:
287 /* Borland creates additive records with offset zero. Strange, but OK */
288 if (*sp)
289 ERR("Additive selector to %04x.Please report\n",*sp);
290 else
291 *sp = HIWORD(address);
292 break;
293 default:
294 goto unknown;
295 }
296 }
297 else /* non-additive fixup */
298 {
299 do
300 {
301 WORD next_offset;
302
303 sp = MapSL( MAKESEGPTR( SEL(pSeg->hSeg), offset ) );
304 next_offset = *sp;
305 TRACE(" %04x:%04x\n", offset, *sp );
306 switch (rep->address_type & 0x7f)
307 {
308 case NE_RADDR_LOWBYTE:
309 *(BYTE *)sp = LOBYTE((int)address);
310 break;
311 case NE_RADDR_OFFSET16:
312 *sp = LOWORD(address);
313 break;
314 case NE_RADDR_POINTER32:
315 *(FARPROC16 *)sp = address;
316 break;
317 case NE_RADDR_SELECTOR:
318 *sp = SELECTOROF(address);
319 break;
320 default:
321 goto unknown;
322 }
323 if (next_offset == offset) break; /* avoid infinite loop */
324 if (next_offset >= GlobalSize16(pSeg->hSeg)) break;
325 offset = next_offset;
326 } while (offset != 0xffff);
327 }
328 }
329 return TRUE;
330
331 unknown:
332 WARN("WARNING: %d: unknown ADDR TYPE %d, "
333 "TYPE %d, OFFSET %04x, TARGET %04x %04x\n",
334 i + 1, rep->address_type, rep->relocation_type,
335 rep->offset, rep->target1, rep->target2);
336 return FALSE;
337 }
338
339
340 /***********************************************************************
341 * NE_LoadSegment
342 */
343 BOOL NE_LoadSegment( NE_MODULE *pModule, WORD segnum )
344 {
345 WORD count;
346 DWORD pos;
347 const struct relocation_entry_s *rep;
348 int size;
349 SEGTABLEENTRY *pSegTable = NE_SEG_TABLE( pModule );
350 SEGTABLEENTRY *pSeg = pSegTable + segnum - 1;
351
352 if (pSeg->flags & NE_SEGFLAGS_LOADED)
353 {
354 /* self-loader ? -> already loaded it */
355 if (pModule->ne_flags & NE_FFLAGS_SELFLOAD)
356 return TRUE;
357
358 /* leave, except for DGROUP, as this may be the second instance */
359 if (segnum != pModule->ne_autodata)
360 return TRUE;
361 }
362
363 if (!pSeg->filepos) return TRUE; /* No file image, just return */
364
365 TRACE_(module)("Loading segment %d, hSeg=%04x, flags=%04x\n",
366 segnum, pSeg->hSeg, pSeg->flags );
367 pos = pSeg->filepos << pModule->ne_align;
368 if (pSeg->size) size = pSeg->size;
369 else size = pSeg->minsize ? pSeg->minsize : 0x10000;
370
371 if (pModule->ne_flags & NE_FFLAGS_SELFLOAD && segnum > 1)
372 {
373 /* Implement self-loading segments */
374 SELFLOADHEADER *selfloadheader;
375 void *oldstack;
376 HFILE16 hFile16;
377 WORD args[3];
378 DWORD ret;
379
380 selfloadheader = MapSL( MAKESEGPTR(SEL(pSegTable->hSeg),0) );
381 oldstack = NtCurrentTeb()->WOW32Reserved;
382 NtCurrentTeb()->WOW32Reserved = (void *)MAKESEGPTR(pModule->self_loading_sel,
383 0xff00 - sizeof(STACK16FRAME));
384
385 hFile16 = NE_OpenFile( pModule );
386 TRACE_(dll)("Call LoadAppSegProc(hmodule=0x%04x,hf=%x,segnum=%d)\n",
387 pModule->self,hFile16,segnum );
388 args[2] = pModule->self;
389 args[1] = hFile16;
390 args[0] = segnum;
391 WOWCallback16Ex( (DWORD)selfloadheader->LoadAppSeg, WCB16_PASCAL, sizeof(args), args, &ret );
392 pSeg->hSeg = LOWORD(ret);
393 TRACE_(dll)("Ret LoadAppSegProc: hSeg=0x%04x\n", pSeg->hSeg);
394 _lclose16( hFile16 );
395 NtCurrentTeb()->WOW32Reserved = oldstack;
396
397 pSeg->flags |= NE_SEGFLAGS_LOADED;
398 return TRUE;
399 }
400 else if (!(pSeg->flags & NE_SEGFLAGS_ITERATED))
401 {
402 void *mem = GlobalLock16(pSeg->hSeg);
403 if (!NE_READ_DATA( pModule, mem, pos, size ))
404 return FALSE;
405 pos += size;
406 }
407 else
408 {
409 /*
410 The following bit of code for "iterated segments" was written without
411 any documentation on the format of these segments. It seems to work,
412 but may be missing something.
413 */
414 const char *buff = NE_GET_DATA( pModule, pos, size );
415 const char* curr = buff;
416 char *mem = GlobalLock16(pSeg->hSeg);
417
418 pos += size;
419 if (buff == NULL) return FALSE;
420
421 while(curr < buff + size) {
422 unsigned int rept = ((const short *)curr)[0];
423 unsigned int len = ((const short *)curr)[1];
424
425 curr += 2*sizeof(short);
426 while (rept--)
427 {
428 memcpy( mem, curr, len );
429 mem += len;
430 }
431 curr += len;
432 }
433 }
434
435 pSeg->flags |= NE_SEGFLAGS_LOADED;
436
437 /* Perform exported function prolog fixups */
438 NE_FixupSegmentPrologs( pModule, segnum );
439
440 if (!(pSeg->flags & NE_SEGFLAGS_RELOC_DATA))
441 return TRUE; /* No relocation data, we are done */
442
443 if (!NE_READ_DATA( pModule, &count, pos, sizeof(count) ) || !count) return TRUE;
444 pos += sizeof(count);
445
446 TRACE("Fixups for %.*s, segment %d, hSeg %04x\n",
447 *((BYTE *)pModule + pModule->ne_restab),
448 (char *)pModule + pModule->ne_restab + 1,
449 segnum, pSeg->hSeg );
450
451 if (!(rep = NE_GET_DATA( pModule, pos, count * sizeof(struct relocation_entry_s) )))
452 return FALSE;
453
454 return apply_relocations( pModule, rep, count, segnum );
455 }
456
457
458 /***********************************************************************
459 * NE_LoadAllSegments
460 */
461 BOOL NE_LoadAllSegments( NE_MODULE *pModule )
462 {
463 int i;
464 SEGTABLEENTRY * pSegTable = NE_SEG_TABLE(pModule);
465
466 if (pModule->ne_flags & NE_FFLAGS_SELFLOAD)
467 {
468 HFILE16 hFile16;
469 HGLOBAL16 sel;
470 /* Handle self-loading modules */
471 SELFLOADHEADER *selfloadheader;
472 HMODULE16 mod = GetModuleHandle16("KERNEL");
473 void *oldstack;
474 WORD args[2];
475
476 TRACE_(module)("%.*s is a self-loading module!\n",
477 *((BYTE*)pModule + pModule->ne_restab),
478 (char *)pModule + pModule->ne_restab + 1);
479 if (!NE_LoadSegment( pModule, 1 )) return FALSE;
480 selfloadheader = MapSL( MAKESEGPTR(SEL(pSegTable->hSeg), 0) );
481 selfloadheader->EntryAddrProc = GetProcAddress16(mod,"EntryAddrProc");
482 selfloadheader->MyAlloc = GetProcAddress16(mod,"MyAlloc");
483 selfloadheader->SetOwner = GetProcAddress16(mod,"FarSetOwner");
484 sel = GlobalAlloc16( GMEM_ZEROINIT, 0xFF00 );
485 pModule->self_loading_sel = SEL(sel);
486 FarSetOwner16( sel, pModule->self );
487 oldstack = NtCurrentTeb()->WOW32Reserved;
488 NtCurrentTeb()->WOW32Reserved = (void *)MAKESEGPTR(pModule->self_loading_sel,
489 0xff00 - sizeof(STACK16FRAME) );
490
491 hFile16 = NE_OpenFile(pModule);
492 TRACE_(dll)("CallBootAppProc(hModule=0x%04x,hf=0x%04x)\n",
493 pModule->self,hFile16);
494 args[1] = pModule->self;
495 args[0] = hFile16;
496 WOWCallback16Ex( (DWORD)selfloadheader->BootApp, WCB16_PASCAL, sizeof(args), args, NULL );
497 TRACE_(dll)("Return from CallBootAppProc\n");
498 _lclose16(hFile16);
499 NtCurrentTeb()->WOW32Reserved = oldstack;
500
501 for (i = 2; i <= pModule->ne_cseg; i++)
502 if (!NE_LoadSegment( pModule, i )) return FALSE;
503 }
504 else
505 {
506 for (i = 1; i <= pModule->ne_cseg; i++)
507 if (!NE_LoadSegment( pModule, i )) return FALSE;
508 }
509 return TRUE;
510 }
511
512
513 /***********************************************************************
514 * NE_FixupSegmentPrologs
515 *
516 * Fixup exported functions prologs of one segment
517 */
518 static void NE_FixupSegmentPrologs(NE_MODULE *pModule, WORD segnum)
519 {
520 SEGTABLEENTRY *pSegTable = NE_SEG_TABLE( pModule );
521 ET_BUNDLE *bundle;
522 ET_ENTRY *entry;
523 WORD dgroup, num_entries, sel = SEL(pSegTable[segnum-1].hSeg);
524 BYTE *pSeg, *pFunc;
525
526 TRACE("(%d);\n", segnum);
527
528 if (pSegTable[segnum-1].flags & NE_SEGFLAGS_DATA)
529 {
530 pSegTable[segnum-1].flags |= NE_SEGFLAGS_LOADED;
531 return;
532 }
533
534 if (!pModule->ne_autodata) return;
535
536 if (!(dgroup = SEL(pSegTable[pModule->ne_autodata-1].hSeg))) return;
537
538 pSeg = MapSL( MAKESEGPTR(sel, 0) );
539
540 bundle = (ET_BUNDLE *)((BYTE *)pModule+pModule->ne_enttab);
541
542 do {
543 TRACE("num_entries: %d, bundle: %p, next: %04x, pSeg: %p\n", bundle->last - bundle->first, bundle, bundle->next, pSeg);
544 if (!(num_entries = bundle->last - bundle->first))
545 return;
546 entry = (ET_ENTRY *)((BYTE *)bundle+6);
547 while (num_entries--)
548 {
549 /*TRACE("entry: %p, entry->segnum: %d, entry->offs: %04x\n", entry, entry->segnum, entry->offs);*/
550 if (entry->segnum == segnum)
551 {
552 pFunc = pSeg+entry->offs;
553 TRACE("pFunc: %p, *(DWORD *)pFunc: %08x, num_entries: %d\n", pFunc, *(DWORD *)pFunc, num_entries);
554 if (*(pFunc+2) == 0x90)
555 {
556 if (*(WORD *)pFunc == 0x581e) /* push ds, pop ax */
557 {
558 TRACE("patch %04x:%04x -> mov ax, ds\n", sel, entry->offs);
559 *(WORD *)pFunc = 0xd88c; /* mov ax, ds */
560 }
561
562 if (*(WORD *)pFunc == 0xd88c)
563 {
564 if ((entry->flags & 2)) /* public data ? */
565 {
566 TRACE("patch %04x:%04x -> mov ax, dgroup [%04x]\n", sel, entry->offs, dgroup);
567 *pFunc = 0xb8; /* mov ax, */
568 *(WORD *)(pFunc+1) = dgroup;
569 }
570 else if ((pModule->ne_flags & NE_FFLAGS_MULTIPLEDATA)
571 && (entry->flags & 1)) /* exported ? */
572 {
573 TRACE("patch %04x:%04x -> nop, nop\n", sel, entry->offs);
574 *(WORD *)pFunc = 0x9090; /* nop, nop */
575 }
576 }
577 }
578 }
579 entry++;
580 }
581 } while ( (bundle->next) && (bundle = ((ET_BUNDLE *)((BYTE *)pModule + bundle->next))) );
582 }
583
584
585 /***********************************************************************
586 * PatchCodeHandle (KERNEL.110)
587 *
588 * Needed for self-loading modules.
589 */
590 DWORD WINAPI PatchCodeHandle16(HANDLE16 hSeg)
591 {
592 WORD segnum;
593 WORD sel = SEL(hSeg);
594 NE_MODULE *pModule = NE_GetPtr(FarGetOwner16(sel));
595 SEGTABLEENTRY *pSegTable = NE_SEG_TABLE(pModule);
596
597 TRACE_(module)("(%04x);\n", hSeg);
598
599 /* find the segment number of the module that belongs to hSeg */
600 for (segnum = 1; segnum <= pModule->ne_cseg; segnum++)
601 {
602 if (SEL(pSegTable[segnum-1].hSeg) == sel)
603 {
604 NE_FixupSegmentPrologs(pModule, segnum);
605 break;
606 }
607 }
608
609 return MAKELONG(hSeg, sel);
610 }
611
612
613 /***********************************************************************
614 * NE_GetDLLInitParams
615 */
616 static VOID NE_GetDLLInitParams( NE_MODULE *pModule,
617 WORD *hInst, WORD *ds, WORD *heap )
618 {
619 SEGTABLEENTRY *pSegTable = NE_SEG_TABLE( pModule );
620
621 if (!(pModule->ne_flags & NE_FFLAGS_SINGLEDATA))
622 {
623 if (pModule->ne_flags & NE_FFLAGS_MULTIPLEDATA || pModule->ne_autodata)
624 {
625 /* Not SINGLEDATA */
626 ERR_(dll)("Library is not marked SINGLEDATA\n");
627 exit(1);
628 }
629 else /* DATA NONE DLL */
630 {
631 *ds = 0;
632 *heap = 0;
633 }
634 }
635 else /* DATA SINGLE DLL */
636 {
637 if (pModule->ne_autodata) {
638 *ds = SEL(pSegTable[pModule->ne_autodata-1].hSeg);
639 *heap = pModule->ne_heap;
640 }
641 else /* hmm, DLL has no dgroup,
642 but why has it NE_FFLAGS_SINGLEDATA set ?
643 Buggy DLL compiler ? */
644 {
645 *ds = 0;
646 *heap = 0;
647 }
648 }
649
650 *hInst = *ds ? GlobalHandle16(*ds) : pModule->self;
651 }
652
653
654 /***********************************************************************
655 * NE_InitDLL
656 *
657 * Call the DLL initialization code
658 */
659 static BOOL NE_InitDLL( NE_MODULE *pModule )
660 {
661 SEGTABLEENTRY *pSegTable;
662 WORD hInst, ds, heap;
663 CONTEXT86 context;
664
665 pSegTable = NE_SEG_TABLE( pModule );
666
667 if (!(pModule->ne_flags & NE_FFLAGS_LIBMODULE) ||
668 (pModule->ne_flags & NE_FFLAGS_WIN32)) return TRUE; /*not a library*/
669
670 /* Call USER signal handler for Win3.1 compatibility. */
671 NE_CallUserSignalProc( pModule->self, USIG16_DLL_LOAD );
672
673 if (!SELECTOROF(pModule->ne_csip)) return TRUE; /* no initialization code */
674
675
676 /* Registers at initialization must be:
677 * cx heap size
678 * di library instance
679 * ds data segment if any
680 * es:si command line (always 0)
681 */
682
683 memset( &context, 0, sizeof(context) );
684
685 NE_GetDLLInitParams( pModule, &hInst, &ds, &heap );
686
687 context.Ecx = heap;
688 context.Edi = hInst;
689 context.SegDs = ds;
690 context.SegEs = ds; /* who knows ... */
691 context.SegFs = wine_get_fs();
692 context.SegGs = wine_get_gs();
693 context.SegCs = SEL(pSegTable[SELECTOROF(pModule->ne_csip)-1].hSeg);
694 context.Eip = OFFSETOF(pModule->ne_csip);
695 context.Ebp = OFFSETOF(NtCurrentTeb()->WOW32Reserved) + FIELD_OFFSET(STACK16FRAME,bp);
696
697 pModule->ne_csip = 0; /* Don't initialize it twice */
698 TRACE_(dll)("Calling LibMain for %.*s, cs:ip=%04x:%04x ds=%04x di=%04x cx=%04x\n",
699 *((BYTE*)pModule + pModule->ne_restab),
700 (char *)pModule + pModule->ne_restab + 1,
701 context.SegCs, context.Eip, context.SegDs,
702 LOWORD(context.Edi), LOWORD(context.Ecx) );
703 WOWCallback16Ex( 0, WCB16_REGS, 0, NULL, (DWORD *)&context );
704 return TRUE;
705 }
706
707 /***********************************************************************
708 * NE_InitializeDLLs
709 *
710 * Recursively initialize all DLLs (according to the order in which
711 * they where loaded).
712 */
713 void NE_InitializeDLLs( HMODULE16 hModule )
714 {
715 NE_MODULE *pModule;
716 HMODULE16 *pDLL;
717
718 if (!(pModule = NE_GetPtr( hModule ))) return;
719 assert( !(pModule->ne_flags & NE_FFLAGS_WIN32) );
720
721 if (pModule->dlls_to_init)
722 {
723 HGLOBAL16 to_init = pModule->dlls_to_init;
724 pModule->dlls_to_init = 0;
725 for (pDLL = GlobalLock16( to_init ); *pDLL; pDLL++)
726 {
727 NE_InitializeDLLs( *pDLL );
728 }
729 GlobalFree16( to_init );
730 }
731 NE_InitDLL( pModule );
732 }
733
734
735 /**********************************************************************
736 * NE_CallUserSignalProc
737 *
738 * According to "Undocumented Windows", the task signal proc is
739 * bypassed for module load/unload notifications, and the USER signal
740 * proc is called directly instead. This is what this function does.
741 */
742 typedef DWORD (WINAPI *pSignalProc)( HANDLE16 module, UINT16 code, UINT16 exit,
743 HINSTANCE16 inst, HQUEUE16 queue );
744
745 void NE_CallUserSignalProc( HMODULE16 hModule, UINT16 code )
746 {
747 FARPROC16 proc;
748 HMODULE16 user = GetModuleHandle16("user.exe");
749
750 if (!user) return;
751 if ((proc = GetProcAddress16( user, "SignalProc" )))
752 {
753 /* USER is always a builtin dll */
754 pSignalProc sigproc = (pSignalProc)((ENTRYPOINT16 *)MapSL( (SEGPTR)proc ))->target;
755 sigproc( hModule, code, 0, 0, 0 );
756 }
757 }
758
759
760 /***********************************************************************
761 * NE_CallDllEntryPoint
762 *
763 * Call the DllEntryPoint of DLLs with subsystem >= 4.0
764 */
765 typedef DWORD (WINAPI *WinNEEntryProc)(DWORD,WORD,WORD,WORD,DWORD,WORD);
766
767 static void NE_CallDllEntryPoint( NE_MODULE *pModule, DWORD dwReason )
768 {
769 WORD hInst, ds, heap;
770 FARPROC16 entryPoint;
771
772 if (!(pModule->ne_flags & NE_FFLAGS_LIBMODULE)) return;
773 if (!(pModule->ne_flags & NE_FFLAGS_BUILTIN) && pModule->ne_expver < 0x0400) return;
774 if (!(entryPoint = GetProcAddress16( pModule->self, "DllEntryPoint" ))) return;
775
776 NE_GetDLLInitParams( pModule, &hInst, &ds, &heap );
777
778 TRACE_(dll)( "Calling %s DllEntryPoint, cs:ip=%04x:%04x\n",
779 NE_MODULE_NAME( pModule ),
780 SELECTOROF(entryPoint), OFFSETOF(entryPoint) );
781
782 if ( pModule->ne_flags & NE_FFLAGS_BUILTIN )
783 {
784 WinNEEntryProc entryProc = (WinNEEntryProc)((ENTRYPOINT16 *)MapSL( (SEGPTR)entryPoint ))->target;
785
786 entryProc( dwReason, hInst, ds, heap, 0, 0 );
787 }
788 else
789 {
790 CONTEXT86 context;
791 WORD args[8];
792
793 memset( &context, 0, sizeof(context) );
794 context.SegDs = ds;
795 context.SegEs = ds; /* who knows ... */
796 context.SegFs = wine_get_fs();
797 context.SegGs = wine_get_gs();
798 context.SegCs = HIWORD(entryPoint);
799 context.Eip = LOWORD(entryPoint);
800 context.Ebp = OFFSETOF(NtCurrentTeb()->WOW32Reserved) + FIELD_OFFSET(STACK16FRAME,bp);
801
802 args[7] = HIWORD(dwReason);
803 args[6] = LOWORD(dwReason);
804 args[5] = hInst;
805 args[4] = ds;
806 args[3] = heap;
807 args[2] = 0; /* HIWORD(dwReserved1) */
808 args[1] = 0; /* LOWORD(dwReserved1) */
809 args[0] = 0; /* wReserved2 */
810 WOWCallback16Ex( 0, WCB16_REGS, sizeof(args), args, (DWORD *)&context );
811 }
812 }
813
814 /***********************************************************************
815 * NE_DllProcessAttach
816 *
817 * Call the DllEntryPoint of all modules this one (recursively)
818 * depends on, according to the order in which they were loaded.
819 *
820 * Note that --as opposed to the PE module case-- there is no notion
821 * of 'module loaded into a process' for NE modules, and hence we
822 * have no place to store the fact that the DllEntryPoint of a
823 * given module was already called on behalf of this process (e.g.
824 * due to some earlier LoadLibrary16 call).
825 *
826 * Thus, we just call the DllEntryPoint twice in that case. Win9x
827 * appears to behave this way as well ...
828 *
829 * This routine must only be called with the Win16Lock held.
830 *
831 * FIXME: We should actually abort loading in case the DllEntryPoint
832 * returns FALSE ...
833 *
834 */
835
836 struct ne_init_list
837 {
838 int count;
839 int size;
840 NE_MODULE **module;
841 };
842
843 static void add_to_init_list( struct ne_init_list *list, NE_MODULE *hModule )
844 {
845 NE_MODULE **newModule = NULL;
846 if ( list->count == list->size )
847 {
848 int newSize = list->size + 128;
849
850 if (list->module)
851 newModule = HeapReAlloc( GetProcessHeap(), 0,
852 list->module, newSize*sizeof(NE_MODULE *) );
853 else
854 newModule = HeapAlloc( GetProcessHeap(), 0,
855 newSize*sizeof(NE_MODULE *) );
856 if ( !newModule )
857 {
858 FIXME_(dll)("Out of memory!\n");
859 return;
860 }
861
862 list->module = newModule;
863 list->size = newSize;
864 }
865
866 list->module[list->count++] = hModule;
867 }
868
869 static void free_init_list( struct ne_init_list *list )
870 {
871 if ( list->module )
872 {
873 HeapFree( GetProcessHeap(), 0, list->module );
874 memset( list, 0, sizeof(*list) );
875 }
876 }
877
878 static void fill_init_list( struct ne_init_list *list, HMODULE16 hModule )
879 {
880 NE_MODULE *pModule;
881 HMODULE16 *pModRef;
882 int i;
883
884 if (!(pModule = NE_GetPtr( hModule ))) return;
885 assert( !(pModule->ne_flags & NE_FFLAGS_WIN32) );
886
887 /* Never add a module twice */
888 for ( i = 0; i < list->count; i++ )
889 if ( list->module[i] == pModule )
890 return;
891
892 /* Check for recursive call */
893 if ( pModule->ne_flagsothers & 0x80 ) return;
894
895 TRACE_(dll)("(%s) - START\n", NE_MODULE_NAME(pModule) );
896
897 /* Tag current module to prevent recursive loop */
898 pModule->ne_flagsothers |= 0x80;
899
900 /* Recursively attach all DLLs this one depends on */
901 pModRef = (HMODULE16 *)((char *)pModule + pModule->ne_modtab);
902 for ( i = 0; i < pModule->ne_cmod; i++ )
903 if ( pModRef[i] ) fill_init_list( list, pModRef[i] );
904
905 /* Add current module */
906 add_to_init_list( list, pModule );
907
908 /* Remove recursion flag */
909 pModule->ne_flagsothers &= ~0x80;
910
911 TRACE_(dll)("(%s) - END\n", NE_MODULE_NAME(pModule) );
912 }
913
914 static void call_init_list( struct ne_init_list *list )
915 {
916 int i;
917 for ( i = 0; i < list->count; i++ )
918 NE_CallDllEntryPoint( list->module[i], DLL_PROCESS_ATTACH );
919 }
920
921 void NE_DllProcessAttach( HMODULE16 hModule )
922 {
923 struct ne_init_list list;
924 memset( &list, 0, sizeof(list) );
925
926 fill_init_list( &list, hModule );
927 call_init_list( &list );
928 free_init_list( &list );
929 }
930
931
932 /***********************************************************************
933 * NE_Ne2MemFlags
934 *
935 * This function translates NE segment flags to GlobalAlloc flags
936 */
937 static WORD NE_Ne2MemFlags(WORD flags)
938 {
939 WORD memflags = 0;
940 #if 1
941 if (flags & NE_SEGFLAGS_DISCARDABLE)
942 memflags |= GMEM_DISCARDABLE;
943 if (flags & NE_SEGFLAGS_MOVEABLE ||
944 ( ! (flags & NE_SEGFLAGS_DATA) &&
945 ! (flags & NE_SEGFLAGS_LOADED) &&
946 ! (flags & NE_SEGFLAGS_ALLOCATED)
947 )
948 )
949 memflags |= GMEM_MOVEABLE;
950 memflags |= GMEM_ZEROINIT;
951 #else
952 memflags = GMEM_ZEROINIT | GMEM_FIXED;
953 #endif
954 return memflags;
955 }
956
957 /***********************************************************************
958 * MyAlloc (KERNEL.668) Wine-specific export
959 *
960 * MyAlloc() function for self-loading apps.
961 */
962 DWORD WINAPI MyAlloc16( WORD wFlags, WORD wSize, WORD wElem )
963 {
964 WORD size = wSize << wElem;
965 HANDLE16 hMem = 0;
966
967 if (wSize || (wFlags & NE_SEGFLAGS_MOVEABLE))
968 hMem = GlobalAlloc16( NE_Ne2MemFlags(wFlags), size);
969
970 if ( ((wFlags & 0x7) != 0x1) && /* DATA */
971 ((wFlags & 0x7) != 0x7) ) /* DATA|ALLOCATED|LOADED */
972 {
973 WORD hSel = SEL(hMem);
974 WORD access = SelectorAccessRights16(hSel,0,0);
975
976 access |= 2<<2; /* SEGMENT_CODE */
977 SelectorAccessRights16(hSel,1,access);
978 }
979 if (size)
980 return MAKELONG( hMem, SEL(hMem) );
981 else
982 return MAKELONG( 0, hMem );
983 }
984
985 /***********************************************************************
986 * NE_GetInstance
987 */
988 HINSTANCE16 NE_GetInstance( NE_MODULE *pModule )
989 {
990 if ( !pModule->ne_autodata )
991 return pModule->self;
992 else
993 {
994 SEGTABLEENTRY *pSeg;
995 pSeg = NE_SEG_TABLE( pModule ) + pModule->ne_autodata - 1;
996 return pSeg->hSeg;
997 }
998 }
999
1000 /***********************************************************************
1001 * NE_CreateSegment
1002 */
1003 BOOL NE_CreateSegment( NE_MODULE *pModule, int segnum )
1004 {
1005 SEGTABLEENTRY *pSeg = NE_SEG_TABLE( pModule ) + segnum - 1;
1006 int minsize;
1007 unsigned char selflags;
1008
1009 assert( !(pModule->ne_flags & NE_FFLAGS_WIN32) );
1010
1011 if ( segnum < 1 || segnum > pModule->ne_cseg )
1012 return FALSE;
1013
1014 if ( (pModule->ne_flags & NE_FFLAGS_SELFLOAD) && segnum != 1 )
1015 return TRUE; /* selfloader allocates segment itself */
1016
1017 if ( (pSeg->flags & NE_SEGFLAGS_ALLOCATED) && segnum != pModule->ne_autodata )
1018 return TRUE; /* all but DGROUP only allocated once */
1019
1020 minsize = pSeg->minsize ? pSeg->minsize : 0x10000;
1021 if ( segnum == SELECTOROF(pModule->ne_sssp) ) minsize += pModule->ne_stack;
1022 if ( segnum == pModule->ne_autodata ) minsize += pModule->ne_heap;
1023
1024 selflags = (pSeg->flags & NE_SEGFLAGS_DATA) ? WINE_LDT_FLAGS_DATA : WINE_LDT_FLAGS_CODE;
1025 if (pSeg->flags & NE_SEGFLAGS_32BIT) selflags |= WINE_LDT_FLAGS_32BIT;
1026 pSeg->hSeg = GLOBAL_Alloc( NE_Ne2MemFlags(pSeg->flags), minsize, pModule->self, selflags );
1027 if (!pSeg->hSeg) return FALSE;
1028
1029 pSeg->flags |= NE_SEGFLAGS_ALLOCATED;
1030 return TRUE;
1031 }
1032
1033 /***********************************************************************
1034 * NE_CreateAllSegments
1035 */
1036 BOOL NE_CreateAllSegments( NE_MODULE *pModule )
1037 {
1038 int i;
1039 for ( i = 1; i <= pModule->ne_cseg; i++ )
1040 if ( !NE_CreateSegment( pModule, i ) )
1041 return FALSE;
1042
1043 pModule->dgroup_entry = pModule->ne_autodata ? pModule->ne_segtab +
1044 (pModule->ne_autodata - 1) * sizeof(SEGTABLEENTRY) : 0;
1045 return TRUE;
1046 }
1047
1048
1049 /**********************************************************************
1050 * IsSharedSelector (KERNEL.345)
1051 */
1052 BOOL16 WINAPI IsSharedSelector16( HANDLE16 selector )
1053 {
1054 /* Check whether the selector belongs to a DLL */
1055 NE_MODULE *pModule = NE_GetPtr( selector );
1056 if (!pModule) return FALSE;
1057 return (pModule->ne_flags & NE_FFLAGS_LIBMODULE) != 0;
1058 }
an attempt at megring old patches into wine