*** p/module.c.orig	Tue Aug 12 01:01:56 2003
--- p/module.c	Tue Aug 12 22:11:55 2003
***************
*** 1698,1704 ****
        else
          {
            *tt = TREE_CHAIN (*tt);
!           if (co->debug_gpi)
              fprintf (stderr, "GPI ignoring duplicate identifier `%s'\n", IDENTIFIER_NAME (id));
          }
      }
--- 1698,1704 ----
        else
          {
            *tt = TREE_CHAIN (*tt);
!           if (co->debug_gpi && id)
              fprintf (stderr, "GPI ignoring duplicate identifier `%s'\n", IDENTIFIER_NAME (id));
          }
      }