213
214/* Output assembler code to FILE to begin profiling of the current function.
215 LABELNO is an optional label. */
216
217#undef FUNCTION_PROFILER
218#define FUNCTION_PROFILER(FILE, LABELNO) \
219 do { \
220 char *_name = TARGET_AOUT ? "mcount" : ".mcount"; \
221 if (flag_pic) \
222 fprintf ((FILE), "\tcall *%s@GOT(%%ebx)\n", _name); \
223 else \
224 fprintf ((FILE), "\tcall %s\n", _name); \
225 } while (0)
226
227/* Output assembler code to FILE to end profiling of the current function. */
228
229#undef FUNCTION_PROFILER_EPILOGUE
230#define FUNCTION_PROFILER_EPILOGUE(FILE, DO_RTL) \
231 do { \
232 if (TARGET_PROFILER_EPILOGUE) \
233 { \
234 if (DO_RTL) \
235 { \
236 /* ".mexitcount" is specially handled in \
237 ASM_HACK_SYMBOLREF () so that we don't need to handle \
238 flag_pic or TARGET_AOUT here. */ \
239 rtx xop; \
240 xop = gen_rtx_MEM (FUNCTION_MODE, \
241 gen_rtx_SYMBOL_REF (Pmode, ".mexitcount")); \
242 emit_call_insn (gen_rtx (CALL, VOIDmode, xop, const0_rtx)); \
243 } \
244 else \
245 { \
246 /* XXX this !DO_RTL case is broken but not actually used. */ \
247 char *_name = TARGET_AOUT ? "mcount" : ".mcount"; \
248 if (flag_pic) \
249 fprintf (FILE, "\tcall *%s@GOT(%%ebx)\n", _name); \
250 else \
251 fprintf (FILE, "\tcall %s\n", _name); \
252 } \
253 } \
254 } while (0)
255
256
257/************************[ Assembler stuff ]********************************/
258
259#undef ASM_APP_ON
260#define ASM_APP_ON "#APP\n"
261
262#undef ASM_APP_OFF
263#define ASM_APP_OFF "#NO_APP\n"
264
265/* This is how to begin an assembly language file.
266 The .file command should always begin the output.
267 ELF also needs a .version. */
268
269#undef ASM_FILE_START
270#define ASM_FILE_START(FILE) \
271 do { \
272 output_file_directive ((FILE), main_input_filename); \
273 if (TARGET_ELF) \
274 fprintf ((FILE), "\t.version\t\"01.01\"\n"); \
275 } while (0)
276
277/* This is how to store into the string BUF
278 the symbol_ref name of an internal numbered label where
279 PREFIX is the class of label and NUM is the number within the class.
280 This is suitable for output with `assemble_name'. */
281#undef ASM_GENERATE_INTERNAL_LABEL
282#define ASM_GENERATE_INTERNAL_LABEL(BUF, PREFIX, NUMBER) \
283 sprintf ((BUF), "*%s%s%d", (TARGET_UNDERSCORES) ? "" : ".", \
284 (PREFIX), (NUMBER))
285
286/* This is how to output an internal numbered label where
287 PREFIX is the class of label and NUM is the number within the class.
288 For most svr4/ELF systems, the convention is that any symbol which begins
289 with a period is not put into the linker symbol table by the assembler. */
290#undef ASM_OUTPUT_INTERNAL_LABEL
291#define ASM_OUTPUT_INTERNAL_LABEL(FILE,PREFIX,NUM) \
292 fprintf ((FILE), "%s%s%d:\n", (TARGET_UNDERSCORES) ? "" : ".", \
293 (PREFIX), (NUM))
294
295/* This is how to output a reference to a user-level label named NAME. */
296#undef ASM_OUTPUT_LABELREF
297#define ASM_OUTPUT_LABELREF(FILE, NAME) \
298 do { \
299 char *_name = (NAME); \
300 /* Hack to avoid writing lots of rtl in \
301 FUNCTION_PROFILER_EPILOGUE (). */ \
302 if (*_name == '.' && strcmp(_name + 1, "mexitcount") == 0) \
303 { \
304 if (TARGET_AOUT) \
305 _name++; \
306 if (flag_pic) \
307 fprintf ((FILE), "*%s@GOT(%%ebx)", _name); \
308 else \
309 fprintf ((FILE), "%s", _name); \
310 } \
311 else \
312 fprintf (FILE, "%s%s", TARGET_UNDERSCORES ? "_" : "", _name); \
313} while (0)
314
315/* This is how to hack on the symbol code of certain relcalcitrant
316 symbols to modify their output in output_pic_addr_const (). */
317
318#undef ASM_HACK_SYMBOLREF_CODE
319#define ASM_HACK_SYMBOLREF_CODE(NAME, CODE) \
320 do { \
321 /* Part of hack to avoid writing lots of rtl in \
322 FUNCTION_PROFILER_EPILOGUE (). */ \
323 char *_name = (NAME); \
324 if (*_name == '.' && strcmp(_name + 1, "mexitcount") == 0) \
325 (CODE) = 'X'; \
326 } while (0)
327
328/* This is how to output an element of a case-vector that is relative.
329 This is only used for PIC code. See comments by the `casesi' insn in
330 i386.md for an explanation of the expression this outputs. */
331#undef ASM_OUTPUT_ADDR_DIFF_ELT
332#define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, BODY, VALUE, REL) \
333 fprintf ((FILE), "\t.long _GLOBAL_OFFSET_TABLE_+[.-%s%d]\n", LPREFIX, (VALUE))
334
335#undef ASM_OUTPUT_ALIGN
336#define ASM_OUTPUT_ALIGN(FILE, LOG) \
337 if ((LOG)!=0) { \
338 if (in_text_section()) \
339 fprintf ((FILE), "\t.p2align %d,0x90\n", (LOG)); \
340 else \
341 fprintf ((FILE), "\t.p2align %d\n", (LOG)); \
342 }
343
344#undef ASM_OUTPUT_ALIGNED_COMMON
345#define ASM_OUTPUT_ALIGNED_COMMON(FILE, NAME, SIZE, ALIGN) \
346 do { \
347 if (TARGET_ELF) \
348 { \
349 fprintf ((FILE), "%s", COMMON_ASM_OP); \
350 assemble_name ((FILE), (NAME)); \
351 fprintf ((FILE), ",%u,%u\n", (SIZE), (ALIGN) / BITS_PER_UNIT); \
352 } \
353 else \
354 { \
355 int rounded = (SIZE); \
356 if (rounded == 0) rounded = 1; \
357 rounded += (BIGGEST_ALIGNMENT / BITS_PER_UNIT) - 1; \
358 rounded = (rounded / (BIGGEST_ALIGNMENT / BITS_PER_UNIT) \
359 * (BIGGEST_ALIGNMENT / BITS_PER_UNIT)); \
360 fprintf ((FILE), "%s ", COMMON_ASM_OP); \
361 assemble_name ((FILE), (NAME)); \
362 fprintf ((FILE), ",%u\n", (rounded)); \
363 } \
364 } while (0)
365
366/* This says how to output assembler code to declare an
367 uninitialized internal linkage data object. Under SVR4,
368 the linker seems to want the alignment of data objects
369 to depend on their types. We do exactly that here. */
370
371#undef ASM_OUTPUT_ALIGNED_LOCAL
372#define ASM_OUTPUT_ALIGNED_LOCAL(FILE, NAME, SIZE, ALIGN) \
373 do { \
374 if (TARGET_ELF) \
375 { \
376 fprintf ((FILE), "%s", LOCAL_ASM_OP); \
377 assemble_name ((FILE), (NAME)); \
378 fprintf ((FILE), "\n"); \
379 ASM_OUTPUT_ALIGNED_COMMON ((FILE), (NAME), (SIZE), (ALIGN)); \
380 } \
381 else \
382 { \
383 int rounded = (SIZE); \
384 if (rounded == 0) rounded = 1; \
385 rounded += (BIGGEST_ALIGNMENT / BITS_PER_UNIT) - 1; \
386 rounded = (rounded / (BIGGEST_ALIGNMENT / BITS_PER_UNIT) \
387 * (BIGGEST_ALIGNMENT / BITS_PER_UNIT)); \
388 fputs ("\t.lcomm\t", (FILE)); \
389 assemble_name ((FILE), (NAME)); \
390 fprintf ((FILE), ",%u\n", (rounded)); \
391 } \
392 } while (0)
393
394/* How to output some space. The rules are different depending on the
395 object format. */
396#undef ASM_OUTPUT_SKIP
397#define ASM_OUTPUT_SKIP(FILE, SIZE) \
398 do { \
399 if (TARGET_ELF) \
400 { \
401 fprintf ((FILE), "%s%u\n", SKIP_ASM_OP, (SIZE)); \
402 } \
403 else \
404 { \
405 fprintf ((FILE), "\t.space\t%u\n", (SIZE)); \
406 } \
407 } while (0)
408
409
410#undef ASM_OUTPUT_SOURCE_LINE
411#define ASM_OUTPUT_SOURCE_LINE(FILE, LINE) \
412 do { \
413 static int sym_lineno = 1; \
414 if (TARGET_ELF) \
415 { \
416 fprintf ((FILE), ".stabn 68,0,%d,.LM%d-", (LINE), sym_lineno); \
417 assemble_name ((FILE), \
418 XSTR (XEXP (DECL_RTL (current_function_decl), 0), 0)); \
419 fprintf ((FILE), "\n.LM%d:\n", sym_lineno); \
420 sym_lineno += 1; \
421 } \
422 else \
423 { \
424 fprintf ((FILE), "\t%s %d,0,%d\n", ASM_STABD_OP, N_SLINE, \
425 lineno); \
426 } \
427 } while (0)
428
429/* These macros generate the special .type and .size directives which
430 are used to set the corresponding fields of the linker symbol table
431 entries in an ELF object file under SVR4. These macros also output
432 the starting labels for the relevant functions/objects. */
433
434/* Write the extra assembler code needed to declare a function properly.
435 Some svr4 assemblers need to also have something extra said about the
436 function's return value. We allow for that here. */
437
438#undef ASM_DECLARE_FUNCTION_NAME
439#define ASM_DECLARE_FUNCTION_NAME(FILE, NAME, DECL) \
440 do { \
441 fprintf (FILE, "\t%s\t ", TYPE_ASM_OP); \
442 assemble_name (FILE, NAME); \
443 putc (',', FILE); \
444 fprintf (FILE, TYPE_OPERAND_FMT, "function"); \
445 putc ('\n', FILE); \
446 ASM_DECLARE_RESULT (FILE, DECL_RESULT (DECL)); \
447 ASM_OUTPUT_LABEL(FILE, NAME); \
448 } while (0)
449
450/* This is how to declare the size of a function. */
451
452#undef ASM_DECLARE_FUNCTION_SIZE
453#define ASM_DECLARE_FUNCTION_SIZE(FILE, FNAME, DECL) \
454 do { \
455 if (!flag_inhibit_size_directive) \
456 { \
457 char label[256]; \
458 static int labelno; \
459 labelno++; \
460 ASM_GENERATE_INTERNAL_LABEL (label, "Lfe", labelno); \
461 ASM_OUTPUT_INTERNAL_LABEL (FILE, "Lfe", labelno); \
462 fprintf (FILE, "\t%s\t ", SIZE_ASM_OP); \
463 assemble_name (FILE, (FNAME)); \
464 fprintf (FILE, ","); \
465 assemble_name (FILE, label); \
466 fprintf (FILE, "-"); \
467 assemble_name (FILE, (FNAME)); \
468 putc ('\n', FILE); \
469 } \
470 } while (0)
471
472
473/* The routine used to output NUL terminated strings. We use a special
474 version of this for most svr4 targets because doing so makes the
475 generated assembly code more compact (and thus faster to assemble)
476 as well as more readable, especially for targets like the i386
477 (where the only alternative is to output character sequences as
478 comma separated lists of numbers). */
479
480#undef ASM_OUTPUT_LIMITED_STRING
481#define ASM_OUTPUT_LIMITED_STRING(FILE, STR) \
482 do { \
483 register unsigned char *_limited_str = (unsigned char *) (STR); \
484 register unsigned ch; \
485 fprintf ((FILE), "\t%s\t\"", STRING_ASM_OP); \
486 for (; (ch = *_limited_str); _limited_str++) \
487 { \
488 register int escape; \
489 switch (escape = ESCAPES[ch]) \
490 { \
491 case 0: \
492 putc (ch, (FILE)); \
493 break; \
494 case 1: \
495 fprintf ((FILE), "\\%03o", ch); \
496 break; \
497 default: \
498 putc ('\\', (FILE)); \
499 putc (escape, (FILE)); \
500 break; \
501 } \
502 } \
503 fprintf ((FILE), "\"\n"); \
504 } while (0)
505
506/* Switch into a generic section.
507
508 We make the section read-only and executable for a function decl,
509 read-only for a const data decl, and writable for a non-const data decl.
510
511 If the section has already been defined, we must not
512 emit the attributes here. The SVR4 assembler does not
513 recognize section redefinitions.
514 If DECL is NULL, no attributes are emitted. */
515
516#undef ASM_OUTPUT_SECTION_NAME
517#define ASM_OUTPUT_SECTION_NAME(FILE, DECL, NAME, RELOC) \
518 do { \
519 static struct section_info \
520 { \
521 struct section_info *next; \
522 char *name; \
523 enum sect_enum {SECT_RW, SECT_RO, SECT_EXEC} type; \
524 } *sections; \
525 struct section_info *s; \
526 char *mode; \
527 enum sect_enum type; \
528 \
529 for (s = sections; s; s = s->next) \
530 if (!strcmp (NAME, s->name)) \
531 break; \
532 \
533 if (DECL && TREE_CODE (DECL) == FUNCTION_DECL) \
534 type = SECT_EXEC, mode = "ax"; \
535 else if (DECL && DECL_READONLY_SECTION (DECL, RELOC)) \
536 type = SECT_RO, mode = "a"; \
537 else \
538 type = SECT_RW, mode = "aw"; \
539 \
540 if (s == 0) \
541 { \
542 s = (struct section_info *) xmalloc (sizeof (struct section_info)); \
543 s->name = xmalloc ((strlen (NAME) + 1) * sizeof (*NAME)); \
544 strcpy (s->name, NAME); \
545 s->type = type; \
546 s->next = sections; \
547 sections = s; \
548 fprintf (FILE, ".section\t%s,\"%s\",@progbits\n", NAME, mode); \
549 } \
550 else \
551 { \
552 if (DECL && s->type != type) \
553 error_with_decl (DECL, "%s causes a section type conflict"); \
554 \
555 fprintf (FILE, ".section\t%s\n", NAME); \
556 } \
557 } while (0)
558
559#undef MAKE_DECL_ONE_ONLY
560#define MAKE_DECL_ONE_ONLY(DECL) (DECL_WEAK (DECL) = 1)
561#undef UNIQUE_SECTION_P
562#define UNIQUE_SECTION_P(DECL) (DECL_ONE_ONLY (DECL))
563#undef UNIQUE_SECTION
564#define UNIQUE_SECTION(DECL,RELOC) \
565 do { \
566 int len; \
567 char *name, *string, *prefix; \
568 \
569 name = IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (DECL)); \
570 \
571 if (! DECL_ONE_ONLY (DECL)) \
572 { \
573 prefix = "."; \
574 if (TREE_CODE (DECL) == FUNCTION_DECL) \
575 prefix = ".text."; \
576 else if (DECL_READONLY_SECTION (DECL, RELOC)) \
577 prefix = ".rodata."; \
578 else \
579 prefix = ".data."; \
580 } \
581 else if (TREE_CODE (DECL) == FUNCTION_DECL) \
582 prefix = ".gnu.linkonce.t."; \
583 else if (DECL_READONLY_SECTION (DECL, RELOC)) \
584 prefix = ".gnu.linkonce.r."; \
585 else \
586 prefix = ".gnu.linkonce.d."; \
587 \
588 len = strlen (name) + strlen (prefix); \
589 string = alloca (len + 1); \
590 sprintf (string, "%s%s", prefix, name); \
591 \
592 DECL_SECTION_NAME (DECL) = build_string (len, string); \
593 } while (0)
594
595/* A C statement or statements to switch to the appropriate
596 section for output of DECL. DECL is either a `VAR_DECL' node
597 or a constant of some sort. RELOC indicates whether forming
598 the initial value of DECL requires link-time relocations. */
599
600#undef SELECT_SECTION
601#define SELECT_SECTION(DECL,RELOC) \
602 { \
603 if (flag_pic && RELOC) \
604 data_section (); \
605 else if (TREE_CODE (DECL) == STRING_CST) \
606 { \
607 if (! flag_writable_strings) \
608 const_section (); \
609 else \
610 data_section (); \
611 } \
612 else if (TREE_CODE (DECL) == VAR_DECL) \
613 { \
614 if (! DECL_READONLY_SECTION (DECL, RELOC)) \
615 data_section (); \
616 else \
617 const_section (); \
618 } \
619 else \
620 const_section (); \
621 }
622
623/* A C statement (sans semicolon) to output an element in the table of
624 global constructors. */
625#undef ASM_OUTPUT_CONSTRUCTOR
626#define ASM_OUTPUT_CONSTRUCTOR(FILE, NAME) \
627 do { \
628 if (TARGET_ELF) \
629 { \
630 ctors_section (); \
631 fprintf ((FILE), "%s ", INT_ASM_OP); \
632 assemble_name ((FILE), (NAME)); \
633 fprintf ((FILE), "\n"); \
634 } \
635 else \
636 { \
637 fprintf (asm_out_file, "%s \"%s__CTOR_LIST__\",22,0,0,", \
638 ASM_STABS_OP, (TARGET_UNDERSCORES) ? "_" : ""); \
639 assemble_name (asm_out_file, name); \
640 fputc ('\n', asm_out_file); \
641 } \
642 } while (0)
643
644/* A C statement (sans semicolon) to output an element in the table of
645 global destructors. */
646#undef ASM_OUTPUT_DESTRUCTOR
647#define ASM_OUTPUT_DESTRUCTOR(FILE, NAME) \
648 do { \
649 if (TARGET_ELF) \
650 { \
651 dtors_section (); \
652 fprintf ((FILE), "%s ", INT_ASM_OP); \
653 assemble_name ((FILE), (NAME)); \
654 fprintf ((FILE), "\n"); \
655 } \
656 else \
657 { \
658 fprintf (asm_out_file, "%s \"%s__DTOR_LIST__\",22,0,0,", \
659 ASM_STABS_OP, (TARGET_UNDERSCORES) ? "_" : ""); \
660 assemble_name (asm_out_file, name); \
661 fputc ('\n', asm_out_file); \
662 } \
663 } while (0)
664
665/* Define macro used to output shift-double opcodes when the shift
666 count is in %cl. Some assemblers require %cl as an argument;
667 some don't.
668
669 *OLD* GAS requires the %cl argument, so override i386/unix.h. */
670
671#undef AS3_SHIFT_DOUBLE
672#define AS3_SHIFT_DOUBLE(a,b,c,d) AS3 (a,b,c,d)
673
674
675/************************[ Debugger stuff ]*********************************/
676
677/* Copy this from the svr4 specifications... */
678/* Define the register numbers to be used in Dwarf debugging information.
679 The SVR4 reference port C compiler uses the following register numbers
680 in its Dwarf output code:
681 0 for %eax (gnu regno = 0)
682 1 for %ecx (gnu regno = 2)
683 2 for %edx (gnu regno = 1)
684 3 for %ebx (gnu regno = 3)
685 4 for %esp (gnu regno = 7)
686 5 for %ebp (gnu regno = 6)
687 6 for %esi (gnu regno = 4)
688 7 for %edi (gnu regno = 5)
689 The following three DWARF register numbers are never generated by
690 the SVR4 C compiler or by the GNU compilers, but SDB on x86/svr4
691 believes these numbers have these meanings.
692 8 for %eip (no gnu equivalent)
693 9 for %eflags (no gnu equivalent)
694 10 for %trapno (no gnu equivalent)
695 It is not at all clear how we should number the FP stack registers
696 for the x86 architecture. If the version of SDB on x86/svr4 were
697 a bit less brain dead with respect to floating-point then we would
698 have a precedent to follow with respect to DWARF register numbers
699 for x86 FP registers, but the SDB on x86/svr4 is so completely
700 broken with respect to FP registers that it is hardly worth thinking
701 of it as something to strive for compatibility with.
702 The version of x86/svr4 SDB I have at the moment does (partially)
703 seem to believe that DWARF register number 11 is associated with
704 the x86 register %st(0), but that's about all. Higher DWARF
705 register numbers don't seem to be associated with anything in
706 particular, and even for DWARF regno 11, SDB only seems to under-
707 stand that it should say that a variable lives in %st(0) (when
708 asked via an `=' command) if we said it was in DWARF regno 11,
709 but SDB still prints garbage when asked for the value of the
710 variable in question (via a `/' command).
711 (Also note that the labels SDB prints for various FP stack regs
712 when doing an `x' command are all wrong.)
713 Note that these problems generally don't affect the native SVR4
714 C compiler because it doesn't allow the use of -O with -g and
715 because when it is *not* optimizing, it allocates a memory
716 location for each floating-point variable, and the memory
717 location is what gets described in the DWARF AT_location
718 attribute for the variable in question.
719 Regardless of the severe mental illness of the x86/svr4 SDB, we
720 do something sensible here and we use the following DWARF
721 register numbers. Note that these are all stack-top-relative
722 numbers.
723 11 for %st(0) (gnu regno = 8)
724 12 for %st(1) (gnu regno = 9)
725 13 for %st(2) (gnu regno = 10)
726 14 for %st(3) (gnu regno = 11)
727 15 for %st(4) (gnu regno = 12)
728 16 for %st(5) (gnu regno = 13)
729 17 for %st(6) (gnu regno = 14)
730 18 for %st(7) (gnu regno = 15)
731*/
732#undef DWARF_DBX_REGISTER_NUMBER
733#define DWARF_DBX_REGISTER_NUMBER(n) \
734((n) == 0 ? 0 \
735 : (n) == 1 ? 2 \
736 : (n) == 2 ? 1 \
737 : (n) == 3 ? 3 \
738 : (n) == 4 ? 6 \
739 : (n) == 5 ? 7 \
740 : (n) == 6 ? 5 \
741 : (n) == 7 ? 4 \
742 : ((n) >= FIRST_STACK_REG && (n) <= LAST_STACK_REG) ? (n)+3 \
743 : (-1))
744
745/* Now what stabs expects in the register. */
746#undef STABS_DBX_REGISTER_NUMBER
747#define STABS_DBX_REGISTER_NUMBER(n) \
748((n) == 0 ? 0 : \
749 (n) == 1 ? 2 : \
750 (n) == 2 ? 1 : \
751 (n) == 3 ? 3 : \
752 (n) == 4 ? 6 : \
753 (n) == 5 ? 7 : \
754 (n) == 6 ? 4 : \
755 (n) == 7 ? 5 : \
756 (n) + 4)
757
758#undef DBX_REGISTER_NUMBER
759#define DBX_REGISTER_NUMBER(n) ((write_symbols == DWARF_DEBUG) \
760 ? DWARF_DBX_REGISTER_NUMBER(n) \
761 : STABS_DBX_REGISTER_NUMBER(n))
762
763/* tag end of file in elf mode */
764#undef DBX_OUTPUT_MAIN_SOURCE_FILE_END
765#define DBX_OUTPUT_MAIN_SOURCE_FILE_END(FILE, FILENAME) \
766 do { \
767 if (TARGET_ELF) { \
768 fprintf ((FILE), "\t.text\n\t.stabs \"\",%d,0,0,.Letext\n.Letext:\n", \
769 N_SO); \
770 } \
771 } while (0)
772
773/* stabs-in-elf has offsets relative to function beginning */
774#undef DBX_OUTPUT_LBRAC
775#define DBX_OUTPUT_LBRAC(FILE, NAME) \
776 do { \
777 fprintf (asmfile, "%s %d,0,0,", ASM_STABN_OP, N_LBRAC); \
778 assemble_name (asmfile, buf); \
779 if (TARGET_ELF) \
780 { \
781 fputc ('-', asmfile); \
782 assemble_name (asmfile, \
783 XSTR (XEXP (DECL_RTL (current_function_decl), 0), 0)); \
784 } \
785 fprintf (asmfile, "\n"); \
786 } while (0)
787
788#undef DBX_OUTPUT_RBRAC
789#define DBX_OUTPUT_RBRAC(FILE, NAME) \
790 do { \
791 fprintf (asmfile, "%s %d,0,0,", ASM_STABN_OP, N_RBRAC); \
792 assemble_name (asmfile, buf); \
793 if (TARGET_ELF) \
794 { \
795 fputc ('-', asmfile); \
796 assemble_name (asmfile, \
797 XSTR (XEXP (DECL_RTL (current_function_decl), 0), 0)); \
798 } \
799 fprintf (asmfile, "\n"); \
800 } while (0)
| 213
214/* Output assembler code to FILE to begin profiling of the current function.
215 LABELNO is an optional label. */
216
217#undef FUNCTION_PROFILER
218#define FUNCTION_PROFILER(FILE, LABELNO) \
219 do { \
220 char *_name = TARGET_AOUT ? "mcount" : ".mcount"; \
221 if (flag_pic) \
222 fprintf ((FILE), "\tcall *%s@GOT(%%ebx)\n", _name); \
223 else \
224 fprintf ((FILE), "\tcall %s\n", _name); \
225 } while (0)
226
227/* Output assembler code to FILE to end profiling of the current function. */
228
229#undef FUNCTION_PROFILER_EPILOGUE
230#define FUNCTION_PROFILER_EPILOGUE(FILE, DO_RTL) \
231 do { \
232 if (TARGET_PROFILER_EPILOGUE) \
233 { \
234 if (DO_RTL) \
235 { \
236 /* ".mexitcount" is specially handled in \
237 ASM_HACK_SYMBOLREF () so that we don't need to handle \
238 flag_pic or TARGET_AOUT here. */ \
239 rtx xop; \
240 xop = gen_rtx_MEM (FUNCTION_MODE, \
241 gen_rtx_SYMBOL_REF (Pmode, ".mexitcount")); \
242 emit_call_insn (gen_rtx (CALL, VOIDmode, xop, const0_rtx)); \
243 } \
244 else \
245 { \
246 /* XXX this !DO_RTL case is broken but not actually used. */ \
247 char *_name = TARGET_AOUT ? "mcount" : ".mcount"; \
248 if (flag_pic) \
249 fprintf (FILE, "\tcall *%s@GOT(%%ebx)\n", _name); \
250 else \
251 fprintf (FILE, "\tcall %s\n", _name); \
252 } \
253 } \
254 } while (0)
255
256
257/************************[ Assembler stuff ]********************************/
258
259#undef ASM_APP_ON
260#define ASM_APP_ON "#APP\n"
261
262#undef ASM_APP_OFF
263#define ASM_APP_OFF "#NO_APP\n"
264
265/* This is how to begin an assembly language file.
266 The .file command should always begin the output.
267 ELF also needs a .version. */
268
269#undef ASM_FILE_START
270#define ASM_FILE_START(FILE) \
271 do { \
272 output_file_directive ((FILE), main_input_filename); \
273 if (TARGET_ELF) \
274 fprintf ((FILE), "\t.version\t\"01.01\"\n"); \
275 } while (0)
276
277/* This is how to store into the string BUF
278 the symbol_ref name of an internal numbered label where
279 PREFIX is the class of label and NUM is the number within the class.
280 This is suitable for output with `assemble_name'. */
281#undef ASM_GENERATE_INTERNAL_LABEL
282#define ASM_GENERATE_INTERNAL_LABEL(BUF, PREFIX, NUMBER) \
283 sprintf ((BUF), "*%s%s%d", (TARGET_UNDERSCORES) ? "" : ".", \
284 (PREFIX), (NUMBER))
285
286/* This is how to output an internal numbered label where
287 PREFIX is the class of label and NUM is the number within the class.
288 For most svr4/ELF systems, the convention is that any symbol which begins
289 with a period is not put into the linker symbol table by the assembler. */
290#undef ASM_OUTPUT_INTERNAL_LABEL
291#define ASM_OUTPUT_INTERNAL_LABEL(FILE,PREFIX,NUM) \
292 fprintf ((FILE), "%s%s%d:\n", (TARGET_UNDERSCORES) ? "" : ".", \
293 (PREFIX), (NUM))
294
295/* This is how to output a reference to a user-level label named NAME. */
296#undef ASM_OUTPUT_LABELREF
297#define ASM_OUTPUT_LABELREF(FILE, NAME) \
298 do { \
299 char *_name = (NAME); \
300 /* Hack to avoid writing lots of rtl in \
301 FUNCTION_PROFILER_EPILOGUE (). */ \
302 if (*_name == '.' && strcmp(_name + 1, "mexitcount") == 0) \
303 { \
304 if (TARGET_AOUT) \
305 _name++; \
306 if (flag_pic) \
307 fprintf ((FILE), "*%s@GOT(%%ebx)", _name); \
308 else \
309 fprintf ((FILE), "%s", _name); \
310 } \
311 else \
312 fprintf (FILE, "%s%s", TARGET_UNDERSCORES ? "_" : "", _name); \
313} while (0)
314
315/* This is how to hack on the symbol code of certain relcalcitrant
316 symbols to modify their output in output_pic_addr_const (). */
317
318#undef ASM_HACK_SYMBOLREF_CODE
319#define ASM_HACK_SYMBOLREF_CODE(NAME, CODE) \
320 do { \
321 /* Part of hack to avoid writing lots of rtl in \
322 FUNCTION_PROFILER_EPILOGUE (). */ \
323 char *_name = (NAME); \
324 if (*_name == '.' && strcmp(_name + 1, "mexitcount") == 0) \
325 (CODE) = 'X'; \
326 } while (0)
327
328/* This is how to output an element of a case-vector that is relative.
329 This is only used for PIC code. See comments by the `casesi' insn in
330 i386.md for an explanation of the expression this outputs. */
331#undef ASM_OUTPUT_ADDR_DIFF_ELT
332#define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, BODY, VALUE, REL) \
333 fprintf ((FILE), "\t.long _GLOBAL_OFFSET_TABLE_+[.-%s%d]\n", LPREFIX, (VALUE))
334
335#undef ASM_OUTPUT_ALIGN
336#define ASM_OUTPUT_ALIGN(FILE, LOG) \
337 if ((LOG)!=0) { \
338 if (in_text_section()) \
339 fprintf ((FILE), "\t.p2align %d,0x90\n", (LOG)); \
340 else \
341 fprintf ((FILE), "\t.p2align %d\n", (LOG)); \
342 }
343
344#undef ASM_OUTPUT_ALIGNED_COMMON
345#define ASM_OUTPUT_ALIGNED_COMMON(FILE, NAME, SIZE, ALIGN) \
346 do { \
347 if (TARGET_ELF) \
348 { \
349 fprintf ((FILE), "%s", COMMON_ASM_OP); \
350 assemble_name ((FILE), (NAME)); \
351 fprintf ((FILE), ",%u,%u\n", (SIZE), (ALIGN) / BITS_PER_UNIT); \
352 } \
353 else \
354 { \
355 int rounded = (SIZE); \
356 if (rounded == 0) rounded = 1; \
357 rounded += (BIGGEST_ALIGNMENT / BITS_PER_UNIT) - 1; \
358 rounded = (rounded / (BIGGEST_ALIGNMENT / BITS_PER_UNIT) \
359 * (BIGGEST_ALIGNMENT / BITS_PER_UNIT)); \
360 fprintf ((FILE), "%s ", COMMON_ASM_OP); \
361 assemble_name ((FILE), (NAME)); \
362 fprintf ((FILE), ",%u\n", (rounded)); \
363 } \
364 } while (0)
365
366/* This says how to output assembler code to declare an
367 uninitialized internal linkage data object. Under SVR4,
368 the linker seems to want the alignment of data objects
369 to depend on their types. We do exactly that here. */
370
371#undef ASM_OUTPUT_ALIGNED_LOCAL
372#define ASM_OUTPUT_ALIGNED_LOCAL(FILE, NAME, SIZE, ALIGN) \
373 do { \
374 if (TARGET_ELF) \
375 { \
376 fprintf ((FILE), "%s", LOCAL_ASM_OP); \
377 assemble_name ((FILE), (NAME)); \
378 fprintf ((FILE), "\n"); \
379 ASM_OUTPUT_ALIGNED_COMMON ((FILE), (NAME), (SIZE), (ALIGN)); \
380 } \
381 else \
382 { \
383 int rounded = (SIZE); \
384 if (rounded == 0) rounded = 1; \
385 rounded += (BIGGEST_ALIGNMENT / BITS_PER_UNIT) - 1; \
386 rounded = (rounded / (BIGGEST_ALIGNMENT / BITS_PER_UNIT) \
387 * (BIGGEST_ALIGNMENT / BITS_PER_UNIT)); \
388 fputs ("\t.lcomm\t", (FILE)); \
389 assemble_name ((FILE), (NAME)); \
390 fprintf ((FILE), ",%u\n", (rounded)); \
391 } \
392 } while (0)
393
394/* How to output some space. The rules are different depending on the
395 object format. */
396#undef ASM_OUTPUT_SKIP
397#define ASM_OUTPUT_SKIP(FILE, SIZE) \
398 do { \
399 if (TARGET_ELF) \
400 { \
401 fprintf ((FILE), "%s%u\n", SKIP_ASM_OP, (SIZE)); \
402 } \
403 else \
404 { \
405 fprintf ((FILE), "\t.space\t%u\n", (SIZE)); \
406 } \
407 } while (0)
408
409
410#undef ASM_OUTPUT_SOURCE_LINE
411#define ASM_OUTPUT_SOURCE_LINE(FILE, LINE) \
412 do { \
413 static int sym_lineno = 1; \
414 if (TARGET_ELF) \
415 { \
416 fprintf ((FILE), ".stabn 68,0,%d,.LM%d-", (LINE), sym_lineno); \
417 assemble_name ((FILE), \
418 XSTR (XEXP (DECL_RTL (current_function_decl), 0), 0)); \
419 fprintf ((FILE), "\n.LM%d:\n", sym_lineno); \
420 sym_lineno += 1; \
421 } \
422 else \
423 { \
424 fprintf ((FILE), "\t%s %d,0,%d\n", ASM_STABD_OP, N_SLINE, \
425 lineno); \
426 } \
427 } while (0)
428
429/* These macros generate the special .type and .size directives which
430 are used to set the corresponding fields of the linker symbol table
431 entries in an ELF object file under SVR4. These macros also output
432 the starting labels for the relevant functions/objects. */
433
434/* Write the extra assembler code needed to declare a function properly.
435 Some svr4 assemblers need to also have something extra said about the
436 function's return value. We allow for that here. */
437
438#undef ASM_DECLARE_FUNCTION_NAME
439#define ASM_DECLARE_FUNCTION_NAME(FILE, NAME, DECL) \
440 do { \
441 fprintf (FILE, "\t%s\t ", TYPE_ASM_OP); \
442 assemble_name (FILE, NAME); \
443 putc (',', FILE); \
444 fprintf (FILE, TYPE_OPERAND_FMT, "function"); \
445 putc ('\n', FILE); \
446 ASM_DECLARE_RESULT (FILE, DECL_RESULT (DECL)); \
447 ASM_OUTPUT_LABEL(FILE, NAME); \
448 } while (0)
449
450/* This is how to declare the size of a function. */
451
452#undef ASM_DECLARE_FUNCTION_SIZE
453#define ASM_DECLARE_FUNCTION_SIZE(FILE, FNAME, DECL) \
454 do { \
455 if (!flag_inhibit_size_directive) \
456 { \
457 char label[256]; \
458 static int labelno; \
459 labelno++; \
460 ASM_GENERATE_INTERNAL_LABEL (label, "Lfe", labelno); \
461 ASM_OUTPUT_INTERNAL_LABEL (FILE, "Lfe", labelno); \
462 fprintf (FILE, "\t%s\t ", SIZE_ASM_OP); \
463 assemble_name (FILE, (FNAME)); \
464 fprintf (FILE, ","); \
465 assemble_name (FILE, label); \
466 fprintf (FILE, "-"); \
467 assemble_name (FILE, (FNAME)); \
468 putc ('\n', FILE); \
469 } \
470 } while (0)
471
472
473/* The routine used to output NUL terminated strings. We use a special
474 version of this for most svr4 targets because doing so makes the
475 generated assembly code more compact (and thus faster to assemble)
476 as well as more readable, especially for targets like the i386
477 (where the only alternative is to output character sequences as
478 comma separated lists of numbers). */
479
480#undef ASM_OUTPUT_LIMITED_STRING
481#define ASM_OUTPUT_LIMITED_STRING(FILE, STR) \
482 do { \
483 register unsigned char *_limited_str = (unsigned char *) (STR); \
484 register unsigned ch; \
485 fprintf ((FILE), "\t%s\t\"", STRING_ASM_OP); \
486 for (; (ch = *_limited_str); _limited_str++) \
487 { \
488 register int escape; \
489 switch (escape = ESCAPES[ch]) \
490 { \
491 case 0: \
492 putc (ch, (FILE)); \
493 break; \
494 case 1: \
495 fprintf ((FILE), "\\%03o", ch); \
496 break; \
497 default: \
498 putc ('\\', (FILE)); \
499 putc (escape, (FILE)); \
500 break; \
501 } \
502 } \
503 fprintf ((FILE), "\"\n"); \
504 } while (0)
505
506/* Switch into a generic section.
507
508 We make the section read-only and executable for a function decl,
509 read-only for a const data decl, and writable for a non-const data decl.
510
511 If the section has already been defined, we must not
512 emit the attributes here. The SVR4 assembler does not
513 recognize section redefinitions.
514 If DECL is NULL, no attributes are emitted. */
515
516#undef ASM_OUTPUT_SECTION_NAME
517#define ASM_OUTPUT_SECTION_NAME(FILE, DECL, NAME, RELOC) \
518 do { \
519 static struct section_info \
520 { \
521 struct section_info *next; \
522 char *name; \
523 enum sect_enum {SECT_RW, SECT_RO, SECT_EXEC} type; \
524 } *sections; \
525 struct section_info *s; \
526 char *mode; \
527 enum sect_enum type; \
528 \
529 for (s = sections; s; s = s->next) \
530 if (!strcmp (NAME, s->name)) \
531 break; \
532 \
533 if (DECL && TREE_CODE (DECL) == FUNCTION_DECL) \
534 type = SECT_EXEC, mode = "ax"; \
535 else if (DECL && DECL_READONLY_SECTION (DECL, RELOC)) \
536 type = SECT_RO, mode = "a"; \
537 else \
538 type = SECT_RW, mode = "aw"; \
539 \
540 if (s == 0) \
541 { \
542 s = (struct section_info *) xmalloc (sizeof (struct section_info)); \
543 s->name = xmalloc ((strlen (NAME) + 1) * sizeof (*NAME)); \
544 strcpy (s->name, NAME); \
545 s->type = type; \
546 s->next = sections; \
547 sections = s; \
548 fprintf (FILE, ".section\t%s,\"%s\",@progbits\n", NAME, mode); \
549 } \
550 else \
551 { \
552 if (DECL && s->type != type) \
553 error_with_decl (DECL, "%s causes a section type conflict"); \
554 \
555 fprintf (FILE, ".section\t%s\n", NAME); \
556 } \
557 } while (0)
558
559#undef MAKE_DECL_ONE_ONLY
560#define MAKE_DECL_ONE_ONLY(DECL) (DECL_WEAK (DECL) = 1)
561#undef UNIQUE_SECTION_P
562#define UNIQUE_SECTION_P(DECL) (DECL_ONE_ONLY (DECL))
563#undef UNIQUE_SECTION
564#define UNIQUE_SECTION(DECL,RELOC) \
565 do { \
566 int len; \
567 char *name, *string, *prefix; \
568 \
569 name = IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (DECL)); \
570 \
571 if (! DECL_ONE_ONLY (DECL)) \
572 { \
573 prefix = "."; \
574 if (TREE_CODE (DECL) == FUNCTION_DECL) \
575 prefix = ".text."; \
576 else if (DECL_READONLY_SECTION (DECL, RELOC)) \
577 prefix = ".rodata."; \
578 else \
579 prefix = ".data."; \
580 } \
581 else if (TREE_CODE (DECL) == FUNCTION_DECL) \
582 prefix = ".gnu.linkonce.t."; \
583 else if (DECL_READONLY_SECTION (DECL, RELOC)) \
584 prefix = ".gnu.linkonce.r."; \
585 else \
586 prefix = ".gnu.linkonce.d."; \
587 \
588 len = strlen (name) + strlen (prefix); \
589 string = alloca (len + 1); \
590 sprintf (string, "%s%s", prefix, name); \
591 \
592 DECL_SECTION_NAME (DECL) = build_string (len, string); \
593 } while (0)
594
595/* A C statement or statements to switch to the appropriate
596 section for output of DECL. DECL is either a `VAR_DECL' node
597 or a constant of some sort. RELOC indicates whether forming
598 the initial value of DECL requires link-time relocations. */
599
600#undef SELECT_SECTION
601#define SELECT_SECTION(DECL,RELOC) \
602 { \
603 if (flag_pic && RELOC) \
604 data_section (); \
605 else if (TREE_CODE (DECL) == STRING_CST) \
606 { \
607 if (! flag_writable_strings) \
608 const_section (); \
609 else \
610 data_section (); \
611 } \
612 else if (TREE_CODE (DECL) == VAR_DECL) \
613 { \
614 if (! DECL_READONLY_SECTION (DECL, RELOC)) \
615 data_section (); \
616 else \
617 const_section (); \
618 } \
619 else \
620 const_section (); \
621 }
622
623/* A C statement (sans semicolon) to output an element in the table of
624 global constructors. */
625#undef ASM_OUTPUT_CONSTRUCTOR
626#define ASM_OUTPUT_CONSTRUCTOR(FILE, NAME) \
627 do { \
628 if (TARGET_ELF) \
629 { \
630 ctors_section (); \
631 fprintf ((FILE), "%s ", INT_ASM_OP); \
632 assemble_name ((FILE), (NAME)); \
633 fprintf ((FILE), "\n"); \
634 } \
635 else \
636 { \
637 fprintf (asm_out_file, "%s \"%s__CTOR_LIST__\",22,0,0,", \
638 ASM_STABS_OP, (TARGET_UNDERSCORES) ? "_" : ""); \
639 assemble_name (asm_out_file, name); \
640 fputc ('\n', asm_out_file); \
641 } \
642 } while (0)
643
644/* A C statement (sans semicolon) to output an element in the table of
645 global destructors. */
646#undef ASM_OUTPUT_DESTRUCTOR
647#define ASM_OUTPUT_DESTRUCTOR(FILE, NAME) \
648 do { \
649 if (TARGET_ELF) \
650 { \
651 dtors_section (); \
652 fprintf ((FILE), "%s ", INT_ASM_OP); \
653 assemble_name ((FILE), (NAME)); \
654 fprintf ((FILE), "\n"); \
655 } \
656 else \
657 { \
658 fprintf (asm_out_file, "%s \"%s__DTOR_LIST__\",22,0,0,", \
659 ASM_STABS_OP, (TARGET_UNDERSCORES) ? "_" : ""); \
660 assemble_name (asm_out_file, name); \
661 fputc ('\n', asm_out_file); \
662 } \
663 } while (0)
664
665/* Define macro used to output shift-double opcodes when the shift
666 count is in %cl. Some assemblers require %cl as an argument;
667 some don't.
668
669 *OLD* GAS requires the %cl argument, so override i386/unix.h. */
670
671#undef AS3_SHIFT_DOUBLE
672#define AS3_SHIFT_DOUBLE(a,b,c,d) AS3 (a,b,c,d)
673
674
675/************************[ Debugger stuff ]*********************************/
676
677/* Copy this from the svr4 specifications... */
678/* Define the register numbers to be used in Dwarf debugging information.
679 The SVR4 reference port C compiler uses the following register numbers
680 in its Dwarf output code:
681 0 for %eax (gnu regno = 0)
682 1 for %ecx (gnu regno = 2)
683 2 for %edx (gnu regno = 1)
684 3 for %ebx (gnu regno = 3)
685 4 for %esp (gnu regno = 7)
686 5 for %ebp (gnu regno = 6)
687 6 for %esi (gnu regno = 4)
688 7 for %edi (gnu regno = 5)
689 The following three DWARF register numbers are never generated by
690 the SVR4 C compiler or by the GNU compilers, but SDB on x86/svr4
691 believes these numbers have these meanings.
692 8 for %eip (no gnu equivalent)
693 9 for %eflags (no gnu equivalent)
694 10 for %trapno (no gnu equivalent)
695 It is not at all clear how we should number the FP stack registers
696 for the x86 architecture. If the version of SDB on x86/svr4 were
697 a bit less brain dead with respect to floating-point then we would
698 have a precedent to follow with respect to DWARF register numbers
699 for x86 FP registers, but the SDB on x86/svr4 is so completely
700 broken with respect to FP registers that it is hardly worth thinking
701 of it as something to strive for compatibility with.
702 The version of x86/svr4 SDB I have at the moment does (partially)
703 seem to believe that DWARF register number 11 is associated with
704 the x86 register %st(0), but that's about all. Higher DWARF
705 register numbers don't seem to be associated with anything in
706 particular, and even for DWARF regno 11, SDB only seems to under-
707 stand that it should say that a variable lives in %st(0) (when
708 asked via an `=' command) if we said it was in DWARF regno 11,
709 but SDB still prints garbage when asked for the value of the
710 variable in question (via a `/' command).
711 (Also note that the labels SDB prints for various FP stack regs
712 when doing an `x' command are all wrong.)
713 Note that these problems generally don't affect the native SVR4
714 C compiler because it doesn't allow the use of -O with -g and
715 because when it is *not* optimizing, it allocates a memory
716 location for each floating-point variable, and the memory
717 location is what gets described in the DWARF AT_location
718 attribute for the variable in question.
719 Regardless of the severe mental illness of the x86/svr4 SDB, we
720 do something sensible here and we use the following DWARF
721 register numbers. Note that these are all stack-top-relative
722 numbers.
723 11 for %st(0) (gnu regno = 8)
724 12 for %st(1) (gnu regno = 9)
725 13 for %st(2) (gnu regno = 10)
726 14 for %st(3) (gnu regno = 11)
727 15 for %st(4) (gnu regno = 12)
728 16 for %st(5) (gnu regno = 13)
729 17 for %st(6) (gnu regno = 14)
730 18 for %st(7) (gnu regno = 15)
731*/
732#undef DWARF_DBX_REGISTER_NUMBER
733#define DWARF_DBX_REGISTER_NUMBER(n) \
734((n) == 0 ? 0 \
735 : (n) == 1 ? 2 \
736 : (n) == 2 ? 1 \
737 : (n) == 3 ? 3 \
738 : (n) == 4 ? 6 \
739 : (n) == 5 ? 7 \
740 : (n) == 6 ? 5 \
741 : (n) == 7 ? 4 \
742 : ((n) >= FIRST_STACK_REG && (n) <= LAST_STACK_REG) ? (n)+3 \
743 : (-1))
744
745/* Now what stabs expects in the register. */
746#undef STABS_DBX_REGISTER_NUMBER
747#define STABS_DBX_REGISTER_NUMBER(n) \
748((n) == 0 ? 0 : \
749 (n) == 1 ? 2 : \
750 (n) == 2 ? 1 : \
751 (n) == 3 ? 3 : \
752 (n) == 4 ? 6 : \
753 (n) == 5 ? 7 : \
754 (n) == 6 ? 4 : \
755 (n) == 7 ? 5 : \
756 (n) + 4)
757
758#undef DBX_REGISTER_NUMBER
759#define DBX_REGISTER_NUMBER(n) ((write_symbols == DWARF_DEBUG) \
760 ? DWARF_DBX_REGISTER_NUMBER(n) \
761 : STABS_DBX_REGISTER_NUMBER(n))
762
763/* tag end of file in elf mode */
764#undef DBX_OUTPUT_MAIN_SOURCE_FILE_END
765#define DBX_OUTPUT_MAIN_SOURCE_FILE_END(FILE, FILENAME) \
766 do { \
767 if (TARGET_ELF) { \
768 fprintf ((FILE), "\t.text\n\t.stabs \"\",%d,0,0,.Letext\n.Letext:\n", \
769 N_SO); \
770 } \
771 } while (0)
772
773/* stabs-in-elf has offsets relative to function beginning */
774#undef DBX_OUTPUT_LBRAC
775#define DBX_OUTPUT_LBRAC(FILE, NAME) \
776 do { \
777 fprintf (asmfile, "%s %d,0,0,", ASM_STABN_OP, N_LBRAC); \
778 assemble_name (asmfile, buf); \
779 if (TARGET_ELF) \
780 { \
781 fputc ('-', asmfile); \
782 assemble_name (asmfile, \
783 XSTR (XEXP (DECL_RTL (current_function_decl), 0), 0)); \
784 } \
785 fprintf (asmfile, "\n"); \
786 } while (0)
787
788#undef DBX_OUTPUT_RBRAC
789#define DBX_OUTPUT_RBRAC(FILE, NAME) \
790 do { \
791 fprintf (asmfile, "%s %d,0,0,", ASM_STABN_OP, N_RBRAC); \
792 assemble_name (asmfile, buf); \
793 if (TARGET_ELF) \
794 { \
795 fputc ('-', asmfile); \
796 assemble_name (asmfile, \
797 XSTR (XEXP (DECL_RTL (current_function_decl), 0), 0)); \
798 } \
799 fprintf (asmfile, "\n"); \
800 } while (0)
|