1 /* Dwarf2 assembler output helper routines.
2 Copyright (C) 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009, 2010, 2011
3 Free Software Foundation, Inc.
5 This file is part of GCC.
7 GCC is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 3, or (at your option) any later
12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING3. If not see
19 <http://www.gnu.org/licenses/>. */
24 #include "coretypes.h"
31 #include "dwarf2asm.h"
33 #include "splay-tree.h"
38 /* Output an unaligned integer with the given value and size. Prefer not
39 to print a newline, since the caller may want to add a comment. */
42 dw2_assemble_integer (int size
, rtx x
)
44 const char *op
= integer_asm_op (size
, FALSE
);
48 fputs (op
, asm_out_file
);
50 fprintf (asm_out_file
, HOST_WIDE_INT_PRINT_HEX
,
51 (unsigned HOST_WIDE_INT
) INTVAL (x
));
53 output_addr_const (asm_out_file
, x
);
56 assemble_integer (x
, size
, BITS_PER_UNIT
, 1);
60 /* Output a value of a given size in target byte order. */
63 dw2_asm_output_data_raw (int size
, unsigned HOST_WIDE_INT value
)
65 unsigned char bytes
[8];
68 for (i
= 0; i
< 8; ++i
)
70 bytes
[i
] = value
& 0xff;
76 for (i
= size
- 1; i
> 0; --i
)
77 fprintf (asm_out_file
, "%#x,", bytes
[i
]);
78 fprintf (asm_out_file
, "%#x", bytes
[0]);
82 for (i
= 0; i
< size
- 1; ++i
)
83 fprintf (asm_out_file
, "%#x,", bytes
[i
]);
84 fprintf (asm_out_file
, "%#x", bytes
[i
]);
88 /* Output an immediate constant in a given SIZE in bytes. */
91 dw2_asm_output_data (int size
, unsigned HOST_WIDE_INT value
,
92 const char *comment
, ...)
95 const char *op
= integer_asm_op (size
, FALSE
);
97 va_start (ap
, comment
);
99 if (size
* 8 < HOST_BITS_PER_WIDE_INT
)
100 value
&= ~(~(unsigned HOST_WIDE_INT
) 0 << (size
* 8));
103 fprintf (asm_out_file
, "%s" HOST_WIDE_INT_PRINT_HEX
, op
, value
);
105 assemble_integer (GEN_INT (value
), size
, BITS_PER_UNIT
, 1);
107 if (flag_debug_asm
&& comment
)
109 fprintf (asm_out_file
, "\t%s ", ASM_COMMENT_START
);
110 vfprintf (asm_out_file
, comment
, ap
);
112 fputc ('\n', asm_out_file
);
117 /* Output the difference between two symbols in a given size. */
118 /* ??? There appear to be assemblers that do not like such
119 subtraction, but do support ASM_SET_OP. It's unfortunately
120 impossible to do here, since the ASM_SET_OP for the difference
121 symbol must appear after both symbols are defined. */
124 dw2_asm_output_delta (int size
, const char *lab1
, const char *lab2
,
125 const char *comment
, ...)
129 va_start (ap
, comment
);
131 #ifdef ASM_OUTPUT_DWARF_DELTA
132 ASM_OUTPUT_DWARF_DELTA (asm_out_file
, size
, lab1
, lab2
);
134 dw2_assemble_integer (size
,
135 gen_rtx_MINUS (Pmode
,
136 gen_rtx_SYMBOL_REF (Pmode
, lab1
),
137 gen_rtx_SYMBOL_REF (Pmode
, lab2
)));
139 if (flag_debug_asm
&& comment
)
141 fprintf (asm_out_file
, "\t%s ", ASM_COMMENT_START
);
142 vfprintf (asm_out_file
, comment
, ap
);
144 fputc ('\n', asm_out_file
);
149 /* Output the difference between two symbols in instruction units
153 dw2_asm_output_vms_delta (int size ATTRIBUTE_UNUSED
,
154 const char *lab1
, const char *lab2
,
155 const char *comment
, ...)
159 va_start (ap
, comment
);
161 #ifndef ASM_OUTPUT_DWARF_VMS_DELTA
162 /* VMS Delta is only special on ia64-vms, but this funtion also gets
163 called on alpha-vms so it has to do something sane. */
164 dw2_asm_output_delta (size
, lab1
, lab2
, comment
);
166 ASM_OUTPUT_DWARF_VMS_DELTA (asm_out_file
, size
, lab1
, lab2
);
167 if (flag_debug_asm
&& comment
)
169 fprintf (asm_out_file
, "\t%s ", ASM_COMMENT_START
);
170 vfprintf (asm_out_file
, comment
, ap
);
172 fputc ('\n', asm_out_file
);
178 /* Output a section-relative reference to a LABEL, which was placed in
179 BASE. In general this can only be done for debugging symbols.
180 E.g. on most targets with the GNU linker, this is accomplished with
181 a direct reference and the knowledge that the debugging section
182 will be placed at VMA 0. Some targets have special relocations for
183 this that we must use. */
186 dw2_asm_output_offset (int size
, const char *label
,
187 section
*base ATTRIBUTE_UNUSED
,
188 const char *comment
, ...)
192 va_start (ap
, comment
);
194 #ifdef ASM_OUTPUT_DWARF_OFFSET
195 ASM_OUTPUT_DWARF_OFFSET (asm_out_file
, size
, label
, base
);
197 dw2_assemble_integer (size
, gen_rtx_SYMBOL_REF (Pmode
, label
));
200 if (flag_debug_asm
&& comment
)
202 fprintf (asm_out_file
, "\t%s ", ASM_COMMENT_START
);
203 vfprintf (asm_out_file
, comment
, ap
);
205 fputc ('\n', asm_out_file
);
212 /* Output a self-relative reference to a label, possibly in a
213 different section or object file. */
216 dw2_asm_output_pcrel (int size ATTRIBUTE_UNUSED
,
217 const char *label ATTRIBUTE_UNUSED
,
218 const char *comment
, ...)
222 va_start (ap
, comment
);
224 #ifdef ASM_OUTPUT_DWARF_PCREL
225 ASM_OUTPUT_DWARF_PCREL (asm_out_file
, size
, label
);
227 dw2_assemble_integer (size
,
228 gen_rtx_MINUS (Pmode
,
229 gen_rtx_SYMBOL_REF (Pmode
, label
),
233 if (flag_debug_asm
&& comment
)
235 fprintf (asm_out_file
, "\t%s ", ASM_COMMENT_START
);
236 vfprintf (asm_out_file
, comment
, ap
);
238 fputc ('\n', asm_out_file
);
244 /* Output an absolute reference to a label. */
247 dw2_asm_output_addr (int size
, const char *label
,
248 const char *comment
, ...)
252 va_start (ap
, comment
);
254 dw2_assemble_integer (size
, gen_rtx_SYMBOL_REF (Pmode
, label
));
256 if (flag_debug_asm
&& comment
)
258 fprintf (asm_out_file
, "\t%s ", ASM_COMMENT_START
);
259 vfprintf (asm_out_file
, comment
, ap
);
261 fputc ('\n', asm_out_file
);
266 /* Similar, but use an RTX expression instead of a text label. */
269 dw2_asm_output_addr_rtx (int size
, rtx addr
,
270 const char *comment
, ...)
274 va_start (ap
, comment
);
276 dw2_assemble_integer (size
, addr
);
278 if (flag_debug_asm
&& comment
)
280 fprintf (asm_out_file
, "\t%s ", ASM_COMMENT_START
);
281 vfprintf (asm_out_file
, comment
, ap
);
283 fputc ('\n', asm_out_file
);
288 /* Output the first ORIG_LEN characters of STR as a string.
289 If ORIG_LEN is equal to -1, ignore this parameter and output
290 the entire STR instead.
291 If COMMENT is not NULL and comments in the debug information
292 have been requested by the user, append the given COMMENT
293 to the generated output. */
296 dw2_asm_output_nstring (const char *str
, size_t orig_len
,
297 const char *comment
, ...)
302 va_start (ap
, comment
);
306 if (len
== (size_t) -1)
309 if (flag_debug_asm
&& comment
)
311 fputs ("\t.ascii \"", asm_out_file
);
312 for (i
= 0; i
< len
; i
++)
315 if (c
== '\"' || c
== '\\')
316 fputc ('\\', asm_out_file
);
318 fputc (c
, asm_out_file
);
320 fprintf (asm_out_file
, "\\%o", c
);
322 fprintf (asm_out_file
, "\\0\"\t%s ", ASM_COMMENT_START
);
323 vfprintf (asm_out_file
, comment
, ap
);
324 fputc ('\n', asm_out_file
);
328 /* If an explicit length was given, we can't assume there
329 is a null termination in the string buffer. */
330 if (orig_len
== (size_t) -1)
332 ASM_OUTPUT_ASCII (asm_out_file
, str
, len
);
333 if (orig_len
!= (size_t) -1)
334 assemble_integer (const0_rtx
, 1, BITS_PER_UNIT
, 1);
341 /* Return the size of an unsigned LEB128 quantity. */
344 size_of_uleb128 (unsigned HOST_WIDE_INT value
)
358 /* Return the size of a signed LEB128 quantity. */
361 size_of_sleb128 (HOST_WIDE_INT value
)
367 byte
= (value
& 0x7f);
371 while (!((value
== 0 && (byte
& 0x40) == 0)
372 || (value
== -1 && (byte
& 0x40) != 0)));
377 /* Given an encoding, return the number of bytes the format occupies.
378 This is only defined for fixed-size encodings, and so does not
382 size_of_encoded_value (int encoding
)
384 if (encoding
== DW_EH_PE_omit
)
387 switch (encoding
& 0x07)
389 case DW_EH_PE_absptr
:
390 return POINTER_SIZE
/ BITS_PER_UNIT
;
391 case DW_EH_PE_udata2
:
393 case DW_EH_PE_udata4
:
395 case DW_EH_PE_udata8
:
402 /* Yield a name for a given pointer encoding. */
405 eh_data_format_name (int format
)
407 #if HAVE_DESIGNATED_INITIALIZERS
408 #define S(p, v) [p] = v,
410 #define S(p, v) case p: return v;
413 #if HAVE_DESIGNATED_INITIALIZERS
414 __extension__
static const char * const format_names
[256] = {
419 S(DW_EH_PE_absptr
, "absolute")
420 S(DW_EH_PE_omit
, "omit")
421 S(DW_EH_PE_aligned
, "aligned absolute")
423 S(DW_EH_PE_uleb128
, "uleb128")
424 S(DW_EH_PE_udata2
, "udata2")
425 S(DW_EH_PE_udata4
, "udata4")
426 S(DW_EH_PE_udata8
, "udata8")
427 S(DW_EH_PE_sleb128
, "sleb128")
428 S(DW_EH_PE_sdata2
, "sdata2")
429 S(DW_EH_PE_sdata4
, "sdata4")
430 S(DW_EH_PE_sdata8
, "sdata8")
432 S(DW_EH_PE_absptr
| DW_EH_PE_pcrel
, "pcrel")
433 S(DW_EH_PE_uleb128
| DW_EH_PE_pcrel
, "pcrel uleb128")
434 S(DW_EH_PE_udata2
| DW_EH_PE_pcrel
, "pcrel udata2")
435 S(DW_EH_PE_udata4
| DW_EH_PE_pcrel
, "pcrel udata4")
436 S(DW_EH_PE_udata8
| DW_EH_PE_pcrel
, "pcrel udata8")
437 S(DW_EH_PE_sleb128
| DW_EH_PE_pcrel
, "pcrel sleb128")
438 S(DW_EH_PE_sdata2
| DW_EH_PE_pcrel
, "pcrel sdata2")
439 S(DW_EH_PE_sdata4
| DW_EH_PE_pcrel
, "pcrel sdata4")
440 S(DW_EH_PE_sdata8
| DW_EH_PE_pcrel
, "pcrel sdata8")
442 S(DW_EH_PE_absptr
| DW_EH_PE_textrel
, "textrel")
443 S(DW_EH_PE_uleb128
| DW_EH_PE_textrel
, "textrel uleb128")
444 S(DW_EH_PE_udata2
| DW_EH_PE_textrel
, "textrel udata2")
445 S(DW_EH_PE_udata4
| DW_EH_PE_textrel
, "textrel udata4")
446 S(DW_EH_PE_udata8
| DW_EH_PE_textrel
, "textrel udata8")
447 S(DW_EH_PE_sleb128
| DW_EH_PE_textrel
, "textrel sleb128")
448 S(DW_EH_PE_sdata2
| DW_EH_PE_textrel
, "textrel sdata2")
449 S(DW_EH_PE_sdata4
| DW_EH_PE_textrel
, "textrel sdata4")
450 S(DW_EH_PE_sdata8
| DW_EH_PE_textrel
, "textrel sdata8")
452 S(DW_EH_PE_absptr
| DW_EH_PE_datarel
, "datarel")
453 S(DW_EH_PE_uleb128
| DW_EH_PE_datarel
, "datarel uleb128")
454 S(DW_EH_PE_udata2
| DW_EH_PE_datarel
, "datarel udata2")
455 S(DW_EH_PE_udata4
| DW_EH_PE_datarel
, "datarel udata4")
456 S(DW_EH_PE_udata8
| DW_EH_PE_datarel
, "datarel udata8")
457 S(DW_EH_PE_sleb128
| DW_EH_PE_datarel
, "datarel sleb128")
458 S(DW_EH_PE_sdata2
| DW_EH_PE_datarel
, "datarel sdata2")
459 S(DW_EH_PE_sdata4
| DW_EH_PE_datarel
, "datarel sdata4")
460 S(DW_EH_PE_sdata8
| DW_EH_PE_datarel
, "datarel sdata8")
462 S(DW_EH_PE_absptr
| DW_EH_PE_funcrel
, "funcrel")
463 S(DW_EH_PE_uleb128
| DW_EH_PE_funcrel
, "funcrel uleb128")
464 S(DW_EH_PE_udata2
| DW_EH_PE_funcrel
, "funcrel udata2")
465 S(DW_EH_PE_udata4
| DW_EH_PE_funcrel
, "funcrel udata4")
466 S(DW_EH_PE_udata8
| DW_EH_PE_funcrel
, "funcrel udata8")
467 S(DW_EH_PE_sleb128
| DW_EH_PE_funcrel
, "funcrel sleb128")
468 S(DW_EH_PE_sdata2
| DW_EH_PE_funcrel
, "funcrel sdata2")
469 S(DW_EH_PE_sdata4
| DW_EH_PE_funcrel
, "funcrel sdata4")
470 S(DW_EH_PE_sdata8
| DW_EH_PE_funcrel
, "funcrel sdata8")
472 S(DW_EH_PE_indirect
| DW_EH_PE_absptr
, "indirect absolute")
474 S(DW_EH_PE_indirect
| DW_EH_PE_absptr
| DW_EH_PE_pcrel
,
476 S(DW_EH_PE_indirect
| DW_EH_PE_uleb128
| DW_EH_PE_pcrel
,
477 "indirect pcrel uleb128")
478 S(DW_EH_PE_indirect
| DW_EH_PE_udata2
| DW_EH_PE_pcrel
,
479 "indirect pcrel udata2")
480 S(DW_EH_PE_indirect
| DW_EH_PE_udata4
| DW_EH_PE_pcrel
,
481 "indirect pcrel udata4")
482 S(DW_EH_PE_indirect
| DW_EH_PE_udata8
| DW_EH_PE_pcrel
,
483 "indirect pcrel udata8")
484 S(DW_EH_PE_indirect
| DW_EH_PE_sleb128
| DW_EH_PE_pcrel
,
485 "indirect pcrel sleb128")
486 S(DW_EH_PE_indirect
| DW_EH_PE_sdata2
| DW_EH_PE_pcrel
,
487 "indirect pcrel sdata2")
488 S(DW_EH_PE_indirect
| DW_EH_PE_sdata4
| DW_EH_PE_pcrel
,
489 "indirect pcrel sdata4")
490 S(DW_EH_PE_indirect
| DW_EH_PE_sdata8
| DW_EH_PE_pcrel
,
491 "indirect pcrel sdata8")
493 S(DW_EH_PE_indirect
| DW_EH_PE_absptr
| DW_EH_PE_textrel
,
495 S(DW_EH_PE_indirect
| DW_EH_PE_uleb128
| DW_EH_PE_textrel
,
496 "indirect textrel uleb128")
497 S(DW_EH_PE_indirect
| DW_EH_PE_udata2
| DW_EH_PE_textrel
,
498 "indirect textrel udata2")
499 S(DW_EH_PE_indirect
| DW_EH_PE_udata4
| DW_EH_PE_textrel
,
500 "indirect textrel udata4")
501 S(DW_EH_PE_indirect
| DW_EH_PE_udata8
| DW_EH_PE_textrel
,
502 "indirect textrel udata8")
503 S(DW_EH_PE_indirect
| DW_EH_PE_sleb128
| DW_EH_PE_textrel
,
504 "indirect textrel sleb128")
505 S(DW_EH_PE_indirect
| DW_EH_PE_sdata2
| DW_EH_PE_textrel
,
506 "indirect textrel sdata2")
507 S(DW_EH_PE_indirect
| DW_EH_PE_sdata4
| DW_EH_PE_textrel
,
508 "indirect textrel sdata4")
509 S(DW_EH_PE_indirect
| DW_EH_PE_sdata8
| DW_EH_PE_textrel
,
510 "indirect textrel sdata8")
512 S(DW_EH_PE_indirect
| DW_EH_PE_absptr
| DW_EH_PE_datarel
,
514 S(DW_EH_PE_indirect
| DW_EH_PE_uleb128
| DW_EH_PE_datarel
,
515 "indirect datarel uleb128")
516 S(DW_EH_PE_indirect
| DW_EH_PE_udata2
| DW_EH_PE_datarel
,
517 "indirect datarel udata2")
518 S(DW_EH_PE_indirect
| DW_EH_PE_udata4
| DW_EH_PE_datarel
,
519 "indirect datarel udata4")
520 S(DW_EH_PE_indirect
| DW_EH_PE_udata8
| DW_EH_PE_datarel
,
521 "indirect datarel udata8")
522 S(DW_EH_PE_indirect
| DW_EH_PE_sleb128
| DW_EH_PE_datarel
,
523 "indirect datarel sleb128")
524 S(DW_EH_PE_indirect
| DW_EH_PE_sdata2
| DW_EH_PE_datarel
,
525 "indirect datarel sdata2")
526 S(DW_EH_PE_indirect
| DW_EH_PE_sdata4
| DW_EH_PE_datarel
,
527 "indirect datarel sdata4")
528 S(DW_EH_PE_indirect
| DW_EH_PE_sdata8
| DW_EH_PE_datarel
,
529 "indirect datarel sdata8")
531 S(DW_EH_PE_indirect
| DW_EH_PE_absptr
| DW_EH_PE_funcrel
,
533 S(DW_EH_PE_indirect
| DW_EH_PE_uleb128
| DW_EH_PE_funcrel
,
534 "indirect funcrel uleb128")
535 S(DW_EH_PE_indirect
| DW_EH_PE_udata2
| DW_EH_PE_funcrel
,
536 "indirect funcrel udata2")
537 S(DW_EH_PE_indirect
| DW_EH_PE_udata4
| DW_EH_PE_funcrel
,
538 "indirect funcrel udata4")
539 S(DW_EH_PE_indirect
| DW_EH_PE_udata8
| DW_EH_PE_funcrel
,
540 "indirect funcrel udata8")
541 S(DW_EH_PE_indirect
| DW_EH_PE_sleb128
| DW_EH_PE_funcrel
,
542 "indirect funcrel sleb128")
543 S(DW_EH_PE_indirect
| DW_EH_PE_sdata2
| DW_EH_PE_funcrel
,
544 "indirect funcrel sdata2")
545 S(DW_EH_PE_indirect
| DW_EH_PE_sdata4
| DW_EH_PE_funcrel
,
546 "indirect funcrel sdata4")
547 S(DW_EH_PE_indirect
| DW_EH_PE_sdata8
| DW_EH_PE_funcrel
,
548 "indirect funcrel sdata8")
550 #if HAVE_DESIGNATED_INITIALIZERS
553 gcc_assert (format
>= 0 && format
< 0x100 && format_names
[format
]);
555 return format_names
[format
];
562 /* Output an unsigned LEB128 quantity, but only the byte values. */
565 dw2_asm_output_data_uleb128_raw (unsigned HOST_WIDE_INT value
)
569 int byte
= (value
& 0x7f);
572 /* More bytes to follow. */
575 fprintf (asm_out_file
, "%#x", byte
);
578 fputc (',', asm_out_file
);
582 /* Output an unsigned LEB128 quantity. */
585 dw2_asm_output_data_uleb128 (unsigned HOST_WIDE_INT value
,
586 const char *comment
, ...)
590 va_start (ap
, comment
);
592 #ifdef HAVE_AS_LEB128
593 fprintf (asm_out_file
, "\t.uleb128 " HOST_WIDE_INT_PRINT_HEX
, value
);
595 if (flag_debug_asm
&& comment
)
597 fprintf (asm_out_file
, "\t%s ", ASM_COMMENT_START
);
598 vfprintf (asm_out_file
, comment
, ap
);
602 unsigned HOST_WIDE_INT work
= value
;
603 const char *byte_op
= targetm
.asm_out
.byte_op
;
606 fputs (byte_op
, asm_out_file
);
609 int byte
= (work
& 0x7f);
612 /* More bytes to follow. */
617 fprintf (asm_out_file
, "%#x", byte
);
619 fputc (',', asm_out_file
);
622 assemble_integer (GEN_INT (byte
), 1, BITS_PER_UNIT
, 1);
628 fprintf (asm_out_file
, "\t%s uleb128 " HOST_WIDE_INT_PRINT_HEX
,
629 ASM_COMMENT_START
, value
);
632 fputs ("; ", asm_out_file
);
633 vfprintf (asm_out_file
, comment
, ap
);
638 fputc ('\n', asm_out_file
);
643 /* Output an signed LEB128 quantity, but only the byte values. */
646 dw2_asm_output_data_sleb128_raw (HOST_WIDE_INT value
)
652 byte
= (value
& 0x7f);
654 more
= !((value
== 0 && (byte
& 0x40) == 0)
655 || (value
== -1 && (byte
& 0x40) != 0));
659 fprintf (asm_out_file
, "%#x", byte
);
662 fputc (',', asm_out_file
);
666 /* Output a signed LEB128 quantity. */
669 dw2_asm_output_data_sleb128 (HOST_WIDE_INT value
,
670 const char *comment
, ...)
674 va_start (ap
, comment
);
676 #ifdef HAVE_AS_LEB128
677 fprintf (asm_out_file
, "\t.sleb128 " HOST_WIDE_INT_PRINT_DEC
, value
);
679 if (flag_debug_asm
&& comment
)
681 fprintf (asm_out_file
, "\t%s ", ASM_COMMENT_START
);
682 vfprintf (asm_out_file
, comment
, ap
);
686 HOST_WIDE_INT work
= value
;
688 const char *byte_op
= targetm
.asm_out
.byte_op
;
691 fputs (byte_op
, asm_out_file
);
694 byte
= (work
& 0x7f);
695 /* arithmetic shift */
697 more
= !((work
== 0 && (byte
& 0x40) == 0)
698 || (work
== -1 && (byte
& 0x40) != 0));
704 fprintf (asm_out_file
, "%#x", byte
);
706 fputc (',', asm_out_file
);
709 assemble_integer (GEN_INT (byte
), 1, BITS_PER_UNIT
, 1);
715 fprintf (asm_out_file
, "\t%s sleb128 " HOST_WIDE_INT_PRINT_DEC
,
716 ASM_COMMENT_START
, value
);
719 fputs ("; ", asm_out_file
);
720 vfprintf (asm_out_file
, comment
, ap
);
725 fputc ('\n', asm_out_file
);
731 dw2_asm_output_delta_uleb128 (const char *lab1 ATTRIBUTE_UNUSED
,
732 const char *lab2 ATTRIBUTE_UNUSED
,
733 const char *comment
, ...)
737 va_start (ap
, comment
);
739 #ifdef HAVE_AS_LEB128
740 fputs ("\t.uleb128 ", asm_out_file
);
741 assemble_name (asm_out_file
, lab1
);
742 fputc ('-', asm_out_file
);
743 assemble_name (asm_out_file
, lab2
);
748 if (flag_debug_asm
&& comment
)
750 fprintf (asm_out_file
, "\t%s ", ASM_COMMENT_START
);
751 vfprintf (asm_out_file
, comment
, ap
);
753 fputc ('\n', asm_out_file
);
761 dw2_asm_output_delta_sleb128 (const char *lab1 ATTRIBUTE_UNUSED
,
762 const char *lab2 ATTRIBUTE_UNUSED
,
763 const char *comment
, ...)
767 va_start (ap
, comment
);
769 #ifdef HAVE_AS_LEB128
770 fputs ("\t.sleb128 ", asm_out_file
);
771 assemble_name (asm_out_file
, lab1
);
772 fputc ('-', asm_out_file
);
773 assemble_name (asm_out_file
, lab2
);
778 if (flag_debug_asm
&& comment
)
780 fprintf (asm_out_file
, "\t%s ", ASM_COMMENT_START
);
781 vfprintf (asm_out_file
, comment
, ap
);
783 fputc ('\n', asm_out_file
);
789 static int dw2_output_indirect_constant_1 (splay_tree_node
, void *);
791 static GTY((param1_is (char *), param2_is (tree
))) splay_tree indirect_pool
;
793 static GTY(()) int dw2_const_labelno
;
795 #if defined(HAVE_GAS_HIDDEN)
796 # define USE_LINKONCE_INDIRECT (SUPPORTS_ONE_ONLY)
798 # define USE_LINKONCE_INDIRECT 0
801 /* Comparison function for a splay tree in which the keys are strings.
802 K1 and K2 have the dynamic type "const char *". Returns <0, 0, or
803 >0 to indicate whether K1 is less than, equal to, or greater than
807 splay_tree_compare_strings (splay_tree_key k1
, splay_tree_key k2
)
809 const char *s1
= (const char *)k1
;
810 const char *s2
= (const char *)k2
;
816 ret
= strcmp (s1
, s2
);
818 /* The strings are always those from IDENTIFIER_NODEs, and,
819 therefore, we should never have two copies of the same
826 /* Put X, a SYMBOL_REF, in memory. Return a SYMBOL_REF to the allocated
827 memory. Differs from force_const_mem in that a single pool is used for
828 the entire unit of translation, and the memory is not guaranteed to be
829 "near" the function in any interesting sense. IS_PUBLIC controls whether
830 the symbol can be shared across the entire application (or DSO). */
833 dw2_force_const_mem (rtx x
, bool is_public
)
835 splay_tree_node node
;
840 /* We use strcmp, rather than just comparing pointers, so that the
841 sort order will not depend on the host system. */
842 indirect_pool
= splay_tree_new_ggc (splay_tree_compare_strings
,
843 ggc_alloc_splay_tree_str_tree_node_splay_tree_s
,
844 ggc_alloc_splay_tree_str_tree_node_splay_tree_node_s
);
846 gcc_assert (GET_CODE (x
) == SYMBOL_REF
);
849 node
= splay_tree_lookup (indirect_pool
, (splay_tree_key
) key
);
851 decl_id
= (tree
) node
->value
;
855 const char *str
= targetm
.strip_name_encoding (key
);
857 if (is_public
&& USE_LINKONCE_INDIRECT
)
859 char *ref_name
= XALLOCAVEC (char, strlen (str
) + sizeof "DW.ref.");
861 sprintf (ref_name
, "DW.ref.%s", str
);
862 gcc_assert (!maybe_get_identifier (ref_name
));
863 decl_id
= get_identifier (ref_name
);
864 TREE_PUBLIC (decl_id
) = 1;
870 ASM_GENERATE_INTERNAL_LABEL (label
, "LDFCM", dw2_const_labelno
);
872 gcc_assert (!maybe_get_identifier (label
));
873 decl_id
= get_identifier (label
);
876 id
= maybe_get_identifier (str
);
878 TREE_SYMBOL_REFERENCED (id
) = 1;
880 splay_tree_insert (indirect_pool
, (splay_tree_key
) key
,
881 (splay_tree_value
) decl_id
);
884 return gen_rtx_SYMBOL_REF (Pmode
, IDENTIFIER_POINTER (decl_id
));
887 /* A helper function for dw2_output_indirect_constants called through
888 splay_tree_foreach. Emit one queued constant to memory. */
891 dw2_output_indirect_constant_1 (splay_tree_node node
,
892 void *data ATTRIBUTE_UNUSED
)
898 sym
= (const char *) node
->key
;
899 id
= (tree
) node
->value
;
901 decl
= build_decl (UNKNOWN_LOCATION
, VAR_DECL
, id
, ptr_type_node
);
902 SET_DECL_ASSEMBLER_NAME (decl
, id
);
903 DECL_ARTIFICIAL (decl
) = 1;
904 DECL_IGNORED_P (decl
) = 1;
905 DECL_INITIAL (decl
) = decl
;
906 TREE_READONLY (decl
) = 1;
908 if (TREE_PUBLIC (id
))
910 TREE_PUBLIC (decl
) = 1;
911 make_decl_one_only (decl
, DECL_ASSEMBLER_NAME (decl
));
912 if (USE_LINKONCE_INDIRECT
)
913 DECL_VISIBILITY (decl
) = VISIBILITY_HIDDEN
;
916 TREE_STATIC (decl
) = 1;
918 sym_ref
= gen_rtx_SYMBOL_REF (Pmode
, sym
);
919 assemble_variable (decl
, 1, 1, 1);
920 assemble_integer (sym_ref
, POINTER_SIZE
/ BITS_PER_UNIT
, POINTER_SIZE
, 1);
925 /* Emit the constants queued through dw2_force_const_mem. */
928 dw2_output_indirect_constants (void)
931 splay_tree_foreach (indirect_pool
, dw2_output_indirect_constant_1
, NULL
);
934 /* Like dw2_asm_output_addr_rtx, but encode the pointer as directed.
935 If PUBLIC is set and the encoding is DW_EH_PE_indirect, the indirect
936 reference is shared across the entire application (or DSO). */
939 dw2_asm_output_encoded_addr_rtx (int encoding
, rtx addr
, bool is_public
,
940 const char *comment
, ...)
945 va_start (ap
, comment
);
947 size
= size_of_encoded_value (encoding
);
949 if (encoding
== DW_EH_PE_aligned
)
951 assemble_align (POINTER_SIZE
);
952 assemble_integer (addr
, size
, POINTER_SIZE
, 1);
957 /* NULL is _always_ represented as a plain zero, as is 1 for Ada's
959 if (addr
== const0_rtx
|| addr
== const1_rtx
)
960 assemble_integer (addr
, size
, BITS_PER_UNIT
, 1);
964 /* Allow the target first crack at emitting this. Some of the
965 special relocations require special directives instead of
966 just ".4byte" or whatever. */
967 #ifdef ASM_MAYBE_OUTPUT_ENCODED_ADDR_RTX
968 ASM_MAYBE_OUTPUT_ENCODED_ADDR_RTX (asm_out_file
, encoding
, size
,
972 /* Indirection is used to get dynamic relocations out of a
973 read-only section. */
974 if (encoding
& DW_EH_PE_indirect
)
976 /* It is very tempting to use force_const_mem so that we share data
977 with the normal constant pool. However, we've already emitted
978 the constant pool for this function. Moreover, we'd like to
979 share these constants across the entire unit of translation and
980 even, if possible, across the entire application (or DSO). */
981 addr
= dw2_force_const_mem (addr
, is_public
);
982 encoding
&= ~DW_EH_PE_indirect
;
986 switch (encoding
& 0xF0)
988 case DW_EH_PE_absptr
:
989 dw2_assemble_integer (size
, addr
);
993 gcc_assert (GET_CODE (addr
) == SYMBOL_REF
);
994 #ifdef ASM_OUTPUT_DWARF_PCREL
995 ASM_OUTPUT_DWARF_PCREL (asm_out_file
, size
, XSTR (addr
, 0));
997 dw2_assemble_integer (size
, gen_rtx_MINUS (Pmode
, addr
, pc_rtx
));
1002 /* Other encodings should have been handled by
1003 ASM_MAYBE_OUTPUT_ENCODED_ADDR_RTX. */
1007 #ifdef ASM_MAYBE_OUTPUT_ENCODED_ADDR_RTX
1012 if (flag_debug_asm
&& comment
)
1014 fprintf (asm_out_file
, "\t%s ", ASM_COMMENT_START
);
1015 vfprintf (asm_out_file
, comment
, ap
);
1017 fputc ('\n', asm_out_file
);
1022 #include "gt-dwarf2asm.h"