git.oblomov.eu Git - wine/blob - debugger/hash.c

   1 /*
   2  * File hash.c - generate hash tables for Wine debugger symbols
   3  *
   4  * Copyright (C) 1993, Eric Youngdale.
   5  */
   6
   7
   8 #include <stdlib.h>
   9 #include <stdio.h>
  10 #include <string.h>
  11 #include <limits.h>
  12 #include <sys/types.h>
  13 #include <neexe.h>
  14 #include "module.h"
  15 #include "process.h"
  16 #include "selectors.h"
  17 #include "debugger.h"
  18 #include "toolhelp.h"
  19 #include "xmalloc.h"
  20
  21 #define NR_NAME_HASH 16384
  22 #ifndef PATH_MAX
  23 #define PATH_MAX _MAX_PATH
  24 #endif
  25
  26 static char * reg_name[] =
  27 {
  28   "eax", "ecx", "edx", "ebx", "esp", "ebp", "esi", "edi"
  29 };
  30
  31 static unsigned reg_ofs[] =
  32 {
  33   FIELD_OFFSET(CONTEXT, Eax), FIELD_OFFSET(CONTEXT, Ecx),
  34   FIELD_OFFSET(CONTEXT, Edx), FIELD_OFFSET(CONTEXT, Ebx),
  35   FIELD_OFFSET(CONTEXT, Esp), FIELD_OFFSET(CONTEXT, Ebp),
  36   FIELD_OFFSET(CONTEXT, Esi), FIELD_OFFSET(CONTEXT, Edi)
  37 };
  38
  39
  40 struct name_hash
  41 {
  42     struct name_hash * next;            /* Used to look up within name hash */
  43     char *             name;
  44     char *             sourcefile;
  45
  46     int                n_locals;
  47     int                locals_alloc;
  48     WineLocals       * local_vars;
  49
  50     int                n_lines;
  51     int                lines_alloc;
  52     WineLineNo       * linetab;
  53
  54     DBG_ADDR           addr;
  55     unsigned short     flags;
  56     unsigned short     breakpoint_offset;
  57     unsigned int       symbol_size;
  58 };
  59
  60
  61 static BOOL32 DEBUG_GetStackSymbolValue( const char * name, DBG_ADDR *addr );
  62 static int sortlist_valid = FALSE;
  63
  64 static int sorttab_nsym;
  65 static struct name_hash ** addr_sorttab = NULL;
  66
  67 static struct name_hash * name_hash_table[NR_NAME_HASH];
  68
  69 static unsigned int name_hash( const char * name )
  70 {
  71     unsigned int hash = 0;
  72     unsigned int tmp;
  73     const char * p;
  74
  75     p = name;
  76
  77     while (*p)
  78       {
  79         hash = (hash << 4) + *p++;
  80
  81         if( (tmp = (hash & 0xf0000000)) )
  82           {
  83             hash ^= tmp >> 24;
  84           }
  85         hash &= ~tmp;
  86       }
  87     return hash % NR_NAME_HASH;
  88 }
  89
  90 int
  91 DEBUG_cmp_sym(const void * p1, const void * p2)
  92 {
  93   struct name_hash ** name1 = (struct name_hash **) p1;
  94   struct name_hash ** name2 = (struct name_hash **) p2;
  95
  96   if( ((*name1)->flags & SYM_INVALID) != 0 )
  97     {
  98       return -1;
  99     }
 100
 101   if( ((*name2)->flags & SYM_INVALID) != 0 )
 102     {
 103       return 1;
 104     }
 105
 106   if( (*name1)->addr.seg > (*name2)->addr.seg )
 107     {
 108       return 1;
 109     }
 110
 111   if( (*name1)->addr.seg < (*name2)->addr.seg )
 112     {
 113       return -1;
 114     }
 115
 116   if( (*name1)->addr.off > (*name2)->addr.off )
 117     {
 118       return 1;
 119     }
 120
 121   if( (*name1)->addr.off < (*name2)->addr.off )
 122     {
 123       return -1;
 124     }
 125
 126   return 0;
 127 }
 128
 129 /***********************************************************************
 130  *           DEBUG_ResortSymbols
 131  *
 132  * Rebuild sorted list of symbols.
 133  */
 134 static
 135 void
 136 DEBUG_ResortSymbols()
 137 {
 138     struct name_hash *nh;
 139     int         nsym = 0;
 140     int         i;
 141
 142     for(i=0; i<NR_NAME_HASH; i++)
 143     {
 144         for (nh = name_hash_table[i]; nh; nh = nh->next)
 145           {
 146             nsym++;
 147           }
 148     }
 149
 150     sorttab_nsym = nsym;
 151     if( nsym == 0 )
 152       {
 153         return;
 154       }
 155
 156     addr_sorttab = (struct name_hash **) xrealloc(addr_sorttab,
 157                                          nsym * sizeof(struct name_hash *));
 158
 159     nsym = 0;
 160     for(i=0; i<NR_NAME_HASH; i++)
 161     {
 162         for (nh = name_hash_table[i]; nh; nh = nh->next)
 163           {
 164             addr_sorttab[nsym++] = nh;
 165           }
 166     }
 167
 168     qsort(addr_sorttab, nsym,
 169           sizeof(struct name_hash *), DEBUG_cmp_sym);
 170     sortlist_valid = TRUE;
 171
 172 }
 173
 174 /***********************************************************************
 175  *           DEBUG_AddSymbol
 176  *
 177  * Add a symbol to the table.
 178  */
 179 struct name_hash *
 180 DEBUG_AddSymbol( const char * name, const DBG_ADDR *addr, const char * source,
 181                  int flags)
 182 {
 183     struct name_hash  * new;
 184     struct name_hash *nh;
 185     static char  prev_source[PATH_MAX] = {'\0', };
 186     static char * prev_duped_source = NULL;
 187     char * c;
 188     int hash;
 189
 190     hash = name_hash(name);
 191     for (nh = name_hash_table[hash]; nh; nh = nh->next)
 192     {
 193         if( ((nh->flags & SYM_INVALID) != 0) && strcmp(name, nh->name) == 0 )
 194         {
 195             nh->addr.off = addr->off;
 196             nh->addr.seg = addr->seg;
 197             if( nh->addr.type == NULL && addr->type != NULL )
 198             {
 199                 nh->addr.type = addr->type;
 200             }
 201             nh->flags &= ~SYM_INVALID;
 202             return nh;
 203         }
 204         if (nh->addr.seg == addr->seg &&
 205             nh->addr.off == addr->off &&
 206             strcmp(name, nh->name) == 0 )
 207         {
 208             return nh;
 209         }
 210     }
 211
 212     /*
 213      * First see if we already have an entry for this symbol.  If so
 214      * return it, so we don't end up with duplicates.
 215      */
 216
 217     new = (struct name_hash *) xmalloc(sizeof(struct name_hash));
 218     new->addr = *addr;
 219     new->name = xstrdup(name);
 220
 221     if( source != NULL )
 222       {
 223         /*
 224          * This is an enhancement to reduce memory consumption.  The idea
 225          * is that we duplicate a given string only once.  This is a big
 226          * win if there are lots of symbols defined in a given source file.
 227          */
 228         if( strcmp(source, prev_source) == 0 )
 229           {
 230             new->sourcefile = prev_duped_source;
 231           }
 232         else
 233           {
 234             strcpy(prev_source, source);
 235             prev_duped_source = new->sourcefile = xstrdup(source);
 236           }
 237       }
 238     else
 239       {
 240         new->sourcefile = NULL;
 241       }
 242
 243     new->n_lines        = 0;
 244     new->lines_alloc    = 0;
 245     new->linetab        = NULL;
 246
 247     new->n_locals       = 0;
 248     new->locals_alloc   = 0;
 249     new->local_vars     = NULL;
 250
 251     new->flags          = flags;
 252     new->next           = NULL;
 253
 254     /* Now insert into the hash table */
 255     new->next = name_hash_table[hash];
 256     name_hash_table[hash] = new;
 257
 258     /*
 259      * Check some heuristics based upon the file name to see whether
 260      * we want to step through this guy or not.  These are machine generated
 261      * assembly files that are used to translate between the MS way of
 262      * calling things and the GCC way of calling things.  In general we
 263      * always want to step through.
 264      */
 265     if( source != NULL )
 266       {
 267         c = strrchr(source, '.');
 268         if( c != NULL && strcmp(c, ".s") == 0 )
 269           {
 270             c = strrchr(source, '/');
 271             if( c != NULL )
 272               {
 273                 c++;
 274                 if(    (strcmp(c, "callfrom16.s") == 0)
 275                     || (strcmp(c, "callto16.s") == 0)
 276                     || (strcmp(c, "call32.s") == 0) )
 277                   {
 278                     new->flags |= SYM_TRAMPOLINE;
 279                   }
 280               }
 281           }
 282       }
 283
 284     sortlist_valid = FALSE;
 285     return new;
 286 }
 287
 288 BOOL32 DEBUG_Normalize(struct name_hash * nh )
 289 {
 290
 291   /*
 292    * We aren't adding any more locals or linenumbers to this function.
 293    * Free any spare memory that we might have allocated.
 294    */
 295   if( nh == NULL )
 296     {
 297       return TRUE;
 298     }
 299
 300   if( nh->n_locals != nh->locals_alloc )
 301     {
 302       nh->locals_alloc = nh->n_locals;
 303       nh->local_vars = xrealloc(nh->local_vars,
 304                                   nh->locals_alloc * sizeof(WineLocals));
 305     }
 306
 307   if( nh->n_lines != nh->lines_alloc )
 308     {
 309       nh->lines_alloc = nh->n_lines;
 310       nh->linetab = xrealloc(nh->linetab,
 311                               nh->lines_alloc * sizeof(WineLineNo));
 312     }
 313
 314   return TRUE;
 315 }
 316
 317 /***********************************************************************
 318  *           DEBUG_GetSymbolValue
 319  *
 320  * Get the address of a named symbol.
 321  */
 322 BOOL32 DEBUG_GetSymbolValue( const char * name, const int lineno,
 323                              DBG_ADDR *addr, int bp_flag )
 324 {
 325     char buffer[256];
 326     struct name_hash *nh;
 327
 328     for(nh = name_hash_table[name_hash(name)]; nh; nh = nh->next)
 329       {
 330         if( (nh->flags & SYM_INVALID) != 0 )
 331           {
 332             continue;
 333           }
 334
 335         if (!strcmp(nh->name, name)) break;
 336       }
 337
 338     if (!nh && (name[0] != '_'))
 339     {
 340         buffer[0] = '_';
 341         strcpy(buffer+1, name);
 342         for(nh = name_hash_table[name_hash(buffer)]; nh; nh = nh->next)
 343           {
 344             if( (nh->flags & SYM_INVALID) != 0 )
 345               {
 346                 continue;
 347               }
 348             if (!strcmp(nh->name, buffer)) break;
 349           }
 350     }
 351
 352     /*
 353      * If we don't have anything here, then try and see if this
 354      * is a local symbol to the current stack frame.  No matter
 355      * what, we have nothing more to do, so we let that function
 356      * decide what we ultimately return.
 357      */
 358     if (!nh)
 359       {
 360         return DEBUG_GetStackSymbolValue(name, addr);
 361       }
 362
 363     return DEBUG_GetLineNumberAddr( nh, lineno, addr, bp_flag );
 364 }
 365
 366 /***********************************************************************
 367  *           DEBUG_GetLineNumberAddr
 368  *
 369  * Get the address of a named symbol.
 370  */
 371 BOOL32 DEBUG_GetLineNumberAddr( struct name_hash * nh, const int lineno,
 372                                 DBG_ADDR *addr, int bp_flag )
 373 {
 374     int i;
 375
 376     if( lineno == -1 )
 377       {
 378         *addr = nh->addr;
 379         if( bp_flag )
 380           {
 381             addr->off += nh->breakpoint_offset;
 382           }
 383       }
 384     else
 385       {
 386         /*
 387          * Search for the specific line number.  If we don't find it,
 388          * then return FALSE.
 389          */
 390         if( nh->linetab == NULL )
 391           {
 392             return FALSE;
 393           }
 394
 395         for(i=0; i < nh->n_lines; i++ )
 396           {
 397             if( nh->linetab[i].line_number == lineno )
 398               {
 399                 *addr = nh->linetab[i].pc_offset;
 400                 return TRUE;
 401               }
 402           }
 403
 404         /*
 405          * This specific line number not found.
 406          */
 407         return FALSE;
 408       }
 409
 410     return TRUE;
 411 }
 412
 413
 414 /***********************************************************************
 415  *           DEBUG_SetSymbolValue
 416  *
 417  * Set the address of a named symbol.
 418  */
 419 BOOL32 DEBUG_SetSymbolValue( const char * name, const DBG_ADDR *addr )
 420 {
 421     char buffer[256];
 422     struct name_hash *nh;
 423
 424     for(nh = name_hash_table[name_hash(name)]; nh; nh = nh->next)
 425         if (!strcmp(nh->name, name)) break;
 426
 427     if (!nh && (name[0] != '_'))
 428     {
 429         buffer[0] = '_';
 430         strcpy(buffer+1, name);
 431         for(nh = name_hash_table[name_hash(buffer)]; nh; nh = nh->next)
 432             if (!strcmp(nh->name, buffer)) break;
 433     }
 434
 435     if (!nh) return FALSE;
 436     nh->addr = *addr;
 437     nh->flags &= SYM_INVALID;
 438     DBG_FIX_ADDR_SEG( &nh->addr, DS_reg(&DEBUG_context) );
 439     return TRUE;
 440 }
 441
 442
 443 /***********************************************************************
 444  *           DEBUG_FindNearestSymbol
 445  *
 446  * Find the symbol nearest to a given address.
 447  * If ebp is specified as non-zero, it means we should dump the argument
 448  * list into the string we return as well.
 449  */
 450 const char * DEBUG_FindNearestSymbol( const DBG_ADDR *addr, int flag,
 451                                       struct name_hash ** rtn,
 452                                       unsigned int ebp,
 453                                       struct list_id * source)
 454 {
 455     static char name_buffer[MAX_PATH + 256];
 456     static char arglist[1024];
 457     static char argtmp[256];
 458     struct name_hash * nearest = NULL;
 459     int mid, high, low;
 460     unsigned    int * ptr;
 461     int lineno;
 462     char * lineinfo, *sourcefile;
 463     int i;
 464     char linebuff[16];
 465
 466     if( rtn != NULL )
 467       {
 468         *rtn = NULL;
 469       }
 470
 471     if( source != NULL )
 472       {
 473         source->sourcefile = NULL;
 474         source->line = -1;
 475       }
 476
 477     if( sortlist_valid == FALSE )
 478       {
 479         DEBUG_ResortSymbols();
 480       }
 481
 482     if( sortlist_valid == FALSE )
 483       {
 484         return NULL;
 485       }
 486
 487     /*
 488      * FIXME  - use the binary search that we added to
 489      * the function DEBUG_CheckLinenoStatus.  Better yet, we should
 490      * probably keep some notion of the current function so we don't
 491      * have to search every time.
 492      */
 493     /*
 494      * Binary search to find closest symbol.
 495      */
 496     low = 0;
 497     high = sorttab_nsym;
 498     if( addr_sorttab[0]->addr.seg > addr->seg
 499         || (   addr_sorttab[0]->addr.seg == addr->seg
 500             && addr_sorttab[0]->addr.off > addr->off) )
 501       {
 502         nearest = NULL;
 503       }
 504     else if( addr_sorttab[high - 1]->addr.seg < addr->seg
 505         || (   addr_sorttab[high - 1]->addr.seg == addr->seg
 506             && addr_sorttab[high - 1]->addr.off < addr->off) )
 507       {
 508         nearest = addr_sorttab[high - 1];
 509       }
 510     else
 511       {
 512         while(1==1)
 513           {
 514             mid = (high + low)/2;
 515             if( mid == low )
 516               {
 517                 /*
 518                  * See if there are any other entries that might also
 519                  * have the same address, and would also have a line
 520                  * number table.
 521                  */
 522                 if( mid > 0 && addr_sorttab[mid]->linetab == NULL )
 523                   {
 524                     if(    (addr_sorttab[mid - 1]->addr.seg ==
 525                             addr_sorttab[mid]->addr.seg)
 526                         && (addr_sorttab[mid - 1]->addr.off ==
 527                             addr_sorttab[mid]->addr.off)
 528                         && (addr_sorttab[mid - 1]->linetab != NULL) )
 529                       {
 530                         mid--;
 531                       }
 532                   }
 533
 534                 if(    (mid < sorttab_nsym - 1)
 535                     && (addr_sorttab[mid]->linetab == NULL) )
 536                   {
 537                     if(    (addr_sorttab[mid + 1]->addr.seg ==
 538                             addr_sorttab[mid]->addr.seg)
 539                         && (addr_sorttab[mid + 1]->addr.off ==
 540                             addr_sorttab[mid]->addr.off)
 541                         && (addr_sorttab[mid + 1]->linetab != NULL) )
 542                       {
 543                         mid++;
 544                       }
 545                   }
 546                 nearest = addr_sorttab[mid];
 547 #if 0
 548                 fprintf(stderr, "Found %x:%x when looking for %x:%x %x %s\n",
 549                         addr_sorttab[mid ]->addr.seg,
 550                         addr_sorttab[mid ]->addr.off,
 551                         addr->seg, addr->off,
 552                         addr_sorttab[mid ]->linetab,
 553                         addr_sorttab[mid ]->name);
 554 #endif
 555                 break;
 556               }
 557             if(    (addr_sorttab[mid]->addr.seg < addr->seg)
 558                 || (   addr_sorttab[mid]->addr.seg == addr->seg
 559                     && addr_sorttab[mid]->addr.off <= addr->off) )
 560               {
 561                 low = mid;
 562               }
 563             else
 564               {
 565                 high = mid;
 566               }
 567           }
 568       }
 569
 570     if (!nearest) return NULL;
 571
 572     if( rtn != NULL )
 573       {
 574         *rtn = nearest;
 575       }
 576
 577     /*
 578      * Fill in the relevant bits to the structure so that we can
 579      * locate the source and line for this bit of code.
 580      */
 581     if( source != NULL )
 582       {
 583         source->sourcefile = nearest->sourcefile;
 584         if( nearest->linetab == NULL )
 585           {
 586             source->line = -1;
 587           }
 588         else
 589           {
 590             source->line = nearest->linetab[0].line_number;
 591           }
 592       }
 593
 594     lineinfo = "";
 595     lineno = -1;
 596
 597     /*
 598      * Prepare to display the argument list.  If ebp is specified, it is
 599      * the framepointer for the function in question.  If not specified,
 600      * we don't want the arglist.
 601      */
 602     memset(arglist, '\0', sizeof(arglist));
 603     if( ebp != 0 )
 604       {
 605         for(i=0; i < nearest->n_locals; i++ )
 606           {
 607             /*
 608              * If this is a register (offset == 0) or a local
 609              * variable, we don't want to know about it.
 610              */
 611             if( nearest->local_vars[i].offset <= 0 )
 612               {
 613                 continue;
 614               }
 615
 616             ptr = (unsigned int *) (ebp + nearest->local_vars[i].offset);
 617             if( arglist[0] == '\0' )
 618               {
 619                 arglist[0] = '(';
 620               }
 621             else
 622               {
 623                 strcat(arglist, ", ");
 624               }
 625
 626             sprintf(argtmp, "%s=0x%x", nearest->local_vars[i].name,
 627                     *ptr);
 628             strcat(arglist, argtmp);
 629           }
 630         if( arglist[0] == '(' )
 631           {
 632             strcat(arglist, ")");
 633           }
 634       }
 635
 636     if( (nearest->sourcefile != NULL) && (flag == TRUE)
 637         && (addr->off - nearest->addr.off < 0x100000) )
 638       {
 639
 640         /*
 641          * Try and find the nearest line number to the current offset.
 642          */
 643         if( nearest->linetab != NULL )
 644         {
 645             low = 0;
 646             high = nearest->n_lines;
 647             while ((high - low) > 1)
 648             {
 649                 mid = (high + low) / 2;
 650                 if (addr->off < nearest->linetab[mid].pc_offset.off)
 651                     high = mid;
 652                 else
 653                     low = mid;
 654             }
 655             lineno = nearest->linetab[low].line_number;
 656         }
 657
 658         if( lineno != -1 )
 659           {
 660             sprintf(linebuff, ":%d", lineno);
 661             lineinfo = linebuff;
 662             if( source != NULL )
 663               {
 664                 source->line = lineno;
 665               }
 666           }
 667
 668         /* Remove the path from the file name */
 669         sourcefile = strrchr( nearest->sourcefile, '/' );
 670         if (!sourcefile) sourcefile = nearest->sourcefile;
 671         else sourcefile++;
 672
 673         if (addr->off == nearest->addr.off)
 674           sprintf( name_buffer, "%s%s [%s%s]", nearest->name,
 675                    arglist, sourcefile, lineinfo);
 676         else
 677           sprintf( name_buffer, "%s+0x%lx%s [%s%s]", nearest->name,
 678                    addr->off - nearest->addr.off,
 679                    arglist, sourcefile, lineinfo );
 680       }
 681     else
 682       {
 683         if (addr->off == nearest->addr.off)
 684           sprintf( name_buffer, "%s%s", nearest->name, arglist);
 685         else {
 686           if (addr->seg && (nearest->addr.seg!=addr->seg))
 687               return NULL;
 688           else
 689               sprintf( name_buffer, "%s+0x%lx%s", nearest->name,
 690                        addr->off - nearest->addr.off, arglist);
 691         }
 692       }
 693     return name_buffer;
 694 }
 695
 696
 697 /***********************************************************************
 698  *           DEBUG_ReadSymbolTable
 699  *
 700  * Read a symbol file into the hash table.
 701  */
 702 void DEBUG_ReadSymbolTable( const char * filename )
 703 {
 704     FILE * symbolfile;
 705     DBG_ADDR addr = { 0, 0 };
 706     int nargs;
 707     char type;
 708     char * cpnt;
 709     char buffer[256];
 710     char name[256];
 711
 712     if (!(symbolfile = fopen(filename, "r")))
 713     {
 714         fprintf( stderr, "Unable to open symbol table %s\n", filename );
 715         return;
 716     }
 717
 718     fprintf( stderr, "Reading symbols from file %s\n", filename );
 719
 720     while (1)
 721     {
 722         fgets( buffer, sizeof(buffer), symbolfile );
 723         if (feof(symbolfile)) break;
 724
 725         /* Strip any text after a # sign (i.e. comments) */
 726         cpnt = buffer;
 727         while (*cpnt)
 728             if(*cpnt++ == '#') { *cpnt = 0; break; }
 729
 730         /* Quietly ignore any lines that have just whitespace */
 731         cpnt = buffer;
 732         while(*cpnt)
 733         {
 734             if(*cpnt != ' ' && *cpnt != '\t') break;
 735             cpnt++;
 736         }
 737         if (!(*cpnt) || *cpnt == '\n') continue;
 738
 739         nargs = sscanf(buffer, "%lx %c %s", &addr.off, &type, name);
 740         DEBUG_AddSymbol( name, &addr, NULL, SYM_WINE );
 741     }
 742     fclose(symbolfile);
 743 }
 744
 745
 746 /***********************************************************************
 747  *           DEBUG_LoadEntryPoints16
 748  *
 749  * Load the entry points of a Win16 module into the hash table.
 750  */
 751 static void DEBUG_LoadEntryPoints16( HMODULE16 hModule, NE_MODULE *pModule,
 752                                      const char *name )
 753 {
 754     DBG_ADDR addr;
 755     char buffer[256];
 756     FARPROC16 address;
 757
 758     /* First search the resident names */
 759
 760     unsigned char *cpnt = (unsigned char *)pModule + pModule->name_table;
 761     while (*cpnt)
 762     {
 763         cpnt += *cpnt + 1 + sizeof(WORD);
 764         sprintf( buffer, "%s.%.*s", name, *cpnt, cpnt + 1 );
 765         if ((address = NE_GetEntryPoint(hModule, *(WORD *)(cpnt + *cpnt + 1))))
 766         {
 767             addr.seg = HIWORD(address);
 768             addr.off = LOWORD(address);
 769             addr.type = NULL;
 770             DEBUG_AddSymbol( buffer, &addr, NULL, SYM_WIN32 | SYM_FUNC );
 771         }
 772     }
 773
 774     /* Now search the non-resident names table */
 775
 776     if (!pModule->nrname_handle) return;  /* No non-resident table */
 777     cpnt = (char *)GlobalLock16( pModule->nrname_handle );
 778     while (*cpnt)
 779     {
 780         cpnt += *cpnt + 1 + sizeof(WORD);
 781         sprintf( buffer, "%s.%.*s", name, *cpnt, cpnt + 1 );
 782         if ((address = NE_GetEntryPoint(hModule, *(WORD *)(cpnt + *cpnt + 1))))
 783         {
 784             addr.seg = HIWORD(address);
 785             addr.off = LOWORD(address);
 786             addr.type = NULL;
 787             DEBUG_AddSymbol( buffer, &addr, NULL, SYM_WIN32 | SYM_FUNC );
 788         }
 789     }
 790 }
 791
 792
 793 /***********************************************************************
 794  *           DEBUG_LoadEntryPoints32
 795  *
 796  * Load the entry points of a Win32 module into the hash table.
 797  */
 798 static void DEBUG_LoadEntryPoints32( HMODULE32 hModule, const char *name )
 799 {
 800 #define RVA(x) (hModule+(DWORD)(x))
 801
 802     DBG_ADDR addr;
 803     char buffer[256];
 804     int i, j;
 805     IMAGE_SECTION_HEADER *pe_seg;
 806     IMAGE_EXPORT_DIRECTORY *exports;
 807     IMAGE_DATA_DIRECTORY *dir;
 808     WORD *ordinals;
 809     void **functions;
 810     const char **names;
 811
 812     addr.seg = 0;
 813     addr.type = NULL;
 814
 815     /* Add start of DLL */
 816
 817     addr.off = hModule;
 818     DEBUG_AddSymbol( name, &addr, NULL, SYM_WIN32 | SYM_FUNC );
 819
 820     /* Add entry point */
 821
 822     sprintf( buffer, "%s.EntryPoint", name );
 823     addr.off = (DWORD)RVA_PTR( hModule, OptionalHeader.AddressOfEntryPoint );
 824     DEBUG_AddSymbol( buffer, &addr, NULL, SYM_WIN32 | SYM_FUNC );
 825
 826     /* Add start of sections */
 827
 828     pe_seg = PE_SECTIONS(hModule);
 829     for (i = 0; i < PE_HEADER(hModule)->FileHeader.NumberOfSections; i++)
 830     {
 831         sprintf( buffer, "%s.%s", name, pe_seg->Name );
 832         addr.off = RVA(pe_seg->VirtualAddress );
 833         DEBUG_AddSymbol( buffer, &addr, NULL, SYM_WIN32 | SYM_FUNC );
 834         pe_seg++;
 835     }
 836
 837     /* Add exported functions */
 838
 839     dir = &PE_HEADER(hModule)->OptionalHeader.
 840                                    DataDirectory[IMAGE_DIRECTORY_ENTRY_EXPORT];
 841     if (dir->Size)
 842     {
 843       exports   = (IMAGE_EXPORT_DIRECTORY *)RVA( dir->VirtualAddress );
 844       ordinals  = (WORD *)RVA( exports->AddressOfNameOrdinals );
 845       names     = (const char **)RVA( exports->AddressOfNames );
 846       functions = (void **)RVA( exports->AddressOfFunctions );
 847
 848       for (i = 0; i < exports->NumberOfNames; i++)
 849       {
 850           if (!names[i]) continue;
 851           sprintf( buffer, "%s.%s", name, (char *)RVA(names[i]) );
 852           addr.off = RVA( functions[ordinals[i]] );
 853         DEBUG_AddSymbol( buffer, &addr, NULL, SYM_WIN32 | SYM_FUNC );
 854       }
 855
 856       for (i = 0; i < exports->NumberOfFunctions; i++)
 857       {
 858           if (!functions[i]) continue;
 859           /* Check if we already added it with a name */
 860           for (j = 0; j < exports->NumberOfNames; j++)
 861             if ((ordinals[j] == i) && names[j]) break;
 862           if (j < exports->NumberOfNames) continue;
 863           sprintf( buffer, "%s.%ld", name, i + exports->Base );
 864           addr.off = (DWORD)RVA( functions[i] );
 865           DEBUG_AddSymbol( buffer, &addr, NULL, SYM_WIN32 | SYM_FUNC );
 866       }
 867     }
 868
 869     dir = &PE_HEADER(hModule)->OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_DEBUG];
 870     if (dir->Size)
 871         DEBUG_RegisterDebugInfo(hModule, name, dir->VirtualAddress, dir->Size);
 872 #undef RVA
 873 }
 874
 875
 876 /***********************************************************************
 877  *           DEBUG_LoadEntryPoints
 878  *
 879  * Load the entry points of all the modules into the hash table.
 880  */
 881 void DEBUG_LoadEntryPoints(void)
 882 {
 883     MODULEENTRY entry;
 884     NE_MODULE *pModule;
 885     BOOL32 ok;
 886     WINE_MODREF *wm;
 887     int rowcount = 3;
 888
 889     fprintf( stderr, "   " );
 890     for (ok = ModuleFirst(&entry); ok; ok = ModuleNext(&entry))
 891     {
 892         if (!(pModule = NE_GetPtr( entry.hModule ))) continue;
 893         if (!(pModule->flags & NE_FFLAGS_WIN32))  /* NE module */
 894           {
 895         if ((rowcount + strlen(entry.szModule)) > 76)
 896         {
 897             fprintf( stderr,"\n   ");
 898             rowcount = 3;
 899         }
 900         fprintf( stderr, " %s", entry.szModule );
 901         rowcount += strlen(entry.szModule) + 1;
 902
 903             DEBUG_LoadEntryPoints16( entry.hModule, pModule, entry.szModule );
 904           }
 905     }
 906     for (wm=PROCESS_Current()->modref_list;wm;wm=wm->next)
 907     {
 908         if ((rowcount + strlen(wm->modname)) > 76)
 909         {
 910             fprintf( stderr,"\n   ");
 911             rowcount = 3;
 912         }
 913         fprintf( stderr, " %s", wm->modname );
 914         rowcount += strlen(wm->modname) + 1;
 915         DEBUG_LoadEntryPoints32( wm->module, wm->modname );
 916     }
 917     fprintf( stderr, "\n" );
 918 }
 919
 920
 921 void
 922 DEBUG_AddLineNumber( struct name_hash * func, int line_num,
 923                      unsigned long offset )
 924 {
 925   if( func == NULL )
 926     {
 927       return;
 928     }
 929
 930   if( func->n_lines + 1 >= func->lines_alloc )
 931     {
 932       func->lines_alloc += 64;
 933       func->linetab = xrealloc(func->linetab,
 934                               func->lines_alloc * sizeof(WineLineNo));
 935     }
 936
 937   func->linetab[func->n_lines].line_number = line_num;
 938   func->linetab[func->n_lines].pc_offset.seg = func->addr.seg;
 939   func->linetab[func->n_lines].pc_offset.off = func->addr.off + offset;
 940   func->linetab[func->n_lines].pc_offset.type = NULL;
 941   func->n_lines++;
 942 }
 943
 944
 945 struct wine_locals *
 946 DEBUG_AddLocal( struct name_hash * func, int regno,
 947                 int offset,
 948                 int pc_start,
 949                 int pc_end,
 950                 char * name)
 951 {
 952   if( func == NULL )
 953     {
 954       return NULL;
 955     }
 956
 957   if( func->n_locals + 1 >= func->locals_alloc )
 958     {
 959       func->locals_alloc += 32;
 960       func->local_vars = xrealloc(func->local_vars,
 961                               func->locals_alloc * sizeof(WineLocals));
 962     }
 963
 964   func->local_vars[func->n_locals].regno = regno;
 965   func->local_vars[func->n_locals].offset = offset;
 966   func->local_vars[func->n_locals].pc_start = pc_start;
 967   func->local_vars[func->n_locals].pc_end = pc_end;
 968   func->local_vars[func->n_locals].name = xstrdup(name);
 969   func->local_vars[func->n_locals].type = NULL;
 970   func->n_locals++;
 971
 972   return &func->local_vars[func->n_locals - 1];
 973 }
 974
 975 void
 976 DEBUG_DumpHashInfo()
 977 {
 978   int i;
 979   int depth;
 980   struct name_hash *nh;
 981
 982   /*
 983    * Utility function to dump stats about the hash table.
 984    */
 985     for(i=0; i<NR_NAME_HASH; i++)
 986     {
 987       depth = 0;
 988       for (nh = name_hash_table[i]; nh; nh = nh->next)
 989         {
 990           depth++;
 991         }
 992       fprintf(stderr, "Bucket %d: %d\n", i, depth);
 993     }
 994 }
 995
 996 /***********************************************************************
 997  *           DEBUG_CheckLinenoStatus
 998  *
 999  * Find the symbol nearest to a given address.
1000  * If ebp is specified as non-zero, it means we should dump the argument
1001  * list into the string we return as well.
1002  */
1003 int DEBUG_CheckLinenoStatus( const DBG_ADDR *addr)
1004 {
1005     struct name_hash * nearest = NULL;
1006     int mid, high, low;
1007
1008     if( sortlist_valid == FALSE )
1009       {
1010         DEBUG_ResortSymbols();
1011       }
1012
1013     /*
1014      * Binary search to find closest symbol.
1015      */
1016     low = 0;
1017     high = sorttab_nsym;
1018     if( addr_sorttab[0]->addr.seg > addr->seg
1019         || (   addr_sorttab[0]->addr.seg == addr->seg
1020             && addr_sorttab[0]->addr.off > addr->off) )
1021       {
1022         nearest = NULL;
1023       }
1024     else if( addr_sorttab[high - 1]->addr.seg < addr->seg
1025         || (   addr_sorttab[high - 1]->addr.seg == addr->seg
1026             && addr_sorttab[high - 1]->addr.off < addr->off) )
1027       {
1028         nearest = addr_sorttab[high - 1];
1029       }
1030     else
1031       {
1032         while(1==1)
1033           {
1034             mid = (high + low)/2;
1035             if( mid == low )
1036               {
1037                 /*
1038                  * See if there are any other entries that might also
1039                  * have the same address, and would also have a line
1040                  * number table.
1041                  */
1042                 if( mid > 0 && addr_sorttab[mid]->linetab == NULL )
1043                   {
1044                     if(    (addr_sorttab[mid - 1]->addr.seg ==
1045                             addr_sorttab[mid]->addr.seg)
1046                         && (addr_sorttab[mid - 1]->addr.off ==
1047                             addr_sorttab[mid]->addr.off)
1048                         && (addr_sorttab[mid - 1]->linetab != NULL) )
1049                       {
1050                         mid--;
1051                       }
1052                   }
1053
1054                 if(    (mid < sorttab_nsym - 1)
1055                     && (addr_sorttab[mid]->linetab == NULL) )
1056                   {
1057                     if(    (addr_sorttab[mid + 1]->addr.seg ==
1058                             addr_sorttab[mid]->addr.seg)
1059                         && (addr_sorttab[mid + 1]->addr.off ==
1060                             addr_sorttab[mid]->addr.off)
1061                         && (addr_sorttab[mid + 1]->linetab != NULL) )
1062                       {
1063                         mid++;
1064                       }
1065                   }
1066                 nearest = addr_sorttab[mid];
1067 #if 0
1068                 fprintf(stderr, "Found %x:%x when looking for %x:%x %x %s\n",
1069                         addr_sorttab[mid ]->addr.seg,
1070                         addr_sorttab[mid ]->addr.off,
1071                         addr->seg, addr->off,
1072                         addr_sorttab[mid ]->linetab,
1073                         addr_sorttab[mid ]->name);
1074 #endif
1075                 break;
1076               }
1077             if(    (addr_sorttab[mid]->addr.seg < addr->seg)
1078                 || (   addr_sorttab[mid]->addr.seg == addr->seg
1079                     && addr_sorttab[mid]->addr.off <= addr->off) )
1080               {
1081                 low = mid;
1082               }
1083             else
1084               {
1085                 high = mid;
1086               }
1087           }
1088       }
1089
1090     if (!nearest) return FUNC_HAS_NO_LINES;
1091
1092     if( nearest->flags & SYM_STEP_THROUGH )
1093       {
1094         /*
1095          * This will cause us to keep single stepping until
1096          * we get to the other side somewhere.
1097          */
1098         return NOT_ON_LINENUMBER;
1099       }
1100
1101     if( (nearest->flags & SYM_TRAMPOLINE) )
1102       {
1103         /*
1104          * This will cause us to keep single stepping until
1105          * we get to the other side somewhere.
1106          */
1107         return FUNC_IS_TRAMPOLINE;
1108       }
1109
1110     if( nearest->linetab == NULL )
1111       {
1112         return FUNC_HAS_NO_LINES;
1113       }
1114
1115
1116     /*
1117      * We never want to stop on the first instruction of a function
1118      * even if it has it's own linenumber.  Let the thing keep running
1119      * until it gets past the function prologue.  We only do this if there
1120      * is more than one line number for the function, of course.
1121      */
1122     if( nearest->addr.off == addr->off && nearest->n_lines > 1 )
1123       {
1124         return NOT_ON_LINENUMBER;
1125       }
1126
1127     if( (nearest->sourcefile != NULL)
1128         && (addr->off - nearest->addr.off < 0x100000) )
1129       {
1130           low = 0;
1131           high = nearest->n_lines;
1132           while ((high - low) > 1)
1133           {
1134               mid = (high + low) / 2;
1135               if (addr->off < nearest->linetab[mid].pc_offset.off) high = mid;
1136               else low = mid;
1137           }
1138           if (addr->off == nearest->linetab[low].pc_offset.off)
1139               return AT_LINENUMBER;
1140           else
1141               return NOT_ON_LINENUMBER;
1142       }
1143
1144     return FUNC_HAS_NO_LINES;
1145 }
1146
1147 /***********************************************************************
1148  *           DEBUG_GetFuncInfo
1149  *
1150  * Find the symbol nearest to a given address.
1151  * Returns sourcefile name and line number in a format that the listing
1152  * handler can deal with.
1153  */
1154 void
1155 DEBUG_GetFuncInfo( struct list_id * ret, const char * filename,
1156                    const char * name)
1157 {
1158     char buffer[256];
1159     char * pnt;
1160     struct name_hash *nh;
1161
1162     for(nh = name_hash_table[name_hash(name)]; nh; nh = nh->next)
1163       {
1164         if( filename != NULL )
1165           {
1166
1167             if( nh->sourcefile == NULL )
1168               {
1169                 continue;
1170               }
1171
1172             pnt = strrchr(nh->sourcefile, '/');
1173             if( strcmp(nh->sourcefile, filename) != 0
1174                 && (pnt == NULL || strcmp(pnt + 1, filename) != 0) )
1175               {
1176                 continue;
1177               }
1178           }
1179         if (!strcmp(nh->name, name)) break;
1180       }
1181
1182     if (!nh && (name[0] != '_'))
1183     {
1184         buffer[0] = '_';
1185         strcpy(buffer+1, name);
1186         for(nh = name_hash_table[name_hash(buffer)]; nh; nh = nh->next)
1187           {
1188             if( filename != NULL )
1189               {
1190                 if( nh->sourcefile == NULL )
1191                   {
1192                     continue;
1193                   }
1194
1195                 pnt = strrchr(nh->sourcefile, '/');
1196                 if( strcmp(nh->sourcefile, filename) != 0
1197                     && (pnt == NULL || strcmp(pnt + 1, filename) != 0) )
1198                   {
1199                     continue;
1200                   }
1201               }
1202             if (!strcmp(nh->name, buffer)) break;
1203           }
1204     }
1205
1206     if( !nh )
1207       {
1208         if( filename != NULL )
1209           {
1210             fprintf(stderr, "No such function %s in %s\n", name, filename);
1211           }
1212         else
1213           {
1214             fprintf(stderr, "No such function %s\n", name);
1215           }
1216         ret->sourcefile = NULL;
1217         ret->line = -1;
1218         return;
1219       }
1220
1221     ret->sourcefile = nh->sourcefile;
1222
1223     /*
1224      * Search for the specific line number.  If we don't find it,
1225      * then return FALSE.
1226      */
1227     if( nh->linetab == NULL )
1228       {
1229         ret->line = -1;
1230       }
1231     else
1232       {
1233         ret->line = nh->linetab[0].line_number;
1234       }
1235 }
1236
1237 /***********************************************************************
1238  *           DEBUG_GetStackSymbolValue
1239  *
1240  * Get the address of a named symbol from the current stack frame.
1241  */
1242 static
1243 BOOL32 DEBUG_GetStackSymbolValue( const char * name, DBG_ADDR *addr )
1244 {
1245   struct name_hash * curr_func;
1246   unsigned int       ebp;
1247   unsigned int       eip;
1248   int                i;
1249
1250   if( DEBUG_GetCurrentFrame(&curr_func, &eip, &ebp) == FALSE )
1251     {
1252       return FALSE;
1253     }
1254
1255   for(i=0; i < curr_func->n_locals; i++ )
1256     {
1257       /*
1258        * Test the range of validity of the local variable.  This
1259        * comes up with RBRAC/LBRAC stabs in particular.
1260        */
1261       if(    (curr_func->local_vars[i].pc_start != 0)
1262           && ((eip - curr_func->addr.off)
1263               < curr_func->local_vars[i].pc_start) )
1264         {
1265           continue;
1266         }
1267
1268       if(    (curr_func->local_vars[i].pc_end != 0)
1269           && ((eip - curr_func->addr.off)
1270               > curr_func->local_vars[i].pc_end) )
1271         {
1272           continue;
1273         }
1274
1275       if( strcmp(name, curr_func->local_vars[i].name) == 0 )
1276         {
1277           /*
1278            * OK, we found it.  Now figure out what to do with this.
1279            */
1280           /* FIXME: what if regno == 0 ($eax) */
1281           if( curr_func->local_vars[i].regno != 0 )
1282             {
1283               /*
1284                * Register variable.  Point to DEBUG_context field.
1285                */
1286               addr->seg = 0;
1287               addr->off = ((DWORD)&DEBUG_context) + reg_ofs[curr_func->local_vars[i].regno];
1288               addr->type = curr_func->local_vars[i].type;
1289
1290               return TRUE;
1291             }
1292
1293           addr->seg = 0;
1294           addr->off = ebp + curr_func->local_vars[i].offset;
1295           addr->type = curr_func->local_vars[i].type;
1296
1297           return TRUE;
1298         }
1299     }
1300   return FALSE;
1301 }
1302
1303 int
1304 DEBUG_InfoLocals()
1305 {
1306   struct name_hash  * curr_func;
1307   unsigned int        ebp;
1308   unsigned int        eip;
1309   int                 i;
1310   unsigned int      * ptr;
1311   int                 rtn = FALSE;
1312
1313   if( DEBUG_GetCurrentFrame(&curr_func, &eip, &ebp) == FALSE )
1314     {
1315       return FALSE;
1316     }
1317
1318   for(i=0; i < curr_func->n_locals; i++ )
1319     {
1320       /*
1321        * Test the range of validity of the local variable.  This
1322        * comes up with RBRAC/LBRAC stabs in particular.
1323        */
1324       if(    (curr_func->local_vars[i].pc_start != 0)
1325           && ((eip - curr_func->addr.off)
1326               < curr_func->local_vars[i].pc_start) )
1327         {
1328           continue;
1329         }
1330
1331       if(    (curr_func->local_vars[i].pc_end != 0)
1332           && ((eip - curr_func->addr.off)
1333               > curr_func->local_vars[i].pc_end) )
1334         {
1335           continue;
1336         }
1337
1338       if( curr_func->local_vars[i].offset == 0 )
1339         {
1340           ptr = (unsigned int *) (((DWORD)&DEBUG_context)
1341                 + reg_ofs[curr_func->local_vars[i].regno]);
1342           fprintf(stderr, "%s:%s (optimized into register $%s) == 0x%8.8x\n",
1343                   curr_func->name, curr_func->local_vars[i].name,
1344                   reg_name[curr_func->local_vars[i].regno],
1345                   *ptr);
1346         }
1347       else
1348         {
1349           ptr = (unsigned int *) (ebp + curr_func->local_vars[i].offset);
1350           fprintf(stderr, "%s:%s == 0x%8.8x\n",
1351                   curr_func->name, curr_func->local_vars[i].name,
1352                   *ptr);
1353         }
1354     }
1355
1356   rtn = TRUE;
1357
1358   return (rtn);
1359 }
1360
1361 int
1362 DEBUG_SetSymbolSize(struct name_hash * sym, unsigned int len)
1363 {
1364   sym->symbol_size = len;
1365
1366   return TRUE;
1367 }
1368
1369 int
1370 DEBUG_SetSymbolBPOff(struct name_hash * sym, unsigned int off)
1371 {
1372   sym->breakpoint_offset = off;
1373
1374   return TRUE;
1375 }
1376
1377 int
1378 DEBUG_GetSymbolAddr(struct name_hash * sym, DBG_ADDR * addr)
1379 {
1380
1381   *addr = sym->addr;
1382
1383   return TRUE;
1384 }
1385
1386 int DEBUG_SetLocalSymbolType(struct wine_locals * sym, struct datatype * type)
1387 {
1388   sym->type = type;
1389
1390   return TRUE;
1391 }