cvs commit: parrot/imcc symreg.c

[Melvin Smith]

cvsuser     03/11/12 23:22:08

  Modified:    imcc     symreg.c
  Log:
  Oops, fix clear_globals()
  
  Revision  Changes    Path
  1.39      +6 -1      parrot/imcc/symreg.c
  
  Index: symreg.c
  ===================================================================
  RCS file: /cvs/public/parrot/imcc/symreg.c,v
  retrieving revision 1.38
  retrieving revision 1.39
  diff -u -w -r1.38 -r1.39
  --- symreg.c  13 Nov 2003 07:05:00 -0000      1.38
  +++ symreg.c  13 Nov 2003 07:22:08 -0000      1.39
  @@ -549,9 +549,14 @@
       SymReg * p, *next;
   
       for(i = 0; i < HASH_SIZE; i++) {
  -        for(p = ghash[i]; p; p = p->next)
  +        for(p = ghash[i]; p; ) {
  +         next = p->next;
               if (p->type & VTADDRESS)
                   p->first_ins = p->last_ins = NULL;
  +            free_sym(p);
  +            p = next;
  +        }
  +        ghash[i] = NULL;
       }
   }