/* Subroutines for insn-output.c for VAX.
|
/* Subroutines for insn-output.c for VAX.
|
Copyright (C) 1987, 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002,
|
Copyright (C) 1987, 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002,
|
2004, 2005, 2007
|
2004, 2005, 2007
|
Free Software Foundation, Inc.
|
Free Software Foundation, Inc.
|
|
|
This file is part of GCC.
|
This file is part of GCC.
|
|
|
GCC is free software; you can redistribute it and/or modify
|
GCC is free software; you can redistribute it and/or modify
|
it under the terms of the GNU General Public License as published by
|
it under the terms of the GNU General Public License as published by
|
the Free Software Foundation; either version 3, or (at your option)
|
the Free Software Foundation; either version 3, or (at your option)
|
any later version.
|
any later version.
|
|
|
GCC is distributed in the hope that it will be useful,
|
GCC is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with GCC; see the file COPYING3. If not see
|
along with GCC; see the file COPYING3. If not see
|
<http://www.gnu.org/licenses/>. */
|
<http://www.gnu.org/licenses/>. */
|
|
|
#include "config.h"
|
#include "config.h"
|
#include "system.h"
|
#include "system.h"
|
#include "coretypes.h"
|
#include "coretypes.h"
|
#include "tm.h"
|
#include "tm.h"
|
#include "rtl.h"
|
#include "rtl.h"
|
#include "tree.h"
|
#include "tree.h"
|
#include "regs.h"
|
#include "regs.h"
|
#include "hard-reg-set.h"
|
#include "hard-reg-set.h"
|
#include "real.h"
|
#include "real.h"
|
#include "insn-config.h"
|
#include "insn-config.h"
|
#include "conditions.h"
|
#include "conditions.h"
|
#include "function.h"
|
#include "function.h"
|
#include "output.h"
|
#include "output.h"
|
#include "insn-attr.h"
|
#include "insn-attr.h"
|
#include "recog.h"
|
#include "recog.h"
|
#include "expr.h"
|
#include "expr.h"
|
#include "optabs.h"
|
#include "optabs.h"
|
#include "flags.h"
|
#include "flags.h"
|
#include "debug.h"
|
#include "debug.h"
|
#include "toplev.h"
|
#include "toplev.h"
|
#include "tm_p.h"
|
#include "tm_p.h"
|
#include "target.h"
|
#include "target.h"
|
#include "target-def.h"
|
#include "target-def.h"
|
|
|
static void vax_output_function_prologue (FILE *, HOST_WIDE_INT);
|
static void vax_output_function_prologue (FILE *, HOST_WIDE_INT);
|
static void vax_file_start (void);
|
static void vax_file_start (void);
|
static void vax_init_libfuncs (void);
|
static void vax_init_libfuncs (void);
|
static void vax_output_mi_thunk (FILE *, tree, HOST_WIDE_INT,
|
static void vax_output_mi_thunk (FILE *, tree, HOST_WIDE_INT,
|
HOST_WIDE_INT, tree);
|
HOST_WIDE_INT, tree);
|
static int vax_address_cost_1 (rtx);
|
static int vax_address_cost_1 (rtx);
|
static int vax_address_cost (rtx);
|
static int vax_address_cost (rtx);
|
static bool vax_rtx_costs (rtx, int, int, int *);
|
static bool vax_rtx_costs (rtx, int, int, int *);
|
static rtx vax_struct_value_rtx (tree, int);
|
static rtx vax_struct_value_rtx (tree, int);
|
|
|
/* Initialize the GCC target structure. */
|
/* Initialize the GCC target structure. */
|
#undef TARGET_ASM_ALIGNED_HI_OP
|
#undef TARGET_ASM_ALIGNED_HI_OP
|
#define TARGET_ASM_ALIGNED_HI_OP "\t.word\t"
|
#define TARGET_ASM_ALIGNED_HI_OP "\t.word\t"
|
|
|
#undef TARGET_ASM_FUNCTION_PROLOGUE
|
#undef TARGET_ASM_FUNCTION_PROLOGUE
|
#define TARGET_ASM_FUNCTION_PROLOGUE vax_output_function_prologue
|
#define TARGET_ASM_FUNCTION_PROLOGUE vax_output_function_prologue
|
|
|
#undef TARGET_ASM_FILE_START
|
#undef TARGET_ASM_FILE_START
|
#define TARGET_ASM_FILE_START vax_file_start
|
#define TARGET_ASM_FILE_START vax_file_start
|
#undef TARGET_ASM_FILE_START_APP_OFF
|
#undef TARGET_ASM_FILE_START_APP_OFF
|
#define TARGET_ASM_FILE_START_APP_OFF true
|
#define TARGET_ASM_FILE_START_APP_OFF true
|
|
|
#undef TARGET_INIT_LIBFUNCS
|
#undef TARGET_INIT_LIBFUNCS
|
#define TARGET_INIT_LIBFUNCS vax_init_libfuncs
|
#define TARGET_INIT_LIBFUNCS vax_init_libfuncs
|
|
|
#undef TARGET_ASM_OUTPUT_MI_THUNK
|
#undef TARGET_ASM_OUTPUT_MI_THUNK
|
#define TARGET_ASM_OUTPUT_MI_THUNK vax_output_mi_thunk
|
#define TARGET_ASM_OUTPUT_MI_THUNK vax_output_mi_thunk
|
#undef TARGET_ASM_CAN_OUTPUT_MI_THUNK
|
#undef TARGET_ASM_CAN_OUTPUT_MI_THUNK
|
#define TARGET_ASM_CAN_OUTPUT_MI_THUNK default_can_output_mi_thunk_no_vcall
|
#define TARGET_ASM_CAN_OUTPUT_MI_THUNK default_can_output_mi_thunk_no_vcall
|
|
|
#undef TARGET_DEFAULT_TARGET_FLAGS
|
#undef TARGET_DEFAULT_TARGET_FLAGS
|
#define TARGET_DEFAULT_TARGET_FLAGS TARGET_DEFAULT
|
#define TARGET_DEFAULT_TARGET_FLAGS TARGET_DEFAULT
|
|
|
#undef TARGET_RTX_COSTS
|
#undef TARGET_RTX_COSTS
|
#define TARGET_RTX_COSTS vax_rtx_costs
|
#define TARGET_RTX_COSTS vax_rtx_costs
|
#undef TARGET_ADDRESS_COST
|
#undef TARGET_ADDRESS_COST
|
#define TARGET_ADDRESS_COST vax_address_cost
|
#define TARGET_ADDRESS_COST vax_address_cost
|
|
|
#undef TARGET_PROMOTE_PROTOTYPES
|
#undef TARGET_PROMOTE_PROTOTYPES
|
#define TARGET_PROMOTE_PROTOTYPES hook_bool_tree_true
|
#define TARGET_PROMOTE_PROTOTYPES hook_bool_tree_true
|
|
|
#undef TARGET_STRUCT_VALUE_RTX
|
#undef TARGET_STRUCT_VALUE_RTX
|
#define TARGET_STRUCT_VALUE_RTX vax_struct_value_rtx
|
#define TARGET_STRUCT_VALUE_RTX vax_struct_value_rtx
|
|
|
struct gcc_target targetm = TARGET_INITIALIZER;
|
struct gcc_target targetm = TARGET_INITIALIZER;
|
|
|
/* Set global variables as needed for the options enabled. */
|
/* Set global variables as needed for the options enabled. */
|
|
|
void
|
void
|
override_options (void)
|
override_options (void)
|
{
|
{
|
/* We're VAX floating point, not IEEE floating point. */
|
/* We're VAX floating point, not IEEE floating point. */
|
if (TARGET_G_FLOAT)
|
if (TARGET_G_FLOAT)
|
REAL_MODE_FORMAT (DFmode) = &vax_g_format;
|
REAL_MODE_FORMAT (DFmode) = &vax_g_format;
|
}
|
}
|
|
|
/* Generate the assembly code for function entry. FILE is a stdio
|
/* Generate the assembly code for function entry. FILE is a stdio
|
stream to output the code to. SIZE is an int: how many units of
|
stream to output the code to. SIZE is an int: how many units of
|
temporary storage to allocate.
|
temporary storage to allocate.
|
|
|
Refer to the array `regs_ever_live' to determine which registers to
|
Refer to the array `regs_ever_live' to determine which registers to
|
save; `regs_ever_live[I]' is nonzero if register number I is ever
|
save; `regs_ever_live[I]' is nonzero if register number I is ever
|
used in the function. This function is responsible for knowing
|
used in the function. This function is responsible for knowing
|
which registers should not be saved even if used. */
|
which registers should not be saved even if used. */
|
|
|
static void
|
static void
|
vax_output_function_prologue (FILE * file, HOST_WIDE_INT size)
|
vax_output_function_prologue (FILE * file, HOST_WIDE_INT size)
|
{
|
{
|
int regno;
|
int regno;
|
int mask = 0;
|
int mask = 0;
|
|
|
for (regno = 0; regno < FIRST_PSEUDO_REGISTER; regno++)
|
for (regno = 0; regno < FIRST_PSEUDO_REGISTER; regno++)
|
if (regs_ever_live[regno] && !call_used_regs[regno])
|
if (regs_ever_live[regno] && !call_used_regs[regno])
|
mask |= 1 << regno;
|
mask |= 1 << regno;
|
|
|
fprintf (file, "\t.word 0x%x\n", mask);
|
fprintf (file, "\t.word 0x%x\n", mask);
|
|
|
if (dwarf2out_do_frame ())
|
if (dwarf2out_do_frame ())
|
{
|
{
|
const char *label = dwarf2out_cfi_label ();
|
const char *label = dwarf2out_cfi_label ();
|
int offset = 0;
|
int offset = 0;
|
|
|
for (regno = FIRST_PSEUDO_REGISTER-1; regno >= 0; --regno)
|
for (regno = FIRST_PSEUDO_REGISTER-1; regno >= 0; --regno)
|
if (regs_ever_live[regno] && !call_used_regs[regno])
|
if (regs_ever_live[regno] && !call_used_regs[regno])
|
dwarf2out_reg_save (label, regno, offset -= 4);
|
dwarf2out_reg_save (label, regno, offset -= 4);
|
|
|
dwarf2out_reg_save (label, PC_REGNUM, offset -= 4);
|
dwarf2out_reg_save (label, PC_REGNUM, offset -= 4);
|
dwarf2out_reg_save (label, FRAME_POINTER_REGNUM, offset -= 4);
|
dwarf2out_reg_save (label, FRAME_POINTER_REGNUM, offset -= 4);
|
dwarf2out_reg_save (label, ARG_POINTER_REGNUM, offset -= 4);
|
dwarf2out_reg_save (label, ARG_POINTER_REGNUM, offset -= 4);
|
dwarf2out_def_cfa (label, FRAME_POINTER_REGNUM, -(offset - 4));
|
dwarf2out_def_cfa (label, FRAME_POINTER_REGNUM, -(offset - 4));
|
}
|
}
|
|
|
size -= STARTING_FRAME_OFFSET;
|
size -= STARTING_FRAME_OFFSET;
|
if (size >= 64)
|
if (size >= 64)
|
asm_fprintf (file, "\tmovab %wd(%Rsp),%Rsp\n", -size);
|
asm_fprintf (file, "\tmovab %wd(%Rsp),%Rsp\n", -size);
|
else if (size)
|
else if (size)
|
asm_fprintf (file, "\tsubl2 $%wd,%Rsp\n", size);
|
asm_fprintf (file, "\tsubl2 $%wd,%Rsp\n", size);
|
}
|
}
|
|
|
/* When debugging with stabs, we want to output an extra dummy label
|
/* When debugging with stabs, we want to output an extra dummy label
|
so that gas can distinguish between D_float and G_float prior to
|
so that gas can distinguish between D_float and G_float prior to
|
processing the .stabs directive identifying type double. */
|
processing the .stabs directive identifying type double. */
|
static void
|
static void
|
vax_file_start (void)
|
vax_file_start (void)
|
{
|
{
|
default_file_start ();
|
default_file_start ();
|
|
|
if (write_symbols == DBX_DEBUG)
|
if (write_symbols == DBX_DEBUG)
|
fprintf (asm_out_file, "___vax_%c_doubles:\n", ASM_DOUBLE_CHAR);
|
fprintf (asm_out_file, "___vax_%c_doubles:\n", ASM_DOUBLE_CHAR);
|
}
|
}
|
|
|
/* We can use the BSD C library routines for the libgcc calls that are
|
/* We can use the BSD C library routines for the libgcc calls that are
|
still generated, since that's what they boil down to anyways. When
|
still generated, since that's what they boil down to anyways. When
|
ELF, avoid the user's namespace. */
|
ELF, avoid the user's namespace. */
|
|
|
static void
|
static void
|
vax_init_libfuncs (void)
|
vax_init_libfuncs (void)
|
{
|
{
|
set_optab_libfunc (udiv_optab, SImode, TARGET_ELF ? "*__udiv" : "*udiv");
|
set_optab_libfunc (udiv_optab, SImode, TARGET_ELF ? "*__udiv" : "*udiv");
|
set_optab_libfunc (umod_optab, SImode, TARGET_ELF ? "*__urem" : "*urem");
|
set_optab_libfunc (umod_optab, SImode, TARGET_ELF ? "*__urem" : "*urem");
|
}
|
}
|
|
|
/* This is like nonimmediate_operand with a restriction on the type of MEM. */
|
/* This is like nonimmediate_operand with a restriction on the type of MEM. */
|
|
|
void
|
void
|
split_quadword_operands (rtx * operands, rtx * low, int n ATTRIBUTE_UNUSED)
|
split_quadword_operands (rtx * operands, rtx * low, int n ATTRIBUTE_UNUSED)
|
{
|
{
|
int i;
|
int i;
|
/* Split operands. */
|
/* Split operands. */
|
|
|
low[0] = low[1] = low[2] = 0;
|
low[0] = low[1] = low[2] = 0;
|
for (i = 0; i < 3; i++)
|
for (i = 0; i < 3; i++)
|
{
|
{
|
if (low[i])
|
if (low[i])
|
/* it's already been figured out */;
|
/* it's already been figured out */;
|
else if (MEM_P (operands[i])
|
else if (MEM_P (operands[i])
|
&& (GET_CODE (XEXP (operands[i], 0)) == POST_INC))
|
&& (GET_CODE (XEXP (operands[i], 0)) == POST_INC))
|
{
|
{
|
rtx addr = XEXP (operands[i], 0);
|
rtx addr = XEXP (operands[i], 0);
|
operands[i] = low[i] = gen_rtx_MEM (SImode, addr);
|
operands[i] = low[i] = gen_rtx_MEM (SImode, addr);
|
if (which_alternative == 0 && i == 0)
|
if (which_alternative == 0 && i == 0)
|
{
|
{
|
addr = XEXP (operands[i], 0);
|
addr = XEXP (operands[i], 0);
|
operands[i+1] = low[i+1] = gen_rtx_MEM (SImode, addr);
|
operands[i+1] = low[i+1] = gen_rtx_MEM (SImode, addr);
|
}
|
}
|
}
|
}
|
else
|
else
|
{
|
{
|
low[i] = operand_subword (operands[i], 0, 0, DImode);
|
low[i] = operand_subword (operands[i], 0, 0, DImode);
|
operands[i] = operand_subword (operands[i], 1, 0, DImode);
|
operands[i] = operand_subword (operands[i], 1, 0, DImode);
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
void
|
void
|
print_operand_address (FILE * file, rtx addr)
|
print_operand_address (FILE * file, rtx addr)
|
{
|
{
|
rtx reg1, breg, ireg;
|
rtx reg1, breg, ireg;
|
rtx offset;
|
rtx offset;
|
|
|
retry:
|
retry:
|
switch (GET_CODE (addr))
|
switch (GET_CODE (addr))
|
{
|
{
|
case MEM:
|
case MEM:
|
fprintf (file, "*");
|
fprintf (file, "*");
|
addr = XEXP (addr, 0);
|
addr = XEXP (addr, 0);
|
goto retry;
|
goto retry;
|
|
|
case REG:
|
case REG:
|
fprintf (file, "(%s)", reg_names[REGNO (addr)]);
|
fprintf (file, "(%s)", reg_names[REGNO (addr)]);
|
break;
|
break;
|
|
|
case PRE_DEC:
|
case PRE_DEC:
|
fprintf (file, "-(%s)", reg_names[REGNO (XEXP (addr, 0))]);
|
fprintf (file, "-(%s)", reg_names[REGNO (XEXP (addr, 0))]);
|
break;
|
break;
|
|
|
case POST_INC:
|
case POST_INC:
|
fprintf (file, "(%s)+", reg_names[REGNO (XEXP (addr, 0))]);
|
fprintf (file, "(%s)+", reg_names[REGNO (XEXP (addr, 0))]);
|
break;
|
break;
|
|
|
case PLUS:
|
case PLUS:
|
/* There can be either two or three things added here. One must be a
|
/* There can be either two or three things added here. One must be a
|
REG. One can be either a REG or a MULT of a REG and an appropriate
|
REG. One can be either a REG or a MULT of a REG and an appropriate
|
constant, and the third can only be a constant or a MEM.
|
constant, and the third can only be a constant or a MEM.
|
|
|
We get these two or three things and put the constant or MEM in
|
We get these two or three things and put the constant or MEM in
|
OFFSET, the MULT or REG in IREG, and the REG in BREG. If we have
|
OFFSET, the MULT or REG in IREG, and the REG in BREG. If we have
|
a register and can't tell yet if it is a base or index register,
|
a register and can't tell yet if it is a base or index register,
|
put it into REG1. */
|
put it into REG1. */
|
|
|
reg1 = 0; ireg = 0; breg = 0; offset = 0;
|
reg1 = 0; ireg = 0; breg = 0; offset = 0;
|
|
|
if (CONSTANT_ADDRESS_P (XEXP (addr, 0))
|
if (CONSTANT_ADDRESS_P (XEXP (addr, 0))
|
|| MEM_P (XEXP (addr, 0)))
|
|| MEM_P (XEXP (addr, 0)))
|
{
|
{
|
offset = XEXP (addr, 0);
|
offset = XEXP (addr, 0);
|
addr = XEXP (addr, 1);
|
addr = XEXP (addr, 1);
|
}
|
}
|
else if (CONSTANT_ADDRESS_P (XEXP (addr, 1))
|
else if (CONSTANT_ADDRESS_P (XEXP (addr, 1))
|
|| MEM_P (XEXP (addr, 1)))
|
|| MEM_P (XEXP (addr, 1)))
|
{
|
{
|
offset = XEXP (addr, 1);
|
offset = XEXP (addr, 1);
|
addr = XEXP (addr, 0);
|
addr = XEXP (addr, 0);
|
}
|
}
|
else if (GET_CODE (XEXP (addr, 1)) == MULT)
|
else if (GET_CODE (XEXP (addr, 1)) == MULT)
|
{
|
{
|
ireg = XEXP (addr, 1);
|
ireg = XEXP (addr, 1);
|
addr = XEXP (addr, 0);
|
addr = XEXP (addr, 0);
|
}
|
}
|
else if (GET_CODE (XEXP (addr, 0)) == MULT)
|
else if (GET_CODE (XEXP (addr, 0)) == MULT)
|
{
|
{
|
ireg = XEXP (addr, 0);
|
ireg = XEXP (addr, 0);
|
addr = XEXP (addr, 1);
|
addr = XEXP (addr, 1);
|
}
|
}
|
else if (REG_P (XEXP (addr, 1)))
|
else if (REG_P (XEXP (addr, 1)))
|
{
|
{
|
reg1 = XEXP (addr, 1);
|
reg1 = XEXP (addr, 1);
|
addr = XEXP (addr, 0);
|
addr = XEXP (addr, 0);
|
}
|
}
|
else if (REG_P (XEXP (addr, 0)))
|
else if (REG_P (XEXP (addr, 0)))
|
{
|
{
|
reg1 = XEXP (addr, 0);
|
reg1 = XEXP (addr, 0);
|
addr = XEXP (addr, 1);
|
addr = XEXP (addr, 1);
|
}
|
}
|
else
|
else
|
gcc_unreachable ();
|
gcc_unreachable ();
|
|
|
if (REG_P (addr))
|
if (REG_P (addr))
|
{
|
{
|
if (reg1)
|
if (reg1)
|
ireg = addr;
|
ireg = addr;
|
else
|
else
|
reg1 = addr;
|
reg1 = addr;
|
}
|
}
|
else if (GET_CODE (addr) == MULT)
|
else if (GET_CODE (addr) == MULT)
|
ireg = addr;
|
ireg = addr;
|
else
|
else
|
{
|
{
|
gcc_assert (GET_CODE (addr) == PLUS);
|
gcc_assert (GET_CODE (addr) == PLUS);
|
if (CONSTANT_ADDRESS_P (XEXP (addr, 0))
|
if (CONSTANT_ADDRESS_P (XEXP (addr, 0))
|
|| MEM_P (XEXP (addr, 0)))
|
|| MEM_P (XEXP (addr, 0)))
|
{
|
{
|
if (offset)
|
if (offset)
|
{
|
{
|
if (CONST_INT_P (offset))
|
if (CONST_INT_P (offset))
|
offset = plus_constant (XEXP (addr, 0), INTVAL (offset));
|
offset = plus_constant (XEXP (addr, 0), INTVAL (offset));
|
else
|
else
|
{
|
{
|
gcc_assert (CONST_INT_P (XEXP (addr, 0)));
|
gcc_assert (CONST_INT_P (XEXP (addr, 0)));
|
offset = plus_constant (offset, INTVAL (XEXP (addr, 0)));
|
offset = plus_constant (offset, INTVAL (XEXP (addr, 0)));
|
}
|
}
|
}
|
}
|
offset = XEXP (addr, 0);
|
offset = XEXP (addr, 0);
|
}
|
}
|
else if (REG_P (XEXP (addr, 0)))
|
else if (REG_P (XEXP (addr, 0)))
|
{
|
{
|
if (reg1)
|
if (reg1)
|
ireg = reg1, breg = XEXP (addr, 0), reg1 = 0;
|
ireg = reg1, breg = XEXP (addr, 0), reg1 = 0;
|
else
|
else
|
reg1 = XEXP (addr, 0);
|
reg1 = XEXP (addr, 0);
|
}
|
}
|
else
|
else
|
{
|
{
|
gcc_assert (GET_CODE (XEXP (addr, 0)) == MULT);
|
gcc_assert (GET_CODE (XEXP (addr, 0)) == MULT);
|
gcc_assert (!ireg);
|
gcc_assert (!ireg);
|
ireg = XEXP (addr, 0);
|
ireg = XEXP (addr, 0);
|
}
|
}
|
|
|
if (CONSTANT_ADDRESS_P (XEXP (addr, 1))
|
if (CONSTANT_ADDRESS_P (XEXP (addr, 1))
|
|| MEM_P (XEXP (addr, 1)))
|
|| MEM_P (XEXP (addr, 1)))
|
{
|
{
|
if (offset)
|
if (offset)
|
{
|
{
|
if (CONST_INT_P (offset))
|
if (CONST_INT_P (offset))
|
offset = plus_constant (XEXP (addr, 1), INTVAL (offset));
|
offset = plus_constant (XEXP (addr, 1), INTVAL (offset));
|
else
|
else
|
{
|
{
|
gcc_assert (CONST_INT_P (XEXP (addr, 1)));
|
gcc_assert (CONST_INT_P (XEXP (addr, 1)));
|
offset = plus_constant (offset, INTVAL (XEXP (addr, 1)));
|
offset = plus_constant (offset, INTVAL (XEXP (addr, 1)));
|
}
|
}
|
}
|
}
|
offset = XEXP (addr, 1);
|
offset = XEXP (addr, 1);
|
}
|
}
|
else if (REG_P (XEXP (addr, 1)))
|
else if (REG_P (XEXP (addr, 1)))
|
{
|
{
|
if (reg1)
|
if (reg1)
|
ireg = reg1, breg = XEXP (addr, 1), reg1 = 0;
|
ireg = reg1, breg = XEXP (addr, 1), reg1 = 0;
|
else
|
else
|
reg1 = XEXP (addr, 1);
|
reg1 = XEXP (addr, 1);
|
}
|
}
|
else
|
else
|
{
|
{
|
gcc_assert (GET_CODE (XEXP (addr, 1)) == MULT);
|
gcc_assert (GET_CODE (XEXP (addr, 1)) == MULT);
|
gcc_assert (!ireg);
|
gcc_assert (!ireg);
|
ireg = XEXP (addr, 1);
|
ireg = XEXP (addr, 1);
|
}
|
}
|
}
|
}
|
|
|
/* If REG1 is nonzero, figure out if it is a base or index register. */
|
/* If REG1 is nonzero, figure out if it is a base or index register. */
|
if (reg1)
|
if (reg1)
|
{
|
{
|
if (breg != 0 || (offset && MEM_P (offset)))
|
if (breg != 0 || (offset && MEM_P (offset)))
|
{
|
{
|
gcc_assert (!ireg);
|
gcc_assert (!ireg);
|
ireg = reg1;
|
ireg = reg1;
|
}
|
}
|
else
|
else
|
breg = reg1;
|
breg = reg1;
|
}
|
}
|
|
|
if (offset != 0)
|
if (offset != 0)
|
output_address (offset);
|
output_address (offset);
|
|
|
if (breg != 0)
|
if (breg != 0)
|
fprintf (file, "(%s)", reg_names[REGNO (breg)]);
|
fprintf (file, "(%s)", reg_names[REGNO (breg)]);
|
|
|
if (ireg != 0)
|
if (ireg != 0)
|
{
|
{
|
if (GET_CODE (ireg) == MULT)
|
if (GET_CODE (ireg) == MULT)
|
ireg = XEXP (ireg, 0);
|
ireg = XEXP (ireg, 0);
|
gcc_assert (REG_P (ireg));
|
gcc_assert (REG_P (ireg));
|
fprintf (file, "[%s]", reg_names[REGNO (ireg)]);
|
fprintf (file, "[%s]", reg_names[REGNO (ireg)]);
|
}
|
}
|
break;
|
break;
|
|
|
default:
|
default:
|
output_addr_const (file, addr);
|
output_addr_const (file, addr);
|
}
|
}
|
}
|
}
|
|
|
const char *
|
const char *
|
rev_cond_name (rtx op)
|
rev_cond_name (rtx op)
|
{
|
{
|
switch (GET_CODE (op))
|
switch (GET_CODE (op))
|
{
|
{
|
case EQ:
|
case EQ:
|
return "neq";
|
return "neq";
|
case NE:
|
case NE:
|
return "eql";
|
return "eql";
|
case LT:
|
case LT:
|
return "geq";
|
return "geq";
|
case LE:
|
case LE:
|
return "gtr";
|
return "gtr";
|
case GT:
|
case GT:
|
return "leq";
|
return "leq";
|
case GE:
|
case GE:
|
return "lss";
|
return "lss";
|
case LTU:
|
case LTU:
|
return "gequ";
|
return "gequ";
|
case LEU:
|
case LEU:
|
return "gtru";
|
return "gtru";
|
case GTU:
|
case GTU:
|
return "lequ";
|
return "lequ";
|
case GEU:
|
case GEU:
|
return "lssu";
|
return "lssu";
|
|
|
default:
|
default:
|
gcc_unreachable ();
|
gcc_unreachable ();
|
}
|
}
|
}
|
}
|
|
|
int
|
int
|
vax_float_literal(rtx c)
|
vax_float_literal(rtx c)
|
{
|
{
|
enum machine_mode mode;
|
enum machine_mode mode;
|
REAL_VALUE_TYPE r, s;
|
REAL_VALUE_TYPE r, s;
|
int i;
|
int i;
|
|
|
if (GET_CODE (c) != CONST_DOUBLE)
|
if (GET_CODE (c) != CONST_DOUBLE)
|
return 0;
|
return 0;
|
|
|
mode = GET_MODE (c);
|
mode = GET_MODE (c);
|
|
|
if (c == const_tiny_rtx[(int) mode][0]
|
if (c == const_tiny_rtx[(int) mode][0]
|
|| c == const_tiny_rtx[(int) mode][1]
|
|| c == const_tiny_rtx[(int) mode][1]
|
|| c == const_tiny_rtx[(int) mode][2])
|
|| c == const_tiny_rtx[(int) mode][2])
|
return 1;
|
return 1;
|
|
|
REAL_VALUE_FROM_CONST_DOUBLE (r, c);
|
REAL_VALUE_FROM_CONST_DOUBLE (r, c);
|
|
|
for (i = 0; i < 7; i++)
|
for (i = 0; i < 7; i++)
|
{
|
{
|
int x = 1 << i;
|
int x = 1 << i;
|
bool ok;
|
bool ok;
|
REAL_VALUE_FROM_INT (s, x, 0, mode);
|
REAL_VALUE_FROM_INT (s, x, 0, mode);
|
|
|
if (REAL_VALUES_EQUAL (r, s))
|
if (REAL_VALUES_EQUAL (r, s))
|
return 1;
|
return 1;
|
ok = exact_real_inverse (mode, &s);
|
ok = exact_real_inverse (mode, &s);
|
gcc_assert (ok);
|
gcc_assert (ok);
|
if (REAL_VALUES_EQUAL (r, s))
|
if (REAL_VALUES_EQUAL (r, s))
|
return 1;
|
return 1;
|
}
|
}
|
return 0;
|
return 0;
|
}
|
}
|
|
|
|
|
/* Return the cost in cycles of a memory address, relative to register
|
/* Return the cost in cycles of a memory address, relative to register
|
indirect.
|
indirect.
|
|
|
Each of the following adds the indicated number of cycles:
|
Each of the following adds the indicated number of cycles:
|
|
|
1 - symbolic address
|
1 - symbolic address
|
1 - pre-decrement
|
1 - pre-decrement
|
1 - indexing and/or offset(register)
|
1 - indexing and/or offset(register)
|
2 - indirect */
|
2 - indirect */
|
|
|
|
|
static int
|
static int
|
vax_address_cost_1 (rtx addr)
|
vax_address_cost_1 (rtx addr)
|
{
|
{
|
int reg = 0, indexed = 0, indir = 0, offset = 0, predec = 0;
|
int reg = 0, indexed = 0, indir = 0, offset = 0, predec = 0;
|
rtx plus_op0 = 0, plus_op1 = 0;
|
rtx plus_op0 = 0, plus_op1 = 0;
|
restart:
|
restart:
|
switch (GET_CODE (addr))
|
switch (GET_CODE (addr))
|
{
|
{
|
case PRE_DEC:
|
case PRE_DEC:
|
predec = 1;
|
predec = 1;
|
case REG:
|
case REG:
|
case SUBREG:
|
case SUBREG:
|
case POST_INC:
|
case POST_INC:
|
reg = 1;
|
reg = 1;
|
break;
|
break;
|
case MULT:
|
case MULT:
|
indexed = 1; /* 2 on VAX 2 */
|
indexed = 1; /* 2 on VAX 2 */
|
break;
|
break;
|
case CONST_INT:
|
case CONST_INT:
|
/* byte offsets cost nothing (on a VAX 2, they cost 1 cycle) */
|
/* byte offsets cost nothing (on a VAX 2, they cost 1 cycle) */
|
if (offset == 0)
|
if (offset == 0)
|
offset = (unsigned HOST_WIDE_INT)(INTVAL(addr)+128) > 256;
|
offset = (unsigned HOST_WIDE_INT)(INTVAL(addr)+128) > 256;
|
break;
|
break;
|
case CONST:
|
case CONST:
|
case SYMBOL_REF:
|
case SYMBOL_REF:
|
offset = 1; /* 2 on VAX 2 */
|
offset = 1; /* 2 on VAX 2 */
|
break;
|
break;
|
case LABEL_REF: /* this is probably a byte offset from the pc */
|
case LABEL_REF: /* this is probably a byte offset from the pc */
|
if (offset == 0)
|
if (offset == 0)
|
offset = 1;
|
offset = 1;
|
break;
|
break;
|
case PLUS:
|
case PLUS:
|
if (plus_op0)
|
if (plus_op0)
|
plus_op1 = XEXP (addr, 0);
|
plus_op1 = XEXP (addr, 0);
|
else
|
else
|
plus_op0 = XEXP (addr, 0);
|
plus_op0 = XEXP (addr, 0);
|
addr = XEXP (addr, 1);
|
addr = XEXP (addr, 1);
|
goto restart;
|
goto restart;
|
case MEM:
|
case MEM:
|
indir = 2; /* 3 on VAX 2 */
|
indir = 2; /* 3 on VAX 2 */
|
addr = XEXP (addr, 0);
|
addr = XEXP (addr, 0);
|
goto restart;
|
goto restart;
|
default:
|
default:
|
break;
|
break;
|
}
|
}
|
|
|
/* Up to 3 things can be added in an address. They are stored in
|
/* Up to 3 things can be added in an address. They are stored in
|
plus_op0, plus_op1, and addr. */
|
plus_op0, plus_op1, and addr. */
|
|
|
if (plus_op0)
|
if (plus_op0)
|
{
|
{
|
addr = plus_op0;
|
addr = plus_op0;
|
plus_op0 = 0;
|
plus_op0 = 0;
|
goto restart;
|
goto restart;
|
}
|
}
|
if (plus_op1)
|
if (plus_op1)
|
{
|
{
|
addr = plus_op1;
|
addr = plus_op1;
|
plus_op1 = 0;
|
plus_op1 = 0;
|
goto restart;
|
goto restart;
|
}
|
}
|
/* Indexing and register+offset can both be used (except on a VAX 2)
|
/* Indexing and register+offset can both be used (except on a VAX 2)
|
without increasing execution time over either one alone. */
|
without increasing execution time over either one alone. */
|
if (reg && indexed && offset)
|
if (reg && indexed && offset)
|
return reg + indir + offset + predec;
|
return reg + indir + offset + predec;
|
return reg + indexed + indir + offset + predec;
|
return reg + indexed + indir + offset + predec;
|
}
|
}
|
|
|
static int
|
static int
|
vax_address_cost (rtx x)
|
vax_address_cost (rtx x)
|
{
|
{
|
return (1 + (REG_P (x) ? 0 : vax_address_cost_1 (x)));
|
return (1 + (REG_P (x) ? 0 : vax_address_cost_1 (x)));
|
}
|
}
|
|
|
/* Cost of an expression on a VAX. This version has costs tuned for the
|
/* Cost of an expression on a VAX. This version has costs tuned for the
|
CVAX chip (found in the VAX 3 series) with comments for variations on
|
CVAX chip (found in the VAX 3 series) with comments for variations on
|
other models.
|
other models.
|
|
|
FIXME: The costs need review, particularly for TRUNCATE, FLOAT_EXTEND
|
FIXME: The costs need review, particularly for TRUNCATE, FLOAT_EXTEND
|
and FLOAT_TRUNCATE. We need a -mcpu option to allow provision of
|
and FLOAT_TRUNCATE. We need a -mcpu option to allow provision of
|
costs on a per cpu basis. */
|
costs on a per cpu basis. */
|
|
|
static bool
|
static bool
|
vax_rtx_costs (rtx x, int code, int outer_code, int *total)
|
vax_rtx_costs (rtx x, int code, int outer_code, int *total)
|
{
|
{
|
enum machine_mode mode = GET_MODE (x);
|
enum machine_mode mode = GET_MODE (x);
|
int i = 0; /* may be modified in switch */
|
int i = 0; /* may be modified in switch */
|
const char *fmt = GET_RTX_FORMAT (code); /* may be modified in switch */
|
const char *fmt = GET_RTX_FORMAT (code); /* may be modified in switch */
|
|
|
switch (code)
|
switch (code)
|
{
|
{
|
/* On a VAX, constants from 0..63 are cheap because they can use the
|
/* On a VAX, constants from 0..63 are cheap because they can use the
|
1 byte literal constant format. Compare to -1 should be made cheap
|
1 byte literal constant format. Compare to -1 should be made cheap
|
so that decrement-and-branch insns can be formed more easily (if
|
so that decrement-and-branch insns can be formed more easily (if
|
the value -1 is copied to a register some decrement-and-branch
|
the value -1 is copied to a register some decrement-and-branch
|
patterns will not match). */
|
patterns will not match). */
|
case CONST_INT:
|
case CONST_INT:
|
if (INTVAL (x) == 0)
|
if (INTVAL (x) == 0)
|
return true;
|
return true;
|
if (outer_code == AND)
|
if (outer_code == AND)
|
{
|
{
|
*total = ((unsigned HOST_WIDE_INT) ~INTVAL (x) <= 077) ? 1 : 2;
|
*total = ((unsigned HOST_WIDE_INT) ~INTVAL (x) <= 077) ? 1 : 2;
|
return true;
|
return true;
|
}
|
}
|
if ((unsigned HOST_WIDE_INT) INTVAL (x) <= 077
|
if ((unsigned HOST_WIDE_INT) INTVAL (x) <= 077
|
|| (outer_code == COMPARE
|
|| (outer_code == COMPARE
|
&& INTVAL (x) == -1)
|
&& INTVAL (x) == -1)
|
|| ((outer_code == PLUS || outer_code == MINUS)
|
|| ((outer_code == PLUS || outer_code == MINUS)
|
&& (unsigned HOST_WIDE_INT) -INTVAL (x) <= 077))
|
&& (unsigned HOST_WIDE_INT) -INTVAL (x) <= 077))
|
{
|
{
|
*total = 1;
|
*total = 1;
|
return true;
|
return true;
|
}
|
}
|
/* FALLTHRU */
|
/* FALLTHRU */
|
|
|
case CONST:
|
case CONST:
|
case LABEL_REF:
|
case LABEL_REF:
|
case SYMBOL_REF:
|
case SYMBOL_REF:
|
*total = 3;
|
*total = 3;
|
return true;
|
return true;
|
|
|
case CONST_DOUBLE:
|
case CONST_DOUBLE:
|
if (GET_MODE_CLASS (GET_MODE (x)) == MODE_FLOAT)
|
if (GET_MODE_CLASS (GET_MODE (x)) == MODE_FLOAT)
|
*total = vax_float_literal (x) ? 5 : 8;
|
*total = vax_float_literal (x) ? 5 : 8;
|
else
|
else
|
*total = ((CONST_DOUBLE_HIGH (x) == 0
|
*total = ((CONST_DOUBLE_HIGH (x) == 0
|
&& (unsigned HOST_WIDE_INT) CONST_DOUBLE_LOW (x) < 64)
|
&& (unsigned HOST_WIDE_INT) CONST_DOUBLE_LOW (x) < 64)
|
|| (outer_code == PLUS
|
|| (outer_code == PLUS
|
&& CONST_DOUBLE_HIGH (x) == -1
|
&& CONST_DOUBLE_HIGH (x) == -1
|
&& (unsigned HOST_WIDE_INT)-CONST_DOUBLE_LOW (x) < 64))
|
&& (unsigned HOST_WIDE_INT)-CONST_DOUBLE_LOW (x) < 64))
|
? 2 : 5;
|
? 2 : 5;
|
return true;
|
return true;
|
|
|
case POST_INC:
|
case POST_INC:
|
*total = 2;
|
*total = 2;
|
return true; /* Implies register operand. */
|
return true; /* Implies register operand. */
|
|
|
case PRE_DEC:
|
case PRE_DEC:
|
*total = 3;
|
*total = 3;
|
return true; /* Implies register operand. */
|
return true; /* Implies register operand. */
|
|
|
case MULT:
|
case MULT:
|
switch (mode)
|
switch (mode)
|
{
|
{
|
case DFmode:
|
case DFmode:
|
*total = 16; /* 4 on VAX 9000 */
|
*total = 16; /* 4 on VAX 9000 */
|
break;
|
break;
|
case SFmode:
|
case SFmode:
|
*total = 9; /* 4 on VAX 9000, 12 on VAX 2 */
|
*total = 9; /* 4 on VAX 9000, 12 on VAX 2 */
|
break;
|
break;
|
case DImode:
|
case DImode:
|
*total = 16; /* 6 on VAX 9000, 28 on VAX 2 */
|
*total = 16; /* 6 on VAX 9000, 28 on VAX 2 */
|
break;
|
break;
|
case SImode:
|
case SImode:
|
case HImode:
|
case HImode:
|
case QImode:
|
case QImode:
|
*total = 10; /* 3-4 on VAX 9000, 20-28 on VAX 2 */
|
*total = 10; /* 3-4 on VAX 9000, 20-28 on VAX 2 */
|
break;
|
break;
|
default:
|
default:
|
*total = MAX_COST; /* Mode is not supported. */
|
*total = MAX_COST; /* Mode is not supported. */
|
return true;
|
return true;
|
}
|
}
|
break;
|
break;
|
|
|
case UDIV:
|
case UDIV:
|
if (mode != SImode)
|
if (mode != SImode)
|
{
|
{
|
*total = MAX_COST; /* Mode is not supported. */
|
*total = MAX_COST; /* Mode is not supported. */
|
return true;
|
return true;
|
}
|
}
|
*total = 17;
|
*total = 17;
|
break;
|
break;
|
|
|
case DIV:
|
case DIV:
|
if (mode == DImode)
|
if (mode == DImode)
|
*total = 30; /* Highly variable. */
|
*total = 30; /* Highly variable. */
|
else if (mode == DFmode)
|
else if (mode == DFmode)
|
/* divide takes 28 cycles if the result is not zero, 13 otherwise */
|
/* divide takes 28 cycles if the result is not zero, 13 otherwise */
|
*total = 24;
|
*total = 24;
|
else
|
else
|
*total = 11; /* 25 on VAX 2 */
|
*total = 11; /* 25 on VAX 2 */
|
break;
|
break;
|
|
|
case MOD:
|
case MOD:
|
*total = 23;
|
*total = 23;
|
break;
|
break;
|
|
|
case UMOD:
|
case UMOD:
|
if (mode != SImode)
|
if (mode != SImode)
|
{
|
{
|
*total = MAX_COST; /* Mode is not supported. */
|
*total = MAX_COST; /* Mode is not supported. */
|
return true;
|
return true;
|
}
|
}
|
*total = 29;
|
*total = 29;
|
break;
|
break;
|
|
|
case FLOAT:
|
case FLOAT:
|
*total = (6 /* 4 on VAX 9000 */
|
*total = (6 /* 4 on VAX 9000 */
|
+ (mode == DFmode) + (GET_MODE (XEXP (x, 0)) != SImode));
|
+ (mode == DFmode) + (GET_MODE (XEXP (x, 0)) != SImode));
|
break;
|
break;
|
|
|
case FIX:
|
case FIX:
|
*total = 7; /* 17 on VAX 2 */
|
*total = 7; /* 17 on VAX 2 */
|
break;
|
break;
|
|
|
case ASHIFT:
|
case ASHIFT:
|
case LSHIFTRT:
|
case LSHIFTRT:
|
case ASHIFTRT:
|
case ASHIFTRT:
|
if (mode == DImode)
|
if (mode == DImode)
|
*total = 12;
|
*total = 12;
|
else
|
else
|
*total = 10; /* 6 on VAX 9000 */
|
*total = 10; /* 6 on VAX 9000 */
|
break;
|
break;
|
|
|
case ROTATE:
|
case ROTATE:
|
case ROTATERT:
|
case ROTATERT:
|
*total = 6; /* 5 on VAX 2, 4 on VAX 9000 */
|
*total = 6; /* 5 on VAX 2, 4 on VAX 9000 */
|
if (CONST_INT_P (XEXP (x, 1)))
|
if (CONST_INT_P (XEXP (x, 1)))
|
fmt = "e"; /* all constant rotate counts are short */
|
fmt = "e"; /* all constant rotate counts are short */
|
break;
|
break;
|
|
|
case PLUS:
|
case PLUS:
|
case MINUS:
|
case MINUS:
|
*total = (mode == DFmode) ? 13 : 8; /* 6/8 on VAX 9000, 16/15 on VAX 2 */
|
*total = (mode == DFmode) ? 13 : 8; /* 6/8 on VAX 9000, 16/15 on VAX 2 */
|
/* Small integer operands can use subl2 and addl2. */
|
/* Small integer operands can use subl2 and addl2. */
|
if ((CONST_INT_P (XEXP (x, 1)))
|
if ((CONST_INT_P (XEXP (x, 1)))
|
&& (unsigned HOST_WIDE_INT)(INTVAL (XEXP (x, 1)) + 63) < 127)
|
&& (unsigned HOST_WIDE_INT)(INTVAL (XEXP (x, 1)) + 63) < 127)
|
fmt = "e";
|
fmt = "e";
|
break;
|
break;
|
|
|
case IOR:
|
case IOR:
|
case XOR:
|
case XOR:
|
*total = 3;
|
*total = 3;
|
break;
|
break;
|
|
|
case AND:
|
case AND:
|
/* AND is special because the first operand is complemented. */
|
/* AND is special because the first operand is complemented. */
|
*total = 3;
|
*total = 3;
|
if (CONST_INT_P (XEXP (x, 0)))
|
if (CONST_INT_P (XEXP (x, 0)))
|
{
|
{
|
if ((unsigned HOST_WIDE_INT)~INTVAL (XEXP (x, 0)) > 63)
|
if ((unsigned HOST_WIDE_INT)~INTVAL (XEXP (x, 0)) > 63)
|
*total = 4;
|
*total = 4;
|
fmt = "e";
|
fmt = "e";
|
i = 1;
|
i = 1;
|
}
|
}
|
break;
|
break;
|
|
|
case NEG:
|
case NEG:
|
if (mode == DFmode)
|
if (mode == DFmode)
|
*total = 9;
|
*total = 9;
|
else if (mode == SFmode)
|
else if (mode == SFmode)
|
*total = 6;
|
*total = 6;
|
else if (mode == DImode)
|
else if (mode == DImode)
|
*total = 4;
|
*total = 4;
|
else
|
else
|
*total = 2;
|
*total = 2;
|
break;
|
break;
|
|
|
case NOT:
|
case NOT:
|
*total = 2;
|
*total = 2;
|
break;
|
break;
|
|
|
case ZERO_EXTRACT:
|
case ZERO_EXTRACT:
|
case SIGN_EXTRACT:
|
case SIGN_EXTRACT:
|
*total = 15;
|
*total = 15;
|
break;
|
break;
|
|
|
case MEM:
|
case MEM:
|
if (mode == DImode || mode == DFmode)
|
if (mode == DImode || mode == DFmode)
|
*total = 5; /* 7 on VAX 2 */
|
*total = 5; /* 7 on VAX 2 */
|
else
|
else
|
*total = 3; /* 4 on VAX 2 */
|
*total = 3; /* 4 on VAX 2 */
|
x = XEXP (x, 0);
|
x = XEXP (x, 0);
|
if (!REG_P (x) && GET_CODE (x) != POST_INC)
|
if (!REG_P (x) && GET_CODE (x) != POST_INC)
|
*total += vax_address_cost_1 (x);
|
*total += vax_address_cost_1 (x);
|
return true;
|
return true;
|
|
|
case FLOAT_EXTEND:
|
case FLOAT_EXTEND:
|
case FLOAT_TRUNCATE:
|
case FLOAT_TRUNCATE:
|
case TRUNCATE:
|
case TRUNCATE:
|
*total = 3; /* FIXME: Costs need to be checked */
|
*total = 3; /* FIXME: Costs need to be checked */
|
break;
|
break;
|
|
|
default:
|
default:
|
return false;
|
return false;
|
}
|
}
|
|
|
/* Now look inside the expression. Operands which are not registers or
|
/* Now look inside the expression. Operands which are not registers or
|
short constants add to the cost.
|
short constants add to the cost.
|
|
|
FMT and I may have been adjusted in the switch above for instructions
|
FMT and I may have been adjusted in the switch above for instructions
|
which require special handling. */
|
which require special handling. */
|
|
|
while (*fmt++ == 'e')
|
while (*fmt++ == 'e')
|
{
|
{
|
rtx op = XEXP (x, i);
|
rtx op = XEXP (x, i);
|
|
|
i += 1;
|
i += 1;
|
code = GET_CODE (op);
|
code = GET_CODE (op);
|
|
|
/* A NOT is likely to be found as the first operand of an AND
|
/* A NOT is likely to be found as the first operand of an AND
|
(in which case the relevant cost is of the operand inside
|
(in which case the relevant cost is of the operand inside
|
the not) and not likely to be found anywhere else. */
|
the not) and not likely to be found anywhere else. */
|
if (code == NOT)
|
if (code == NOT)
|
op = XEXP (op, 0), code = GET_CODE (op);
|
op = XEXP (op, 0), code = GET_CODE (op);
|
|
|
switch (code)
|
switch (code)
|
{
|
{
|
case CONST_INT:
|
case CONST_INT:
|
if ((unsigned HOST_WIDE_INT)INTVAL (op) > 63
|
if ((unsigned HOST_WIDE_INT)INTVAL (op) > 63
|
&& GET_MODE (x) != QImode)
|
&& GET_MODE (x) != QImode)
|
*total += 1; /* 2 on VAX 2 */
|
*total += 1; /* 2 on VAX 2 */
|
break;
|
break;
|
case CONST:
|
case CONST:
|
case LABEL_REF:
|
case LABEL_REF:
|
case SYMBOL_REF:
|
case SYMBOL_REF:
|
*total += 1; /* 2 on VAX 2 */
|
*total += 1; /* 2 on VAX 2 */
|
break;
|
break;
|
case CONST_DOUBLE:
|
case CONST_DOUBLE:
|
if (GET_MODE_CLASS (GET_MODE (op)) == MODE_FLOAT)
|
if (GET_MODE_CLASS (GET_MODE (op)) == MODE_FLOAT)
|
{
|
{
|
/* Registers are faster than floating point constants -- even
|
/* Registers are faster than floating point constants -- even
|
those constants which can be encoded in a single byte. */
|
those constants which can be encoded in a single byte. */
|
if (vax_float_literal (op))
|
if (vax_float_literal (op))
|
*total += 1;
|
*total += 1;
|
else
|
else
|
*total += (GET_MODE (x) == DFmode) ? 3 : 2;
|
*total += (GET_MODE (x) == DFmode) ? 3 : 2;
|
}
|
}
|
else
|
else
|
{
|
{
|
if (CONST_DOUBLE_HIGH (op) != 0
|
if (CONST_DOUBLE_HIGH (op) != 0
|
|| (unsigned)CONST_DOUBLE_LOW (op) > 63)
|
|| (unsigned)CONST_DOUBLE_LOW (op) > 63)
|
*total += 2;
|
*total += 2;
|
}
|
}
|
break;
|
break;
|
case MEM:
|
case MEM:
|
*total += 1; /* 2 on VAX 2 */
|
*total += 1; /* 2 on VAX 2 */
|
if (!REG_P (XEXP (op, 0)))
|
if (!REG_P (XEXP (op, 0)))
|
*total += vax_address_cost_1 (XEXP (op, 0));
|
*total += vax_address_cost_1 (XEXP (op, 0));
|
break;
|
break;
|
case REG:
|
case REG:
|
case SUBREG:
|
case SUBREG:
|
break;
|
break;
|
default:
|
default:
|
*total += 1;
|
*total += 1;
|
break;
|
break;
|
}
|
}
|
}
|
}
|
return true;
|
return true;
|
}
|
}
|
|
|
/* Output code to add DELTA to the first argument, and then jump to FUNCTION.
|
/* Output code to add DELTA to the first argument, and then jump to FUNCTION.
|
Used for C++ multiple inheritance.
|
Used for C++ multiple inheritance.
|
.mask ^m<r2,r3,r4,r5,r6,r7,r8,r9,r10,r11> #conservative entry mask
|
.mask ^m<r2,r3,r4,r5,r6,r7,r8,r9,r10,r11> #conservative entry mask
|
addl2 $DELTA, 4(ap) #adjust first argument
|
addl2 $DELTA, 4(ap) #adjust first argument
|
jmp FUNCTION+2 #jump beyond FUNCTION's entry mask
|
jmp FUNCTION+2 #jump beyond FUNCTION's entry mask
|
*/
|
*/
|
|
|
static void
|
static void
|
vax_output_mi_thunk (FILE * file,
|
vax_output_mi_thunk (FILE * file,
|
tree thunk ATTRIBUTE_UNUSED,
|
tree thunk ATTRIBUTE_UNUSED,
|
HOST_WIDE_INT delta,
|
HOST_WIDE_INT delta,
|
HOST_WIDE_INT vcall_offset ATTRIBUTE_UNUSED,
|
HOST_WIDE_INT vcall_offset ATTRIBUTE_UNUSED,
|
tree function)
|
tree function)
|
{
|
{
|
fprintf (file, "\t.word 0x0ffc\n\taddl2 $" HOST_WIDE_INT_PRINT_DEC, delta);
|
fprintf (file, "\t.word 0x0ffc\n\taddl2 $" HOST_WIDE_INT_PRINT_DEC, delta);
|
asm_fprintf (file, ",4(%Rap)\n");
|
asm_fprintf (file, ",4(%Rap)\n");
|
fprintf (file, "\tjmp ");
|
fprintf (file, "\tjmp ");
|
assemble_name (file, XSTR (XEXP (DECL_RTL (function), 0), 0));
|
assemble_name (file, XSTR (XEXP (DECL_RTL (function), 0), 0));
|
fprintf (file, "+2\n");
|
fprintf (file, "+2\n");
|
}
|
}
|
|
|
static rtx
|
static rtx
|
vax_struct_value_rtx (tree fntype ATTRIBUTE_UNUSED,
|
vax_struct_value_rtx (tree fntype ATTRIBUTE_UNUSED,
|
int incoming ATTRIBUTE_UNUSED)
|
int incoming ATTRIBUTE_UNUSED)
|
{
|
{
|
return gen_rtx_REG (Pmode, VAX_STRUCT_VALUE_REGNUM);
|
return gen_rtx_REG (Pmode, VAX_STRUCT_VALUE_REGNUM);
|
}
|
}
|
|
|
/* Worker function for NOTICE_UPDATE_CC. */
|
/* Worker function for NOTICE_UPDATE_CC. */
|
|
|
void
|
void
|
vax_notice_update_cc (rtx exp, rtx insn ATTRIBUTE_UNUSED)
|
vax_notice_update_cc (rtx exp, rtx insn ATTRIBUTE_UNUSED)
|
{
|
{
|
if (GET_CODE (exp) == SET)
|
if (GET_CODE (exp) == SET)
|
{
|
{
|
if (GET_CODE (SET_SRC (exp)) == CALL)
|
if (GET_CODE (SET_SRC (exp)) == CALL)
|
CC_STATUS_INIT;
|
CC_STATUS_INIT;
|
else if (GET_CODE (SET_DEST (exp)) != ZERO_EXTRACT
|
else if (GET_CODE (SET_DEST (exp)) != ZERO_EXTRACT
|
&& GET_CODE (SET_DEST (exp)) != PC)
|
&& GET_CODE (SET_DEST (exp)) != PC)
|
{
|
{
|
cc_status.flags = 0;
|
cc_status.flags = 0;
|
/* The integer operations below don't set carry or
|
/* The integer operations below don't set carry or
|
set it in an incompatible way. That's ok though
|
set it in an incompatible way. That's ok though
|
as the Z bit is all we need when doing unsigned
|
as the Z bit is all we need when doing unsigned
|
comparisons on the result of these insns (since
|
comparisons on the result of these insns (since
|
they're always with 0). Set CC_NO_OVERFLOW to
|
they're always with 0). Set CC_NO_OVERFLOW to
|
generate the correct unsigned branches. */
|
generate the correct unsigned branches. */
|
switch (GET_CODE (SET_SRC (exp)))
|
switch (GET_CODE (SET_SRC (exp)))
|
{
|
{
|
case NEG:
|
case NEG:
|
if (GET_MODE_CLASS (GET_MODE (exp)) == MODE_FLOAT)
|
if (GET_MODE_CLASS (GET_MODE (exp)) == MODE_FLOAT)
|
break;
|
break;
|
case AND:
|
case AND:
|
case IOR:
|
case IOR:
|
case XOR:
|
case XOR:
|
case NOT:
|
case NOT:
|
case MEM:
|
case MEM:
|
case REG:
|
case REG:
|
cc_status.flags = CC_NO_OVERFLOW;
|
cc_status.flags = CC_NO_OVERFLOW;
|
break;
|
break;
|
default:
|
default:
|
break;
|
break;
|
}
|
}
|
cc_status.value1 = SET_DEST (exp);
|
cc_status.value1 = SET_DEST (exp);
|
cc_status.value2 = SET_SRC (exp);
|
cc_status.value2 = SET_SRC (exp);
|
}
|
}
|
}
|
}
|
else if (GET_CODE (exp) == PARALLEL
|
else if (GET_CODE (exp) == PARALLEL
|
&& GET_CODE (XVECEXP (exp, 0, 0)) == SET)
|
&& GET_CODE (XVECEXP (exp, 0, 0)) == SET)
|
{
|
{
|
if (GET_CODE (SET_SRC (XVECEXP (exp, 0, 0))) == CALL)
|
if (GET_CODE (SET_SRC (XVECEXP (exp, 0, 0))) == CALL)
|
CC_STATUS_INIT;
|
CC_STATUS_INIT;
|
else if (GET_CODE (SET_DEST (XVECEXP (exp, 0, 0))) != PC)
|
else if (GET_CODE (SET_DEST (XVECEXP (exp, 0, 0))) != PC)
|
{
|
{
|
cc_status.flags = 0;
|
cc_status.flags = 0;
|
cc_status.value1 = SET_DEST (XVECEXP (exp, 0, 0));
|
cc_status.value1 = SET_DEST (XVECEXP (exp, 0, 0));
|
cc_status.value2 = SET_SRC (XVECEXP (exp, 0, 0));
|
cc_status.value2 = SET_SRC (XVECEXP (exp, 0, 0));
|
}
|
}
|
else
|
else
|
/* PARALLELs whose first element sets the PC are aob,
|
/* PARALLELs whose first element sets the PC are aob,
|
sob insns. They do change the cc's. */
|
sob insns. They do change the cc's. */
|
CC_STATUS_INIT;
|
CC_STATUS_INIT;
|
}
|
}
|
else
|
else
|
CC_STATUS_INIT;
|
CC_STATUS_INIT;
|
if (cc_status.value1 && REG_P (cc_status.value1)
|
if (cc_status.value1 && REG_P (cc_status.value1)
|
&& cc_status.value2
|
&& cc_status.value2
|
&& reg_overlap_mentioned_p (cc_status.value1, cc_status.value2))
|
&& reg_overlap_mentioned_p (cc_status.value1, cc_status.value2))
|
cc_status.value2 = 0;
|
cc_status.value2 = 0;
|
if (cc_status.value1 && MEM_P (cc_status.value1)
|
if (cc_status.value1 && MEM_P (cc_status.value1)
|
&& cc_status.value2
|
&& cc_status.value2
|
&& MEM_P (cc_status.value2))
|
&& MEM_P (cc_status.value2))
|
cc_status.value2 = 0;
|
cc_status.value2 = 0;
|
/* Actual condition, one line up, should be that value2's address
|
/* Actual condition, one line up, should be that value2's address
|
depends on value1, but that is too much of a pain. */
|
depends on value1, but that is too much of a pain. */
|
}
|
}
|
|
|
/* Output integer move instructions. */
|
/* Output integer move instructions. */
|
|
|
const char *
|
const char *
|
vax_output_int_move (rtx insn ATTRIBUTE_UNUSED, rtx *operands,
|
vax_output_int_move (rtx insn ATTRIBUTE_UNUSED, rtx *operands,
|
enum machine_mode mode)
|
enum machine_mode mode)
|
{
|
{
|
switch (mode)
|
switch (mode)
|
{
|
{
|
case SImode:
|
case SImode:
|
if (GET_CODE (operands[1]) == SYMBOL_REF || GET_CODE (operands[1]) == CONST)
|
if (GET_CODE (operands[1]) == SYMBOL_REF || GET_CODE (operands[1]) == CONST)
|
{
|
{
|
if (push_operand (operands[0], SImode))
|
if (push_operand (operands[0], SImode))
|
return "pushab %a1";
|
return "pushab %a1";
|
return "movab %a1,%0";
|
return "movab %a1,%0";
|
}
|
}
|
if (operands[1] == const0_rtx)
|
if (operands[1] == const0_rtx)
|
return "clrl %0";
|
return "clrl %0";
|
if (CONST_INT_P (operands[1])
|
if (CONST_INT_P (operands[1])
|
&& (unsigned) INTVAL (operands[1]) >= 64)
|
&& (unsigned) INTVAL (operands[1]) >= 64)
|
{
|
{
|
int i = INTVAL (operands[1]);
|
int i = INTVAL (operands[1]);
|
if ((unsigned)(~i) < 64)
|
if ((unsigned)(~i) < 64)
|
return "mcoml %N1,%0";
|
return "mcoml %N1,%0";
|
if ((unsigned)i < 0x100)
|
if ((unsigned)i < 0x100)
|
return "movzbl %1,%0";
|
return "movzbl %1,%0";
|
if (i >= -0x80 && i < 0)
|
if (i >= -0x80 && i < 0)
|
return "cvtbl %1,%0";
|
return "cvtbl %1,%0";
|
if ((unsigned)i < 0x10000)
|
if ((unsigned)i < 0x10000)
|
return "movzwl %1,%0";
|
return "movzwl %1,%0";
|
if (i >= -0x8000 && i < 0)
|
if (i >= -0x8000 && i < 0)
|
return "cvtwl %1,%0";
|
return "cvtwl %1,%0";
|
}
|
}
|
if (push_operand (operands[0], SImode))
|
if (push_operand (operands[0], SImode))
|
return "pushl %1";
|
return "pushl %1";
|
return "movl %1,%0";
|
return "movl %1,%0";
|
|
|
case HImode:
|
case HImode:
|
if (CONST_INT_P (operands[1]))
|
if (CONST_INT_P (operands[1]))
|
{
|
{
|
int i = INTVAL (operands[1]);
|
int i = INTVAL (operands[1]);
|
if (i == 0)
|
if (i == 0)
|
return "clrw %0";
|
return "clrw %0";
|
else if ((unsigned int)i < 64)
|
else if ((unsigned int)i < 64)
|
return "movw %1,%0";
|
return "movw %1,%0";
|
else if ((unsigned int)~i < 64)
|
else if ((unsigned int)~i < 64)
|
return "mcomw %H1,%0";
|
return "mcomw %H1,%0";
|
else if ((unsigned int)i < 256)
|
else if ((unsigned int)i < 256)
|
return "movzbw %1,%0";
|
return "movzbw %1,%0";
|
}
|
}
|
return "movw %1,%0";
|
return "movw %1,%0";
|
|
|
case QImode:
|
case QImode:
|
if (CONST_INT_P (operands[1]))
|
if (CONST_INT_P (operands[1]))
|
{
|
{
|
int i = INTVAL (operands[1]);
|
int i = INTVAL (operands[1]);
|
if (i == 0)
|
if (i == 0)
|
return "clrb %0";
|
return "clrb %0";
|
else if ((unsigned int)~i < 64)
|
else if ((unsigned int)~i < 64)
|
return "mcomb %B1,%0";
|
return "mcomb %B1,%0";
|
}
|
}
|
return "movb %1,%0";
|
return "movb %1,%0";
|
|
|
default:
|
default:
|
gcc_unreachable ();
|
gcc_unreachable ();
|
}
|
}
|
}
|
}
|
|
|
/* Output integer add instructions.
|
/* Output integer add instructions.
|
|
|
The space-time-opcode tradeoffs for addition vary by model of VAX.
|
The space-time-opcode tradeoffs for addition vary by model of VAX.
|
|
|
On a VAX 3 "movab (r1)[r2],r3" is faster than "addl3 r1,r2,r3",
|
On a VAX 3 "movab (r1)[r2],r3" is faster than "addl3 r1,r2,r3",
|
but it not faster on other models.
|
but it not faster on other models.
|
|
|
"movab #(r1),r2" is usually shorter than "addl3 #,r1,r2", and is
|
"movab #(r1),r2" is usually shorter than "addl3 #,r1,r2", and is
|
faster on a VAX 3, but some VAXen (e.g. VAX 9000) will stall if
|
faster on a VAX 3, but some VAXen (e.g. VAX 9000) will stall if
|
a register is used in an address too soon after it is set.
|
a register is used in an address too soon after it is set.
|
Compromise by using movab only when it is shorter than the add
|
Compromise by using movab only when it is shorter than the add
|
or the base register in the address is one of sp, ap, and fp,
|
or the base register in the address is one of sp, ap, and fp,
|
which are not modified very often. */
|
which are not modified very often. */
|
|
|
const char *
|
const char *
|
vax_output_int_add (rtx insn ATTRIBUTE_UNUSED, rtx *operands,
|
vax_output_int_add (rtx insn ATTRIBUTE_UNUSED, rtx *operands,
|
enum machine_mode mode)
|
enum machine_mode mode)
|
{
|
{
|
switch (mode)
|
switch (mode)
|
{
|
{
|
case SImode:
|
case SImode:
|
if (rtx_equal_p (operands[0], operands[1]))
|
if (rtx_equal_p (operands[0], operands[1]))
|
{
|
{
|
if (operands[2] == const1_rtx)
|
if (operands[2] == const1_rtx)
|
return "incl %0";
|
return "incl %0";
|
if (operands[2] == constm1_rtx)
|
if (operands[2] == constm1_rtx)
|
return "decl %0";
|
return "decl %0";
|
if (CONST_INT_P (operands[2])
|
if (CONST_INT_P (operands[2])
|
&& (unsigned) (- INTVAL (operands[2])) < 64)
|
&& (unsigned) (- INTVAL (operands[2])) < 64)
|
return "subl2 $%n2,%0";
|
return "subl2 $%n2,%0";
|
if (CONST_INT_P (operands[2])
|
if (CONST_INT_P (operands[2])
|
&& (unsigned) INTVAL (operands[2]) >= 64
|
&& (unsigned) INTVAL (operands[2]) >= 64
|
&& REG_P (operands[1])
|
&& REG_P (operands[1])
|
&& ((INTVAL (operands[2]) < 32767 && INTVAL (operands[2]) > -32768)
|
&& ((INTVAL (operands[2]) < 32767 && INTVAL (operands[2]) > -32768)
|
|| REGNO (operands[1]) > 11))
|
|| REGNO (operands[1]) > 11))
|
return "movab %c2(%1),%0";
|
return "movab %c2(%1),%0";
|
return "addl2 %2,%0";
|
return "addl2 %2,%0";
|
}
|
}
|
|
|
if (rtx_equal_p (operands[0], operands[2]))
|
if (rtx_equal_p (operands[0], operands[2]))
|
return "addl2 %1,%0";
|
return "addl2 %1,%0";
|
|
|
if (CONST_INT_P (operands[2])
|
if (CONST_INT_P (operands[2])
|
&& INTVAL (operands[2]) < 32767
|
&& INTVAL (operands[2]) < 32767
|
&& INTVAL (operands[2]) > -32768
|
&& INTVAL (operands[2]) > -32768
|
&& REG_P (operands[1])
|
&& REG_P (operands[1])
|
&& push_operand (operands[0], SImode))
|
&& push_operand (operands[0], SImode))
|
return "pushab %c2(%1)";
|
return "pushab %c2(%1)";
|
|
|
if (CONST_INT_P (operands[2])
|
if (CONST_INT_P (operands[2])
|
&& (unsigned) (- INTVAL (operands[2])) < 64)
|
&& (unsigned) (- INTVAL (operands[2])) < 64)
|
return "subl3 $%n2,%1,%0";
|
return "subl3 $%n2,%1,%0";
|
|
|
if (CONST_INT_P (operands[2])
|
if (CONST_INT_P (operands[2])
|
&& (unsigned) INTVAL (operands[2]) >= 64
|
&& (unsigned) INTVAL (operands[2]) >= 64
|
&& REG_P (operands[1])
|
&& REG_P (operands[1])
|
&& ((INTVAL (operands[2]) < 32767 && INTVAL (operands[2]) > -32768)
|
&& ((INTVAL (operands[2]) < 32767 && INTVAL (operands[2]) > -32768)
|
|| REGNO (operands[1]) > 11))
|
|| REGNO (operands[1]) > 11))
|
return "movab %c2(%1),%0";
|
return "movab %c2(%1),%0";
|
|
|
/* Add this if using gcc on a VAX 3xxx:
|
/* Add this if using gcc on a VAX 3xxx:
|
if (REG_P (operands[1]) && REG_P (operands[2]))
|
if (REG_P (operands[1]) && REG_P (operands[2]))
|
return "movab (%1)[%2],%0";
|
return "movab (%1)[%2],%0";
|
*/
|
*/
|
return "addl3 %1,%2,%0";
|
return "addl3 %1,%2,%0";
|
|
|
case HImode:
|
case HImode:
|
if (rtx_equal_p (operands[0], operands[1]))
|
if (rtx_equal_p (operands[0], operands[1]))
|
{
|
{
|
if (operands[2] == const1_rtx)
|
if (operands[2] == const1_rtx)
|
return "incw %0";
|
return "incw %0";
|
if (operands[2] == constm1_rtx)
|
if (operands[2] == constm1_rtx)
|
return "decw %0";
|
return "decw %0";
|
if (CONST_INT_P (operands[2])
|
if (CONST_INT_P (operands[2])
|
&& (unsigned) (- INTVAL (operands[2])) < 64)
|
&& (unsigned) (- INTVAL (operands[2])) < 64)
|
return "subw2 $%n2,%0";
|
return "subw2 $%n2,%0";
|
return "addw2 %2,%0";
|
return "addw2 %2,%0";
|
}
|
}
|
if (rtx_equal_p (operands[0], operands[2]))
|
if (rtx_equal_p (operands[0], operands[2]))
|
return "addw2 %1,%0";
|
return "addw2 %1,%0";
|
if (CONST_INT_P (operands[2])
|
if (CONST_INT_P (operands[2])
|
&& (unsigned) (- INTVAL (operands[2])) < 64)
|
&& (unsigned) (- INTVAL (operands[2])) < 64)
|
return "subw3 $%n2,%1,%0";
|
return "subw3 $%n2,%1,%0";
|
return "addw3 %1,%2,%0";
|
return "addw3 %1,%2,%0";
|
|
|
case QImode:
|
case QImode:
|
if (rtx_equal_p (operands[0], operands[1]))
|
if (rtx_equal_p (operands[0], operands[1]))
|
{
|
{
|
if (operands[2] == const1_rtx)
|
if (operands[2] == const1_rtx)
|
return "incb %0";
|
return "incb %0";
|
if (operands[2] == constm1_rtx)
|
if (operands[2] == constm1_rtx)
|
return "decb %0";
|
return "decb %0";
|
if (CONST_INT_P (operands[2])
|
if (CONST_INT_P (operands[2])
|
&& (unsigned) (- INTVAL (operands[2])) < 64)
|
&& (unsigned) (- INTVAL (operands[2])) < 64)
|
return "subb2 $%n2,%0";
|
return "subb2 $%n2,%0";
|
return "addb2 %2,%0";
|
return "addb2 %2,%0";
|
}
|
}
|
if (rtx_equal_p (operands[0], operands[2]))
|
if (rtx_equal_p (operands[0], operands[2]))
|
return "addb2 %1,%0";
|
return "addb2 %1,%0";
|
if (CONST_INT_P (operands[2])
|
if (CONST_INT_P (operands[2])
|
&& (unsigned) (- INTVAL (operands[2])) < 64)
|
&& (unsigned) (- INTVAL (operands[2])) < 64)
|
return "subb3 $%n2,%1,%0";
|
return "subb3 $%n2,%1,%0";
|
return "addb3 %1,%2,%0";
|
return "addb3 %1,%2,%0";
|
|
|
default:
|
default:
|
gcc_unreachable ();
|
gcc_unreachable ();
|
}
|
}
|
}
|
}
|
|
|
/* Output a conditional branch. */
|
/* Output a conditional branch. */
|
const char *
|
const char *
|
vax_output_conditional_branch (enum rtx_code code)
|
vax_output_conditional_branch (enum rtx_code code)
|
{
|
{
|
switch (code)
|
switch (code)
|
{
|
{
|
case EQ: return "jeql %l0";
|
case EQ: return "jeql %l0";
|
case NE: return "jneq %l0";
|
case NE: return "jneq %l0";
|
case GT: return "jgtr %l0";
|
case GT: return "jgtr %l0";
|
case LT: return "jlss %l0";
|
case LT: return "jlss %l0";
|
case GTU: return "jgtru %l0";
|
case GTU: return "jgtru %l0";
|
case LTU: return "jlssu %l0";
|
case LTU: return "jlssu %l0";
|
case GE: return "jgeq %l0";
|
case GE: return "jgeq %l0";
|
case LE: return "jleq %l0";
|
case LE: return "jleq %l0";
|
case GEU: return "jgequ %l0";
|
case GEU: return "jgequ %l0";
|
case LEU: return "jlequ %l0";
|
case LEU: return "jlequ %l0";
|
default:
|
default:
|
gcc_unreachable ();
|
gcc_unreachable ();
|
}
|
}
|
}
|
}
|
|
|
/* 1 if X is an rtx for a constant that is a valid address. */
|
/* 1 if X is an rtx for a constant that is a valid address. */
|
|
|
int
|
int
|
legitimate_constant_address_p (rtx x)
|
legitimate_constant_address_p (rtx x)
|
{
|
{
|
return (GET_CODE (x) == LABEL_REF || GET_CODE (x) == SYMBOL_REF
|
return (GET_CODE (x) == LABEL_REF || GET_CODE (x) == SYMBOL_REF
|
|| CONST_INT_P (x) || GET_CODE (x) == CONST
|
|| CONST_INT_P (x) || GET_CODE (x) == CONST
|
|| GET_CODE (x) == HIGH);
|
|| GET_CODE (x) == HIGH);
|
}
|
}
|
|
|
/* Nonzero if the constant value X is a legitimate general operand.
|
/* Nonzero if the constant value X is a legitimate general operand.
|
It is given that X satisfies CONSTANT_P or is a CONST_DOUBLE. */
|
It is given that X satisfies CONSTANT_P or is a CONST_DOUBLE. */
|
|
|
int
|
int
|
legitimate_constant_p (rtx x ATTRIBUTE_UNUSED)
|
legitimate_constant_p (rtx x ATTRIBUTE_UNUSED)
|
{
|
{
|
return 1;
|
return 1;
|
}
|
}
|
|
|
/* The other macros defined here are used only in legitimate_address_p (). */
|
/* The other macros defined here are used only in legitimate_address_p (). */
|
|
|
/* Nonzero if X is a hard reg that can be used as an index
|
/* Nonzero if X is a hard reg that can be used as an index
|
or, if not strict, if it is a pseudo reg. */
|
or, if not strict, if it is a pseudo reg. */
|
#define INDEX_REGISTER_P(X, STRICT) \
|
#define INDEX_REGISTER_P(X, STRICT) \
|
(REG_P (X) && (!(STRICT) || REGNO_OK_FOR_INDEX_P (REGNO (X))))
|
(REG_P (X) && (!(STRICT) || REGNO_OK_FOR_INDEX_P (REGNO (X))))
|
|
|
/* Nonzero if X is a hard reg that can be used as a base reg
|
/* Nonzero if X is a hard reg that can be used as a base reg
|
or, if not strict, if it is a pseudo reg. */
|
or, if not strict, if it is a pseudo reg. */
|
#define BASE_REGISTER_P(X, STRICT) \
|
#define BASE_REGISTER_P(X, STRICT) \
|
(REG_P (X) && (!(STRICT) || REGNO_OK_FOR_BASE_P (REGNO (X))))
|
(REG_P (X) && (!(STRICT) || REGNO_OK_FOR_BASE_P (REGNO (X))))
|
|
|
#ifdef NO_EXTERNAL_INDIRECT_ADDRESS
|
#ifdef NO_EXTERNAL_INDIRECT_ADDRESS
|
|
|
/* Re-definition of CONSTANT_ADDRESS_P, which is true only when there
|
/* Re-definition of CONSTANT_ADDRESS_P, which is true only when there
|
are no SYMBOL_REFs for external symbols present. */
|
are no SYMBOL_REFs for external symbols present. */
|
|
|
static int
|
static int
|
indirectable_constant_address_p (rtx x)
|
indirectable_constant_address_p (rtx x)
|
{
|
{
|
if (!CONSTANT_ADDRESS_P (x))
|
if (!CONSTANT_ADDRESS_P (x))
|
return 0;
|
return 0;
|
if (GET_CODE (x) == CONST && GET_CODE (XEXP ((x), 0)) == PLUS)
|
if (GET_CODE (x) == CONST && GET_CODE (XEXP ((x), 0)) == PLUS)
|
x = XEXP (XEXP (x, 0), 0);
|
x = XEXP (XEXP (x, 0), 0);
|
if (GET_CODE (x) == SYMBOL_REF && !SYMBOL_REF_LOCAL_P (x))
|
if (GET_CODE (x) == SYMBOL_REF && !SYMBOL_REF_LOCAL_P (x))
|
return 0;
|
return 0;
|
|
|
return 1;
|
return 1;
|
}
|
}
|
|
|
#else /* not NO_EXTERNAL_INDIRECT_ADDRESS */
|
#else /* not NO_EXTERNAL_INDIRECT_ADDRESS */
|
|
|
static int
|
static int
|
indirectable_constant_address_p (rtx x)
|
indirectable_constant_address_p (rtx x)
|
{
|
{
|
return CONSTANT_ADDRESS_P (x);
|
return CONSTANT_ADDRESS_P (x);
|
}
|
}
|
|
|
#endif /* not NO_EXTERNAL_INDIRECT_ADDRESS */
|
#endif /* not NO_EXTERNAL_INDIRECT_ADDRESS */
|
|
|
/* Nonzero if X is an address which can be indirected. External symbols
|
/* Nonzero if X is an address which can be indirected. External symbols
|
could be in a sharable image library, so we disallow those. */
|
could be in a sharable image library, so we disallow those. */
|
|
|
static int
|
static int
|
indirectable_address_p(rtx x, int strict)
|
indirectable_address_p(rtx x, int strict)
|
{
|
{
|
if (indirectable_constant_address_p (x))
|
if (indirectable_constant_address_p (x))
|
return 1;
|
return 1;
|
if (BASE_REGISTER_P (x, strict))
|
if (BASE_REGISTER_P (x, strict))
|
return 1;
|
return 1;
|
if (GET_CODE (x) == PLUS
|
if (GET_CODE (x) == PLUS
|
&& BASE_REGISTER_P (XEXP (x, 0), strict)
|
&& BASE_REGISTER_P (XEXP (x, 0), strict)
|
&& indirectable_constant_address_p (XEXP (x, 1)))
|
&& indirectable_constant_address_p (XEXP (x, 1)))
|
return 1;
|
return 1;
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Return 1 if x is a valid address not using indexing.
|
/* Return 1 if x is a valid address not using indexing.
|
(This much is the easy part.) */
|
(This much is the easy part.) */
|
static int
|
static int
|
nonindexed_address_p (rtx x, int strict)
|
nonindexed_address_p (rtx x, int strict)
|
{
|
{
|
rtx xfoo0;
|
rtx xfoo0;
|
if (REG_P (x))
|
if (REG_P (x))
|
{
|
{
|
extern rtx *reg_equiv_mem;
|
extern rtx *reg_equiv_mem;
|
if (!reload_in_progress
|
if (!reload_in_progress
|
|| reg_equiv_mem[REGNO (x)] == 0
|
|| reg_equiv_mem[REGNO (x)] == 0
|
|| indirectable_address_p (reg_equiv_mem[REGNO (x)], strict))
|
|| indirectable_address_p (reg_equiv_mem[REGNO (x)], strict))
|
return 1;
|
return 1;
|
}
|
}
|
if (indirectable_constant_address_p (x))
|
if (indirectable_constant_address_p (x))
|
return 1;
|
return 1;
|
if (indirectable_address_p (x, strict))
|
if (indirectable_address_p (x, strict))
|
return 1;
|
return 1;
|
xfoo0 = XEXP (x, 0);
|
xfoo0 = XEXP (x, 0);
|
if (MEM_P (x) && indirectable_address_p (xfoo0, strict))
|
if (MEM_P (x) && indirectable_address_p (xfoo0, strict))
|
return 1;
|
return 1;
|
if ((GET_CODE (x) == PRE_DEC || GET_CODE (x) == POST_INC)
|
if ((GET_CODE (x) == PRE_DEC || GET_CODE (x) == POST_INC)
|
&& BASE_REGISTER_P (xfoo0, strict))
|
&& BASE_REGISTER_P (xfoo0, strict))
|
return 1;
|
return 1;
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* 1 if PROD is either a reg times size of mode MODE and MODE is less
|
/* 1 if PROD is either a reg times size of mode MODE and MODE is less
|
than or equal 8 bytes, or just a reg if MODE is one byte. */
|
than or equal 8 bytes, or just a reg if MODE is one byte. */
|
|
|
static int
|
static int
|
index_term_p (rtx prod, enum machine_mode mode, int strict)
|
index_term_p (rtx prod, enum machine_mode mode, int strict)
|
{
|
{
|
rtx xfoo0, xfoo1;
|
rtx xfoo0, xfoo1;
|
|
|
if (GET_MODE_SIZE (mode) == 1)
|
if (GET_MODE_SIZE (mode) == 1)
|
return BASE_REGISTER_P (prod, strict);
|
return BASE_REGISTER_P (prod, strict);
|
|
|
if (GET_CODE (prod) != MULT || GET_MODE_SIZE (mode) > 8)
|
if (GET_CODE (prod) != MULT || GET_MODE_SIZE (mode) > 8)
|
return 0;
|
return 0;
|
|
|
xfoo0 = XEXP (prod, 0);
|
xfoo0 = XEXP (prod, 0);
|
xfoo1 = XEXP (prod, 1);
|
xfoo1 = XEXP (prod, 1);
|
|
|
if (CONST_INT_P (xfoo0)
|
if (CONST_INT_P (xfoo0)
|
&& INTVAL (xfoo0) == (int)GET_MODE_SIZE (mode)
|
&& INTVAL (xfoo0) == (int)GET_MODE_SIZE (mode)
|
&& INDEX_REGISTER_P (xfoo1, strict))
|
&& INDEX_REGISTER_P (xfoo1, strict))
|
return 1;
|
return 1;
|
|
|
if (CONST_INT_P (xfoo1)
|
if (CONST_INT_P (xfoo1)
|
&& INTVAL (xfoo1) == (int)GET_MODE_SIZE (mode)
|
&& INTVAL (xfoo1) == (int)GET_MODE_SIZE (mode)
|
&& INDEX_REGISTER_P (xfoo0, strict))
|
&& INDEX_REGISTER_P (xfoo0, strict))
|
return 1;
|
return 1;
|
|
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Return 1 if X is the sum of a register
|
/* Return 1 if X is the sum of a register
|
and a valid index term for mode MODE. */
|
and a valid index term for mode MODE. */
|
static int
|
static int
|
reg_plus_index_p (rtx x, enum machine_mode mode, int strict)
|
reg_plus_index_p (rtx x, enum machine_mode mode, int strict)
|
{
|
{
|
rtx xfoo0, xfoo1;
|
rtx xfoo0, xfoo1;
|
|
|
if (GET_CODE (x) != PLUS)
|
if (GET_CODE (x) != PLUS)
|
return 0;
|
return 0;
|
|
|
xfoo0 = XEXP (x, 0);
|
xfoo0 = XEXP (x, 0);
|
xfoo1 = XEXP (x, 1);
|
xfoo1 = XEXP (x, 1);
|
|
|
if (BASE_REGISTER_P (xfoo0, strict) && index_term_p (xfoo1, mode, strict))
|
if (BASE_REGISTER_P (xfoo0, strict) && index_term_p (xfoo1, mode, strict))
|
return 1;
|
return 1;
|
|
|
if (BASE_REGISTER_P (xfoo1, strict) && index_term_p (xfoo0, mode, strict))
|
if (BASE_REGISTER_P (xfoo1, strict) && index_term_p (xfoo0, mode, strict))
|
return 1;
|
return 1;
|
|
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* legitimate_address_p returns 1 if it recognizes an RTL expression "x"
|
/* legitimate_address_p returns 1 if it recognizes an RTL expression "x"
|
that is a valid memory address for an instruction.
|
that is a valid memory address for an instruction.
|
The MODE argument is the machine mode for the MEM expression
|
The MODE argument is the machine mode for the MEM expression
|
that wants to use this address. */
|
that wants to use this address. */
|
int
|
int
|
legitimate_address_p (enum machine_mode mode, rtx x, int strict)
|
legitimate_address_p (enum machine_mode mode, rtx x, int strict)
|
{
|
{
|
rtx xfoo0, xfoo1;
|
rtx xfoo0, xfoo1;
|
|
|
if (nonindexed_address_p (x, strict))
|
if (nonindexed_address_p (x, strict))
|
return 1;
|
return 1;
|
|
|
if (GET_CODE (x) != PLUS)
|
if (GET_CODE (x) != PLUS)
|
return 0;
|
return 0;
|
|
|
/* Handle <address>[index] represented with index-sum outermost */
|
/* Handle <address>[index] represented with index-sum outermost */
|
|
|
xfoo0 = XEXP (x, 0);
|
xfoo0 = XEXP (x, 0);
|
xfoo1 = XEXP (x, 1);
|
xfoo1 = XEXP (x, 1);
|
|
|
if (index_term_p (xfoo0, mode, strict)
|
if (index_term_p (xfoo0, mode, strict)
|
&& nonindexed_address_p (xfoo1, strict))
|
&& nonindexed_address_p (xfoo1, strict))
|
return 1;
|
return 1;
|
|
|
if (index_term_p (xfoo1, mode, strict)
|
if (index_term_p (xfoo1, mode, strict)
|
&& nonindexed_address_p (xfoo0, strict))
|
&& nonindexed_address_p (xfoo0, strict))
|
return 1;
|
return 1;
|
|
|
/* Handle offset(reg)[index] with offset added outermost */
|
/* Handle offset(reg)[index] with offset added outermost */
|
|
|
if (indirectable_constant_address_p (xfoo0)
|
if (indirectable_constant_address_p (xfoo0)
|
&& (BASE_REGISTER_P (xfoo1, strict)
|
&& (BASE_REGISTER_P (xfoo1, strict)
|
|| reg_plus_index_p (xfoo1, mode, strict)))
|
|| reg_plus_index_p (xfoo1, mode, strict)))
|
return 1;
|
return 1;
|
|
|
if (indirectable_constant_address_p (xfoo1)
|
if (indirectable_constant_address_p (xfoo1)
|
&& (BASE_REGISTER_P (xfoo0, strict)
|
&& (BASE_REGISTER_P (xfoo0, strict)
|
|| reg_plus_index_p (xfoo0, mode, strict)))
|
|| reg_plus_index_p (xfoo0, mode, strict)))
|
return 1;
|
return 1;
|
|
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Return 1 if x (a legitimate address expression) has an effect that
|
/* Return 1 if x (a legitimate address expression) has an effect that
|
depends on the machine mode it is used for. On the VAX, the predecrement
|
depends on the machine mode it is used for. On the VAX, the predecrement
|
and postincrement address depend thus (the amount of decrement or
|
and postincrement address depend thus (the amount of decrement or
|
increment being the length of the operand) and all indexed address depend
|
increment being the length of the operand) and all indexed address depend
|
thus (because the index scale factor is the length of the operand). */
|
thus (because the index scale factor is the length of the operand). */
|
|
|
int
|
int
|
vax_mode_dependent_address_p (rtx x)
|
vax_mode_dependent_address_p (rtx x)
|
{
|
{
|
rtx xfoo0, xfoo1;
|
rtx xfoo0, xfoo1;
|
|
|
if (GET_CODE (x) == POST_INC || GET_CODE (x) == PRE_DEC)
|
if (GET_CODE (x) == POST_INC || GET_CODE (x) == PRE_DEC)
|
return 1;
|
return 1;
|
if (GET_CODE (x) != PLUS)
|
if (GET_CODE (x) != PLUS)
|
return 0;
|
return 0;
|
|
|
xfoo0 = XEXP (x, 0);
|
xfoo0 = XEXP (x, 0);
|
xfoo1 = XEXP (x, 1);
|
xfoo1 = XEXP (x, 1);
|
|
|
if (CONSTANT_ADDRESS_P (xfoo0) && REG_P (xfoo1))
|
if (CONSTANT_ADDRESS_P (xfoo0) && REG_P (xfoo1))
|
return 0;
|
return 0;
|
if (CONSTANT_ADDRESS_P (xfoo1) && REG_P (xfoo0))
|
if (CONSTANT_ADDRESS_P (xfoo1) && REG_P (xfoo0))
|
return 0;
|
return 0;
|
|
|
return 1;
|
return 1;
|
}
|
}
|
|
|