🚀 go-pugleaf

After much pain and heartache, I have managed to bring gcc 2.1 up on our
Symmetry.  The important steps:

1) Keep gcc from outputting .stabs entries with n_type = 22.  varasm.c
wants to do this for the global constructor and destructor lists, but the
Sequent as is brain damaged and won't accept any stabs such that n_type &
0xe0 == 0.  I did this by adding these lines to config/seq386.h:

#define ASM_OUTPUT_CONSTRUCTOR(FILE,NAME)				\
  {									\
    if (flag_gnu_linker)						\
      {									\
	/* Output an N_SETT (0x16, 22.) for the name.  */		\
	fprintf (FILE, "%s \"___CTOR_LIST__\",0x24,0,0,", ASM_STABS_OP);\
	assemble_name (FILE, NAME);					\
	fputc ('\n', FILE);						\
      }									\
  }

/* A C statement (sans semicolon) to output an element in the table of
   global destructors.  */

#define ASM_OUTPUT_DESTRUCTOR(FILE,NAME)       				\
  {									\
    if (flag_gnu_linker)						\
      {									\
	/* Output an N_SETT (0x16, 22.) for the name.  */		\
	fprintf (FILE, "%s \"___DTOR_LIST__\",0x24,0,0,", ASM_STABS_OP);\
	assemble_name (FILE, NAME);					\
	fputc ('\n', FILE);						\
      }									\
  }

/* Likewise for entries we want to record for garbage collection.
   Garbage collection is still under development.  */

#define ASM_OUTPUT_GC_ENTRY(FILE,NAME)       				\
  {									\
    if (flag_gnu_linker)						\
      {									\
	/* Output an N_SETT (0x16, 22.) for the name.  */		\
	fprintf (FILE, "%s \"___PTR_LIST__\",0x24,0,0,", ASM_STABS_OP);	\
	assemble_name (FILE, NAME);					\
	fputc ('\n', FILE);						\
      }									\
  }

It now occurs to me that probably using -fno-gnu-linker would have been
easier, but I wasn't aware of the flag at the time.

2) Use collect2, rather than GNU ld.  The problem here is that collect2
uses vfprintf, which isn't standard on the Symmetry.  What you can do is
this:

Turn a function that looks like

static void
fatal_perror (char *string, ...)
{
  va_list vptr;
  int e = errno;

  va_start (vptr, string);
  fprintf (stderr, "collect: ");
  vfprintf (stderr, string, vptr);
  fprintf (stderr, ": %s\n", strerror (e));
  va_end (vptr);
  my_exit (1);
}

into

static void
fatal_perror (string, a1, a2, a3, a4, a5)
	char *string;
{
  fprintf (stderr, "collect: ");
  fprintf (stderr, string, a1, a2, a3, a4, a5);
  fprintf (stderr, ": %s\n", strerror (e));
  my_exit (1);
}

This trick works, though it's extremely inelegant.  Sequent uses it in
their assembler.

Jason Merrill
jason@jarthur.claremont.edu