cvs commit: parrot/imcc symbol.c

[Melvin Smith]

cvsuser     03/10/30 21:40:44

  Modified:    imcc     symbol.c
  Log:
  Bug fix, typo, was only searching the 1st hash bucket. Not good.
  
  Revision  Changes    Path
  1.3       +4 -4      parrot/imcc/symbol.c
  
  Index: symbol.c
  ===================================================================
  RCS file: /cvs/public/parrot/imcc/symbol.c,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -w -r1.2 -r1.3
  --- symbol.c  25 Oct 2003 05:49:17 -0000      1.2
  +++ symbol.c  31 Oct 2003 05:40:44 -0000      1.3
  @@ -67,12 +67,12 @@
      unsigned int i;
      if(!sym)
         return;
  -#if 0
  -   fprintf(stderr, "store_symbol: %s\n", sym->name);
  -#endif
      i = hash_str(sym->name) % SYMTAB_HASHSIZE;
      sym->nextintable = st->table[i];
      st->table[i] = sym;
  +#if 0
  +   fprintf(stderr, "store_symbol table=%x: %s hashbucket=%d\n", st, sym->name, i);
  +#endif
   }
   
   
  @@ -114,7 +114,7 @@
      SymbolList * list = new_symbol_list();
      sym = NULL;
      for(i = 0; i < SYMTAB_HASHSIZE; i++) {
  -      for(next = st->table[0]; next; next = next->nextintable) {
  +      for(next = st->table[i]; next; next = next->nextintable) {
            if(!list->head)
               list->head = next;
            if(sym)