c009da4ff8
(CPP_SPECS): Define and use _ABI64 instead of _MIPS_SIM_ABI64. (SETUP_INCOMING_VARARGS): Set MEM_IN_STRUCT_P if big endian target. From-SVN: r9398
176 lines
6.5 KiB
C
176 lines
6.5 KiB
C
/* Definitions of target machine for GNU compiler. 64 bit ABI support.
|
|
Copyright (C) 1994 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, 675 Mass Ave, Cambridge, MA 02139, USA. */
|
|
|
|
/* Macros to implement the 64 bit ABI. This file is meant to be included
|
|
after mips.h. */
|
|
|
|
#undef ABI_64BIT
|
|
#define ABI_64BIT 1
|
|
|
|
/* For Irix 6, -mips3 implies TARGET_LONG64. */
|
|
#undef TARGET_LONG64
|
|
#define TARGET_LONG64 (target_flags & MASK_64BIT)
|
|
|
|
#undef CPP_PREDEFINES
|
|
#define CPP_PREDEFINES \
|
|
"-Dunix -Dmips -Dsgi -Dhost_mips -DMIPSEB -D_MIPSEB -DSYSTYPE_SVR4 \
|
|
-D_SVR4_SOURCE -D_MODERN_C -D__DSO__ \
|
|
-Asystem(unix) -Asystem(svr4) -Acpu(mips) -Amachine(sgi)"
|
|
|
|
/* We must make -mips3 do what -mlong64 used to do. */
|
|
#undef CPP_SPEC
|
|
#define CPP_SPEC "\
|
|
%{!ansi:-D__EXTENSIONS__ -D_SGI_SOURCE -D_LONGLONG} \
|
|
%{.cc: -D_LANGUAGE_C_PLUS_PLUS} \
|
|
%{.cxx: -D_LANGUAGE_C_PLUS_PLUS} \
|
|
%{.C: -D_LANGUAGE_C_PLUS_PLUS} \
|
|
%{.m: -D_LANGUAGE_OBJECTIVE_C -D_LANGUAGE_C} \
|
|
%{.S: -D_LANGUAGE_ASSEMBLY %{!ansi:-DLANGUAGE_ASSEMBLY}} \
|
|
%{.s: -D_LANGUAGE_ASSEMBLY %{!ansi:-DLANGUAGE_ASSEMBLY}} \
|
|
%{!.S:%{!.s: %{!.cc: %{!.cxx: %{!.C: %{!.m: -D_LANGUAGE_C %{!ansi:-DLANGUAGE_C}}}}}}}\
|
|
%{mfp32: -D_MIPS_FPSET=16}%{!mfp32: -D_MIPS_FPSET=32} \
|
|
%{mips1: -D_MIPS_ISA=_MIPS_ISA_MIPS1} \
|
|
%{mips2: -D_MIPS_ISA=_MIPS_ISA_MIPS2} \
|
|
%{mips3: -D_MIPS_ISA=_MIPS_ISA_MIPS3} \
|
|
%{mips4: -D_MIPS_ISA=_MIPS_ISA_MIPS4} \
|
|
%{!mips1: %{!mips2: %{!mips3: %{!mips4: -D_MIPS_ISA=_MIPS_ISA_MIPS4}}}} \
|
|
%{mips1: -D_MIPS_SIM=_MIPS_SIM_ABI32} \
|
|
%{mips2: -D_MIPS_SIM=_MIPS_SIM_ABI32} \
|
|
%{mips3: -D_ABI64=3 -D_MIPS_SIM=_ABI64} \
|
|
%{mips4: -D_ABI64=3 -D_MIPS_SIM=_ABI64} \
|
|
%{!mips1: %{!mips2: %{!mips3: %{!mips4: -D_ABI64=3 -D_MIPS_SIM=_ABI64}}}} \
|
|
%{!mint64: -D_MIPS_SZINT=32}%{mint64: -D_MIPS_SZINT=64} \
|
|
%{mips1: -D_MIPS_SZLONG=32}%{mips2: -D_MIPS_SZLONG=32} \
|
|
%{!mips1:%{!mips2: -D_MIPS_SZLONG=64}} \
|
|
%{mips1: -D_MIPS_SZPTR=32}%{mips2: -D_MIPS_SZPTR=32} \
|
|
%{mips3: -D_MIPS_SZPTR=64}%{mips4: -D_MIPS_SZPTR=64} \
|
|
%{!mips1: %{!mips2: %{!mips3: %{!mips4: -D_MIPS_SZPTR=64}}}} \
|
|
%{!mips1:%{!mips2: -D_COMPILER_VERSION=601}} \
|
|
%{mips1: -D__SIZE_TYPE__=unsigned\\ int -D__PTRDIFF_TYPE__=int} \
|
|
%{mips2: -D__SIZE_TYPE__=unsigned\\ int -D__PTRDIFF_TYPE__=int} \
|
|
%{!mips1:%{!mips2: -D__SIZE_TYPE__=long\\ unsigned\\ int -D__PTRDIFF_TYPE__=long\\ int}} \
|
|
%{mips3:-U__mips -D__mips=3} \
|
|
%{!mips1:%{!mips2:-U__mips -D__mips=4}}"
|
|
|
|
#undef EMPTY_FIELD_BOUNDARY
|
|
#define EMPTY_FIELD_BOUNDARY 32
|
|
|
|
#undef STACK_BOUNDARY
|
|
#define STACK_BOUNDARY 128
|
|
|
|
#undef MIPS_STACK_ALIGN
|
|
#define MIPS_STACK_ALIGN(LOC) (((LOC)+15) & ~15)
|
|
|
|
#undef GP_ARG_LAST
|
|
#define GP_ARG_LAST (mips_isa < 3 ? GP_REG_FIRST + 7 : GP_REG_FIRST + 11)
|
|
#undef FP_ARG_LAST
|
|
#define FP_ARG_LAST (mips_isa < 3 ? FP_REG_FIRST + 15 : FP_REG_FIRST + 19)
|
|
|
|
/* fp20-23 are now caller saved. */
|
|
#undef SUBTARGET_CONDITIONAL_REGISTER_USAGE
|
|
#define SUBTARGET_CONDITIONAL_REGISTER_USAGE \
|
|
{ \
|
|
if (mips_isa >= 3) \
|
|
{ \
|
|
int regno; \
|
|
for (regno = FP_REG_FIRST + 20; regno < FP_REG_FIRST + 24; regno++) \
|
|
call_used_regs[regno] = 1; \
|
|
} \
|
|
}
|
|
|
|
#undef MAX_ARGS_IN_REGISTERS
|
|
#define MAX_ARGS_IN_REGISTERS (mips_isa < 3 ? 4 : 8)
|
|
|
|
#undef REG_PARM_STACK_SPACE
|
|
#define REG_PARM_STACK_SPARC(FNDECL) \
|
|
(mips_abi < 3 \
|
|
? (MAX_ARGS_IN_REGISTERS*UNITS_PER_WORD) - FIRST_PARM_OFFSET (FNDECL) \
|
|
: 0)
|
|
|
|
#define FUNCTION_ARG_PADDING(MODE, TYPE) \
|
|
(! BYTES_BIG_ENDIAN \
|
|
? upward \
|
|
: (((MODE) == BLKmode \
|
|
? ((TYPE) && TREE_CODE (TYPE_SIZE (TYPE)) == INTEGER_CST \
|
|
&& int_size_in_bytes (TYPE) < (PARM_BOUNDARY / BITS_PER_UNIT))\
|
|
: (GET_MODE_BITSIZE (MODE) < PARM_BOUNDARY \
|
|
&& (mips_isa < 3 || GET_MODE_CLASS (MODE) == MODE_INT))) \
|
|
? downward : upward))
|
|
|
|
extern struct rtx_def *type_dependent_reg ();
|
|
#define TYPE_DEPENDENT_REG(REGNO, INDEX, TYPE) \
|
|
type_dependent_reg (REGNO, INDEX, TYPE)
|
|
|
|
#undef RETURN_IN_MEMORY
|
|
#define RETURN_IN_MEMORY(TYPE) \
|
|
(mips_isa < 3 ? TYPE_MODE (TYPE) == BLKmode : int_size_in_bytes (TYPE) > 16)
|
|
|
|
extern struct rtx_def *mips_function_value ();
|
|
#undef FUNCTION_VALUE
|
|
#define FUNCTION_VALUE(VALTYPE, FUNC) mips_function_value (VALTYPE, FUNC)
|
|
|
|
/* For varargs, we must save the current argument, because it is the fake
|
|
argument va_alist, and will need to be converted to the real argument.
|
|
For stdarg, we do not need to save the current argument, because it
|
|
is a real argument. */
|
|
#define SETUP_INCOMING_VARARGS(CUM,MODE,TYPE,PRETEND_SIZE,NO_RTL) \
|
|
{ if (mips_isa >= 3 && (CUM).arg_words < MAX_ARGS_IN_REGISTERS - 1) \
|
|
{ \
|
|
PRETEND_SIZE \
|
|
= (MAX_ARGS_IN_REGISTERS - (CUM).arg_words \
|
|
- ! current_function_varargs) * UNITS_PER_WORD; \
|
|
\
|
|
if (! (NO_RTL)) \
|
|
{ \
|
|
rtx mem = gen_rtx (MEM, BLKmode, \
|
|
plus_constant (virtual_incoming_args_rtx, \
|
|
- PRETEND_SIZE)); \
|
|
/* va_arg is an array access in this case, which causes it to \
|
|
get MEM_IN_STRUCT_P set. We must set it here so that the \
|
|
insn scheduler won't assume that these stores can't \
|
|
possibly overlap with the va_arg loads. */ \
|
|
if (BYTES_BIG_ENDIAN) \
|
|
MEM_IN_STRUCT_P (mem) = 1; \
|
|
move_block_from_reg \
|
|
((CUM).arg_words + GP_ARG_FIRST + ! current_function_varargs, \
|
|
mem, \
|
|
(MAX_ARGS_IN_REGISTERS - (CUM).arg_words \
|
|
- ! current_function_varargs), \
|
|
PRETEND_SIZE); \
|
|
} \
|
|
} \
|
|
}
|
|
|
|
#define STRICT_ARGUMENT_NAMING
|
|
|
|
/* ??? Unimplemented stuff follows. */
|
|
|
|
/* ??? Add support for 16 byte/128 bit long doubles here when
|
|
mips_isa >= 3. */
|
|
|
|
/* ??? Make main return zero if user did not specify return value. */
|
|
|
|
/* ??? Add support for .interfaces section, so as to get linker warnings
|
|
when stdarg functions called without prototype in scope? */
|
|
|
|
/* ??? Could optimize structure passing by putting the right register rtx
|
|
into the field decl, so that if we use the field, we can take the value from
|
|
a register instead of from memory. */
|
|
|