/* Definitions of various defaults for how to do assembler output
(most of which are designed to be appropriate for GAS or for
Written by Ron Guilmette (rfg@ncd.com)
Copyright (C) 1992 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)
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, 675 Mass Ave, Cambridge, MA 02139, USA. */
/* Store in OUTPUT a string (made with alloca) containing
an assembler-name for a local static variable or function named NAME.
LABELNO is an integer which is different for each call. */
#ifndef ASM_FORMAT_PRIVATE_NAME
#define ASM_FORMAT_PRIVATE_NAME(OUTPUT, NAME, LABELNO) \
int len = strlen (NAME); \
char *temp = (char *) alloca (len + 3); \
strcpy (&temp[1], (NAME)); \
(OUTPUT) = (char *) alloca (strlen (NAME) + 11); \
ASM_GENERATE_INTERNAL_LABEL (OUTPUT, temp, LABELNO); \
#define ASM_STABD_OP ".stabd"
/* This is how to output an element of a case-vector that is absolute.
Some targets don't use this, but we have to define it anyway. */
#ifndef ASM_OUTPUT_ADDR_VEC_ELT
#define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE) \
do { fprintf (FILE, "\t%s\t", ASM_LONG); \
ASM_OUTPUT_INTERNAL_LABEL (FILE, "L", (VALUE)); \
/* This is how to output an element of a case-vector that is relative.
Some targets don't use this, but we have to define it anyway. */
#ifndef ASM_OUTPUT_ADDR_DIFF_ELT
#define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, VALUE, REL) \
do { fprintf (FILE, "\t%s\t", ASM_SHORT); \
ASM_GENERATE_INTERNAL_LABEL (FILE, "L", (VALUE)); \
ASM_GENERATE_INTERNAL_LABEL (FILE, "L", (REL)); \
/* choose a reasonable default for ASM_OUTPUT_ASCII. */
#define ASM_OUTPUT_ASCII(MYFILE, MYSTRING, MYLENGTH) \
FILE *_hide_asm_out_file = (MYFILE); \
unsigned char *_hide_p = (unsigned char *) (MYSTRING); \
int _hide_thissize = (MYLENGTH); \
FILE *asm_out_file = _hide_asm_out_file; \
unsigned char *p = _hide_p; \
int thissize = _hide_thissize; \
fprintf (asm_out_file, "\t.ascii \""); \
for (i = 0; i < thissize; i++) \
if (c == '\"' || c == '\\') \
putc ('\\', asm_out_file); \
if (c >= ' ' && c < 0177) \
putc (c, asm_out_file); \
fprintf (asm_out_file, "\\%o", c); \
/* After an octal-escape, if a digit follows, \
terminate one string constant and start another. \
The Vax assembler fails to stop reading the escape \
after three digits, so this is the only way we \
can get it to parse the data properly. */ \
&& p[i + 1] >= '0' && p[i + 1] <= '9') \
fprintf (asm_out_file, "\"\n\t.ascii \""); \
fprintf (asm_out_file, "\"\n"); \
/* Default the definition, only if ASM_IDENTIFY_GCC is not set,
because if it is set, we might not want ASM_IDENTIFY_LANGUAGE
outputting labels, if we do want it to, then it must be defined
#ifndef ASM_IDENTIFY_LANGUAGE
#define ASM_IDENTIFY_LANGUAGE(FILE) output_lang_identify (FILE);