LWTools: extra/gcc6809lw-4.6.4-5.patch annotate

annotate extra/gcc6809lw-4.6.4-5.patch @ 417:d7b7004b0883

Update gcc6809 patch to fix an ICE. Add new gcc6809 patch with a fix to an internal compiler error reported by Tormod Volden. It seems whoever created the offending instruction patterns didn't fully understand the instruction contraints system and likely got away with it due to characteristics of the instruction generator in previous versions of gcc. Alas, it causes problems now so unless someone has a brilliant idea how to make it work, addhi_mem_1 and addhi_mem_minus1 have to go. Fortunately, the compiler is smart enough to use an alternate strategy all on its own.

author	William Astle <lost@l-w.ca>
date	Sun, 27 Mar 2016 21:46:18 -0600
parents
children

rev	line source
417 d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1 diff -urN gcc-4.6.4-clean/config.sub gcc-4.6.4/config.sub
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2 --- gcc-4.6.4-clean/config.sub 2010-05-25 07:22:07.000000000 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3 +++ gcc-4.6.4/config.sub 2015-07-20 19:44:52.766843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4 @@ -313,7 +313,7 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5 c6x)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6 basic_machine=tic6x-unknown
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7 ;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8 - m6811 \| m68hc11 \| m6812 \| m68hc12 \| picochip)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	9 + m6809 \| m6811 \| m68hc11 \| m6812 \| m68hc12 \| picochip)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	10 # Motorola 68HC11/12.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	11 basic_machine=$basic_machine-unknown
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	12 os=-none
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	13 @@ -354,7 +354,7 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	14 \| i86- \| i860-* \| i960-* \| ia64-* \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	15 \| ip2k-* \| iq2000-* \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	16 \| lm32-* \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	17 - \| m32c-* \| m32r-* \| m32rle-* \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	18 + \| m32c-* \| m32r-* \| m32rle-* \| m6809-* \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	19 \| m68000-* \| m680[012346]0-* \| m68360-* \| m683?2-* \| m68k-* \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	20 \| m88110-* \| m88k-* \| maxq-* \| mcore-* \| metag-* \| microblaze-* \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	21 \| mips-* \| mipsbe-* \| mipseb-* \| mipsel-* \| mipsle-* \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	22 @@ -509,6 +509,10 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	23 basic_machine=arm-unknown
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	24 os=-cegcc
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	25 ;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	26 + coco)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	27 + basic_machine=coco
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	28 + os=-none
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	29 + ;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	30 convex-c1)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	31 basic_machine=c1-convex
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	32 os=-bsd
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	33 diff -urN gcc-4.6.4-clean/configure gcc-4.6.4/configure
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	34 --- gcc-4.6.4-clean/configure 2011-12-18 03:03:44.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	35 +++ gcc-4.6.4/configure 2015-07-20 19:44:52.766843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	36 @@ -3439,6 +3439,9 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	37 m32r--)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	38 noconfigdirs="$noconfigdirs ${libgcj}"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	39 ;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	40 + m6809*)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	41 + noconfigdirs="$noconfigdirs target-libiberty target-libstdc++-v3 target-libgloss ${libgcj}"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	42 + ;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	43 m68hc11--\|m6811--\|m68hc12--\|m6812--)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	44 noconfigdirs="$noconfigdirs target-libstdc++-v3 ${libgcj}"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	45 libgloss_dir=m68hc11
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	46 diff -urN gcc-4.6.4-clean/configure.ac gcc-4.6.4/configure.ac
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	47 --- gcc-4.6.4-clean/configure.ac 2011-11-18 04:45:44.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	48 +++ gcc-4.6.4/configure.ac 2015-07-20 19:44:52.766843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	49 @@ -885,6 +885,9 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	50 m32r--)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	51 noconfigdirs="$noconfigdirs ${libgcj}"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	52 ;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	53 + m6809*)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	54 + noconfigdirs="$noconfigdirs target-libiberty target-libstdc++-v3 target-libgloss ${libgcj}"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	55 + ;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	56 m68hc11--\|m6811--\|m68hc12--\|m6812--)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	57 noconfigdirs="$noconfigdirs target-libstdc++-v3 ${libgcj}"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	58 libgloss_dir=m68hc11
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	59 diff -urN gcc-4.6.4-clean/gcc/calls.c gcc-4.6.4/gcc/calls.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	60 --- gcc-4.6.4-clean/gcc/calls.c 2012-02-09 10:27:25.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	61 +++ gcc-4.6.4/gcc/calls.c 2015-07-20 19:44:52.766843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	62 @@ -2561,7 +2561,7 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	63 call sequence.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	64 Also do the adjustments before a throwing call, otherwise
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	65 exception handling can fail; PR 19225. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	66 - if (pending_stack_adjust >= 32
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	67 + if (pending_stack_adjust >= 8
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	68 \|\| (pending_stack_adjust > 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	69 && (flags & ECF_MAY_BE_ALLOCA))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	70 \|\| (pending_stack_adjust > 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	71 diff -urN gcc-4.6.4-clean/gcc/config/m6809/crt0.S gcc-4.6.4/gcc/config/m6809/crt0.S
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	72 --- gcc-4.6.4-clean/gcc/config/m6809/crt0.S 1969-12-31 17:00:00.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	73 +++ gcc-4.6.4/gcc/config/m6809/crt0.S 2015-07-20 19:44:52.766843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	74 @@ -0,0 +1,173 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	75 +;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	76 +;;; Copyright 2006, 2007, 2008, 2009 by Brian Dominy <brian@oddchange.com>
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	77 +;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	78 +;;; This file is part of GCC.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	79 +;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	80 +;;; GCC is free software; you can redistribute it and/or modify
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	81 +;;; it under the terms of the GNU General Public License as published by
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	82 +;;; the Free Software Foundation; either version 3, or (at your option)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	83 +;;; any later version.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	84 +;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	85 +;;; GCC is distributed in the hope that it will be useful,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	86 +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	87 +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	88 +;;; GNU General Public License for more details.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	89 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	90 +;;; You should have received a copy of the GNU General Public License
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	91 +;;; along with GCC; see the file COPYING3. If not see
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	92 +;;; <http://www.gnu.org/licenses/>.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	93 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	94 + /* Declare external for main() */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	95 + .globl _main
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	96 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	97 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	98 +/* The startup is heavily dependent on the type of machine and
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	99 +OS environment that is available at the start point.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	100 +For the most part, the general idea is the same across machines,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	101 +but the implementation is vastly different. This is managed via
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	102 +conditional compiles throughout the startup code for each of the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	103 +supported machines. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	104 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	105 +#ifdef TARGET_COCO /* CoCo memory map */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	106 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	107 +#define COCO_RAMROM_MODE 0xFFDE
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	108 +#define COCO_ALLRAM_MODE 0xFFDF
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	109 +#define COCO_PAGE1 0xFFD5
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	110 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	111 +/* SAM M1 and M0 adjusts the memory size */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	112 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	113 +#define BASIC_WARMSTART_FLAG 0x0071
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	114 +#define BASIC_START 0xA027
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	115 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	116 +#define __STACK_TOP 0x6800
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	117 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	118 +#else /* Simulator (default) memory map */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	119 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	120 +#define SIM_EXIT_REG 0xFF01
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	121 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	122 +#define __STACK_TOP 0xFE00
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	123 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	124 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	125 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	126 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	127 + .area .data
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	128 + .area .ctors
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	129 + .area .dtors
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	130 + .area .bss
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	131 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	132 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	133 + ;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	134 + ;;; __exit : Exit point from the program
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	135 + ;;; For simulation, this writes to a special I/O register that
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	136 + ;;; the simulator interprets as end-of-program.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	137 + ;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	138 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	139 + .area .text
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	140 + .globl __exit
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	141 +__exit:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	142 +#ifdef TARGET_COCO
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	143 + ;; Go back to ROM/RAM mode
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	144 + sta COCO_RAMROM_MODE
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	145 + clr BASIC_WARMSTART_FLAG
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	146 + jmp BASIC_START
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	147 +#else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	148 + tfr x,d
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	149 + stb SIM_EXIT_REG
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	150 + bra __exit
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	151 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	152 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	153 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	154 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	155 + ;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	156 + ;;; __start : Entry point to the program
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	157 + ;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	158 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	159 + .area .text
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	160 + .globl __start
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	161 +__start:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	162 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	163 +#ifdef HAVE_DIRECT
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	164 + ;; Initialize the direct page pointer
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	165 + lda #<s_.direct
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	166 + tfr a,dp
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	167 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	168 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	169 +#ifdef TARGET_COCO
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	170 + ;; Turn off interrupts
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	171 + orcc #(0x10\|0x40)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	172 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	173 + ;; Setup All RAM Mode
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	174 + sta COCO_ALLRAM_MODE
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	175 +#endif /* TARGET_COCO */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	176 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	177 + ;; Initialize the stack
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	178 + lds #__STACK_TOP - 2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	179 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	180 + ;; Call any "initializer" functions
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	181 + ldu #s_.ctors
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	182 +__ctors_loop:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	183 + ldy ,u++
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	184 + cmpy #0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	185 + beq __ctors_done
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	186 + jsr ,y
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	187 + bra __ctors_loop
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	188 +__ctors_done:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	189 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	190 + ;; Enable interrupts on the simulator
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	191 +#ifndef TARGET_COCO
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	192 + andcc #~(0x10\|0x40)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	193 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	194 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	195 + ;; Set up the environment
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	196 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	197 + ;; Set up argc/argv arrays
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	198 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	199 + ;; Call the main function. The exit code will
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	200 + ;; be returned in the X register, unless compiled
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	201 + ;; with -mdret, in which case it comes back in D.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	202 + jsr _main
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	203 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	204 + ;; Call any finalizer functions
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	205 + ldu #s_.dtors
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	206 +__dtors_loop:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	207 + ldy ,u++
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	208 + cmpy #0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	209 + beq __dtors_done
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	210 + jsr ,y
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	211 + bra __dtors_loop
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	212 +__dtors_done:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	213 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	214 + ;; If main returns, then invoke _exit() to stop the program
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	215 + ;; The C library doesn't support -mdret yet, so move the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	216 + ;; argument first.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	217 +#ifdef __DRET__
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	218 + tfr d,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	219 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	220 + jmp _exit
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	221 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	222 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	223 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	224 + ;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	225 + ;;; __crt0_vector : Default handler for interrupts
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	226 + ;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	227 + .area .text
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	228 +___crt0_vector:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	229 + ;; The default behavior is to simply ignore all
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	230 + ;; non-reset interrupts.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	231 + rti
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	232 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	233 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	234 + ;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	235 + ;;; vector : The interrupt vector table
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	236 + ;;; The linker will ensure that this gets loaded at address 0xFFF0.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	237 + ;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	238 + .area vector
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	239 +vectors:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	240 + .word ___crt0_vector
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	241 + .word ___crt0_vector
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	242 + .word ___crt0_vector
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	243 + .word ___crt0_vector
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	244 + .word ___crt0_vector
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	245 + .word ___crt0_vector
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	246 + .word ___crt0_vector
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	247 + .word __start
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	248 diff -urN gcc-4.6.4-clean/gcc/config/m6809/libgcc1.s gcc-4.6.4/gcc/config/m6809/libgcc1.s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	249 --- gcc-4.6.4-clean/gcc/config/m6809/libgcc1.s 1969-12-31 17:00:00.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	250 +++ gcc-4.6.4/gcc/config/m6809/libgcc1.s 2015-07-20 19:44:52.766843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	251 @@ -0,0 +1,511 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	252 +/* libgcc routines for m6809
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	253 + Copyright (C) 2006 Free Software Foundation, Inc.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	254 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	255 +This file is part of GCC.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	256 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	257 +GCC is free software; you can redistribute it and/or modify
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	258 +it under the terms of the GNU General Public License as published by
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	259 +the Free Software Foundation; either version 3, or (at your option)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	260 +any later version.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	261 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	262 +GCC is distributed in the hope that it will be useful,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	263 +but WITHOUT ANY WARRANTY; without even the implied warranty of
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	264 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	265 +GNU General Public License for more details.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	266 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	267 +You should have received a copy of the GNU General Public License
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	268 +along with GCC; see the file COPYING3. If not see
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	269 +<http://www.gnu.org/licenses/>. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	270 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	271 +/* As a special exception, if you link this library with other files,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	272 + some of which are compiled with GCC, to produce an executable,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	273 + this library does not by itself cause the resulting executable
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	274 + to be covered by the GNU General Public License.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	275 + This exception does not however invalidate any other reasons why
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	276 + the executable file might be covered by the GNU General Public License. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	277 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	278 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	279 +#define SIGFPE jmp _abort
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	280 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	281 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	282 + ; Shift functions
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	283 + ; On input, D is value to be shifted, and X has shift count.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	284 + ; Result is also in D.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	285 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	286 +#ifdef L_ashlhi3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	287 + .area .text
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	288 + .globl _ashlhi3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	289 +_ashlhi3:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	290 + pshs x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	291 +1$:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	292 + leax -1,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	293 + cmpx #-1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	294 + beq 2$
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	295 + aslb
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	296 + rola
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	297 + bra 1$
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	298 +2$:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	299 + puls x,pc
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	300 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	301 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	302 +#ifdef L_ashrhi3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	303 + .area .text
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	304 + .globl _ashrhi3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	305 +_ashrhi3:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	306 + pshs x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	307 +1$:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	308 + leax -1,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	309 + cmpx #-1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	310 + beq 2$
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	311 + asra
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	312 + rorb
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	313 + bra 1$
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	314 +2$:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	315 + puls x,pc
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	316 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	317 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	318 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	319 +#ifdef L_lshrhi3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	320 + .area .text
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	321 + .globl _lshrhi3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	322 +_lshrhi3:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	323 + pshs x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	324 +1$:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	325 + leax -1,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	326 + cmpx #-1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	327 + beq 2$
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	328 + lsra
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	329 + rorb
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	330 + bra 1$
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	331 +2$:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	332 + puls x,pc
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	333 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	334 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	335 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	336 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	337 +#ifdef L_softregs
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	338 + .area direct
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	339 + .globl m0, m1, m2, m3, m4, m5, m6, m7
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	340 + .globl m8, m9, m10, m11, m12, m13, m14, m15
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	341 +m0: .blkb 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	342 +m1: .blkb 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	343 +m2: .blkb 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	344 +m3: .blkb 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	345 +m4: .blkb 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	346 +m5: .blkb 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	347 +m6: .blkb 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	348 +m7: .blkb 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	349 +m8: .blkb 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	350 +m9: .blkb 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	351 +m10: .blkb 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	352 +m11: .blkb 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	353 +m12: .blkb 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	354 +m13: .blkb 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	355 +m14: .blkb 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	356 +m15: .blkb 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	357 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	358 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	359 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	360 +#ifdef L_ashlsi3_one
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	361 + .area .text
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	362 + .globl _ashlsi3_one
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	363 +_ashlsi3_one:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	364 + asl 3,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	365 + rol 2,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	366 + rol 1,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	367 + rol ,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	368 + rts
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	369 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	370 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	371 +#ifdef L_ashlsi3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	372 + /* X points to the SImode (source/dest)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	373 + B is the count */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	374 +_ashlsi3:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	375 + pshs u
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	376 + cmpb #16
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	377 + blt try8
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	378 + subb #16
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	379 + ; Shift by 16
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	380 + ldu 2,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	381 + stu ,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	382 +try8:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	383 + cmpb #8
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	384 + blt try_rest
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	385 + subb #8
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	386 + ; Shift by 8
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	387 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	388 +try_rest:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	389 + tstb
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	390 + beq done
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	391 +do_rest:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	392 + ; Shift by 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	393 + asl 3,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	394 + rol 2,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	395 + rol 1,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	396 + rol ,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	397 + decb
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	398 + bne do_rest
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	399 +done:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	400 + puls u,pc
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	401 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	402 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	403 +#ifdef L_ashrsi3_one
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	404 + .area .text
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	405 + .globl _ashlsi3_one
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	406 +_ashrsi3_one:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	407 + asr ,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	408 + ror 1,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	409 + ror 2,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	410 + ror 3,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	411 + rts
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	412 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	413 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	414 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	415 +#ifdef L_lshrsi3_one
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	416 + .area .text
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	417 + .globl _lshrsi3_one
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	418 +_lshrsi3_one:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	419 + lsr ,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	420 + ror 1,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	421 + ror 2,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	422 + ror 3,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	423 + rts
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	424 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	425 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	426 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	427 +#ifdef L_clzsi2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	428 + .area .text
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	429 + .globl ___clzhi2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	430 + ; Input: X = 16-bit unsigned integer
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	431 + ; Output: X = number of leading zeros
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	432 + ; This function destroys the value in D.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	433 +___clzhi2:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	434 + pshs x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	435 + ; Find the offset of the leftmost '1' bit in
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	436 + ; the left half of the word.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	437 + ;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	438 + ; Bits are numbered in the table with 1 meaning the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	439 + ; LSB and 8 meaning the MSB.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	440 + ;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	441 + ; If nonzero, then clz is 8-a.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	442 + tfr x,d
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	443 + ldx #___clz_tab
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	444 + tfr a,b
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	445 + clra
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	446 + ldb d,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	447 + bne upper_bit_set
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	448 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	449 +lower_bit_set:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	450 + ; If the upper byte is zero, then check the lower
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	451 + ; half of the word. Return 16-a.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	452 + puls d
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	453 + clra
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	454 + ldb d,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	455 + negb
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	456 + addb #16
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	457 + bra done
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	458 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	459 +upper_bit_set:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	460 + negb
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	461 + addb #8
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	462 + puls x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	463 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	464 +done:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	465 + tfr d,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	466 + puls pc
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	467 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	468 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	469 +#ifdef L_clzdi2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	470 + .area .text
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	471 + .globl ___clzsi2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	472 + ; Input: 32-bit unsigned integer is on the stack, just
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	473 + ; above the return address
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	474 + ; Output: X = number of leading zeros
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	475 +___clzsi2:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	476 + ; Check the upper 16-bit word
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	477 + ; If it is not zero, then return clzhi2(X).
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	478 + ; A branch can be used instead of a call since no
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	479 + ; postprocessing is needed. Use long branch form
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	480 + ; though since functions may not be near each other.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	481 + ldx 2,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	482 + lbne ___clzhi2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	483 + ldx 4,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	484 + jsr ___clzhi2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	485 + leax 16,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	486 + rts
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	487 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	488 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	489 +#ifdef L_ctzsi2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	490 + .area .text
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	491 + .globl ___ctzhi2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	492 + ; Input: X = 16-bit unsigned integer
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	493 + ; Output: X = number of trailing zeros
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	494 + ; F(x) = 15 - clzhi2(X & -x)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	495 + ; This function destroys the value in D.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	496 +___ctzhi2:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	497 + tfr x,d
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	498 + coma
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	499 + comb
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	500 + addd #1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	501 + pshs a
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	502 + pshs b
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	503 + tfr x,d
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	504 + andb ,s+
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	505 + anda ,s+
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	506 + tfr d,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	507 + jsr ___clzhi2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	508 + tfr x,d
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	509 + subd #16
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	510 + coma
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	511 + comb
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	512 + tfr d,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	513 + rts
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	514 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	515 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	516 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	517 +#ifdef L_ctzdi2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	518 + .area .text
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	519 + .globl ___ctzsi2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	520 + ; Input: 32-bit unsigned integer is on the stack, just
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	521 + ; above the return address
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	522 + ; Output: X = number of leading zeros
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	523 +___ctzsi2:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	524 + ; Check the lower 16-bit word
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	525 + ; If it is not zero, then return ctzhi2(X).
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	526 + ; A branch can be used instead of a call since no
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	527 + ; postprocessing is needed. Use long branch form
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	528 + ; though since functions may not be near each other.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	529 + ldx 4,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	530 + lbne ___ctzhi2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	531 + ldx 2,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	532 + jsr ___ctzhi2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	533 + leax 16,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	534 + rts
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	535 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	536 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	537 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	538 +#ifdef L_mulhi3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	539 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	540 +;;; ___mulhi3 - signed/unsigned multiply
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	541 +;;; Called by GCC to implement 16x16 multiplication
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	542 +;;; Arguments: Two 16-bit values, one in stack, one in X.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	543 +;;; Result: 16-bit result in X
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	544 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	545 + .area .text
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	546 + .globl _mulhi3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	547 +_mulhi3:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	548 + pshs x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	549 + lda 5,s ; left msb * right lsb * 256
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	550 + ldb ,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	551 + mul
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	552 + tfr b,a
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	553 + clrb
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	554 + tfr d,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	555 + ldb 1,s ; left lsb * right msb * 256
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	556 + lda 4,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	557 + mul
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	558 + tfr b,a
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	559 + clrb
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	560 + leax d,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	561 + ldb 1,s ; left lsb * right lsb
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	562 + lda 5,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	563 + mul
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	564 + leax d,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	565 + puls d,pc ; kill D to remove initial push
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	566 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	567 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	568 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	569 +#ifdef L_divhi3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	570 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	571 +;;; ___divhi3 - signed division
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	572 +;;; Arguments: Dividend in X, divisor on the stack
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	573 +;;; Returns result in X.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	574 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	575 + .area .text
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	576 + .globl _divhi3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	577 +_divhi3:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	578 + ldd 2,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	579 + bne do_div ; check dividend
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	580 + SIGFPE
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	581 +do_div:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	582 + pshs x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	583 + jsr _seuclid
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	584 + puls x,pc
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	585 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	586 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	587 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	588 +#ifdef L_modhi3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	589 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	590 +;;; ___modhi3 - signed modulo
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	591 +;;; Arguments: Dividend in X, divisor on the stack
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	592 +;;; Returns result in X.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	593 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	594 + .area .text
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	595 + .globl _modhi3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	596 +_modhi3:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	597 + ldd 2,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	598 + bne do_mod ; check dividend
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	599 + SIGFPE
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	600 +do_mod:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	601 + pshs x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	602 + jsr _seuclid
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	603 + leas 2,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	604 + tfr d,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	605 + rts
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	606 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	607 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	608 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	609 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	610 +#ifdef L_udivhi3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	611 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	612 +;;; ___udivhi3 - unsigned division
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	613 +;;; Arguments: Dividend in X, divisor on the stack
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	614 +;;; Returns result in X.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	615 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	616 + .area .text
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	617 + .globl _udivhi3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	618 +_udivhi3:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	619 + ldd 2,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	620 + bne do_udiv ; check dividend
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	621 + SIGFPE
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	622 +do_udiv:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	623 + pshs x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	624 + jsr _euclid
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	625 + puls x,pc
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	626 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	627 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	628 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	629 +#ifdef L_umodhi3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	630 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	631 +;;; ___umodhi3 - unsigned modulo
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	632 +;;; Arguments: Dividend in X, divisor on the stack
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	633 +;;; Returns result in X.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	634 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	635 + .area .text
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	636 + .globl _umodhi3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	637 +_umodhi3:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	638 + ldd 2,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	639 + bne do_umod ; check dividend
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	640 + SIGFPE
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	641 +do_umod:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	642 + pshs x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	643 + jsr _euclid
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	644 + leas 2,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	645 + tfr d,x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	646 + rts
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	647 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	648 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	649 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	650 +#ifdef L_euclid
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	651 +; unsigned euclidean division
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	652 +; calling: (left / right)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	653 +; push left
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	654 +; ldd right
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	655 +; jsr _euclid
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	656 +; quotient on the stack (left)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	657 +; modulus in d
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	658 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	659 + .area .text
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	660 + .globl _euclid
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	661 + left=5
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	662 + right=1 ; word
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	663 + count=0 ; byte
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	664 + CARRY=1 ; alias
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	665 +_euclid:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	666 + leas -3,s ; 2 local variables
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	667 + clr count,s ; prescale divisor
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	668 + inc count,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	669 + tsta
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	670 +presc:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	671 + bmi presc_done
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	672 + inc count,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	673 + aslb
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	674 + rola
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	675 + bra presc
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	676 +presc_done:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	677 + std right,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	678 + ldd left,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	679 + clr left,s ; quotient = 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	680 + clr left+1,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	681 +mod1:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	682 + subd right,s ; check subtract
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	683 + bcc mod2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	684 + addd right,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	685 + andcc #~CARRY
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	686 + bra mod3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	687 +mod2:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	688 + orcc #CARRY
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	689 +mod3:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	690 + rol left+1,s ; roll in carry
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	691 + rol left,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	692 + lsr right,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	693 + ror right+1,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	694 + dec count,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	695 + bne mod1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	696 + leas 3,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	697 + rts
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	698 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	699 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	700 +#ifdef L_seuclid
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	701 +; signed euclidean division
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	702 +; calling: (left / right)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	703 +; push left
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	704 +; ldd right
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	705 +; jsr _seuclid
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	706 +; quotient on the stack (left)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	707 +; modulus in d
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	708 + .area .text
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	709 + .globl _seuclid
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	710 + left=6
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	711 + right=2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	712 + quot_sign=1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	713 + mod_sign=0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	714 +_seuclid:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	715 + leas -4,s ; 3 local variables
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	716 + std right,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	717 + clr mod_sign,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	718 + clr quot_sign,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	719 + ldd left,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	720 + bge mod_abs
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	721 + inc mod_sign,s ; sign(mod) = sign(left)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	722 + inc quot_sign,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	723 + bsr negd ; abs(left) -> D
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	724 +mod_abs:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	725 + pshs b,a ; push abs(left)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	726 + ldd right+2,s ; all references shifted by 2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	727 + bge quot_abs
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	728 + dec quot_sign+2,s ; sign(quot) = sign(left) XOR sign(right)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	729 + bsr negd ; abs(right) -> D
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	730 +quot_abs:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	731 + jsr _euclid ; call (unsigned) euclidean division
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	732 + std right+2,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	733 + puls a,b ; quot -> D
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	734 + tst quot_sign,s ; all references no longer shifted
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	735 + beq quot_done
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	736 + bsr negd
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	737 +quot_done:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	738 + std left,s ; quot -> left
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	739 + ldd right,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	740 + tst mod_sign,s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	741 + beq mod_done
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	742 + bsr negd
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	743 +mod_done:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	744 + leas 4,s ; destroy stack frame
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	745 + rts
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	746 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	747 +negd: ; self-explanatory !
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	748 + nega
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	749 + negb
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	750 + sbca #0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	751 + rts
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	752 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	753 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	754 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	755 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	756 +#ifdef L_pending_addsi3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	757 +_addsi3:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	758 + rts
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	759 +#endif /* L_pending_addsi3 */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	760 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	761 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	762 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	763 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.c gcc-4.6.4/gcc/config/m6809/m6809.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	764 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.c 1969-12-31 17:00:00.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	765 +++ gcc-4.6.4/gcc/config/m6809/m6809.c 2015-07-20 22:11:37.726714746 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	766 @@ -0,0 +1,3023 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	767 +/*-------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	768 + FILE: m6809.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	769 +-------------------------------------------------------------------*/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	770 +/* Subroutines for insn-output.c for MC6809.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	771 + Copyright (C) 1989-2007 Free Software Foundation, Inc.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	772 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	773 + MC6809 Version by Tom Jones (jones@sal.wisc.edu)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	774 + Space Astronomy Laboratory
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	775 + University of Wisconsin at Madison
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	776 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	777 + minor changes to adapt it to gcc-2.5.8 by Matthias Doerfel
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	778 + ( msdoerfe@informatik.uni-erlangen.de )
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	779 + also added #pragma interrupt (inspired by gcc-6811)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	780 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	781 + minor changes to adapt it to gcc-2.8.0 by Eric Botcazou
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	782 + (ebotcazou@multimania.com)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	783 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	784 + minor changes to adapt it to gcc-2.95.3 by Eric Botcazou
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	785 + (ebotcazou@multimania.com)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	786 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	787 + major cleanup, improvements, and upgrade to gcc 3.4 by Brian Dominy
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	788 + (brian@oddchange.com)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	789 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	790 + additional adjustments, etc., for gcc 4.6.1 by William Astle (lost@l-w.ca)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	791 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	792 +This file is part of GCC.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	793 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	794 +GCC is free software; you can redistribute it and/or modify
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	795 +it under the terms of the GNU General Public License as published by
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	796 +the Free Software Foundation; either version 3, or (at your option)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	797 +any later version.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	798 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	799 +GCC is distributed in the hope that it will be useful,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	800 +but WITHOUT ANY WARRANTY; without even the implied warranty of
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	801 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	802 +GNU General Public License for more details.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	803 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	804 +You should have received a copy of the GNU General Public License
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	805 +along with GCC; see the file COPYING3. If not see
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	806 +<http://www.gnu.org/licenses/>. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	807 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	808 +#include <string.h>
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	809 +#include <time.h>
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	810 +#include <sys/types.h>
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	811 +#include <sys/timeb.h>
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	812 +#include <stdio.h>
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	813 +#include "config.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	814 +#include "system.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	815 +#include "coretypes.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	816 +#include "tm.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	817 +#include "tree.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	818 +#include "rtl.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	819 +#include "tm_p.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	820 +#include "regs.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	821 +#include "flags.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	822 +#include "hard-reg-set.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	823 +#include "real.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	824 +#include "tree.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	825 +#include "insn-config.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	826 +#include "conditions.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	827 +#include "insn-flags.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	828 +#include "output.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	829 +#include "insn-attr.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	830 +#include "function.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	831 +#include "target.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	832 +#include "target-def.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	833 +#include "expr.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	834 +#include "recog.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	835 +#include "cpplib.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	836 +#include "c-family/c-pragma.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	837 +#include "c-family/c-common.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	838 +#include "toplev.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	839 +#include "optabs.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	840 +#include "version.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	841 +#include "df.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	842 +#include "rtlhooks-def.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	843 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	844 +/* macro to return TRUE if length of operand mode is one byte */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	845 +#define BYTE_MODE(X) ((GET_MODE_SIZE (GET_MODE (X))) == 1)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	846 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	847 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	848 +/* REAL_REG_P(x) is a true if the rtx 'x' represents a real CPU
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	849 +register and not a fake one that is emulated in software. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	850 +#define REAL_REG_P(x) (REG_P(x) && !M_REG_P(x))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	851 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	852 +/*-------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	853 + Target hooks, moved from target.h
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	854 +-------------------------------------------------------------------*/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	855 +static void m6809_encode_section_info (tree decl, rtx rtl, int new_decl_p ATTRIBUTE_UNUSED);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	856 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	857 +#undef TARGET_ENCODE_SECTION_INFO
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	858 +#define TARGET_ENCODE_SECTION_INFO m6809_encode_section_info
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	859 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	860 +#undef TARGET_ASM_FILE_START
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	861 +#define TARGET_ASM_FILE_START m6809_asm_file_start
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	862 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	863 +#undef TARGET_ASM_ALIGNED_HI_OP
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	864 +#define TARGET_ASM_ALIGNED_HI_OP "\t.word\t"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	865 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	866 +#undef TARGET_ASM_ALIGNED_SI_OP
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	867 +#define TARGET_ASM_ALIGNED_SI_OP NULL
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	868 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	869 +#undef TARGET_ASM_UNALIGNED_HI_OP
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	870 +#define TARGET_ASM_UNALIGNED_HI_OP "\t.word\t"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	871 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	872 +#undef TARGET_ASM_UNALIGNED_SI_OP
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	873 +#define TARGET_ASM_UNALIGNED_SI_OP NULL
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	874 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	875 +#undef TARGET_RTX_COSTS
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	876 +#define TARGET_RTX_COSTS m6809_rtx_costs
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	877 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	878 +#undef TARGET_ATTRIBUTE_TABLE
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	879 +#define TARGET_ATTRIBUTE_TABLE m6809_attribute_table
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	880 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	881 +#undef TARGET_INIT_BUILTINS
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	882 +#define TARGET_INIT_BUILTINS m6809_init_builtins
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	883 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	884 +#undef TARGET_EXPAND_BUILTIN
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	885 +#define TARGET_EXPAND_BUILTIN m6809_expand_builtin
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	886 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	887 +#undef TARGET_DEFAULT_TARGET_FLAGS
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	888 +#define TARGET_DEFAULT_TARGET_FLAGS (MASK_REG_ARGS \| MASK_DIRECT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	889 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	890 +#undef TARGET_FUNCTION_OK_FOR_SIBCALL
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	891 +#define TARGET_FUNCTION_OK_FOR_SIBCALL m6809_function_ok_for_sibcall
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	892 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	893 +#undef TARGET_ASM_TRAMPOLINE_TEMPLATE
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	894 +#define TARGET_ASM_TRAMPOLINE_TEMPLATE m6809_asm_trampoline_template
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	895 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	896 +#undef TARGET_TRAMPOLINE_INIT
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	897 +#define TARGET_TRAMPOLINE_INIT m6809_initialize_trampoline
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	898 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	899 +#undef TARGET_FRAME_POINTER_REQUIRED
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	900 +#define TARGET_FRAME_POINTER_REQUIRED m6809_frame_pointer_required
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	901 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	902 +#undef TARGET_OPTION_OVERRIDE
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	903 +#define TARGET_OPTION_OVERRIDE m6809_override_options
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	904 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	905 +/* External variables used */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	906 +extern int reload_completed; /* set in toplev.c */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	907 +extern FILE *asm_out_file;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	908 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	909 +static int last_mem_size; /* operand size (bytes) */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	910 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	911 +/* True if the section was recently changed and another .area
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	912 + * directive needs to be output before emitting the next label. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	913 +int section_changed = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	914 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	915 +/* Section names. The defaults here are used until an
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	916 + * __attribute__((section)) is seen that changes it. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	917 +char code_section_op[128] = "\t.area .text";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	918 +char data_section_op[128] = "\t.area .data";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	919 +char bss_section_op[128] = "\t.area .bss";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	920 +const char *code_bank_option = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	921 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	922 +/* TRUE if the direct mode prefix might be valid in this context.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	923 + * This is set by 'print_address' prior to calling output_addr_const,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	924 + * which performs into 'print_direct_prefix' to do the final checks. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	925 +static int check_direct_prefix_flag;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	926 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	927 +/* Nonzero if an address is being printed in a context which does not
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	928 + * permit any PIC modifications to the address */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	929 +static int pic_ok_for_addr_p = 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	930 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	931 +/* Current code page. This supports machines which can do bank
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	932 + * switching to allow for more than 64KB of code/data. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	933 +char far_code_page[64];
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	934 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	935 +/* Current bank name */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	936 +static char current_bank_name[8] = "-1";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	937 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	938 +/* Default bank name */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	939 +static char default_code_bank_name[8] = "-1";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	940 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	941 +/* Direct memory reserved as soft registers */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	942 +unsigned int m6809_soft_regs = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	943 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	944 +/* ABI version */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	945 +unsigned int m6809_abi_version = M6809_ABI_VERSION_REGS;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	946 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	947 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	948 +/**
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	949 + * Called after options have been parsed.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	950 + * If overrides have been specified on the command-line, then
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	951 + * these values are copied into the main storage variables.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	952 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	953 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	954 +m6809_override_options (void)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	955 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	956 + /* Handle -mfar-code-page */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	957 + if (far_code_page_option == 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	958 + far_code_page_option = "__default_code_page";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	959 + strcpy (far_code_page, far_code_page_option);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	960 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	961 + /* Handle -mcode-section, -mdata-section, and -mbss-section */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	962 + if (code_section_ptr != 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	963 + sprintf (code_section_op, "\t.area %s", code_section_ptr);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	964 + if (data_section_ptr != 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	965 + sprintf (data_section_op, "\t.area %s", data_section_ptr);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	966 + if (bss_section_ptr != 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	967 + sprintf (bss_section_op, "\t.area %s", bss_section_ptr);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	968 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	969 + /* Handle -mcode-bank */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	970 + if (code_bank_option != 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	971 + sprintf (default_code_bank_name, "%s", code_bank_option);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	972 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	973 + /* Handle -mabi-version or -mno-reg-args */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	974 + if (m6809_abi_version_ptr != 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	975 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	976 + if (!strcmp (m6809_abi_version_ptr, "stack"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	977 + m6809_abi_version = M6809_ABI_VERSION_STACK;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	978 + else if (!strcmp (m6809_abi_version_ptr, "regs"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	979 + m6809_abi_version = M6809_ABI_VERSION_REGS;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	980 + else if (!strcmp (m6809_abi_version_ptr, "bx"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	981 + m6809_abi_version = M6809_ABI_VERSION_BX;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	982 + else if (!strcmp (m6809_abi_version_ptr, "latest"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	983 + m6809_abi_version = M6809_ABI_VERSION_LATEST;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	984 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	985 + m6809_abi_version = atoi (m6809_abi_version_ptr);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	986 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	987 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	988 + /* The older -mno-reg-args option is deprecated, and treated
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	989 + as -mabi=stack. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	990 + if (!TARGET_REG_ARGS)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	991 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	992 + warning (WARNING_OPT "-mno-reg-args deprecated; use -mabi=stack instead.");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	993 + m6809_abi_version = M6809_ABI_VERSION_STACK;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	994 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	995 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	996 + /* -fexceptions is unsupported */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	997 + flag_exceptions = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	998 + flag_non_call_exceptions = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	999 + flag_unwind_tables = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1000 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1001 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1002 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1003 +/**
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1004 + * Output prefix that directs the assembler to use a direct-mode
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1005 + * instruction if globally enabled, address is a symbol, and symbol
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1006 + * has been marked as in direct page. Also, never do this if
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1007 + * using the indirect mode. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1008 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1009 +print_direct_prefix (FILE * file, rtx addr)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1010 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1011 + if (TARGET_DIRECT &&
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1012 + (GET_CODE (addr) == SYMBOL_REF) &&
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1013 + SYMBOL_REF_FLAG (addr) &&
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1014 + check_direct_prefix_flag)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1015 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1016 + putc ('*', file);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1017 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1018 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1019 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1020 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1021 +/** Prints an operand (that is not an address) in assembly from RTL. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1022 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1023 +print_operand (FILE * file, rtx x, int code)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1024 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1025 + if (REG_P (x)) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1026 + /* gcc currently allocates the entire 16-bit 'd' register
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1027 + * even when it only needs an 8-bit value. So here it
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1028 + * is tricked into printing only the lower 8-bit 'b'
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1029 + * register into the assembly output.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1030 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1031 + * Eventually gcc should be modified to allocate a/b
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1032 + * independently and this hack can be removed.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1033 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1034 + * Occasionally, we may want to do an operation using
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1035 + * the 'a' register instead of 'b'; use the 'A' code
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1036 + * to specify that.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1037 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1038 + if (code == 'A')
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1039 + fputs ("a", file);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1040 + else if ((BYTE_MODE (x)) && (REGNO (x) == HARD_D_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1041 + fputs ("b", file);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1042 + else if (M_REG_P (x) && code == 'L')
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1043 + /* Soft registers can be treated like memory and accessed
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1044 + * at a particular offset. TODO : handle 'W' */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1045 + fputs (reg_names[REGNO (x)+1], file);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1046 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1047 + fputs (reg_names[REGNO (x)], file);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1048 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1049 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1050 + else if (MEM_P (x)) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1051 + last_mem_size = GET_MODE_SIZE (GET_MODE (x));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1052 + if (code == 'L') { /* LSH of word address */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1053 + if (GET_CODE (XEXP (x, 0)) == MEM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1054 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1055 + /* Offseting an indirect addressing mode is not supported */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1056 + error ("expression too complex for 6809 (offset indirect mode)");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1057 + debug_rtx (x);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1058 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1059 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1060 + x = adjust_address (x, QImode, 1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1061 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1062 + else if (code == 'M') { /* MSH of word address */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1063 + if (GET_CODE (XEXP (x, 0)) == MEM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1064 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1065 + /* Offseting an indirect addressing mode is not supported */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1066 + error ("expression too complex for 6809 (offset indirect mode)");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1067 + debug_rtx (x);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1068 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1069 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1070 + x = adjust_address (x, QImode, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1071 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1072 + else if (code == 'W') { /* least significant half of 32-bit */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1073 + x = adjust_address (x, HImode, 2);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1074 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1075 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1076 + pic_ok_for_addr_p = (code != 'C');
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1077 + output_address (XEXP (x, 0));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1078 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1079 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1080 + else if (GET_CODE (x) == CONST_DOUBLE && GET_MODE (x) != DImode) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1081 + union { double d; int i[2]; } u;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1082 + u.i[0] = CONST_DOUBLE_LOW (x);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1083 + u.i[1] = CONST_DOUBLE_HIGH (x);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1084 + fprintf (file, "#%#9.9g", u.d);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1085 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1086 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1087 + else if (code == 'R') {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1088 + fprintf (file, "%s",
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1089 + m6809_get_regs_printable (INTVAL (x)));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1090 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1091 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1092 + else {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1093 + if (code == 'L') { /* LSH of word address */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1094 + x = gen_rtx_CONST_INT (VOIDmode, (INTVAL(x) & 0xff));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1095 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1096 + else if (code == 'M') { /* MSH of word address */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1097 + x = gen_rtx_CONST_INT (VOIDmode, ((INTVAL(x) >> 8) & 0xff));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1098 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1099 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1100 + putc ('#', file);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1101 + output_addr_const (file, x);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1102 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1103 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1104 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1105 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1106 +/** Prints an address operand to assembler from its RTL representation. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1107 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1108 +print_operand_address (FILE *file, rtx addr)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1109 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1110 + register rtx base = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1111 + register rtx offset = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1112 + int regno;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1113 + int indirect_flag = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1114 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1115 + check_direct_prefix_flag = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1116 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1117 + /* check for indirect addressing */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1118 + if (MEM_P (addr)) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1119 + last_mem_size = GET_MODE_SIZE (GET_MODE (addr));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1120 + addr = XEXP (addr, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1121 + if (pic_ok_for_addr_p)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1122 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1123 + indirect_flag = 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1124 + fprintf (file, "[");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1125 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1126 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1127 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1128 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1129 + switch (GET_CODE (addr)) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1130 + case REG:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1131 + regno = REGNO (addr);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1132 + fprintf (file, ",%s", reg_names[regno]);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1133 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1134 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1135 + case PRE_DEC:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1136 + regno = REGNO (XEXP (addr, 0));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1137 + fputs (((last_mem_size == 1) ? ",-" : ",--"), file);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1138 + fprintf (file, "%s", reg_names[regno]);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1139 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1140 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1141 + case POST_INC:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1142 + regno = REGNO (XEXP (addr, 0));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1143 + fprintf (file, ",%s", reg_names[regno]);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1144 + fputs (((last_mem_size == 1) ? "+" : "++"), file);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1145 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1146 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1147 + case PLUS:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1148 + base = XEXP (addr, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1149 + if (MEM_P (base))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1150 + base = XEXP (base, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1151 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1152 + offset = XEXP (addr, 1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1153 + if (MEM_P (offset))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1154 + offset = XEXP (offset, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1155 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1156 + if ((CONSTANT_ADDRESS_P (base)) && (CONSTANT_ADDRESS_P (offset))) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1157 + if (!indirect_flag)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1158 + check_direct_prefix_flag = 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1159 + output_addr_const (file, base);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1160 + check_direct_prefix_flag = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1161 + fputs ("+", file);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1162 + output_addr_const (file, offset);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1163 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1164 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1165 + else if ((CONSTANT_ADDRESS_P (base)) && (A_REG_P (offset))) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1166 + output_addr_const (file, base);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1167 + fprintf (file, ",%s", reg_names[REGNO (offset)]);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1168 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1169 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1170 + else if ((CONSTANT_ADDRESS_P (offset)) && (A_REG_P (base))) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1171 + output_addr_const (file, offset);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1172 + fprintf (file, ",%s", reg_names[REGNO (base)]);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1173 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1174 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1175 + /* accumulator offset */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1176 + else if (((D_REG_P (offset)) \|\| (Q_REG_P (offset)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1177 + && (A_REG_P (base))) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1178 + fprintf (file, "%s,%s",
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1179 + reg_names[REGNO (offset)], reg_names[REGNO (base)]);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1180 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1181 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1182 + else if (((D_REG_P (base)) \|\| (Q_REG_P (base)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1183 + && (A_REG_P (offset))) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1184 + fprintf (file, "%s,%s",
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1185 + reg_names[REGNO (base)], reg_names[REGNO (offset)]);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1186 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1187 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1188 + else if (GET_CODE (base) == PRE_DEC) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1189 + regno = REGNO (XEXP (base, 0));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1190 + fputs (((last_mem_size == 1) ? ",-" : ",--"), file);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1191 + fprintf (file, "%s", reg_names[regno]);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1192 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1193 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1194 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1195 + abort ();
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1196 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1197 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1198 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1199 + default:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1200 + /* Set this global before calling output_addr_const() */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1201 + if (!indirect_flag)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1202 + check_direct_prefix_flag = 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1203 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1204 + /* When printing a SYMBOL_REF in PIC mode, do not print the leading
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1205 + * '#' and follow it by ',pcr' to enable relative addressing. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1206 + if (flag_pic && pic_ok_for_addr_p && GET_CODE (addr) == SYMBOL_REF)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1207 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1208 + ASM_OUTPUT_SYMBOL_REF (file, addr);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1209 + fputs (",pcr", file);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1210 + pic_ok_for_addr_p = 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1211 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1212 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1213 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1214 + output_addr_const (file, addr);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1215 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1216 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1217 + check_direct_prefix_flag = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1218 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1219 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1220 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1221 + if (indirect_flag)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1222 + fprintf (file, "]");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1223 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1224 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1225 +/*-------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1226 + Update the CC Status
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1227 +---------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1228 + Set the cc_status for the results of an insn whose pattern is EXP.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1229 + We assume that jumps don't affect the condition codes.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1230 + All else, clobbers the condition codes, by assumption.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1231 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1232 + We assume that ALL add, minus, etc. instructions effect the condition
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1233 + codes.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1234 +-------------------------------------------------------------------*/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1235 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1236 +notice_update_cc (rtx exp, rtx insn ATTRIBUTE_UNUSED)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1237 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1238 + int src_code;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1239 + int dst_code;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1240 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1241 + /* recognize SET insn's */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1242 + if (GET_CODE (exp) == SET)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1243 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1244 + src_code = GET_CODE (SET_SRC (exp));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1245 + dst_code = GET_CODE (SET_DEST (exp));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1246 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1247 + /* Jumps do not alter the cc's. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1248 + if (SET_DEST (exp) == pc_rtx)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1249 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1250 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1251 + /* Moving one register into another register (tfr):
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1252 + Doesn't alter the cc's. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1253 + if (REG_P (SET_DEST (exp)) && (REG_P (SET_SRC (exp))))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1254 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1255 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1256 + /* Moving memory into a register (load): Sets cc's. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1257 + if (REG_P (SET_DEST (exp)) && src_code == MEM) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1258 + cc_status.value1 = SET_SRC (exp);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1259 + cc_status.value2 = SET_DEST (exp);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1260 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1261 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1262 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1263 + /* Moving register into memory (store): Sets cc's. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1264 + if (dst_code == MEM && REG_P (SET_SRC (exp))) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1265 + cc_status.value1 = SET_SRC (exp);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1266 + cc_status.value2 = SET_DEST (exp);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1267 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1268 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1269 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1270 + /* Function calls clobber the cc's. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1271 + else if (GET_CODE (SET_SRC (exp)) == CALL) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1272 + CC_STATUS_INIT;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1273 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1274 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1275 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1276 + /* Tests and compares set the cc's in predictable ways. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1277 + else if (SET_DEST (exp) == cc0_rtx)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1278 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1279 + cc_status.flags = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1280 + cc_status.value1 = SET_SRC (exp);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1281 + cc_status.value2 = SET_DEST (exp);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1282 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1283 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1284 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1285 + else if (A_REG_P (SET_DEST (exp)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1286 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1287 + CC_STATUS_INIT;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1288 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1289 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1290 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1291 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1292 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1293 + /* Certain instructions affect the condition codes. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1294 + switch (src_code)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1295 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1296 + case PLUS:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1297 + case MINUS:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1298 + case NEG:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1299 + case ASHIFT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1300 + /* These instructions set the condition codes,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1301 + * and may modify the V bit. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1302 + cc_status.flags \|= CC_NO_OVERFLOW;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1303 + /* FALLTHRU */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1304 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1305 + case AND:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1306 + case IOR:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1307 + case XOR:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1308 + case ASHIFTRT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1309 + case LSHIFTRT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1310 + /* These instructions set the condition codes,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1311 + * but cannot overflow (V=0). */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1312 + cc_status.value1 = SET_SRC (exp);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1313 + cc_status.value2 = SET_DEST (exp);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1314 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1315 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1316 + default:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1317 + /* Everything else is clobbered */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1318 + CC_STATUS_INIT;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1319 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1320 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1321 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1322 + } /* SET */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1323 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1324 + else if (GET_CODE (exp) == PARALLEL
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1325 + && GET_CODE (XVECEXP (exp, 0, 0)) == SET)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1326 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1327 + if (SET_DEST (XVECEXP (exp, 0, 0)) == pc_rtx)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1328 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1329 + if (SET_DEST (XVECEXP (exp, 0, 0)) == cc0_rtx)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1330 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1331 + CC_STATUS_INIT;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1332 + cc_status.value1 = SET_SRC (XVECEXP (exp, 0, 0));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1333 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1334 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1335 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1336 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1337 + /*** default action if we haven't recognized something
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1338 + and returned earlier ***/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1339 + CC_STATUS_INIT;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1340 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1341 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1342 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1343 +/** Returns nonzero if the expression EXP can be implemented using one
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1344 + * of the 6809's single operand instructions. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1345 +int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1346 +m6809_single_operand_operator (rtx exp)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1347 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1348 + rtx op1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1349 + HOST_WIDE_INT val;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1350 + enum rtx_code code;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1351 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1352 + debug_rtx(exp);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1353 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1354 + code = GET_CODE (exp);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1355 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1356 + /* Unary operators always qualify */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1357 + switch (code)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1358 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1359 + case NEG:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1360 + case NOT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1361 + return 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1362 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1363 + default:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1364 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1365 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1366 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1367 + /* Binary operators can only qualify if the second
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1368 + * argument is a CONST_INT of certain value. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1369 + op1 = XEXP (exp, 1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1370 + if (GET_CODE (op1) != CONST_INT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1371 + return 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1372 + val = INTVAL (op1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1373 + switch (code)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1374 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1375 + case PLUS:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1376 + case MINUS:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1377 + if (val == -1 \|\| val == 1)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1378 + return 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1379 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1380 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1381 + case ASHIFT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1382 + case ASHIFTRT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1383 + case LSHIFTRT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1384 + case ROTATE:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1385 + case ROTATERT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1386 + if (val == 1)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1387 + return 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1388 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1389 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1390 + default:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1391 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1392 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1393 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1394 + return 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1395 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1396 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1397 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1398 +/** Return a bitarray of the hard registers which are used by a function. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1399 +unsigned int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1400 +m6809_get_live_regs (void)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1401 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1402 + unsigned int regs = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1403 + int regno;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1404 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1405 + if (frame_pointer_needed)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1406 + regs \|= (1 << HARD_FRAME_POINTER_REGNUM);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1407 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1408 + for (regno = HARD_X_REGNUM; regno <= HARD_U_REGNUM; regno++)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1409 + if (df_regs_ever_live_p (regno) && ! call_used_regs[regno])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1410 + regs \|= (1 << regno);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1411 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1412 + return regs;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1413 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1414 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1415 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1416 +/** Return a printable version of a list of hard registers, suitable
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1417 + * for use in a PSHx or PULx insn. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1418 +const char *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1419 +m6809_get_regs_printable (unsigned int regs)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1420 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1421 + static char list[64];
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1422 + char *listp = list;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1423 + unsigned int regno;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1424 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1425 + for (regno=0; regno < FIRST_PSEUDO_REGISTER; regno++)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1426 + if ((regs & (1 << regno)) && !S_REGNO_P (regno))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1427 + listp += sprintf (listp,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1428 + (listp == list) ? "%s" : ",%s", reg_names[regno]);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1429 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1430 + return list;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1431 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1432 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1433 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1434 +/** Return the total number of bytes covered by a set of hard registers. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1435 +unsigned int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1436 +m6809_get_regs_size (unsigned int regs)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1437 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1438 + unsigned int regno;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1439 + unsigned int size = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1440 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1441 + for (regno=0; regno < FIRST_PSEUDO_REGISTER; regno++)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1442 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1443 + /* Only count register in the given register set */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1444 + if (REGSET_CONTAINS_P (regno, regs))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1445 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1446 + /* Add 1 or 2 byte, depending on the size of the register.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1447 + * Since 'D' may be in both sets, check for WORD_REGSET first. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1448 + if (REGSET_CONTAINS_P(regno, WORD_REGSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1449 + size += 2;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1450 + else if (REGSET_CONTAINS_P(regno, BYTE_REGSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1451 + size++;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1452 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1453 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1454 + return size;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1455 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1456 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1457 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1458 +/* Given the target of call instruction in X,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1459 + * return the tree node that contains the function declaration for
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1460 + * that target.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1461 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1462 + * If the rtx or the tree do not appear valid for any reason,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1463 + * then return NULL_TREE.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1464 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1465 +static tree call_target_decl (rtx x)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1466 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1467 + tree decl;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1468 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1469 + /* Make sure the target is really a MEM. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1470 + if (!x \|\| !MEM_P (x))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1471 + return NULL_TREE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1472 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1473 + /* Make sure the address is a SYMBOL_REF. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1474 + x = XEXP (x, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1475 + if (!x \|\| (GET_CODE (x) != SYMBOL_REF))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1476 + return NULL_TREE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1477 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1478 + /* Get the declaration of this symbol */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1479 + decl = SYMBOL_REF_DECL (x);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1480 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1481 + /* Make sure the declaration is really a function. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1482 + if (!decl \|\| (TREE_CODE(decl) != FUNCTION_DECL))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1483 + return NULL_TREE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1484 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1485 + return decl;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1486 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1487 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1488 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1489 +/** Returns nonzero if a function, whose declaration is in DECL,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1490 + * was declared to have the attribute given by ATTR_NAME. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1491 +int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1492 +m6809_function_has_type_attr_p (tree decl, const char *attr_name)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1493 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1494 + tree type;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1495 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1496 + type = TREE_TYPE (decl);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1497 + return lookup_attribute (attr_name, TYPE_ATTRIBUTES (type)) != NULL;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1498 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1499 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1500 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1501 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1502 +/** Returns nonzero if the current function was declared to have the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1503 + * attribute given by ATTR_NAME. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1504 +int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1505 +m6809_current_function_has_type_attr_p (const char *attr_name)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1506 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1507 + return m6809_function_has_type_attr_p (current_function_decl, attr_name);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1508 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1509 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1510 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1511 +/** Return nonzero if the current function has no return value. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1512 +int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1513 +m6809_current_function_is_void (void)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1514 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1515 + return (VOID_TYPE_P (TREE_TYPE (TREE_TYPE (current_function_decl))));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1516 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1517 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1518 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1519 +/** Get the value of a declaration's 'bank', as set by the 'bank'
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1520 + * attribute. If no bank was declared, it returns NULL by default. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1521 +const char *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1522 +m6809_get_decl_bank (tree decl)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1523 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1524 + tree attr;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1525 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1526 + /* Lookup the 'bank' attribute. If it does not exist, then
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1527 + * return NULL */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1528 + attr = lookup_attribute ("bank", DECL_ATTRIBUTES (decl));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1529 + if (attr == NULL_TREE)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1530 + return NULL;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1531 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1532 + /* Make sure it has a value assigned to it */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1533 + attr = TREE_VALUE (attr);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1534 + if (attr == NULL_TREE)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1535 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1536 + warning (WARNING_OPT "banked function did not declare a bank number");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1537 + return NULL;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1538 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1539 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1540 + /* Return the bank name */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1541 + attr = TREE_VALUE (attr);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1542 + return TREE_STRING_POINTER (attr);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1543 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1544 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1545 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1546 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1547 +m6809_declare_function_name (FILE asm_out_file, const char name, tree decl)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1548 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1549 + /* Check the function declaration for special properties.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1550 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1551 + * If the function was declare with __attribute__((bank)), output
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1552 + * assembler definitions to force the function to go into the named
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1553 + * bank.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1554 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1555 + const char *bank_name = m6809_get_decl_bank (decl);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1556 + if (bank_name != NULL)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1557 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1558 + /* Declare __self_bank as a local assembler value that denotes
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1559 + * which bank the current function is in. This is required only
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1560 + * when the bank actually changes. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1561 + if (strcmp (bank_name, current_bank_name))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1562 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1563 + fprintf (asm_out_file, "__self_bank\t.equ %s\n", bank_name);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1564 + strcpy (current_bank_name, bank_name);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1565 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1566 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1567 + /* Declare a global assembler value that denotes which bank the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1568 + * named function is in. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1569 + fprintf (asm_out_file, "__%s_bank\t.gblequ %s\n", name, bank_name);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1570 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1571 + /* Force the current function into a new area */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1572 + fprintf (asm_out_file, "\t.bank bank_%s (FSFX=_%s)\n",
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1573 + bank_name, bank_name);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1574 + fprintf (asm_out_file, "\t.area bank_%s (BANK=bank_%s)\n",
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1575 + bank_name, bank_name);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1576 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1577 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1578 + /* Emit the label for the function's name */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1579 + ASM_OUTPUT_LABEL (asm_out_file, name);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1580 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1581 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1582 +#if 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1583 +/**
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1584 + * Handle pragmas. Note that only the last branch pragma seen in the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1585 + * source has any affect on code generation.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1586 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1587 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1588 +#define BAD_PRAGMA(msgid, arg) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1589 + do { warning (WARNING_OPT msgid, arg); return -1; } while (0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1590 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1591 +static int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1592 +pragma_parse (const char name, tree sect)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1593 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1594 + tree s, x;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1595 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1596 + if (pragma_lex (&x) != CPP_OPEN_PAREN)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1597 + BAD_PRAGMA ("missing '(' after '#pragma %s' - ignored", name);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1598 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1599 + if (pragma_lex (&s) != CPP_STRING)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1600 + BAD_PRAGMA ("missing section name in '#pragma %s' - ignored", name);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1601 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1602 + if (pragma_lex (&x) != CPP_CLOSE_PAREN)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1603 + BAD_PRAGMA ("missing ')' for '#pragma %s' - ignored", name);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1604 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1605 + if (pragma_lex (&x) != CPP_EOF)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1606 + warning (WARNING_OPT "junk at end of '#pragma %s'", name);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1607 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1608 + *sect = s;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1609 + return 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1610 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1611 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1612 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1613 +/*
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1614 + * Handle #pragma section.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1615 + * This is deprecated; code should use __attribute__(section("name"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1616 + * instead.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1617 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1618 +void pragma_section (cpp_reader *pfile ATTRIBUTE_UNUSED)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1619 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1620 + tree sect;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1621 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1622 + if (pragma_parse ("section", &sect))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1623 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1624 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1625 + snprintf (code_section_op, 6+TREE_STRING_LENGTH (sect),
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1626 + ".area\t%s", TREE_STRING_POINTER (sect));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1627 + snprintf (data_section_op, 6+TREE_STRING_LENGTH (sect),
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1628 + ".area\t%s", TREE_STRING_POINTER (sect));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1629 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1630 + /* Mark a flag that sections have changed. Upon emitting another
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1631 + * declaration, the new .area directive will be written. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1632 + section_changed++;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1633 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1634 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1635 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1636 +/**
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1637 + * Check a `double' value for validity for a particular machine mode.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1638 + * Called by the CHECK_FLOAT_VALUE() machine-dependent macro.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1639 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1640 +int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1641 +check_float_value (enum machine_mode mode, double *d, int overflow)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1642 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1643 + if (mode == SFmode) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1644 + if (*d > 1.7014117331926443e+38) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1645 + error("magnitude of constant too large for `float'");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1646 + *d = 1.7014117331926443e+38;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1647 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1648 + else if (*d < -1.7014117331926443e+38) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1649 + error("magnitude of constant too large for `float'");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1650 + *d = -1.7014117331926443e+38;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1651 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1652 + else if ((d > 0) && (d < 2.9387358770557188e-39)) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1653 + warning(WARNING_OPT "`float' constant truncated to zero");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1654 + *d = 0.0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1655 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1656 + else if ((d < 0) && (d > -2.9387358770557188e-39)) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1657 + warning(WARNING_OPT "`float' constant truncated to zero");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1658 + *d = 0.0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1659 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1660 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1661 + return overflow;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1662 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1663 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1664 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1665 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1666 +/** Declare that the target supports named output sections. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1667 +bool m6809_have_named_section = (bool)1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1668 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1669 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1670 +/** Write to the assembler file a directive to place
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1671 + * subsequent objects to a different section in the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1672 + * object file. ASxxxx uses the "area" directive for
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1673 + * this purpose. It does not however support generalized
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1674 + * alignment, and can only place items on an odd/even
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1675 + * boundary. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1676 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1677 +m6809_asm_named_section (
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1678 + const char *name,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1679 + unsigned int flags ATTRIBUTE_UNUSED,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1680 + tree decl)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1681 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1682 + fprintf (asm_out_file, "\t.area\t%s\n", name);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1683 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1684 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1685 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1686 +enum reg_class
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1687 +m6809_preferred_reload_class (rtx x, enum reg_class regclass)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1688 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1689 + /* Check cases based on type code of rtx */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1690 + switch (GET_CODE(x))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1691 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1692 + /*
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1693 + * Observation, 2015-07-19, William Astle
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1694 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1695 + * The original comparison for range for 16 bits was wrong, adding 0x80
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1696 + * instead of 0x8000. Replaced both 8 bit and 16 bit comparisions with
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1697 + * a more straight forward range comparison - excessive cleverness isn't
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1698 + * really required here.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1699 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1700 + case CONST_INT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1701 + /* Constants that can fit into 1 byte should be
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1702 + * loaded into a Q_REGS reg */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1703 + if ((INTVAL(x) >= -128 && INTVAL(x) <= 127) &&
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1704 +// if (((unsigned) (INTVAL(x) + 0x80) < 0x100) &&
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1705 + (regclass > A_REGS))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1706 + return Q_REGS;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1707 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1708 + /* 16-bit constants should be loaded into A_REGS
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1709 + * when possible. gcc may already require A_REGS
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1710 + * or D_REGS for certain types of instructions.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1711 + * This case applies mostly to simple copy operations
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1712 + * to/from memory when any register will do, but
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1713 + * it's best to avoid using D register since it is
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1714 + * needed for other things.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1715 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1716 + else if ((INTVAL(x) >= -32768 && INTVAL(x) <= 32767) &&
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1717 +// else if (((unsigned) (INTVAL(x) + 0x80) < 0x10000) &&
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1718 + (regclass > A_REGS))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1719 + return A_REGS;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1720 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1721 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1722 + case SYMBOL_REF:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1723 + case LABEL_REF:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1724 + /* Addresses should always be loaded into A_REGS */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1725 + if (regclass >= A_REGS)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1726 + return (A_REGS);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1727 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1728 + default:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1729 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1730 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1731 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1732 + /* Check cases based on mode of rtx */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1733 + if ((GET_MODE(x) == QImode) && (regclass != A_REGS))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1734 + return Q_REGS;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1735 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1736 + /* Default: return whatever class reload suggested */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1737 + return regclass;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1738 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1739 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1740 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1741 +/**
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1742 + * Check a new declaration for the "section" attribute.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1743 + * If it exists, and the target section is "direct", then mark
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1744 + * the declaration (in RTL) to indicate special treatment.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1745 + * When the variable is referenced later, we test for this flag
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1746 + * and can emit special asm text to force the assembler to use
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1747 + * short instructions.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1748 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1749 +static void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1750 +m6809_encode_section_info (tree decl, rtx rtl, int new_decl_p ATTRIBUTE_UNUSED)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1751 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1752 + tree attr, id;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1753 + const char *name;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1754 + const char *decl_name;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1755 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1756 + /* We only care about variable declarations, not functions */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1757 + if (TREE_CODE (decl) != VAR_DECL)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1758 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1759 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1760 + /* For debugging purposes only; grab the decl's name */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1761 + decl_name = IDENTIFIER_POINTER (DECL_NAME (decl));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1762 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1763 + /* Give up if the decl doesn't have any RTL */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1764 + if (!DECL_RTL (decl))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1765 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1766 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1767 + /* See if it has a section attribute */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1768 + attr = lookup_attribute ("section", DECL_ATTRIBUTES (decl));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1769 + if (!attr)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1770 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1771 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1772 + /* See if the section attribute has a value */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1773 + id = TREE_VALUE (TREE_VALUE (attr));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1774 + if (!id)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1775 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1776 + name = TREE_STRING_POINTER (id);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1777 + if (!name)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1778 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1779 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1780 + /* See if the value is 'direct'. If so, mark it. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1781 + if (!strcmp (name, "direct"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1782 + SYMBOL_REF_FLAG (XEXP (DECL_RTL (decl), 0)) = 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1783 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1784 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1785 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1786 +/**
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1787 + * Output code to perform a complex shift, for which there is no
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1788 + * direct support in the instruction set.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1789 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1790 + * shift1 is an instruction pattern for performing a 1-bit modification.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1791 + * This code wraps that pattern in a loop to perform the shift N times,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1792 + * where N is given by the address register in operands[2].
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1793 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1794 + * To support 16-bit shifts, shift2 can also be provided: it is
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1795 + * a second instruction to be included in the loop. 8-bit shift
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1796 + * insns will pass NULL here.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1797 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1798 + * The insn length of shift1/shift2 is assumed to be 1 byte,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1799 + * which works in all of the cases it is needed so far.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1800 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1801 +static void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1802 +m6809_gen_register_shift (
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1803 + rtx *operands,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1804 + const char *shift1,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1805 + const char *shift2 )
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1806 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1807 + char beq_pattern[32];
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1808 + char bra_pattern[32];
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1809 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1810 + int shiftlen = (shift1 && shift2) ? 2 : 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1811 + int cmplen = (REGNO (operands[2]) == HARD_X_REGNUM) ? 3 : 4;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1812 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1813 + int beq_offset = 2 + shiftlen + 2;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1814 + int bra_offset = shiftlen + 2 + cmplen + 2;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1815 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1816 + sprintf (beq_pattern, "beq\t.+%d", beq_offset);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1817 + sprintf (bra_pattern, "bra\t.-%d", bra_offset);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1818 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1819 + output_asm_insn ("pshs\t%2", operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1820 + output_asm_insn ("lea%2\t-1,%2", operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1821 + output_asm_insn ("cmp%2\t#-1", operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1822 + output_asm_insn (beq_pattern, operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1823 + if (shift1)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1824 + output_asm_insn (shift1, operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1825 + if (shift2)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1826 + output_asm_insn (shift2, operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1827 + output_asm_insn (bra_pattern, operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1828 + output_asm_insn ("puls\t%2", operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1829 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1830 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1831 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1832 +/** Generate RTL for the upper 8-bits of a 16-bit constant. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1833 +rtx
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1834 +gen_rtx_const_high (rtx r)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1835 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1836 + unsigned char v = (INTVAL (r) >> 8) & 0xFF;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1837 + signed char s = (signed char)v;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1838 + return gen_int_mode (s, QImode);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1839 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1840 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1841 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1842 +/** Generate RTL for the lower 8-bits of a 16-bit constant. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1843 +rtx
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1844 +gen_rtx_const_low (rtx r)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1845 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1846 + unsigned char v = INTVAL (r) & 0xFF;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1847 + signed char s = (signed char)v;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1848 + return gen_int_mode (s, QImode);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1849 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1850 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1851 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1852 +/** Generate RTL to allocate/free bytes on the stack.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1853 + * CODE is given as MINUS when allocating and PLUS when freeing,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1854 + * to match the semantics of a downward-growing stack. SIZE
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1855 + * is always given as a positive integer.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1856 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1857 +static rtx
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1858 +gen_rtx_stack_adjust (enum rtx_code code, int size)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1859 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1860 + if (size <= 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1861 + return NULL_RTX;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1862 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1863 + if (code == MINUS)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1864 + size = -size;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1865 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1866 + return gen_rtx_SET (Pmode, stack_pointer_rtx,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1867 + gen_rtx_PLUS (Pmode, stack_pointer_rtx,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1868 + gen_int_mode (size, HImode)));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1869 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1870 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1871 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1872 +/** Generate RTL to push/pop a set of registers. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1873 +rtx
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1874 +gen_rtx_register_pushpop (int op, int regs)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1875 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1876 + rtx nregs = gen_int_mode (regs, QImode);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1877 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1878 + if (op == UNSPEC_PUSH_RS)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1879 + return gen_register_push (nregs);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1880 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1881 + return gen_register_pop (nregs);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1882 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1883 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1884 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1885 +/* Given a register set REGS, where the bit positions correspond to
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1886 + * hard register numbers, return another bitmask that represents the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1887 + * order in which those registers would be pushed/popped.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1888 + * Registers that are pushed first have higher bit positions.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1889 + * The pop order is just the reverse bitmask.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1890 + * These values are the same as the bitmasks actually used in the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1891 + * machine instructions. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1892 +static unsigned int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1893 +register_push_order (int regs)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1894 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1895 + unsigned int order = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1896 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1897 + if (REGSET_CONTAINS_P (HARD_PC_REGNUM, regs))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1898 + order \|= 0x80;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1899 + if (REGSET_CONTAINS_P (HARD_U_REGNUM, regs))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1900 + order \|= 0x40;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1901 + if (REGSET_CONTAINS_P (HARD_Y_REGNUM, regs))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1902 + order \|= 0x20;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1903 + if (REGSET_CONTAINS_P (HARD_X_REGNUM, regs))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1904 + order \|= 0x10;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1905 + if (REGSET_CONTAINS_P (HARD_DP_REGNUM, regs))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1906 + order \|= 0x8;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1907 + if (REGSET_CONTAINS_P (HARD_B_REGNUM, regs))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1908 + order \|= 0x4;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1909 + if (REGSET_CONTAINS_P (HARD_A_REGNUM, regs))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1910 + order \|= 0x2;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1911 + if (REGSET_CONTAINS_P (HARD_CC_REGNUM, regs))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1912 + order \|= 0x1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1913 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1914 + if (REGSET_CONTAINS_P (HARD_D_REGNUM, regs))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1915 + order \|= (0x4 \| 0x2);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1916 + return order;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1917 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1918 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1919 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1920 +/* Returns nonzero if two consecutive push or pop instructions,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1921 + * as determined by the OP, can be merged into a single instruction.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1922 + * The first instruction in the sequence pushes/pops REGS1; the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1923 + * second applies to REGS2.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1924 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1925 + * If true, the resulting instruction can use (regs1 \| regs2)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1926 + * safely.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1927 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1928 +int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1929 +m6809_can_merge_pushpop_p (int op, int regs1, int regs2)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1930 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1931 + /* Register sets must not overlap */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1932 + if (regs1 & regs2)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1933 + return 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1934 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1935 + if (op == UNSPEC_PUSH_RS)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1936 + return (register_push_order (regs1) > register_push_order (regs2));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1937 + else if (op == UNSPEC_POP_RS)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1938 + return (register_push_order (regs1) < register_push_order (regs2));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1939 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1940 + return 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1941 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1942 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1943 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1944 +/** Emit instructions for making a library call.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1945 + * MODE is the mode of the operation.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1946 + * NAME is the library function name.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1947 + * OPERANDS is the rtx array provided by the recognizer.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1948 + * COUNT is the number of input operands to the call, and
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1949 + * should be 1 for a unary op or 2 for a binary op.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1950 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1951 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1952 +emit_libcall_insns (enum machine_mode mode,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1953 + const char *name,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1954 + rtx *operands,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1955 + int count)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1956 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1957 + /* Generate an rtx for the call target. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1958 + rtx symbol = gen_rtx_SYMBOL_REF (Pmode, name);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1959 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1960 + /* Emit the library call. Slightly different based
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1961 + on the number of operands */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1962 + if (count == 2)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1963 + emit_library_call (symbol, LCT_NORMAL, mode,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1964 + 2, operands[1], mode, operands[2], mode);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1965 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1966 + emit_library_call (symbol, LCT_NORMAL, mode,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1967 + 1, operands[1], mode);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1968 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1969 + /* The library call is expected to put its result
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1970 + in LIBCALL_VALUE, so need to copy it into the destination. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1971 + emit_move_insn (operands[0], LIBCALL_VALUE(mode));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1972 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1973 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1974 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1975 +/**
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1976 + * A small helper function that writes out a single branch instruction.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1977 + * OPCODE is the short name, e.g. "ble".
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1978 + * OPERANDS has the rtx for the target label.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1979 + * LONG_P is nonzero if we are emitting a long branch, and need to
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1980 + * prepend an 'l' to the opcode name.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1981 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1982 +void output_branch_insn1 (const char opcode, rtx operands, int long_p)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1983 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1984 + char pattern[64];
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1985 + sprintf (pattern, "%s%s\t%%l0", long_p ? "l" : "", opcode);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1986 + output_asm_insn (pattern, operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1987 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1988 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1989 +/**
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1990 + * Output a branch/conditional branch insn of the proper
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1991 + * length. code identifies the particular branch insn.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1992 + * operands holds the branch target in operands[0].
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1993 + * length says what the size of this insn should be.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1994 + * Based on the length, we know whether it should be a
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1995 + * short (8-bit) or long (16-bit) branch.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1996 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1997 +const char *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1998 +output_branch_insn (enum rtx_code code, rtx *operands, int length)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	1999 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2000 + int shortform;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2001 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2002 + /* Decide whether or not to use the long or short form.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2003 + * Calculate automatically based on insn lengths. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2004 + shortform = ((length > 2) ? 0 : 1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2005 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2006 + /* Determine the proper opcode.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2007 + * Use the short (2-byte) opcode if the target is within
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2008 + * reach. Otherwise, use jmp (3-byte opcode), unless
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2009 + * compiling with -fpic, in which case we'll need to use
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2010 + * lbra (4-byte opcode).
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2011 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2012 + switch (code)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2013 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2014 + case LABEL_REF:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2015 + if (shortform)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2016 + output_branch_insn1 ("bra", operands, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2017 + else if (flag_pic)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2018 + output_branch_insn1 ("bra", operands, 1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2019 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2020 + output_branch_insn1 ("jmp", operands, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2021 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2022 + case EQ:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2023 + output_branch_insn1 ("beq", operands, !shortform);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2024 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2025 + case NE:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2026 + output_branch_insn1 ("bne", operands, !shortform);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2027 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2028 + case GT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2029 + output_branch_insn1 ("bgt", operands, !shortform);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2030 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2031 + case GTU:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2032 + output_branch_insn1 ("bhi", operands, !shortform);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2033 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2034 + case LT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2035 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2036 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2037 + output_branch_insn1 ("bmi", operands, !shortform);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2038 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2039 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2040 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2041 + output_branch_insn1 ("blt", operands, !shortform);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2042 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2043 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2044 + case LTU:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2045 + output_branch_insn1 ("blo", operands, !shortform);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2046 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2047 + case GE:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2048 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2049 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2050 + output_branch_insn1 ("bpl", operands, !shortform);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2051 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2052 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2053 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2054 + output_branch_insn1 ("bge", operands, !shortform);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2055 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2056 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2057 + case GEU:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2058 + output_branch_insn1 ("bhs", operands, !shortform);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2059 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2060 + case LE:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2061 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2062 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2063 + output_branch_insn1 ("bmi", operands, !shortform);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2064 + output_branch_insn1 ("beq", operands, !shortform);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2065 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2066 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2067 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2068 + output_branch_insn1 ("ble", operands, !shortform);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2069 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2070 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2071 + case LEU:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2072 + output_branch_insn1 ("bls", operands, !shortform);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2073 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2074 + default:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2075 + abort();
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2076 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2077 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2078 + return "";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2079 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2080 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2081 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2082 +/** Returns the "cost" of an RTL expression.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2083 + * In general, the expression "COSTS_N_INSNS(1)" is used to represent
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2084 + * the cost of a fast 8-bit arithmetic instruction that operates on
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2085 + * a reg/mem or a reg/immed. Other costs are relative to this.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2086 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2087 + * Notes:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2088 + * - The cost of a REG is always zero; this cannot be changed.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2089 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2090 + * - On the 6809, instructions on two registers will nearly always take
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2091 + * longer than those that operate on a register and a constant/memory,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2092 + * because of the way the instruction set is structured.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2093 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2094 + * TODO: multiply HImode by 2 should be done via shifts, instead of add.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2095 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2096 +static bool
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2097 +m6809_rtx_costs (rtx X, int code, int outer_code ATTRIBUTE_UNUSED,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2098 + int *total, bool speed)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2099 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2100 + int has_const_arg = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2101 + HOST_WIDE_INT const_arg;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2102 + enum machine_mode mode;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2103 + int nargs = 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2104 + rtx op0, op1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2105 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2106 + /* Data RTXs return a value between 0-3, depending on complexity.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2107 + All of these are less than COSTS_N_INSNS(1). */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2108 + switch (code)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2109 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2110 + case CC0:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2111 + case PC:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2112 + *total = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2113 + return true;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2114 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2115 + case CONST_INT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2116 + if (X == const0_rtx)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2117 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2118 + *total = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2119 + return true;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2120 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2121 + else if ((unsigned) INTVAL (X) < 077)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2122 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2123 + *total = 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2124 + return true;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2125 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2126 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2127 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2128 + *total = 2;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2129 + return true;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2130 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2131 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2132 + case LABEL_REF: case CONST:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2133 + *total = 2;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2134 + return true;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2135 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2136 + case SYMBOL_REF:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2137 + /* References to memory are made cheaper if they have
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2138 + * the 'direct' mode attribute set */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2139 + *total = (SYMBOL_REF_FLAG (X)) ? 1 : 2;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2140 + return true;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2141 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2142 + case MEM:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2143 + /* See what form of address was given */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2144 + X = XEXP (X, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2145 + switch (GET_CODE (X))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2146 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2147 + case SYMBOL_REF:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2148 + *total = (SYMBOL_REF_FLAG (X)) ? 1 : 2;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2149 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2150 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2151 + case CONST_INT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2152 + *total = 2;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2153 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2154 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2155 + case MEM:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2156 + *total = COSTS_N_INSNS (1) + 2;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2157 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2158 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2159 + default:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2160 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2161 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2162 + return true;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2163 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2164 + case CONST_DOUBLE:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2165 + /* TODO : not sure about this value. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2166 + *total = 3;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2167 + return true;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2168 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2169 + default:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2170 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2171 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2172 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2173 + /* Decode the rtx */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2174 + mode = GET_MODE (X);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2175 + op0 = XEXP (X, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2176 + op1 = XEXP (X, 1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2177 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2178 + /* We don't implement anything in SImode or greater. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2179 + if (GET_MODE_SIZE (mode) >= GET_MODE_SIZE (SImode))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2180 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2181 + *total = COSTS_N_INSNS (100);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2182 + return true;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2183 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2184 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2185 + /* Figure out if there is a constant argument, and its value. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2186 + if (GET_RTX_CLASS (code) == RTX_BIN_ARITH
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2187 + \|\| GET_RTX_CLASS (code) == RTX_COMM_ARITH)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2188 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2189 + nargs = 2;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2190 + if (GET_CODE (op1) == CONST_INT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2191 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2192 + has_const_arg = 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2193 + const_arg = INTVAL (op1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2194 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2195 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2196 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2197 + /* Penalize a reg/reg operation by adding MEMORY_MOVE_COST,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2198 + * Ignore soft registers, since these are really in memory.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2199 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2200 + * TODO: penalize HImode reg/reg for most operations, except maybe
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2201 + * additions since index registers allow for that.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2202 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2203 + * TODO: shifts by constant N do not always require N instructions;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2204 + * some of this can be done cheaper. The number of actual insns can be
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2205 + * predicted well.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2206 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2207 + if (nargs == 2 && REAL_REG_P (op0) && REAL_REG_P (op1))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2208 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2209 + *total = MEMORY_MOVE_COST (mode, Q_REGS, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2210 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2211 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2212 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2213 + *total = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2214 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2215 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2216 + /* Operator RTXs are counted as COSTS_N_INSNS(N), where N is
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2217 + the estimated number of actual machine instructions needed to
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2218 + perform the computation. Some small adjustments are made since
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2219 + some "instructions" are more complex than others. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2220 + switch (code)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2221 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2222 + case PLUS: case MINUS: case COMPARE:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2223 + /* 6809 handles these natively in QImode, and in HImode as long
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2224 + * as operand 1 is constant. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2225 + if (mode == QImode \|\| (mode == HImode && has_const_arg))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2226 + *total += COSTS_N_INSNS (1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2227 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2228 + *total += COSTS_N_INSNS (GET_MODE_SIZE (mode));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2229 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2230 + /* -1, 0, and 1 can be done using inherent instructions
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2231 + * for PLUS and MINUS in QImode, so don't add extra cost. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2232 + if (has_const_arg
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2233 + && (mode == QImode \|\| mode == HImode)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2234 + && (const_arg == -1 \|\| const_arg == 0 \|\| const_arg == 1)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2235 + && (code == PLUS \|\| code == MINUS))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2236 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2237 + return true;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2238 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2239 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2240 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2241 + case AND: case IOR: case XOR:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2242 + case NEG: case NOT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2243 + /* 6809 handles these natively in QImode, but requires
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2244 + * splitting in HImode. Treat these as 2 insns. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2245 + total += COSTS_N_INSNS (1) GET_MODE_SIZE (mode);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2246 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2247 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2248 + case ASHIFT: case ASHIFTRT: case LSHIFTRT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2249 + case ROTATE: case ROTATERT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2250 + /* 6809 can do shift/rotates of a QImode by a constant in
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2251 + * 1 insn times the shift count, or in HImode by a constant
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2252 + * by splitting to 2 insns.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2253 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2254 + * Shift by a nonconstant will take significantly longer
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2255 + * than any of these. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2256 + if (has_const_arg)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2257 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2258 + const_arg %= (GET_MODE_SIZE (mode) * 8);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2259 + if (const_arg == 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2260 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2261 + *total += COSTS_N_INSNS(1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2262 + return true;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2263 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2264 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2265 + /* HImode shifts greater than 8 get optimized due
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2266 + * to register transfer from b to a; this cuts down the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2267 + * cost. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2268 + if (const_arg >= 8)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2269 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2270 + *total += COSTS_N_INSNS (1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2271 + const_arg -= 8;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2272 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2273 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2274 + /* The computed cost is 'const_arg' 1-bit shifts, doubled
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2275 + if in HImode, minus the cost of the constant itself which
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2276 + will be added in later but really shouldn't be. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2277 + total += COSTS_N_INSNS (const_arg) GET_MODE_SIZE (mode) - 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2278 + return true;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2279 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2280 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2281 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2282 + /* It may take up to 7 iterations of about 6-7 real
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2283 + * instructions, so make this expensive. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2284 + *total += COSTS_N_INSNS (50);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2285 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2286 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2287 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2288 + case MULT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2289 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2290 + /* Multiply is cheap when both arguments are 8-bits. They
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2291 + could be QImode, or QImode widened to HImode, or a constant
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2292 + that fits into 8-bits. As long as both operands qualify,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2293 + we can use a single mul instruction.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2294 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2295 + Assume that fast multiply can be used, and change this if we find
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2296 + differently... */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2297 + int ok_for_qihi3 = 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2298 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2299 + /* Check the first operand */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2300 + switch (GET_MODE (op0))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2301 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2302 + case QImode:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2303 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2304 + case HImode:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2305 + if (GET_CODE (op0) != SIGN_EXTEND && GET_CODE (op0) != ZERO_EXTEND)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2306 + ok_for_qihi3 = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2307 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2308 + default:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2309 + ok_for_qihi3 = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2310 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2311 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2312 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2313 + /* Likewise, check the second operand. This is where constants may appear. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2314 + switch (GET_MODE (op1))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2315 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2316 + case QImode:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2317 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2318 + case HImode:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2319 + if (GET_CODE (op1) != SIGN_EXTEND && GET_CODE (op1) != ZERO_EXTEND)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2320 + ok_for_qihi3 = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2321 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2322 + case VOIDmode:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2323 + if (!CONST_OK_FOR_LETTER_P (const_arg, 'K'))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2324 + ok_for_qihi3 = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2325 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2326 + default:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2327 + ok_for_qihi3 = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2328 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2329 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2330 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2331 + /* Fast multiply takes about 4 times as many cycles as a normal
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2332 + arithmetic operation. Otherwise, it will take an expensive libcall. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2333 + if (ok_for_qihi3)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2334 + *total += COSTS_N_INSNS (4);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2335 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2336 + *total = COSTS_N_INSNS (50);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2337 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2338 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2339 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2340 + case DIV: case UDIV: case MOD: case UMOD:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2341 + /* These all require more expensive libcalls. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2342 + *total += COSTS_N_INSNS (100);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2343 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2344 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2345 + /* TODO : TRUNCATE, SIGN_EXTEND, and ZERO_EXTEND */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2346 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2347 + /* These can normally be done with autoincrement, etc., so
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2348 + * don't charge for them. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2349 + case PRE_DEC:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2350 + case PRE_INC:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2351 + case POST_DEC:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2352 + case POST_INC:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2353 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2354 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2355 + default:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2356 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2357 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2358 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2359 + /* Always return false, and let the caller gather the costs
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2360 + * of the operands */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2361 + return false;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2362 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2363 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2364 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2365 +static tree
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2366 +m6809_handle_fntype_attribute (tree *node, tree name,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2367 + tree args ATTRIBUTE_UNUSED,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2368 + int flags ATTRIBUTE_UNUSED,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2369 + bool *no_add_attrs)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2370 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2371 + if (TREE_CODE (*node) != FUNCTION_TYPE)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2372 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2373 + warning (WARNING_OPT "'%s' only valid for functions",
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2374 + IDENTIFIER_POINTER (name));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2375 + *no_add_attrs = TRUE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2376 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2377 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2378 + return NULL_TREE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2379 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2380 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2381 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2382 +static tree
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2383 +m6809_handle_data_type_attribute (tree *node ATTRIBUTE_UNUSED,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2384 + tree name ATTRIBUTE_UNUSED,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2385 + tree args ATTRIBUTE_UNUSED,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2386 + int flags ATTRIBUTE_UNUSED,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2387 + bool *no_add_attrs ATTRIBUTE_UNUSED)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2388 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2389 + return NULL_TREE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2390 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2391 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2392 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2393 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2394 +static tree
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2395 +m6809_handle_default_attribute (tree *node ATTRIBUTE_UNUSED,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2396 + tree name ATTRIBUTE_UNUSED,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2397 + tree args ATTRIBUTE_UNUSED,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2398 + int flags ATTRIBUTE_UNUSED,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2399 + bool *no_add_attrs ATTRIBUTE_UNUSED )
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2400 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2401 + return NULL_TREE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2402 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2403 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2404 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2405 +/* Table of valid machine attributes */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2406 +const struct attribute_spec m6809_attribute_table[] = { /*
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2407 +{ name, min, max, decl, type, fntype, handler } */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2408 +{ "interrupt", 0, 0, false, true, true, m6809_handle_fntype_attribute },
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2409 +{ "naked", 0, 0, false, true, true, m6809_handle_fntype_attribute },
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2410 +{ "far", 0, 1, false, true, true, m6809_handle_fntype_attribute },
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2411 +{ "bank", 0, 1, true, false, false, m6809_handle_default_attribute },
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2412 +{ "boolean", 0, 0, false, true, false, m6809_handle_data_type_attribute },
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2413 +{ NULL, 0, 0, false, true, false, NULL },
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2414 +};
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2415 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2416 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2417 +/** Initialize builtin routines for the 6809. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2418 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2419 +m6809_init_builtins (void)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2420 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2421 + /* Create type trees for each function signature required.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2422 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2423 + * void_ftype_void = void f(void)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2424 + * void_ftype_uchar = void f(unsigned char)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2425 + * uchar_ftype_uchar2 = unsigned char f (unsigned char, unsigned char)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2426 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2427 + tree void_ftype_void =
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2428 + build_function_type (void_type_node, void_list_node);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2429 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2430 + tree void_ftype_uchar =
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2431 + build_function_type (void_type_node,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2432 + tree_cons (NULL_TREE, unsigned_char_type_node, void_list_node));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2433 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2434 + tree uchar_ftype_uchar2 =
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2435 + build_function_type (unsigned_char_type_node,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2436 + tree_cons (NULL_TREE, unsigned_char_type_node,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2437 + tree_cons (NULL_TREE, unsigned_char_type_node, void_list_node)));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2438 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2439 + /* Register each builtin function. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2440 + add_builtin_function ("__builtin_swi", void_ftype_void,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2441 + M6809_SWI, BUILT_IN_MD, NULL, NULL_TREE);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2442 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2443 + add_builtin_function ("__builtin_swi2", void_ftype_void,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2444 + M6809_SWI2, BUILT_IN_MD, NULL, NULL_TREE);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2445 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2446 + add_builtin_function ("__builtin_swi3", void_ftype_void,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2447 + M6809_SWI3, BUILT_IN_MD, NULL, NULL_TREE);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2448 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2449 + add_builtin_function ("__builtin_cwai", void_ftype_uchar,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2450 + M6809_CWAI, BUILT_IN_MD, NULL, NULL_TREE);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2451 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2452 + add_builtin_function ("__builtin_sync", void_ftype_void,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2453 + M6809_SYNC, BUILT_IN_MD, NULL, NULL_TREE);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2454 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2455 + add_builtin_function ("__builtin_nop", void_ftype_void,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2456 + M6809_NOP, BUILT_IN_MD, NULL, NULL_TREE);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2457 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2458 + add_builtin_function ("__builtin_blockage", void_ftype_void,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2459 + M6809_BLOCKAGE, BUILT_IN_MD, NULL, NULL_TREE);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2460 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2461 + add_builtin_function ("__builtin_add_decimal", uchar_ftype_uchar2,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2462 + M6809_ADD_DECIMAL, BUILT_IN_MD, NULL, NULL_TREE);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2463 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2464 + add_builtin_function ("__builtin_add_carry", uchar_ftype_uchar2,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2465 + M6809_ADD_CARRY, BUILT_IN_MD, NULL, NULL_TREE);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2466 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2467 + add_builtin_function ("__builtin_sub_carry", uchar_ftype_uchar2,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2468 + M6809_SUB_CARRY, BUILT_IN_MD, NULL, NULL_TREE);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2469 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2470 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2471 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2472 +/** Used by m6809_expand_builtin, given a tree ARGLIST which
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2473 + * refers to the operands of a builtin call, return an rtx
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2474 + * that represents the nth operand, as denoted by OPNUM, which
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2475 + * is a zero-based integer. MODE gives the expected mode
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2476 + * of the operand.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2477 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2478 + * This rtx is suitable for use in the emitted RTL for the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2479 + * builtin instruction. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2480 +rtx
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2481 +m6809_builtin_operand (tree arglist, enum machine_mode mode, int opnum)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2482 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2483 + tree arg;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2484 + rtx r;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2485 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2486 + arg = CALL_EXPR_ARG (arglist, opnum);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2487 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2488 + /* Convert the tree to RTL */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2489 + r = expand_expr (arg, NULL_RTX, mode, EXPAND_NORMAL);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2490 + if (r == NULL_RTX)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2491 + return NULL_RTX;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2492 + return r;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2493 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2494 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2495 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2496 +/** Expand a builtin that was registered in init_builtins into
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2497 + * RTL. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2498 +rtx
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2499 +m6809_expand_builtin (tree exp,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2500 + rtx target,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2501 + rtx subtarget ATTRIBUTE_UNUSED,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2502 + enum machine_mode mode ATTRIBUTE_UNUSED,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2503 + int ignore ATTRIBUTE_UNUSED )
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2504 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2505 + tree fndecl = TREE_OPERAND (CALL_EXPR_FN (exp), 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2506 + tree arglist = exp;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2507 + unsigned int fcode = DECL_FUNCTION_CODE (fndecl);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2508 + rtx r0, r1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2509 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2510 + switch (fcode)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2511 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2512 + case M6809_SWI:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2513 + r0 = gen_rtx_CONST_INT (VOIDmode, 1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2514 + emit_insn (target = gen_m6809_swi (r0));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2515 + return target;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2516 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2517 + case M6809_SWI2:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2518 + r0 = gen_rtx_CONST_INT (VOIDmode, 2);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2519 + emit_insn (target = gen_m6809_swi (r0));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2520 + return target;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2521 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2522 + case M6809_SWI3:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2523 + r0 = gen_rtx_CONST_INT (VOIDmode, 3);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2524 + emit_insn (target = gen_m6809_swi (r0));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2525 + return target;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2526 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2527 + case M6809_CWAI:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2528 + r0 = m6809_builtin_operand (arglist, QImode, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2529 + emit_insn (target = gen_m6809_cwai (r0));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2530 + return target;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2531 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2532 + case M6809_SYNC:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2533 + emit_insn (target = gen_m6809_sync ());
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2534 + return target;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2535 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2536 + case M6809_ADD_CARRY:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2537 + r0 = m6809_builtin_operand (arglist, QImode, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2538 + r1 = m6809_builtin_operand (arglist, QImode, 1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2539 + if (!target)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2540 + target = gen_reg_rtx (QImode);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2541 + emit_insn (gen_addqi3_carry (target, r0, r1));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2542 + return target;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2543 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2544 + case M6809_SUB_CARRY:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2545 + r0 = m6809_builtin_operand (arglist, QImode, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2546 + r1 = m6809_builtin_operand (arglist, QImode, 1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2547 + if (!target)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2548 + target = gen_reg_rtx (QImode);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2549 + emit_insn (gen_subqi3_carry (target, r0, r1));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2550 + return target;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2551 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2552 + case M6809_NOP:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2553 + emit_insn (target = gen_nop ());
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2554 + return target;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2555 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2556 + case M6809_BLOCKAGE:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2557 + emit_insn (target = gen_blockage ());
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2558 + return target;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2559 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2560 + case M6809_ADD_DECIMAL:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2561 + r0 = m6809_builtin_operand (arglist, QImode, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2562 + r1 = m6809_builtin_operand (arglist, QImode, 1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2563 + if (!target)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2564 + target = gen_reg_rtx (QImode);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2565 + emit_insn (gen_addqi3_decimal (target, r0, r1));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2566 + return target;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2567 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2568 + default:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2569 + warning (WARNING_OPT "unknown builtin expansion ignored");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2570 + return NULL_RTX;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2571 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2572 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2573 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2574 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2575 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2576 +/* Returns nonzero if 'x' represents a function that was declared
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2577 + * as __noreturn__. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2578 +int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2579 +noreturn_functionp (rtx x)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2580 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2581 + tree decl = call_target_decl (x);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2582 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2583 + if (decl == NULL_TREE)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2584 + return 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2585 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2586 + return TREE_THIS_VOLATILE (decl);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2587 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2588 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2589 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2590 +const char *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2591 +far_function_type_p (tree type)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2592 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2593 + tree attr;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2594 + const char *page;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2595 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2596 + /* Return whether or not this decl has the far attribute */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2597 + attr = lookup_attribute ("far", TYPE_ATTRIBUTES (type));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2598 + if (attr == NULL_TREE)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2599 + return NULL;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2600 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2601 + /* If it is far, check for a value */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2602 + attr = TREE_VALUE (attr);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2603 + if (attr == NULL_TREE)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2604 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2605 + warning (WARNING_OPT "far code page not specified, using local value");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2606 + return far_code_page;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2607 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2608 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2609 + /* We have a TREE_LIST of attribute values, get the first one.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2610 + * It should be an INTEGER_CST. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2611 + attr = TREE_VALUE (attr);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2612 + page = TREE_STRING_POINTER (attr);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2613 + return page;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2614 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2615 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2616 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2617 +/* For a far function, returns the identifier that states which page
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2618 + * it resides in. Otherwise, returns NULL for ordinary functions. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2619 +const char *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2620 +far_functionp (rtx x)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2621 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2622 + tree decl, decl_type;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2623 + const char *page;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2624 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2625 + /* Find the FUNCTION_DECL corresponding to the rtx being called. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2626 + decl = call_target_decl (x);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2627 + if (decl == NULL_TREE)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2628 + return NULL;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2629 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2630 + /* See if the function has the new 'banked' attribute. These
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2631 + * are numeric instead of text */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2632 + page = m6809_get_decl_bank (decl);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2633 + if (page)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2634 + return page;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2635 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2636 + /* No, lookup the type of the function and see if the type
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2637 + * specifies far or not. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2638 + decl_type = TREE_TYPE (decl);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2639 + if (decl_type == NULL_TREE)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2640 + return NULL;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2641 + return far_function_type_p (decl_type);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2642 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2643 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2644 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2645 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2646 +/** Outputs the assembly language for a far call. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2647 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2648 +output_far_call_insn (rtx *operands, int has_return)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2649 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2650 + static char page_data[64];
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2651 + const char *called_page;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2652 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2653 + /* The logic is the same for functions whether or not there
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2654 + * is a return value. Skip over the return value in this
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2655 + * case, so that the call location is always operands[0]. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2656 + if (has_return)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2657 + operands++;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2658 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2659 + /* Get the name of the page being called */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2660 + called_page = far_functionp (operands[0]);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2661 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2662 +#if 0 /* TODO : broken logic */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2663 + /* See if the called page name is a 'bank' */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2664 + if (isdigit (*called_page))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2665 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2666 + /* New style banking */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2667 + if (!strcmp (called_page, current_bank_name))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2668 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2669 + /* Same page */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2670 + output_asm_insn ("jsr\t%0", operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2671 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2672 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2673 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2674 + /* Different page */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2675 + output_asm_insn ("jsr\t__far_call_handler\t;new style", operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2676 + output_asm_insn ("\t.dw\t%0", operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2677 + sprintf (page_data, "\t.db\t%s", called_page);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2678 + output_asm_insn (page_data, operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2679 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2680 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2681 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2682 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2683 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2684 + /* Are we calling a different page than we are running in? */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2685 + if (!strcmp (called_page, far_code_page))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2686 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2687 + /* Same page : no need to execute a far call */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2688 + if (flag_pic)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2689 + output_asm_insn ("lbsr\t%C0", operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2690 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2691 + output_asm_insn ("jsr\t%0", operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2692 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2693 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2694 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2695 + /* Different page : need to emit far call thunk */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2696 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2697 + /* First output a call to the thunk for making far calls. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2698 + if (flag_pic)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2699 + output_asm_insn ("lbsr\t__far_call_handler", operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2700 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2701 + output_asm_insn ("jsr\t__far_call_handler\t;old style", operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2702 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2703 + /* Now output the name of the call site */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2704 + output_asm_insn ("\t.dw\t%C0", operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2705 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2706 + /* Finally output the page number */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2707 + sprintf (page_data, "\t.db\t%s", far_functionp (operands[0]));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2708 + output_asm_insn (page_data, operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2709 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2710 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2711 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2712 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2713 +int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2714 +m6809_init_cumulative_args (CUMULATIVE_ARGS cum ATTRIBUTE_UNUSED,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2715 + tree fntype,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2716 + rtx libname ATTRIBUTE_UNUSED)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2717 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2718 + cum = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2719 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2720 + /* For far functions, the current implementation does not allow for
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2721 + * stack parameters. So note whenever the called function is far
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2722 + * and in a different page than the current one; such a function
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2723 + * should give an error if a stack parameter is generated. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2724 + if (fntype)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2725 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2726 + const char *called_page = far_function_type_p (fntype);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2727 + if (called_page && strcmp (called_page, far_code_page) && !TARGET_FAR_STACK_PARAM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2728 + cum \|= CUM_STACK_INVALID;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2729 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2730 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2731 + if (fntype && TYPE_ARG_TYPES (fntype) != 0 &&
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2732 + (TREE_VALUE (tree_last (TYPE_ARG_TYPES (fntype))) != void_type_node))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2733 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2734 + /* has variable arguments, cannot use registers */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2735 + cum \|= (CUM_X_MASK \| CUM_B_MASK \| CUM_STACK_ONLY);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2736 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2737 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2738 + if (m6809_abi_version == M6809_ABI_VERSION_STACK)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2739 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2740 + /* cannot use registers ; only use the stack */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2741 + cum \|= (CUM_STACK_ONLY \| CUM_X_MASK \| CUM_B_MASK);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2742 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2743 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2744 + return cum;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2745 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2746 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2747 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2748 +rtx
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2749 +m6809_function_arg_on_stack (CUMULATIVE_ARGS *cump)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2750 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2751 + if (*cump & CUM_STACK_INVALID)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2752 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2753 + *cump &= ~CUM_STACK_INVALID;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2754 + error ("far function needs stack, will not work");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2755 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2756 + return NULL_RTX;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2757 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2758 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2759 +void m6809_asm_trampoline_template(FILE *f)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2760 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2761 + fprintf(f, "ldy #0000\n");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2762 + fprintf(f, "jmp 0x0000\n");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2763 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2764 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2765 +/*
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2766 + * Trampoline output:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2767 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2768 + * ldu #&cxt 4 bytes --LDY- ?? ??
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2769 + * jmp fnaddr 3 bytes JMP ?? ??
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2770 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2771 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2772 +m6809_initialize_trampoline (rtx tramp, tree fndecl, rtx cxt)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2773 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2774 + rtx fnaddr = XEXP (DECL_RTL (fndecl), 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2775 + /* TODO - optimize by generating the entire trampoline code here,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2776 + * and removing the template altogether, since there are only two
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2777 + * bytes there that matter. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2778 + emit_move_insn (gen_rtx_MEM (HImode, plus_constant (tramp, 2)), cxt);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2779 + emit_move_insn (gen_rtx_MEM (HImode, plus_constant (tramp, 5)), fnaddr);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2780 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2781 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2782 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2783 +/** Echo the version of the compiler and the name of the source file
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2784 + * at the beginning of each assembler output file. asm_out_file
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2785 + * is a global FILE * pointing to the output stream. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2786 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2787 +m6809_asm_file_start (void)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2788 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2789 + const char *module_name;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2790 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2791 + fprintf (asm_out_file, "\n;;; gcc for m6809 : %s %s\n",
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2792 + __DATE__, __TIME__);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2793 + fprintf (asm_out_file, ";;; %s\n", version_string);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2794 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2795 + fprintf (asm_out_file, ";;; ABI version %d\n", m6809_abi_version);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2796 + fprintf (asm_out_file, ";;; %s\n",
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2797 + (TARGET_BYTE_INT ? "-mint8" : "-mint16"));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2798 + if (TARGET_EXPERIMENT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2799 + fprintf (asm_out_file, ";;; -mexperiment\n");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2800 + if (TARGET_WPC)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2801 + fprintf (asm_out_file, ";;; -mwpc\n");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2802 + if (TARGET_6309)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2803 + fprintf (asm_out_file, ";;; -m6309\n");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2804 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2805 + /* Print the name of the module, which is taken as the base name
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2806 + * of the input file.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2807 + * See the 'User-Defined Symbols' section of the assembler
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2808 + * documentation for the rules on valid symbols.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2809 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2810 + module_name = lbasename (main_input_filename);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2811 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2812 + fprintf (asm_out_file, "\t.module\t");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2813 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2814 + if (module_name >= '0' && module_name <= '9')
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2815 + fprintf (asm_out_file, "_");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2816 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2817 + while (*module_name)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2818 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2819 + if ((module_name >= '0' && module_name <= '9')
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2820 + \|\| (module_name >= 'A' && module_name <= 'Z')
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2821 + \|\| (module_name >= 'a' && module_name <= 'z')
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2822 + \|\| *module_name == '$'
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2823 + \|\| *module_name == '.'
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2824 + \|\| *module_name == '_')
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2825 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2826 + fprintf (asm_out_file, "%c", *module_name);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2827 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2828 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2829 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2830 + fprintf (asm_out_file, "_");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2831 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2832 + module_name++;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2833 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2834 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2835 + fprintf (asm_out_file, "\n");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2836 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2837 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2838 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2839 +/** Returns true if prologue/epilogue code is required for the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2840 + * current function being compiled.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2841 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2842 + * This is just the inverse of whether the function is declared as
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2843 + * 'naked'.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2844 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2845 +int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2846 +prologue_epilogue_required (void)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2847 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2848 + return !m6809_current_function_has_type_attr_p ("naked")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2849 + && !m6809_current_function_has_type_attr_p ("noreturn");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2850 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2851 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2852 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2853 +/** Expand RTL for function entry */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2854 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2855 +emit_prologue_insns (void)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2856 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2857 + rtx insn;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2858 + unsigned int live_regs = m6809_get_live_regs ();
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2859 + unsigned int frame_size = get_frame_size ();
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2860 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2861 + /* Save all registers used, including the frame pointer */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2862 + if (live_regs && !m6809_current_function_has_type_attr_p ("interrupt"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2863 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2864 + insn = emit_insn (
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2865 + gen_rtx_register_pushpop (UNSPEC_PUSH_RS, live_regs));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2866 + RTX_FRAME_RELATED_P (insn) = 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2867 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2868 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2869 + /* Allocate space for local variables */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2870 + if (frame_size != 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2871 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2872 + insn = emit_insn (gen_rtx_stack_adjust (MINUS, frame_size));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2873 + RTX_FRAME_RELATED_P (insn) = 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2874 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2875 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2876 + /* Set the frame pointer if it is needed */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2877 + if (frame_pointer_needed)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2878 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2879 + insn = emit_move_insn (hard_frame_pointer_rtx, stack_pointer_rtx);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2880 + RTX_FRAME_RELATED_P (insn) = 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2881 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2882 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2883 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2884 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2885 +/** Expand RTL for function exit */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2886 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2887 +emit_epilogue_insns (bool sibcall_p)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2888 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2889 + unsigned int live_regs = m6809_get_live_regs ();
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2890 + unsigned int frame_size = get_frame_size ();
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2891 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2892 + if (frame_size != 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2893 + emit_insn (gen_rtx_stack_adjust (PLUS, frame_size));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2894 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2895 + if (sibcall_p)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2896 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2897 + if (live_regs)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2898 + emit_insn (gen_rtx_register_pushpop (UNSPEC_POP_RS, live_regs));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2899 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2900 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2901 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2902 + if (live_regs && !m6809_current_function_has_type_attr_p ("interrupt"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2903 + emit_insn (
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2904 + gen_rtx_register_pushpop (UNSPEC_POP_RS, PC_REGBIT \| live_regs));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2905 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2906 + if (m6809_current_function_has_type_attr_p ("interrupt"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2907 + emit_jump_insn (gen_return_rti ());
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2908 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2909 + emit_jump_insn (gen_return_rts ());
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2910 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2911 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2912 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2913 +#if 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2914 +/** Predefine some preprocessor names according to the currently
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2915 + * selected compiler options */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2916 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2917 +m6809_cpu_cpp_builtins (void)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2918 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2919 + if (TARGET_6309)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2920 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2921 + builtin_define_std ("__M6309__");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2922 + builtin_define_std ("__m6309__");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2923 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2924 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2925 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2926 + builtin_define_std ("__M6809__");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2927 + builtin_define_std ("__m6809__");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2928 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2929 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2930 + if (TARGET_BYTE_INT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2931 + builtin_define_std ("__int8__");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2932 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2933 + builtin_define_std ("__int16__");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2934 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2935 + switch (m6809_abi_version)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2936 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2937 + case M6809_ABI_VERSION_STACK:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2938 + builtin_define_std ("__regargs__");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2939 + builtin_define_std ("__ABI_STACK__");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2940 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2941 + case M6809_ABI_VERSION_REGS:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2942 + builtin_define_std ("__ABI_REGS__");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2943 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2944 + case M6809_ABI_VERSION_BX:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2945 + builtin_define_std ("__ABI_BX__");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2946 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2947 + default:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2948 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2949 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2950 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2951 + if (TARGET_WPC)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2952 + builtin_define_std ("__WPC__");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2953 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2954 + if (TARGET_DRET)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2955 + builtin_define_std ("__DRET__");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2956 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2957 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2958 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2959 +#define MAX_ASM_ASCII_STRING 48
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2960 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2961 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2962 +m6809_output_ascii (FILE fp, const char str, unsigned long size)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2963 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2964 + unsigned long i;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2965 + bool use_ascii = true;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2966 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2967 + /* If the size is too large, then break this up into multiple
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2968 + outputs. The assembler can only output roughly 48 bytes at a
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2969 + time. Note that if there are lots of escape sequences in
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2970 + the string, this may fail. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2971 + if (size > MAX_ASM_ASCII_STRING)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2972 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2973 + m6809_output_ascii (fp, str, MAX_ASM_ASCII_STRING);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2974 + m6809_output_ascii (fp, str + MAX_ASM_ASCII_STRING,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2975 + size - MAX_ASM_ASCII_STRING);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2976 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2977 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2978 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2979 + /* Check for 8-bit codes, which cannot be embedded in an .ascii */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2980 + for (i = 0; i < size; i++)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2981 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2982 + int c = str[i] & 0377;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2983 + if (c >= 0x80)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2984 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2985 + use_ascii = false;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2986 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2987 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2988 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2989 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2990 + if (use_ascii)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2991 + fprintf (fp, "\t.ascii \"");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2992 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2993 + for (i = 0; i < size; i++)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2994 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2995 + int c = str[i] & 0377;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2996 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2997 + if (use_ascii)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2998 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	2999 + /* Just output the plain character if it is printable,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3000 + otherwise output the escape code for the character.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3001 + The assembler recognizes the same C-style octal escape sequences,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3002 + except that it only supports 7-bit codes. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3003 + if (c >= ' ' && c < 0177 && c != '\\' && c != '"')
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3004 + putc (c, fp);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3005 + else switch (c)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3006 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3007 + case '\n':
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3008 +#ifndef TARGET_COCO
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3009 + fputs ("\\n", fp);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3010 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3011 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3012 + /* On the CoCo, we fallthrough and treat '\n' like '\r'. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3013 + case '\r':
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3014 + fputs ("\\r", fp);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3015 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3016 + case '\t':
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3017 + fputs ("\\t", fp);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3018 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3019 + case '\f':
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3020 + fputs ("\\f", fp);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3021 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3022 + case 0:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3023 + fputs ("\\0", fp);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3024 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3025 + default:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3026 + fprintf (fp, "\\%03o", c);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3027 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3028 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3029 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3030 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3031 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3032 + fprintf (fp, "\t.byte\t0x%02X\n", c);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3033 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3034 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3035 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3036 + if (use_ascii)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3037 + fprintf (fp, "\"\n");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3038 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3039 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3040 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3041 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3042 +m6809_output_quoted_string (FILE asm_file, const char string)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3043 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3044 + char c;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3045 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3046 + if (strlen (string) > MAX_ASM_ASCII_STRING)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3047 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3048 + /* The string length is too large. We'll have to truncate it.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3049 + This is only called from debugging functions, so it's usually
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3050 + not critical. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3051 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3052 + char truncated_string[MAX_ASM_ASCII_STRING+1];
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3053 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3054 + /* Copy as many characters as we can. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3055 + strncpy (truncated_string, string, MAX_ASM_ASCII_STRING);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3056 + truncated_string[MAX_ASM_ASCII_STRING] = '\0';
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3057 + string = truncated_string;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3058 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3059 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3060 + /* Copied from toplev.c */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3061 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3062 + putc ('\"', asm_file);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3063 + while ((c = *string++) != 0) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3064 + if (ISPRINT (c)) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3065 + if (c == '\"' \|\| c == '\\')
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3066 + putc ('\\', asm_file);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3067 + putc (c, asm_file);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3068 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3069 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3070 + fprintf (asm_file, "\\%03o", (unsigned char) c);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3071 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3072 + putc ('\"', asm_file);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3073 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3074 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3075 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3076 +/** Output the assembly code for a shift instruction where the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3077 + * shift count is not constant. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3078 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3079 +m6809_output_shift_insn (int rtx_code, rtx *operands)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3080 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3081 + struct shift_opcode *op;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3082 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3083 + if (GET_CODE (operands[2]) == CONST_INT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3084 + abort ();
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3085 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3086 + if (optimize_size && GET_MODE (operands[0]) == HImode)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3087 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3088 + switch (rtx_code)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3089 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3090 + case ASHIFT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3091 + output_asm_insn ("jsr\t_ashlhi3", operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3092 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3093 + case ASHIFTRT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3094 + output_asm_insn ("jsr\t_ashrhi3", operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3095 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3096 + case LSHIFTRT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3097 + output_asm_insn ("jsr\t_lshrhi3", operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3098 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3099 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3100 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3101 + else if (GET_MODE (operands[0]) == HImode)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3102 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3103 + switch (rtx_code)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3104 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3105 + case ASHIFT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3106 + m6809_gen_register_shift (operands, "aslb", "rola");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3107 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3108 + case ASHIFTRT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3109 + m6809_gen_register_shift (operands, "asra", "rorb");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3110 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3111 + case LSHIFTRT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3112 + m6809_gen_register_shift (operands, "lsra", "rorb");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3113 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3114 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3115 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3116 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3117 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3118 + switch (rtx_code)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3119 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3120 + case ASHIFT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3121 + m6809_gen_register_shift (operands, "aslb", NULL);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3122 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3123 + case ASHIFTRT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3124 + m6809_gen_register_shift (operands, "asrb", NULL);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3125 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3126 + case LSHIFTRT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3127 + m6809_gen_register_shift (operands, "lsrb", NULL);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3128 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3129 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3130 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3131 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3132 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3133 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3134 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3135 +m6809_emit_move_insn (rtx dst, rtx src)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3136 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3137 + emit_insn (gen_rtx_SET (VOIDmode, dst, src));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3138 + if (ACC_A_REG_P (dst))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3139 + emit_insn (gen_rtx_USE (VOIDmode, dst));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3140 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3141 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3142 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3143 +/** Split a complex shift instruction into multiple CPU
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3144 + * shift instructions. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3145 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3146 +m6809_split_shift (enum rtx_code code, rtx *operands)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3147 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3148 + enum machine_mode mode;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3149 + int count;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3150 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3151 + mode = GET_MODE (operands[0]);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3152 + count = INTVAL (operands[2]);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3153 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3154 + /* Handle a shift count outside the range of 0 .. N-1, where
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3155 + * N is the mode size in bits. We normalize the count, and
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3156 + * for negative counts we also invert the direction of the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3157 + * shift. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3158 + if ((count < 0) \|\| (count >= 8 * GET_MODE_SIZE (mode)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3159 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3160 + if (count < 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3161 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3162 + count = -count;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3163 + code = (code == ASHIFT) ? ASHIFTRT : ASHIFT;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3164 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3165 + count %= (8 * GET_MODE_SIZE (mode));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3166 + m6809_emit_move_insn (operands[0],
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3167 + gen_rtx_fmt_ee (code, mode, operands[1],
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3168 + gen_rtx_CONST_INT (VOIDmode, count)));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3169 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3170 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3171 + /* Handle shift by zero explicitly as a no-op. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3172 + if (count == 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3173 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3174 + emit_insn (gen_nop ());
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3175 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3176 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3177 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3178 + /* Decompose the shift by a constant N > 8 into two
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3179 + * shifts, first by 8 and then by N-8.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3180 + * This "speeds up" the process for large shifts that would be
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3181 + * handled below, but allows for some optimization.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3182 + * In some cases shift by 8 can be implemented fast. If an
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3183 + * instruction to shift by 8 is defined, it will be used here;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3184 + * otherwise it will be further decomposed as below. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3185 + if (mode == HImode && count > 8)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3186 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3187 + rtx output = operands[0];
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3188 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3189 + m6809_emit_move_insn (operands[0],
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3190 + gen_rtx_fmt_ee (code, mode, operands[1],
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3191 + gen_rtx_CONST_INT (VOIDmode, 8)));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3192 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3193 + /* Unsigned shifts always produce a zero in either the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3194 + * upper or lower half of the output; then, that part
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3195 + * does not need to be shifted anymore. We modify the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3196 + * output and the subsequent instructions to operate in
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3197 + * QImode only on the relevant part. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3198 + if (REG_P (output))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3199 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3200 + if (code == ASHIFT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3201 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3202 + output = gen_rtx_REG (QImode, HARD_A_REGNUM);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3203 + mode = QImode;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3204 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3205 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3206 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3207 + output = gen_rtx_REG (QImode, HARD_D_REGNUM);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3208 + mode = QImode;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3209 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3210 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3211 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3212 + m6809_emit_move_insn (output,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3213 + gen_rtx_fmt_ee (code, mode, copy_rtx (output),
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3214 + gen_rtx_CONST_INT (VOIDmode, count-8)));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3215 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3216 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3217 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3218 + /* Rewrite the unsigned shift of an 8-bit register by a large constant N
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3219 + * (near to the maximum of 8) as a rotate and mask. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3220 + if (mode == QImode && REG_P (operands[0]) && count >= ((code == ASHIFTRT) ? 7 : 6))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3221 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3222 + unsigned int mask;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3223 + unsigned int was_signed = (code == ASHIFTRT);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3224 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3225 + code = (code == ASHIFT) ? ROTATERT : ROTATE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3226 + if (code == ROTATE)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3227 + mask = (count == 6) ? 0x03 : 0x01;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3228 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3229 + mask = (count == 6) ? 0xC0 - 0x100 : 0x80 - 0x100;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3230 + count = 9 - count;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3231 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3232 + do {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3233 + m6809_emit_move_insn (operands[0],
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3234 + gen_rtx_fmt_ee (code, QImode, operands[1], const1_rtx));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3235 + } while (--count != 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3236 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3237 + m6809_emit_move_insn (operands[0],
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3238 + gen_rtx_fmt_ee (AND, QImode, operands[1],
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3239 + gen_rtx_CONST_INT (VOIDmode, mask)));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3240 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3241 + if (was_signed)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3242 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3243 + emit_insn (gen_negqi2 (operands[0], copy_rtx (operands[0])));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3244 + if (ACC_A_REG_P (operands[0]))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3245 + emit_insn (gen_rtx_USE (VOIDmode, operands[0]));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3246 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3247 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3248 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3249 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3250 + /* Decompose the shift by any constant N > 1 into a sequence
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3251 + * of N shifts.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3252 + * This is done recursively, by creating a shift by 1 and a
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3253 + * shift by N-1, as long as N>1. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3254 + if (count > 1)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3255 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3256 + m6809_emit_move_insn (operands[0],
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3257 + gen_rtx_fmt_ee (code, mode, operands[1], const1_rtx));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3258 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3259 + m6809_emit_move_insn (operands[0],
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3260 + gen_rtx_fmt_ee (code, mode, operands[1],
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3261 + gen_rtx_CONST_INT (VOIDmode, count-1)));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3262 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3263 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3264 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3265 + /* Decompose the single shift of a 16-bit quantity into two
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3266 + * CPU instructions, one for each 8-bit half.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3267 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3268 + if (mode == HImode && count == 1)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3269 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3270 + rtx first, second;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3271 + enum rtx_code rotate_code;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3272 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3273 + rotate_code = (code == ASHIFT) ? ROTATE : ROTATERT;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3274 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3275 + /* Split the operand into two 8-bit entities.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3276 + * FIRST is the one that will get shifted via a regular CPU
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3277 + * instruction.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3278 + * SECOND is the one that will have the result of the first shift
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3279 + * rotated in.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3280 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3281 + * We initialize first and second as if we are doing a left shift,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3282 + * then swap the operands if it's a right shift.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3283 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3284 + if (REG_P (operands[0]))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3285 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3286 + first = gen_rtx_REG (QImode, HARD_D_REGNUM); /* HARD_B_REGNUM? */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3287 + second = gen_rtx_REG (QImode, HARD_A_REGNUM);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3288 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3289 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3290 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3291 + first = adjust_address (operands[0], QImode, 1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3292 + second = adjust_address (operands[0], QImode, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3293 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3294 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3295 + if (rotate_code == ROTATERT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3296 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3297 + rtx tmp; tmp = first; first = second; second = tmp;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3298 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3299 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3300 + /* Decompose into a shift and a rotate instruction. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3301 + m6809_emit_move_insn (first,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3302 + gen_rtx_fmt_ee (code, QImode, copy_rtx (first), const1_rtx));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3303 + m6809_emit_move_insn (second,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3304 + gen_rtx_fmt_ee (rotate_code, QImode, copy_rtx (second), const1_rtx));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3305 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3306 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3307 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3308 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3309 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3310 +/** Adjust register usage based on compile-time flags. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3311 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3312 +m6809_conditional_register_usage (void)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3313 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3314 + unsigned int soft_regno;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3315 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3316 +#ifdef CONFIG_SOFT_REGS_ALWAYS
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3317 + m6809_soft_regs = CONFIG_SOFT_REGS_ALWAYS;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3318 +#else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3319 + if (!m6809_soft_reg_count)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3320 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3321 + m6809_soft_regs = atoi (m6809_soft_reg_count);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3322 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3323 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3324 + if (m6809_soft_regs == 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3325 + return;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3326 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3327 + if (m6809_soft_regs > NUM_M_REGS)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3328 + m6809_soft_regs = NUM_M_REGS;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3329 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3330 + /* Registers are marked FIXED by default. Free up if
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3331 + the user wishes. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3332 + for (soft_regno = 1; soft_regno < m6809_soft_regs; soft_regno++)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3333 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3334 + fixed_regs[SOFT_M0_REGNUM + soft_regno] = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3335 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3336 + /* Mark the softregs as call-clobbered, so that they need
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3337 + * not be saved/restored on function entry/exit. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3338 + call_used_regs[SOFT_M0_REGNUM + soft_regno] = 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3339 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3340 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3341 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3342 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3343 +/** Return a RTX representing how to return a value from a function.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3344 + VALTYPE gives the type of the value, FUNC identifies the function
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3345 + itself.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3346 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3347 + In general, we only care about the width of the result. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3348 +rtx
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3349 +m6809_function_value (const tree valtype, const tree func ATTRIBUTE_UNUSED)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3350 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3351 + unsigned int regno;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3352 + enum machine_mode mode;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3353 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3354 + /* Get the mode (i.e. width) of the result. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3355 + mode = TYPE_MODE (valtype);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3356 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3357 + if (lookup_attribute ("boolean", TYPE_ATTRIBUTES (valtype)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3358 + regno = HARD_Z_REGNUM;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3359 + else if (mode == QImode \|\| (TARGET_DRET && mode == HImode))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3360 + regno = HARD_D_REGNUM;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3361 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3362 + regno = HARD_X_REGNUM;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3363 + return gen_rtx_REG (mode, regno);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3364 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3365 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3366 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3367 +/** Return 1 if REGNO is possibly needed to return the result
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3368 +of a function, 0 otherwise. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3369 +int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3370 +m6809_function_value_regno_p (unsigned int regno)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3371 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3372 + if (regno == HARD_Z_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3373 + return 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3374 + else if ((TARGET_BYTE_INT \|\| TARGET_DRET) && regno == HARD_D_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3375 + return 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3376 + else if (!TARGET_DRET && regno == HARD_X_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3377 + return 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3378 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3379 + return 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3380 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3381 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3382 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3383 +#ifdef TRACE_PEEPHOLE
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3384 +int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3385 +m6809_match_peephole2 (unsigned int peephole_id, unsigned int stage)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3386 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3387 + if (stage == PEEP_END)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3388 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3389 + printf ("%s: peephole %d pattern and predicate matched\n",
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3390 + main_input_filename, peephole_id);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3391 + fflush (stdout);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3392 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3393 + else if (stage == PEEP_COND)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3394 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3395 + printf ("%s: peephole %d? at least pattern matched\n",
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3396 + main_input_filename, peephole_id);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3397 + fflush (stdout);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3398 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3399 + return 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3400 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3401 +#else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3402 +int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3403 +m6809_match_peephole2 (unsigned int peephole_id ATTRIBUTE_UNUSED,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3404 + unsigned int stage ATTRIBUTE_UNUSED)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3405 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3406 + return 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3407 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3408 +#endif /* TRACE_PEEPHOLE */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3409 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3410 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3411 +/** Return 1 if it is OK to store a value of MODE in REGNO. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3412 +int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3413 +m6809_hard_regno_mode_ok (unsigned int regno, enum machine_mode mode)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3414 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3415 + /* Soft registers, as they are just memory, can really hold
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3416 + values of any type. However we restrict them to values of
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3417 + size HImode or QImode to prevent exhausting them for larger
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3418 + values.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3419 + Word values cannot be placed into the first soft register,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3420 + as it is the low byte that is being placed there, which
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3421 + corrupts the (non-soft) register before it. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3422 + if (M_REGNO_P (regno))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3423 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3424 + switch (GET_MODE_SIZE (mode))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3425 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3426 + case 1:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3427 + return 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3428 + case 2:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3429 + return regno != SOFT_M0_REGNUM;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3430 + default:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3431 + return 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3432 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3433 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3434 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3435 + /* VOIDmode can be stored anywhere */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3436 + else if (mode == VOIDmode)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3437 + return 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3438 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3439 + /* Zero is a reserved register, but problems occur if we don't
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3440 + say yes here??? */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3441 + else if (regno == 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3442 + return 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3443 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3444 + /* For other registers, return true only if the requested size
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3445 + exactly matches the hardware size. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3446 + else if ((G_REGNO_P (regno)) && (GET_MODE_SIZE (mode) == 2))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3447 + return 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3448 + else if ((BYTE_REGNO_P (regno)) && (GET_MODE_SIZE (mode) == 1))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3449 + return 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3450 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3451 + return 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3452 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3453 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3454 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3455 +/* exp is the call expression. DECL is the called function,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3456 + * or NULL for an indirect call */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3457 +bool
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3458 +m6809_function_ok_for_sibcall (tree decl, tree exp ATTRIBUTE_UNUSED)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3459 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3460 + tree type, arg;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3461 + const char *name;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3462 + bool result = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3463 + int argcount = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3464 + int step = 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3465 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3466 + /* If there is no DECL, it is an indirect call.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3467 + * Never optimize this??? */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3468 + if (decl == NULL)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3469 + goto done;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3470 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3471 + /* Never allow an interrupt handler to be optimized this way. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3472 + if (m6809_function_has_type_attr_p (decl, "interrupt"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3473 + goto done;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3474 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3475 + /* Skip sibcall if the type can't be found for
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3476 + * some reason */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3477 + step++;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3478 + name = IDENTIFIER_POINTER (DECL_NAME (decl));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3479 + type = TREE_TYPE (decl);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3480 + if (type == NULL)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3481 + goto done;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3482 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3483 + /* Skip sibcall if the target is a far function */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3484 + step++;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3485 + if (far_function_type_p (type) != NULL)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3486 + goto done;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3487 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3488 + /* Skip sibcall if the called function's arguments are
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3489 + * variable */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3490 + step++;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3491 + if (TYPE_ARG_TYPES (type) == NULL)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3492 + goto done;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3493 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3494 + /* Allow sibcalls in other cases. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3495 + result = 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3496 +done:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3497 + /* printf ("%s ok for sibcall? %s, step %d, args %d\n", name, result ? "yes" : "no", step, argcount); */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3498 + return result;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3499 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3500 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3501 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3502 +/** Emit code for the 'casesi' pattern.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3503 + * This pattern is only used in 8-bit mode, and can be disabled
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3504 + * with -mold-case there as well. The rationale for this is to
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3505 + * do a better job than the simpler but well-tested 'tablejump'
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3506 + * method.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3507 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3508 + * For small jumptables, where the switch expression is an
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3509 + * 8-bit value, the lookup can be done more efficiently
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3510 + * using the "B,X" style index mode. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3511 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3512 +m6809_do_casesi (rtx index, rtx lower_bound, rtx range,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3513 + rtx table_label, rtx default_label)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3514 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3515 + enum machine_mode mode;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3516 + rtx scaled;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3517 + rtx table_in_reg;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3518 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3519 + /* expr.c has to be patched so that it does not promote
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3520 + * the expression to SImode, but rather to HImode.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3521 + * Fail now if that isn't the case. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3522 + if (GET_MODE_SIZE (GET_MODE (index)) > GET_MODE_SIZE (HImode))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3523 + error ("try_casesi promotion bug");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3524 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3525 + /* Determine whether or not we are going to work primarily in
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3526 + * QImode or HImode. This depends on the size of the index
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3527 + * into the lookup table. QImode can only be used when the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3528 + * index is less than 0x40, since it will be doubled but
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3529 + * must remain unsigned. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3530 + if ((GET_CODE (range) == CONST_INT) && (INTVAL (range) < 0x40))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3531 + mode = QImode;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3532 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3533 + mode = HImode;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3534 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3535 + /* Convert to QImode if necessary */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3536 + if (mode == QImode)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3537 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3538 + index = gen_lowpart_general (mode, index);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3539 + lower_bound = gen_lowpart_general (mode, lower_bound);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3540 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3541 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3542 + /* Translate from case value to table index by subtraction */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3543 + if (lower_bound != const0_rtx)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3544 + index = expand_binop (mode, sub_optab, index, lower_bound,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3545 + NULL_RTX, 0, OPTAB_LIB_WIDEN);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3546 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3547 + /* Emit compare-and-jump to test for index out-of-range */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3548 + emit_cmp_and_jump_insns (index, range, GTU, NULL_RTX, mode, 1,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3549 + default_label);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3550 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3551 + /* Put the table address is in a register */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3552 + table_in_reg = gen_reg_rtx (Pmode);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3553 + emit_move_insn (table_in_reg, gen_rtx_LABEL_REF (Pmode, table_label));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3554 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3555 + /* Emit table lookup and jump */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3556 + if (mode == QImode)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3557 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3558 + /* Scale the index */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3559 + scaled = gen_reg_rtx (QImode);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3560 + emit_insn (gen_ashlqi3 (scaled, index, const1_rtx));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3561 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3562 + /* Emit the jump */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3563 + emit_jump_insn (gen_tablejump_short_offset (scaled, table_in_reg));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3564 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3565 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3566 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3567 + /* Scale the index */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3568 + emit_insn (gen_ashlhi3 (index, index, const1_rtx));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3569 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3570 + /* Emit the jump */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3571 + emit_jump_insn (gen_tablejump_long_offset (index, table_in_reg));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3572 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3573 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3574 + /* Copied from expr.c */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3575 + if (!CASE_VECTOR_PC_RELATIVE && !flag_pic)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3576 + emit_barrier ();
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3577 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3578 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3579 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3580 +/** Output the assembly code for a 32-bit add/subtract. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3581 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3582 +m6809_output_addsi3 (int rtx_code, rtx *operands)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3583 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3584 + rtx xoperands[8];
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3585 + rtx dst = operands[0];
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3586 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3587 + /* Prepare the operands by splitting each SImode into two HImodes
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3588 + that can be operated independently. The high word of operand 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3589 + is further divided into two QImode components for use with 'adc'
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3590 + style instructions. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3591 + xoperands[7] = operands[3];
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3592 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3593 + xoperands[0] = adjust_address (dst, HImode, 2);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3594 + xoperands[3] = adjust_address (dst, HImode, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3595 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3596 +#if 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3597 + xoperands[2] = adjust_address (operands[1], HImode, 2);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3598 + xoperands[6] = adjust_address (operands[1], HImode, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3599 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3600 + /* Operand 2 may be a MEM or a CONST_INT */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3601 + if (GET_CODE (operands[2]) == CONST_INT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3602 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3603 + xoperands[1] = gen_int_mode (INTVAL (operands[2]) & 0xFFFF, HImode);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3604 + xoperands[4] = gen_int_mode ((INTVAL (operands[2]) >> 24) & 0xFF, QImode);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3605 + xoperands[5] = gen_int_mode ((INTVAL (operands[2]) >> 16) & 0xFF, QImode);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3606 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3607 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3608 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3609 + xoperands[1] = adjust_address (operands[2], HImode, 2);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3610 + xoperands[4] = adjust_address (operands[2], QImode, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3611 + xoperands[5] = adjust_address (operands[2], QImode, 1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3612 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3613 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3614 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3615 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3616 +#if 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3617 + xoperands[1] = adjust_address (operands[1], HImode, 2);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3618 + xoperands[4] = adjust_address (operands[1], QImode, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3619 + xoperands[5] = adjust_address (operands[1], QImode, 1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3620 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3621 + /* Operand 2 may be a MEM or a CONST_INT */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3622 + if (GET_CODE (operands[2]) == CONST_INT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3623 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3624 + xoperands[2] = gen_int_mode ((INTVAL (operands[2])) & 0xFFFF, HImode);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3625 + xoperands[6] = gen_int_mode ((INTVAL (operands[2]) >> 16) & 0xFFFF, HImode);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3626 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3627 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3628 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3629 + xoperands[2] = adjust_address (operands[2], HImode, 2);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3630 + xoperands[6] = adjust_address (operands[2], HImode, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3631 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3632 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3633 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3634 + /* Output the assembly code. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3635 + if (rtx_code == PLUS)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3636 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3637 + output_asm_insn ("ld%7\t%2", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3638 + output_asm_insn ("add%7\t%1", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3639 + output_asm_insn ("st%7\t%0", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3640 + output_asm_insn ("ld%7\t%6", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3641 + output_asm_insn ("adcb\t%5", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3642 + output_asm_insn ("adca\t%4", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3643 + output_asm_insn ("st%7\t%3", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3644 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3645 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3646 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3647 + output_asm_insn ("ld%7\t%2", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3648 + output_asm_insn ("sub%7\t%1", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3649 + output_asm_insn ("st%7\t%0", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3650 + output_asm_insn ("ld%7\t%6", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3651 + output_asm_insn ("sbcb\t%5", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3652 + output_asm_insn ("sbca\t%4", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3653 + output_asm_insn ("st%7\t%3", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3654 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3655 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3656 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3657 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3658 +#if 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3659 +/** Output the assembly code for a 32-bit shift.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3660 +Operands 0 and 1 must be the same rtx, forced by a matching
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3661 +constraint. Operand 2 must be a CONST_INT. Operand 3 is
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3662 +"d" in case a temporary reg is needed. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3663 +void
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3664 +m6809_output_shiftsi3 (int rtx_code, rtx *operands)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3665 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3666 + unsigned int count = INTVAL (operands[2]) % 32;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3667 + unsigned int size = 4; /* sizeof (SImode) */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3668 + int s;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3669 + rtx xoperands[4];
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3670 + int op;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3671 + int start, end, step;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3672 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3673 + /* Initialize */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3674 + if (rtx_code == ASHIFT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3675 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3676 + start = size-1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3677 + end = -1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3678 + step = -1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3679 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3680 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3681 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3682 + start = 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3683 + end = size;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3684 + step = 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3685 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3686 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3687 + xoperands[2] = operands[2];
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3688 + xoperands[3] = operands[3];
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3689 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3690 + if (count <= 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3691 + abort ();
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3692 + if (rtx_code == ROTATE \|\| rtx_code == ROTATERT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3693 + abort ();
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3694 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3695 + /* Extract bit shifts over 16 bits by HImode moves. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3696 + if (count >= 16)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3697 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3698 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3699 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3700 + /* Extract bit shifts over 8 bits by QImode moves. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3701 + if (count >= 8)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3702 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3703 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3704 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3705 + /* Iterate over the number of bits to be shifted. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3706 + while (count > 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3707 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3708 + /* Each bit to be shifted requires 1 proper bit shift
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3709 + and 3 rotates. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3710 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3711 + /* First, do the arithmetic/logical shift. Left shifts
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3712 + start from the LSB; right shifts start from the MSB. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3713 + xoperands[0] = adjust_address (operands[0], QImode, start);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3714 + switch (rtx_code)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3715 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3716 + case ASHIFT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3717 + output_asm_insn ("asl\t%0", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3718 + start--;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3719 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3720 + case ASHIFTRT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3721 + output_asm_insn ("asr\t%0", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3722 + start++;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3723 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3724 + case LSHIFTRT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3725 + output_asm_insn ("lsr\t%0", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3726 + start++;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3727 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3728 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3729 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3730 + /* Next, rotate the other bytes */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3731 + for (s = start; s != end; s += step)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3732 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3733 + xoperands[0] = adjust_address (operands[0], QImode, s);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3734 + switch (rtx_code)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3735 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3736 + case ASHIFT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3737 + output_asm_insn ("rol\t%0", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3738 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3739 + case ASHIFTRT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3740 + case LSHIFTRT:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3741 + output_asm_insn ("ror\t%0", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3742 + break;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3743 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3744 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3745 + count--;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3746 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3747 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3748 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3749 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3750 +int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3751 +power_of_two_p (unsigned int n)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3752 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3753 + return (n & (n-1)) == 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3754 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3755 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3756 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3757 +int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3758 +m6809_can_eliminate (int from, int to)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3759 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3760 + if (from == ARG_POINTER_REGNUM && to == STACK_POINTER_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3761 + return !frame_pointer_needed;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3762 + return 1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3763 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3764 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3765 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3766 +int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3767 +m6809_initial_elimination_offset (int from, int to)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3768 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3769 + switch (from)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3770 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3771 + case ARG_POINTER_REGNUM:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3772 + return get_frame_size () + m6809_get_regs_size (m6809_get_live_regs ());
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3773 + case FRAME_POINTER_REGNUM:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3774 + return get_frame_size ();
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3775 + default:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3776 + gcc_unreachable ();
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3777 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3778 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3779 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3780 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3781 +bool
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3782 +m6809_frame_pointer_required (void)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3783 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3784 + return false;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3785 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3786 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3787 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3788 +/* Defines the target-specific hooks structure. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3789 +struct gcc_target targetm = TARGET_INITIALIZER;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3790 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.h gcc-4.6.4/gcc/config/m6809/m6809.h
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3791 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.h 1969-12-31 17:00:00.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3792 +++ gcc-4.6.4/gcc/config/m6809/m6809.h 2015-07-20 21:56:53.518727644 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3793 @@ -0,0 +1,1352 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3794 +/* Definitions of target machine for GNU compiler. MC6809 version.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3795 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3796 + MC6809 Version by Tom Jones (jones@sal.wisc.edu)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3797 + Space Astronomy Laboratory
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3798 + University of Wisconsin at Madison
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3799 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3800 + minor changes to adapt it to gcc-2.5.8 by Matthias Doerfel
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3801 + ( msdoerfe@informatik.uni-erlangen.de )
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3802 + also added #pragma interrupt (inspired by gcc-6811)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3803 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3804 + minor changes to adapt it to gcc-2.8.0 by Eric Botcazou
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3805 + (ebotcazou@multimania.com)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3806 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3807 + minor changes to adapt it to egcs-1.1.2 by Eric Botcazou
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3808 + (ebotcazou@multimania.com)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3809 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3810 + minor changes to adapt it to gcc-2.95.3 by Eric Botcazou
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3811 + (ebotcazou@multimania.com)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3812 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3813 + changes for gcc-3.1.1 by ???
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3814 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3815 + further changes for gcc-3.1.1 and beyond by Brian Dominy
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3816 + (brian@oddchange.com)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3817 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3818 + even more changes for gcc-4.6.1 by William Astle (lost@l-w.ca)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3819 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3820 +This file is part of GCC.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3821 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3822 +GCC is free software; you can redistribute it and/or modify
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3823 +it under the terms of the GNU General Public License as published by
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3824 +the Free Software Foundation; either version 3, or (at your option)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3825 +any later version.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3826 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3827 +GCC is distributed in the hope that it will be useful,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3828 +but WITHOUT ANY WARRANTY; without even the implied warranty of
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3829 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3830 +GNU General Public License for more details.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3831 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3832 +You should have received a copy of the GNU General Public License
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3833 +along with GCC; see the file COPYING3. If not see
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3834 +<http://www.gnu.org/licenses/>. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3835 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3836 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3837 +/* Helper macros for creating strings with macros */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3838 +#define C_STRING(x) C_STR(x)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3839 +#define C_STR(x) #x
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3840 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3841 +/* Certain parts of GCC include host-side includes, which is bad.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3842 + * Some things that get pulled in need to be undone.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3843 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3844 +#undef HAVE_GAS_HIDDEN
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3845 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3846 +/* Names to predefine in the preprocessor for this target machine. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3847 +/#define TARGET_CPU_CPP_BUILTINS() m6809_cpu_cpp_builtins () /
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3848 +#define TARGET_CPU_CPP_BUILTINS() do \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3849 + { \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3850 + if (TARGET_6309) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3851 + { \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3852 + builtin_define_std ("__M6309__"); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3853 + builtin_define_std ("__m6309__"); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3854 + } \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3855 + else \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3856 + { \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3857 + builtin_define_std ("__M6809__"); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3858 + builtin_define_std ("__m6809__"); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3859 + } \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3860 + \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3861 + if (TARGET_BYTE_INT) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3862 + builtin_define_std ("__int8__"); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3863 + else \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3864 + builtin_define_std ("__int16__"); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3865 + \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3866 + switch (m6809_abi_version) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3867 + { \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3868 + case M6809_ABI_VERSION_STACK: \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3869 + builtin_define_std ("__regargs__"); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3870 + builtin_define_std ("__ABI_STACK__"); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3871 + break; \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3872 + case M6809_ABI_VERSION_REGS: \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3873 + builtin_define_std ("__ABI_REGS__"); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3874 + break; \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3875 + case M6809_ABI_VERSION_BX: \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3876 + builtin_define_std ("__ABI_BX__"); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3877 + break; \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3878 + default: \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3879 + break; \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3880 + } \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3881 + \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3882 + if (TARGET_WPC) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3883 + builtin_define_std ("__WPC__"); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3884 + \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3885 + if (TARGET_DRET) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3886 + builtin_define_std ("__DRET__"); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3887 + } while (0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3888 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3889 +/* As an embedded target, we have no libc. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3890 +#ifndef inhibit_libc
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3891 +#define inhibit_libc
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3892 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3893 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3894 +/* Print subsidiary information on the compiler version in use. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3895 +#define TARGET_VERSION fprintf (stderr, " (MC6809)");
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3896 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3897 +/* Run-time compilation parameters selecting different hardware subsets. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3898 +/extern int target_flags; /
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3899 +extern short reg_renumber; / def in local_alloc.c */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3900 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3901 +/* Runtime current values of section names */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3902 +extern int section_changed;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3903 +extern char code_section_op[], data_section_op[], bss_section_op[];
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3904 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3905 +#define WARNING_OPT 0,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3906 +/extern const char m6809_abi_version_ptr; */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3907 +extern unsigned int m6809_soft_regs;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3908 +extern unsigned int m6809_abi_version;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3909 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3910 +/* ABI versions */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3911 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3912 +#define M6809_ABI_VERSION_STACK 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3913 +#define M6809_ABI_VERSION_REGS 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3914 +#define M6809_ABI_VERSION_BX 2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3915 +#define M6809_ABI_VERSION_LATEST (M6809_ABI_VERSION_BX)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3916 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3917 +/* Allow $ in identifiers */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3918 +#define DOLLARS_IN_IDENTIFIERS 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3919 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3920 +/*--------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3921 + Target machine storage layout
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3922 +--------------------------------------------------------------*/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3923 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3924 +/* Define this if most significant bit is lowest numbered
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3925 + in instructions that operate on numbered bit-fields. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3926 +#define BITS_BIG_ENDIAN 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3927 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3928 +/* Define to 1 if most significant byte of a word is the lowest numbered. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3929 +#define BYTES_BIG_ENDIAN 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3930 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3931 +/* Define to 1 if most significant word of a multiword value is the lowest numbered. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3932 +#define WORDS_BIG_ENDIAN 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3933 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3934 +/* Number of bits in an addressible storage unit */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3935 +#define BITS_PER_UNIT 8
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3936 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3937 +/* Width in bits of a "word", or the contents of a machine register.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3938 + * Although the 6809 has a few byte registers, define this to 16-bits
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3939 + * since this is the natural size of most registers. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3940 +#define BITS_PER_WORD 16
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3941 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3942 +/* Width of a word, in units (bytes). */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3943 +#define UNITS_PER_WORD (BITS_PER_WORD/8)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3944 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3945 +/* Width in bits of a pointer. See also the macro `Pmode' defined below. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3946 +#define POINTER_SIZE 16
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3947 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3948 +/* Allocation boundary (bits) for storing pointers in memory. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3949 +#define POINTER_BOUNDARY 8
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3950 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3951 +/* Allocation boundary (bits) for storing arguments in argument list. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3952 +/* PARM_BOUNDARY is divided by BITS_PER_WORD in expr.c -- tej */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3953 +#define PARM_BOUNDARY 8
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3954 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3955 +/* Boundary (bits) on which stack pointer should be aligned. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3956 +#define STACK_BOUNDARY 8
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3957 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3958 +/* Allocation boundary (bits) for the code of a function. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3959 +#define FUNCTION_BOUNDARY 8
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3960 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3961 +/* Alignment of field after `int : 0' in a structure. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3962 +#define EMPTY_FIELD_BOUNDARY 8
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3963 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3964 +/* Every structure's size must be a multiple of this. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3965 +#define STRUCTURE_SIZE_BOUNDARY 8
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3966 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3967 +/* Largest mode size to use when putting an object, including
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3968 + * a structure, into a register. By limiting this to 16, no
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3969 + * 32-bit objects will ever be allocated to a pair of hard
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3970 + * registers. This is a good thing, since there aren't that
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3971 + * many of them. 32-bit objects are only needed for floats
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3972 + * and "long long"s. Larger values have been tried and did not
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3973 + * work. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3974 +#define MAX_FIXED_MODE_SIZE 16
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3975 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3976 +/* No data type wants to be aligned rounder than this. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3977 +#define BIGGEST_ALIGNMENT 8
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3978 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3979 +/* Define this if move instructions will actually fail to work
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3980 + when given unaligned data. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3981 +#define STRICT_ALIGNMENT 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3982 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3983 +/*--------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3984 + Standard register usage.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3985 +--------------------------------------------------------------*/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3986 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3987 +/* Register values as bitmasks.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3988 + * TODO : merge D_REGBIT and B_REGBIT, and treat this as the same
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3989 + * register. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3990 +#define RSVD1_REGBIT (1 << HARD_RSVD1_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3991 +#define D_REGBIT (1 << HARD_D_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3992 +#define X_REGBIT (1 << HARD_X_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3993 +#define Y_REGBIT (1 << HARD_Y_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3994 +#define U_REGBIT (1 << HARD_U_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3995 +#define S_REGBIT (1 << HARD_S_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3996 +#define PC_REGBIT (1 << HARD_PC_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3997 +#define Z_REGBIT (1 << HARD_Z_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3998 +#define A_REGBIT (1 << HARD_A_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	3999 +#define B_REGBIT (1 << HARD_B_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4000 +#define CC_REGBIT (1 << HARD_CC_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4001 +#define DP_REGBIT (1 << HARD_DP_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4002 +#define SOFT_FP_REGBIT (1 << SOFT_FP_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4003 +#define SOFT_AP_REGBIT (1 << SOFT_AP_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4004 +#define M_REGBIT(n) (1 << (SOFT_M0_REGNUM + n))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4005 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4006 +/* Macros for dealing with set of registers.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4007 + * A register set is just a bitwise-OR of all the register
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4008 + * bitmask values. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4009 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4010 +/* Which registers can hold 8-bits */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4011 +#define BYTE_REGSET \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4012 + (Z_REGBIT \| A_REGBIT \| D_REGBIT \| CC_REGBIT \| DP_REGBIT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4013 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4014 +/* Which registers can hold 16-bits.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4015 + * Note: D_REGBIT is defined as both an 8-bit and 16-bit register */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4016 +#define WORD_REGSET \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4017 + (D_REGBIT \| X_REGBIT \| Y_REGBIT \| U_REGBIT \| S_REGBIT \| PC_REGBIT \| SOFT_FP_REGBIT \| SOFT_AP_REGBIT \| RSVD1_REGBIT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4018 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4019 +/* Returns nonzero if a given REGNO is in the REGSET. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4020 +#define REGSET_CONTAINS_P(regno, regset) (((1 << (regno)) & (regset)) != 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4021 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4022 +/* Defines related to the number of soft registers supported.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4023 + * The actual number used may be less depending on -msoft-reg-count.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4024 + * If you change one of these, you should change them all. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4025 +#define NUM_M_REGS 8
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4026 +#define M_REGS_FIXED 1, 1, 1, 1, 1, 1, 1, 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4027 +#define M_REGS_CALL_USED 1, 1, 1, 1, 1, 1, 1, 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4028 +#define HARD_M_REGNUMS \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4029 + SOFT_M0_REGNUM+0, SOFT_M0_REGNUM+1, SOFT_M0_REGNUM+2, SOFT_M0_REGNUM+3, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4030 + SOFT_M0_REGNUM+4, SOFT_M0_REGNUM+5, SOFT_M0_REGNUM+6, SOFT_M0_REGNUM+7
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4031 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4032 +#define SOFT_M_REGBITS (((1UL << NUM_M_REGS) - 1) << (SOFT_M0_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4033 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4034 +/* Number of actual hardware registers.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4035 + The hardware registers are assigned numbers for the compiler
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4036 + from 0 to just below FIRST_PSEUDO_REGISTER.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4037 + All registers that the compiler knows about must be given numbers,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4038 + even those that are not normally considered general registers.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4039 + Make sure the constant below matches the value of SOFT_M0_REGNUM;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4040 + for some reason, GCC won't compile if that name is used here directly. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4041 +#ifdef SOFT_M0_REGNUM
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4042 +#if (SOFT_M0_REGNUM != 14)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4043 +#error "bad register numbering"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4044 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4045 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4046 +#define FIRST_PSEUDO_REGISTER (14 + NUM_M_REGS)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4047 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4048 +/* 1 for registers that have pervasive standard uses
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4049 + and are not available for the register allocator.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4050 + The psuedoregisters (M_REGS) are declared fixed here, but
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4051 + will be unfixed if -msoft-reg-count is seen later. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4052 +#define FIXED_REGISTERS \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4053 + {1, 0, 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, M_REGS_FIXED, }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4054 + /* -, X, Y, U, S, PC,D, Z, A, B, C, DP,FP,AP,M... */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4055 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4056 +/* 1 for registers not available across function calls.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4057 + These must include the FIXED_REGISTERS and also any
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4058 + registers that can be used without being saved.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4059 + The latter must include the registers where values are returned
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4060 + and the register where structure-value addresses are passed.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4061 + Aside from that, you can include as many other registers as you like. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4062 +#define CALL_USED_REGISTERS \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4063 + {1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, M_REGS_CALL_USED, }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4064 + /* -, X, Y, U, S, PC,D, Z, A, B, C, DP,FP,AP,M... */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4065 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4066 +/* Return number of consecutive hard regs needed starting at reg REGNO
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4067 + to hold something of mode MODE.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4068 + For the 6809, we distinguish between word-length and byte-length
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4069 + registers. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4070 +#define HARD_REGNO_NREGS(REGNO, MODE) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4071 + (REGSET_CONTAINS_P (REGNO, WORD_REGSET) ? \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4072 + ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD) : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4073 + (GET_MODE_SIZE (MODE)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4074 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4075 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4076 +/* Value is 1 if hard register REGNO can hold a value
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4077 +of machine-mode MODE. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4078 +#define HARD_REGNO_MODE_OK(REGNO, MODE) m6809_hard_regno_mode_ok (REGNO, MODE)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4079 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4080 +/* Value is 1 if it is a good idea to tie two pseudo registers
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4081 + when one has mode MODE1 and one has mode MODE2.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4082 + If HARD_REGNO_MODE_OK could produce different values for MODE1 and MODE2,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4083 + for any hard reg, then this must be 0 for correct output. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4084 +#define MODES_TIEABLE_P(MODE1, MODE2) 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4085 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4086 +/* Specify the registers used for certain standard purposes.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4087 + The values of these macros are register numbers. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4088 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4089 +/* program counter if referenced as a register */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4090 +#define PC_REGNUM HARD_PC_REGNUM
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4091 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4092 +/* Register to use for pushing function arguments. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4093 +#define STACK_POINTER_REGNUM HARD_S_REGNUM
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4094 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4095 +/* Base register for access to local variables of the function.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4096 + * Before reload, FRAME_POINTER_REGNUM will be used. Later,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4097 + * the elimination pass will convert these to STACK_POINTER_REGNUM
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4098 + * if possible, or else HARD_FRAME_POINTER_REGNUM. The idea is to
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4099 + * avoid tying up a hard register (U) for the frame pointer if
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4100 + * it can be eliminated entirely, making it available for use as
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4101 + * a general register. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4102 +#define FRAME_POINTER_REGNUM SOFT_FP_REGNUM
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4103 +#define HARD_FRAME_POINTER_REGNUM HARD_U_REGNUM
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4104 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4105 +/* Define a table of possible eliminations.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4106 + * The idea is to try to avoid using hard registers for the argument
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4107 + * and frame pointers if they can be derived from the stack pointer
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4108 + * instead, which already has a hard register reserved for it.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4109 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4110 + * The order of entries in this table will try to convert
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4111 + * ARG_POINTER_REGNUM and FRAME_POINTER_REGNUM into stack pointer
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4112 + * references first, but if that fails, they will be converted to use
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4113 + * HARD_FRAME_POINTER_REGNUM.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4114 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4115 +#define ELIMINABLE_REGS \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4116 +{{ ARG_POINTER_REGNUM, STACK_POINTER_REGNUM }, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4117 + { ARG_POINTER_REGNUM, HARD_FRAME_POINTER_REGNUM }, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4118 + { FRAME_POINTER_REGNUM, STACK_POINTER_REGNUM }, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4119 + { FRAME_POINTER_REGNUM, HARD_FRAME_POINTER_REGNUM }}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4120 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4121 +/* #define CAN_ELIMINATE(FROM, TO) m6809_can_eliminate (FROM, TO) */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4122 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4123 +/* Define how to offset the frame or argument pointer to turn it
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4124 + * into a stack pointer reference. This is based on the way that
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4125 + * the frame is constructed in the function prologue. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4126 +#define INITIAL_ELIMINATION_OFFSET(FROM, TO, OFFSET) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4127 + (OFFSET) = m6809_initial_elimination_offset (FROM, TO)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4128 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4129 +/* Base register for access to arguments of the function.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4130 + * This is only used prior to reload; no instructions will ever
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4131 + * be output referring to this register. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4132 +#define ARG_POINTER_REGNUM SOFT_AP_REGNUM
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4133 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4134 +/* Register in which static-chain is passed to a function. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4135 +#define STATIC_CHAIN_REGNUM HARD_Y_REGNUM
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4136 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4137 +/* #define CONDITIONAL_REGISTER_USAGE (m6809_conditional_register_usage ()) */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4138 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4139 +/* Order in which hard registers are allocated to pseudos.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4140 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4141 + * Since the D register is the only valid reg for 8-bit values
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4142 + * now, avoid using it for 16-bit values by putting it after all
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4143 + * other 16-bits.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4144 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4145 + * Prefer X first since the first 16-bit function argument goes
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4146 + * there. We may be able to pass in to a subroutine without
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4147 + * a copy.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4148 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4149 + * Prefer U over Y since instructions using Y take one extra
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4150 + * byte, and thus one extra cycle to execute.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4151 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4152 +#define REG_ALLOC_ORDER \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4153 + { HARD_X_REGNUM, HARD_U_REGNUM, HARD_Y_REGNUM, HARD_D_REGNUM, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4154 + HARD_M_REGNUMS, HARD_S_REGNUM, HARD_PC_REGNUM, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4155 + HARD_B_REGNUM, HARD_A_REGNUM, HARD_CC_REGNUM, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4156 + HARD_DP_REGNUM, SOFT_FP_REGNUM, SOFT_AP_REGNUM, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4157 + 6, HARD_Z_REGNUM }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4158 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4159 +/*--------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4160 + classes of registers
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4161 +--------------------------------------------------------------*/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4162 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4163 +/* Define the classes of registers for register constraints in the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4164 + machine description. Also define ranges of constants.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4165 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4166 + One of the classes must always be named ALL_REGS and include all hard regs.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4167 + If there is more than one class, another class must be named NO_REGS
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4168 + and contain no registers.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4169 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4170 + The name GENERAL_REGS must be the name of a class (or an alias for
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4171 + another name such as ALL_REGS). This is the class of registers
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4172 + that is allowed by "g" or "r" in a register constraint.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4173 + Also, registers outside this class are allocated only when
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4174 + instructions express preferences for them.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4175 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4176 + The classes must be numbered in nondecreasing order; that is,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4177 + a larger-numbered class must never be contained completely
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4178 + in a smaller-numbered class.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4179 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4180 + For any two classes, it is very desirable that there be another
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4181 + class that represents their union. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4182 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4183 +enum reg_class {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4184 + NO_REGS, /* The trivial class with no registers in it */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4185 + D_REGS, /* 16-bit (word (HI)) data (D) */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4186 + ACC_A_REGS, /* The A register */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4187 + ACC_B_REGS, /* The B register */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4188 + X_REGS, /* The X register */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4189 + Z_REGS, /* The Z (zero-bit) register */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4190 + Q_REGS, /* 8-bit (byte (QI)) data (A,B) */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4191 + M_REGS, /* 8-bit (byte (QI)) soft registers */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4192 + CC_REGS, /* 8-bit condition code register */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4193 + I_REGS, /* An index register (A,B,D) */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4194 + T_REGS, /* 16-bit addresses, not including stack or PC (X,Y,U) */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4195 + A_REGS, /* 16-bit addresses (X,Y,U,S,PC) */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4196 + S_REGS, /* 16-bit soft registers (FP, AP) */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4197 + P_REGS, /* 16-bit pushable registers (D,X,Y,U); omit PC and S */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4198 + G_REGS, /* 16-bit data and address (D,X,Y,U,S,PC) */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4199 + ALL_REGS, /* All registers */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4200 + LIM_REG_CLASSES
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4201 +};
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4202 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4203 +#define N_REG_CLASSES (int) LIM_REG_CLASSES
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4204 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4205 +/* Since GENERAL_REGS is a smaller class than ALL_REGS,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4206 + it is not an alias to ALL_REGS, but to G_REGS. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4207 +#define GENERAL_REGS G_REGS
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4208 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4209 +/* Give names of register classes as strings for dump file. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4210 +#define REG_CLASS_NAMES \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4211 + { "NO_REGS", "D_REGS", "ACC_A_REGS", "ACC_B_REGS", "X_REGS", "Z_REGS", "Q_REGS", "M_REGS", \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4212 + "CC_REGS", "I_REGS", "T_REGS", "A_REGS", "S_REGS", "P_REGS", "G_REGS", \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4213 + "ALL_REGS" }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4214 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4215 +/* Define which registers fit in which classes.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4216 + This is an initializer for a vector of HARD_REG_SET
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4217 + of length N_REG_CLASSES. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4218 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4219 +#define D_REGSET (D_REGBIT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4220 +#define ACC_A_REGSET (A_REGBIT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4221 +#define ACC_B_REGSET (D_REGBIT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4222 +#define X_REGSET (X_REGBIT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4223 +#define Z_REGSET (Z_REGBIT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4224 +#define Q_REGSET (D_REGBIT \| A_REGBIT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4225 +#define M_REGSET (SOFT_M_REGBITS)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4226 +#define CC_REGSET (CC_REGBIT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4227 +#define I_REGSET (A_REGBIT \| B_REGBIT \| D_REGBIT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4228 +#define T_REGSET (X_REGBIT \| Y_REGBIT \| U_REGBIT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4229 +#define A_REGSET (X_REGBIT \| Y_REGBIT \| U_REGBIT \| S_REGBIT \| PC_REGBIT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4230 +#define S_REGSET (SOFT_FP_REGBIT \| SOFT_AP_REGBIT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4231 +#define P_REGSET (D_REGBIT \| X_REGBIT \| Y_REGBIT \| U_REGBIT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4232 +#define G_REGSET \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4233 + (D_REGSET \| Q_REGSET \| I_REGSET \| A_REGSET \| M_REGSET \| S_REGSET)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4234 +#define ALL_REGSET (G_REGSET)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4235 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4236 +#define REG_CLASS_CONTENTS { \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4237 + {0}, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4238 + {D_REGSET}, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4239 + {ACC_A_REGSET}, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4240 + {ACC_B_REGSET}, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4241 + {X_REGSET}, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4242 + {Z_REGSET}, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4243 + {Q_REGSET}, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4244 + {M_REGSET}, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4245 + {CC_REGSET}, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4246 + {I_REGSET}, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4247 + {T_REGSET}, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4248 + {A_REGSET}, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4249 + {S_REGSET}, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4250 + {P_REGSET}, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4251 + {G_REGSET}, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4252 + {ALL_REGSET}, \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4253 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4254 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4255 +/* The same information, inverted.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4256 + * This is defined to use the REG_CLASS_CONTENTS defines above, so that
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4257 + * these two sets of definitions are always consistent. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4258 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4259 +#define REGNO_REG_CLASS(REGNO) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4260 + (D_REGNO_P (REGNO) ? D_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4261 + (Z_REGNO_P (REGNO) ? Z_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4262 + (ACC_A_REGNO_P (REGNO) ? ACC_A_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4263 + (ACC_B_REGNO_P (REGNO) ? ACC_B_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4264 + (X_REGNO_P (REGNO) ? X_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4265 + (Q_REGNO_P (REGNO) ? Q_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4266 + (M_REGNO_P (REGNO) ? M_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4267 + (CC_REGNO_P (REGNO) ? CC_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4268 + (I_REGNO_P (REGNO) ? I_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4269 + (T_REGNO_P (REGNO) ? T_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4270 + (A_REGNO_P (REGNO) ? A_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4271 + (S_REGNO_P (REGNO) ? S_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4272 + (P_REGNO_P (REGNO) ? P_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4273 + (G_REGNO_P (REGNO) ? G_REGS : ALL_REGS))))))))))))))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4274 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4275 +#define D_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, D_REGSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4276 +#define ACC_A_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, ACC_A_REGSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4277 +#define ACC_B_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, ACC_B_REGSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4278 +#define X_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, X_REGSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4279 +#define Z_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, Z_REGSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4280 +#define Q_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, Q_REGSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4281 +#define M_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, M_REGSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4282 +#define CC_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, CC_REGSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4283 +#define I_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, I_REGSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4284 +#define T_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, T_REGSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4285 +#define A_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, A_REGSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4286 +#define S_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, S_REGSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4287 +#define P_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, P_REGSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4288 +#define G_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, G_REGSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4289 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4290 +/* Macros that test an rtx 'X' to see if it's in a particular
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4291 + * register class. 'X' need not be a REG necessarily. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4292 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4293 +#define D_REG_P(X) (REG_P (X) && D_REGNO_P (REGNO (X)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4294 +#define ACC_A_REG_P(X) (REG_P (X) && ACC_A_REGNO_P (REGNO (X)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4295 +#define ACC_B_REG_P(X) (REG_P (X) && ACC_B_REGNO_P (REGNO (X)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4296 +#define X_REG_P(X) (REG_P (X) && X_REGNO_P (REGNO (X)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4297 +#define Z_REG_P(X) (REG_P (X) && Z_REGNO_P (REGNO (X)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4298 +#define I_REG_P(X) (REG_P (X) && I_REGNO_P (REGNO (X)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4299 +#define T_REG_P(X) (REG_P (X) && T_REGNO_P (REGNO (X)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4300 +#define A_REG_P(X) (REG_P (X) && A_REGNO_P (REGNO (X)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4301 +#define S_REG_P(X) (REG_P (X) && S_REGNO_P (REGNO (X)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4302 +#define P_REG_P(X) (REG_P (X) && P_REGNO_P (REGNO (X)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4303 +#define Q_REG_P(X) (REG_P (X) && Q_REGNO_P (REGNO (X)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4304 +#define M_REG_P(X) (REG_P (X) && M_REGNO_P (REGNO (X)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4305 +#define CC_REG_P(X) (REG_P (X) && CC_REGNO_P (REGNO (X)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4306 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4307 +/* Redefine this in terms of BYTE_REGSET */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4308 +#define BYTE_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, BYTE_REGSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4309 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4310 +/* The class value for index registers, and the one for base regs. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4311 +#define INDEX_REG_CLASS I_REGS
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4312 +#define BASE_REG_CLASS A_REGS
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4313 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4314 +/* Get reg_class from a letter in the machine description. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4315 +#define REG_CLASS_FROM_LETTER(C) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4316 + (((C) == 'a' ? A_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4317 + ((C) == 'd' ? D_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4318 + ((C) == 'x' ? I_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4319 + ((C) == 't' ? M_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4320 + ((C) == 'c' ? CC_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4321 + ((C) == 'A' ? ACC_A_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4322 + ((C) == 'B' ? ACC_B_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4323 + ((C) == 'v' ? X_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4324 + ((C) == 'u' ? S_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4325 + ((C) == 'U' ? P_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4326 + ((C) == 'T' ? T_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4327 + ((C) == 'z' ? Z_REGS : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4328 + ((C) == 'q' ? Q_REGS : NO_REGS))))))))))))))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4329 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4330 +/*--------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4331 + The letters I through O in a register constraint string
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4332 + can be used to stand for particular ranges of immediate operands.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4333 + This macro defines what the ranges are.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4334 + C is the letter, and VALUE is a constant value.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4335 + Return 1 if VALUE is in the range specified by C.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4336 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4337 + For the 6809, J, K, L are used for indexed addressing.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4338 + `I' is used for the constant 1.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4339 + `J' is used for the 5-bit offsets.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4340 + `K' is used for the 8-bit offsets.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4341 + `L' is used for the range of signed numbers that fit in 16 bits.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4342 + `M' is used for the exact value '8'.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4343 + `N' is used for the constant -1.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4344 + `O' is used for the constant 0.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4345 +--------------------------------------------------------------*/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4346 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4347 +#define CONST_OK_FOR_LETTER_P(VALUE, C) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4348 + ((C) == 'I' ? ((VALUE) == 1) : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4349 + (C) == 'J' ? ((VALUE) >= -16 && (VALUE) <= 15) : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4350 + (C) == 'K' ? ((VALUE) >= -128 && (VALUE) <= 127) : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4351 + (C) == 'L' ? ((VALUE) >= -32768 && (VALUE) <= 32767) : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4352 + (C) == 'M' ? ((VALUE) == 8) : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4353 + (C) == 'N' ? ((VALUE) == -1) : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4354 + (C) == 'O' ? ((VALUE) == 0) : 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4355 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4356 +/* Similar, but for floating constants, and defining letters G and H.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4357 + No floating-point constants are valid on MC6809. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4358 +#define CONST_DOUBLE_OK_FOR_LETTER_P(VALUE, C) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4359 + ((C) == 'G' ? (GET_MODE_CLASS (GET_MODE (VALUE)) == MODE_FLOAT \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4360 + && VALUE == CONST0_RTX (GET_MODE (VALUE))) : 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4361 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4362 +/* Given an rtx X being reloaded into a reg required to be
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4363 + in class CLASS, return the class of reg to actually use.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4364 + In general this is just CLASS; but on some machines
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4365 + in some cases it is preferable to use a more restrictive class. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4366 +#define PREFERRED_RELOAD_CLASS(X,CLASS) m6809_preferred_reload_class(X,CLASS)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4367 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4368 +#define SMALL_REGISTER_CLASSES 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4369 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4370 +/* Return the maximum number of consecutive registers
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4371 + needed to represent mode MODE in a register of class CLASS. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4372 +#define CLASS_MAX_NREGS(CLASS, MODE) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4373 + ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4374 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4375 +/*--------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4376 + Stack layout; function entry, exit and calling.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4377 +--------------------------------------------------------------*/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4378 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4379 +/* Define this if pushing a word on the stack
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4380 + makes the stack pointer a smaller address. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4381 +#define STACK_GROWS_DOWNWARD
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4382 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4383 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4384 +/* Define this if the nominal address of the stack frame
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4385 + is at the high-address end of the local variables;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4386 + that is, each additional local variable allocated
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4387 + goes at a more negative offset in the frame. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4388 +#define FRAME_GROWS_DOWNWARD 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4389 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4390 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4391 +/* Offset within stack frame to start allocating local variables at.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4392 + If FRAME_GROWS_DOWNWARD, this is the offset to the END of the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4393 + first local allocated. Otherwise, it is the offset to the BEGINNING
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4394 + of the first local allocated. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4395 +#define STARTING_FRAME_OFFSET 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4396 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4397 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4398 +/* Always push stack arguments for now. Accumulation is not yet working. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4399 +#define PUSH_ROUNDING(BYTES) (BYTES)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4400 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4401 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4402 +/* Offset of first parameter from the argument pointer register value.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4403 + * ARG_POINTER_REGNUM is defined to point to the return address pushed
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4404 + * onto the stack, so we must offset by 2 bytes to get to the arguments. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4405 +#define FIRST_PARM_OFFSET(FNDECL) 2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4406 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4407 +/* Value is 1 if returning from a function call automatically
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4408 + pops the arguments described by the number-of-args field in the call.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4409 + FUNTYPE is the data type of the function (as a tree),
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4410 + or for a library call it is an identifier node for the subroutine name. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4411 +/* #define RETURN_POPS_ARGS(FUNDECL,FUNTYPE,SIZE) 0 */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4412 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4413 +/* Define how to find the value returned by a function.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4414 + VALTYPE is the data type of the value (as a tree).
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4415 + If the precise function being called is known, FUNC is its FUNCTION_DECL;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4416 + otherwise, FUNC is 0. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4417 +#define FUNCTION_VALUE(VALTYPE, FUNC) m6809_function_value (VALTYPE, FUNC)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4418 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4419 +/* Define how to find the value returned by a library function
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4420 + assuming the value has mode MODE. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4421 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4422 +/* All return values are in the X-register. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4423 +#define LIBCALL_VALUE(MODE) gen_rtx_REG (MODE, HARD_X_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4424 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4425 +/* Define this if using the nonreentrant convention for returning
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4426 + structure and union values. No; it is inefficient and buggy. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4427 +#undef PCC_STATIC_STRUCT_RETURN
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4428 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4429 +/* 1 if N is a possible register number for a function value. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4430 +#define FUNCTION_VALUE_REGNO_P(N) m6809_function_value_regno_p (N)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4431 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4432 +/* Define this to be true when FUNCTION_VALUE_REGNO_P is true for
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4433 + more than one register. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4434 +#define NEEDS_UNTYPED_CALL 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4435 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4436 +/* 1 if N is a possible register number for function argument passing. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4437 +#define FUNCTION_ARG_REGNO_P(N) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4438 + ((m6809_abi_version != M6809_ABI_VERSION_STACK) ? \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4439 + (((N) == HARD_D_REGNUM) \|\| ((N) == HARD_X_REGNUM)) : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4440 + 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4441 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4442 +/*--------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4443 + Argument Lists
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4444 +--------------------------------------------------------------*/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4445 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4446 +/* Cumulative arguments are tracked in a single integer,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4447 + * which is the number of bytes of arguments scanned so far,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4448 + * plus which registers have already been used. The register
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4449 + * info is kept in some of the upper bits */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4450 +#define CUMULATIVE_ARGS unsigned int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4451 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4452 +#define CUM_STACK_ONLY 0x80000000
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4453 +#define CUM_X_MASK 0x40000000
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4454 +#define CUM_B_MASK 0x20000000
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4455 +#define CUM_STACK_INVALID 0x10000000
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4456 +#define CUM_STACK_MASK 0xFFFFFFF
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4457 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4458 +#define CUM_ADVANCE_8BIT(cum) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4459 + (((cum) & CUM_B_MASK) ? (cum)++ : ((cum) \|= CUM_B_MASK))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4460 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4461 +#define CUM_ADVANCE_16BIT(cum) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4462 + (((cum) & CUM_X_MASK) ? (cum) += 2 : ((cum) \|= CUM_X_MASK))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4463 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4464 +/* Initialize a variable CUM of type CUMULATIVE_ARGS
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4465 + for a call to a function whose data type is FNTYPE.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4466 + For a library call, FNTYPE is 0.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4467 + N_NAMED was added in gcc 3.4 and is not used currently. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4468 +#define INIT_CUMULATIVE_ARGS(CUM,FNTYPE,LIBNAME,INDIRECT,N_NAMED) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4469 + ((CUM) = m6809_init_cumulative_args (CUM, FNTYPE, LIBNAME))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4470 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4471 +#define FUNCTION_ARG_SIZE(MODE, TYPE) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4472 + ((MODE) != BLKmode ? GET_MODE_SIZE (MODE) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4473 + : (unsigned) int_size_in_bytes (TYPE))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4474 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4475 +/* Update the data in CUM to advance over an argument
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4476 + of mode MODE and data type TYPE.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4477 + (TYPE is null for libcalls where that information may not be available.) */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4478 +#define FUNCTION_ARG_ADVANCE(CUM, MODE, TYPE, NAMED) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4479 + (((MODE == QImode) && !((CUM) & CUM_STACK_ONLY)) ? \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4480 + CUM_ADVANCE_8BIT (CUM) : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4481 + ((MODE == HImode) && !((CUM) & CUM_STACK_ONLY)) ? \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4482 + CUM_ADVANCE_16BIT (CUM) : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4483 + ((CUM) = ((CUM) + (TYPE ? int_size_in_bytes (TYPE) : 2))))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4484 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4485 +/* Define where to put the arguments to a function.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4486 + Value is zero to push the argument on the stack,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4487 + or a hard register rtx in which to store the argument.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4488 + This macro is used _before_ FUNCTION_ARG_ADVANCE.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4489 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4490 + For the 6809, the first 8-bit function argument can be placed into B,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4491 + and the first 16-bit arg can go into X. All other arguments
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4492 + will be pushed onto the stack.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4493 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4494 + Command-line options can adjust this behavior somewhat.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4495 + */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4496 +#define FUNCTION_ARG(CUM, MODE, TYPE, NAMED) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4497 + ((MODE == VOIDmode) ? NULL_RTX : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4498 + ((MODE == BLKmode) \|\| (GET_MODE_SIZE (MODE) > 2)) ? NULL_RTX : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4499 + ((MODE == QImode) && !((CUM) & (CUM_STACK_ONLY \| CUM_B_MASK))) ? \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4500 + gen_rtx_REG (QImode, HARD_D_REGNUM) : \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4501 + ((MODE == HImode) && !((CUM) & (CUM_STACK_ONLY \| CUM_X_MASK))) ? \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4502 + gen_rtx_REG (HImode, HARD_X_REGNUM) : m6809_function_arg_on_stack (&CUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4503 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4504 +/* Output assembler code to FILE to increment profiler label # LABELNO
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4505 + for profiling a function entry. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4506 +#define FUNCTION_PROFILER(FILE, LABELNO) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4507 + fprintf (FILE, "\tldd\t#LP%u\n\tjsr\tmcount\n", (LABELNO));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4508 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4509 +/* Stack pointer must be correct on function exit */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4510 +#define EXIT_IGNORE_STACK 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4511 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4512 +/*****************************************************************************
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4513 +**
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4514 +** Trampolines for Nested Functions
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4515 +**
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4516 +*****************************************************************************/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4517 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4518 +/* Length in units of the trampoline for entering a nested function. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4519 +#define TRAMPOLINE_SIZE 7
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4520 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4521 +/*--------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4522 + Addressing modes,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4523 + and classification of registers for them.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4524 +--------------------------------------------------------------*/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4525 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4526 +/* 6809 has postincrement and predecrement addressing modes */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4527 +#define HAVE_POST_INCREMENT 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4528 +#define HAVE_PRE_DECREMENT 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4529 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4530 +/* Whether or not to use index registers is configurable.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4531 + * Experiments show that things work better when this is off, so
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4532 + * that's the way it is for now. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4533 +#undef USE_INDEX_REGISTERS
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4534 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4535 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4536 +/* Macros to check register numbers against specific register classes. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4537 +#define REG_VALID_FOR_BASE_P(REGNO) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4538 + (((REGNO) < FIRST_PSEUDO_REGISTER) && A_REGNO_P (REGNO))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4539 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4540 +/* MC6809 index registers do not allow scaling, */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4541 +/* but there is "accumulator-offset" mode. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4542 +#ifdef USE_INDEX_REGISTERS
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4543 +#define REG_VALID_FOR_INDEX_P(REGNO) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4544 + (((REGNO) < FIRST_PSEUDO_REGISTER) && I_REGNO_P (REGNO))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4545 +#else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4546 +#define REG_VALID_FOR_INDEX_P(REGNO) 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4547 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4548 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4549 +/* Internal macro, the nonstrict definition for REGNO_OK_FOR_BASE_P */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4550 +#define REGNO_OK_FOR_BASE_NONSTRICT_P(REGNO) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4551 + ((REGNO) >= FIRST_PSEUDO_REGISTER \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4552 + \|\| REG_VALID_FOR_BASE_P (REGNO) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4553 + \|\| (REGNO) == FRAME_POINTER_REGNUM \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4554 + \|\| (REGNO) == HARD_FRAME_POINTER_REGNUM \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4555 + \|\| (REGNO) == ARG_POINTER_REGNUM \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4556 + \|\| (reg_renumber && REG_VALID_FOR_BASE_P (reg_renumber[REGNO])))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4557 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4558 +/* Internal macro, the nonstrict definition for REGNO_OK_FOR_INDEX_P */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4559 +#define REGNO_OK_FOR_INDEX_NONSTRICT_P(REGNO) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4560 + ((REGNO) >= FIRST_PSEUDO_REGISTER \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4561 + \|\| REG_VALID_FOR_INDEX_P (REGNO) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4562 + \|\| (reg_renumber && REG_VALID_FOR_INDEX_P (reg_renumber[REGNO])))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4563 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4564 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4565 +/* Internal macro, the strict definition for REGNO_OK_FOR_BASE_P */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4566 +#define REGNO_OK_FOR_BASE_STRICT_P(REGNO) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4567 + ((REGNO) < FIRST_PSEUDO_REGISTER ? REG_VALID_FOR_BASE_P (REGNO) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4568 + : (reg_renumber && REG_VALID_FOR_BASE_P (reg_renumber[REGNO])))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4569 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4570 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4571 +/* Internal macro, the strict definition for REGNO_OK_FOR_INDEX_P */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4572 +#define REGNO_OK_FOR_INDEX_STRICT_P(REGNO) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4573 + ((REGNO) < FIRST_PSEUDO_REGISTER ? REG_VALID_FOR_INDEX_P (REGNO) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4574 + : (reg_renumber && REG_VALID_FOR_INDEX_P (reg_renumber[REGNO])))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4575 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4576 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4577 +#define REGNO_OK_FOR_BASE_P(REGNO) REGNO_OK_FOR_BASE_STRICT_P (REGNO)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4578 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4579 +#define REGNO_OK_FOR_INDEX_P(REGNO) REGNO_OK_FOR_INDEX_STRICT_P (REGNO)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4580 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4581 +#define REG_OK_FOR_BASE_STRICT_P(X) REGNO_OK_FOR_BASE_STRICT_P (REGNO (X))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4582 +#define REG_OK_FOR_BASE_NONSTRICT_P(X) REGNO_OK_FOR_BASE_NONSTRICT_P (REGNO (X))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4583 +#define REG_OK_FOR_INDEX_STRICT_P(X) REGNO_OK_FOR_INDEX_STRICT_P (REGNO (X))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4584 +#define REG_OK_FOR_INDEX_NONSTRICT_P(X) REGNO_OK_FOR_INDEX_NONSTRICT_P (REGNO (X))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4585 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4586 +#ifndef REG_OK_STRICT
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4587 +#define REG_OK_FOR_BASE_P(X) REG_OK_FOR_BASE_NONSTRICT_P(X)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4588 +#ifdef USE_INDEX_REGISTERS
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4589 +#define REG_OK_FOR_INDEX_P(X) REG_OK_FOR_INDEX_NONSTRICT_P(X)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4590 +#else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4591 +#define REG_OK_FOR_INDEX_P(X) 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4592 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4593 +#else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4594 +#define REG_OK_FOR_BASE_P(X) REG_OK_FOR_BASE_STRICT_P (X)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4595 +#ifdef USE_INDEX_REGISTERS
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4596 +#define REG_OK_FOR_INDEX_P(X) REG_OK_FOR_INDEX_STRICT_P (X)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4597 +#else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4598 +#define REG_OK_FOR_INDEX_P(X) 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4599 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4600 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4601 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4602 +/* Maximum number of registers that can appear in a valid memory address */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4603 +#ifdef USE_INDEX_REGISTERS
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4604 +#define MAX_REGS_PER_ADDRESS 2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4605 +#else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4606 +#define MAX_REGS_PER_ADDRESS 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4607 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4608 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4609 +/* 1 if X is an rtx for a constant that is a valid address.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4610 + * We allow any constant, plus the sum of any two constants (this allows
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4611 + * offsetting a symbol ref) */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4612 +#define CONSTANT_ADDRESS_P(X) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4613 + ((CONSTANT_P (X)) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4614 + \|\| ((GET_CODE (X) == PLUS) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4615 + && (CONSTANT_P (XEXP (X, 0))) && (CONSTANT_P (XEXP (X, 1)))))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4616 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4617 +/* Nonzero if the constant value X is a legitimate general operand.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4618 + It is given that X satisfies CONSTANT_P or is a CONST_DOUBLE. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4619 +/* Any single-word constant is ok; the only contexts
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4620 + allowing general_operand of mode DI or DF are movdi and movdf. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4621 +#define LEGITIMATE_CONSTANT_P(X) (GET_CODE (X) != CONST_DOUBLE)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4622 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4623 +/* Nonzero if the X is a legitimate immediate operand in PIC mode. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4624 +#define LEGITIMATE_PIC_OPERAND_P(X) !symbolic_operand (X, VOIDmode)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4625 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4626 +/*--------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4627 + Test for valid memory addresses
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4628 +--------------------------------------------------------------*/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4629 +/* GO_IF_LEGITIMATE_ADDRESS recognizes an RTL expression
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4630 + that is a valid memory address for an instruction.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4631 + The MODE argument is the machine mode for the MEM expression
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4632 + that wants to use this address. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4633 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4634 +/*--------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4635 + Valid addresses are either direct or indirect (MEM) versions
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4636 + of the following forms.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4637 + constant N
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4638 + register ,X
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4639 + constant indexed N,X
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4640 + accumulator indexed D,X
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4641 + auto_increment ,X++
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4642 + auto_decrement ,--X
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4643 +--------------------------------------------------------------*/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4644 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4645 +#define REGISTER_ADDRESS_P(X) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4646 + (REG_P (X) && REG_OK_FOR_BASE_P (X))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4647 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4648 +#define EXTENDED_ADDRESS_P(X) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4649 + CONSTANT_ADDRESS_P (X) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4650 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4651 +#define LEGITIMATE_BASE_P(X) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4652 + ((REG_P (X) && REG_OK_FOR_BASE_P (X)) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4653 + \|\| (GET_CODE (X) == SIGN_EXTEND \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4654 + && GET_CODE (XEXP (X, 0)) == REG \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4655 + && GET_MODE (XEXP (X, 0)) == HImode \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4656 + && REG_OK_FOR_BASE_P (XEXP (X, 0))))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4657 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4658 +#define LEGITIMATE_OFFSET_P(X) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4659 + (CONSTANT_ADDRESS_P (X) \|\| (REG_P (X) && REG_OK_FOR_INDEX_P (X)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4660 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4661 +/* 1 if X is the sum of a base register and an offset. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4662 +#define INDEXED_ADDRESS(X) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4663 + ((GET_CODE (X) == PLUS \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4664 + && LEGITIMATE_BASE_P (XEXP (X, 0)) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4665 + && LEGITIMATE_OFFSET_P (XEXP (X, 1))) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4666 + \|\| (GET_CODE (X) == PLUS \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4667 + && LEGITIMATE_BASE_P (XEXP (X, 1)) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4668 + && LEGITIMATE_OFFSET_P (XEXP (X, 0))))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4669 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4670 +#define STACK_REG_P(X) (REG_P(X) && REGNO(X) == HARD_S_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4671 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4672 +#define STACK_PUSH_P(X) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4673 + (MEM_P (X) && GET_CODE (XEXP (X, 0)) == PRE_DEC && STACK_REG_P (XEXP (XEXP (X, 0), 0)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4674 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4675 +#define STACK_POP_P(X) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4676 + (MEM_P (X) && GET_CODE (XEXP (X, 0)) == POST_INC && STACK_REG_P (XEXP (XEXP (X, 0), 0)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4677 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4678 +#define PUSH_POP_ADDRESS_P(X) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4679 + (((GET_CODE (X) == PRE_DEC) \|\| (GET_CODE (X) == POST_INC)) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4680 + && (LEGITIMATE_BASE_P (XEXP (X, 0))))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4681 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4682 +/* Go to ADDR if X is a valid address. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4683 +#define GO_IF_LEGITIMATE_ADDRESS(MODE, X, ADDR) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4684 +{ \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4685 + if (REGISTER_ADDRESS_P(X)) goto ADDR; \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4686 + if (PUSH_POP_ADDRESS_P (X)) goto ADDR; \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4687 + if (EXTENDED_ADDRESS_P (X)) goto ADDR; \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4688 + if (INDEXED_ADDRESS (X)) goto ADDR; \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4689 + if (MEM_P (X) && REGISTER_ADDRESS_P(XEXP (X, 0))) goto ADDR; \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4690 + if (MEM_P (X) && PUSH_POP_ADDRESS_P (XEXP (X, 0))) goto ADDR; \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4691 + if (MEM_P (X) && EXTENDED_ADDRESS_P (XEXP (X, 0))) goto ADDR; \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4692 + if (MEM_P (X) && INDEXED_ADDRESS (XEXP (X, 0))) goto ADDR; \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4693 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4694 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4695 +/*--------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4696 + Address Fix-up
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4697 +--------------------------------------------------------------*/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4698 +/* Go to LABEL if ADDR (a legitimate address expression)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4699 + has an effect that depends on the machine mode it is used for.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4700 + In the latest GCC, this case is already handled by the core code
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4701 + so no action is required here. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4702 +#define GO_IF_MODE_DEPENDENT_ADDRESS(ADDR,LABEL) {}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4703 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4704 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4705 +/*--------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4706 + Miscellaneous Parameters
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4707 +--------------------------------------------------------------*/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4708 +/* Specify the machine mode that this machine uses
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4709 + for the index in the tablejump instruction. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4710 +#define CASE_VECTOR_MODE Pmode
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4711 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4712 +/* Define this as 1 if `char' should by default be signed; else as 0. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4713 +#define DEFAULT_SIGNED_CHAR 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4714 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4715 +/* This flag, if defined, says the same insns that convert to a signed fixnum
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4716 + also convert validly to an unsigned one. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4717 +#define FIXUNS_TRUNC_LIKE_FIX_TRUNC
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4718 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4719 +/* Max number of bytes we can move from memory to memory/register
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4720 + in one reasonably fast instruction. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4721 +#define MOVE_MAX 2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4722 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4723 +/* Int can be 8 or 16 bits (default is 16) */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4724 +#define INT_TYPE_SIZE (TARGET_BYTE_INT ? 8 : 16)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4725 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4726 +/* Short is always 16 bits */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4727 +#define SHORT_TYPE_SIZE (TARGET_BYTE_INT ? 8 : 16)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4728 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4729 +/* Size (bits) of the type "long" on target machine */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4730 +#define LONG_TYPE_SIZE (TARGET_BYTE_INT ? 16 : 32)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4731 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4732 +/* Size (bits) of the type "long long" on target machine */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4733 +#define LONG_LONG_TYPE_SIZE 32
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4734 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4735 +/* Size (bits) of the type "char" on target machine */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4736 +#define CHAR_TYPE_SIZE 8
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4737 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4738 +/* Size (bits) of the type "float" on target machine */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4739 +#define FLOAT_TYPE_SIZE 32
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4740 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4741 +/* Size (bits) of the type "double" on target machine.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4742 + * Note that the C standard does not require that doubles
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4743 + * hold any more bits than float. Since the 6809 has so few
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4744 + * registers, we cannot really support more than 32-bits. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4745 +#define DOUBLE_TYPE_SIZE 32
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4746 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4747 +/* Size (bits) of the type "long double" on target machine */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4748 +#define LONG_DOUBLE_TYPE_SIZE 32
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4749 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4750 +/* Define the type used for "size_t". With a 64KB address space,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4751 + * only a 16-bit value here makes sense. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4752 +#define SIZE_TYPE (TARGET_BYTE_INT ? "long unsigned int" : "unsigned int")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4753 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4754 +/* Likewise, the difference between two pointers is also a 16-bit
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4755 + * signed value. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4756 +#define PTRDIFF_TYPE (TARGET_BYTE_INT ? "long int" : "int")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4757 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4758 +/* Nonzero if access to memory by bytes is slow and undesirable. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4759 +#define SLOW_BYTE_ACCESS 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4760 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4761 +/* Define if shifts truncate the shift count
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4762 + which implies one can omit a sign-extension or zero-extension
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4763 + of a shift count. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4764 +#define SHIFT_COUNT_TRUNCATED 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4765 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4766 +/* Value is 1 if truncating an integer of INPREC bits to OUTPREC bits
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4767 + is done just by pretending it is already truncated. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4768 +#define TRULY_NOOP_TRUNCATION(OUTPREC, INPREC) 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4769 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4770 +/* It is as good to call a constant function address as to
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4771 + call an address kept in a register. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4772 +#define NO_FUNCTION_CSE
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4773 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4774 +/* Specify the machine mode that pointers have.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4775 + After generation of rtl, the compiler makes no further distinction
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4776 + between pointers and any other objects of this machine mode. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4777 +#define Pmode HImode
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4778 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4779 +/* A function address in a call instruction
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4780 + is a byte address (for indexing purposes)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4781 + so give the MEM rtx a byte's mode. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4782 +#define FUNCTION_MODE HImode
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4783 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4784 +/* Define the cost of moving a value from a register in CLASS1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4785 + * to CLASS2, of a given MODE.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4786 + *
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4787 + * On the 6809, hard register transfers are all basically equivalent.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4788 + * But soft register moves are treated more like memory moves. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4789 +#define REGISTER_MOVE_COST(MODE, CLASS1, CLASS2) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4790 + (((CLASS1 == M_REGS) \|\| (CLASS2 == M_REGS)) ? 4 : 7)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4791 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4792 +/* Define the cost of moving a value between a register and memory. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4793 +#define MEMORY_MOVE_COST(MODE, CLASS, IN) 5
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4794 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4795 +/* Check a `double' value for validity for a particular machine mode. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4796 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4797 +#define CHECK_FLOAT_VALUE(MODE, D, OVERFLOW) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4798 + ((OVERFLOW) = check_float_value (MODE, &D, OVERFLOW))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4799 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4800 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4801 +/*--------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4802 + machine-dependent
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4803 +--------------------------------------------------------------*/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4804 +/* Tell final.c how to eliminate redundant test instructions. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4805 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4806 +/* Here we define machine-dependent flags and fields in cc_status
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4807 + (see `conditions.h'). */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4808 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4809 +/* Store in cc_status the expressions
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4810 + that the condition codes will describe
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4811 + after execution of an instruction whose pattern is EXP.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4812 + Do not alter them if the instruction would not alter the cc's. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4813 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4814 +/* On the 6809, most of the insns to store in an address register
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4815 + fail to set the cc's. However, in some cases these instructions
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4816 + can make it possibly invalid to use the saved cc's. In those
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4817 + cases we clear out some or all of the saved cc's so they won't be used. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4818 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4819 +#define NOTICE_UPDATE_CC(EXP, INSN) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4820 + notice_update_cc((EXP), (INSN))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4821 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4822 +/*****************************************************************************
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4823 +**
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4824 +** pragma support
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4825 +**
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4826 +*****************************************************************************/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4827 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4828 +#if 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4829 +#define REGISTER_TARGET_PRAGMAS() \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4830 +do { \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4831 + extern void pragma_section PARAMS ((cpp_reader *)); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4832 + c_register_pragma (0, "section", pragma_section); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4833 +} while (0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4834 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4835 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4836 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4837 +/*--------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4838 + ASSEMBLER FORMAT
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4839 +--------------------------------------------------------------*/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4840 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4841 +#define FMT_HOST_WIDE_INT "%ld"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4842 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4843 +/* Output to assembler file text saying following lines
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4844 + may contain character constants, extra white space, comments, etc. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4845 +#define ASM_APP_ON ";----- asm -----\n"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4846 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4847 +/* Output to assembler file text saying following lines
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4848 + no longer contain unusual constructs. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4849 +#define ASM_APP_OFF ";--- end asm ---\n"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4850 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4851 +/* Use a semicolon to begin a comment. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4852 +#define ASM_COMMENT_START "; "
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4853 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4854 +/* Output assembly directives to switch to section 'name' */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4855 +#undef TARGET_ASM_NAMED_SECTION
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4856 +#define TARGET_ASM_NAMED_SECTION m6809_asm_named_section
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4857 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4858 +#undef TARGET_HAVE_NAMED_SECTION
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4859 +#define TARGET_HAVE_NAMED_SECTION m6809_have_named_section
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4860 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4861 +/* Output before read-only data. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4862 +#define TEXT_SECTION_ASM_OP (code_section_op)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4863 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4864 +/* Output before writable data. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4865 +#define DATA_SECTION_ASM_OP (data_section_op)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4866 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4867 +/* Output before uninitialized data. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4868 +#define BSS_SECTION_ASM_OP (bss_section_op)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4869 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4870 +/* Support the ctors and dtors sections for g++. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4871 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4872 +#undef CTORS_SECTION_ASM_OP
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4873 +#define CTORS_SECTION_ASM_OP "\t.area .ctors"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4874 +#undef DTORS_SECTION_ASM_OP
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4875 +#define DTORS_SECTION_ASM_OP "\t.area .dtors"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4876 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4877 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4878 +#undef DO_GLOBAL_CTORS_BODY
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4879 +#undef DO_GLOBAL_DTORS_BODY
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4880 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4881 +#define HAS_INIT_SECTION
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4882 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4883 +/* This is how to output an assembler line
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4884 + that says to advance the location counter
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4885 + to a multiple of 2*LOG bytes. /
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4886 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4887 +#define ASM_OUTPUT_ALIGN(FILE,LOG) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4888 + if ((LOG) > 1) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4889 + fprintf (FILE, "\t.bndry %u\n", 1 << (LOG))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4890 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4891 +/* The .set foo,bar construct doesn't work by default */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4892 +#undef SET_ASM_OP
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4893 +#define ASM_OUTPUT_DEF(FILE, LABEL1, LABEL2) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4894 + do \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4895 + { \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4896 + fputc ('\t', FILE); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4897 + assemble_name (FILE, LABEL1); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4898 + fputs (" = ", FILE); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4899 + assemble_name (FILE, LABEL2); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4900 + fputc ('\n', FILE); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4901 + } \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4902 + while (0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4903 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4904 +/* How to refer to registers in assembler output.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4905 + This sequence is indexed by compiler's hard-register-number (see above). */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4906 +#define MNAME(x) [SOFT_M0_REGNUM+(x)] = "*m" C_STRING(x) ,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4907 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4908 +#define REGISTER_NAMES { \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4909 + [HARD_D_REGNUM]= "d", \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4910 + [HARD_X_REGNUM]= "x", \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4911 + [HARD_Y_REGNUM]= "y", \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4912 + [HARD_U_REGNUM]= "u", \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4913 + [HARD_S_REGNUM]= "s", \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4914 + [HARD_PC_REGNUM]= "pc", \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4915 + [HARD_A_REGNUM]= "a", \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4916 + [HARD_B_REGNUM]= "b", \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4917 + [HARD_CC_REGNUM]= "cc",\
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4918 + [HARD_DP_REGNUM]= "dp", \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4919 + [SOFT_FP_REGNUM]= "soft_fp", \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4920 + [SOFT_AP_REGNUM]= "soft_ap", \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4921 + MNAME(0) MNAME(1) MNAME(2) MNAME(3) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4922 + MNAME(4) MNAME(5) MNAME(6) MNAME(7) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4923 + [HARD_RSVD1_REGNUM] = "-", \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4924 + [HARD_Z_REGNUM] = "z" /* bit 2 of CC */ }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4925 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4926 +/*****************************************************************************
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4927 +**
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4928 +** Debug Support
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4929 +**
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4930 +*****************************************************************************/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4931 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4932 +/* Default to DBX-style debugging */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4933 +#define PREFERRED_DEBUGGING_TYPE DBX_DEBUG
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4934 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4935 +#define DBX_DEBUGGING_INFO
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4936 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4937 +#define DEFAULT_GDB_EXTENSIONS 0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4938 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4939 +#define ASM_STABS_OP ";\t.stabs\t"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4940 +#define ASM_STABD_OP ";\t.stabd\t"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4941 +#define ASM_STABN_OP ";\t.stabn\t"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4942 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4943 +#define DBX_CONTIN_LENGTH 54
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4944 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4945 +#define DBX_OUTPUT_MAIN_SOURCE_FILENAME(ASMFILE, FILENAME) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4946 +do { \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4947 + const char *p = FILENAME; \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4948 + while ((p = strchr (p, '/')) != NULL) { \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4949 + p = FILENAME = p+1; \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4950 + } \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4951 + fprintf (ASMFILE, "%s", ASM_STABS_OP); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4952 + output_quoted_string (ASMFILE, FILENAME); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4953 + fprintf (ASMFILE, ",%d,0,0,", N_SO); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4954 + assemble_name (ASMFILE, ltext_label_name); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4955 + fputc ('\n', ASMFILE); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4956 + switch_to_section (text_section); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4957 + (*targetm.asm_out.internal_label) (ASMFILE, "Ltext", 0); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4958 +} while (0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4959 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4960 +/* With -g, GCC sometimes outputs string literals that are longer than
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4961 + * the assembler can handle. Without actual debug support, these are
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4962 + * not really required. Redefine the function to output strings to
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4963 + * output as much as possible. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4964 +#define OUTPUT_QUOTED_STRING(FILE, STR) m6809_output_quoted_string (FILE, STR)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4965 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4966 +/*****************************************************************************
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4967 +**
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4968 +** Output and Generation of Labels
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4969 +**
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4970 +*****************************************************************************/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4971 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4972 +/* Prefixes for various assembly-time objects */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4973 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4974 +#define REGISTER_PREFIX ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4975 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4976 +#define LOCAL_LABEL_PREFIX ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4977 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4978 +#define USER_LABEL_PREFIX "_"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4979 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4980 +#define IMMEDIATE_PREFIX "#"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4981 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4982 +/* This is how to output the definition of a user-level label named NAME,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4983 + such as the label on a static function or variable NAME. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4984 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4985 +#define ASM_OUTPUT_LABEL(FILE,NAME) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4986 +do { \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4987 + if (section_changed) { \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4988 + fprintf (FILE, "\n%s\n\n", code_section_op); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4989 + section_changed = 0; \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4990 + } \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4991 + assemble_name (FILE, NAME); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4992 + fputs (":\n", FILE); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4993 +} while (0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4994 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4995 +/* This is how to output the label for a function definition. It
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4996 + invokes ASM_OUTPUT_LABEL, but may examine the DECL tree node for
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4997 + other properties. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4998 +#define ASM_DECLARE_FUNCTION_NAME(FILE,NAME,DECL) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	4999 + m6809_declare_function_name (FILE,NAME,DECL)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5000 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5001 +/* This is how to output a command to make the user-level label
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5002 + named NAME defined for reference from other files. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5003 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5004 +#define GLOBAL_ASM_OP "\t.globl "
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5005 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5006 +/* This is how to output a reference to a user label named NAME. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5007 +#define ASM_OUTPUT_LABELREF(FILE,NAME) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5008 + fprintf (FILE, "_%s", NAME)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5009 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5010 +/* This is how to output a reference to a symbol ref
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5011 + * Check to see if the symbol is in the direct page */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5012 +#define ASM_OUTPUT_SYMBOL_REF(FILE,sym) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5013 +{ \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5014 + print_direct_prefix (FILE, sym); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5015 + assemble_name (FILE, XSTR (sym, 0)); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5016 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5017 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5018 +/* External references aren't necessary, so don't emit anything */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5019 +#define ASM_OUTPUT_EXTERNAL(FILE,DECL,NAME)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5020 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5021 +/* This is how to store into the string LABEL
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5022 + the symbol_ref name of an internal numbered label where
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5023 + PREFIX is the class of label and NUM is the number within the class.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5024 + This is suitable for output with `assemble_name'. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5025 +#define ASM_GENERATE_INTERNAL_LABEL(LABEL,PREFIX,NUM) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5026 + sprintf (LABEL, "*%s%lu", PREFIX, (unsigned long int)NUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5027 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5028 +/* This is how to output an assembler line defining an `int' constant. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5029 +#define ASM_OUTPUT_INT(FILE,VALUE) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5030 +( fprintf (FILE, "\t.word "), \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5031 + output_addr_const (FILE, (VALUE)), \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5032 + fprintf (FILE, "\n"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5033 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5034 +/* Likewise for `char' and `short' constants. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5035 +#define ASM_OUTPUT_SHORT(FILE,VALUE) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5036 +( fprintf (FILE, "\t.word "), \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5037 + output_addr_const (FILE, (VALUE)), \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5038 + fprintf (FILE, "\n"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5039 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5040 +/* This is how to output a string. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5041 +#define ASM_OUTPUT_ASCII(FILE,STR,SIZE) m6809_output_ascii (FILE, STR, SIZE)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5042 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5043 +/* This is how to output an insn to push a register on the stack.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5044 + It need not be very fast code. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5045 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5046 +#define ASM_OUTPUT_REG_PUSH(FILE,REGNO) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5047 + fprintf (FILE, "\tpshs\t%s\n", reg_names[REGNO])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5048 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5049 +/* This is how to output an insn to pop a register from the stack.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5050 + It need not be very fast code. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5051 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5052 +#define ASM_OUTPUT_REG_POP(FILE,REGNO) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5053 + fprintf (FILE, "\tpuls\t%s\n", reg_names[REGNO])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5054 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5055 +/* This is how to output an element of a case-vector that is absolute. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5056 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5057 +#define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5058 + fprintf (FILE, "\t.word L%u\n", VALUE)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5059 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5060 +/* This is how to output an element of a case-vector that is relative. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5061 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5062 +#define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, BODY, VALUE, REL) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5063 + fprintf (FILE, "\t.word L%u-L%u\n", VALUE, REL)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5064 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5065 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5066 +/*****************************************************************************
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5067 +**
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5068 +** Assembler Commands for Alignment
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5069 +**
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5070 +*****************************************************************************/
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5071 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5072 +/* ASM_OUTPUT_SKIP is supposed to zero initialize the data.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5073 + * So use the .byte and .word directives instead of .blkb */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5074 +#define ASM_OUTPUT_SKIP(FILE,SIZE) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5075 + do { \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5076 + int __size = SIZE; \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5077 + while (__size > 0) { \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5078 + if (__size >= 2) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5079 + { \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5080 + fprintf (FILE, "\t.word\t0\t;skip space %d\n", __size); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5081 + __size -= 2; \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5082 + } \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5083 + else \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5084 + { \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5085 + fprintf (FILE, "\t.byte\t0\t;skip space\n"); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5086 + __size--; \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5087 + } \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5088 + } \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5089 + } while (0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5090 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5091 +/* This says how to output an assembler line
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5092 + to define a global common symbol. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5093 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5094 +#define ASM_OUTPUT_COMMON(FILE, NAME, SIZE, ROUNDED) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5095 + do { \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5096 + switch_to_section (bss_section); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5097 + fputs ("\t.globl\t", FILE); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5098 + assemble_name ((FILE), (NAME)); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5099 + fputs ("\n", FILE); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5100 + assemble_name ((FILE), (NAME)); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5101 + fprintf ((FILE), ":\t.blkb\t" FMT_HOST_WIDE_INT "\n", (ROUNDED));} while(0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5102 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5103 +/* This says how to output an assembler line
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5104 + to define a local common symbol. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5105 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5106 +#define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5107 +do { \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5108 + switch_to_section (bss_section); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5109 + assemble_name ((FILE), (NAME)); \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5110 + fprintf ((FILE), ":\t.blkb\t" FMT_HOST_WIDE_INT "\n", (ROUNDED));} while(0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5111 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5112 +/* Store in OUTPUT a string (made with alloca) containing
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5113 + an assembler-name for a local static variable named NAME.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5114 + LABELNO is an integer which is different for each call. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5115 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5116 +#define ASM_FORMAT_PRIVATE_NAME(OUTPUT, NAME, LABELNO) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5117 +( (OUTPUT) = (char *) alloca (strlen ((NAME)) + 10), \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5118 + sprintf ((OUTPUT), "%s.%lu", (NAME), (unsigned long int)(LABELNO)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5119 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5120 +/* Print an instruction operand X on file FILE.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5121 + CODE is the code from the %-spec for printing this operand.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5122 + If `%z3' was used to print operand 3, then CODE is 'z'. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5123 +#define PRINT_OPERAND(FILE, X, CODE) print_operand (FILE, X, CODE)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5124 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5125 +/* Print a memory operand whose address is X, on file FILE. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5126 +#define PRINT_OPERAND_ADDRESS(FILE, ADDR) print_operand_address (FILE, ADDR)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5127 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5128 +/* Don't let stack pushes build up too much. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5129 +#define MAX_PENDING_STACK 8
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5130 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5131 +/* Define values for builtin operations */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5132 +enum m6809_builtins
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5133 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5134 + M6809_SWI,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5135 + M6809_SWI2,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5136 + M6809_SWI3,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5137 + M6809_CWAI,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5138 + M6809_SYNC,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5139 + M6809_ADD_CARRY,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5140 + M6809_SUB_CARRY,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5141 + M6809_ADD_DECIMAL,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5142 + M6809_NOP,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5143 + M6809_BLOCKAGE
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5144 +};
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5145 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5146 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.md gcc-4.6.4/gcc/config/m6809/m6809.md
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5147 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.md 1969-12-31 17:00:00.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5148 +++ gcc-4.6.4/gcc/config/m6809/m6809.md 2015-07-20 22:05:21.702720231 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5149 @@ -0,0 +1,2358 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5150 +;; GCC machine description for Motorola 6809
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5151 +;; Copyright (C) 1989, 2005, 2006, 2007, 2008,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5152 +;; 2009 Free Software Foundation, Inc.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5153 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5154 +;; Mostly by Brian Dominy (brian@oddchange.com) with substantial renovations
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5155 +;; by William Astle (lost@l-w.ca).
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5156 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5157 +;; Based on earlier work by Tom Jones (jones@sal.wisc.edu) and
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5158 +;; Matthias Doerfel (msdoerfe@informatik.uni-erlangen.de)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5159 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5160 +;; This file is part of GCC.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5161 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5162 +;; GCC is free software; you can redistribute it and/or modify
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5163 +;; it under the terms of the GNU General Public License as published by
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5164 +;; the Free Software Foundation; either version 3, or (at your option)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5165 +;; any later version.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5166 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5167 +;; GCC is distributed in the hope that it will be useful,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5168 +;; but WITHOUT ANY WARRANTY; without even the implied warranty of
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5169 +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5170 +;; GNU General Public License for more details.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5171 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5172 +;; You should have received a copy of the GNU General Public License
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5173 +;; along with GCC; see the file COPYING3. If not see
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5174 +;; <http://www.gnu.org/licenses/>.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5175 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5176 +;; General information:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5177 +;; --------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5178 +;; * This backend is mostly a rewrite from earlier (3.1.1 and before)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5179 +;; versions.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5180 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5181 +;; * The 'A' and 'B' registers are treated as a single register by the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5182 +;; register allocator; hence, the instruction templates assume that
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5183 +;; both can be modified if either one is available for use. No
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5184 +;; attempt is made to split instructions to refer to a particular half
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5185 +;; of the register. It is always referred to as the 'D' register, even
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5186 +;; in QImode (when it will be displayed as 'B').
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5187 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5188 +;; * There is full support for proper branch instruction generation,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5189 +;; based on instruction lengths. However, many instruction patterns
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5190 +;; are still overloaded to emit lots of real instructions, which can
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5191 +;; make the length calculation difficult; in those cases, I've tried
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5192 +;; to be pessimistic and assume the worst-case.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5193 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5194 +;; * The instruction type attributes are only defined for branch
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5195 +;; vs. non branch instructions for now, since there is seemingly no
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5196 +;; reason to define these for other types anyway.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5197 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5198 +;; * The limited number of total registers presents the greatest
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5199 +;; challenge. There are 'soft registers' -- memory locations
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5200 +;; used to simulate real regs -- which can be helpful.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5201 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5202 +;; * Position-independent code (PIC) is supported and has been tested
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5203 +;; but not to the extent of absolute code generation.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5204 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5205 +;; * All of the 6809 special opcodes, e.g. SWI and SYNC, are defined
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5206 +;; as UNSPEC instructions, and can be accessed from C code using
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5207 +;; __builtin_xxxx() style functions.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5208 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5209 +;; What still needs to be done:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5210 +;; ----------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5211 +;; * Replace remaining instances of (define_peephole) with
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5212 +;; (define_peephole2), or remove them completely if they are not
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5213 +;; matching anyway. Add more peepholes for things actually encountered.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5214 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5215 +;; * Indexing addressing can lead to crashes in complex functions when
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5216 +;; register pressure is high. Only the 'D' register can actually be
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5217 +;; used as an index register, and its demand by other instructions
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5218 +;; can sometimes mean that it is impossible to satisfy constraints.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5219 +;; Currently, indexing is completely disabled to avoid these types
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5220 +;; of problems, although code is slightly more inefficient in some
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5221 +;; working cases.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5222 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5223 +;; * 32-bit math is terribly inefficient.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5224 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5225 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5226 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5227 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5228 +;;- Constants
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5229 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5230 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5231 +;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5232 +; Define constants for hard register numbers.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5233 +;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5234 +(define_constants [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5235 + (HARD_RSVD1_REGNUM 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5236 + (HARD_X_REGNUM 1) (HARD_Y_REGNUM 2) (HARD_U_REGNUM 3)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5237 + (HARD_S_REGNUM 4) (HARD_PC_REGNUM 5) (HARD_D_REGNUM 6)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5238 + (HARD_Z_REGNUM 7)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5239 + (HARD_A_REGNUM 8) (HARD_B_REGNUM 9)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5240 + (HARD_CC_REGNUM 10) (HARD_DP_REGNUM 11)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5241 + (SOFT_FP_REGNUM 12) (SOFT_AP_REGNUM 13)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5242 + (SOFT_M0_REGNUM 14) (SOFT_M1_REGNUM 15)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5243 + (SOFT_M2_REGNUM 16) (SOFT_M3_REGNUM 17)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5244 +])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5245 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5246 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5247 +;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5248 +; The range in which a short branch insn can be used.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5249 +;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5250 +(define_constants [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5251 + (MIN_SHORT_BRANCH_OFFSET -127)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5252 + (MAX_SHORT_BRANCH_OFFSET 128)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5253 +])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5254 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5255 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5256 +;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5257 +; The lengths of various types of real 6809 instructions.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5258 +;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5259 +; By default, ordinary insns are 4 bytes long. This is often not
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5260 +; right, and the insn patterns below will redefine this to the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5261 +; correct value.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5262 +;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5263 +; Branch instruction lengths (conditional and unconditionals) are
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5264 +; well known and declared here. The short insns are used when the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5265 +; offset is within the range declared above (between MIN_SHORT
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5266 +; and MAX_SHORT) ; otherwise the long form is used.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5267 +;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5268 +(define_constants [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5269 + (DEFAULT_INSN_LENGTH 4)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5270 + (SHORT_CBRANCH_LENGTH 2)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5271 + (LONG_CBRANCH_LENGTH 4)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5272 + (SHORT_BRANCH_LENGTH 2)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5273 + (LONG_BRANCH_LENGTH 3)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5274 +])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5275 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5276 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5277 +;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5278 +; Constants for insn cycle counts.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5279 +; Note that these counts all assume 1-byte opcodes. 2-byte
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5280 +; opcodes require 1 extra cycles for fetching the extra byte.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5281 +;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5282 +(define_constants [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5283 + ;; The default insn length, when it cannot be calculated.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5284 + ;; Take a conservative approach and estimate high.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5285 + (DEFAULT_INSN_CYCLES 10)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5286 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5287 + ;; Cycle counts for ALU and load operations.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5288 + (ALU_INHERENT_CYCLES 2)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5289 + (ALU_IMMED_CYCLES 2)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5290 + (ALU_DIRECT_CYCLES 4)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5291 + (ALU_INDEXED_BASE_CYCLES 4)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5292 + (ALU_EXTENDED_CYCLES 5)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5293 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5294 + ;; If an ALU operation is on a 16-bit register (D), then
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5295 + ;; add this number of cycles to the total count.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5296 + (ALU_16BIT_CYCLES 2)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5297 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5298 + ;; A load of a 16-bit register incurs this extra amount.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5299 + (LOAD_16BIT_CYCLES 1)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5300 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5301 + ;; Cycle counts for memory-only operations (bit shifts, clear, test)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5302 + (MEM_DIRECT_CYCLES 6)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5303 + (MEM_INDEXED_BASE_CYCLES 6)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5304 + (MEM_EXTENDED_CYCLES 7)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5305 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5306 + ;; Cycle count for any reg-reg transfer (regardless of size)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5307 + (EXG_CYCLES 8)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5308 + (TFR_CYCLES 6)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5309 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5310 + ;; Cycle count for a condition code update (andcc/orcc)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5311 + (CC_CYCLES 3)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5312 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5313 + (JMP_DIRECT_CYCLES 3)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5314 + (JMP_INDEXED_BASE_CYCLES 3)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5315 + (JMP_EXTENDED_CYCLES 4)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5316 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5317 + (JSR_DIRECT_CYCLES 7)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5318 + (JSR_INDEXED_BASE_CYCLES 7)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5319 + (JSR_EXTENDED_CYCLES 8)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5320 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5321 + (LEA_BASE_CYCLES 4)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5322 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5323 + ;; Cycle count for a psh/pul operations. Add to this the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5324 + ;; total number of bytes moved for the correct count.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5325 + (PSH_PUL_CYCLES 5)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5326 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5327 + ;; Miscellaneous cycle counts
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5328 + (CWAI_CYCLES 20)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5329 + (MUL_CYCLES 11)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5330 + (NOP_CYCLES 2)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5331 + (RTI_CYCLES 15)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5332 + (RTS_CYCLES 5)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5333 + (SWI_CYCLES 20)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5334 + (SYNC_CYCLES 4)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5335 +])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5336 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5337 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5338 +;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5339 +; An enumeration of values for each "unspec"; i.e. unspecified
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5340 +; instruction. These represent insns that are meaningful on the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5341 +; 6809 but which have no intrinsic meaning to GCC itself.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5342 +; These insns can be generated explicitly using the __builtin_xxx
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5343 +; syntax; they are also implicitly generated by the backend
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5344 +; as needed to implement other insns.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5345 +;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5346 +(define_constants [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5347 + (UNSPEC_BLOCKAGE 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5348 + (UNSPEC_PUSH_RS 1)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5349 + (UNSPEC_POP_RS 2)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5350 + (UNSPEC_SWI 3)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5351 + (UNSPEC_CWAI 4)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5352 + (UNSPEC_ADD_CARRY 5)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5353 + (UNSPEC_SUB_CARRY 6)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5354 + (UNSPEC_SYNC 7)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5355 + (UNSPEC_ADD_DECIMAL 8)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5356 +])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5357 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5358 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5359 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5360 +;;- Predicates
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5361 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5362 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5363 +(include "predicates.md")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5364 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5365 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5366 +;;- Attributes
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5367 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5368 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5369 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5370 +;; The type attribute is used to distinguish between different
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5371 +;; types of branch instructions, so that their lengths can be
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5372 +;; calculated correctly.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5373 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5374 +(define_attr "type" "branch,cbranch,unknown" (const_string "unknown"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5375 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5376 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5377 +;; The length of a branch instruction is calculated based on how
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5378 +;; far away the branch target is. Lengths of other insns default
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5379 +;; to 4. set_attr is used in instruction templates to specify
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5380 +;; the length when it is known exactly. When not sure, err on
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5381 +;; the high side to avoid compile errors.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5382 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5383 +(define_attr "length" ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5384 + (cond [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5385 + (eq_attr "type" "branch")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5386 + (if_then_else (lt (minus (match_dup 0) (pc))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5387 + (const_int MIN_SHORT_BRANCH_OFFSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5388 + (const_int LONG_BRANCH_LENGTH)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5389 + (if_then_else (gt (minus (match_dup 0) (pc))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5390 + (const_int MAX_SHORT_BRANCH_OFFSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5391 + (const_int LONG_BRANCH_LENGTH)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5392 + (const_int SHORT_BRANCH_LENGTH)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5393 + (eq_attr "type" "cbranch")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5394 + (if_then_else (lt (minus (match_dup 0) (pc))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5395 + (const_int MIN_SHORT_BRANCH_OFFSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5396 + (const_int LONG_CBRANCH_LENGTH)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5397 + (if_then_else (gt (minus (match_dup 0) (pc))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5398 + (const_int MAX_SHORT_BRANCH_OFFSET))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5399 + (const_int LONG_CBRANCH_LENGTH)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5400 + (const_int SHORT_CBRANCH_LENGTH)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5401 + ] (const_int DEFAULT_INSN_LENGTH)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5402 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5403 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5404 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5405 +;; The default attributes for 'asm' statements.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5406 +;; The default length is the longest possible single 6809 instruction,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5407 +;; which is 5 bytes. GCC will automatically multiply this by the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5408 +;; number of real insns contained in an asm statement.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5409 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5410 +(define_asm_attributes
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5411 + [(set_attr "length" "5")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5412 + (set_attr "type" "unknown")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5413 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5414 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5415 +;; An attribute for the number of cycles that it takes an instruction
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5416 +;; to execute.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5417 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5418 +(define_attr "cycles" "" (const_int DEFAULT_INSN_CYCLES))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5419 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5420 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5421 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5422 +;;- Instruction patterns. When multiple patterns apply,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5423 +;;- the first one in the file is chosen.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5424 +;;-
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5425 +;;- See file "rtl.def" for documentation on define_insn, match_*, et. al.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5426 +;;-
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5427 +;;- Note: NOTICE_UPDATE_CC in m6809.h handles condition code updates
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5428 +;;- for most instructions.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5429 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5430 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5431 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5432 +;;- Test
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5433 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5434 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5435 +;; cmpx is 3 bytes, not 4
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5436 +(define_insn "*tsthi_x"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5437 + [(set (cc0) (match_operand:HI 0 "register_operand_x" "v"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5438 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5439 + "cmpx\t#0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5440 + [(set_attr "length" "3")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5441 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5442 +;; subd #0 is 3 bytes, better than cmpd #0 which is 4 bytes
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5443 +(define_insn "*tsthi_d"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5444 + [(set (cc0) (match_operand:HI 0 "register_operand_d" "d"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5445 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5446 + "subd\t#0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5447 + [(set_attr "length" "3")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5448 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5449 +(define_insn "*tsthi"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5450 + [(set (cc0) (match_operand:HI 0 "register_operand" "a"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5451 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5452 + "cmp%0\t#0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5453 + [(set_attr "length" "4")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5454 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5455 +(define_insn "*bitqi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5456 + [(set (cc0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5457 + (and:QI (match_operand:QI 0 "register_operand" "%q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5458 + (match_operand:QI 1 "general_operand" "mi")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5459 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5460 + "bit%0\t%1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5461 + [(set_attr "length" "3")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5462 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5463 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5464 +(define_insn "tstqi"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5465 + [(set (cc0) (match_operand:QI 0 "nonimmediate_operand" "q,mt"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5466 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5467 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5468 + tst%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5469 + tst\t%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5470 + [(set_attr "length" "1,3")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5471 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5472 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5473 +;;- Compare instructions
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5474 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5475 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5476 +;; - cmphi for register to memory or register compares
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5477 +(define_insn "cmphi"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5478 + [(set (cc0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5479 + (compare
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5480 + (match_operand:HI 0 "general_operand" "da, mi, ??Ud")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5481 + (match_operand:HI 1 "general_operand" "mi, da, dU")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5482 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5483 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5484 + if ((REG_P (operands[0])) && (REG_P (operands[1]))) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5485 + output_asm_insn ("pshs\t%1\t;cmphi: R:%1 with R:%0", operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5486 + return "cmp%0\t,s++\t;cmphi:";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5487 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5488 + if (GET_CODE (operands[0]) == REG)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5489 + return "cmp%0\t%1\t;cmphi:";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5490 + else {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5491 + cc_status.flags \|= CC_REVERSED;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5492 + return "cmp%1\t%0\t;cmphi:(R)";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5493 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5494 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5495 + [(set_attr "length" "5,5,7")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5496 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5497 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5498 +(define_insn "cmpqi"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5499 + [(set (cc0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5500 + (compare (match_operand:QI 0 "whole_general_operand" "q,q, q,O,mt,K")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5501 + (match_operand:QI 1 "whole_general_operand" "O,mt,K,q,q, q")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5502 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5503 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5504 + if (REG_P (operands[0]) && !M_REG_P (operands[0]))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5505 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5506 + if (operands[1] == const0_rtx)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5507 + return "tst%0\t;cmpqi:(ZERO)";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5508 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5509 + return "cmp%0\t%1\t;cmpqi:";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5510 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5511 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5512 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5513 + cc_status.flags \|= CC_REVERSED;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5514 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5515 + if (operands[0] == const0_rtx)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5516 + return "tst%1\t;cmpqi:(RZERO)";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5517 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5518 + return "cmp%1\t%0\t;cmpqi:(R)";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5519 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5520 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5521 + [(set_attr "length" "1,3,2,1,3,2")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5522 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5523 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5524 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5525 +;;- Compare/branch pattern
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5526 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5527 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5528 +(define_expand "cbranchhi4"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5529 + [(set (cc0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5530 + (compare
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5531 + (match_operand:HI 1 "general_operand" "da, mi, ??Ud")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5532 + (match_operand:HI 2 "general_operand" "mi, da, dU")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5533 + (set (pc)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5534 + (if_then_else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5535 + (match_operator 0 "ordered_comparison_operator" [(cc0) (const_int 0)])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5536 + (label_ref (match_operand 3 "" ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5537 + (pc)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5538 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5539 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5540 +)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5541 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5542 +(define_expand "cbranchqi4"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5543 + [(set (cc0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5544 + (compare
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5545 + (match_operand:QI 1 "whole_general_operand" "q,q, q,O,mt,K")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5546 + (match_operand:QI 2 "whole_general_operand" "O,mt,K,q,q, q")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5547 + (set (pc)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5548 + (if_then_else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5549 + (match_operator 0 "ordered_comparison_operator" [(cc0) (const_int 0)])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5550 + (label_ref (match_operand 3 "" ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5551 + (pc)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5552 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5553 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5554 +)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5555 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5556 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5557 +;;- Move
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5558 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5559 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5560 +; this looks good (obviously not finished) but I still see 'movsi'
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5561 +; places in udivsi3 where it's broken
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5562 +; (define_insn "pushsi1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5563 +; [(set (mem:SI (pre_dec (reg:HI HARD_S_REGNUM)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5564 +; (match_operand:SI 0 "general_operand" "o"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5565 +; (set (reg:HI HARD_S_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5566 +; (plus:HI (reg:HI HARD_S_REGNUM) (const_int -4))) ]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5567 +; ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5568 +; "; pushsi %0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5569 +; [(set_attr "length" "12")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5570 +;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5571 +; (define_insn "popsi1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5572 +; [(set (match_operand:SI 0 "general_operand" "=o")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5573 +; (mem:SI (post_inc (reg:HI HARD_S_REGNUM))))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5574 +; (set (reg:HI HARD_S_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5575 +; (plus:HI (reg:HI HARD_S_REGNUM) (const_int 4))) ]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5576 +; ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5577 +; "; popsi %0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5578 +; [(set_attr "length" "12")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5579 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5580 +; (define_insn "movsi"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5581 +; [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5582 +; (match_operand:SI 1 "general_operand" " oi"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5583 +; ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5584 +; "; movsi %0 <- %1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5585 +; [(set_attr "length" "1")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5586 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5587 +; this doesn't work
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5588 +; (define_expand "movsi"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5589 +; [(parallel [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5590 +; (set (match_operand:SI 0 "nonimmediate_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5591 +; (match_operand:SI 1 "general_operand" ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5592 +; (clobber (match_scratch:HI 2 ""))])]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5593 +; ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5594 +; {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5595 +; rtx insn;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5596 +; if (STACK_PUSH_P (operands[0]) \|\| STACK_POP_P (operands[1]))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5597 +; {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5598 +; REG_NOTES (insn) = alloc_EXPR_LIST (REG_INC, stack_pointer_rtx, REG_NOTES (insn));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5599 +; }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5600 +; insn = emit_move_multi_word (SImode, operands[0], operands[1]);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5601 +; DONE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5602 +; })
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5603 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5604 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5605 +(define_expand "movhi"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5606 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5607 + (match_operand:HI 1 "general_operand" ""))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5608 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5609 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5610 + /* One of the ops has to be in a register prior to reload */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5611 + if (!register_operand (operand0, HImode) &&
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5612 + !register_operand (operand1, HImode))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5613 + operands[1] = copy_to_mode_reg (HImode, operand1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5614 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5615 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5616 +;;; Try a splitter to handle failure cases where we try to move
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5617 +;;; an immediate constant (zero usually) directly to memory.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5618 +;;; This absolutely requires an intermediate register.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5619 +(define_split
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5620 + [(set (match_operand:HI 0 "memory_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5621 + (match_operand:HI 1 "immediate_operand" ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5622 + (clobber (match_operand:HI 2 "register_operand" ""))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5623 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5624 + [(set (match_dup 2) (match_dup 1))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5625 + (set (match_dup 0) (match_dup 2))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5626 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5627 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5628 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5629 +;;; This would be a nice method for loading from a word array,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5630 +;;; but it is never generated because the combiner cannot merge
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5631 +;;; more than 3 instructions (there are four here). This is
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5632 +;;; perhaps better done via a peephole.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5633 +(define_insn "*movhi_array_load"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5634 + [(set (match_operand:HI 0 "nonimmediate_operand" "=da")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5635 + (mem:HI (plus:HI (ashift:HI (zero_extend:HI (match_operand:QI 1 "register_operand" "%B")) (const_int 1))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5636 + (match_operand:HI 2 "immediate_operand" "i"))))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5637 + (clobber (match_scratch:HI 3 "=X"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5638 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5639 + "ldx\t%2\;abx\;abx\;ld%0\t,x"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5640 + [(set_attr "length" "7")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5641 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5642 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5643 +;;; Optimize the move of a byte to the stack using the pshs instruction
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5644 +;;; instead of a store with pre-increment.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5645 +(define_insn "movhi_push"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5646 + [(set (match_operand:HI 0 "push_operand" "=m")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5647 + (match_operand:HI 1 "register_operand" "U"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5648 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5649 + "pshs\t%1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5650 + [(set_attr "length" "2")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5651 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5652 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5653 +(define_insn "*movhi_pic_symbolref"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5654 + [(set (match_operand:HI 0 "register_operand" "=a")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5655 + (match_operand:HI 1 "symbolic_operand" ""))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5656 + "flag_pic"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5657 + "lea%0\t%c1,pcr"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5658 + [(set_attr "length" "4")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5659 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5660 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5661 +(define_insn "*movhi_1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5662 + [(set (match_operand:HI 0 "nonimmediate_operand" "=a,d,a,ad,mu")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5663 + (match_operand:HI 1 "general_operand" " a,a,d,miu,ad"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5664 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5665 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5666 + lea%0\t,%1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5667 + tfr\t%1,%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5668 + tfr\t%1,%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5669 + ld%0\t%1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5670 + st%1\t%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5671 + [(set_attr "length" "2,2,2,,")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5672 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5673 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5674 +;;; Generated by the combiner to merge an address calculation with
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5675 +;;; a byte load. We can use the 'abx' instruction here.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5676 +(define_insn "*movqi_array_load"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5677 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5678 + (mem:QI (plus:HI (zero_extend:HI (match_operand:QI 1 "register_operand" "%B"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5679 + (match_operand:HI 2 "immediate_operand" "i"))))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5680 + (clobber (match_scratch:HI 3 "=X"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5681 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5682 + "ldx\t%2\;abx\;ld%0\t,x"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5683 + [(set_attr "length" "6")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5684 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5685 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5686 +;;; Optimize the move of a byte to the stack using the pshs instruction
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5687 +;;; instead of a store with pre-increment.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5688 +(define_insn "movqi_push"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5689 + [(set (match_operand:QI 0 "push_operand" "=m")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5690 + (match_operand:QI 1 "register_operand" " q"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5691 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5692 + "pshs\t%1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5693 + [(set_attr "length" "2")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5694 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5695 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5696 +;;; Optimize the move of a byte from the stack using the puls instruction
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5697 +;;; instead of a store with post-decrement.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5698 +(define_insn "movqi_pop"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5699 + [(set (match_operand:QI 0 "register_operand" "=q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5700 + (match_operand:QI 1 "pop_operand" "m"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5701 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5702 + "puls\t%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5703 + [(set_attr "length" "2")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5704 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5705 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5706 +;;- load low byte of 16-bit data into 8-bit register/memory
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5707 +(define_insn "*mov_lsb"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5708 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,m,!q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5709 + (subreg:QI (match_operand:HI 1 "general_operand" "d,m,a,d, U") 1))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5710 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5711 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5712 + \t;movlsbqihi: D->B
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5713 + ld%0\t%L1\t;movlsbqihi: msb:%1 -> R:%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5714 + tfr\t%1,d\t;movlsbqihi: R:%1 -> R:%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5715 + stb\t%0\t;movlsbqihi: R:%1 -> %0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5716 + pshs\t%1\t;movlsbqihi: R:%1 -> R:%0\;leas\t1,s\;puls\t%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5717 + [(set_attr "length" "0,,2,,6")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5718 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5719 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5720 +;;- load high byte of 16-bit data into 8-bit register/memory
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5721 +(define_insn "*mov_msb"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5722 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,q,m,!q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5723 + (subreg:QI (match_operand:HI 1 "general_operand" "d,O,a,m,d, U") 0))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5724 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5725 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5726 + tfr\ta,b\t;movmsbqihi: D->B
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5727 + clr%0\t\t;movmsbqihi: ZERO -> R:%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5728 + tfr\t%1,d\t;movmsbqihi: R:%1 -> R:%0\;tfr\ta,b
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5729 + ld%0\t%L1\t;movmsbqihi: lsb:%1 -> R:%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5730 + sta\t%0\t;movmsbqihi: R:%1 -> %0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5731 + pshs\t%1\t;movmsbqihi: R:%1 -> R:%0\;puls\t%0\;leas\t1,s"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5732 + [(set_attr "length" "2,1,4,,,6")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5733 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5734 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5735 +(define_insn "*movqi_boolean"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5736 + [(set (reg:QI HARD_Z_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5737 + (match_operand:QI 0 "general_operand" "q,O,i,m"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5738 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5739 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5740 + tst%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5741 + andcc\t#~4
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5742 + orcc\t#4
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5743 + tst\t%0")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5744 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5745 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5746 +(define_insn "movqi"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5747 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,m,q,m,q,z")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5748 + (match_operand:QI 1 "general_operand" " q,O,O,mi,q,z,q"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5749 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5750 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5751 + tfr\t%1,%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5752 + clr%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5753 + clr\t%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5754 + ld%0\t%1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5755 + st%1\t%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5756 + tfr\tcc,%0\;and%0\t#4
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5757 + tst%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5758 + [(set_attr "length" "2,1,3,,,4,1")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5759 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5760 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5761 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5762 +;;- Swap registers
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5763 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5764 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5765 +; Note: 8-bit swap is never needed so it is not defined.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5766 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5767 +(define_insn "swaphi"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5768 + [(set (match_operand:HI 0 "register_operand" "+r")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5769 + (match_operand:HI 1 "register_operand" "+r"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5770 + (set (match_dup 1) (match_dup 0))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5771 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5772 + "exg\t%1,%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5773 + [(set_attr "length" "2")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5774 + (set (attr "cycles") (const_int EXG_CYCLES))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5775 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5776 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5777 +(define_insn "bswaphi2"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5778 + [(set (match_operand:HI 0 "register_operand" "=d")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5779 + (bswap:HI (match_operand:HI 1 "register_operand" "0")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5780 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5781 + "exg\ta,b"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5782 + [(set_attr "length" "2")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5783 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5784 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5785 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5786 +;;- Extension and truncation insns.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5787 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5788 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5789 +(define_insn "extendqihi2"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5790 + [(set (match_operand:HI 0 "register_operand" "=d")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5791 + (sign_extend:HI (match_operand:QI 1 "general_operand" "B")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5792 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5793 + "sex\t\t;extendqihi2: R:%1 -> R:%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5794 + [(set_attr "length" "1")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5795 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5796 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5797 +(define_insn "zero_extendqihi2"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5798 + [(set (match_operand:HI 0 "register_operand" "=d")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5799 + (zero_extend:HI (match_operand:QI 1 "general_operand" "B")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5800 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5801 + "clra\t\t;zero_extendqihi: R:%1 -> R:%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5802 + [(set_attr "length" "1")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5803 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5804 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5805 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5806 +;;- All kinds of add instructions.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5807 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5808 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5809 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5810 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5811 +;; gcc's automatic version of addsi3 doesn't know about adcb,adca
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5812 +;; so it is MUCH less efficient. Define this one ourselves.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5813 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5814 +;; TODO - can't always get 'd' for the clobber... allow other registers
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5815 +;; as well and use exg d,R ... exg R,d around the code sequence to
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5816 +;; use others, at a price. Also consider libcall for this when
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5817 +;; optimizing for size.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5818 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5819 +(define_insn "addsi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5820 + [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5821 + (plus:SI (match_operand:SI 1 "general_operand" "%o")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5822 + (match_operand:SI 2 "general_operand" " oi")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5823 + (clobber (match_scratch:HI 3 "=d"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5824 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5825 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5826 + m6809_output_addsi3 (PLUS, operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5827 + return "";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5828 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5829 + [(set_attr "length" "21")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5830 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5831 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5832 +;;; Increment of a 16-bit MEM by 1 can be done without a register.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5833 +;;(define_insn "*addhi_mem_1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5834 +;; [(set (match_operand:HI 0 "memory_operand" "=m")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5835 +;; (plus:HI (match_operand:HI 1 "memory_operand" "0") (const_int 1)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5836 +;; "GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5837 +;;{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5838 +;; rtx xoperands[2];
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5839 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5840 +;; xoperands[0] = operands[0];
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5841 +;; xoperands[1] = adjust_address (operands[0], QImode, 1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5842 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5843 +;; output_asm_insn ("inc\t%1", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5844 +;; output_asm_insn ("bne\t__IL%=", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5845 +;; output_asm_insn ("inc\t%0\;__IL%=:", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5846 +;; return "";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5847 +;;}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5848 +;; [(set_attr "length" "7")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5849 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5850 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5851 +;;; Decrement of a 16-bit MEM by 1 can be done without a register.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5852 +;;(define_insn "*addhi_mem_minus1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5853 +;; [(set (match_operand:HI 0 "memory_operand" "=m")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5854 +;; (plus:HI (match_operand:HI 1 "memory_operand" "0") (const_int -1)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5855 +;; "GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5856 +;;{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5857 +;; rtx xoperands[2];
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5858 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5859 +;; xoperands[0] = operands[0];
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5860 +;; xoperands[1] = adjust_address (operands[0], QImode, 1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5861 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5862 +;; output_asm_insn ("tst\t%1", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5863 +;; output_asm_insn ("bne\t__IL%=", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5864 +;; output_asm_insn ("dec\t%0", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5865 +;; output_asm_insn ("__IL%=:", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5866 +;; output_asm_insn ("dec\t%1", xoperands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5867 +;; return "";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5868 +;;}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5869 +;; [(set_attr "length" "7")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5870 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5871 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5872 +; Allow the addition of an 8-bit quantity to a 16-bit quantity
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5873 +; using the LEAX B,Y addressing mode, where X and Y are both
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5874 +; index registers. This will only get generated via the peephole
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5875 +; which removes a sign extension.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5876 +(define_insn "*addhi_b"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5877 + [(set (match_operand:HI 0 "index_register_operand" "=a")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5878 + (plus:HI(match_operand:HI 1 "index_register_operand" "%a")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5879 + (match_operand:QI 2 "register_operand" "q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5880 + ))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5881 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5882 + "lea%0\t%2,%1\t;addhi_b: R:%0 = R:%2 + R:%1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5883 + [(set_attr "length" "*")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5884 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5885 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5886 +; Splitter for addhi pattern #5 below
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5887 +(define_split
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5888 + [(set (match_operand:HI 0 "index_register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5889 + (plus:HI (match_dup 0) (match_operand:HI 1 "memory_operand" "")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5890 + "reload_completed"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5891 + [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5892 + (parallel [(set (match_dup 0) (reg:HI HARD_D_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5893 + (set (reg:HI HARD_D_REGNUM) (match_dup 0))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5894 + (set (reg:HI HARD_D_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5895 + (plus:HI (reg:HI HARD_D_REGNUM) (match_dup 1)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5896 + (parallel [(set (match_dup 0) (reg:HI HARD_D_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5897 + (set (reg:HI HARD_D_REGNUM) (match_dup 0))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5898 + ]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5899 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5900 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5901 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5902 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5903 +; Splitter for addhi pattern #7 below
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5904 +(define_split
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5905 + [(set (match_operand:HI 0 "index_register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5906 + (plus:HI (match_dup 0) (match_operand:HI 1 "index_register_operand" "")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5907 + "reload_completed"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5908 + [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5909 + (parallel [(set (match_dup 1) (reg:HI HARD_D_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5910 + (set (reg:HI HARD_D_REGNUM) (match_dup 1))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5911 + (set (match_dup 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5912 + (plus:HI (reg:HI HARD_D_REGNUM) (match_dup 0)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5913 + (parallel [(set (match_dup 1) (reg:HI HARD_D_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5914 + (set (reg:HI HARD_D_REGNUM) (match_dup 1))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5915 + ]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5916 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5917 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5918 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5919 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5920 +; TODO - this is ugly. During RTL generation, we don't know what registers
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5921 +; are available, so the multiple-insn sequences can only be solved
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5922 +; via 'define_split's during matching. See andhi3 for an example.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5923 +; Keep the constraints with ? modifiers to help reload pick the right
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5924 +; registers.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5925 +;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5926 +; The forms are:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5927 +; 1. D += D, expand this into a shift instead. (rtx costs should be corrected
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5928 +; to avoid this even happening...)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5929 +; 2. D += U, require U to be pushed to memory. (Lots of patterns do this
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5930 +; now, is this a better way?)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5931 +; 3. Best choice: 'addd'
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5932 +; 4. Next best choice: 'lea'
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5933 +; 5. Hybrid of 3 and 4
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5934 +; 6. Same as 4, not bad
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5935 +; 7. BAD, no D register at all
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5936 +; 8. 'lea', as good as 4.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5937 +(define_insn "addhi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5938 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d, d, d, a,?a, a,???T,a")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5939 + (plus:HI(match_operand:HI 1 "add_general_operand" "%0, 0, 0, d, 0, a, 0, a")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5940 + (match_operand:HI 2 "general_operand" " 0, !U, mi, a, m, d, T, i")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5941 + ))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5942 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5943 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5944 + lslb\t\t;addhi: R:%0 += R:%2\;rola\t\t;also R:%0 *= 2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5945 + pshs\t%2\t;addhi: R:%0 += R:%2\;add%0\t,s++
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5946 + add%0\t%2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5947 + lea%0\t%1,%2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5948 + #
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5949 + lea%0\t%2,%1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5950 + #
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5951 + lea%0\t%a2,%1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5952 + [(set_attr "length" "2,6,,,7,,7,")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5953 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5954 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5955 +(define_insn "addqi3_carry"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5956 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5957 + (unspec:QI [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5958 + (match_operand:QI 1 "whole_general_operand" "%0")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5959 + (match_operand:QI 2 "whole_general_operand" "tmi")] UNSPEC_ADD_CARRY))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5960 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5961 + "adc%0\t%2\t;addqi_carry: R:%0 += %2"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5962 + [(set_attr "length" "*")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5963 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5964 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5965 +; TODO: specifying 'A' for the first constraint, to force into the A register
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5966 +; is not working because of the way registers are currently set up. This will
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5967 +; take some work to get right. Thus the second alternative as a backup.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5968 +(define_insn "addqi3_decimal"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5969 + [(set (match_operand:QI 0 "nonimmediate_operand" "=A,?q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5970 + (unspec:QI [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5971 + (match_operand:QI 1 "general_operand" "%0,0")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5972 + (match_operand:QI 2 "general_operand" "mi,mi")] UNSPEC_ADD_DECIMAL))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5973 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5974 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5975 + adda\t%2\;daa
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5976 + tfr\t%0,a\;adda\t%2\;daa\;tfr\ta,%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5977 + [(set_attr "length" "5,9")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5978 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5979 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5980 +(define_insn "addqi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5981 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,m,m,q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5982 + (plus:QI (match_operand:QI 1 "whole_general_operand" "%0,0,0,0,0,0")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5983 + (match_operand:QI 2 "whole_general_operand" " 0,I,N,I,N,mi")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5984 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5985 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5986 + asl%0\t\t;addqi: R:%0 = R:%0 + R:%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5987 + inc%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5988 + dec%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5989 + inc\t%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5990 + dec\t%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5991 + add%0\t%2"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5992 + [(set_attr "length" "1,1,1,3,3,*")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5993 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5994 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5995 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5996 +;;- Subtract instructions.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5997 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5998 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	5999 +(define_insn "subsi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6000 + [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6001 + (minus:SI (match_operand:SI 1 "general_operand" " o")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6002 + (match_operand:SI 2 "general_operand" " oi")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6003 + (clobber (match_scratch:HI 3 "=d"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6004 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6005 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6006 + m6809_output_addsi3 (MINUS, operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6007 + return "";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6008 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6009 + [(set_attr "length" "21")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6010 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6011 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6012 +(define_insn "subhi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6013 + [(set (match_operand:HI 0 "register_operand" "=d, d, a")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6014 + (minus:HI (match_operand:HI 1 "register_operand" "0, 0, 0")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6015 + (match_operand:HI 2 "general_operand" "mi, ?U,n")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6016 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6017 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6018 + sub%0\t%2\t;subhi: R:%0 -= %2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6019 + pshs\t%2\t;subhi: R:%0 -= R:%2\;sub%0\t,s++
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6020 + lea%0\t%n2,%1\t;subhi: R:%0 = R:%1 + %n2"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6021 + [(set_attr "length" "*,5,3")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6022 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6023 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6024 +(define_insn "subqi3_carry"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6025 + [(set (match_operand:QI 0 "register_operand" "=q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6026 + (unspec:QI [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6027 + (match_operand:QI 1 "whole_general_operand" "%0")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6028 + (match_operand:QI 2 "whole_general_operand" "tmi")] UNSPEC_SUB_CARRY))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6029 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6030 + "sbc%0\t%2\t;subqi_carry: R:%0 += %2"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6031 + [(set_attr "length" "*")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6032 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6033 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6034 +(define_insn "subqi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6035 + [(set (match_operand:QI 0 "register_operand" "=q, q, !q, q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6036 + (minus:QI (match_operand:QI 1 "whole_register_operand" "0, 0, I, 0")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6037 + (match_operand:QI 2 "whole_general_operand" "I, mi, 0, t")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6038 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6039 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6040 + dec%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6041 + sub%0\t%2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6042 + dec%0\;neg%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6043 + sub%0\t%2"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6044 + [(set_attr "length" "1,3,2,3")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6045 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6046 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6047 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6048 +;;- Multiply instructions.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6049 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6050 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6051 +; TODO - merge these two instructions, using 'extend_operator' to match
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6052 +; either signed or zero extension. Everything else is the same.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6053 +(define_insn "mulqihi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6054 + [(set (match_operand:HI 0 "register_operand" "=d")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6055 + (mult:HI (sign_extend:HI (match_operand:QI 1 "general_operand" "%q"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6056 + (match_operand:QI 2 "general_operand" "tmK")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6057 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6058 + "lda\t%2\t;mulqihi3\;mul"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6059 + [(set_attr "length" "3")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6060 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6061 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6062 +(define_insn "umulqihi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6063 + [(set (match_operand:HI 0 "register_operand" "=d")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6064 + (mult:HI (zero_extend:HI (match_operand:QI 1 "general_operand" "%q"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6065 + (match_operand:QI 2 "general_operand" "tmK")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6066 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6067 + "lda\t%2\t;umulqihi3\;mul"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6068 + [(set_attr "length" "3")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6069 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6070 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6071 +; Expand a 16x16 multiplication into either a libcall or a shift.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6072 +; If the second operand is a small constant, use the above form.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6073 +; Otherwise, do a libcall.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6074 +(define_expand "mulhi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6075 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6076 + (mult:HI (match_operand:HI 1 "general_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6077 + (match_operand:HI 2 "nonmemory_operand" "")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6078 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6079 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6080 + emit_libcall_insns (HImode, "mulhi3", operands, 2);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6081 + DONE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6082 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6083 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6084 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6085 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6086 +;;- Divide instructions.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6087 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6088 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6089 +(define_expand "divhi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6090 + [(set (match_operand:HI 0 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6091 + (div:HI (match_operand:HI 1 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6092 + (match_operand:HI 2 "register_operand" "")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6093 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6094 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6095 + emit_libcall_insns (HImode, "divhi3", operands, 2);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6096 + DONE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6097 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6098 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6099 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6100 +(define_expand "divqi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6101 + [(set (match_operand:QI 0 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6102 + (div:QI (match_operand:QI 1 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6103 + (match_operand:QI 2 "register_operand" "")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6104 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6105 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6106 + emit_libcall_insns (QImode, "divqi3", operands, 2);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6107 + DONE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6108 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6109 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6110 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6111 +(define_expand "udivhi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6112 + [(set (match_operand:HI 0 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6113 + (udiv:HI (match_operand:HI 1 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6114 + (match_operand:HI 2 "register_operand" "")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6115 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6116 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6117 + emit_libcall_insns (HImode, "udivhi3", operands, 2);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6118 + DONE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6119 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6120 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6121 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6122 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6123 +;;- mod
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6124 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6125 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6126 +(define_expand "modhi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6127 + [(set (match_operand:HI 0 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6128 + (mod:HI (match_operand:HI 1 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6129 + (match_operand:HI 2 "register_operand" "")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6130 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6131 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6132 + emit_libcall_insns (HImode, "modhi3", operands, 2);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6133 + DONE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6134 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6135 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6136 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6137 +(define_expand "modqi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6138 + [(set (match_operand:QI 0 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6139 + (mod:QI (match_operand:QI 1 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6140 + (match_operand:QI 2 "register_operand" "")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6141 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6142 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6143 + emit_libcall_insns (QImode, "modqi3", operands, 2);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6144 + DONE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6145 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6146 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6147 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6148 +(define_expand "umodhi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6149 + [(set (match_operand:HI 0 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6150 + (umod:HI (match_operand:HI 1 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6151 + (match_operand:HI 2 "register_operand" "")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6152 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6153 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6154 + emit_libcall_insns (HImode, "umodhi3", operands, 2);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6155 + DONE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6156 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6157 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6158 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6159 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6160 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6161 +;;- and, or, xor common patterns
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6162 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6163 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6164 +; Split a bitwise HImode into two QImode instructions, with one of
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6165 +; the sources in a pushable register. The register is pushed onto
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6166 +; the stack and memory pop operands (,s+) are used in the QI forms.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6167 +(define_split
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6168 + [(set (match_operand:HI 0 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6169 + (match_operator:HI 3 "logical_bit_operator"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6170 + [(match_operand:HI 1 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6171 + (match_operand:HI 2 "register_operand" "")]))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6172 + "reload_completed"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6173 + [(set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 2))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6174 + (set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6175 + [(reg:QI HARD_A_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6176 + (mem:QI (post_inc:QI (reg:HI HARD_S_REGNUM)))]))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6177 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6178 + [(reg:QI HARD_D_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6179 + (mem:QI (post_inc:QI (reg:HI HARD_S_REGNUM)))]))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6180 + (use (reg:QI HARD_A_REGNUM))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6181 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6182 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6183 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6184 +; Split a bitwise HImode into two QImode instructions, with one
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6185 +; of the sources being a (MEM (MEM (...)); i.e. an indirect memory
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6186 +; reference. This requires dereferencing the pointer into a
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6187 +; temporary register (X), which must be saved/restored around the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6188 +; compute instructions.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6189 +(define_split
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6190 + [(set (match_operand:HI 0 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6191 + (match_operator:HI 3 "logical_bit_operator"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6192 + [(match_operand:HI 1 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6193 + (mem:HI (match_operand:HI 2 "memory_operand" ""))]))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6194 + "reload_completed"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6195 + [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6196 + (set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 4))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6197 + (set (match_dup 4) (match_dup 2))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6198 + (set (match_dup 4) (mem:HI (match_dup 4)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6199 + (set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6200 + [(reg:QI HARD_A_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6201 + (mem:QI (post_inc:QI (match_dup 4)))]))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6202 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6203 + [(reg:QI HARD_D_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6204 + (mem:QI (post_inc:QI (match_dup 4)))]))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6205 + (use (reg:QI HARD_A_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6206 + (set (match_dup 4) (mem:HI (post_inc:HI (reg:HI HARD_S_REGNUM))))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6207 + ]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6208 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6209 + /* Use X for a temporary index register */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6210 + operands[4] = gen_rtx_REG (HImode, HARD_X_REGNUM);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6211 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6212 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6213 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6214 +; Split a bitwise HImode into two QImode instructions. This is
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6215 +; the common case. This handles splitting when neither of the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6216 +; above two cases applies.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6217 +(define_split
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6218 + [(set (match_operand:HI 0 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6219 + (match_operator:HI 3 "logical_bit_operator"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6220 + [(match_operand:HI 1 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6221 + (match_operand:HI 2 "general_operand" "")]))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6222 + "reload_completed"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6223 + [(set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6224 + [(reg:QI HARD_A_REGNUM) (match_dup 4)]))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6225 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6226 + [(reg:QI HARD_D_REGNUM) (match_dup 5)]))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6227 + (use (reg:QI HARD_A_REGNUM))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6228 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6229 + if (GET_CODE (operands[2]) == CONST_INT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6230 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6231 + operands[4] = gen_rtx_const_high (operands[2]);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6232 + operands[5] = gen_rtx_const_low (operands[2]);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6233 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6234 + else if ((GET_CODE (operands[2]) == MEM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6235 + && (GET_CODE (XEXP (operands[2], 0)) == MEM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6236 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6237 + FAIL;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6238 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6239 + else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6240 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6241 + operands[4] = gen_highpart (QImode, operands[2]);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6242 + operands[5] = gen_lowpart (QImode, operands[2]);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6243 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6244 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6245 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6246 +; Below are the specific cases for each of the operators.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6247 +; The QImode versions are the simplest and can be implemented
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6248 +; directly on the hardware. The HImode cases are all output
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6249 +; using one of the above splitting techniques.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6250 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6251 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6252 +;;- and
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6253 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6254 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6255 +(define_insn "andhi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6256 + [(set (match_operand:HI 0 "register_operand" "=d")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6257 + (and:HI (match_operand:HI 1 "register_operand" "%0")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6258 + (match_operand:HI 2 "general_operand" "mnU")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6259 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6260 + "#")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6261 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6262 +;; it is not clear that this is correct
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6263 +(define_insn "*andqi_2"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6264 + [(set
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6265 + (match_operand:QI 0 "register_operand" "=q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6266 + (and:QI (match_operand:QI 1 "register_operand" "q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6267 + (match_operand 2 "const_int_operand" "i")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6268 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6269 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6270 + if (GET_CODE (operands[2]) == CONST_INT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6271 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6272 + operands[3] = GEN_INT(INTVAL(operands[2]) & 0xff);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6273 + return "and%0 %3";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6274 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6275 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6276 + return "and%0 %2";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6277 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6278 + [(set_attr "length" "2")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6279 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6280 +(define_insn "andqi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6281 + [(set (match_operand:QI 0 "register_operand" "=q,q,q,qc")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6282 + (and:QI (match_operand:QI 1 "whole_register_operand" "%0,0,0,0")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6283 + (match_operand:QI 2 "whole_general_operand" " O,N,m,i")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6284 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6285 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6286 + clr%0\t;andqi(ZERO)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6287 + \t;andqi(-1)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6288 + and%0\t%2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6289 + and%0\t%2"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6290 + [(set_attr "length" "1,0,3,2")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6291 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6292 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6293 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6294 +;;- or
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6295 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6296 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6297 +(define_insn "iorhi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6298 + [(set (match_operand:HI 0 "register_operand" "=d")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6299 + (ior:HI (match_operand:HI 1 "register_operand" "%0")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6300 + (match_operand:HI 2 "general_operand" "mnU")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6301 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6302 + "#")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6303 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6304 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6305 +(define_insn "iorqi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6306 + [(set (match_operand:QI 0 "register_operand" "=q,q, qc")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6307 + (ior:QI (match_operand:QI 1 "whole_register_operand" "%0,0, 0")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6308 + (match_operand:QI 2 "whole_general_operand" " O,m,i")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6309 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6310 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6311 + \t;iorqi(ZERO)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6312 + or%0\t%2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6313 + or%0\t%2"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6314 + [(set_attr "length" "0,3,2")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6315 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6316 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6317 +;;- xor
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6318 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6319 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6320 +(define_insn "xorhi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6321 + [(set (match_operand:HI 0 "register_operand" "=d")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6322 + (xor:HI (match_operand:HI 1 "register_operand" "%0")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6323 + (match_operand:HI 2 "general_operand" "mnU")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6324 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6325 + "#")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6326 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6327 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6328 +(define_insn "xorqi3"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6329 + [(set (match_operand:QI 0 "register_operand" "=q,q,q,q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6330 + (xor:QI (match_operand:QI 1 "whole_register_operand" "%0,0,0,0")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6331 + (match_operand:QI 2 "whole_general_operand" " O,N,m,i")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6332 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6333 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6334 + \t;xorqi(ZERO)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6335 + com%0\t;xorqi(-1)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6336 + eor%0\t%2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6337 + eor%0\t%2"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6338 + [(set_attr "length" "0,1,3,2")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6339 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6340 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6341 +;;- Two's Complements
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6342 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6343 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6344 +(define_insn "neghi2"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6345 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d,!a")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6346 + (neg:HI (match_operand:HI 1 "general_operand" "0, 0")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6347 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6348 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6349 + nega\;negb\;sbca\t#0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6350 + exg\td,%0\;nega\;negb\;sbca\t#0\;exg\td,%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6351 + [(set_attr "length" "5,9")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6352 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6353 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6354 +(define_insn "negqi2"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6355 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,m")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6356 + (neg:QI (match_operand:QI 1 "nonimmediate_operand" "0,0")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6357 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6358 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6359 + neg%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6360 + neg\t%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6361 + [(set_attr "length" "1,3")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6362 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6363 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6364 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6365 +;;- One's Complements
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6366 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6367 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6368 +(define_insn "one_cmplhi2"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6369 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d,?tm,???a")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6370 + (not:HI (match_operand:HI 1 "general_operand" "0, 0, 0")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6371 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6372 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6373 + coma\;comb
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6374 + com\t%0\;com\t%L0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6375 + exg\td,%0\;coma\;comb\;exg\td,%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6376 + [(set_attr "length" "2,6,6")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6377 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6378 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6379 +(define_insn "one_cmplqi2"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6380 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,m")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6381 + (not:QI (match_operand:QI 1 "nonimmediate_operand" "0,0")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6382 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6383 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6384 + com%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6385 + com\t%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6386 + [(set_attr "length" "1,3")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6387 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6388 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6389 +;;- Shifts/rotates
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6390 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6391 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6392 +(define_code_iterator bit_code [ashift ashiftrt lshiftrt])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6393 +(define_code_attr bit_code_name [(ashift "ashl") (ashiftrt "ashr") (lshiftrt "lshr")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6394 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6395 +(define_mode_iterator bit_mode [QI HI])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6396 +(define_mode_attr bit_mode_name [(QI "qi3") (HI "hi3")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6397 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6398 +;; Emit RTL for any shift (handles all 3 opcodes and 2 mode sizes)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6399 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6400 +(define_expand "<bit_code:bit_code_name><bit_mode:bit_mode_name>"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6401 + [(set (match_operand:bit_mode 0 "nonimmediate_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6402 + (bit_code:bit_mode (match_operand:bit_mode 1 "general_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6403 + (match_operand:bit_mode 2 "nonmemory_operand" "")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6404 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6405 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6406 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6407 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6408 +; Individual instructions implemented in the CPU.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6409 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6410 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6411 +(define_insn "*ashift1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6412 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6413 + (ashift:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6414 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6415 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6416 + asl\t%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6417 + asl%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6418 + [(set_attr "length" "3,1")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6419 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6420 +(define_insn "*lshiftrt1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6421 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6422 + (lshiftrt:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6423 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6424 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6425 + lsr\t%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6426 + lsr%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6427 + [(set_attr "length" "3,1")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6428 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6429 +(define_insn "*ashiftrt1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6430 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6431 + (ashiftrt:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6432 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6433 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6434 + asr\t%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6435 + asr%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6436 + [(set_attr "length" "3,1")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6437 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6438 +(define_insn "*rotate1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6439 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6440 + (rotate:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6441 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6442 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6443 + rol\t%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6444 + rol%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6445 + [(set_attr "length" "3,1")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6446 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6447 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6448 +(define_insn "*rotatert1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6449 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6450 + (rotatert:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6451 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6452 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6453 + ror\t%0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6454 + ror%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6455 + [(set_attr "length" "3,1")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6456 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6457 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6458 +; A shift by 8 for D reg can be optimized by just moving
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6459 +; between the A/B halves, and then zero/sign extending or
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6460 +; filling in zeroes.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6461 +; Because GCC does not understand that 'A' and 'D' refer to
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6462 +; the same storage location, we must use 'USE' throughout
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6463 +; to prevent deletion of 'unnecessary' instructions.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6464 +; Similar optimization for MEM would require a scratch register
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6465 +; so is not done here.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6466 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6467 +(define_split
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6468 + [(set (reg:HI HARD_D_REGNUM) (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 8)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6469 + "reload_completed"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6470 + [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6471 + (use (reg:HI HARD_D_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6472 + (set (reg:QI HARD_A_REGNUM) (reg:QI HARD_D_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6473 + (use (reg:QI HARD_A_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6474 + (set (reg:QI HARD_D_REGNUM) (const_int 0))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6475 + ]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6476 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6477 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6478 +(define_split
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6479 + [(set (reg:HI HARD_D_REGNUM) (lshiftrt:HI (reg:HI HARD_D_REGNUM) (const_int 8)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6480 + "reload_completed"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6481 + [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6482 + (use (reg:HI HARD_D_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6483 + (set (reg:QI HARD_D_REGNUM) (reg:QI HARD_A_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6484 + (use (reg:QI HARD_D_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6485 + (set (reg:HI HARD_D_REGNUM) (zero_extend:HI (reg:QI HARD_D_REGNUM)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6486 + ]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6487 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6488 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6489 +(define_split
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6490 + [(set (reg:HI HARD_D_REGNUM) (ashiftrt:HI (reg:HI HARD_D_REGNUM) (const_int 8)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6491 + "reload_completed"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6492 + [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6493 + (use (reg:HI HARD_D_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6494 + (set (reg:QI HARD_D_REGNUM) (reg:QI HARD_A_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6495 + (use (reg:QI HARD_D_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6496 + (set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6497 + ]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6498 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6499 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6500 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6501 +; On the WPC hardware, there is a shift register that can be used
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6502 +; to compute (1<<n) efficiently in two instructions. Note that this
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6503 +; form only works when using -mint8 though, because C will promote
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6504 +; to 'int' when doing this operation. TODO : we need a 16-bit form too.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6505 +(define_insn "ashlqi3_wpc"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6506 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6507 + (ashift:QI (match_operand:QI 1 "immediate_operand" "I")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6508 + (match_operand:QI 2 "general_operand" "q")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6509 + "TARGET_WPC"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6510 + "st%2\t0x3FF7\;ld%0\t0x3FF7"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6511 + [(set_attr "length" "6")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6512 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6513 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6514 +; Internal instructions for shifting by a constant.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6515 +; Two forms are provided, one for QImode, one for HImode.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6516 +; These are always split into the above instructions
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6517 +; (except for QImode forms that directly match one of the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6518 +; above instructions, in which the condition will not
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6519 +; allow the splitter to match).
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6520 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6521 +(define_insn_and_split "<bit_code:bit_code_name>hi3_const"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6522 + [(set (match_operand:HI 0 "nonimmediate_operand" "=dm")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6523 + (bit_code:HI (match_operand:HI 1 "general_operand" "0")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6524 + (match_operand:HI 2 "immediate_operand" "n")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6525 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6526 + "#"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6527 + "reload_completed"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6528 + [(const_int 0)]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6529 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6530 + m6809_split_shift (<bit_code:CODE>, operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6531 + DONE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6532 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6533 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6534 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6535 +(define_insn_and_split "<bit_code:bit_code_name>qi3_const"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6536 + [(set (match_operand:QI 0 "nonimmediate_operand" "=qm")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6537 + (bit_code:QI (match_operand:QI 1 "general_operand" "0")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6538 + (match_operand:QI 2 "immediate_operand" "n")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6539 + "INTVAL (operands[2]) > 1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6540 + "#"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6541 + "&& reload_completed"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6542 + [(const_int 0)]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6543 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6544 + m6809_split_shift (<bit_code:CODE>, operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6545 + DONE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6546 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6547 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6548 +; Internal instructions for shifting by a nonconstant.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6549 +; These expand into complex assembly.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6550 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6551 +(define_insn "<bit_code:bit_code_name>hi3_reg"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6552 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6553 + (bit_code:HI (match_operand:HI 1 "general_operand" "0")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6554 + (match_operand:HI 2 "nonimmediate_operand" "v")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6555 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6556 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6557 + m6809_output_shift_insn (<bit_code:CODE>, operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6558 + return "";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6559 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6560 + [(set_attr "length" "20")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6561 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6562 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6563 +(define_insn "<bit_code:bit_code_name>qi3_reg"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6564 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6565 + (bit_code:QI (match_operand:QI 1 "general_operand" "0")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6566 + (match_operand:QI 2 "nonimmediate_operand" "v")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6567 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6568 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6569 + m6809_output_shift_insn (<bit_code:CODE>, operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6570 + return "";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6571 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6572 + [(set_attr "length" "16")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6573 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6574 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6575 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6576 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6577 +;;- Jumps and transfers
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6578 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6579 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6580 +;;; The casesi pattern is normally not defined; see 'tablejump' instead.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6581 +(define_expand "casesi"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6582 + [(match_operand:HI 0 "register_operand" "") ; index to jump on
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6583 + (match_operand:HI 1 "immediate_operand" "") ; lower bound
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6584 + (match_operand:HI 2 "immediate_operand" "") ; total range
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6585 + (match_operand 3 "" "") ; table label
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6586 + (match_operand 4 "" "")] ; out of range label
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6587 + "TARGET_BYTE_INT && TARGET_CASESI"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6588 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6589 + m6809_do_casesi (operands[0], operands[1], operands[2],
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6590 + operands[3], operands[4]);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6591 + DONE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6592 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6593 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6594 +(define_insn "tablejump_short_offset"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6595 + [(set (pc)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6596 + (mem:HI (plus:HI (match_operand:HI 1 "register_operand" "U")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6597 + (zero_extend:HI (match_operand:QI 0 "register_operand" "q")))))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6598 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6599 + "jmp\t[b,x]\t;tablejump_short_offset"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6600 + [(set_attr "length" "3")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6601 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6602 +(define_insn "tablejump_long_offset"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6603 + [(set (pc)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6604 + (mem:HI (plus:HI (match_operand:HI 1 "register_operand" "U")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6605 + (match_operand:HI 0 "register_operand" "d"))))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6606 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6607 + "jmp\t[d,x]\t;tablejump_long_offset"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6608 + [(set_attr "length" "3")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6609 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6610 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6611 + ;; A tablejump operation gives the address in operand 0, with the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6612 + ;; CODE_LABEL for the table in operand 1. The 'define_expand'
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6613 + ;; shows the arguments as GCC presents them. For a register
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6614 + ;; operand, the assembly code is straightforward. For a MEM,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6615 + ;; assumed to be a SYMBOL_REF, two forms are given, one normal
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6616 + ;; and one for PIC mode.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6617 + (define_expand "tablejump"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6618 + [(parallel [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6619 + (set (pc) (match_operand:HI 0 "" ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6620 + (use (label_ref (match_operand 1 "" "")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6621 + (clobber (match_scratch:HI 2 ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6622 + ])]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6623 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6624 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6625 + })
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6626 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6627 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6628 +(define_insn "*tablejump_reg"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6629 + [(parallel [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6630 + (set (pc)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6631 + (match_operand:HI 0 "register_operand" "a"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6632 + (use (label_ref (match_operand 1 "" "")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6633 + (clobber (match_scratch:HI 2 ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6634 + ])]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6635 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6636 + "jmp\t,%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6637 + [(set_attr "length" "3")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6638 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6639 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6640 +(define_insn "*tablejump_symbol"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6641 + [(parallel [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6642 + (set (pc)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6643 + (mem:HI
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6644 + (plus:HI (match_operand:HI 0 "register_operand" "a")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6645 + (label_ref (match_operand 1 "" "")))))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6646 + (use (label_ref (match_dup 1)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6647 + (clobber (match_scratch:HI 2 ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6648 + ])]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6649 + "!flag_pic"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6650 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6651 + output_asm_insn ("jmp\t[%a1,%0]", operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6652 + return "";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6653 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6654 + [(set_attr "length" "4")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6655 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6656 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6657 +(define_insn "*tablejump_symbol_pic"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6658 + [(parallel [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6659 + (set (pc)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6660 + (mem:HI
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6661 + (plus:HI (match_operand:HI 0 "register_operand" "d")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6662 + (label_ref (match_operand 1 "" "")))))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6663 + (use (label_ref (match_dup 1)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6664 + (clobber (match_scratch:HI 2 "=&a"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6665 + ])]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6666 + "flag_pic"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6667 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6668 + output_asm_insn ("lea%2\t%a1,pcr", operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6669 + output_asm_insn ("ld%0\t%0,%2", operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6670 + output_asm_insn ("jmp\t%0,%2", operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6671 + return "";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6672 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6673 + [(set_attr "length" "8")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6674 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6675 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6676 +(define_insn "indirect_jump"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6677 + [(set (pc)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6678 + (match_operand:HI 0 "register_operand" "a"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6679 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6680 + "jmp\t,%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6681 + [(set_attr "length" "3")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6682 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6683 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6684 +(define_insn "jump"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6685 + [(set (pc) (label_ref (match_operand 0 "" "")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6686 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6687 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6688 + return output_branch_insn ( LABEL_REF, operands, get_attr_length (insn));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6689 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6690 + [(set (attr "type") (const_string "branch"))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6691 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6692 +; Output assembly for a condition branch instruction.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6693 +(define_insn "*cond_branch"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6694 + [(set (pc)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6695 + (if_then_else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6696 + (match_operator 1 "comparison_operator" [(cc0) (const_int 0)])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6697 + (label_ref (match_operand 0 "" "")) (pc)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6698 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6699 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6700 + return output_branch_insn ( GET_CODE(operands[1]),
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6701 + operands, get_attr_length (insn));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6702 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6703 + [(set (attr "type") (const_string "cbranch"))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6704 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6705 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6706 +; Similar to above, but for a condition branch instruction that
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6707 +; had its operands reversed at some point.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6708 +(define_insn "*cond_branch_reverse"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6709 + [(set (pc)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6710 + (if_then_else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6711 + (match_operator 1 "comparison_operator" [(cc0) (const_int 0)])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6712 + (pc) (label_ref (match_operand 0 "" ""))))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6713 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6714 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6715 + return output_branch_insn ( reverse_condition (GET_CODE(operands[1])),
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6716 + operands, get_attr_length (insn));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6717 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6718 + [(set (attr "type") (const_string "cbranch"))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6719 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6720 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6721 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6722 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6723 +;;- Calls
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6724 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6725 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6726 +;; Generate a call instruction for a function that does not
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6727 +;; return a value. The expander is used during RTL generation.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6728 +;; The instructions below are used during matching; only one
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6729 +;; of them will be used, depending on the type of function
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6730 +;; being called. The different conditions are:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6731 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6732 +;; 1) far_functionp - is this a far function? Those need
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6733 +;; to be output as indirect calls through a far-function
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6734 +;; handler.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6735 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6736 +;; 2) noreturn_functionp - if the function does not return,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6737 +;; we can use a 'jmp' instead of a 'jsr' to call it.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6738 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6739 +;; 3) is PIC mode enabled? If so, we'll always use
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6740 +;; relative calls (lbsr or lbra).
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6741 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6742 +;; Note: not all combinations are fully supported, especially
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6743 +;; relating to PIC.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6744 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6745 +;; The 'bsr' instruction is never generated.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6746 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6747 +(define_expand "call"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6748 + [(call (match_operand:HI 0 "memory_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6749 + (match_operand:HI 1 "general_operand" ""))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6750 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6751 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6752 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6753 +(define_insn "*call_nopic_far"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6754 + [(call (match_operand:HI 0 "memory_operand" "m")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6755 + (match_operand:HI 1 "general_operand" "g"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6756 + "far_functionp (operands[0])"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6757 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6758 + output_far_call_insn (operands, 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6759 + return "";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6760 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6761 + [(set_attr "length" "6")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6762 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6763 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6764 +; PIC forms come first, and should only match
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6765 +; (MEM (SYMBOL_REF)). Other MEM forms are treated as usual.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6766 +(define_insn "*call_pic"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6767 + [(call (mem:HI (match_operand:HI 0 "symbolic_operand" ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6768 + (match_operand:HI 1 "general_operand" "g"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6769 + "flag_pic && !noreturn_functionp (operands[0])"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6770 + "lbsr\t%C0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6771 + [(set_attr "length" "4")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6772 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6773 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6774 +(define_insn "*call_nopic"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6775 + [(call (match_operand:HI 0 "memory_operand" "m")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6776 + (match_operand:HI 1 "general_operand" "g"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6777 + "!noreturn_functionp (operands[0])"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6778 + "jsr\t%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6779 + [(set_attr "length" "3")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6780 + (set (attr "cycles") (const_int JSR_EXTENDED_CYCLES))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6781 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6782 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6783 +(define_insn "*call_noreturn_pic"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6784 + [(call (mem:HI (match_operand:HI 0 "symbolic_operand" ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6785 + (match_operand:HI 1 "general_operand" "g"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6786 + "flag_pic && noreturn_functionp (operands[0])"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6787 + "lbra\t%C0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6788 + [(set_attr "length" "4")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6789 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6790 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6791 +(define_insn "*call_noreturn_nopic"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6792 + [(call (match_operand:HI 0 "memory_operand" "m")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6793 + (match_operand:HI 1 "general_operand" "g"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6794 + "noreturn_functionp (operands[0])"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6795 + "jmp\t%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6796 + [(set_attr "length" "3")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6797 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6798 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6799 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6800 +;; Same as above, but for functions that do return a value.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6801 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6802 +(define_expand "call_value"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6803 + [(set (match_operand 0 "" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6804 + (call (match_operand:HI 1 "memory_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6805 + (match_operand:HI 2 "general_operand" "")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6806 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6807 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6808 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6809 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6810 +(define_insn "*call_value_far"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6811 + [(set (match_operand 0 "" "=gz")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6812 + (call (match_operand:HI 1 "memory_operand" "m")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6813 + (match_operand:HI 2 "general_operand" "g")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6814 + "far_functionp (operands[1])"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6815 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6816 + output_far_call_insn (operands, 1);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6817 + return "";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6818 +}
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6819 + [(set_attr "length" "6")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6820 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6821 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6822 +(define_insn "*call_value_pic"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6823 + [(set (match_operand 0 "" "=gz")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6824 + (call (mem:HI (match_operand:HI 1 "symbolic_operand" ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6825 + (match_operand:HI 2 "general_operand" "g")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6826 + "flag_pic"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6827 + "lbsr\t%C1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6828 + [(set_attr "length" "4")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6829 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6830 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6831 +(define_insn "*call_value_nopic"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6832 + [(set (match_operand 0 "" "=gz")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6833 + (call (match_operand:HI 1 "memory_operand" "m")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6834 + (match_operand:HI 2 "general_operand" "g")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6835 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6836 + "jsr\t%1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6837 + [(set_attr "length" "3")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6838 + (set (attr "cycles") (const_int JSR_EXTENDED_CYCLES))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6839 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6840 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6841 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6842 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6843 +;; How to generate an untyped call.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6844 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6845 +(define_expand "untyped_call"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6846 + [(parallel [(call (match_operand 0 "" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6847 + (const_int 0))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6848 + (match_operand 1 "" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6849 + (match_operand 2 "" "")])]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6850 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6851 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6852 + int i;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6853 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6854 + emit_call_insn (GEN_CALL (operands[0], const0_rtx, NULL, const0_rtx));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6855 + for (i=0; i < XVECLEN (operands[2], 0); i++)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6856 + {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6857 + rtx set = XVECEXP (operands[2], 0, i);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6858 + emit_move_insn (SET_DEST (set), SET_SRC (set));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6859 + }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6860 + emit_insn (gen_blockage ());
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6861 + DONE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6862 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6863 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6864 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6865 +(define_expand "sibcall"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6866 + [(parallel
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6867 + [(call (match_operand:HI 0 "memory_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6868 + (match_operand:HI 1 "immediate_operand" ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6869 + (use (reg:HI HARD_PC_REGNUM))])]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6870 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6871 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6872 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6873 +(define_insn "*sibcall_1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6874 + [(parallel
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6875 + [(call (match_operand:HI 0 "memory_operand" "m")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6876 + (match_operand:HI 1 "immediate_operand" "i"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6877 + (use (reg:HI HARD_PC_REGNUM))])]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6878 + "SIBLING_CALL_P(insn)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6879 + "jmp\t%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6880 + [(set_attr "length" "4")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6881 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6882 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6883 +(define_expand "sibcall_value"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6884 + [(parallel
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6885 + [(set (match_operand 0 "" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6886 + (call (match_operand:HI 1 "memory_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6887 + (match_operand:HI 2 "immediate_operand" "")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6888 + (use (reg:HI HARD_PC_REGNUM))])]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6889 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6890 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6891 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6892 +(define_insn "*sibcall_value_1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6893 + [(parallel
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6894 + [(set (match_operand 0 "" "=gz")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6895 + (call (match_operand:HI 1 "memory_operand" "m")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6896 + (match_operand:HI 2 "immediate_operand" "i")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6897 + (use (reg:HI HARD_PC_REGNUM))])]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6898 + "SIBLING_CALL_P(insn)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6899 + "jmp\t%1"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6900 + [(set_attr "length" "4")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6901 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6902 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6903 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6904 +;;- Function Entry and Exit
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6905 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6906 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6907 +;; On entry to a function, the stack frame looks as follows:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6908 +;; - return address (pushed by the caller)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6909 +;; - saved registers
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6910 +;; - local variable storage
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6911 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6912 +;; If the function does not modify the stack after that, then
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6913 +;; any of these can be accessed directly as an offset from
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6914 +;; STACK_POINTER_REGNUM. Otherwise, a frame pointer is required.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6915 +;; In that case, the prologue must also initialize HARD_FRAME_POINTER_REGNUM
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6916 +;; and all references to the stack frame will use that as a base instead.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6917 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6918 +(define_expand "prologue"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6919 + [(const_int 0)]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6920 + "prologue_epilogue_required ()"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6921 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6922 + emit_prologue_insns ();
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6923 + DONE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6924 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6925 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6926 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6927 +;; The function epilogue does exactly the reverse of the prologue,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6928 +;; deallocating local variable space, restoring saved registers,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6929 +;; and returning.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6930 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6931 +;; For the 6809, the return may be 'rti' if the function was
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6932 +;; declared as an interrupt function, but is normally 'rts'.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6933 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6934 +;; Also, as an optimization, the register restore and the 'rts'
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6935 +;; can be combined into a single instruction, by adding 'PC' to the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6936 +;; list of registers to be restored. This is only done if there are
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6937 +;; any saved registers, as 'rts' is more efficient by itself.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6938 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6939 +(define_expand "epilogue"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6940 + [(const_int 0)]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6941 + "prologue_epilogue_required ()"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6942 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6943 + emit_epilogue_insns (false);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6944 + DONE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6945 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6946 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6947 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6948 +(define_expand "sibcall_epilogue"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6949 + [(const_int 0)]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6950 + "prologue_epilogue_required ()"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6951 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6952 + emit_epilogue_insns (true);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6953 + DONE;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6954 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6955 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6956 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6957 +;; The RTS instruction
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6958 +(define_insn "return_rts"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6959 + [(return)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6960 + (use (reg:HI HARD_PC_REGNUM))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6961 + "!m6809_current_function_has_type_attr_p (\"interrupt\")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6962 + && m6809_get_live_regs () == 0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6963 + "rts"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6964 + [(set_attr "length" "1")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6965 + (set (attr "cycles") (const_int RTS_CYCLES))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6966 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6967 +(define_insn "return_puls_pc"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6968 + [(return)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6969 + (use (reg:HI HARD_PC_REGNUM))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6970 + "!m6809_current_function_has_type_attr_p (\"interrupt\")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6971 + && m6809_get_live_regs () != 0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6972 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6973 + [(set_attr "length" "1")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6974 + (set (attr "cycles") (const_int RTS_CYCLES))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6975 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6976 +;; The RTI instruction
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6977 +(define_insn "return_rti"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6978 + [(return)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6979 + (use (reg:HI HARD_PC_REGNUM))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6980 + "m6809_current_function_has_type_attr_p (\"interrupt\")"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6981 + "rti"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6982 + [(set_attr "length" "1")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6983 + (set (attr "cycles") (const_int RTI_CYCLES))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6984 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6985 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6986 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6987 +;;- Unspecified instructions
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6988 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6989 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6990 +;; An instruction that has the effect of an unspec_volatile, but
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6991 +;; which doesn't require emitting any assembly code.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6992 +(define_insn "blockage"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6993 + [(unspec_volatile [(const_int 0)] UNSPEC_BLOCKAGE)]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6994 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6995 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6996 + [(set_attr "length" "0")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6997 + (set (attr "cycles") (const_int 0))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6998 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	6999 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7000 +;; Say how to push multiple registers onto the stack, using
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7001 +;; the 6809 'pshs' instruction. The operand is a regset
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7002 +;; specifying which registers to push.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7003 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7004 +;; The operand mode is not given intentionally, so as to allow
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7005 +;; any possible integer mode for the regset.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7006 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7007 +;; See below for a peephole that can combine consecutive push
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7008 +;; instructions that qualify for merging.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7009 +(define_insn "register_push"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7010 + [(use (reg:HI HARD_S_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7011 + (unspec_volatile
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7012 + [(match_operand 0 "immediate_operand" "")] UNSPEC_PUSH_RS)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7013 + (clobber (reg:HI HARD_S_REGNUM))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7014 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7015 + "pshs\t%R0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7016 + [(set_attr "length" "2")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7017 + (set (attr "cycles") (const_int PSH_PUL_CYCLES))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7018 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7019 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7020 +;; Say how to pop multiple registers from the stack, using
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7021 +;; the 6809 'puls' instruction. The operand is the register
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7022 +;; bitset value.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7023 +(define_insn "register_pop"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7024 + [(use (reg:HI HARD_S_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7025 + (unspec_volatile
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7026 + [(match_operand 0 "immediate_operand" "")] UNSPEC_POP_RS)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7027 + (clobber (reg:HI HARD_S_REGNUM))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7028 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7029 + "puls\t%R0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7030 + [(set_attr "length" "2")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7031 + (set (attr "cycles") (const_int PSH_PUL_CYCLES))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7032 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7033 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7034 +(define_insn "m6809_swi"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7035 + [(unspec_volatile
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7036 + [(match_operand:QI 0 "immediate_operand" "I,n")] UNSPEC_SWI)]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7037 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7038 + "@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7039 + swi
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7040 + swi%c0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7041 + [(set_attr "length" "1,2")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7042 + (set (attr "cycles") (const_int SWI_CYCLES))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7043 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7044 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7045 +;; Generate the CWAI instruction
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7046 +(define_insn "m6809_cwai"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7047 + [(unspec_volatile
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7048 + [(match_operand:QI 0 "immediate_operand" "")] UNSPEC_CWAI)]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7049 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7050 + "cwai\t%0"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7051 + [(set_attr "length" "2")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7052 + (set (attr "cycles") (const_int CWAI_CYCLES))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7053 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7054 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7055 +;; Generate the SYNC instruction
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7056 +(define_insn "m6809_sync"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7057 + [(unspec_volatile [(const_int 0)] UNSPEC_SYNC)]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7058 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7059 + "sync"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7060 + [(set_attr "length" "1")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7061 + (set (attr "cycles") (const_int SYNC_CYCLES))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7062 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7063 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7064 +;; Generate the NOP instruction
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7065 +(define_insn "nop"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7066 + [(const_int 0)]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7067 + ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7068 + "nop"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7069 + [(set_attr "length" "1")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7070 + (set (attr "cycles") (const_int NOP_CYCLES))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7071 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7072 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7073 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7074 +;;- Peepholes
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7075 +;;--------------------------------------------------------------------
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7076 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7077 +;;; Each peephole has an ID that is used for debugging.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7078 +;;; Each peephole condition is bracketed by calls to
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7079 +;;; m6809_match_peephole2() also for debugging.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7080 +(define_constants [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7081 + (PEEP_END 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7082 + (PEEP_COND 1)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7083 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7084 + (PEEP_STACK_STORE_INC 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7085 + (PEEP_STACK_CLEAR_INC 1)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7086 + (PEEP_LSRB_ADCB 2)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7087 + (PEEP_ABX 3)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7088 + (PEEP_ABX2 4)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7089 + (PEEP_INDEXED_INC 5)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7090 + (PEEP_MEM_DEC 6)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7091 + (PEEP_MEM_INC 7)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7092 + (PEEP_MEM_DEC_CMP 8)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7093 + (PEEP_PUSH2 9)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7094 + (PEEP_STORE_IMPLIES_CC 10)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7095 + (PEEP_DEC_IMPLIES_CC 11)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7096 + (PEEP_LEAB 12)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7097 + (PEEP_LDX_INDIRECT 13)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7098 + (PEEP_POP_JUNK 14)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7099 +])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7100 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7101 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7102 +;;; Optimize 'leas -1,s' followed by 'stb ,s'. This can happen if the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7103 +;;; function prologue needs to allocate stack space and 'b' is placed
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7104 +;;; into that local right away. Combine the stack allocation with the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7105 +;;; store using preincrement mode.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7106 +(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7107 + [(set (reg:HI HARD_S_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7108 + (plus:HI (reg:HI HARD_S_REGNUM) (const_int -1)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7109 + (set (mem:QI (reg:HI HARD_S_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7110 + (match_operand:QI 0 "register_operand" ""))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7111 + "m6809_match_peephole2 (PEEP_STACK_STORE_INC, PEEP_END)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7112 + [(set (mem:QI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 0))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7113 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7114 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7115 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7116 +;;; Same as above, but for a 'clr ,s' that follows the prologue.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7117 +(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7118 + [(set (reg:HI HARD_S_REGNUM) (plus:HI (reg:HI HARD_S_REGNUM) (const_int -1)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7119 + (set (mem:QI (reg:HI HARD_S_REGNUM)) (const_int 0))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7120 + "m6809_match_peephole2 (PEEP_STACK_CLEAR_INC, PEEP_END)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7121 + [(set (mem:QI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (const_int 0))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7122 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7123 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7124 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7125 +;;; Merge two consecutive push instructions into a single register_push.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7126 +(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7127 + [(set (match_operand 0 "push_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7128 + (match_operand 1 "register_operand" ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7129 + (set (match_operand 2 "push_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7130 + (match_operand 3 "register_operand" ""))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7131 + "m6809_match_peephole2 (PEEP_PUSH2, PEEP_COND)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7132 + && reload_completed
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7133 + && GET_MODE (operands[1]) == GET_MODE (operands[3])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7134 + && m6809_can_merge_pushpop_p (UNSPEC_PUSH_RS, 1 << REGNO (operands[1]), 1 << REGNO (operands[3]))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7135 + && m6809_match_peephole2 (PEEP_PUSH2, PEEP_END)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7136 + [(parallel [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7137 + (use (reg:HI HARD_S_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7138 + (unspec_volatile [(match_dup 4)] UNSPEC_PUSH_RS)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7139 + (clobber (reg:HI HARD_S_REGNUM))])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7140 + (use (match_dup 1))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7141 + (use (match_dup 3))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7142 +{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7143 + operands[4] = gen_rtx_CONST_INT (QImode,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7144 + (1 << REGNO (operands[1])) \| (1 << REGNO (operands[3])));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7145 +})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7146 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7147 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7148 +;;; Convert 'stX ,--s' into a push instruction. Use the regset
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7149 +;;; notation, so that it may be combined with an adjacent regset.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7150 +;;; TBD - this doesn't compile some code cleanly.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7151 +;(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7152 +; [(set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7153 +; (reg:HI HARD_X_REGNUM))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7154 +; "reload_completed"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7155 +; [(parallel [
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7156 +; (use (reg:HI HARD_S_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7157 +; (unspec_volatile [(match_dup 0)] UNSPEC_PUSH_RS)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7158 +; (clobber (reg:HI HARD_S_REGNUM))])]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7159 +;{
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7160 +; operands[0] = gen_rtx_CONST_INT (HImode, X_REGBIT);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7161 +;})
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7162 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7163 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7164 +;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7165 +;;; q = (q+1)/2 can be optimized as "lsrb; adcb". This also
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7166 +;;; won't overflow when q=0xFF.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7167 +;;; TODO : this form isn't accounting for promotion when
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7168 +;;; using 16-bit ints.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7169 +;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7170 +(define_peephole
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7171 + [(set (reg:QI HARD_D_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7172 + (lshiftrt:QI (plus:HI (match_dup 0) (const_int 1)) (const_int 1)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7173 + "m6809_match_peephole2 (PEEP_LSRB_ADCB, PEEP_END)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7174 + "lsrb\;adcb\t#0; peephole"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7175 + [(set_attr "length" "2")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7176 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7177 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7178 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7179 +;; Optimize the case of following a register store with a test
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7180 +;; of reg or mem just moved.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7181 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7182 +(define_peephole
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7183 + [(set (match_operand:HI 0 "memory_operand" "=m")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7184 + (match_operand:HI 1 "register_operand" "r"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7185 + (set (cc0) (match_operand:HI 2 "general_operand" "g"))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7186 + "m6809_match_peephole2 (PEEP_STORE_IMPLIES_CC, PEEP_COND)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7187 + && (operands[2] == operands[0] \|\| operands[2] == operands[1])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7188 + && m6809_match_peephole2 (PEEP_STORE_IMPLIES_CC, PEEP_END)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7189 + "st%1\t%0\t;movhi: R:%1 -> %0 w/ implied test of %2"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7190 + [(set_attr "length" "4")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7191 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7192 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7193 +;; Optimize a pair of SET instructions in which the second insn
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7194 +;; is the reverse of the first one. I.e.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7195 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7196 +;; A = B
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7197 +;; ----> A = B
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7198 +;; B = A
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7199 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7200 +;; The second insn is redundant. Define two patterns, one for QI, one for HI.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7201 +;; But don't do this if either is a VOLATILE MEM.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7202 +(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7203 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7204 + (match_operand:HI 1 "nonimmediate_operand" ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7205 + (set (match_dup 1) (match_dup 0))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7206 + "!MEM_P (operands[0]) \|\| !MEM_P (operands[1]) \|\| (!MEM_VOLATILE_P (operands[0]) && !MEM_VOLATILE_P (operands[1]))"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7207 + [(set (match_dup 0) (match_dup 1))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7208 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7209 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7210 +(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7211 + [(set (match_operand:QI 0 "nonimmediate_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7212 + (match_operand:QI 1 "nonimmediate_operand" ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7213 + (set (match_dup 1) (match_dup 0))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7214 + "!MEM_P (operands[0]) \|\| !MEM_P (operands[1]) \|\| (!MEM_VOLATILE_P (operands[0]) && !MEM_VOLATILE_P (operands[1]))"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7215 + [(set (match_dup 0) (match_dup 1))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7216 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7217 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7218 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7219 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7220 +;; Optimize the sum of an 8-bit and 16-bit using the 'abx' instruction
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7221 +;; if B and X can be used. Two patterns are provided to catch both
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7222 +;; X=X+D and X=D+X.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7223 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7224 +(define_peephole
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7225 + [(set (reg:HI HARD_D_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7226 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7227 + (set (reg:HI HARD_X_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7228 + (plus:HI (reg:HI HARD_D_REGNUM) (reg:HI HARD_X_REGNUM)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7229 + "m6809_match_peephole2 (PEEP_ABX, PEEP_END)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7230 + "abx"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7231 + [(set_attr "length" "1")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7232 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7233 +(define_peephole
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7234 + [(set (reg:HI HARD_D_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7235 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7236 + (set (reg:HI HARD_X_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7237 + (plus:HI (reg:HI HARD_X_REGNUM) (reg:HI HARD_D_REGNUM)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7238 + "m6809_match_peephole2 (PEEP_ABX, PEEP_END)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7239 + "abx"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7240 + [(set_attr "length" "1")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7241 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7242 +;;; Likewise, handle when B is scaled by 2 prior to the add.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7243 +;;; Instead of shifting B in 4 cycles, just do the ABX a second
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7244 +;;; time, in only 3 cycles.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7245 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7246 +(define_peephole
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7247 + [(set (reg:HI HARD_D_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7248 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7249 + (set (reg:HI HARD_D_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7250 + (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 1)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7251 + (set (reg:HI HARD_X_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7252 + (plus:HI (reg:HI HARD_D_REGNUM) (reg:HI HARD_X_REGNUM)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7253 + "m6809_match_peephole2 (PEEP_ABX2, PEEP_END)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7254 + "abx\;abx"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7255 + [(set_attr "length" "2")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7256 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7257 +(define_peephole
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7258 + [(set (reg:HI HARD_D_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7259 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7260 + (set (reg:HI HARD_D_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7261 + (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 1)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7262 + (set (reg:HI HARD_X_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7263 + (plus:HI (reg:HI HARD_X_REGNUM) (reg:HI HARD_D_REGNUM)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7264 + "m6809_match_peephole2 (PEEP_ABX2, PEEP_END)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7265 + "abx\;abx"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7266 + [(set_attr "length" "2")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7267 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7268 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7269 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7270 +;; Work around a compiler bug that generates bad code when copying
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7271 +;; between 32-bit memory addresses after a libcall. The problem seen is
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7272 +;; that the source is MEM (REG X), but X is used as the reload register.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7273 +;; The second half of the copy therefore fails.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7274 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7275 +;; The solution is to switch the reload register to D, since that is guaranteed
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7276 +;; not to be in use right after a libcall.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7277 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7278 +(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7279 + [(set (reg:HI HARD_X_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7280 + (set (match_operand:HI 0 "nonimmediate_operand" "") (reg:HI HARD_X_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7281 + (set (reg:HI HARD_X_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7282 + (mem:HI (plus:HI (reg:HI HARD_X_REGNUM) (const_int 2))))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7283 + (set (match_operand:HI 1 "nonimmediate_operand" "") (reg:HI HARD_X_REGNUM))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7284 + "reload_completed"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7285 + [(set (reg:HI HARD_D_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7286 + (set (match_dup 0) (reg:HI HARD_D_REGNUM))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7287 + (set (reg:HI HARD_X_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7288 + (mem:HI (plus:HI (reg:HI HARD_X_REGNUM) (const_int 2))))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7289 + (set (match_dup 1) (reg:HI HARD_X_REGNUM))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7290 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7291 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7292 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7293 +;; Turn "and then test" into a "bit test" operation.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7294 +;; Provide variants for immediate and memory sources
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7295 +;; This is the most used peephople.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7296 +; (define_peephole
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7297 +; [(set (match_operand:QI 0 "register_operand" "=q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7298 +; (and:QI (match_operand:QI 1 "register_operand" "0")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7299 +; (match_operand:QI 2 "immediate_operand" "i")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7300 +; (set (cc0) (match_dup 0))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7301 +; ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7302 +; "bit%0\t%2"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7303 +; [(set_attr "length" "3")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7304 +;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7305 +; (define_peephole
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7306 +; [(set (match_operand:QI 0 "register_operand" "=q")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7307 +; (and:QI (match_operand:QI 1 "register_operand" "0")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7308 +; (match_operand:QI 2 "memory_operand" "m")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7309 +; (set (cc0) (match_dup 0))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7310 +; ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7311 +; "bit%0\t%2"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7312 +; [(set_attr "length" "4")])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7313 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7314 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7315 +;; Turn a "decrement, then test" sequence into just a "decrement".
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7316 +;; The test can be omitted, since it is implicitly done.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7317 +(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7318 + [(set (match_operand:QI 0 "nonimmediate_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7319 + (plus:QI (match_operand:QI 1 "whole_general_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7320 + (match_operand:QI 2 "immediate_operand" "")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7321 + (set (cc0) (match_dup 0))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7322 + "m6809_match_peephole2 (PEEP_DEC_IMPLIES_CC, PEEP_END)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7323 + [(set (match_dup 0) (plus:QI (match_dup 1) (match_dup 2)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7324 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7325 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7326 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7327 +;; Merge an indexed register increment with a previous usage.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7328 +;; This is usually done automatically, but not always
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7329 +;; The 'use' should be optional; in all cases where this has been
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7330 +;; seen, it is required though.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7331 +(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7332 + [(set (match_operand:QI 0 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7333 + (mem:QI (match_operand:HI 1 "index_register_operand" "")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7334 + (use (match_dup 0))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7335 + (set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7336 + "m6809_match_peephole2 (PEEP_INDEXED_INC, PEEP_END)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7337 + [(set (match_dup 0) (mem:QI (post_inc:HI (match_dup 1))))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7338 + (use (match_dup 0))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7339 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7340 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7341 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7342 +;;; Merge "ldX MEM; ldX ,X" into a single instruction using
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7343 +;;; the indirect mode.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7344 +(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7345 + [(set (reg:HI HARD_X_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7346 + (mem:HI (match_operand:HI 0 "general_operand" "")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7347 + (set (reg:HI HARD_X_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7348 + "reload_completed && m6809_match_peephole2 (PEEP_LDX_INDIRECT, PEEP_END)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7349 + [(set (reg:HI HARD_X_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7350 + (mem:HI (mem:HI (match_dup 0))))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7351 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7352 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7353 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7354 +;;; Reorder a store followed by a unary operation on that memory
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7355 +;;; so that the unary is performed and then the store. Consider
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7356 +;;; a binary shift operation, which will be decomposed into
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7357 +;;; identical single shifts, also.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7358 +;;; TODO - recognize more than just 'ashift' here.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7359 +(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7360 + [(set (match_operand:QI 0 "memory_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7361 + (match_operand:QI 1 "register_operand" ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7362 + (set (match_dup 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7363 + (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7364 + "reload_completed"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7365 + [(set (match_dup 1)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7366 + (ashift:QI (match_dup 1) (match_operand:QI 2 "immediate_operand")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7367 + (set (match_dup 0) (match_dup 1))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7368 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7369 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7370 +;;; Likewise, reorder a unary MEM followed by a load, so that the load
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7371 +;;; is done first, then use the REG instead of the MEM.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7372 +;;;(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7373 +;;; [(set (match_dup 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7374 +;;; (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7375 +;;; (set (match_operand:QI 0 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7376 +;;; (match_operand:QI 1 "memory_operand" ""))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7377 +;;; "reload_completed"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7378 +;;; [(set (match_dup 0) (match_dup 1))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7379 +;;; (set (match_dup 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7380 +;;; (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7381 +;;; "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7382 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7383 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7384 +;;; Replace sex; leaX d,Y with leaX b,Y.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7385 +;;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7386 +(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7387 + [(set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7388 + (set (match_operand:HI 0 "index_register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7389 + (plus:HI (match_operand:HI 1 "index_register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7390 + (reg:HI HARD_D_REGNUM)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7391 + "reload_completed && m6809_match_peephole2 (PEEP_LEAB, PEEP_END)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7392 + [(set (match_dup 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7393 + (plus:HI (match_dup 1) (reg:QI HARD_D_REGNUM)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7394 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7395 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7396 +(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7397 + [(set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7398 + (set (match_operand:HI 0 "index_register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7399 + (plus:HI (reg:HI HARD_D_REGNUM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7400 + (match_operand:HI 1 "index_register_operand" "")))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7401 + "reload_completed && m6809_match_peephole2 (PEEP_LEAB, PEEP_END)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7402 + [(set (match_dup 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7403 + (plus:HI (match_dup 1) (reg:QI HARD_D_REGNUM)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7404 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7405 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7406 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7407 +;;; Replace ldb; decb; stb; tstb with dec(mem). If the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7408 +;;; register is not needed, then the load will get deleted
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7409 +;;; automatically, but it may be needed for comparisons.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7410 +;;; Same for incb/inc.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7411 +(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7412 + [(set (match_operand:QI 0 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7413 + (match_operand:QI 1 "nonimmediate_operand" ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7414 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int -1)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7415 + (set (match_dup 1) (match_dup 0))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7416 + (set (cc0) (match_dup 0))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7417 + "m6809_match_peephole2 (PEEP_MEM_DEC_CMP, PEEP_END)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7418 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int -1)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7419 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7420 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7421 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7422 +;;; Replace ldb; decb; stb with dec(mem); ldb. If the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7423 +;;; register is not needed, then the load will get deleted
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7424 +;;; automatically, but it may be needed for comparisons.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7425 +;;; Same for incb/inc.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7426 +(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7427 + [(set (match_operand:QI 0 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7428 + (match_operand:QI 1 "nonimmediate_operand" ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7429 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int -1)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7430 + (set (match_dup 1) (match_dup 0))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7431 + "m6809_match_peephole2 (PEEP_MEM_DEC, PEEP_END)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7432 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int -1)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7433 + (set (match_dup 0) (match_dup 1))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7434 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7435 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7436 +(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7437 + [(set (match_operand:QI 0 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7438 + (match_operand:QI 1 "nonimmediate_operand" ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7439 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int 1)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7440 + (set (match_dup 1) (match_dup 0))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7441 + "m6809_match_peephole2 (PEEP_MEM_INC, PEEP_END)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7442 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int 1)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7443 + (set (match_dup 0) (match_dup 1))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7444 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7445 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7446 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7447 +;;; Replace "andb #N; cmpb #N; bhi" with "andb #N", if it can be proven
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7448 +;;; that the branch can never occur because of the limited range of B.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7449 +;;; N must be a power of two for this to make sense. This helps with
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7450 +;;; the default cases of switch statements on a value (x & N).
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7451 +(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7452 + [(set (match_operand:QI 0 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7453 + (and:QI (match_dup 0) (match_operand:QI 1 "immediate_operand" "")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7454 + (set (cc0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7455 + (compare (match_dup 0) (match_dup 1)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7456 + (set (pc) (if_then_else (gtu (cc0) (const_int 0)) (match_operand 2 "" "") (match_operand 3 "" "")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7457 + ]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7458 + "reload_completed && power_of_two_p (INTVAL (operands[1]) + 1)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7459 + [(set (match_dup 0) (and:QI (match_dup 0) (match_dup 1)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7460 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7461 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7462 +;;; Replace ldd <mem>; addd #1; std <mem> with 16-bit increment
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7463 +;;; of the mem, but only if D is dead. Same for 16-bit decrement.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7464 +;;; <mem> must be offsettable for the instruction to match.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7465 +(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7466 + [(set (match_operand:HI 0 "register_operand" "") (match_operand:HI 1 "memory_operand" ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7467 + (set (match_dup 0) (plus:HI (match_dup 0) (const_int 1)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7468 + (set (match_dup 1) (match_dup 0))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7469 + "reload_completed
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7470 + && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7471 + && peep2_reg_dead_p (3, operands[0])"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7472 + [(set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7473 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7474 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7475 +(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7476 + [(set (match_operand:HI 0 "register_operand" "") (match_operand:HI 1 "memory_operand" ""))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7477 + (set (match_dup 0) (plus:HI (match_dup 0) (const_int -1)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7478 + (set (match_dup 1) (match_dup 0))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7479 + "reload_completed
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7480 + && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7481 + && peep2_reg_dead_p (3, operands[0])"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7482 + [(set (match_dup 1) (plus:HI (match_dup 1) (const_int -1)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7483 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7484 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7485 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7486 +;;; Replace a load or store using an indexed register, followed by an increment of that
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7487 +;;; register, with the combined form using autoincrement.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7488 +(define_peephole2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7489 + [(set (match_operand:QI 0 "register_operand" "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7490 + (mem:QI (match_operand:HI 1 "index_register_operand" "")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7491 + (set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7492 + "reload_completed"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7493 + [(set (match_dup 0) (mem:QI (post_inc (match_dup 1))))]
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7494 + "")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7495 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7496 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7497 +;;- mode:emacs-lisp
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7498 +;;- comment-start: ";;- "
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7499 +;;- eval: (set-syntax-table (copy-sequence (syntax-table)))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7500 +;;- eval: (modify-syntax-entry ?[ "(]")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7501 +;;- eval: (modify-syntax-entry ?] ")[")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7502 +;;- eval: (modify-syntax-entry ?{ "(}")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7503 +;;- eval: (modify-syntax-entry ?} "){")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7504 +;-; vim: set ts=2:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7505 +;-; vim: set expandtab:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7506 +;-; vim: set filetype=lisp:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7507 +;;- End:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7508 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.opt gcc-4.6.4/gcc/config/m6809/m6809.opt
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7509 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.opt 1969-12-31 17:00:00.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7510 +++ gcc-4.6.4/gcc/config/m6809/m6809.opt 2015-07-20 19:44:52.770843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7511 @@ -0,0 +1,98 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7512 +; Options for the M6809 port of the compiler
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7513 +;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7514 +; Copyright (C) 2005 Free Software Foundation, Inc.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7515 +;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7516 +; This file is part of GCC.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7517 +;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7518 +; GCC is free software; you can redistribute it and/or modify it under
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7519 +; the terms of the GNU General Public License as published by the Free
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7520 +; Software Foundation; either version 2, or (at your option) any later
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7521 +; version.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7522 +;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7523 +; GCC is distributed in the hope that it will be useful, but WITHOUT
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7524 +; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7525 +; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7526 +; License for more details.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7527 +;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7528 +; You should have received a copy of the GNU General Public License
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7529 +; along with GCC; see the file COPYING. If not, write to the Free
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7530 +; Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7531 +; 02110-1301, USA.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7532 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7533 +margcount
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7534 +Target Mask(ARGCOUNT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7535 +Push argument count
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7536 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7537 +mint8
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7538 +Target RejectNegative Mask(BYTE_INT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7539 +Use 8-bit integers
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7540 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7541 +mint16
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7542 +Target RejectNegative
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7543 +Use 16-bit integers InverseMask(BYTE_INT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7544 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7545 +mreg-args
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7546 +Target Mask(REG_ARGS)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7547 +Use registers for function arguments
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7548 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7549 +mshort_size
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7550 +Target RejectNegative Mask(SMALL_SIZE_T)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7551 +Use 8-bit size_t
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7552 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7553 +mlong_size
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7554 +Target RejectNegative InverseMask(SMALL_SIZE_T)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7555 +Use 16-bit size_t
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7556 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7557 +mdirect
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7558 +Target Mask(DIRECT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7559 +Enable direct addressing
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7560 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7561 +mwpc
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7562 +Target RejectNegative Mask(WPC)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7563 +Enable WPC platform extensions
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7564 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7565 +mexperiment
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7566 +Target RejectNegative Mask(EXPERIMENT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7567 +Enable current experimental feature
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7568 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7569 +m6309
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7570 +Target RejectNegative Mask(6309)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7571 +Enable Hitachi 6309 extensions
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7572 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7573 +mcasesi
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7574 +Target RejectNegative Mask(CASESI)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7575 +Enable the casesi pattern
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7576 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7577 +mfar-code-page=
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7578 +Target RejectNegative Joined Var(far_code_page_option)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7579 +Sets the far code page value for this compilation unit
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7580 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7581 +mcode-section=
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7582 +Target RejectNegative Joined Var(code_section_ptr)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7583 +Sets the name of the section for code
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7584 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7585 +mdata-section=
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7586 +Target RejectNegative Joined Var(data_section_ptr)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7587 +Sets the name of the section for initialized data
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7588 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7589 +mbss-section=
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7590 +Target RejectNegative Joined Var(bss_section_ptr)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7591 +Sets the name of the section for uninitialized data
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7592 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7593 +mabi_version=
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7594 +Target RejectNegative Joined Var(m6809_abi_version_ptr)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7595 +Sets the calling convention
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7596 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7597 +msoft-reg-count=
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7598 +Target RejectNegative Joined Var(m6809_soft_reg_count)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7599 +Sets the number of soft registers that can be used
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7600 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7601 +mdret
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7602 +Target RejectNegative Mask(DRET)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7603 +Put function call results in D, not X
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7604 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7605 +mfar-stack-param
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7606 +Target Mask(FAR_STACK_PARAM)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7607 +Enable stack parameters to a farcall
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7608 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7609 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7610 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809-protos.h gcc-4.6.4/gcc/config/m6809/m6809-protos.h
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7611 --- gcc-4.6.4-clean/gcc/config/m6809/m6809-protos.h 1969-12-31 17:00:00.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7612 +++ gcc-4.6.4/gcc/config/m6809/m6809-protos.h 2015-07-20 19:44:52.770843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7613 @@ -0,0 +1,94 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7614 +/* GCC for 6809 : machine-specific function prototypes
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7615 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7616 +This file is part of GCC.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7617 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7618 +GCC is free software; you can redistribute it and/or modify
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7619 +it under the terms of the GNU General Public License as published by
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7620 +the Free Software Foundation; either version 3, or (at your option)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7621 +any later version.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7622 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7623 +GCC is distributed in the hope that it will be useful,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7624 +but WITHOUT ANY WARRANTY; without even the implied warranty of
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7625 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7626 +GNU General Public License for more details.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7627 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7628 +You should have received a copy of the GNU General Public License
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7629 +along with GCC; see the file COPYING3. If not see
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7630 +<http://www.gnu.org/licenses/>. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7631 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7632 +#ifndef __M6809_PROTOS_H__
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7633 +#define __M6809_PROTOS_H__
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7634 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7635 +void print_options (FILE *file);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7636 +void m6809_cpu_cpp_builtins (void);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7637 +void m6809_override_options (void);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7638 +void m6809_init_builtins (void);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7639 +unsigned int m6809_get_live_regs (void);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7640 +const char * m6809_get_regs_printable (unsigned int regs);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7641 +unsigned int m6809_get_regs_size (unsigned int regs);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7642 +int m6809_function_has_type_attr_p (tree decl, const char *);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7643 +int m6809_current_function_has_type_attr_p (const char *);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7644 +int prologue_epilogue_required (void);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7645 +int noreturn_functionp (rtx x);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7646 +void output_function_prologue (FILE *file, int size);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7647 +void output_function_epilogue (FILE *file, int size);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7648 +int check_float_value (enum machine_mode mode, double *d, int overflow);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7649 +void m6809_asm_named_section (const char *name, unsigned int flags, tree decl);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7650 +void m6809_asm_file_start (void);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7651 +void m6809_output_ascii (FILE fp, const char str, unsigned long size);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7652 +void m6809_declare_function_name (FILE asm_out_file, const char name, tree decl);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7653 +void m6809_reorg (void);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7654 +int m6809_current_function_is_void (void);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7655 +int m6809_can_merge_pushpop_p (int op, int regs1, int regs2);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7656 +int m6809_function_value_regno_p (unsigned int regno);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7657 +void emit_prologue_insns (void);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7658 +void emit_epilogue_insns (bool);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7659 +void m6809_conditional_register_usage (void);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7660 +void m6809_output_quoted_string (FILE asm_file, const char string);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7661 +int m6809_match_peephole2 (unsigned int peephole_id, unsigned int stage);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7662 +int m6809_hard_regno_mode_ok (unsigned int regno, enum machine_mode mode);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7663 +int power_of_two_p (unsigned int n);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7664 +void m6809_do_casesi (rtx index, rtx lower_bound, rtx range, rtx table_label, rtx default_label);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7665 +void m6809_output_addsi3 (int rtx_code, rtx *operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7666 +rtx m6809_function_arg_on_stack (CUMULATIVE_ARGS *cump);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7667 +void expand_constant_shift (int code, rtx dst, rtx src, rtx count);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7668 +int m6809_single_operand_operator (rtx exp);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7669 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7670 +#ifdef TREE_CODE
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7671 +int m6809_init_cumulative_args (CUMULATIVE_ARGS cum, tree fntype, rtx libname);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7672 +#endif /* TREE_CODE */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7673 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7674 +#ifdef RTX_CODE
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7675 +void print_direct_prefix (FILE *file, rtx addr);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7676 +void print_operand (FILE *file, rtx x, int code);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7677 +void print_operand_address (FILE *file, rtx addr);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7678 +void notice_update_cc (rtx exp, rtx insn);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7679 +enum reg_class m6809_preferred_reload_class (rtx x, enum reg_class regclass);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7680 +rtx gen_rtx_const_high (rtx r);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7681 +rtx gen_rtx_const_low (rtx r);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7682 +rtx gen_rtx_register_pushpop (int pop_flag, int regs);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7683 +void emit_libcall_insns (enum machine_mode mode, const char name, rtx operands, int count);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7684 +const char * output_branch_insn (enum rtx_code code, rtx *operands, int length);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7685 +void output_far_call_insn (rtx *operands, int has_return);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7686 +void m6809_initialize_trampoline (rtx tramp, tree fndecl, rtx cxt);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7687 +rtx m6809_expand_builtin (tree exp, rtx target, rtx subtarget, enum machine_mode mode, int ignore);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7688 +const char * far_functionp (rtx x);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7689 +rtx m6809_function_value (const tree valtype, const tree func);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7690 +void m6809_output_shift_insn (int rtx_code, rtx *operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7691 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7692 +const char * m6809_get_decl_bank (tree decl);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7693 +void output_branch_insn1 (const char opcode, rtx operands, int long_p);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7694 +rtx m6809_builtin_operand (tree arglist, enum machine_mode mode, int opnum);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7695 +const char * far_function_type_p (tree type);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7696 +void m6809_asm_trampoline_template(FILE *f);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7697 +bool m6809_frame_pointer_required (void);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7698 +int m6809_can_eliminate (int from, int to);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7699 +int m6809_initial_elimination_offset (int from, int to);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7700 +void m6809_emit_move_insn (rtx dst, rtx src);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7701 +void m6809_split_shift (enum rtx_code code, rtx *operands);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7702 +bool m6809_function_ok_for_sibcall (tree decl, tree exp ATTRIBUTE_UNUSED);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7703 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7704 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7705 +#endif /* RTX_CODE */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7706 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7707 +#endif /* __M6809_PROTOS_H__ */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7708 diff -urN gcc-4.6.4-clean/gcc/config/m6809/predicates.md gcc-4.6.4/gcc/config/m6809/predicates.md
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7709 --- gcc-4.6.4-clean/gcc/config/m6809/predicates.md 1969-12-31 17:00:00.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7710 +++ gcc-4.6.4/gcc/config/m6809/predicates.md 2015-07-20 19:44:52.770843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7711 @@ -0,0 +1,78 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7712 +;; Predicate definitions for Motorola 6809
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7713 +;; Copyright (C) 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7714 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7715 +;; This file is part of GCC.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7716 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7717 +;; GCC is free software; you can redistribute it and/or modify
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7718 +;; it under the terms of the GNU General Public License as published by
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7719 +;; the Free Software Foundation; either version 3, or (at your option)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7720 +;; any later version.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7721 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7722 +;; GCC is distributed in the hope that it will be useful,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7723 +;; but WITHOUT ANY WARRANTY; without even the implied warranty of
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7724 +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7725 +;; GNU General Public License for more details.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7726 +;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7727 +;; You should have received a copy of the GNU General Public License
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7728 +;; along with GCC; see the file COPYING3. If not see
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7729 +;; <http://www.gnu.org/licenses/>.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7730 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7731 +;; whole_register_operand is like register_operand, but it
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7732 +;; does not allow SUBREGs.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7733 +(define_predicate "whole_register_operand"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7734 + (and (match_code "reg")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7735 + (match_operand 0 "register_operand")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7736 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7737 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7738 +;; A predicate that matches any index register. This can be used in nameless
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7739 +;; patterns and peepholes which need a 16-bit reg, but not D.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7740 +(define_predicate "index_register_operand"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7741 + (and (match_code "reg")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7742 + (match_test "REGNO (op) == HARD_X_REGNUM \|\| REGNO (op) == HARD_Y_REGNUM \|\| REGNO (op) == HARD_U_REGNUM")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7743 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7744 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7745 +;; match only X
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7746 +(define_predicate "register_operand_x"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7747 + (and (match_code "reg")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7748 + (match_test "REGNO (op) == HARD_X_REGNUM")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7749 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7750 +;; match only D
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7751 +(define_predicate "register_operand_d"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7752 + (and (match_code "reg")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7753 + (match_test "REGNO (op) == HARD_D_REGNUM")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7754 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7755 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7756 +;; Likwise, a replacement for general_operand which excludes
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7757 +;; SUBREGs.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7758 +(define_predicate "whole_general_operand"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7759 + (and (match_code "const_int,const_double,const,symbol_ref,label_ref,reg,mem")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7760 + (match_operand 0 "general_operand")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7761 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7762 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7763 +(define_predicate "add_general_operand"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7764 + (and (match_code "const_int,const_double,const,symbol_ref,label_ref,reg,mem")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7765 + (match_operand 0 "general_operand")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7766 + (match_test "REGNO (op) != SOFT_AP_REGNUM")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7767 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7768 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7769 +(define_predicate "shift_count_operand"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7770 + (and (match_code "const_int")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7771 + (and (match_operand 0 "const_int_operand")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7772 + (match_test "INTVAL (op) == 1 \|\| INTVAL (op) == 8"))))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7773 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7774 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7775 +;; A predicate that matches any bitwise logical operator. This
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7776 +;; allows for a single RTL pattern to be used for multiple operations.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7777 +(define_predicate "logical_bit_operator"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7778 + (ior (match_code "and") (match_code "ior") (match_code "xor")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7779 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7780 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7781 +;; A predicate that matches any shift or rotate operator. This
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7782 +;; allows for a single RTL pattern to be used for multiple operations.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7783 +(define_predicate "shift_rotate_operator"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7784 + (ior (match_code "ashift") (match_code "ashiftrt") (match_code "lshiftrt")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7785 + (match_code "rotate") (match_code "rotatert")))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7786 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7787 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7788 +(define_predicate "symbolic_operand" (match_code "symbol_ref"))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7789 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7790 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-coco gcc-4.6.4/gcc/config/m6809/t-coco
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7791 --- gcc-4.6.4-clean/gcc/config/m6809/t-coco 1969-12-31 17:00:00.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7792 +++ gcc-4.6.4/gcc/config/m6809/t-coco 2015-07-20 19:44:52.770843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7793 @@ -0,0 +1,6 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7794 +# For a few minor differences in code generation on the CoCo...
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7795 +T_CFLAGS = -DTARGET_COCO
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7796 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7797 +# For doing the startup differently on the CoCo...
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7798 +CRT0STUFF_T_CFLAGS += -Wa,--globalize-symbols -DTARGET_COCO
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7799 +# vim: set filetype=make:
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7800 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-m6809 gcc-4.6.4/gcc/config/m6809/t-m6809
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7801 --- gcc-4.6.4-clean/gcc/config/m6809/t-m6809 1969-12-31 17:00:00.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7802 +++ gcc-4.6.4/gcc/config/m6809/t-m6809 2015-07-20 19:44:52.770843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7803 @@ -0,0 +1,64 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7804 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7805 +# ranlib doesn't exist, so define it to 'true' to make it a no-op
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7806 +RANLIB_FOR_TARGET = true
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7807 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7808 +# Stubs for libgcc defined by m6809 are here
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7809 +LIB1ASMSRC = m6809/libgcc1.s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7810 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7811 +# Here are the functions that are implemented within libgcc1.s
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7812 +LIB1ASMFUNCS = _mulhi3 _divhi3 _modhi3 _udivhi3 _umodhi3 \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7813 + _euclid _seuclid _clzsi2 _clzdi2 _ctzsi2 _ctzdi2 _softregs \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7814 + _ashlhi3 _ashrhi3 _lshrhi3
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7815 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7816 +# Flags to use when building libgcc. IN_GCC does not seem necessary,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7817 +# although the compile breaks without it. -DDF=SF is required to set
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7818 +# the size of "double" to the same as the size of a "float".
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7819 +TARGET_LIBGCC2_CFLAGS =-DIN_GCC -Dinhibit_libc -DDF=SF -DLIBGCC2_HAS_SF_MODE=0 -DLIBGCC2_HAS_DF_MODE=0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7820 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7821 +LIB2ADDEH =
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7822 +LIB2ADDEHSTATIC =
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7823 +LIB2ADDEHSHARED =
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7824 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7825 +LIBGCC2_DEBUG_CFLAGS =
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7826 +LIBGCC2_CFLAGS = -Os $(LIBGCC2_INCLUDES) $(TARGET_LIBGCC2_CFLAGS) $(LIBGCC2_DEBUG_CFLAGS) $(GTHREAD_FLAGS) -DIN_LIBGCC2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7827 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7828 +# Multilib information
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7829 +# This creates multiple versions of libgcc.a for each set of incompatible
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7830 +# -mxxx options.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7831 +MULTILIB_OPTIONS = fpic mdret
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7832 +MULTILIB_DIRNAMES =
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7833 +MULTILIB_MATCHES =
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7834 +MULTILIB_EXCEPTIONS =
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7835 +EXTRA_MULTILIB_PARTS = crt0.o
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7836 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7837 +LIBGCC = stmp-multilib
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7838 +INSTALL_LIBGCC = install-multilib
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7839 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7840 +# We want fine grained libraries, so use the new code to build the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7841 +# floating point emulation libraries.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7842 +FPBIT = fp-bit.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7843 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7844 +fp-bit.c: $(srcdir)/config/fp-bit.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7845 + echo '#define FLOAT' > fp-bit.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7846 + echo '#define FLOAT_ONLY' >> fp-bit.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7847 + echo '#define CMPtype HItype' >> fp-bit.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7848 + echo '#define SMALL_MACHINE' >> fp-bit.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7849 + echo '#ifdef __LITTLE_ENDIAN__' >> fp-bit.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7850 + echo '#define FLOAT_BIT_ORDER_MISMATCH' >>fp-bit.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7851 + echo '#endif' >> fp-bit.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7852 + echo '#define DI SI' >> fp-bit.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7853 + cat $(srcdir)/config/fp-bit.c >> fp-bit.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7854 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7855 +# crt0.o is built from the following source file
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7856 +CRT0_S = $(srcdir)/config/m6809/crt0.S
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7857 +MCRT0_S = $(srcdir)/config/m6809/crt0.S
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7858 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7859 +# Flags to use when building crt0.o
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7860 +CRT0STUFF_T_CFLAGS += -fno-builtin -nostartfiles -nostdlib
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7861 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7862 +# Assemble startup files.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7863 +$(T)crt0.o: $(CRT0_S) $(GCC_PASSES)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7864 + $(GCC_FOR_TARGET) $(CRT0STUFF_T_CFLAGS) $(MULTILIB_CFLAGS) -c -o $(T)crt0.o -x assembler-with-cpp $(CRT0_S)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7865 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7866 +$(T)mcrt0.o: $(MCRT0_S) $(GCC_PASSES)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7867 + $(GCC_FOR_TARGET) $(CRT0STUFF_T_CFLAGS) $(MULTILIB_CFLAGS) -c -o $(T)mcrt0.o -x assembler-with-cpp $(MCRT0_S)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7868 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-sim gcc-4.6.4/gcc/config/m6809/t-sim
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7869 --- gcc-4.6.4-clean/gcc/config/m6809/t-sim 1969-12-31 17:00:00.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7870 +++ gcc-4.6.4/gcc/config/m6809/t-sim 2015-07-20 19:44:52.770843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7871 @@ -0,0 +1 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7872 +CRT0STUFF_T_CFLAGS += -DTARGET_SIM
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7873 diff -urN gcc-4.6.4-clean/gcc/config.gcc gcc-4.6.4/gcc/config.gcc
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7874 --- gcc-4.6.4-clean/gcc/config.gcc 2013-03-06 10:40:07.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7875 +++ gcc-4.6.4/gcc/config.gcc 2015-07-20 19:44:52.770843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7876 @@ -375,6 +375,9 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7877 cpu_type=m32r
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7878 extra_options="${extra_options} g.opt"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7879 ;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7880 +m6809--)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7881 + cpu_type=m6809
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7882 + ;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7883 m68k--)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7884 extra_headers=math-68881.h
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7885 ;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7886 @@ -1706,6 +1709,12 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7887 thread_file='posix'
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7888 fi
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7889 ;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7890 +m6809-coco-*)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7891 + tmake_file="${tmake_file} m6809/t-m6809 m6809/t-coco"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7892 + ;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7893 +m6809--)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7894 + tmake_file="${tmake_file} m6809/t-m6809 m6809/t-sim"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7895 + ;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7896 # m68hc11 and m68hc12 share the same machine description.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7897 m68hc11--\|m6811--)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7898 tm_file="dbxelf.h elfos.h usegas.h newlib-stdint.h m68hc11/m68hc11.h"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7899 diff -urN gcc-4.6.4-clean/gcc/gcse.c gcc-4.6.4/gcc/gcse.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7900 --- gcc-4.6.4-clean/gcc/gcse.c 2011-02-02 23:04:04.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7901 +++ gcc-4.6.4/gcc/gcse.c 2015-07-20 19:44:52.770843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7902 @@ -833,7 +833,6 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7903 max_distance = (GCSE_COST_DISTANCE_RATIO * cost) / 10;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7904 if (max_distance == 0)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7905 return 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7906 -
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7907 gcc_assert (max_distance > 0);
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7908 }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7909 else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7910 diff -urN gcc-4.6.4-clean/gcc/libgcc2.c gcc-4.6.4/gcc/libgcc2.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7911 --- gcc-4.6.4-clean/gcc/libgcc2.c 2011-01-03 13:52:22.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7912 +++ gcc-4.6.4/gcc/libgcc2.c 2015-07-20 19:44:52.770843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7913 @@ -485,6 +485,7 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7914 #endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7915
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7916 #ifdef L_bswapsi2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7917 +#if MIN_UNITS_PER_WORD > 1
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7918 SItype
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7919 __bswapsi2 (SItype u)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7920 {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7921 @@ -494,7 +495,9 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7922 \| (((u) & 0x000000ff) << 24));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7923 }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7924 #endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7925 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7926 #ifdef L_bswapdi2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7927 +#if LONG_LONG_TYPE_SIZE > 32
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7928 DItype
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7929 __bswapdi2 (DItype u)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7930 {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7931 @@ -508,6 +511,7 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7932 \| (((u) & 0x00000000000000ffull) << 56));
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7933 }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7934 #endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7935 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7936 #ifdef L_ffssi2
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7937 #undef int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7938 int
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7939 @@ -1280,7 +1284,7 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7940 UDWtype
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7941 __fixunssfDI (SFtype a)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7942 {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7943 -#if LIBGCC2_HAS_DF_MODE
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7944 +#if LIBGCC2_HAS_DF_MODE \|\| (FLT_MANT_DIG >= W_TYPE_SIZE)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7945 /* Convert the SFtype to a DFtype, because that is surely not going
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7946 to lose any bits. Some day someone else can write a faster version
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7947 that avoids converting to DFtype, and verify it really works right. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7948 @@ -1298,7 +1302,7 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7949
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7950 /* Assemble result from the two parts. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7951 return ((UDWtype) hi << W_TYPE_SIZE) \| lo;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7952 -#elif FLT_MANT_DIG < W_TYPE_SIZE
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7953 +#else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7954 if (a < 1)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7955 return 0;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7956 if (a < Wtype_MAXp1_F)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7957 @@ -1334,8 +1338,6 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7958 return (DWtype)counter << shift;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7959 }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7960 return -1;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7961 -#else
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7962 -# error
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7963 #endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7964 }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7965 #endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7966 diff -urN gcc-4.6.4-clean/gcc/longlong.h gcc-4.6.4/gcc/longlong.h
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7967 --- gcc-4.6.4-clean/gcc/longlong.h 2011-10-04 01:28:50.000000000 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7968 +++ gcc-4.6.4/gcc/longlong.h 2015-07-20 19:44:52.770843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7969 @@ -528,6 +528,11 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7970 : "cbit")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7971 #endif /* __M32R__ */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7972
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7973 +#if defined (__m6309__) \|\| defined (__m6809__)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7974 +#define count_leading_zeros(COUNT,X) ((COUNT) = __builtin_clz (X))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7975 +#define count_trailing_zeros(COUNT,X) ((COUNT) = __builtin_ctz (X))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7976 +#endif
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7977 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7978 #if defined (__mc68000__) && W_TYPE_SIZE == 32
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7979 #define add_ssaaaa(sh, sl, ah, al, bh, bl) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7980 __asm__ ("add%.l %5,%1\n\taddx%.l %3,%0" \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7981 diff -urN gcc-4.6.4-clean/gcc/Makefile.in gcc-4.6.4/gcc/Makefile.in
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7982 --- gcc-4.6.4-clean/gcc/Makefile.in 2013-04-01 02:32:34.000000000 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7983 +++ gcc-4.6.4/gcc/Makefile.in 2015-07-20 19:44:52.770843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7984 @@ -2003,14 +2003,14 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7985
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7986 # Compile the start modules crt0.o and mcrt0.o that are linked with
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7987 # every program
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7988 -$(T)crt0.o: s-crt0 ; @true
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7989 -$(T)mcrt0.o: s-crt0; @true
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7990 +crt0.o: s-crt0 ; @true
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7991 +mcrt0.o: s-crt0; @true
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7992
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7993 s-crt0: $(CRT0_S) $(MCRT0_S) $(GCC_PASSES) $(CONFIG_H)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7994 $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(CRT0STUFF_T_CFLAGS) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7995 - -o $(T)crt0.o -c $(CRT0_S)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7996 + -o crt0.o -c $(CRT0_S)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7997 $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(CRT0STUFF_T_CFLAGS) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7998 - -o $(T)mcrt0.o -c $(MCRT0_S)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	7999 + -o mcrt0.o -c $(MCRT0_S)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8000 $(STAMP) s-crt0
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8001 #
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8002 # Compiling object files from source files.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8003 diff -urN gcc-4.6.4-clean/gcc/opth-gen.awk gcc-4.6.4/gcc/opth-gen.awk
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8004 --- gcc-4.6.4-clean/gcc/opth-gen.awk 2011-02-08 10:41:00.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8005 +++ gcc-4.6.4/gcc/opth-gen.awk 2015-07-20 19:44:52.774843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8006 @@ -121,7 +121,7 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8007 END {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8008 print "/* This file is auto-generated by opth-gen.awk. */"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8009 print ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8010 -print "#ifndef OPTIONS_H"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8011 +print "#if !defined(OPTIONS_H) && !defined(IN_LIBGCC2)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8012 print "#define OPTIONS_H"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8013 print ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8014 print "#include \"flag-types.h\""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8015 @@ -432,18 +432,9 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8016
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8017 for (i = 0; i < n_opts; i++) {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8018 opt = opt_args("InverseMask", flags[i])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8019 - if (opt ~ ",") {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8020 - vname = var_name(flags[i])
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8021 - macro = "OPTION_"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8022 - mask = "OPTION_MASK_"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8023 - if (vname == "") {
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8024 - vname = "target_flags"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8025 - macro = "TARGET_"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8026 - mask = "MASK_"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8027 - }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8028 - print "#define " macro nth_arg(1, opt) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8029 - " ((" vname " & " mask nth_arg(0, opt) ") == 0)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8030 - }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8031 + if (opt ~ ",")
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8032 + print "#define TARGET_" nth_arg(1, opt) \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8033 + " ((target_flags & MASK_" nth_arg(0, opt) ") == 0)"
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8034 }
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8035 print ""
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8036
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8037 diff -urN gcc-4.6.4-clean/gcc/tree.h gcc-4.6.4/gcc/tree.h
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8038 --- gcc-4.6.4-clean/gcc/tree.h 2011-10-06 13:57:52.000000000 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8039 +++ gcc-4.6.4/gcc/tree.h 2015-07-20 19:44:52.774843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8040 @@ -3563,6 +3563,8 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8041 TI_UINTDI_TYPE,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8042 TI_UINTTI_TYPE,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8043
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8044 + TI_UINT8_TYPE,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8045 + TI_UINT16_TYPE,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8046 TI_UINT32_TYPE,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8047 TI_UINT64_TYPE,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8048
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8049 diff -urN gcc-4.6.4-clean/gcc/version.c gcc-4.6.4/gcc/version.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8050 --- gcc-4.6.4-clean/gcc/version.c 2009-04-21 13:03:23.000000000 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8051 +++ gcc-4.6.4/gcc/version.c 2015-07-20 19:44:52.774843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8052 @@ -21,16 +21,16 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8053
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8054 /* This is the location of the online document giving instructions for
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8055 reporting bugs. If you distribute a modified version of GCC,
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8056 - please configure with --with-bugurl pointing to a document giving
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8057 - instructions for reporting bugs to you, not us. (You are of course
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8058 - welcome to forward us bugs reported to you, if you determine that
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8059 - they are not bugs in your modifications.) */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8060 + please change this to refer to a document giving instructions for
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8061 + reporting bugs to you, not us. (You are of course welcome to
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8062 + forward us bugs reported to you, if you determine that they are
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8063 + not bugs in your modifications.) */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8064
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8065 -const char bug_report_url[] = BUGURL;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8066 +const char bug_report_url[] = "<URL:http://lost.l-w.ca/coco/lwtools/>";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8067
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8068 /* The complete version string, assembled from several pieces.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8069 BASEVER, DATESTAMP, DEVPHASE, and REVISION are defined by the
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8070 Makefile. */
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8071
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8072 -const char version_string[] = BASEVER DATESTAMP DEVPHASE REVISION;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8073 +const char version_string[] = BASEVER DATESTAMP DEVPHASE REVISION " (gcc6809lw)";
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8074 const char pkgversion_string[] = PKGVERSION;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8075 diff -urN gcc-4.6.4-clean/libgcc/config.host gcc-4.6.4/libgcc/config.host
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8076 --- gcc-4.6.4-clean/libgcc/config.host 2011-11-23 15:15:54.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8077 +++ gcc-4.6.4/libgcc/config.host 2015-07-20 19:44:52.774843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8078 @@ -371,6 +371,8 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8079 ;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8080 m32rle--linux)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8081 ;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8082 +m6809*)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8083 + ;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8084 m68hc11--\|m6811--)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8085 ;;
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8086 m68hc12--\|m6812--)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8087 diff -urN gcc-4.6.4-clean/libgcc/fixed-obj.mk gcc-4.6.4/libgcc/fixed-obj.mk
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8088 --- gcc-4.6.4-clean/libgcc/fixed-obj.mk 2007-09-17 16:18:13.000000000 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8089 +++ gcc-4.6.4/libgcc/fixed-obj.mk 2015-07-20 19:44:52.774843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8090 @@ -23,7 +23,7 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8091 #$(info $o$(objext): -DL$($o-label) $($o-opt))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8092
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8093 $o$(objext): %$(objext): $(gcc_srcdir)/config/fixed-bit.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8094 - $(gcc_compile) -DL$($-label) $($-opt) -c $(gcc_srcdir)/config/fixed-bit.c $(vis_hide)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8095 + $(gcc_compile) -DL$($-label) $($-opt) -c $(gcc_srcdir)/config/fixed-bit.c $(vis_hide) -save-temps
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8096
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8097 ifeq ($(enable_shared),yes)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8098 $(o)_s$(objext): %_s$(objext): $(gcc_srcdir)/config/fixed-bit.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8099 diff -urN gcc-4.6.4-clean/libgcc/Makefile.in gcc-4.6.4/libgcc/Makefile.in
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8100 --- gcc-4.6.4-clean/libgcc/Makefile.in 2012-12-04 12:11:33.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8101 +++ gcc-4.6.4/libgcc/Makefile.in 2015-07-20 19:44:52.774843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8102 @@ -374,8 +374,8 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8103 # Build lib2funcs. For the static library also include LIB2FUNCS_ST.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8104 lib2funcs-o = $(patsubst %,%$(objext),$(lib2funcs) $(LIB2FUNCS_ST))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8105 $(lib2funcs-o): %$(objext): $(gcc_srcdir)/libgcc2.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8106 - $(gcc_compile) -DL$* -c $(gcc_srcdir)/libgcc2.c \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8107 - $(vis_hide)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8108 + ln -sf $(gcc_srcdir)/libgcc2.c $*.c && \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8109 + $(gcc_compile) -DL$* -c $*.c $(vis_hide) -save-temps
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8110 libgcc-objects += $(lib2funcs-o)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8111
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8112 ifeq ($(enable_shared),yes)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8113 @@ -410,8 +410,9 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8114 # Build LIB2_DIVMOD_FUNCS.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8115 lib2-divmod-o = $(patsubst %,%$(objext),$(LIB2_DIVMOD_FUNCS))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8116 $(lib2-divmod-o): %$(objext): $(gcc_srcdir)/libgcc2.c
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8117 - $(gcc_compile) -DL$* -c $(gcc_srcdir)/libgcc2.c \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8118 - -fexceptions -fnon-call-exceptions $(vis_hide)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8119 + ln -sf $(gcc_srcdir)/libgcc2.c $*.c && \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8120 + $(gcc_compile) -DL$* -c $*.c \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8121 + -fexceptions -fnon-call-exceptions $(vis_hide) -save-temps
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8122 libgcc-objects += $(lib2-divmod-o)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8123
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8124 ifeq ($(enable_shared),yes)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8125 @@ -443,7 +444,8 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8126 ifneq ($(FPBIT),)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8127 fpbit-o = $(patsubst %,%$(objext),$(FPBIT_FUNCS))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8128 $(fpbit-o): %$(objext): $(FPBIT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8129 - $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $(FPBIT) $(vis_hide)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8130 + ln -sf $(FPBIT) $*.c && \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8131 + $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $*.c $(vis_hide) -save-temps
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8132 libgcc-objects += $(fpbit-o)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8133
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8134 ifeq ($(enable_shared),yes)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8135 @@ -458,7 +460,8 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8136 ifneq ($(DPBIT),)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8137 dpbit-o = $(patsubst %,%$(objext),$(DPBIT_FUNCS))
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8138 $(dpbit-o): %$(objext): $(DPBIT)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8139 - $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $(DPBIT) $(vis_hide)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8140 + ln -sf $(DPBIT) $*.c && \
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8141 + $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $*.c $(vis_hide) -save-temps
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8142 libgcc-objects += $(dpbit-o)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8143
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8144 ifeq ($(enable_shared),yes)
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8145 diff -urN gcc-4.6.4-clean/README.LW gcc-4.6.4/README.LW
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8146 --- gcc-4.6.4-clean/README.LW 1969-12-31 17:00:00.000000000 -0700
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8147 +++ gcc-4.6.4/README.LW 2015-07-20 19:44:52.774843181 -0600
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8148 @@ -0,0 +1,14 @@
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8149 +This is a port of gcc6809 which is designed to work with the lwtools
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8150 +cross-assembler and linker package. You will need several scripts from that
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8151 +package, available at http://lost.l-w.ca/coco/lwtools/, in order to use
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8152 +this. Instructions for building are present in the lwtools package.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8153 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8154 +This work is based extensively on the gcc6809 4.3.4-3 release by Brian
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8155 +Dominy (brian@oddchange.com) with some significant renovations to make it
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8156 +work with gcc 4.6.1.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8157 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8158 +There is no guarantee that it will work for any particular purpose you
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8159 +choose to put it to.
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8160 +
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8161 +If you run into any problems, contact William Astle (lost@l-w.ca). DO NOT
d7b7004b0883 Update gcc6809 patch to fix an ICE. William Astle <lost@l-w.ca> parents: diff changeset	8162 +contact the main GCC developers!

Mercurial > hg > index.cgi

annotate extra/gcc6809lw-4.6.4-5.patch @ 417:d7b7004b0883