/* Dwarf2 assembler output helper routines.
- Copyright (C) 2001 Free Software Foundation, Inc.
+ Copyright (C) 2001, 2002 Free Software Foundation, Inc.
This file is part of GCC.
#include "tree.h"
#include "rtl.h"
#include "output.h"
+#include "target.h"
#include "dwarf2asm.h"
#include "dwarf2.h"
#include "splay-tree.h"
#define ASM_COMMENT_START ";#"
#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
-
\f
-/* Despite the fact that assemble_integer handles unaligned data,
- continue emitting things by hand when possible, since that makes
- the assembler commentary come out prettier. */
-#ifdef UNALIGNED_INT_ASM_OP
-static const char * unaligned_integer_asm_op PARAMS ((int));
-
-static inline const char *
-unaligned_integer_asm_op (size)
+/* Output an unaligned integer with the given value and size. Prefer not
+ to print a newline, since the caller may want to add a comment. */
+
+void
+dw2_assemble_integer (size, x)
int size;
+ rtx x;
{
- const char *op = NULL;
- switch (size)
+ const char *op = integer_asm_op (size, FALSE);
+
+ if (op)
{
- 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 ();
+ fputs (op, asm_out_file);
+ if (GET_CODE (x) == CONST_INT)
+ fprintf (asm_out_file, HOST_WIDE_INT_PRINT_HEX, INTVAL (x));
+ else
+ output_addr_const (asm_out_file, x);
}
-
- if (! op)
- abort ();
-
- return op;
+ else
+ assemble_integer (x, size, BITS_PER_UNIT, 1);
}
-#endif /* UNALIGNED_INT_ASM_OP */
+
/* Output an immediate constant in a given size. */
VA_FIXEDARG (ap, const char *, comment);
if (size * 8 < HOST_BITS_PER_WIDE_INT)
- value &= ~(~(unsigned HOST_WIDE_INT)0 << (size * 8));
+ value &= ~(~(unsigned HOST_WIDE_INT) 0 << (size * 8));
-#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, BITS_PER_UNIT, 1);
-#endif
+ dw2_assemble_integer (size, GEN_INT (value));
if (flag_debug_asm && comment)
{
VA_FIXEDARG (ap, const char *, lab2);
VA_FIXEDARG (ap, const char *, comment);
-#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 (Pmode, gen_rtx_SYMBOL_REF (Pmode, lab1),
- gen_rtx_SYMBOL_REF (Pmode, lab2)),
- size, BITS_PER_UNIT, 1);
-#endif
+ dw2_assemble_integer (size,
+ gen_rtx_MINUS (Pmode,
+ gen_rtx_SYMBOL_REF (Pmode, lab1),
+ gen_rtx_SYMBOL_REF (Pmode, lab2)));
if (flag_debug_asm && comment)
{
#ifdef ASM_OUTPUT_DWARF_OFFSET
ASM_OUTPUT_DWARF_OFFSET (asm_out_file, size, label);
#else
-#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, BITS_PER_UNIT, 1);
-#endif
+ dw2_assemble_integer (size, gen_rtx_SYMBOL_REF (Pmode, label));
#endif
if (flag_debug_asm && comment)
#ifdef ASM_OUTPUT_DWARF_PCREL
ASM_OUTPUT_DWARF_PCREL (asm_out_file, size, label);
#else
-#ifdef UNALIGNED_INT_ASM_OP
- fputs (unaligned_integer_asm_op (size), asm_out_file);
- assemble_name (asm_out_file, label);
- fputc ('-', asm_out_file);
- fputc ('.', asm_out_file);
-#else
- abort ();
-#endif
+ dw2_assemble_integer (size,
+ gen_rtx_MINUS (Pmode,
+ gen_rtx_SYMBOL_REF (Pmode, label),
+ pc_rtx));
#endif
if (flag_debug_asm && comment)
VA_FIXEDARG (ap, const char *, label);
VA_FIXEDARG (ap, const char *, comment);
-#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, BITS_PER_UNIT, 1);
-#endif
+ dw2_assemble_integer (size, gen_rtx_SYMBOL_REF (Pmode, label));
if (flag_debug_asm && comment)
{
VA_FIXEDARG (ap, rtx, addr);
VA_FIXEDARG (ap, const char *, comment);
-#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, BITS_PER_UNIT, 1);
-#endif
+ dw2_assemble_integer (size, addr);
if (flag_debug_asm && comment)
{
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);
+ assemble_integer (const0_rtx, 1, BITS_PER_UNIT, 1);
}
VA_CLOSE (ap);
#else
{
unsigned HOST_WIDE_INT work = value;
+ const char *byte_op = targetm.asm_out.byte_op;
- fputs (ASM_BYTE_OP, asm_out_file);
+ if (byte_op)
+ fputs (byte_op, asm_out_file);
do
{
int byte = (work & 0x7f);
/* More bytes to follow. */
byte |= 0x80;
- fprintf (asm_out_file, "0x%x", byte);
- if (work != 0)
- fputc (',', asm_out_file);
+ if (byte_op)
+ {
+ fprintf (asm_out_file, "0x%x", byte);
+ if (work != 0)
+ fputc (',', asm_out_file);
+ }
+ else
+ assemble_integer (GEN_INT (byte), 1, BITS_PER_UNIT, 1);
}
while (work != 0);
{
HOST_WIDE_INT work = value;
int more, byte;
+ const char *byte_op = targetm.asm_out.byte_op;
- fputs (ASM_BYTE_OP, asm_out_file);
+ if (byte_op)
+ fputs (byte_op, asm_out_file);
do
{
byte = (work & 0x7f);
if (more)
byte |= 0x80;
- fprintf (asm_out_file, "0x%x", byte);
- if (more)
- fputc (',', asm_out_file);
+ if (byte_op)
+ {
+ fprintf (asm_out_file, "0x%x", byte);
+ if (more)
+ fputc (',', asm_out_file);
+ }
+ else
+ assemble_integer (GEN_INT (byte), 1, BITS_PER_UNIT, 1);
}
while (more);
rtx x;
{
splay_tree_node node;
+ const char *str;
tree decl;
if (! indirect_pool)
if (GET_CODE (x) != SYMBOL_REF)
abort ();
- node = splay_tree_lookup (indirect_pool, (splay_tree_key) XSTR (x, 0));
+
+ STRIP_NAME_ENCODING (str, XSTR (x, 0));
+ node = splay_tree_lookup (indirect_pool, (splay_tree_key) str);
if (node)
decl = (tree) node->value;
else
if (USE_LINKONCE_INDIRECT)
{
- char *ref_name = alloca (strlen (XSTR (x, 0)) + sizeof "DW.ref.");
+ char *ref_name = alloca (strlen (str) + sizeof "DW.ref.");
- sprintf (ref_name, "DW.ref.%s", XSTR (x, 0));
+ sprintf (ref_name, "DW.ref.%s", str);
id = get_identifier (ref_name);
decl = build_decl (VAR_DECL, id, ptr_type_node);
DECL_ARTIFICIAL (decl) = 1;
+ TREE_PUBLIC (decl) = 1;
DECL_INITIAL (decl) = decl;
make_decl_one_only (decl);
}
id = get_identifier (label);
decl = build_decl (VAR_DECL, id, ptr_type_node);
DECL_ARTIFICIAL (decl) = 1;
+ TREE_STATIC (decl) = 1;
DECL_INITIAL (decl) = decl;
}
- id = maybe_get_identifier (XSTR (x, 0));
+ id = maybe_get_identifier (str);
if (id)
TREE_SYMBOL_REFERENCED (id) = 1;
- splay_tree_insert (indirect_pool, (splay_tree_key) XSTR (x, 0),
+ splay_tree_insert (indirect_pool, (splay_tree_key) str,
(splay_tree_value) decl);
}
return;
}
- /* NULL is _always_ represented as a plain zero. */
- if (addr == const0_rtx)
+ /* NULL is _always_ represented as a plain zero, as is 1 for Ada's
+ "all others". */
+ if (addr == const0_rtx || addr == const1_rtx)
assemble_integer (addr, size, BITS_PER_UNIT, 1);
else
{
switch (encoding & 0xF0)
{
case DW_EH_PE_absptr:
-#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, BITS_PER_UNIT, 1);
-#endif
+ dw2_assemble_integer (size, addr);
break;
case DW_EH_PE_pcrel:
#ifdef ASM_OUTPUT_DWARF_PCREL
ASM_OUTPUT_DWARF_PCREL (asm_out_file, size, XSTR (addr, 0));
#else
-#ifdef UNALIGNED_INT_ASM_OP
- fputs (unaligned_integer_asm_op (size), asm_out_file);
- assemble_name (asm_out_file, XSTR (addr, 0));
- fputc ('-', asm_out_file);
- fputc ('.', asm_out_file);
-#else
- abort ();
-#endif
+ dw2_assemble_integer (size, gen_rtx_MINUS (Pmode, addr, pc_rtx));
#endif
break;
OSDN Git Service
