loader/ne_image.c

   1 static char RCSId[] = "$Id: wine.c,v 1.2 1993/07/04 04:04:21 root Exp root $";
   2 static char Copyright[] = "Copyright  Robert J. Amstadt, 1993";
   3
   4 #include <stdio.h>
   5 #include <stdlib.h>
   6 #include <sys/types.h>
   7 #include <sys/stat.h>
   8 #include <fcntl.h>
   9 #include <unistd.h>
  10 #include <ctype.h>
  11 #ifdef linux
  12 #include <linux/head.h>
  13 #include <linux/ldt.h>
  14 #include <linux/segment.h>
  15 #endif
  16 #include <string.h>
  17 #include <errno.h>
  18 #include "neexe.h"
  19 #include "segmem.h"
  20 #include "prototypes.h"
  21 #include "dlls.h"
  22 #include "wine.h"
  23 #include "windows.h"
  24 #include "wineopts.h"
  25 #include "arch.h"
  26 #include "options.h"
  27 #include "stddebug.h"
  28 /* #define DEBUG_FIXUP /* */
  29 /* #undef DEBUG_FIXUP  /* */
  30 #include "debug.h"
  31
  32 extern HANDLE CreateNewTask(HINSTANCE hInst);
  33 extern void InitializeLoadedDLLs(struct w_files *wpnt);
  34 extern int CallToInit16(unsigned long csip, unsigned long sssp,
  35                         unsigned short ds);
  36 extern void CallTo32();
  37 extern char WindowsPath[256];
  38 extern unsigned short WIN_StackSize;
  39 extern unsigned short WIN_HeapSize;
  40
  41 int FixupSegment(struct w_files *, int);
  42 void FixupFunctionPrologs(struct w_files *);
  43 char *GetModuleName(struct w_files * wpnt, int index, char *buffer);
  44
  45 #ifndef WINELIB
  46
  47 /**********************************************************************/
  48
  49 void load_ne_header (int fd, struct ne_header_s *ne_header)
  50 {
  51     if (read(fd, ne_header, sizeof(struct ne_header_s))
  52         != sizeof(struct ne_header_s))
  53     {
  54         myerror("Unable to read NE header from file");
  55     }
  56 }
  57 #endif
  58
  59 /**********************************************************************
  60  *                      LoadNEImage
  61  * Load one NE format executable into memory
  62  */
  63 HINSTANCE LoadNEImage(struct w_files *wpnt)
  64 {
  65     unsigned int read_size, status, segment;
  66     int i;
  67
  68     wpnt->ne = malloc(sizeof(struct ne_data));
  69     wpnt->ne->resnamtab = NULL;
  70     wpnt->ne->ne_header = malloc(sizeof(struct ne_header_s));
  71     lseek(wpnt->fd, wpnt->mz_header->ne_offset, SEEK_SET);
  72     load_ne_header(wpnt->fd, wpnt->ne->ne_header);
  73
  74 #ifndef WINELIB
  75     /*
  76      * Create segment selectors.
  77      */
  78     status = lseek(wpnt->fd, wpnt->mz_header->ne_offset +
  79                    wpnt->ne->ne_header->segment_tab_offset,
  80                    SEEK_SET);
  81     read_size  = wpnt->ne->ne_header->n_segment_tab *
  82         sizeof(struct ne_segment_table_entry_s);
  83     wpnt->ne->seg_table = (struct ne_segment_table_entry_s *) malloc(read_size);
  84     if (read(wpnt->fd, wpnt->ne->seg_table, read_size) != read_size)
  85         myerror("Unable to read segment table header from file");
  86     wpnt->ne->selector_table = CreateSelectors(wpnt);
  87     wpnt->hinstance = (wpnt->ne->
  88                        selector_table[wpnt->ne->ne_header->auto_data_seg-1].
  89                        selector);
  90 #endif
  91     /* Get the lookup  table.  This is used for looking up the addresses
  92        of functions that are exported */
  93
  94     read_size  = wpnt->ne->ne_header->entry_tab_length;
  95     wpnt->ne->lookup_table = (char *) malloc(read_size);
  96     lseek(wpnt->fd, wpnt->mz_header->ne_offset +
  97           wpnt->ne->ne_header->entry_tab_offset, SEEK_SET);
  98     if (read(wpnt->fd, wpnt->ne->lookup_table, read_size) != read_size)
  99         myerror("Unable to read lookup table header from file");
 100
 101     /* Get the iname table.  This is used for looking up the names
 102        of functions that are exported */
 103
 104     status = lseek(wpnt->fd, wpnt->ne->ne_header->nrname_tab_offset,  SEEK_SET);
 105     read_size  = wpnt->ne->ne_header->nrname_tab_length;
 106     wpnt->ne->nrname_table = (char *) malloc(read_size);
 107     if (read(wpnt->fd, wpnt->ne->nrname_table, read_size) != read_size)
 108         myerror("Unable to read nrname table header from file");
 109
 110     status = lseek(wpnt->fd, wpnt->mz_header->ne_offset +
 111                    wpnt->ne->ne_header->rname_tab_offset,  SEEK_SET);
 112     read_size  = wpnt->ne->ne_header->moduleref_tab_offset -
 113             wpnt->ne->ne_header->rname_tab_offset;
 114     wpnt->ne->rname_table = (char *) malloc(read_size);
 115     if (read(wpnt->fd, wpnt->ne->rname_table, read_size) != read_size)
 116         myerror("Unable to read rname table header from file");
 117
 118     /*
 119      * Now load any DLLs that  this module refers to.
 120      */
 121     for(i=0; i<wpnt->ne->ne_header->n_mod_ref_tab; i++)
 122     {
 123       char buff[14];
 124       GetModuleName(wpnt, i + 1, buff);
 125
 126       if (strcasecmp(buff, wpnt->name) != 0 )
 127         LoadImage(buff, DLL, 0);
 128     }
 129 #ifndef WINELIB
 130     /* fixup references */
 131
 132     for (segment = 0; segment < wpnt->ne->ne_header->n_segment_tab; segment++)
 133         if (FixupSegment(wpnt, segment) < 0)
 134                 myerror("fixup failed.");
 135
 136     FixupFunctionPrologs(wpnt);
 137     InitializeLoadedDLLs(wpnt);
 138 #endif
 139     return(wpnt->hinstance);
 140 }
 141
 142 /**********************************************************************
 143  *                                      GetImportedName
 144  */
 145 char *
 146 GetImportedName(int fd, struct mz_header_s *mz_header,
 147                 struct ne_header_s *ne_header, int name_offset, char *buffer)
 148 {
 149     int length;
 150     int status;
 151
 152     status = lseek(fd, mz_header->ne_offset + ne_header->iname_tab_offset +
 153                    name_offset, SEEK_SET);
 154     length = 0;
 155     read(fd, &length, 1);  /* Get the length byte */
 156     length = CONV_CHAR_TO_LONG (length);
 157     read(fd, buffer, length);
 158     buffer[length] = 0;
 159     return buffer;
 160 }
 161
 162 /**********************************************************************
 163  *                                      GetModuleName
 164  */
 165 char *
 166 GetModuleName(struct w_files * wpnt, int index, char *buffer)
 167 {
 168     int fd = wpnt->fd;
 169     struct mz_header_s *mz_header = wpnt->mz_header;
 170     struct ne_header_s *ne_header = wpnt->ne->ne_header;
 171     int length;
 172     WORD name_offset, status;
 173     int i;
 174
 175     status = lseek(fd, mz_header->ne_offset + ne_header->moduleref_tab_offset +
 176                    2*(index - 1), SEEK_SET);
 177     name_offset = 0;
 178     read(fd, &name_offset, 2);
 179     name_offset = CONV_SHORT (name_offset);
 180     status = lseek(fd, mz_header->ne_offset + ne_header->iname_tab_offset +
 181                    name_offset, SEEK_SET);
 182     length = 0;
 183     read(fd, &length, 1);  /* Get the length byte */
 184     length = CONV_CHAR_TO_LONG (length);
 185     read(fd, buffer, length);
 186     buffer[length] = 0;
 187
 188     /* Module names  are always upper case */
 189     for(i=0; i<length; i++)
 190         if (islower(buffer[i]))
 191                 buffer[i] = toupper(buffer[i]);
 192
 193     return buffer;
 194 }
 195
 196 \f
 197 #ifndef WINELIB
 198 /**********************************************************************
 199  *                                      FixupSegment
 200  */
 201 int
 202 FixupSegment(struct w_files * wpnt, int segment_num)
 203 {
 204     int fd =  wpnt->fd;
 205     struct mz_header_s *mz_header = wpnt->mz_header;
 206     struct ne_header_s *ne_header =  wpnt->ne->ne_header;
 207     struct ne_segment_table_entry_s *seg_table = wpnt->ne->seg_table;
 208     struct segment_descriptor_s *selector_table = wpnt->ne->selector_table;
 209     struct relocation_entry_s *rep, *rep1;
 210     struct ne_segment_table_entry_s *seg;
 211     struct segment_descriptor_s *sel;
 212     int status;
 213     unsigned short *sp;
 214     unsigned int selector, address;
 215     unsigned int next_addr;
 216     int ordinal;
 217     char dll_name[257];
 218     char func_name[257];
 219     int i, n_entries;
 220     int additive;
 221
 222     seg = &seg_table[segment_num];
 223     sel = &selector_table[segment_num];
 224
 225     dprintf_fixup(stddeb, "Segment fixups for %s, segment %d, selector %x\n",
 226                   wpnt->name, segment_num, (int) sel->base_addr >> 16);
 227
 228     if ((seg->seg_data_offset == 0) ||
 229         !(seg->seg_flags & NE_SEGFLAGS_RELOC_DATA))
 230         return 0;
 231
 232     /*
 233      * Go through the relocation table on entry at a time.
 234      */
 235     i = seg->seg_data_length;
 236     if (i == 0)
 237         i = 0x10000;
 238
 239     status = lseek(fd, seg->seg_data_offset *
 240                        (1 << ne_header->align_shift_count) + i, SEEK_SET);
 241     n_entries = 0;
 242     read(fd, &n_entries, sizeof(short int));
 243     rep = (struct relocation_entry_s *)
 244           malloc(n_entries * sizeof(struct relocation_entry_s));
 245
 246     if (read(fd,rep, n_entries * sizeof(struct relocation_entry_s)) !=
 247         n_entries * sizeof(struct relocation_entry_s))
 248     {
 249         myerror("Unable to read relocation information");
 250     }
 251
 252     rep1 = rep;
 253
 254     for (i = 0; i < n_entries; i++, rep++)
 255     {
 256         /*
 257          * Get the target address corresponding to this entry.
 258          */
 259         additive = 0;
 260
 261         switch (rep->relocation_type)
 262         {
 263           case NE_RELTYPE_ORDINALADD:
 264             additive = 1;
 265
 266           case NE_RELTYPE_ORDINAL:
 267             if (GetModuleName(wpnt, rep->target1,
 268                               dll_name) == NULL)
 269             {
 270               fprintf(stderr, "NE_RELTYPE_ORDINAL failed");
 271                 return -1;
 272             }
 273
 274             ordinal = rep->target2;
 275
 276             status = GetEntryDLLOrdinal(dll_name, ordinal, &selector,
 277                                         &address);
 278             if (status)
 279             {
 280                 char s[80];
 281
 282                 sprintf(s, "Bad DLL name '%s.%d'", dll_name, ordinal);
 283                 myerror(s);
 284                 return -1;
 285             }
 286
 287             dprintf_fixup(stddeb,"%d: %s.%d: %04.4x:%04.4x\n", i + 1,
 288                    dll_name, ordinal, selector, address);
 289             break;
 290
 291           case NE_RELTYPE_NAMEADD:
 292             additive = 1;
 293
 294           case NE_RELTYPE_NAME:
 295             if (GetModuleName(wpnt, rep->target1, dll_name)
 296                 == NULL)
 297             {
 298               fprintf(stderr,"NE_RELTYPE_NAME failed");
 299                 return -1;
 300             }
 301
 302             if (GetImportedName(fd, mz_header, ne_header,
 303                                 rep->target2, func_name) == NULL)
 304             {
 305               fprintf(stderr,"getimportedname failed");
 306                 return -1;
 307             }
 308
 309             status = GetEntryDLLName(dll_name, func_name, &selector,
 310                                            &address);
 311             if (status)
 312             {
 313                 char s[80];
 314
 315                 sprintf(s, "Bad DLL name '%s (%s)'", dll_name,func_name);
 316                 myerror(s);
 317                 return -1;
 318             }
 319
 320             dprintf_fixup(stddeb,"%d: %s %s.%d: %04.4x:%04.4x\n", i + 1,
 321                    func_name, dll_name, ordinal, selector, address);
 322             break;
 323
 324           case NE_RELTYPE_INTERNAL:
 325           case NE_RELTYPE_INT1:
 326             if (rep->target1 == 0x00ff)
 327             {
 328                 address  = GetEntryPointFromOrdinal(wpnt, rep->target2);
 329                 selector = (address >> 16) & 0xffff;
 330                 address &= 0xffff;
 331             }
 332             else
 333             {
 334                 selector = selector_table[rep->target1-1].selector;
 335                 address  = rep->target2;
 336             }
 337
 338             dprintf_fixup(stddeb,"%d: %04.4x:%04.4x\n",
 339                           i + 1, selector, address);
 340             break;
 341
 342           case 7:
 343             /* Relocation type 7:
 344              *
 345              *    These appear to be used as fixups for the Windows
 346              * floating point emulator.  Let's just ignore them and
 347              * try to use the hardware floating point.  Linux should
 348              * successfully emulate the coprocessor if it doesn't
 349              * exist.
 350              */
 351             dprintf_fixup(stddeb,
 352                    "%d: ADDR TYPE %d,  TYPE %d,  OFFSET %04.4x,  ",
 353                    i + 1, rep->address_type, rep->relocation_type,
 354                    rep->offset);
 355             dprintf_fixup(stddeb,"TARGET %04.4x %04.4x\n",
 356                    rep->target1, rep->target2);
 357             continue;
 358
 359           default:
 360             dprintf_fixup(stddeb,
 361                    "%d: ADDR TYPE %d,  TYPE %d,  OFFSET %04.4x,  ",
 362                    i + 1, rep->address_type, rep->relocation_type,
 363                    rep->offset);
 364             dprintf_fixup(stddeb,"TARGET %04.4x %04.4x\n",
 365                     rep->target1, rep->target2);
 366             free(rep1);
 367             return -1;
 368         }
 369
 370         /*
 371          * Stuff the right size result in.
 372          */
 373         sp = (unsigned short *) ((char *) sel->base_addr + rep->offset);
 374         if (additive)
 375         {
 376             if (FindDLLTable(dll_name) == NULL)
 377                 additive = 2;
 378             dprintf_fixup(stddeb,
 379                    "%d: ADDR TYPE %d,  TYPE %d,  OFFSET %04.4x,  ",
 380                    i + 1, rep->address_type, rep->relocation_type,
 381                    rep->offset);
 382             dprintf_fixup(stddeb,"TARGET %04.4x %04.4x\n",
 383                     rep->target1, rep->target2);
 384             dprintf_fixup(stddeb, "    Additive = %d\n", additive);
 385         }
 386
 387         switch (rep->address_type)
 388         {
 389           case NE_RADDR_OFFSET16:
 390             do {
 391                 dprintf_fixup(stddeb,"    %04.4x:%04.4x:%04.4x OFFSET16\n",
 392                        (unsigned long) sp >> 16, (int) sp & 0xFFFF, *sp);
 393                 next_addr = *sp;
 394                 *sp = (unsigned short) address;
 395                 if (additive == 2)
 396                     *sp += next_addr;
 397                 sp = (unsigned short *) ((char *) sel->base_addr + next_addr);
 398             }
 399             while (next_addr != 0xffff && !additive);
 400
 401             break;
 402
 403           case NE_RADDR_POINTER32:
 404             do {
 405                 dprintf_fixup(stddeb,"    %04.4x:%04.4x:%04.4x POINTER32\n",
 406                        (unsigned long) sp >> 16, (int) sp & 0xFFFF, *sp);
 407                 next_addr = *sp;
 408                 *sp     = (unsigned short) address;
 409                 if (additive == 2)
 410                     *sp += next_addr;
 411                 *(sp+1) = (unsigned short) selector;
 412                 sp = (unsigned short *) ((char *) sel->base_addr + next_addr);
 413             }
 414             while (next_addr != 0xffff && !additive);
 415
 416             break;
 417
 418           case NE_RADDR_SELECTOR:
 419             do {
 420                 dprintf_fixup(stddeb,"    %04.4x:%04.4x:%04.4x SELECTOR\n",
 421                        (unsigned long) sp >> 16, (int) sp & 0xFFFF, *sp);
 422                 next_addr = *sp;
 423                 *sp     = (unsigned short) selector;
 424                 sp = (unsigned short *) ((char *) sel->base_addr + next_addr);
 425                 if (rep->relocation_type == NE_RELTYPE_INT1)
 426                     break;
 427             }
 428             while (next_addr != 0xffff && !additive);
 429
 430             break;
 431
 432           default:
 433             dprintf_fixup(stddeb,
 434                    "%d: ADDR TYPE %d,  TYPE %d,  OFFSET %04.4x,  ",
 435                    i + 1, rep->address_type, rep->relocation_type,
 436                    rep->offset);
 437             dprintf_fixup(stddeb,
 438                    "TARGET %04.4x %04.4x\n", rep->target1, rep->target2);
 439             free(rep1);
 440             return -1;
 441         }
 442     }
 443
 444     free(rep1);
 445     return 0;
 446 }
 447
 448 int NEunloadImage(struct w_files *wpnt)
 449 {
 450         printf("NEunloadImage() called!\n");
 451         /* free resources, image */
 452         return 1;
 453 }
 454
 455 int StartNEprogram(struct w_files *wpnt)
 456 {
 457     int cs_reg, ds_reg, ss_reg, ip_reg, sp_reg;
 458     /*
 459      * Fixup stack and jump to start.
 460      */
 461     WIN_StackSize = wpnt->ne->ne_header->stack_length;
 462     WIN_HeapSize = wpnt->ne->ne_header->local_heap_length;
 463
 464     ds_reg = wpnt->ne->selector_table[wpnt->ne->ne_header->auto_data_seg-1].selector;
 465     cs_reg = wpnt->ne->selector_table[wpnt->ne->ne_header->cs-1].selector;
 466     ip_reg = wpnt->ne->ne_header->ip;
 467     ss_reg = wpnt->ne->selector_table[wpnt->ne->ne_header->ss-1].selector;
 468     sp_reg = wpnt->ne->ne_header->sp;
 469
 470     return CallToInit16(cs_reg << 16 | ip_reg, ss_reg << 16 | sp_reg, ds_reg);
 471 }
 472
 473 void InitNEDLL(struct w_files *wpnt)
 474 {
 475         int cs_reg, ds_reg, ip_reg, rv;
 476         /*
 477          * Is this a library?
 478          */
 479         if (wpnt->ne->ne_header->format_flags & 0x8000)
 480         {
 481             if (!(wpnt->ne->ne_header->format_flags & 0x0001))
 482             {
 483                 /* Not SINGLEDATA */
 484                 fprintf(stderr, "Library is not marked SINGLEDATA\n");
 485                 exit(1);
 486             }
 487
 488             ds_reg = wpnt->ne->selector_table[wpnt->ne->
 489                                           ne_header->auto_data_seg-1].selector;
 490             cs_reg = wpnt->ne->selector_table[wpnt->ne->ne_header->cs-1].selector;
 491             ip_reg = wpnt->ne->ne_header->ip;
 492
 493             if (cs_reg) {
 494                 fprintf(stderr, "Initializing %s, cs:ip %04x:%04x, ds %04x\n",
 495                     wpnt->name, cs_reg, ip_reg, ds_reg);
 496
 497                 rv = CallTo16(cs_reg << 16 | ip_reg, ds_reg);
 498                 printf ("rv = %x\n", rv);
 499             } else
 500                 printf("%s skipped\n", wpnt->name);
 501         }
 502 }
 503
 504 #endif /* !WINELIB */