/* Definitions of target machine for GNU compiler, for IBM RS/6000 running AIX version 3.1. Copyright (C) 1993,1997, 2000, 2001 Free Software Foundation, Inc. Contributed by Richard Kenner (kenner@nyu.edu) 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. */ /* Output something to declare an external symbol to the assembler. Most assemblers don't need this. If we haven't already, add "[RW]" (or "[DS]" for a function) to the name. Normally we write this out along with the name. In the few cases where we can't, it gets stripped off. */ #undef ASM_OUTPUT_EXTERNAL #define ASM_OUTPUT_EXTERNAL(FILE, DECL, NAME) \ { rtx _symref = XEXP (DECL_RTL (DECL), 0); \ if ((TREE_CODE (DECL) == VAR_DECL \ || TREE_CODE (DECL) == FUNCTION_DECL) \ && (NAME)[strlen (NAME) - 1] != ']') \ { \ XSTR (_symref, 0) = concat (XSTR (_symref, 0), \ (TREE_CODE (DECL) == FUNCTION_DECL \ ? "[DS]" : "[RW]"), \ NULL); \ } \ fputs ("\t.extern ", FILE); \ assemble_name (FILE, XSTR (_symref, 0)); \ if (TREE_CODE (DECL) == FUNCTION_DECL) \ { \ fputs ("\n\t.extern .", FILE); \ RS6000_OUTPUT_BASENAME (FILE, XSTR (_symref, 0)); \ } \ putc ('\n', FILE); \ } /* Similar, but for libcall. We only have to worry about the function name, not that of the descriptor. */ #define ASM_OUTPUT_EXTERNAL_LIBCALL(FILE, FUN) \ { fputs ("\t.extern .", FILE); \ assemble_name (FILE, XSTR (FUN, 0)); \ putc ('\n', FILE); \ } /* AIX 3.2 defined _AIX32, but older versions do not. */ #undef TARGET_OS_CPP_BUILTINS #define TARGET_OS_CPP_BUILTINS() \ do \ { \ builtin_define ("_IBMR2"); \ builtin_define ("_AIX"); \ builtin_assert ("system=unix"); \ builtin_assert ("system=aix"); \ builtin_assert ("cpu=rs6000"); \ builtin_assert ("machine=rs6000"); \ } \ while (0) /* AIX 3.1 uses bit 15 in CROR as the magic nop. */ #undef RS6000_CALL_GLUE #define RS6000_CALL_GLUE "cror 15,15,15" /* AIX 3.1 does not prepend underscores to itrunc, uitrunc, or mcount. */ #undef RS6000_ITRUNC #define RS6000_ITRUNC "itrunc" #undef RS6000_UITRUNC #define RS6000_UITRUNC "uitrunc" #undef RS6000_MCOUNT #define RS6000_MCOUNT ".mcount"