/* Dwarf2 assembler output helper routines.
- Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc.
+ Copyright (C) 2001, 2002, 2003, 2004, 2005, 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC 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
+Software Foundation; either version 3, or (at your option) any later
version.
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
for more details.
You should have received a copy of the GNU General Public License
-along with GCC; see the file COPYING. If not, write to the Free
-Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-02111-1307, USA. */
+along with GCC; see the file COPYING3. If not see
+<http://www.gnu.org/licenses/>. */
#include "config.h"
const char *comment, ...)
{
va_list ap;
+ const char *op = integer_asm_op (size, FALSE);
va_start (ap, comment);
if (size * 8 < HOST_BITS_PER_WIDE_INT)
value &= ~(~(unsigned HOST_WIDE_INT) 0 << (size * 8));
- dw2_assemble_integer (size, GEN_INT (value));
+ if (op)
+ fprintf (asm_out_file, "%s" HOST_WIDE_INT_PRINT_HEX, op, value);
+ else
+ assemble_integer (GEN_INT (value), size, BITS_PER_UNIT, 1);
if (flag_debug_asm && comment)
{
va_end (ap);
}
-/* Output a section-relative reference to a label. In general this
- can only be done for debugging symbols. E.g. on most targets with
- the GNU linker, this is accomplished with a direct reference and
- the knowledge that the debugging section will be placed at VMA 0.
- Some targets have special relocations for this that we must use. */
+/* Output a section-relative reference to a LABEL, which was placed in
+ BASE. In general this can only be done for debugging symbols.
+ E.g. on most targets with the GNU linker, this is accomplished with
+ a direct reference and the knowledge that the debugging section
+ will be placed at VMA 0. Some targets have special relocations for
+ this that we must use. */
void
dw2_asm_output_offset (int size, const char *label,
+ section *base ATTRIBUTE_UNUSED,
const char *comment, ...)
{
va_list ap;
va_start (ap, comment);
#ifdef ASM_OUTPUT_DWARF_OFFSET
- ASM_OUTPUT_DWARF_OFFSET (asm_out_file, size, label);
+ ASM_OUTPUT_DWARF_OFFSET (asm_out_file, size, label, base);
#else
dw2_assemble_integer (size, gen_rtx_SYMBOL_REF (Pmode, label));
#endif
va_end (ap);
}
+#if 0
+
/* Output a self-relative reference to a label, possibly in a
different section or object file. */
va_end (ap);
}
+#endif /* 0 */
/* Output an absolute reference to a label. */
va_end (ap);
}
+/* Output the first ORIG_LEN characters of STR as a string.
+ If ORIG_LEN is equal to -1, ignore this parameter and output
+ the entire STR instead.
+ If COMMENT is not NULL and comments in the debug information
+ have been requested by the user, append the given COMMENT
+ to the generated output. */
+
void
dw2_asm_output_nstring (const char *str, size_t orig_len,
const char *comment, ...)
return 4;
case DW_EH_PE_udata8:
return 8;
+ default:
+ gcc_unreachable ();
}
- abort ();
}
/* Yield a name for a given pointer encoding. */
#if HAVE_DESIGNATED_INITIALIZERS
};
- if (format < 0 || format > 0xff || format_names[format] == NULL)
- abort ();
+ gcc_assert (format >= 0 && format < 0x100 && format_names[format]);
+
return format_names[format];
#else
}
- abort ();
+ gcc_unreachable ();
#endif
}
fputc ('-', asm_out_file);
assemble_name (asm_out_file, lab2);
#else
- abort ();
+ gcc_unreachable ();
#endif
if (flag_debug_asm && comment)
va_end (ap);
}
+#if 0
+
void
dw2_asm_output_delta_sleb128 (const char *lab1 ATTRIBUTE_UNUSED,
const char *lab2 ATTRIBUTE_UNUSED,
fputc ('-', asm_out_file);
assemble_name (asm_out_file, lab2);
#else
- abort ();
+ gcc_unreachable ();
#endif
if (flag_debug_asm && comment)
va_end (ap);
}
+#endif /* 0 */
\f
-static rtx dw2_force_const_mem (rtx);
+static rtx dw2_force_const_mem (rtx, bool);
static int dw2_output_indirect_constant_1 (splay_tree_node, void *);
static GTY((param1_is (char *), param2_is (tree))) splay_tree indirect_pool;
# define USE_LINKONCE_INDIRECT 0
#endif
+/* Comparison function for a splay tree in which the keys are strings.
+ K1 and K2 have the dynamic type "const char *". Returns <0, 0, or
+ >0 to indicate whether K1 is less than, equal to, or greater than
+ K2, respectively. */
+
+static int
+splay_tree_compare_strings (splay_tree_key k1, splay_tree_key k2)
+{
+ const char *s1 = (const char *)k1;
+ const char *s2 = (const char *)k2;
+ int ret;
+
+ if (s1 == s2)
+ return 0;
+
+ ret = strcmp (s1, s2);
+
+ /* The strings are always those from IDENTIFIER_NODEs, and,
+ therefore, we should never have two copies of the same
+ string. */
+ gcc_assert (ret);
+
+ return ret;
+}
+
/* Put X, a SYMBOL_REF, in memory. Return a SYMBOL_REF to the allocated
memory. Differs from force_const_mem in that a single pool is used for
the entire unit of translation, and the memory is not guaranteed to be
- "near" the function in any interesting sense. */
+ "near" the function in any interesting sense. PUBLIC controls whether
+ the symbol can be shared across the entire application (or DSO). */
static rtx
-dw2_force_const_mem (rtx x)
+dw2_force_const_mem (rtx x, bool public)
{
splay_tree_node node;
const char *str;
tree decl;
if (! indirect_pool)
- indirect_pool = splay_tree_new_ggc (splay_tree_compare_pointers);
+ /* We use strcmp, rather than just comparing pointers, so that the
+ sort order will not depend on the host system. */
+ indirect_pool = splay_tree_new_ggc (splay_tree_compare_strings);
- if (GET_CODE (x) != SYMBOL_REF)
- abort ();
+ gcc_assert (GET_CODE (x) == SYMBOL_REF);
- str = (* targetm.strip_name_encoding) (XSTR (x, 0));
+ str = targetm.strip_name_encoding (XSTR (x, 0));
node = splay_tree_lookup (indirect_pool, (splay_tree_key) str);
if (node)
decl = (tree) node->value;
{
tree id;
- if (USE_LINKONCE_INDIRECT)
+ if (public && USE_LINKONCE_INDIRECT)
{
char *ref_name = alloca (strlen (str) + sizeof "DW.ref.");
id = get_identifier (ref_name);
decl = build_decl (VAR_DECL, id, ptr_type_node);
DECL_ARTIFICIAL (decl) = 1;
+ DECL_IGNORED_P (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;
+ DECL_IGNORED_P (decl) = 1;
TREE_STATIC (decl) = 1;
DECL_INITIAL (decl) = decl;
}
{
const char *sym;
rtx sym_ref;
+ tree decl;
sym = (const char *) node->key;
+ decl = (tree) node->value;
sym_ref = gen_rtx_SYMBOL_REF (Pmode, sym);
- if (USE_LINKONCE_INDIRECT)
- fprintf (asm_out_file, "\t.hidden DW.ref.%s\n", sym);
- assemble_variable ((tree) node->value, 1, 1, 1);
+ if (TREE_PUBLIC (decl) && USE_LINKONCE_INDIRECT)
+ fprintf (asm_out_file, "\t.hidden %sDW.ref.%s\n", user_label_prefix, sym);
+ assemble_variable (decl, 1, 1, 1);
assemble_integer (sym_ref, POINTER_SIZE / BITS_PER_UNIT, POINTER_SIZE, 1);
return 0;
splay_tree_foreach (indirect_pool, dw2_output_indirect_constant_1, NULL);
}
-/* Like dw2_asm_output_addr_rtx, but encode the pointer as directed. */
+/* Like dw2_asm_output_addr_rtx, but encode the pointer as directed.
+ If PUBLIC is set and the encoding is DW_EH_PE_indirect, the indirect
+ reference is shared across the entire application (or DSO). */
void
-dw2_asm_output_encoded_addr_rtx (int encoding, rtx addr,
+dw2_asm_output_encoded_addr_rtx (int encoding, rtx addr, bool public,
const char *comment, ...)
{
int size;
/* It is very tempting to use force_const_mem so that we share data
with the normal constant pool. However, we've already emitted
the constant pool for this function. Moreover, we'd like to
- share these constants across the entire unit of translation,
- or better, across the entire application (or DSO). */
- addr = dw2_force_const_mem (addr);
+ share these constants across the entire unit of translation and
+ even, if possible, across the entire application (or DSO). */
+ addr = dw2_force_const_mem (addr, public);
encoding &= ~DW_EH_PE_indirect;
goto restart;
}
break;
case DW_EH_PE_pcrel:
- if (GET_CODE (addr) != SYMBOL_REF)
- abort ();
+ gcc_assert (GET_CODE (addr) == SYMBOL_REF);
#ifdef ASM_OUTPUT_DWARF_PCREL
ASM_OUTPUT_DWARF_PCREL (asm_out_file, size, XSTR (addr, 0));
#else
default:
/* Other encodings should have been handled by
ASM_MAYBE_OUTPUT_ENCODED_ADDR_RTX. */
- abort ();
+ gcc_unreachable ();
}
#ifdef ASM_MAYBE_OUTPUT_ENCODED_ADDR_RTX
OSDN Git Service
