diff options
Diffstat (limited to 'gcc/dwarf2asm.c')
| -rw-r--r-- | gcc/dwarf2asm.c | 585 |
1 files changed, 585 insertions, 0 deletions
diff --git a/gcc/dwarf2asm.c b/gcc/dwarf2asm.c new file mode 100644 index 0000000..132d83c --- /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); +} |