* Makefile.in (OBJS): Add dwarf2asm.o.

	* dwarf2asm.c, dwarf2asm.h: New files.
	* dwarf2out.c (*): Use them.
	(size_of_uleb128, size_of_sleb128): Remove.
	(output_uleb128, output_sleb128): Remove.
	(UNALIGNED_SHORT_ASM_OP, UNALIGNED_INT_ASM_OP): Remove.
	(UNALIGNED_DOUBLE_INT_ASM_OP, ASM_BYTE_OP): Remove.
	(UNALIGNED_OFFSET_ASM_OP, UNALIGNED_WORD_ASM_OP): Remove.
	(FDE_LABEL, LINE_NUMBER_BEGIN_LABEL, LINE_NUMBER_END_LABEL): New.
	(ASM_OUTPUT_DWARF_DATA1, ASM_OUTPUT_DWARF_DELTA1): Remove.
	(ASM_OUTPUT_DWARF_DATA2, ASM_OUTPUT_DWARF_DELTA2): Remove.
	(ASM_OUTPUT_DWARF_DATA4, ASM_OUTPUT_DWARF_DELTA4): Remove.
	(ASM_OUTPUT_DWARF_DATA, ASM_OUTPUT_DWARF_DELTA): Remove.
	(ASM_OUTPUT_DWARF_ADDR, ASM_OUTPUT_DWARF_ADDR_DATA): Remove.
	(ASM_OUTPUT_DWARF_ADDR_DELTA, ASM_OUTPUT_DWARF_ADDR_CONST): Remove.
	(ASM_OUTPUT_DWARF_OFFSET4, ASM_OUTPUT_DWARF_OFFSET): Remove.
	(ASM_OUTPUT_DWARF_CONST_DOUBLE): Remove.
	(ASM_OUTPUT_DWARF_NSTRING, ASM_OUTPUT_DWARF_STRING): Remove.
	(dwarf2out_frame_debug): Remove unused variables.
	(output_loc_operands): Don't abort on 8 byte constants if
	host integers are wide enough.
	(output_symbolic_ref): Remove.
	(size_of_die): Don't assume 4 byte host integers.
	(output_line_info): Use ASM_GENERATE_INTERNAL_LABEL for begin
	and end labels.
	(add_const_value_attribute) [CONST_INT]: Verify we're not doing
	something stupid with HOST_WIDE_INT to long truncation.
	[CONST_DOUBLE]: Likewise.

	* config/arm/conix-elf.h (UNALIGNED_WORD_ASM_OP): Remove.
	(ASM_OUTPUT_DWARF2_ADDR_CONST, ASM_OUTPUT_DWARF_ADDR_CONST): Remove.
	* config/arm/unknown-elf.h: Likewise.
	* config/rs6000/aix.h (UNALIGNED_SHORT_ASM_OP): New.
	(UNALIGNED_INT_ASM_OP, UNALIGNED_DOUBLE_INT_ASM_OP): New.
	(ASM_OUTPUT_DWARF_ADDR_VAR, ASM_OUTPUT_DWARF_DELTA_VAR): Remove.
	(ASM_OUTPUT_DWARF_DELTA2, ASM_OUTPUT_DWARF_DELTA4): Remove.
	(ASM_OUTPUT_DWARF_DELTA, ASM_OUTPUT_DWARF_ADDR_DELTA): Remove.
	(ASM_OUTPUT_DWARF_ADDR, ASM_OUTPUT_DWARF_DATA4): Remove.
	(ASM_OUTPUT_DWARF_DATA2, ASM_OUTPUT_DWARF_OFFSET4): Remove.
	(ASM_OUTPUT_DWARF_OFFSET): Remove.
	* config/rs6000/sysv4.h (ASM_OUTPUT_DWARF_ADDR): Remove.
	* config/sparc/sp64-elf.h (UNALIGNED_DOUBLE_INT_ASM_OP): New.
	(UNALIGNED_LONGLONG_ASM_OP, ASM_OUTPUT_DWARF_ADDR): Remove.
	(ASM_OUTPUT_DWARF_ADDR_CONST, ASM_OUTPUT_DWARF_REF): Remove.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@40197 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 585 insertions, 0 deletions

diff --git a/gcc/dwarf2asm.c b/gcc/dwarf2asm.c
new file mode 100644
index 00000000000..132d83cae25
--- /dev/null
+++ b/gcc/dwarf2asm.c
@@ -0,0 +1,585 @@
+/* Dwarf2 assembler output helper routines.
+   Copyright (C) 2001 Free Software Foundation, Inc.
+
+This file is part of GNU CC.
+
+GNU CC is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+GNU CC is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with GNU CC; see the file COPYING.  If not, write to
+the Free Software Foundation, 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA.  */
+
+
+#include "config.h"
+#include "system.h"
+#include "flags.h"
+#include "rtl.h"
+#include "output.h"
+#include "dwarf2asm.h"
+#include "tm_p.h"
+
+
+/* How to start an assembler comment.  */
+#ifndef ASM_COMMENT_START
+#define ASM_COMMENT_START ";#"
+#endif
+
+/* Definitions of defaults for assembler-dependent names of various
+   pseudo-ops and section names.  These may be overridden in the tm.h
+   file (if necessary) for a particular assembler.  */
+
+#ifdef OBJECT_FORMAT_ELF
+#ifndef UNALIGNED_SHORT_ASM_OP
+#define UNALIGNED_SHORT_ASM_OP		"\t.2byte\t"
+#endif
+#ifndef UNALIGNED_INT_ASM_OP
+#define UNALIGNED_INT_ASM_OP		"\t.4byte\t"
+#endif
+#ifndef UNALIGNED_DOUBLE_INT_ASM_OP
+#define UNALIGNED_DOUBLE_INT_ASM_OP	"\t.8byte\t"
+#endif
+#endif /* OBJECT_FORMAT_ELF */
+
+#ifndef ASM_BYTE_OP
+#define ASM_BYTE_OP			"\t.byte\t"
+#endif
+
+/* We don't have unaligned support, let's hope the normal output works for
+   .debug_frame.  But we know it won't work for .debug_info.  */
+#if !defined(UNALIGNED_INT_ASM_OP) && defined(DWARF2_DEBUGGING_INFO)
+ #error DWARF2_DEBUGGING_INFO requires UNALIGNED_INT_ASM_OP.
+#endif
+
+
+#ifdef UNALIGNED_INT_ASM_OP
+static const char * unaligned_integer_asm_op  PARAMS ((int));
+
+static inline const char *
+unaligned_integer_asm_op (size)
+     int size;
+{
+  const char *op;
+  switch (size)
+    {
+    case 1:
+      op = ASM_BYTE_OP;
+      break;
+    case 2:
+      op = UNALIGNED_SHORT_ASM_OP;
+      break;
+    case 4:
+      op = UNALIGNED_INT_ASM_OP;
+      break;
+    case 8:
+#ifdef UNALIGNED_DOUBLE_INT_ASM_OP
+      op = UNALIGNED_DOUBLE_INT_ASM_OP;
+      break;
+#endif
+    default:
+      abort ();
+    }
+  return op;
+}
+#endif /* UNALIGNED_INT_ASM_OP */
+
+void
+dw2_asm_output_data VPARAMS ((int size, unsigned HOST_WIDE_INT value,
+			      const char *comment, ...))
+{
+#ifndef ANSI_PROTOTYPES
+  int size;
+  unsigned HOST_WIDE_INT value;
+  const char *comment;
+#endif
+  va_list ap;
+
+  VA_START (ap, comment);
+
+#ifndef ANSI_PROTOTYPES
+  size = va_arg (ap, int);
+  value = va_arg (ap, unsigned HOST_WIDE_INT);
+  comment = va_arg (ap, const char *);
+#endif
+
+#ifdef UNALIGNED_INT_ASM_OP
+  fputs (unaligned_integer_asm_op (size), asm_out_file);
+  fprintf (asm_out_file, HOST_WIDE_INT_PRINT_HEX, value);
+#else
+  assemble_integer (GEN_INT (value), size, 1);
+#endif
+
+  if (flag_debug_asm && comment)
+    {
+      fprintf (asm_out_file, "\t%s ", ASM_COMMENT_START);
+      vfprintf (asm_out_file, comment, ap);
+    }
+  fputc ('\n', asm_out_file);
+
+  va_end (ap);
+}
+
+void
+dw2_asm_output_delta VPARAMS ((int size, const char *lab1, const char *lab2,
+			       const char *comment, ...))
+{
+#ifndef ANSI_PROTOTYPES
+  int size;
+  const char *lab1, *lab2;
+  const char *comment;
+#endif
+  va_list ap;
+
+  VA_START (ap, comment);
+
+#ifndef ANSI_PROTOTYPES
+  size = va_arg (ap, int);
+  lab1 = va_arg (ap, const char *);
+  lab2 = va_arg (ap, const char *);
+  comment = va_arg (ap, const char *);
+#endif
+
+#ifdef UNALIGNED_INT_ASM_OP
+  fputs (unaligned_integer_asm_op (size), asm_out_file);
+  assemble_name (asm_out_file, lab1);
+  fputc ('-', asm_out_file);
+  assemble_name (asm_out_file, lab2);
+#else
+  assemble_integer (gen_rtx_MINUS (smallest_mode_for_size (size, MODE_INT, 0),
+				   gen_rtx_SYMBOL_REF (Pmode, lab1),
+				   gen_rtx_SYMBOL_REF (Pmode, lab2)),
+		    size, 1);
+#endif
+
+  if (flag_debug_asm && comment)
+    {
+      fprintf (asm_out_file, "\t%s ", ASM_COMMENT_START);
+      vfprintf (asm_out_file, comment, ap);
+    }
+  fputc ('\n', asm_out_file);
+
+  va_end (ap);
+}
+
+void
+dw2_asm_output_offset VPARAMS ((int size, const char *label,
+			       const char *comment, ...))
+{
+#ifndef ANSI_PROTOTYPES
+  int size;
+  const char *label;
+  const char *comment;
+#endif
+  va_list ap;
+
+  VA_START (ap, comment);
+
+#ifndef ANSI_PROTOTYPES
+  size = va_arg (ap, int);
+  label = va_arg (ap, const char *);
+  comment = va_arg (ap, const char *);
+#endif
+
+#ifdef UNALIGNED_INT_ASM_OP
+  fputs (unaligned_integer_asm_op (size), asm_out_file);
+  assemble_name (asm_out_file, label);
+#else
+  assemble_integer (gen_rtx_SYMBOL_REF (Pmode, label), size, 1);
+#endif
+
+  if (flag_debug_asm && comment)
+    {
+      fprintf (asm_out_file, "\t%s ", ASM_COMMENT_START);
+      vfprintf (asm_out_file, comment, ap);
+    }
+  fputc ('\n', asm_out_file);
+
+  va_end (ap);
+}
+
+void
+dw2_asm_output_pcrel VPARAMS ((int size, const char *label,
+			       const char *comment, ...))
+{
+#ifndef ANSI_PROTOTYPES
+  int size;
+  const char *label;
+  const char *comment;
+#endif
+  va_list ap;
+
+  VA_START (ap, comment);
+
+#ifndef ANSI_PROTOTYPES
+  size = va_arg (ap, int);
+  label = va_arg (ap, const char *);
+  comment = va_arg (ap, const char *);
+#endif
+
+#ifdef UNALIGNED_INT_ASM_OP
+  fputs (unaligned_integer_asm_op (size), asm_out_file);
+
+  /* ??? This needs target conditionalization.  E.g. the solaris
+     assembler uses %r_disp32(label).  Others don't like "." and
+     we need to generate a temporary label here.  */
+  assemble_name (asm_out_file, label);
+  fputc ('-', asm_out_file);
+  fputc ('.', asm_out_file);
+#else
+  abort ();
+#endif
+
+  if (flag_debug_asm && comment)
+    {
+      fprintf (asm_out_file, "\t%s ", ASM_COMMENT_START);
+      vfprintf (asm_out_file, comment, ap);
+    }
+  fputc ('\n', asm_out_file);
+
+  va_end (ap);
+}
+
+void
+dw2_asm_output_addr_rtx VPARAMS ((int size, rtx addr,
+				  const char *comment, ...))
+{
+#ifndef ANSI_PROTOTYPES
+  int size;
+  rtx addr;
+  const char *comment;
+#endif
+  va_list ap;
+
+  VA_START (ap, comment);
+
+#ifndef ANSI_PROTOTYPES
+  size = va_arg (ap, int);
+  addr = va_arg (ap, rtx);
+  comment = va_arg (ap, const char *);
+#endif
+
+#ifdef UNALIGNED_INT_ASM_OP
+  fputs (unaligned_integer_asm_op (size), asm_out_file);
+  output_addr_const (asm_out_file, addr);
+#else
+  assemble_integer (addr, size, 1);
+#endif
+
+  if (flag_debug_asm && comment)
+    {
+      fprintf (asm_out_file, "\t%s ", ASM_COMMENT_START);
+      vfprintf (asm_out_file, comment, ap);
+    }
+  fputc ('\n', asm_out_file);
+
+  va_end (ap);
+}
+
+void
+dw2_asm_output_nstring VPARAMS ((const char *str, size_t orig_len,
+				 const char *comment, ...))
+{
+#ifndef ANSI_PROTOTYPES
+  const char *str;
+  size_t orig_len;
+  const char *comment;
+#endif
+  va_list ap;
+  size_t i, len = orig_len;
+
+  VA_START (ap, comment);
+
+#ifndef ANSI_PROTOTYPES
+  str = va_arg (ap, const char *);
+  len = va_arg (ap, size_t);
+  comment = va_arg (ap, const char *);
+#endif
+
+  if (len == (size_t) -1)
+    len = strlen (str);
+
+  if (flag_debug_asm && comment)
+    {
+      fputs ("\t.ascii \"", asm_out_file);
+      for (i = 0; i < len; i++)
+	{
+	  int c = str[i];
+	  if (c == '\"' || c == '\\')
+	    fputc ('\\', asm_out_file);
+	  if (ISPRINT(c))
+	    fputc (c, asm_out_file);
+	  else
+	    fprintf (asm_out_file, "\\%o", c);
+	}
+      fprintf (asm_out_file, "\\0\"\t%s ", ASM_COMMENT_START);
+      vfprintf (asm_out_file, comment, ap);
+      fputc ('\n', asm_out_file);
+    }
+  else
+    {
+      /* If an explicit length was given, we can't assume there
+	 is a null termination in the string buffer.  */
+      if (orig_len == (size_t) -1)
+	len += 1;
+      ASM_OUTPUT_ASCII (asm_out_file, str, len);
+      if (orig_len != (size_t) -1)
+	fprintf (asm_out_file, "%s0\n", ASM_BYTE_OP);
+    }
+
+  va_end (ap);
+}
+
+
+/* Return the size of an unsigned LEB128 quantity.  */
+
+int
+size_of_uleb128 (value)
+     unsigned HOST_WIDE_INT value;
+{
+  int size = 0, byte;
+
+  do
+    {
+      byte = (value & 0x7f);
+      value >>= 7;
+      size += 1;
+    }
+  while (value != 0);
+
+  return size;
+}
+
+/* Return the size of a signed LEB128 quantity.  */
+
+int
+size_of_sleb128 (value)
+     HOST_WIDE_INT value;
+{
+  int size = 0, byte;
+
+  do
+    {
+      byte = (value & 0x7f);
+      value >>= 7;
+      size += 1;
+    }
+  while (!((value == 0 && (byte & 0x40) == 0)
+	   || (value == -1 && (byte & 0x40) != 0)));
+
+  return size;
+}
+
+/* Output an unsigned LEB128 quantity.  */
+
+void
+dw2_asm_output_data_uleb128 VPARAMS ((unsigned HOST_WIDE_INT value,
+				      const char *comment, ...))
+{
+#ifndef ANSI_PROTOTYPES
+  unsigned HOST_WIDE_INT value;
+  const char *comment;
+#endif
+  va_list ap;
+
+  VA_START (ap, comment);
+
+#ifndef ANSI_PROTOTYPES
+  value = va_arg (ap, unsigned HOST_WIDE_INT);
+  comment = va_arg (ap, const char *);
+#endif
+
+#ifdef HAVE_AS_LEB128
+  fputs ("\t.uleb128\t", asm_out_file);
+  fprintf (asm_out_file, HOST_WIDE_INT_PRINT_HEX, value);
+
+  if (flag_debug_asm && comment)
+    {
+      fprintf (asm_out_file, "\t%s ", ASM_COMMENT_START);
+      vfprintf (asm_out_file, comment, ap);
+    }
+#else
+  {
+    unsigned HOST_WIDE_INT work = value;
+
+    fputs (ASM_BYTE_OP, asm_out_file);
+    do
+      {
+	int byte = (work & 0x7f);
+	work >>= 7;
+	if (work != 0)
+	  /* More bytes to follow.  */
+	  byte |= 0x80;
+
+	fprintf (asm_out_file, "0x%x", byte);
+	if (work != 0)
+	  fputc (',', asm_out_file);
+      }
+    while (work != 0);
+
+  if (flag_debug_asm)
+    {
+      fprintf (asm_out_file, "\t%s uleb128 ", ASM_COMMENT_START);
+      fprintf (asm_out_file, HOST_WIDE_INT_PRINT_HEX, value);
+      if (comment)
+	{
+	  fputs ("; ", asm_out_file);
+	  vfprintf (asm_out_file, comment, ap);
+	}
+    }
+  }
+#endif
+  fputc ('\n', asm_out_file);
+
+  va_end (ap);
+}
+
+/* Output an signed LEB128 quantity.  */
+
+void
+dw2_asm_output_data_sleb128 VPARAMS ((HOST_WIDE_INT value,
+				      const char *comment, ...))
+{
+#ifndef ANSI_PROTOTYPES
+  HOST_WIDE_INT value;
+  const char *comment;
+#endif
+  va_list ap;
+
+  VA_START (ap, comment);
+
+#ifndef ANSI_PROTOTYPES
+  value = va_arg (ap, HOST_WIDE_INT);
+  comment = va_arg (ap, const char *);
+#endif
+
+#ifdef HAVE_AS_LEB128
+  fputs ("\t.sleb128\t", asm_out_file);
+  fprintf (asm_out_file, HOST_WIDE_INT_PRINT_HEX, value);
+
+  if (flag_debug_asm && comment)
+    {
+      fprintf (asm_out_file, "\t%s ", ASM_COMMENT_START);
+      vfprintf (asm_out_file, comment, ap);
+    }
+#else
+  {
+    HOST_WIDE_INT work = value;
+    int more, byte;
+
+    fputs (ASM_BYTE_OP, asm_out_file);
+    do
+      {
+	byte = (work & 0x7f);
+	/* arithmetic shift */
+	work >>= 7;
+	more = !((work == 0 && (byte & 0x40) == 0)
+		 || (work == -1 && (byte & 0x40) != 0));
+	if (more)
+	  byte |= 0x80;
+
+	fprintf (asm_out_file, "0x%x", byte);
+	if (more)
+	  fputc (',', asm_out_file);
+      }
+    while (more);
+
+  if (flag_debug_asm)
+    {
+      fprintf (asm_out_file, "\t%s sleb128 ", ASM_COMMENT_START);
+      fprintf (asm_out_file, HOST_WIDE_INT_PRINT_DEC, value);
+      if (comment)
+	{
+	  fputs ("; ", asm_out_file);
+	  vfprintf (asm_out_file, comment, ap);
+	}
+    }
+  }
+#endif
+  fputc ('\n', asm_out_file);
+
+  va_end (ap);
+}
+
+void
+dw2_asm_output_delta_uleb128 VPARAMS ((const char *lab1 ATTRIBUTE_UNUSED,
+				       const char *lab2 ATTRIBUTE_UNUSED,
+				       const char *comment, ...))
+{
+#ifndef ANSI_PROTOTYPES
+  const char *lab1, *lab2;
+  const char *comment;
+#endif
+  va_list ap;
+
+  VA_START (ap, comment);
+
+#ifndef ANSI_PROTOTYPES
+  lab1 = va_arg (ap, const char *);
+  lab2 = va_arg (ap, const char *);
+  comment = va_arg (ap, const char *);
+#endif
+
+#ifdef HAVE_AS_LEB128
+  fputs ("\t.uleb128\t", asm_out_file);
+  assemble_name (asm_out_file, lab1);
+  fputc ('-', asm_out_file);
+  assemble_name (asm_out_file, lab2);
+#else
+  abort ();
+#endif
+
+  if (flag_debug_asm && comment)
+    {
+      fprintf (asm_out_file, "\t%s ", ASM_COMMENT_START);
+      vfprintf (asm_out_file, comment, ap);
+    }
+  fputc ('\n', asm_out_file);
+
+  va_end (ap);
+}
+
+void
+dw2_asm_output_delta_sleb128 VPARAMS ((const char *lab1 ATTRIBUTE_UNUSED,
+				       const char *lab2 ATTRIBUTE_UNUSED,
+				       const char *comment, ...))
+{
+#ifndef ANSI_PROTOTYPES
+  const char *lab1, *lab2;
+  const char *comment;
+#endif
+  va_list ap;
+
+  VA_START (ap, comment);
+
+#ifndef ANSI_PROTOTYPES
+  lab1 = va_arg (ap, const char *);
+  lab2 = va_arg (ap, const char *);
+  comment = va_arg (ap, const char *);
+#endif
+
+#ifdef HAVE_AS_LEB128
+  fputs ("\t.sleb128\t", asm_out_file);
+  assemble_name (asm_out_file, lab1);
+  fputc ('-', asm_out_file);
+  assemble_name (asm_out_file, lab2);
+#else
+  abort ();
+#endif
+
+  if (flag_debug_asm && comment)
+    {
+      fprintf (asm_out_file, "\t%s ", ASM_COMMENT_START);
+      vfprintf (asm_out_file, comment, ap);
+    }
+  fputc ('\n', asm_out_file);
+
+  va_end (ap);
+}