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

annotate extra/gcc6809lw-4.6.4-7.patch @ 467:a6c9129e5948

Move version header into a common direction to better reflect what it is. The version header isn't really associated with lwlib itself since that is intended to be some generic type routines that can be used by other programs. It is, however, directly associated with lwtools. Thus, it should be related to lwtools itself rather than the more generic lwlib.

author	William Astle <lost@l-w.ca>
date	Thu, 01 Mar 2018 21:25:51 -0700
parents	ff4b6095ee72
children

rev	line source
418 3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns 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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns 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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3 +++ gcc-4.6.4/config.sub 2015-07-20 19:44:52.766843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4 @@ -313,7 +313,7 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5 c6x)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6 basic_machine=tic6x-unknown
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7 ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8 - m6811 \| m68hc11 \| m6812 \| m68hc12 \| picochip)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	9 + m6809 \| m6811 \| m68hc11 \| m6812 \| m68hc12 \| picochip)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	10 # Motorola 68HC11/12.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	11 basic_machine=$basic_machine-unknown
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	12 os=-none
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	13 @@ -354,7 +354,7 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	14 \| i86- \| i860-* \| i960-* \| ia64-* \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	15 \| ip2k-* \| iq2000-* \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	16 \| lm32-* \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	17 - \| m32c-* \| m32r-* \| m32rle-* \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	18 + \| m32c-* \| m32r-* \| m32rle-* \| m6809-* \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	19 \| m68000-* \| m680[012346]0-* \| m68360-* \| m683?2-* \| m68k-* \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	20 \| m88110-* \| m88k-* \| maxq-* \| mcore-* \| metag-* \| microblaze-* \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	21 \| mips-* \| mipsbe-* \| mipseb-* \| mipsel-* \| mipsle-* \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	22 @@ -509,6 +509,10 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	23 basic_machine=arm-unknown
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	24 os=-cegcc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	25 ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	26 + coco)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	27 + basic_machine=coco
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	28 + os=-none
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	29 + ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	30 convex-c1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	31 basic_machine=c1-convex
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	32 os=-bsd
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	33 diff -urN gcc-4.6.4-clean/configure gcc-4.6.4/configure
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	34 --- gcc-4.6.4-clean/configure 2011-12-18 03:03:44.000000000 -0700
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	35 +++ gcc-4.6.4/configure 2015-07-20 19:44:52.766843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	36 @@ -3439,6 +3439,9 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	37 m32r--)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	38 noconfigdirs="$noconfigdirs ${libgcj}"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	39 ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	40 + m6809*)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	41 + noconfigdirs="$noconfigdirs target-libiberty target-libstdc++-v3 target-libgloss ${libgcj}"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	42 + ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	43 m68hc11--\|m6811--\|m68hc12--\|m6812--)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	44 noconfigdirs="$noconfigdirs target-libstdc++-v3 ${libgcj}"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	45 libgloss_dir=m68hc11
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns 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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns 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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	48 +++ gcc-4.6.4/configure.ac 2015-07-20 19:44:52.766843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	49 @@ -885,6 +885,9 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	50 m32r--)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	51 noconfigdirs="$noconfigdirs ${libgcj}"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	52 ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	53 + m6809*)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	54 + noconfigdirs="$noconfigdirs target-libiberty target-libstdc++-v3 target-libgloss ${libgcj}"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	55 + ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	56 m68hc11--\|m6811--\|m68hc12--\|m6812--)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	57 noconfigdirs="$noconfigdirs target-libstdc++-v3 ${libgcj}"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	58 libgloss_dir=m68hc11
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns 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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns 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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns 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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	62 @@ -2561,7 +2561,7 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	63 call sequence.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	64 Also do the adjustments before a throwing call, otherwise
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	65 exception handling can fail; PR 19225. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	66 - if (pending_stack_adjust >= 32
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	67 + if (pending_stack_adjust >= 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	68 \|\| (pending_stack_adjust > 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	69 && (flags & ECF_MAY_BE_ALLOCA))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	70 \|\| (pending_stack_adjust > 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns 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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns 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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns 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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	74 @@ -0,0 +1,173 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	75 +;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	76 +;;; Copyright 2006, 2007, 2008, 2009 by Brian Dominy <brian@oddchange.com>
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	77 +;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	78 +;;; This file is part of GCC.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	79 +;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	80 +;;; GCC is free software; you can redistribute it and/or modify
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	81 +;;; it under the terms of the GNU General Public License as published by
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	82 +;;; the Free Software Foundation; either version 3, or (at your option)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	83 +;;; any later version.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	84 +;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	85 +;;; GCC is distributed in the hope that it will be useful,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	86 +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	87 +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	88 +;;; GNU General Public License for more details.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	89 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	90 +;;; You should have received a copy of the GNU General Public License
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	91 +;;; along with GCC; see the file COPYING3. If not see
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	92 +;;; <http://www.gnu.org/licenses/>.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	93 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	94 + /* Declare external for main() */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	95 + .globl _main
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	96 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	97 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	98 +/* The startup is heavily dependent on the type of machine and
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	99 +OS environment that is available at the start point.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	100 +For the most part, the general idea is the same across machines,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	101 +but the implementation is vastly different. This is managed via
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	102 +conditional compiles throughout the startup code for each of the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	103 +supported machines. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	104 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	105 +#ifdef TARGET_COCO /* CoCo memory map */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	106 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	107 +#define COCO_RAMROM_MODE 0xFFDE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	108 +#define COCO_ALLRAM_MODE 0xFFDF
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	109 +#define COCO_PAGE1 0xFFD5
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	110 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	111 +/* SAM M1 and M0 adjusts the memory size */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	112 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	113 +#define BASIC_WARMSTART_FLAG 0x0071
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	114 +#define BASIC_START 0xA027
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	115 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	116 +#define __STACK_TOP 0x6800
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	117 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	118 +#else /* Simulator (default) memory map */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	119 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	120 +#define SIM_EXIT_REG 0xFF01
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	121 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	122 +#define __STACK_TOP 0xFE00
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	123 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	124 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	125 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	126 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	127 + .area .data
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	128 + .area .ctors
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	129 + .area .dtors
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	130 + .area .bss
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	131 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	132 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	133 + ;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	134 + ;;; __exit : Exit point from the program
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	135 + ;;; For simulation, this writes to a special I/O register that
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	136 + ;;; the simulator interprets as end-of-program.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	137 + ;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	138 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	139 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	140 + .globl __exit
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	141 +__exit:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	142 +#ifdef TARGET_COCO
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	143 + ;; Go back to ROM/RAM mode
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	144 + sta COCO_RAMROM_MODE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	145 + clr BASIC_WARMSTART_FLAG
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	146 + jmp BASIC_START
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	147 +#else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	148 + tfr x,d
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	149 + stb SIM_EXIT_REG
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	150 + bra __exit
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	151 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	152 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	153 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	154 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	155 + ;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	156 + ;;; __start : Entry point to the program
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	157 + ;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	158 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	159 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	160 + .globl __start
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	161 +__start:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	162 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	163 +#ifdef HAVE_DIRECT
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	164 + ;; Initialize the direct page pointer
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	165 + lda #<s_.direct
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	166 + tfr a,dp
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	167 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	168 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	169 +#ifdef TARGET_COCO
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	170 + ;; Turn off interrupts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	171 + orcc #(0x10\|0x40)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	172 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	173 + ;; Setup All RAM Mode
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	174 + sta COCO_ALLRAM_MODE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	175 +#endif /* TARGET_COCO */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	176 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	177 + ;; Initialize the stack
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	178 + lds #__STACK_TOP - 2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	179 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	180 + ;; Call any "initializer" functions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	181 + ldu #s_.ctors
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	182 +__ctors_loop:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	183 + ldy ,u++
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	184 + cmpy #0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	185 + beq __ctors_done
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	186 + jsr ,y
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	187 + bra __ctors_loop
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	188 +__ctors_done:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	189 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	190 + ;; Enable interrupts on the simulator
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	191 +#ifndef TARGET_COCO
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	192 + andcc #~(0x10\|0x40)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	193 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	194 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	195 + ;; Set up the environment
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	196 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	197 + ;; Set up argc/argv arrays
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	198 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	199 + ;; Call the main function. The exit code will
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	200 + ;; be returned in the X register, unless compiled
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	201 + ;; with -mdret, in which case it comes back in D.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	202 + jsr _main
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	203 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	204 + ;; Call any finalizer functions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	205 + ldu #s_.dtors
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	206 +__dtors_loop:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	207 + ldy ,u++
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	208 + cmpy #0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	209 + beq __dtors_done
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	210 + jsr ,y
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	211 + bra __dtors_loop
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	212 +__dtors_done:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	213 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	214 + ;; If main returns, then invoke _exit() to stop the program
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	215 + ;; The C library doesn't support -mdret yet, so move the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	216 + ;; argument first.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	217 +#ifdef __DRET__
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	218 + tfr d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	219 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	220 + jmp _exit
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	221 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	222 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	223 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	224 + ;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	225 + ;;; __crt0_vector : Default handler for interrupts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	226 + ;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	227 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	228 +___crt0_vector:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	229 + ;; The default behavior is to simply ignore all
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	230 + ;; non-reset interrupts.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	231 + rti
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	232 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	233 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	234 + ;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	235 + ;;; vector : The interrupt vector table
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	236 + ;;; The linker will ensure that this gets loaded at address 0xFFF0.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	237 + ;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	238 + .area vector
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	239 +vectors:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	240 + .word ___crt0_vector
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	241 + .word ___crt0_vector
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	242 + .word ___crt0_vector
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	243 + .word ___crt0_vector
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	244 + .word ___crt0_vector
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	245 + .word ___crt0_vector
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	246 + .word ___crt0_vector
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	247 + .word __start
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns 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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns 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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns 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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	251 @@ -0,0 +1,511 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	252 +/* libgcc routines for m6809
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	253 + Copyright (C) 2006 Free Software Foundation, Inc.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	254 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	255 +This file is part of GCC.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	256 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	257 +GCC is free software; you can redistribute it and/or modify
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	258 +it under the terms of the GNU General Public License as published by
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	259 +the Free Software Foundation; either version 3, or (at your option)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	260 +any later version.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	261 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	262 +GCC is distributed in the hope that it will be useful,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	263 +but WITHOUT ANY WARRANTY; without even the implied warranty of
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	264 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	265 +GNU General Public License for more details.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	266 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	267 +You should have received a copy of the GNU General Public License
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	268 +along with GCC; see the file COPYING3. If not see
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	269 +<http://www.gnu.org/licenses/>. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	270 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	271 +/* As a special exception, if you link this library with other files,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	272 + some of which are compiled with GCC, to produce an executable,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	273 + this library does not by itself cause the resulting executable
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	274 + to be covered by the GNU General Public License.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	275 + This exception does not however invalidate any other reasons why
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	276 + the executable file might be covered by the GNU General Public License. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	277 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	278 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	279 +#define SIGFPE jmp _abort
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	280 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	281 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	282 + ; Shift functions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	283 + ; On input, D is value to be shifted, and X has shift count.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	284 + ; Result is also in D.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	285 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	286 +#ifdef L_ashlhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	287 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	288 + .globl _ashlhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	289 +_ashlhi3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	290 + pshs x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	291 +1$:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	292 + leax -1,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	293 + cmpx #-1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	294 + beq 2$
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	295 + aslb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	296 + rola
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	297 + bra 1$
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	298 +2$:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	299 + puls x,pc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	300 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	301 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	302 +#ifdef L_ashrhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	303 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	304 + .globl _ashrhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	305 +_ashrhi3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	306 + pshs x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	307 +1$:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	308 + leax -1,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	309 + cmpx #-1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	310 + beq 2$
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	311 + asra
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	312 + rorb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	313 + bra 1$
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	314 +2$:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	315 + puls x,pc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	316 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	317 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	318 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	319 +#ifdef L_lshrhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	320 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	321 + .globl _lshrhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	322 +_lshrhi3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	323 + pshs x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	324 +1$:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	325 + leax -1,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	326 + cmpx #-1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	327 + beq 2$
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	328 + lsra
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	329 + rorb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	330 + bra 1$
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	331 +2$:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	332 + puls x,pc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	333 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	334 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	335 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	336 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	337 +#ifdef L_softregs
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	338 + .area direct
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	339 + .globl m0, m1, m2, m3, m4, m5, m6, m7
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	340 + .globl m8, m9, m10, m11, m12, m13, m14, m15
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	341 +m0: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	342 +m1: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	343 +m2: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	344 +m3: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	345 +m4: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	346 +m5: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	347 +m6: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	348 +m7: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	349 +m8: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	350 +m9: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	351 +m10: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	352 +m11: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	353 +m12: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	354 +m13: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	355 +m14: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	356 +m15: .blkb 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	357 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	358 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	359 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	360 +#ifdef L_ashlsi3_one
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	361 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	362 + .globl _ashlsi3_one
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	363 +_ashlsi3_one:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	364 + asl 3,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	365 + rol 2,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	366 + rol 1,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	367 + rol ,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	368 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	369 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	370 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	371 +#ifdef L_ashlsi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	372 + /* X points to the SImode (source/dest)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	373 + B is the count */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	374 +_ashlsi3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	375 + pshs u
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	376 + cmpb #16
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	377 + blt try8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	378 + subb #16
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	379 + ; Shift by 16
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	380 + ldu 2,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	381 + stu ,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	382 +try8:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	383 + cmpb #8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	384 + blt try_rest
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	385 + subb #8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	386 + ; Shift by 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	387 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	388 +try_rest:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	389 + tstb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	390 + beq done
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	391 +do_rest:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	392 + ; Shift by 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	393 + asl 3,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	394 + rol 2,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	395 + rol 1,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	396 + rol ,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	397 + decb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	398 + bne do_rest
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	399 +done:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	400 + puls u,pc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	401 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	402 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	403 +#ifdef L_ashrsi3_one
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	404 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	405 + .globl _ashlsi3_one
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	406 +_ashrsi3_one:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	407 + asr ,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	408 + ror 1,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	409 + ror 2,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	410 + ror 3,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	411 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	412 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	413 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	414 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	415 +#ifdef L_lshrsi3_one
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	416 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	417 + .globl _lshrsi3_one
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	418 +_lshrsi3_one:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	419 + lsr ,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	420 + ror 1,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	421 + ror 2,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	422 + ror 3,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	423 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	424 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	425 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	426 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	427 +#ifdef L_clzsi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	428 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	429 + .globl ___clzhi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	430 + ; Input: X = 16-bit unsigned integer
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	431 + ; Output: X = number of leading zeros
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	432 + ; This function destroys the value in D.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	433 +___clzhi2:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	434 + pshs x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	435 + ; Find the offset of the leftmost '1' bit in
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	436 + ; the left half of the word.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	437 + ;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	438 + ; Bits are numbered in the table with 1 meaning the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	439 + ; LSB and 8 meaning the MSB.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	440 + ;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	441 + ; If nonzero, then clz is 8-a.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	442 + tfr x,d
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	443 + ldx #___clz_tab
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	444 + tfr a,b
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	445 + clra
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	446 + ldb d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	447 + bne upper_bit_set
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	448 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	449 +lower_bit_set:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	450 + ; If the upper byte is zero, then check the lower
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	451 + ; half of the word. Return 16-a.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	452 + puls d
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	453 + clra
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	454 + ldb d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	455 + negb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	456 + addb #16
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	457 + bra done
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	458 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	459 +upper_bit_set:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	460 + negb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	461 + addb #8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	462 + puls x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	463 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	464 +done:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	465 + tfr d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	466 + puls pc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	467 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	468 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	469 +#ifdef L_clzdi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	470 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	471 + .globl ___clzsi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	472 + ; Input: 32-bit unsigned integer is on the stack, just
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	473 + ; above the return address
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	474 + ; Output: X = number of leading zeros
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	475 +___clzsi2:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	476 + ; Check the upper 16-bit word
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	477 + ; If it is not zero, then return clzhi2(X).
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	478 + ; A branch can be used instead of a call since no
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	479 + ; postprocessing is needed. Use long branch form
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	480 + ; though since functions may not be near each other.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	481 + ldx 2,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	482 + lbne ___clzhi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	483 + ldx 4,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	484 + jsr ___clzhi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	485 + leax 16,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	486 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	487 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	488 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	489 +#ifdef L_ctzsi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	490 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	491 + .globl ___ctzhi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	492 + ; Input: X = 16-bit unsigned integer
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	493 + ; Output: X = number of trailing zeros
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	494 + ; F(x) = 15 - clzhi2(X & -x)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	495 + ; This function destroys the value in D.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	496 +___ctzhi2:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	497 + tfr x,d
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	498 + coma
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	499 + comb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	500 + addd #1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	501 + pshs a
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	502 + pshs b
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	503 + tfr x,d
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	504 + andb ,s+
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	505 + anda ,s+
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	506 + tfr d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	507 + jsr ___clzhi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	508 + tfr x,d
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	509 + subd #16
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	510 + coma
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	511 + comb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	512 + tfr d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	513 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	514 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	515 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	516 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	517 +#ifdef L_ctzdi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	518 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	519 + .globl ___ctzsi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	520 + ; Input: 32-bit unsigned integer is on the stack, just
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	521 + ; above the return address
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	522 + ; Output: X = number of leading zeros
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	523 +___ctzsi2:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	524 + ; Check the lower 16-bit word
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	525 + ; If it is not zero, then return ctzhi2(X).
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	526 + ; A branch can be used instead of a call since no
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	527 + ; postprocessing is needed. Use long branch form
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	528 + ; though since functions may not be near each other.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	529 + ldx 4,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	530 + lbne ___ctzhi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	531 + ldx 2,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	532 + jsr ___ctzhi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	533 + leax 16,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	534 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	535 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	536 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	537 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	538 +#ifdef L_mulhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	539 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	540 +;;; ___mulhi3 - signed/unsigned multiply
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	541 +;;; Called by GCC to implement 16x16 multiplication
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	542 +;;; Arguments: Two 16-bit values, one in stack, one in X.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	543 +;;; Result: 16-bit result in X
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	544 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	545 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	546 + .globl _mulhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	547 +_mulhi3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	548 + pshs x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	549 + lda 5,s ; left msb * right lsb * 256
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	550 + ldb ,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	551 + mul
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	552 + tfr b,a
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	553 + clrb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	554 + tfr d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	555 + ldb 1,s ; left lsb * right msb * 256
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	556 + lda 4,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	557 + mul
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	558 + tfr b,a
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	559 + clrb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	560 + leax d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	561 + ldb 1,s ; left lsb * right lsb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	562 + lda 5,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	563 + mul
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	564 + leax d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	565 + puls d,pc ; kill D to remove initial push
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	566 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	567 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	568 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	569 +#ifdef L_divhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	570 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	571 +;;; ___divhi3 - signed division
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	572 +;;; Arguments: Dividend in X, divisor on the stack
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	573 +;;; Returns result in X.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	574 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	575 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	576 + .globl _divhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	577 +_divhi3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	578 + ldd 2,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	579 + bne do_div ; check dividend
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	580 + SIGFPE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	581 +do_div:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	582 + pshs x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	583 + jsr _seuclid
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	584 + puls x,pc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	585 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	586 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	587 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	588 +#ifdef L_modhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	589 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	590 +;;; ___modhi3 - signed modulo
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	591 +;;; Arguments: Dividend in X, divisor on the stack
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	592 +;;; Returns result in X.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	593 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	594 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	595 + .globl _modhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	596 +_modhi3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	597 + ldd 2,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	598 + bne do_mod ; check dividend
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	599 + SIGFPE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	600 +do_mod:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	601 + pshs x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	602 + jsr _seuclid
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	603 + leas 2,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	604 + tfr d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	605 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	606 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	607 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	608 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	609 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	610 +#ifdef L_udivhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	611 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	612 +;;; ___udivhi3 - unsigned division
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	613 +;;; Arguments: Dividend in X, divisor on the stack
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	614 +;;; Returns result in X.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	615 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	616 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	617 + .globl _udivhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	618 +_udivhi3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	619 + ldd 2,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	620 + bne do_udiv ; check dividend
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	621 + SIGFPE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	622 +do_udiv:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	623 + pshs x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	624 + jsr _euclid
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	625 + puls x,pc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	626 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	627 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	628 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	629 +#ifdef L_umodhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	630 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	631 +;;; ___umodhi3 - unsigned modulo
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	632 +;;; Arguments: Dividend in X, divisor on the stack
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	633 +;;; Returns result in X.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	634 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	635 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	636 + .globl _umodhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	637 +_umodhi3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	638 + ldd 2,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	639 + bne do_umod ; check dividend
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	640 + SIGFPE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	641 +do_umod:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	642 + pshs x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	643 + jsr _euclid
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	644 + leas 2,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	645 + tfr d,x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	646 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	647 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	648 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	649 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	650 +#ifdef L_euclid
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	651 +; unsigned euclidean division
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	652 +; calling: (left / right)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	653 +; push left
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	654 +; ldd right
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	655 +; jsr _euclid
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	656 +; quotient on the stack (left)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	657 +; modulus in d
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	658 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	659 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	660 + .globl _euclid
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	661 + left=5
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	662 + right=1 ; word
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	663 + count=0 ; byte
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	664 + CARRY=1 ; alias
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	665 +_euclid:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	666 + leas -3,s ; 2 local variables
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	667 + clr count,s ; prescale divisor
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	668 + inc count,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	669 + tsta
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	670 +presc:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	671 + bmi presc_done
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	672 + inc count,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	673 + aslb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	674 + rola
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	675 + bra presc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	676 +presc_done:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	677 + std right,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	678 + ldd left,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	679 + clr left,s ; quotient = 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	680 + clr left+1,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	681 +mod1:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	682 + subd right,s ; check subtract
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	683 + bcc mod2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	684 + addd right,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	685 + andcc #~CARRY
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	686 + bra mod3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	687 +mod2:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	688 + orcc #CARRY
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	689 +mod3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	690 + rol left+1,s ; roll in carry
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	691 + rol left,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	692 + lsr right,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	693 + ror right+1,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	694 + dec count,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	695 + bne mod1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	696 + leas 3,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	697 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	698 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	699 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	700 +#ifdef L_seuclid
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	701 +; signed euclidean division
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	702 +; calling: (left / right)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	703 +; push left
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	704 +; ldd right
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	705 +; jsr _seuclid
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	706 +; quotient on the stack (left)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	707 +; modulus in d
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	708 + .area .text
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	709 + .globl _seuclid
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	710 + left=6
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	711 + right=2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	712 + quot_sign=1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	713 + mod_sign=0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	714 +_seuclid:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	715 + leas -4,s ; 3 local variables
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	716 + std right,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	717 + clr mod_sign,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	718 + clr quot_sign,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	719 + ldd left,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	720 + bge mod_abs
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	721 + inc mod_sign,s ; sign(mod) = sign(left)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	722 + inc quot_sign,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	723 + bsr negd ; abs(left) -> D
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	724 +mod_abs:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	725 + pshs b,a ; push abs(left)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	726 + ldd right+2,s ; all references shifted by 2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	727 + bge quot_abs
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	728 + dec quot_sign+2,s ; sign(quot) = sign(left) XOR sign(right)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	729 + bsr negd ; abs(right) -> D
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	730 +quot_abs:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	731 + jsr _euclid ; call (unsigned) euclidean division
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	732 + std right+2,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	733 + puls a,b ; quot -> D
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	734 + tst quot_sign,s ; all references no longer shifted
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	735 + beq quot_done
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	736 + bsr negd
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	737 +quot_done:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	738 + std left,s ; quot -> left
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	739 + ldd right,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	740 + tst mod_sign,s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	741 + beq mod_done
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	742 + bsr negd
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	743 +mod_done:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	744 + leas 4,s ; destroy stack frame
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	745 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	746 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	747 +negd: ; self-explanatory !
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	748 + nega
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	749 + negb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	750 + sbca #0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	751 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	752 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	753 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	754 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	755 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	756 +#ifdef L_pending_addsi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	757 +_addsi3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	758 + rts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	759 +#endif /* L_pending_addsi3 */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	760 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	761 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	762 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns 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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns 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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns 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
438 f18cc0c87a7e Make 32 bit compares work better in gcc6809. Brett Gordon <beretta42@gmail.com> parents: 418 diff changeset	766 @@ -0,0 +1,3025 @@
418 3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	767 +/*-------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	768 + FILE: m6809.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	769 +-------------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	770 +/* Subroutines for insn-output.c for MC6809.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	771 + Copyright (C) 1989-2007 Free Software Foundation, Inc.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	772 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	773 + MC6809 Version by Tom Jones (jones@sal.wisc.edu)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	774 + Space Astronomy Laboratory
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	775 + University of Wisconsin at Madison
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	776 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	777 + minor changes to adapt it to gcc-2.5.8 by Matthias Doerfel
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	778 + ( msdoerfe@informatik.uni-erlangen.de )
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	779 + also added #pragma interrupt (inspired by gcc-6811)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	780 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	781 + minor changes to adapt it to gcc-2.8.0 by Eric Botcazou
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	782 + (ebotcazou@multimania.com)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	783 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	784 + minor changes to adapt it to gcc-2.95.3 by Eric Botcazou
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	785 + (ebotcazou@multimania.com)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	786 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	787 + major cleanup, improvements, and upgrade to gcc 3.4 by Brian Dominy
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	788 + (brian@oddchange.com)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	789 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns 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)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	791 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	792 +This file is part of GCC.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	793 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	794 +GCC is free software; you can redistribute it and/or modify
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	795 +it under the terms of the GNU General Public License as published by
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	796 +the Free Software Foundation; either version 3, or (at your option)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	797 +any later version.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	798 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	799 +GCC is distributed in the hope that it will be useful,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	800 +but WITHOUT ANY WARRANTY; without even the implied warranty of
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	801 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	802 +GNU General Public License for more details.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	803 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	804 +You should have received a copy of the GNU General Public License
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	805 +along with GCC; see the file COPYING3. If not see
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	806 +<http://www.gnu.org/licenses/>. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	807 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	808 +#include <string.h>
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	809 +#include <time.h>
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	810 +#include <sys/types.h>
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	811 +#include <sys/timeb.h>
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	812 +#include <stdio.h>
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	813 +#include "config.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	814 +#include "system.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	815 +#include "coretypes.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	816 +#include "tm.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	817 +#include "tree.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	818 +#include "rtl.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	819 +#include "tm_p.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	820 +#include "regs.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	821 +#include "flags.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	822 +#include "hard-reg-set.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	823 +#include "real.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	824 +#include "tree.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	825 +#include "insn-config.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	826 +#include "conditions.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	827 +#include "insn-flags.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	828 +#include "output.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	829 +#include "insn-attr.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	830 +#include "function.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	831 +#include "target.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	832 +#include "target-def.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	833 +#include "expr.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	834 +#include "recog.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	835 +#include "cpplib.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	836 +#include "c-family/c-pragma.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	837 +#include "c-family/c-common.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	838 +#include "toplev.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	839 +#include "optabs.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	840 +#include "version.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	841 +#include "df.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	842 +#include "rtlhooks-def.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	843 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	844 +/* macro to return TRUE if length of operand mode is one byte */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	845 +#define BYTE_MODE(X) ((GET_MODE_SIZE (GET_MODE (X))) == 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	846 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	847 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns 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
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	849 +register and not a fake one that is emulated in software. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	850 +#define REAL_REG_P(x) (REG_P(x) && !M_REG_P(x))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	851 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	852 +/*-------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	853 + Target hooks, moved from target.h
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	854 +-------------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns 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);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	856 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	857 +#undef TARGET_ENCODE_SECTION_INFO
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	858 +#define TARGET_ENCODE_SECTION_INFO m6809_encode_section_info
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	859 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	860 +#undef TARGET_ASM_FILE_START
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	861 +#define TARGET_ASM_FILE_START m6809_asm_file_start
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	862 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	863 +#undef TARGET_ASM_ALIGNED_HI_OP
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	864 +#define TARGET_ASM_ALIGNED_HI_OP "\t.word\t"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	865 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	866 +#undef TARGET_ASM_ALIGNED_SI_OP
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	867 +#define TARGET_ASM_ALIGNED_SI_OP NULL
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	868 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	869 +#undef TARGET_ASM_UNALIGNED_HI_OP
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	870 +#define TARGET_ASM_UNALIGNED_HI_OP "\t.word\t"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	871 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	872 +#undef TARGET_ASM_UNALIGNED_SI_OP
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	873 +#define TARGET_ASM_UNALIGNED_SI_OP NULL
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	874 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	875 +#undef TARGET_RTX_COSTS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	876 +#define TARGET_RTX_COSTS m6809_rtx_costs
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	877 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	878 +#undef TARGET_ATTRIBUTE_TABLE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	879 +#define TARGET_ATTRIBUTE_TABLE m6809_attribute_table
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	880 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	881 +#undef TARGET_INIT_BUILTINS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	882 +#define TARGET_INIT_BUILTINS m6809_init_builtins
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	883 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	884 +#undef TARGET_EXPAND_BUILTIN
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	885 +#define TARGET_EXPAND_BUILTIN m6809_expand_builtin
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	886 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	887 +#undef TARGET_DEFAULT_TARGET_FLAGS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	888 +#define TARGET_DEFAULT_TARGET_FLAGS (MASK_REG_ARGS \| MASK_DIRECT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	889 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	890 +#undef TARGET_FUNCTION_OK_FOR_SIBCALL
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	891 +#define TARGET_FUNCTION_OK_FOR_SIBCALL m6809_function_ok_for_sibcall
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	892 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	893 +#undef TARGET_ASM_TRAMPOLINE_TEMPLATE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	894 +#define TARGET_ASM_TRAMPOLINE_TEMPLATE m6809_asm_trampoline_template
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	895 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	896 +#undef TARGET_TRAMPOLINE_INIT
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	897 +#define TARGET_TRAMPOLINE_INIT m6809_initialize_trampoline
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	898 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	899 +#undef TARGET_FRAME_POINTER_REQUIRED
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	900 +#define TARGET_FRAME_POINTER_REQUIRED m6809_frame_pointer_required
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	901 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	902 +#undef TARGET_OPTION_OVERRIDE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	903 +#define TARGET_OPTION_OVERRIDE m6809_override_options
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	904 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	905 +/* External variables used */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	906 +extern int reload_completed; /* set in toplev.c */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	907 +extern FILE *asm_out_file;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	908 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	909 +static int last_mem_size; /* operand size (bytes) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	910 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	911 +/* True if the section was recently changed and another .area
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	912 + * directive needs to be output before emitting the next label. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	913 +int section_changed = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	914 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	915 +/* Section names. The defaults here are used until an
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	916 + * __attribute__((section)) is seen that changes it. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	917 +char code_section_op[128] = "\t.area .text";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	918 +char data_section_op[128] = "\t.area .data";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	919 +char bss_section_op[128] = "\t.area .bss";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	920 +const char *code_bank_option = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	921 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	922 +/* TRUE if the direct mode prefix might be valid in this context.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	923 + * This is set by 'print_address' prior to calling output_addr_const,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	924 + * which performs into 'print_direct_prefix' to do the final checks. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	925 +static int check_direct_prefix_flag;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	926 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	927 +/* Nonzero if an address is being printed in a context which does not
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	928 + * permit any PIC modifications to the address */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	929 +static int pic_ok_for_addr_p = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	930 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	931 +/* Current code page. This supports machines which can do bank
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	932 + * switching to allow for more than 64KB of code/data. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	933 +char far_code_page[64];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	934 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	935 +/* Current bank name */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	936 +static char current_bank_name[8] = "-1";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	937 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	938 +/* Default bank name */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	939 +static char default_code_bank_name[8] = "-1";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	940 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	941 +/* Direct memory reserved as soft registers */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	942 +unsigned int m6809_soft_regs = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	943 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	944 +/* ABI version */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	945 +unsigned int m6809_abi_version = M6809_ABI_VERSION_REGS;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	946 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	947 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	948 +/**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	949 + * Called after options have been parsed.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	950 + * If overrides have been specified on the command-line, then
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	951 + * these values are copied into the main storage variables.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	952 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	953 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	954 +m6809_override_options (void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	955 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	956 + /* Handle -mfar-code-page */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	957 + if (far_code_page_option == 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	958 + far_code_page_option = "__default_code_page";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	959 + strcpy (far_code_page, far_code_page_option);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	960 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	961 + /* Handle -mcode-section, -mdata-section, and -mbss-section */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	962 + if (code_section_ptr != 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	963 + sprintf (code_section_op, "\t.area %s", code_section_ptr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	964 + if (data_section_ptr != 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	965 + sprintf (data_section_op, "\t.area %s", data_section_ptr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	966 + if (bss_section_ptr != 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	967 + sprintf (bss_section_op, "\t.area %s", bss_section_ptr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	968 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	969 + /* Handle -mcode-bank */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	970 + if (code_bank_option != 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	971 + sprintf (default_code_bank_name, "%s", code_bank_option);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	972 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	973 + /* Handle -mabi-version or -mno-reg-args */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	974 + if (m6809_abi_version_ptr != 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	975 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	976 + if (!strcmp (m6809_abi_version_ptr, "stack"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	977 + m6809_abi_version = M6809_ABI_VERSION_STACK;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	978 + else if (!strcmp (m6809_abi_version_ptr, "regs"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	979 + m6809_abi_version = M6809_ABI_VERSION_REGS;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	980 + else if (!strcmp (m6809_abi_version_ptr, "bx"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	981 + m6809_abi_version = M6809_ABI_VERSION_BX;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	982 + else if (!strcmp (m6809_abi_version_ptr, "latest"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	983 + m6809_abi_version = M6809_ABI_VERSION_LATEST;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	984 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	985 + m6809_abi_version = atoi (m6809_abi_version_ptr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	986 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	987 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	988 + /* The older -mno-reg-args option is deprecated, and treated
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	989 + as -mabi=stack. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	990 + if (!TARGET_REG_ARGS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	991 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	992 + warning (WARNING_OPT "-mno-reg-args deprecated; use -mabi=stack instead.");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	993 + m6809_abi_version = M6809_ABI_VERSION_STACK;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	994 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	995 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	996 + /* -fexceptions is unsupported */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	997 + flag_exceptions = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	998 + flag_non_call_exceptions = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	999 + flag_unwind_tables = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1000 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1001 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1002 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1003 +/**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1004 + * Output prefix that directs the assembler to use a direct-mode
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1005 + * instruction if globally enabled, address is a symbol, and symbol
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1006 + * has been marked as in direct page. Also, never do this if
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1007 + * using the indirect mode. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1008 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1009 +print_direct_prefix (FILE * file, rtx addr)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1010 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1011 + if (TARGET_DIRECT &&
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1012 + (GET_CODE (addr) == SYMBOL_REF) &&
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1013 + SYMBOL_REF_FLAG (addr) &&
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1014 + check_direct_prefix_flag)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1015 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1016 + putc ('*', file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1017 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1018 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1019 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1020 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1021 +/** Prints an operand (that is not an address) in assembly from RTL. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1022 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1023 +print_operand (FILE * file, rtx x, int code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1024 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1025 + if (REG_P (x)) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1026 + /* gcc currently allocates the entire 16-bit 'd' register
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1027 + * even when it only needs an 8-bit value. So here it
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1028 + * is tricked into printing only the lower 8-bit 'b'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1029 + * register into the assembly output.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1030 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1031 + * Eventually gcc should be modified to allocate a/b
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1032 + * independently and this hack can be removed.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1033 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1034 + * Occasionally, we may want to do an operation using
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1035 + * the 'a' register instead of 'b'; use the 'A' code
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1036 + * to specify that.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1037 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1038 + if (code == 'A')
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1039 + fputs ("a", file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1040 + else if ((BYTE_MODE (x)) && (REGNO (x) == HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1041 + fputs ("b", file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1042 + else if (M_REG_P (x) && code == 'L')
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1043 + /* Soft registers can be treated like memory and accessed
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1044 + * at a particular offset. TODO : handle 'W' */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1045 + fputs (reg_names[REGNO (x)+1], file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1046 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1047 + fputs (reg_names[REGNO (x)], file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1048 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1049 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1050 + else if (MEM_P (x)) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1051 + last_mem_size = GET_MODE_SIZE (GET_MODE (x));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1052 + if (code == 'L') { /* LSH of word address */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1053 + if (GET_CODE (XEXP (x, 0)) == MEM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1054 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1055 + /* Offseting an indirect addressing mode is not supported */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1056 + error ("expression too complex for 6809 (offset indirect mode)");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1057 + debug_rtx (x);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1058 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1059 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1060 + x = adjust_address (x, QImode, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1061 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1062 + else if (code == 'M') { /* MSH of word address */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1063 + if (GET_CODE (XEXP (x, 0)) == MEM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1064 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1065 + /* Offseting an indirect addressing mode is not supported */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1066 + error ("expression too complex for 6809 (offset indirect mode)");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1067 + debug_rtx (x);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1068 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1069 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1070 + x = adjust_address (x, QImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1071 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1072 + else if (code == 'W') { /* least significant half of 32-bit */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1073 + x = adjust_address (x, HImode, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1074 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1075 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1076 + pic_ok_for_addr_p = (code != 'C');
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1077 + output_address (XEXP (x, 0));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1078 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1079 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1080 + else if (GET_CODE (x) == CONST_DOUBLE && GET_MODE (x) != DImode) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1081 + union { double d; int i[2]; } u;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1082 + u.i[0] = CONST_DOUBLE_LOW (x);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1083 + u.i[1] = CONST_DOUBLE_HIGH (x);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1084 + fprintf (file, "#%#9.9g", u.d);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1085 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1086 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1087 + else if (code == 'R') {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1088 + fprintf (file, "%s",
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1089 + m6809_get_regs_printable (INTVAL (x)));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1090 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1091 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1092 + else {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1093 + if (code == 'L') { /* LSH of word address */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1094 + x = gen_rtx_CONST_INT (VOIDmode, (INTVAL(x) & 0xff));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1095 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1096 + else if (code == 'M') { /* MSH of word address */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1097 + x = gen_rtx_CONST_INT (VOIDmode, ((INTVAL(x) >> 8) & 0xff));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1098 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1099 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1100 + putc ('#', file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1101 + output_addr_const (file, x);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1102 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1103 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1104 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1105 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1106 +/** Prints an address operand to assembler from its RTL representation. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1107 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1108 +print_operand_address (FILE *file, rtx addr)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1109 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1110 + register rtx base = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1111 + register rtx offset = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1112 + int regno;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1113 + int indirect_flag = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1114 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1115 + check_direct_prefix_flag = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1116 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1117 + /* check for indirect addressing */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1118 + if (MEM_P (addr)) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1119 + last_mem_size = GET_MODE_SIZE (GET_MODE (addr));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1120 + addr = XEXP (addr, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1121 + if (pic_ok_for_addr_p)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1122 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1123 + indirect_flag = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1124 + fprintf (file, "[");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1125 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1126 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1127 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1128 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1129 + switch (GET_CODE (addr)) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1130 + case REG:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1131 + regno = REGNO (addr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1132 + fprintf (file, ",%s", reg_names[regno]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1133 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1134 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1135 + case PRE_DEC:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1136 + regno = REGNO (XEXP (addr, 0));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1137 + fputs (((last_mem_size == 1) ? ",-" : ",--"), file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1138 + fprintf (file, "%s", reg_names[regno]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1139 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1140 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1141 + case POST_INC:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1142 + regno = REGNO (XEXP (addr, 0));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1143 + fprintf (file, ",%s", reg_names[regno]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1144 + fputs (((last_mem_size == 1) ? "+" : "++"), file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1145 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1146 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1147 + case PLUS:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1148 + base = XEXP (addr, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1149 + if (MEM_P (base))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1150 + base = XEXP (base, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1151 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1152 + offset = XEXP (addr, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1153 + if (MEM_P (offset))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1154 + offset = XEXP (offset, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1155 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1156 + if ((CONSTANT_ADDRESS_P (base)) && (CONSTANT_ADDRESS_P (offset))) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1157 + if (!indirect_flag)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1158 + check_direct_prefix_flag = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1159 + output_addr_const (file, base);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1160 + check_direct_prefix_flag = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1161 + fputs ("+", file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1162 + output_addr_const (file, offset);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1163 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1164 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1165 + else if ((CONSTANT_ADDRESS_P (base)) && (A_REG_P (offset))) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1166 + output_addr_const (file, base);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1167 + fprintf (file, ",%s", reg_names[REGNO (offset)]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1168 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1169 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1170 + else if ((CONSTANT_ADDRESS_P (offset)) && (A_REG_P (base))) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1171 + output_addr_const (file, offset);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1172 + fprintf (file, ",%s", reg_names[REGNO (base)]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1173 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1174 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1175 + /* accumulator offset */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1176 + else if (((D_REG_P (offset)) \|\| (Q_REG_P (offset)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1177 + && (A_REG_P (base))) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1178 + fprintf (file, "%s,%s",
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1179 + reg_names[REGNO (offset)], reg_names[REGNO (base)]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1180 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1181 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1182 + else if (((D_REG_P (base)) \|\| (Q_REG_P (base)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1183 + && (A_REG_P (offset))) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1184 + fprintf (file, "%s,%s",
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1185 + reg_names[REGNO (base)], reg_names[REGNO (offset)]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1186 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1187 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1188 + else if (GET_CODE (base) == PRE_DEC) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1189 + regno = REGNO (XEXP (base, 0));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1190 + fputs (((last_mem_size == 1) ? ",-" : ",--"), file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1191 + fprintf (file, "%s", reg_names[regno]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1192 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1193 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1194 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1195 + abort ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1196 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1197 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1198 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1199 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1200 + /* Set this global before calling output_addr_const() */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1201 + if (!indirect_flag)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1202 + check_direct_prefix_flag = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1203 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1204 + /* When printing a SYMBOL_REF in PIC mode, do not print the leading
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1205 + * '#' and follow it by ',pcr' to enable relative addressing. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1206 + if (flag_pic && pic_ok_for_addr_p && GET_CODE (addr) == SYMBOL_REF)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1207 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1208 + ASM_OUTPUT_SYMBOL_REF (file, addr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1209 + fputs (",pcr", file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1210 + pic_ok_for_addr_p = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1211 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1212 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1213 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1214 + output_addr_const (file, addr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1215 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1216 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1217 + check_direct_prefix_flag = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1218 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1219 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1220 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1221 + if (indirect_flag)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1222 + fprintf (file, "]");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1223 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1224 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1225 +/*-------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1226 + Update the CC Status
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1227 +---------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1228 + Set the cc_status for the results of an insn whose pattern is EXP.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1229 + We assume that jumps don't affect the condition codes.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1230 + All else, clobbers the condition codes, by assumption.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1231 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1232 + We assume that ALL add, minus, etc. instructions effect the condition
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1233 + codes.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1234 +-------------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1235 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1236 +notice_update_cc (rtx exp, rtx insn ATTRIBUTE_UNUSED)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1237 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1238 + int src_code;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1239 + int dst_code;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1240 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1241 + /* recognize SET insn's */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1242 + if (GET_CODE (exp) == SET)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1243 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1244 + src_code = GET_CODE (SET_SRC (exp));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1245 + dst_code = GET_CODE (SET_DEST (exp));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1246 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1247 + /* Jumps do not alter the cc's. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1248 + if (SET_DEST (exp) == pc_rtx)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1249 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1250 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1251 + /* Moving one register into another register (tfr):
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1252 + Doesn't alter the cc's. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1253 + if (REG_P (SET_DEST (exp)) && (REG_P (SET_SRC (exp))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1254 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1255 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1256 + /* Moving memory into a register (load): Sets cc's. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1257 + if (REG_P (SET_DEST (exp)) && src_code == MEM) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1258 + cc_status.value1 = SET_SRC (exp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1259 + cc_status.value2 = SET_DEST (exp);
438 f18cc0c87a7e Make 32 bit compares work better in gcc6809. Brett Gordon <beretta42@gmail.com> parents: 418 diff changeset	1260 + cc_status.flags \|= CC_NO_OVERFLOW;
418 3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1261 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1262 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1263 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1264 + /* Moving register into memory (store): Sets cc's. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1265 + if (dst_code == MEM && REG_P (SET_SRC (exp))) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1266 + cc_status.value1 = SET_SRC (exp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1267 + cc_status.value2 = SET_DEST (exp);
438 f18cc0c87a7e Make 32 bit compares work better in gcc6809. Brett Gordon <beretta42@gmail.com> parents: 418 diff changeset	1268 + cc_status.flags \|= CC_NO_OVERFLOW;
418 3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1269 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1270 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1271 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1272 + /* Function calls clobber the cc's. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1273 + else if (GET_CODE (SET_SRC (exp)) == CALL) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1274 + CC_STATUS_INIT;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1275 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1276 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1277 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1278 + /* Tests and compares set the cc's in predictable ways. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1279 + else if (SET_DEST (exp) == cc0_rtx)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1280 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1281 + cc_status.flags = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1282 + cc_status.value1 = SET_SRC (exp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1283 + cc_status.value2 = SET_DEST (exp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1284 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1285 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1286 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1287 + else if (A_REG_P (SET_DEST (exp)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1288 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1289 + CC_STATUS_INIT;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1290 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1291 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1292 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1293 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1294 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1295 + /* Certain instructions affect the condition codes. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1296 + switch (src_code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1297 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1298 + case PLUS:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1299 + case MINUS:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1300 + case NEG:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1301 + case ASHIFT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1302 + /* These instructions set the condition codes,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1303 + * and may modify the V bit. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1304 + cc_status.flags \|= CC_NO_OVERFLOW;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1305 + /* FALLTHRU */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1306 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1307 + case AND:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1308 + case IOR:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1309 + case XOR:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1310 + case ASHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1311 + case LSHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1312 + /* These instructions set the condition codes,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1313 + * but cannot overflow (V=0). */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1314 + cc_status.value1 = SET_SRC (exp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1315 + cc_status.value2 = SET_DEST (exp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1316 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1317 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1318 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1319 + /* Everything else is clobbered */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1320 + CC_STATUS_INIT;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1321 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1322 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1323 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1324 + } /* SET */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1325 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1326 + else if (GET_CODE (exp) == PARALLEL
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1327 + && GET_CODE (XVECEXP (exp, 0, 0)) == SET)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1328 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1329 + if (SET_DEST (XVECEXP (exp, 0, 0)) == pc_rtx)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1330 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1331 + if (SET_DEST (XVECEXP (exp, 0, 0)) == cc0_rtx)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1332 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1333 + CC_STATUS_INIT;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1334 + cc_status.value1 = SET_SRC (XVECEXP (exp, 0, 0));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1335 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1336 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1337 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1338 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1339 + /*** default action if we haven't recognized something
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1340 + and returned earlier ***/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1341 + CC_STATUS_INIT;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1342 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1343 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1344 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1345 +/** Returns nonzero if the expression EXP can be implemented using one
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1346 + * of the 6809's single operand instructions. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1347 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1348 +m6809_single_operand_operator (rtx exp)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1349 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1350 + rtx op1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1351 + HOST_WIDE_INT val;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1352 + enum rtx_code code;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1353 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1354 + debug_rtx(exp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1355 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1356 + code = GET_CODE (exp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1357 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1358 + /* Unary operators always qualify */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1359 + switch (code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1360 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1361 + case NEG:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1362 + case NOT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1363 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1364 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1365 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1366 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1367 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1368 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1369 + /* Binary operators can only qualify if the second
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1370 + * argument is a CONST_INT of certain value. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1371 + op1 = XEXP (exp, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1372 + if (GET_CODE (op1) != CONST_INT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1373 + return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1374 + val = INTVAL (op1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1375 + switch (code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1376 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1377 + case PLUS:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1378 + case MINUS:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1379 + if (val == -1 \|\| val == 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1380 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1381 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1382 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1383 + case ASHIFT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1384 + case ASHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1385 + case LSHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1386 + case ROTATE:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1387 + case ROTATERT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1388 + if (val == 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1389 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1390 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1391 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1392 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1393 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1394 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1395 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1396 + return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1397 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1398 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1399 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1400 +/** Return a bitarray of the hard registers which are used by a function. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1401 +unsigned int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1402 +m6809_get_live_regs (void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1403 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1404 + unsigned int regs = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1405 + int regno;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1406 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1407 + if (frame_pointer_needed)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1408 + regs \|= (1 << HARD_FRAME_POINTER_REGNUM);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1409 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1410 + for (regno = HARD_X_REGNUM; regno <= HARD_U_REGNUM; regno++)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1411 + if (df_regs_ever_live_p (regno) && ! call_used_regs[regno])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1412 + regs \|= (1 << regno);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1413 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1414 + return regs;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1415 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1416 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1417 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1418 +/** Return a printable version of a list of hard registers, suitable
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1419 + * for use in a PSHx or PULx insn. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1420 +const char *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1421 +m6809_get_regs_printable (unsigned int regs)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1422 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1423 + static char list[64];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1424 + char *listp = list;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1425 + unsigned int regno;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1426 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1427 + for (regno=0; regno < FIRST_PSEUDO_REGISTER; regno++)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1428 + if ((regs & (1 << regno)) && !S_REGNO_P (regno))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1429 + listp += sprintf (listp,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1430 + (listp == list) ? "%s" : ",%s", reg_names[regno]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1431 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1432 + return list;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1433 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1434 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1435 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1436 +/** Return the total number of bytes covered by a set of hard registers. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1437 +unsigned int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1438 +m6809_get_regs_size (unsigned int regs)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1439 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1440 + unsigned int regno;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1441 + unsigned int size = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1442 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1443 + for (regno=0; regno < FIRST_PSEUDO_REGISTER; regno++)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1444 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1445 + /* Only count register in the given register set */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1446 + if (REGSET_CONTAINS_P (regno, regs))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1447 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1448 + /* Add 1 or 2 byte, depending on the size of the register.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1449 + * Since 'D' may be in both sets, check for WORD_REGSET first. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1450 + if (REGSET_CONTAINS_P(regno, WORD_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1451 + size += 2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1452 + else if (REGSET_CONTAINS_P(regno, BYTE_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1453 + size++;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1454 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1455 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1456 + return size;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1457 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1458 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1459 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1460 +/* Given the target of call instruction in X,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1461 + * return the tree node that contains the function declaration for
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1462 + * that target.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1463 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1464 + * If the rtx or the tree do not appear valid for any reason,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1465 + * then return NULL_TREE.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1466 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1467 +static tree call_target_decl (rtx x)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1468 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1469 + tree decl;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1470 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1471 + /* Make sure the target is really a MEM. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1472 + if (!x \|\| !MEM_P (x))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1473 + return NULL_TREE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1474 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1475 + /* Make sure the address is a SYMBOL_REF. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1476 + x = XEXP (x, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1477 + if (!x \|\| (GET_CODE (x) != SYMBOL_REF))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1478 + return NULL_TREE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1479 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1480 + /* Get the declaration of this symbol */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1481 + decl = SYMBOL_REF_DECL (x);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1482 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1483 + /* Make sure the declaration is really a function. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1484 + if (!decl \|\| (TREE_CODE(decl) != FUNCTION_DECL))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1485 + return NULL_TREE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1486 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1487 + return decl;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1488 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1489 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1490 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1491 +/** Returns nonzero if a function, whose declaration is in DECL,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1492 + * was declared to have the attribute given by ATTR_NAME. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1493 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1494 +m6809_function_has_type_attr_p (tree decl, const char *attr_name)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1495 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1496 + tree type;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1497 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1498 + type = TREE_TYPE (decl);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1499 + return lookup_attribute (attr_name, TYPE_ATTRIBUTES (type)) != NULL;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1500 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1501 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1502 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1503 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1504 +/** Returns nonzero if the current function was declared to have the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1505 + * attribute given by ATTR_NAME. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1506 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1507 +m6809_current_function_has_type_attr_p (const char *attr_name)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1508 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1509 + return m6809_function_has_type_attr_p (current_function_decl, attr_name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1510 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1511 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1512 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1513 +/** Return nonzero if the current function has no return value. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1514 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1515 +m6809_current_function_is_void (void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1516 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1517 + return (VOID_TYPE_P (TREE_TYPE (TREE_TYPE (current_function_decl))));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1518 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1519 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1520 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1521 +/** Get the value of a declaration's 'bank', as set by the 'bank'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1522 + * attribute. If no bank was declared, it returns NULL by default. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1523 +const char *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1524 +m6809_get_decl_bank (tree decl)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1525 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1526 + tree attr;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1527 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1528 + /* Lookup the 'bank' attribute. If it does not exist, then
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1529 + * return NULL */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1530 + attr = lookup_attribute ("bank", DECL_ATTRIBUTES (decl));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1531 + if (attr == NULL_TREE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1532 + return NULL;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1533 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1534 + /* Make sure it has a value assigned to it */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1535 + attr = TREE_VALUE (attr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1536 + if (attr == NULL_TREE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1537 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1538 + warning (WARNING_OPT "banked function did not declare a bank number");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1539 + return NULL;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1540 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1541 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1542 + /* Return the bank name */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1543 + attr = TREE_VALUE (attr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1544 + return TREE_STRING_POINTER (attr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1545 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1546 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1547 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1548 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1549 +m6809_declare_function_name (FILE asm_out_file, const char name, tree decl)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1550 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1551 + /* Check the function declaration for special properties.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1552 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1553 + * If the function was declare with __attribute__((bank)), output
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1554 + * assembler definitions to force the function to go into the named
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1555 + * bank.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1556 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1557 + const char *bank_name = m6809_get_decl_bank (decl);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1558 + if (bank_name != NULL)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1559 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1560 + /* Declare __self_bank as a local assembler value that denotes
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1561 + * which bank the current function is in. This is required only
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1562 + * when the bank actually changes. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1563 + if (strcmp (bank_name, current_bank_name))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1564 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1565 + fprintf (asm_out_file, "__self_bank\t.equ %s\n", bank_name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1566 + strcpy (current_bank_name, bank_name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1567 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1568 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1569 + /* Declare a global assembler value that denotes which bank the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1570 + * named function is in. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1571 + fprintf (asm_out_file, "__%s_bank\t.gblequ %s\n", name, bank_name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1572 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1573 + /* Force the current function into a new area */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1574 + fprintf (asm_out_file, "\t.bank bank_%s (FSFX=_%s)\n",
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1575 + bank_name, bank_name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1576 + fprintf (asm_out_file, "\t.area bank_%s (BANK=bank_%s)\n",
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1577 + bank_name, bank_name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1578 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1579 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1580 + /* Emit the label for the function's name */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1581 + ASM_OUTPUT_LABEL (asm_out_file, name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1582 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1583 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1584 +#if 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1585 +/**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1586 + * Handle pragmas. Note that only the last branch pragma seen in the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1587 + * source has any affect on code generation.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1588 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1589 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1590 +#define BAD_PRAGMA(msgid, arg) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1591 + do { warning (WARNING_OPT msgid, arg); return -1; } while (0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1592 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1593 +static int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1594 +pragma_parse (const char name, tree sect)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1595 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1596 + tree s, x;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1597 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1598 + if (pragma_lex (&x) != CPP_OPEN_PAREN)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1599 + BAD_PRAGMA ("missing '(' after '#pragma %s' - ignored", name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1600 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1601 + if (pragma_lex (&s) != CPP_STRING)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1602 + BAD_PRAGMA ("missing section name in '#pragma %s' - ignored", name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1603 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1604 + if (pragma_lex (&x) != CPP_CLOSE_PAREN)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1605 + BAD_PRAGMA ("missing ')' for '#pragma %s' - ignored", name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1606 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1607 + if (pragma_lex (&x) != CPP_EOF)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1608 + warning (WARNING_OPT "junk at end of '#pragma %s'", name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1609 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1610 + *sect = s;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1611 + return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1612 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1613 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1614 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1615 +/*
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1616 + * Handle #pragma section.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1617 + * This is deprecated; code should use __attribute__(section("name"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1618 + * instead.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1619 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1620 +void pragma_section (cpp_reader *pfile ATTRIBUTE_UNUSED)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1621 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1622 + tree sect;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1623 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1624 + if (pragma_parse ("section", &sect))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1625 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1626 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1627 + snprintf (code_section_op, 6+TREE_STRING_LENGTH (sect),
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1628 + ".area\t%s", TREE_STRING_POINTER (sect));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1629 + snprintf (data_section_op, 6+TREE_STRING_LENGTH (sect),
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1630 + ".area\t%s", TREE_STRING_POINTER (sect));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1631 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1632 + /* Mark a flag that sections have changed. Upon emitting another
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1633 + * declaration, the new .area directive will be written. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1634 + section_changed++;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1635 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1636 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1637 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1638 +/**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1639 + * Check a `double' value for validity for a particular machine mode.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1640 + * Called by the CHECK_FLOAT_VALUE() machine-dependent macro.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1641 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1642 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1643 +check_float_value (enum machine_mode mode, double *d, int overflow)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1644 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1645 + if (mode == SFmode) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1646 + if (*d > 1.7014117331926443e+38) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1647 + error("magnitude of constant too large for `float'");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1648 + *d = 1.7014117331926443e+38;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1649 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1650 + else if (*d < -1.7014117331926443e+38) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1651 + error("magnitude of constant too large for `float'");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1652 + *d = -1.7014117331926443e+38;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1653 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1654 + else if ((d > 0) && (d < 2.9387358770557188e-39)) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1655 + warning(WARNING_OPT "`float' constant truncated to zero");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1656 + *d = 0.0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1657 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1658 + else if ((d < 0) && (d > -2.9387358770557188e-39)) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1659 + warning(WARNING_OPT "`float' constant truncated to zero");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1660 + *d = 0.0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1661 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1662 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1663 + return overflow;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1664 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1665 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1666 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1667 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1668 +/** Declare that the target supports named output sections. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1669 +bool m6809_have_named_section = (bool)1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1670 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1671 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1672 +/** Write to the assembler file a directive to place
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1673 + * subsequent objects to a different section in the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1674 + * object file. ASxxxx uses the "area" directive for
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1675 + * this purpose. It does not however support generalized
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1676 + * alignment, and can only place items on an odd/even
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1677 + * boundary. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1678 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1679 +m6809_asm_named_section (
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1680 + const char *name,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1681 + unsigned int flags ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1682 + tree decl)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1683 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1684 + fprintf (asm_out_file, "\t.area\t%s\n", name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1685 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1686 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1687 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1688 +enum reg_class
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1689 +m6809_preferred_reload_class (rtx x, enum reg_class regclass)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1690 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1691 + /* Check cases based on type code of rtx */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1692 + switch (GET_CODE(x))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1693 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1694 + /*
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1695 + * Observation, 2015-07-19, William Astle
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1696 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1697 + * The original comparison for range for 16 bits was wrong, adding 0x80
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1698 + * instead of 0x8000. Replaced both 8 bit and 16 bit comparisions with
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1699 + * a more straight forward range comparison - excessive cleverness isn't
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1700 + * really required here.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1701 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1702 + case CONST_INT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1703 + /* Constants that can fit into 1 byte should be
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1704 + * loaded into a Q_REGS reg */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1705 + if ((INTVAL(x) >= -128 && INTVAL(x) <= 127) &&
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1706 +// if (((unsigned) (INTVAL(x) + 0x80) < 0x100) &&
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1707 + (regclass > A_REGS))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1708 + return Q_REGS;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1709 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1710 + /* 16-bit constants should be loaded into A_REGS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1711 + * when possible. gcc may already require A_REGS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1712 + * or D_REGS for certain types of instructions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1713 + * This case applies mostly to simple copy operations
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1714 + * to/from memory when any register will do, but
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1715 + * it's best to avoid using D register since it is
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1716 + * needed for other things.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1717 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1718 + else if ((INTVAL(x) >= -32768 && INTVAL(x) <= 32767) &&
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1719 +// else if (((unsigned) (INTVAL(x) + 0x80) < 0x10000) &&
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1720 + (regclass > A_REGS))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1721 + return A_REGS;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1722 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1723 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1724 + case SYMBOL_REF:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1725 + case LABEL_REF:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1726 + /* Addresses should always be loaded into A_REGS */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1727 + if (regclass >= A_REGS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1728 + return (A_REGS);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1729 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1730 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1731 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1732 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1733 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1734 + /* Check cases based on mode of rtx */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1735 + if ((GET_MODE(x) == QImode) && (regclass != A_REGS))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1736 + return Q_REGS;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1737 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1738 + /* Default: return whatever class reload suggested */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1739 + return regclass;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1740 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1741 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1742 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1743 +/**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1744 + * Check a new declaration for the "section" attribute.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1745 + * If it exists, and the target section is "direct", then mark
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1746 + * the declaration (in RTL) to indicate special treatment.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1747 + * When the variable is referenced later, we test for this flag
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1748 + * and can emit special asm text to force the assembler to use
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1749 + * short instructions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1750 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1751 +static void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1752 +m6809_encode_section_info (tree decl, rtx rtl, int new_decl_p ATTRIBUTE_UNUSED)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1753 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1754 + tree attr, id;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1755 + const char *name;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1756 + const char *decl_name;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1757 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1758 + /* We only care about variable declarations, not functions */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1759 + if (TREE_CODE (decl) != VAR_DECL)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1760 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1761 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1762 + /* For debugging purposes only; grab the decl's name */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1763 + decl_name = IDENTIFIER_POINTER (DECL_NAME (decl));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1764 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1765 + /* Give up if the decl doesn't have any RTL */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1766 + if (!DECL_RTL (decl))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1767 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1768 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1769 + /* See if it has a section attribute */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1770 + attr = lookup_attribute ("section", DECL_ATTRIBUTES (decl));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1771 + if (!attr)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1772 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1773 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1774 + /* See if the section attribute has a value */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1775 + id = TREE_VALUE (TREE_VALUE (attr));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1776 + if (!id)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1777 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1778 + name = TREE_STRING_POINTER (id);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1779 + if (!name)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1780 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1781 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1782 + /* See if the value is 'direct'. If so, mark it. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1783 + if (!strcmp (name, "direct"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1784 + SYMBOL_REF_FLAG (XEXP (DECL_RTL (decl), 0)) = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1785 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1786 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1787 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1788 +/**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1789 + * Output code to perform a complex shift, for which there is no
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1790 + * direct support in the instruction set.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1791 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1792 + * shift1 is an instruction pattern for performing a 1-bit modification.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1793 + * This code wraps that pattern in a loop to perform the shift N times,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1794 + * where N is given by the address register in operands[2].
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1795 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1796 + * To support 16-bit shifts, shift2 can also be provided: it is
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1797 + * a second instruction to be included in the loop. 8-bit shift
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1798 + * insns will pass NULL here.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1799 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1800 + * The insn length of shift1/shift2 is assumed to be 1 byte,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1801 + * which works in all of the cases it is needed so far.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1802 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1803 +static void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1804 +m6809_gen_register_shift (
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1805 + rtx *operands,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1806 + const char *shift1,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1807 + const char *shift2 )
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1808 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1809 + char beq_pattern[32];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1810 + char bra_pattern[32];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1811 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1812 + int shiftlen = (shift1 && shift2) ? 2 : 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1813 + int cmplen = (REGNO (operands[2]) == HARD_X_REGNUM) ? 3 : 4;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1814 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1815 + int beq_offset = 2 + shiftlen + 2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1816 + int bra_offset = shiftlen + 2 + cmplen + 2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1817 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1818 + sprintf (beq_pattern, "beq\t.+%d", beq_offset);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1819 + sprintf (bra_pattern, "bra\t.-%d", bra_offset);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1820 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1821 + output_asm_insn ("pshs\t%2", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1822 + output_asm_insn ("lea%2\t-1,%2", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1823 + output_asm_insn ("cmp%2\t#-1", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1824 + output_asm_insn (beq_pattern, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1825 + if (shift1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1826 + output_asm_insn (shift1, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1827 + if (shift2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1828 + output_asm_insn (shift2, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1829 + output_asm_insn (bra_pattern, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1830 + output_asm_insn ("puls\t%2", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1831 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1832 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1833 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1834 +/** Generate RTL for the upper 8-bits of a 16-bit constant. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1835 +rtx
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1836 +gen_rtx_const_high (rtx r)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1837 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1838 + unsigned char v = (INTVAL (r) >> 8) & 0xFF;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1839 + signed char s = (signed char)v;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1840 + return gen_int_mode (s, QImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1841 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1842 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1843 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1844 +/** Generate RTL for the lower 8-bits of a 16-bit constant. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1845 +rtx
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1846 +gen_rtx_const_low (rtx r)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1847 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1848 + unsigned char v = INTVAL (r) & 0xFF;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1849 + signed char s = (signed char)v;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1850 + return gen_int_mode (s, QImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1851 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1852 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1853 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1854 +/** Generate RTL to allocate/free bytes on the stack.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1855 + * CODE is given as MINUS when allocating and PLUS when freeing,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1856 + * to match the semantics of a downward-growing stack. SIZE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1857 + * is always given as a positive integer.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1858 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1859 +static rtx
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1860 +gen_rtx_stack_adjust (enum rtx_code code, int size)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1861 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1862 + if (size <= 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1863 + return NULL_RTX;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1864 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1865 + if (code == MINUS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1866 + size = -size;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1867 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1868 + return gen_rtx_SET (Pmode, stack_pointer_rtx,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1869 + gen_rtx_PLUS (Pmode, stack_pointer_rtx,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1870 + gen_int_mode (size, HImode)));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1871 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1872 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1873 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1874 +/** Generate RTL to push/pop a set of registers. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1875 +rtx
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1876 +gen_rtx_register_pushpop (int op, int regs)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1877 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1878 + rtx nregs = gen_int_mode (regs, QImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1879 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1880 + if (op == UNSPEC_PUSH_RS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1881 + return gen_register_push (nregs);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1882 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1883 + return gen_register_pop (nregs);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1884 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1885 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1886 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1887 +/* Given a register set REGS, where the bit positions correspond to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1888 + * hard register numbers, return another bitmask that represents the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1889 + * order in which those registers would be pushed/popped.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1890 + * Registers that are pushed first have higher bit positions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1891 + * The pop order is just the reverse bitmask.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1892 + * These values are the same as the bitmasks actually used in the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1893 + * machine instructions. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1894 +static unsigned int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1895 +register_push_order (int regs)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1896 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1897 + unsigned int order = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1898 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1899 + if (REGSET_CONTAINS_P (HARD_PC_REGNUM, regs))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1900 + order \|= 0x80;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1901 + if (REGSET_CONTAINS_P (HARD_U_REGNUM, regs))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1902 + order \|= 0x40;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1903 + if (REGSET_CONTAINS_P (HARD_Y_REGNUM, regs))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1904 + order \|= 0x20;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1905 + if (REGSET_CONTAINS_P (HARD_X_REGNUM, regs))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1906 + order \|= 0x10;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1907 + if (REGSET_CONTAINS_P (HARD_DP_REGNUM, regs))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1908 + order \|= 0x8;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1909 + if (REGSET_CONTAINS_P (HARD_B_REGNUM, regs))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1910 + order \|= 0x4;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1911 + if (REGSET_CONTAINS_P (HARD_A_REGNUM, regs))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1912 + order \|= 0x2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1913 + if (REGSET_CONTAINS_P (HARD_CC_REGNUM, regs))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1914 + order \|= 0x1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1915 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1916 + if (REGSET_CONTAINS_P (HARD_D_REGNUM, regs))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1917 + order \|= (0x4 \| 0x2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1918 + return order;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1919 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1920 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1921 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1922 +/* Returns nonzero if two consecutive push or pop instructions,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1923 + * as determined by the OP, can be merged into a single instruction.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1924 + * The first instruction in the sequence pushes/pops REGS1; the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1925 + * second applies to REGS2.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1926 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1927 + * If true, the resulting instruction can use (regs1 \| regs2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1928 + * safely.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1929 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1930 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1931 +m6809_can_merge_pushpop_p (int op, int regs1, int regs2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1932 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1933 + /* Register sets must not overlap */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1934 + if (regs1 & regs2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1935 + return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1936 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1937 + if (op == UNSPEC_PUSH_RS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1938 + return (register_push_order (regs1) > register_push_order (regs2));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1939 + else if (op == UNSPEC_POP_RS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1940 + return (register_push_order (regs1) < register_push_order (regs2));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1941 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1942 + return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1943 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1944 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1945 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1946 +/** Emit instructions for making a library call.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1947 + * MODE is the mode of the operation.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1948 + * NAME is the library function name.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1949 + * OPERANDS is the rtx array provided by the recognizer.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1950 + * COUNT is the number of input operands to the call, and
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1951 + * should be 1 for a unary op or 2 for a binary op.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1952 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1953 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1954 +emit_libcall_insns (enum machine_mode mode,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1955 + const char *name,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1956 + rtx *operands,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1957 + int count)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1958 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1959 + /* Generate an rtx for the call target. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1960 + rtx symbol = gen_rtx_SYMBOL_REF (Pmode, name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1961 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1962 + /* Emit the library call. Slightly different based
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1963 + on the number of operands */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1964 + if (count == 2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1965 + emit_library_call (symbol, LCT_NORMAL, mode,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1966 + 2, operands[1], mode, operands[2], mode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1967 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1968 + emit_library_call (symbol, LCT_NORMAL, mode,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1969 + 1, operands[1], mode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1970 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1971 + /* The library call is expected to put its result
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1972 + in LIBCALL_VALUE, so need to copy it into the destination. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1973 + emit_move_insn (operands[0], LIBCALL_VALUE(mode));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1974 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1975 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1976 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1977 +/**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1978 + * A small helper function that writes out a single branch instruction.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1979 + * OPCODE is the short name, e.g. "ble".
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1980 + * OPERANDS has the rtx for the target label.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1981 + * LONG_P is nonzero if we are emitting a long branch, and need to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1982 + * prepend an 'l' to the opcode name.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1983 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1984 +void output_branch_insn1 (const char opcode, rtx operands, int long_p)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1985 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1986 + char pattern[64];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1987 + sprintf (pattern, "%s%s\t%%l0", long_p ? "l" : "", opcode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1988 + output_asm_insn (pattern, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1989 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1990 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1991 +/**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1992 + * Output a branch/conditional branch insn of the proper
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1993 + * length. code identifies the particular branch insn.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1994 + * operands holds the branch target in operands[0].
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1995 + * length says what the size of this insn should be.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1996 + * Based on the length, we know whether it should be a
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1997 + * short (8-bit) or long (16-bit) branch.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1998 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	1999 +const char *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2000 +output_branch_insn (enum rtx_code code, rtx *operands, int length)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2001 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2002 + int shortform;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2003 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2004 + /* Decide whether or not to use the long or short form.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2005 + * Calculate automatically based on insn lengths. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2006 + shortform = ((length > 2) ? 0 : 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2007 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2008 + /* Determine the proper opcode.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2009 + * Use the short (2-byte) opcode if the target is within
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2010 + * reach. Otherwise, use jmp (3-byte opcode), unless
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2011 + * compiling with -fpic, in which case we'll need to use
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2012 + * lbra (4-byte opcode).
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2013 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2014 + switch (code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2015 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2016 + case LABEL_REF:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2017 + if (shortform)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2018 + output_branch_insn1 ("bra", operands, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2019 + else if (flag_pic)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2020 + output_branch_insn1 ("bra", operands, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2021 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2022 + output_branch_insn1 ("jmp", operands, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2023 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2024 + case EQ:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2025 + output_branch_insn1 ("beq", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2026 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2027 + case NE:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2028 + output_branch_insn1 ("bne", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2029 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2030 + case GT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2031 + output_branch_insn1 ("bgt", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2032 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2033 + case GTU:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2034 + output_branch_insn1 ("bhi", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2035 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2036 + case LT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2037 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2038 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2039 + output_branch_insn1 ("bmi", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2040 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2041 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2042 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2043 + output_branch_insn1 ("blt", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2044 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2045 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2046 + case LTU:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2047 + output_branch_insn1 ("blo", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2048 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2049 + case GE:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2050 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2051 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2052 + output_branch_insn1 ("bpl", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2053 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2054 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2055 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2056 + output_branch_insn1 ("bge", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2057 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2058 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2059 + case GEU:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2060 + output_branch_insn1 ("bhs", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2061 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2062 + case LE:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2063 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2064 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2065 + output_branch_insn1 ("bmi", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2066 + output_branch_insn1 ("beq", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2067 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2068 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2069 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2070 + output_branch_insn1 ("ble", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2071 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2072 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2073 + case LEU:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2074 + output_branch_insn1 ("bls", operands, !shortform);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2075 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2076 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2077 + abort();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2078 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2079 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2080 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2081 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2082 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2083 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2084 +/** Returns the "cost" of an RTL expression.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2085 + * In general, the expression "COSTS_N_INSNS(1)" is used to represent
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2086 + * the cost of a fast 8-bit arithmetic instruction that operates on
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2087 + * a reg/mem or a reg/immed. Other costs are relative to this.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2088 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2089 + * Notes:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2090 + * - The cost of a REG is always zero; this cannot be changed.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2091 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2092 + * - On the 6809, instructions on two registers will nearly always take
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2093 + * longer than those that operate on a register and a constant/memory,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2094 + * because of the way the instruction set is structured.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2095 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2096 + * TODO: multiply HImode by 2 should be done via shifts, instead of add.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2097 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2098 +static bool
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2099 +m6809_rtx_costs (rtx X, int code, int outer_code ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2100 + int *total, bool speed)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2101 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2102 + int has_const_arg = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2103 + HOST_WIDE_INT const_arg;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2104 + enum machine_mode mode;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2105 + int nargs = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2106 + rtx op0, op1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2107 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2108 + /* Data RTXs return a value between 0-3, depending on complexity.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2109 + All of these are less than COSTS_N_INSNS(1). */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2110 + switch (code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2111 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2112 + case CC0:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2113 + case PC:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2114 + *total = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2115 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2116 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2117 + case CONST_INT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2118 + if (X == const0_rtx)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2119 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2120 + *total = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2121 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2122 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2123 + else if ((unsigned) INTVAL (X) < 077)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2124 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2125 + *total = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2126 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2127 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2128 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2129 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2130 + *total = 2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2131 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2132 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2133 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2134 + case LABEL_REF: case CONST:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2135 + *total = 2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2136 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2137 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2138 + case SYMBOL_REF:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2139 + /* References to memory are made cheaper if they have
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2140 + * the 'direct' mode attribute set */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2141 + *total = (SYMBOL_REF_FLAG (X)) ? 1 : 2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2142 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2143 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2144 + case MEM:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2145 + /* See what form of address was given */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2146 + X = XEXP (X, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2147 + switch (GET_CODE (X))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2148 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2149 + case SYMBOL_REF:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2150 + *total = (SYMBOL_REF_FLAG (X)) ? 1 : 2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2151 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2152 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2153 + case CONST_INT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2154 + *total = 2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2155 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2156 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2157 + case MEM:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2158 + *total = COSTS_N_INSNS (1) + 2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2159 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2160 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2161 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2162 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2163 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2164 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2165 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2166 + case CONST_DOUBLE:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2167 + /* TODO : not sure about this value. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2168 + *total = 3;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2169 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2170 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2171 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2172 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2173 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2174 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2175 + /* Decode the rtx */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2176 + mode = GET_MODE (X);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2177 + op0 = XEXP (X, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2178 + op1 = XEXP (X, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2179 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2180 + /* We don't implement anything in SImode or greater. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2181 + if (GET_MODE_SIZE (mode) >= GET_MODE_SIZE (SImode))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2182 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2183 + *total = COSTS_N_INSNS (100);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2184 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2185 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2186 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2187 + /* Figure out if there is a constant argument, and its value. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2188 + if (GET_RTX_CLASS (code) == RTX_BIN_ARITH
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2189 + \|\| GET_RTX_CLASS (code) == RTX_COMM_ARITH)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2190 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2191 + nargs = 2;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2192 + if (GET_CODE (op1) == CONST_INT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2193 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2194 + has_const_arg = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2195 + const_arg = INTVAL (op1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2196 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2197 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2198 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2199 + /* Penalize a reg/reg operation by adding MEMORY_MOVE_COST,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2200 + * Ignore soft registers, since these are really in memory.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2201 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2202 + * TODO: penalize HImode reg/reg for most operations, except maybe
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2203 + * additions since index registers allow for that.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2204 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2205 + * TODO: shifts by constant N do not always require N instructions;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2206 + * some of this can be done cheaper. The number of actual insns can be
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2207 + * predicted well.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2208 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2209 + if (nargs == 2 && REAL_REG_P (op0) && REAL_REG_P (op1))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2210 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2211 + *total = MEMORY_MOVE_COST (mode, Q_REGS, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2212 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2213 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2214 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2215 + *total = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2216 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2217 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2218 + /* Operator RTXs are counted as COSTS_N_INSNS(N), where N is
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2219 + the estimated number of actual machine instructions needed to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2220 + perform the computation. Some small adjustments are made since
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2221 + some "instructions" are more complex than others. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2222 + switch (code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2223 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2224 + case PLUS: case MINUS: case COMPARE:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2225 + /* 6809 handles these natively in QImode, and in HImode as long
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2226 + * as operand 1 is constant. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2227 + if (mode == QImode \|\| (mode == HImode && has_const_arg))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2228 + *total += COSTS_N_INSNS (1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2229 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2230 + *total += COSTS_N_INSNS (GET_MODE_SIZE (mode));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2231 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2232 + /* -1, 0, and 1 can be done using inherent instructions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2233 + * for PLUS and MINUS in QImode, so don't add extra cost. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2234 + if (has_const_arg
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2235 + && (mode == QImode \|\| mode == HImode)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2236 + && (const_arg == -1 \|\| const_arg == 0 \|\| const_arg == 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2237 + && (code == PLUS \|\| code == MINUS))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2238 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2239 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2240 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2241 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2242 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2243 + case AND: case IOR: case XOR:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2244 + case NEG: case NOT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2245 + /* 6809 handles these natively in QImode, but requires
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2246 + * splitting in HImode. Treat these as 2 insns. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2247 + total += COSTS_N_INSNS (1) GET_MODE_SIZE (mode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2248 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2249 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2250 + case ASHIFT: case ASHIFTRT: case LSHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2251 + case ROTATE: case ROTATERT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2252 + /* 6809 can do shift/rotates of a QImode by a constant in
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2253 + * 1 insn times the shift count, or in HImode by a constant
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2254 + * by splitting to 2 insns.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2255 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2256 + * Shift by a nonconstant will take significantly longer
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2257 + * than any of these. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2258 + if (has_const_arg)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2259 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2260 + const_arg %= (GET_MODE_SIZE (mode) * 8);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2261 + if (const_arg == 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2262 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2263 + *total += COSTS_N_INSNS(1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2264 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2265 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2266 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2267 + /* HImode shifts greater than 8 get optimized due
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2268 + * to register transfer from b to a; this cuts down the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2269 + * cost. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2270 + if (const_arg >= 8)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2271 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2272 + *total += COSTS_N_INSNS (1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2273 + const_arg -= 8;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2274 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2275 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2276 + /* The computed cost is 'const_arg' 1-bit shifts, doubled
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2277 + if in HImode, minus the cost of the constant itself which
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2278 + will be added in later but really shouldn't be. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2279 + total += COSTS_N_INSNS (const_arg) GET_MODE_SIZE (mode) - 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2280 + return true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2281 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2282 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2283 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2284 + /* It may take up to 7 iterations of about 6-7 real
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2285 + * instructions, so make this expensive. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2286 + *total += COSTS_N_INSNS (50);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2287 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2288 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2289 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2290 + case MULT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2291 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2292 + /* Multiply is cheap when both arguments are 8-bits. They
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2293 + could be QImode, or QImode widened to HImode, or a constant
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2294 + that fits into 8-bits. As long as both operands qualify,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2295 + we can use a single mul instruction.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2296 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2297 + Assume that fast multiply can be used, and change this if we find
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2298 + differently... */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2299 + int ok_for_qihi3 = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2300 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2301 + /* Check the first operand */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2302 + switch (GET_MODE (op0))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2303 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2304 + case QImode:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2305 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2306 + case HImode:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2307 + if (GET_CODE (op0) != SIGN_EXTEND && GET_CODE (op0) != ZERO_EXTEND)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2308 + ok_for_qihi3 = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2309 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2310 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2311 + ok_for_qihi3 = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2312 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2313 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2314 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2315 + /* Likewise, check the second operand. This is where constants may appear. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2316 + switch (GET_MODE (op1))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2317 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2318 + case QImode:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2319 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2320 + case HImode:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2321 + if (GET_CODE (op1) != SIGN_EXTEND && GET_CODE (op1) != ZERO_EXTEND)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2322 + ok_for_qihi3 = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2323 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2324 + case VOIDmode:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2325 + if (!CONST_OK_FOR_LETTER_P (const_arg, 'K'))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2326 + ok_for_qihi3 = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2327 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2328 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2329 + ok_for_qihi3 = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2330 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2331 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2332 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2333 + /* Fast multiply takes about 4 times as many cycles as a normal
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2334 + arithmetic operation. Otherwise, it will take an expensive libcall. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2335 + if (ok_for_qihi3)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2336 + *total += COSTS_N_INSNS (4);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2337 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2338 + *total = COSTS_N_INSNS (50);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2339 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2340 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2341 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2342 + case DIV: case UDIV: case MOD: case UMOD:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2343 + /* These all require more expensive libcalls. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2344 + *total += COSTS_N_INSNS (100);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2345 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2346 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2347 + /* TODO : TRUNCATE, SIGN_EXTEND, and ZERO_EXTEND */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2348 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2349 + /* These can normally be done with autoincrement, etc., so
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2350 + * don't charge for them. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2351 + case PRE_DEC:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2352 + case PRE_INC:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2353 + case POST_DEC:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2354 + case POST_INC:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2355 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2356 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2357 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2358 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2359 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2360 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2361 + /* Always return false, and let the caller gather the costs
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2362 + * of the operands */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2363 + return false;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2364 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2365 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2366 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2367 +static tree
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2368 +m6809_handle_fntype_attribute (tree *node, tree name,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2369 + tree args ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2370 + int flags ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2371 + bool *no_add_attrs)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2372 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2373 + if (TREE_CODE (*node) != FUNCTION_TYPE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2374 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2375 + warning (WARNING_OPT "'%s' only valid for functions",
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2376 + IDENTIFIER_POINTER (name));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2377 + *no_add_attrs = TRUE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2378 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2379 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2380 + return NULL_TREE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2381 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2382 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2383 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2384 +static tree
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2385 +m6809_handle_data_type_attribute (tree *node ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2386 + tree name ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2387 + tree args ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2388 + int flags ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2389 + bool *no_add_attrs ATTRIBUTE_UNUSED)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2390 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2391 + return NULL_TREE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2392 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2393 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2394 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2395 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2396 +static tree
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2397 +m6809_handle_default_attribute (tree *node ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2398 + tree name ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2399 + tree args ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2400 + int flags ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2401 + bool *no_add_attrs ATTRIBUTE_UNUSED )
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2402 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2403 + return NULL_TREE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2404 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2405 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2406 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2407 +/* Table of valid machine attributes */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2408 +const struct attribute_spec m6809_attribute_table[] = { /*
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2409 +{ name, min, max, decl, type, fntype, handler } */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2410 +{ "interrupt", 0, 0, false, true, true, m6809_handle_fntype_attribute },
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2411 +{ "naked", 0, 0, false, true, true, m6809_handle_fntype_attribute },
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2412 +{ "far", 0, 1, false, true, true, m6809_handle_fntype_attribute },
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2413 +{ "bank", 0, 1, true, false, false, m6809_handle_default_attribute },
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2414 +{ "boolean", 0, 0, false, true, false, m6809_handle_data_type_attribute },
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2415 +{ NULL, 0, 0, false, true, false, NULL },
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2416 +};
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2417 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2418 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2419 +/** Initialize builtin routines for the 6809. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2420 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2421 +m6809_init_builtins (void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2422 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2423 + /* Create type trees for each function signature required.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2424 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2425 + * void_ftype_void = void f(void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2426 + * void_ftype_uchar = void f(unsigned char)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2427 + * uchar_ftype_uchar2 = unsigned char f (unsigned char, unsigned char)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2428 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2429 + tree void_ftype_void =
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2430 + build_function_type (void_type_node, void_list_node);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2431 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2432 + tree void_ftype_uchar =
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2433 + build_function_type (void_type_node,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2434 + tree_cons (NULL_TREE, unsigned_char_type_node, void_list_node));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2435 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2436 + tree uchar_ftype_uchar2 =
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2437 + build_function_type (unsigned_char_type_node,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2438 + tree_cons (NULL_TREE, unsigned_char_type_node,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2439 + tree_cons (NULL_TREE, unsigned_char_type_node, void_list_node)));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2440 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2441 + /* Register each builtin function. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2442 + add_builtin_function ("__builtin_swi", void_ftype_void,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2443 + M6809_SWI, BUILT_IN_MD, NULL, NULL_TREE);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2444 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2445 + add_builtin_function ("__builtin_swi2", void_ftype_void,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2446 + M6809_SWI2, BUILT_IN_MD, NULL, NULL_TREE);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2447 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2448 + add_builtin_function ("__builtin_swi3", void_ftype_void,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2449 + M6809_SWI3, BUILT_IN_MD, NULL, NULL_TREE);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2450 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2451 + add_builtin_function ("__builtin_cwai", void_ftype_uchar,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2452 + M6809_CWAI, BUILT_IN_MD, NULL, NULL_TREE);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2453 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2454 + add_builtin_function ("__builtin_sync", void_ftype_void,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2455 + M6809_SYNC, BUILT_IN_MD, NULL, NULL_TREE);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2456 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2457 + add_builtin_function ("__builtin_nop", void_ftype_void,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2458 + M6809_NOP, BUILT_IN_MD, NULL, NULL_TREE);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2459 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2460 + add_builtin_function ("__builtin_blockage", void_ftype_void,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2461 + M6809_BLOCKAGE, BUILT_IN_MD, NULL, NULL_TREE);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2462 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2463 + add_builtin_function ("__builtin_add_decimal", uchar_ftype_uchar2,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2464 + M6809_ADD_DECIMAL, BUILT_IN_MD, NULL, NULL_TREE);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2465 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2466 + add_builtin_function ("__builtin_add_carry", uchar_ftype_uchar2,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2467 + M6809_ADD_CARRY, BUILT_IN_MD, NULL, NULL_TREE);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2468 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2469 + add_builtin_function ("__builtin_sub_carry", uchar_ftype_uchar2,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2470 + M6809_SUB_CARRY, BUILT_IN_MD, NULL, NULL_TREE);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2471 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2472 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2473 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2474 +/** Used by m6809_expand_builtin, given a tree ARGLIST which
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2475 + * refers to the operands of a builtin call, return an rtx
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2476 + * that represents the nth operand, as denoted by OPNUM, which
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2477 + * is a zero-based integer. MODE gives the expected mode
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2478 + * of the operand.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2479 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2480 + * This rtx is suitable for use in the emitted RTL for the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2481 + * builtin instruction. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2482 +rtx
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2483 +m6809_builtin_operand (tree arglist, enum machine_mode mode, int opnum)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2484 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2485 + tree arg;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2486 + rtx r;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2487 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2488 + arg = CALL_EXPR_ARG (arglist, opnum);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2489 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2490 + /* Convert the tree to RTL */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2491 + r = expand_expr (arg, NULL_RTX, mode, EXPAND_NORMAL);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2492 + if (r == NULL_RTX)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2493 + return NULL_RTX;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2494 + return r;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2495 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2496 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2497 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2498 +/** Expand a builtin that was registered in init_builtins into
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2499 + * RTL. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2500 +rtx
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2501 +m6809_expand_builtin (tree exp,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2502 + rtx target,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2503 + rtx subtarget ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2504 + enum machine_mode mode ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2505 + int ignore ATTRIBUTE_UNUSED )
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2506 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2507 + tree fndecl = TREE_OPERAND (CALL_EXPR_FN (exp), 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2508 + tree arglist = exp;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2509 + unsigned int fcode = DECL_FUNCTION_CODE (fndecl);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2510 + rtx r0, r1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2511 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2512 + switch (fcode)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2513 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2514 + case M6809_SWI:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2515 + r0 = gen_rtx_CONST_INT (VOIDmode, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2516 + emit_insn (target = gen_m6809_swi (r0));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2517 + return target;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2518 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2519 + case M6809_SWI2:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2520 + r0 = gen_rtx_CONST_INT (VOIDmode, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2521 + emit_insn (target = gen_m6809_swi (r0));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2522 + return target;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2523 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2524 + case M6809_SWI3:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2525 + r0 = gen_rtx_CONST_INT (VOIDmode, 3);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2526 + emit_insn (target = gen_m6809_swi (r0));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2527 + return target;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2528 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2529 + case M6809_CWAI:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2530 + r0 = m6809_builtin_operand (arglist, QImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2531 + emit_insn (target = gen_m6809_cwai (r0));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2532 + return target;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2533 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2534 + case M6809_SYNC:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2535 + emit_insn (target = gen_m6809_sync ());
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2536 + return target;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2537 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2538 + case M6809_ADD_CARRY:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2539 + r0 = m6809_builtin_operand (arglist, QImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2540 + r1 = m6809_builtin_operand (arglist, QImode, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2541 + if (!target)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2542 + target = gen_reg_rtx (QImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2543 + emit_insn (gen_addqi3_carry (target, r0, r1));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2544 + return target;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2545 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2546 + case M6809_SUB_CARRY:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2547 + r0 = m6809_builtin_operand (arglist, QImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2548 + r1 = m6809_builtin_operand (arglist, QImode, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2549 + if (!target)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2550 + target = gen_reg_rtx (QImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2551 + emit_insn (gen_subqi3_carry (target, r0, r1));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2552 + return target;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2553 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2554 + case M6809_NOP:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2555 + emit_insn (target = gen_nop ());
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2556 + return target;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2557 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2558 + case M6809_BLOCKAGE:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2559 + emit_insn (target = gen_blockage ());
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2560 + return target;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2561 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2562 + case M6809_ADD_DECIMAL:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2563 + r0 = m6809_builtin_operand (arglist, QImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2564 + r1 = m6809_builtin_operand (arglist, QImode, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2565 + if (!target)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2566 + target = gen_reg_rtx (QImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2567 + emit_insn (gen_addqi3_decimal (target, r0, r1));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2568 + return target;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2569 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2570 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2571 + warning (WARNING_OPT "unknown builtin expansion ignored");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2572 + return NULL_RTX;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2573 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2574 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2575 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2576 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2577 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2578 +/* Returns nonzero if 'x' represents a function that was declared
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2579 + * as __noreturn__. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2580 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2581 +noreturn_functionp (rtx x)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2582 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2583 + tree decl = call_target_decl (x);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2584 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2585 + if (decl == NULL_TREE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2586 + return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2587 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2588 + return TREE_THIS_VOLATILE (decl);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2589 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2590 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2591 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2592 +const char *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2593 +far_function_type_p (tree type)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2594 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2595 + tree attr;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2596 + const char *page;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2597 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2598 + /* Return whether or not this decl has the far attribute */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2599 + attr = lookup_attribute ("far", TYPE_ATTRIBUTES (type));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2600 + if (attr == NULL_TREE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2601 + return NULL;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2602 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2603 + /* If it is far, check for a value */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2604 + attr = TREE_VALUE (attr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2605 + if (attr == NULL_TREE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2606 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2607 + warning (WARNING_OPT "far code page not specified, using local value");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2608 + return far_code_page;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2609 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2610 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2611 + /* We have a TREE_LIST of attribute values, get the first one.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2612 + * It should be an INTEGER_CST. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2613 + attr = TREE_VALUE (attr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2614 + page = TREE_STRING_POINTER (attr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2615 + return page;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2616 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2617 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2618 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2619 +/* For a far function, returns the identifier that states which page
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2620 + * it resides in. Otherwise, returns NULL for ordinary functions. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2621 +const char *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2622 +far_functionp (rtx x)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2623 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2624 + tree decl, decl_type;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2625 + const char *page;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2626 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2627 + /* Find the FUNCTION_DECL corresponding to the rtx being called. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2628 + decl = call_target_decl (x);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2629 + if (decl == NULL_TREE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2630 + return NULL;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2631 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2632 + /* See if the function has the new 'banked' attribute. These
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2633 + * are numeric instead of text */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2634 + page = m6809_get_decl_bank (decl);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2635 + if (page)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2636 + return page;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2637 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2638 + /* No, lookup the type of the function and see if the type
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2639 + * specifies far or not. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2640 + decl_type = TREE_TYPE (decl);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2641 + if (decl_type == NULL_TREE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2642 + return NULL;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2643 + return far_function_type_p (decl_type);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2644 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2645 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2646 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2647 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2648 +/** Outputs the assembly language for a far call. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2649 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2650 +output_far_call_insn (rtx *operands, int has_return)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2651 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2652 + static char page_data[64];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2653 + const char *called_page;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2654 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2655 + /* The logic is the same for functions whether or not there
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2656 + * is a return value. Skip over the return value in this
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2657 + * case, so that the call location is always operands[0]. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2658 + if (has_return)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2659 + operands++;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2660 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2661 + /* Get the name of the page being called */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2662 + called_page = far_functionp (operands[0]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2663 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2664 +#if 0 /* TODO : broken logic */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2665 + /* See if the called page name is a 'bank' */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2666 + if (isdigit (*called_page))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2667 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2668 + /* New style banking */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2669 + if (!strcmp (called_page, current_bank_name))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2670 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2671 + /* Same page */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2672 + output_asm_insn ("jsr\t%0", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2673 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2674 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2675 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2676 + /* Different page */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2677 + output_asm_insn ("jsr\t__far_call_handler\t;new style", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2678 + output_asm_insn ("\t.dw\t%0", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2679 + sprintf (page_data, "\t.db\t%s", called_page);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2680 + output_asm_insn (page_data, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2681 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2682 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2683 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2684 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2685 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2686 + /* Are we calling a different page than we are running in? */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2687 + if (!strcmp (called_page, far_code_page))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2688 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2689 + /* Same page : no need to execute a far call */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2690 + if (flag_pic)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2691 + output_asm_insn ("lbsr\t%C0", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2692 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2693 + output_asm_insn ("jsr\t%0", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2694 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2695 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2696 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2697 + /* Different page : need to emit far call thunk */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2698 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2699 + /* First output a call to the thunk for making far calls. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2700 + if (flag_pic)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2701 + output_asm_insn ("lbsr\t__far_call_handler", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2702 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2703 + output_asm_insn ("jsr\t__far_call_handler\t;old style", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2704 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2705 + /* Now output the name of the call site */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2706 + output_asm_insn ("\t.dw\t%C0", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2707 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2708 + /* Finally output the page number */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2709 + sprintf (page_data, "\t.db\t%s", far_functionp (operands[0]));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2710 + output_asm_insn (page_data, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2711 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2712 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2713 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2714 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2715 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2716 +m6809_init_cumulative_args (CUMULATIVE_ARGS cum ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2717 + tree fntype,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2718 + rtx libname ATTRIBUTE_UNUSED)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2719 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2720 + cum = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2721 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2722 + /* For far functions, the current implementation does not allow for
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2723 + * stack parameters. So note whenever the called function is far
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2724 + * and in a different page than the current one; such a function
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2725 + * should give an error if a stack parameter is generated. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2726 + if (fntype)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2727 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2728 + const char *called_page = far_function_type_p (fntype);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2729 + if (called_page && strcmp (called_page, far_code_page) && !TARGET_FAR_STACK_PARAM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2730 + cum \|= CUM_STACK_INVALID;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2731 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2732 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2733 + if (fntype && TYPE_ARG_TYPES (fntype) != 0 &&
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2734 + (TREE_VALUE (tree_last (TYPE_ARG_TYPES (fntype))) != void_type_node))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2735 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2736 + /* has variable arguments, cannot use registers */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2737 + cum \|= (CUM_X_MASK \| CUM_B_MASK \| CUM_STACK_ONLY);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2738 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2739 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2740 + if (m6809_abi_version == M6809_ABI_VERSION_STACK)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2741 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2742 + /* cannot use registers ; only use the stack */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2743 + cum \|= (CUM_STACK_ONLY \| CUM_X_MASK \| CUM_B_MASK);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2744 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2745 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2746 + return cum;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2747 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2748 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2749 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2750 +rtx
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2751 +m6809_function_arg_on_stack (CUMULATIVE_ARGS *cump)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2752 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2753 + if (*cump & CUM_STACK_INVALID)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2754 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2755 + *cump &= ~CUM_STACK_INVALID;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2756 + error ("far function needs stack, will not work");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2757 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2758 + return NULL_RTX;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2759 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2760 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2761 +void m6809_asm_trampoline_template(FILE *f)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2762 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2763 + fprintf(f, "ldy #0000\n");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2764 + fprintf(f, "jmp 0x0000\n");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2765 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2766 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2767 +/*
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2768 + * Trampoline output:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2769 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2770 + * ldu #&cxt 4 bytes --LDY- ?? ??
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2771 + * jmp fnaddr 3 bytes JMP ?? ??
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2772 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2773 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2774 +m6809_initialize_trampoline (rtx tramp, tree fndecl, rtx cxt)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2775 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2776 + rtx fnaddr = XEXP (DECL_RTL (fndecl), 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2777 + /* TODO - optimize by generating the entire trampoline code here,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2778 + * and removing the template altogether, since there are only two
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2779 + * bytes there that matter. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2780 + emit_move_insn (gen_rtx_MEM (HImode, plus_constant (tramp, 2)), cxt);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2781 + emit_move_insn (gen_rtx_MEM (HImode, plus_constant (tramp, 5)), fnaddr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2782 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2783 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2784 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2785 +/** Echo the version of the compiler and the name of the source file
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2786 + * at the beginning of each assembler output file. asm_out_file
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2787 + * is a global FILE * pointing to the output stream. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2788 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2789 +m6809_asm_file_start (void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2790 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2791 + const char *module_name;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2792 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2793 + fprintf (asm_out_file, "\n;;; gcc for m6809 : %s %s\n",
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2794 + __DATE__, __TIME__);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2795 + fprintf (asm_out_file, ";;; %s\n", version_string);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2796 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2797 + fprintf (asm_out_file, ";;; ABI version %d\n", m6809_abi_version);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2798 + fprintf (asm_out_file, ";;; %s\n",
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2799 + (TARGET_BYTE_INT ? "-mint8" : "-mint16"));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2800 + if (TARGET_EXPERIMENT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2801 + fprintf (asm_out_file, ";;; -mexperiment\n");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2802 + if (TARGET_WPC)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2803 + fprintf (asm_out_file, ";;; -mwpc\n");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2804 + if (TARGET_6309)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2805 + fprintf (asm_out_file, ";;; -m6309\n");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2806 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2807 + /* Print the name of the module, which is taken as the base name
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2808 + * of the input file.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2809 + * See the 'User-Defined Symbols' section of the assembler
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2810 + * documentation for the rules on valid symbols.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2811 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2812 + module_name = lbasename (main_input_filename);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2813 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2814 + fprintf (asm_out_file, "\t.module\t");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2815 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2816 + if (module_name >= '0' && module_name <= '9')
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2817 + fprintf (asm_out_file, "_");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2818 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2819 + while (*module_name)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2820 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2821 + if ((module_name >= '0' && module_name <= '9')
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2822 + \|\| (module_name >= 'A' && module_name <= 'Z')
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2823 + \|\| (module_name >= 'a' && module_name <= 'z')
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2824 + \|\| *module_name == '$'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2825 + \|\| *module_name == '.'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2826 + \|\| *module_name == '_')
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2827 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2828 + fprintf (asm_out_file, "%c", *module_name);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2829 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2830 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2831 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2832 + fprintf (asm_out_file, "_");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2833 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2834 + module_name++;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2835 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2836 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2837 + fprintf (asm_out_file, "\n");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2838 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2839 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2840 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2841 +/** Returns true if prologue/epilogue code is required for the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2842 + * current function being compiled.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2843 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2844 + * This is just the inverse of whether the function is declared as
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2845 + * 'naked'.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2846 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2847 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2848 +prologue_epilogue_required (void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2849 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2850 + return !m6809_current_function_has_type_attr_p ("naked")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2851 + && !m6809_current_function_has_type_attr_p ("noreturn");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2852 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2853 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2854 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2855 +/** Expand RTL for function entry */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2856 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2857 +emit_prologue_insns (void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2858 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2859 + rtx insn;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2860 + unsigned int live_regs = m6809_get_live_regs ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2861 + unsigned int frame_size = get_frame_size ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2862 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2863 + /* Save all registers used, including the frame pointer */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2864 + if (live_regs && !m6809_current_function_has_type_attr_p ("interrupt"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2865 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2866 + insn = emit_insn (
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2867 + gen_rtx_register_pushpop (UNSPEC_PUSH_RS, live_regs));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2868 + RTX_FRAME_RELATED_P (insn) = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2869 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2870 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2871 + /* Allocate space for local variables */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2872 + if (frame_size != 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2873 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2874 + insn = emit_insn (gen_rtx_stack_adjust (MINUS, frame_size));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2875 + RTX_FRAME_RELATED_P (insn) = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2876 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2877 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2878 + /* Set the frame pointer if it is needed */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2879 + if (frame_pointer_needed)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2880 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2881 + insn = emit_move_insn (hard_frame_pointer_rtx, stack_pointer_rtx);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2882 + RTX_FRAME_RELATED_P (insn) = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2883 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2884 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2885 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2886 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2887 +/** Expand RTL for function exit */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2888 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2889 +emit_epilogue_insns (bool sibcall_p)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2890 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2891 + unsigned int live_regs = m6809_get_live_regs ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2892 + unsigned int frame_size = get_frame_size ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2893 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2894 + if (frame_size != 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2895 + emit_insn (gen_rtx_stack_adjust (PLUS, frame_size));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2896 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2897 + if (sibcall_p)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2898 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2899 + if (live_regs)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2900 + emit_insn (gen_rtx_register_pushpop (UNSPEC_POP_RS, live_regs));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2901 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2902 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2903 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2904 + if (live_regs && !m6809_current_function_has_type_attr_p ("interrupt"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2905 + emit_insn (
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2906 + gen_rtx_register_pushpop (UNSPEC_POP_RS, PC_REGBIT \| live_regs));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2907 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2908 + if (m6809_current_function_has_type_attr_p ("interrupt"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2909 + emit_jump_insn (gen_return_rti ());
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2910 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2911 + emit_jump_insn (gen_return_rts ());
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2912 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2913 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2914 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2915 +#if 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2916 +/** Predefine some preprocessor names according to the currently
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2917 + * selected compiler options */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2918 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2919 +m6809_cpu_cpp_builtins (void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2920 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2921 + if (TARGET_6309)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2922 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2923 + builtin_define_std ("__M6309__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2924 + builtin_define_std ("__m6309__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2925 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2926 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2927 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2928 + builtin_define_std ("__M6809__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2929 + builtin_define_std ("__m6809__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2930 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2931 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2932 + if (TARGET_BYTE_INT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2933 + builtin_define_std ("__int8__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2934 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2935 + builtin_define_std ("__int16__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2936 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2937 + switch (m6809_abi_version)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2938 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2939 + case M6809_ABI_VERSION_STACK:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2940 + builtin_define_std ("__regargs__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2941 + builtin_define_std ("__ABI_STACK__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2942 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2943 + case M6809_ABI_VERSION_REGS:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2944 + builtin_define_std ("__ABI_REGS__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2945 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2946 + case M6809_ABI_VERSION_BX:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2947 + builtin_define_std ("__ABI_BX__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2948 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2949 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2950 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2951 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2952 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2953 + if (TARGET_WPC)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2954 + builtin_define_std ("__WPC__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2955 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2956 + if (TARGET_DRET)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2957 + builtin_define_std ("__DRET__");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2958 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2959 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2960 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2961 +#define MAX_ASM_ASCII_STRING 48
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2962 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2963 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2964 +m6809_output_ascii (FILE fp, const char str, unsigned long size)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2965 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2966 + unsigned long i;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2967 + bool use_ascii = true;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2968 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2969 + /* If the size is too large, then break this up into multiple
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2970 + outputs. The assembler can only output roughly 48 bytes at a
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2971 + time. Note that if there are lots of escape sequences in
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2972 + the string, this may fail. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2973 + if (size > MAX_ASM_ASCII_STRING)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2974 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2975 + m6809_output_ascii (fp, str, MAX_ASM_ASCII_STRING);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2976 + m6809_output_ascii (fp, str + MAX_ASM_ASCII_STRING,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2977 + size - MAX_ASM_ASCII_STRING);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2978 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2979 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2980 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2981 + /* Check for 8-bit codes, which cannot be embedded in an .ascii */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2982 + for (i = 0; i < size; i++)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2983 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2984 + int c = str[i] & 0377;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2985 + if (c >= 0x80)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2986 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2987 + use_ascii = false;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2988 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2989 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2990 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2991 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2992 + if (use_ascii)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2993 + fprintf (fp, "\t.ascii \"");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2994 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2995 + for (i = 0; i < size; i++)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2996 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2997 + int c = str[i] & 0377;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2998 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	2999 + if (use_ascii)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3000 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3001 + /* Just output the plain character if it is printable,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3002 + otherwise output the escape code for the character.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3003 + The assembler recognizes the same C-style octal escape sequences,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3004 + except that it only supports 7-bit codes. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3005 + if (c >= ' ' && c < 0177 && c != '\\' && c != '"')
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3006 + putc (c, fp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3007 + else switch (c)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3008 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3009 + case '\n':
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3010 +#ifndef TARGET_COCO
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3011 + fputs ("\\n", fp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3012 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3013 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3014 + /* On the CoCo, we fallthrough and treat '\n' like '\r'. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3015 + case '\r':
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3016 + fputs ("\\r", fp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3017 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3018 + case '\t':
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3019 + fputs ("\\t", fp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3020 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3021 + case '\f':
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3022 + fputs ("\\f", fp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3023 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3024 + case 0:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3025 + fputs ("\\0", fp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3026 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3027 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3028 + fprintf (fp, "\\%03o", c);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3029 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3030 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3031 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3032 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3033 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3034 + fprintf (fp, "\t.byte\t0x%02X\n", c);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3035 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3036 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3037 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3038 + if (use_ascii)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3039 + fprintf (fp, "\"\n");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3040 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3041 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3042 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3043 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3044 +m6809_output_quoted_string (FILE asm_file, const char string)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3045 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3046 + char c;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3047 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3048 + if (strlen (string) > MAX_ASM_ASCII_STRING)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3049 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3050 + /* The string length is too large. We'll have to truncate it.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3051 + This is only called from debugging functions, so it's usually
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3052 + not critical. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3053 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3054 + char truncated_string[MAX_ASM_ASCII_STRING+1];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3055 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3056 + /* Copy as many characters as we can. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3057 + strncpy (truncated_string, string, MAX_ASM_ASCII_STRING);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3058 + truncated_string[MAX_ASM_ASCII_STRING] = '\0';
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3059 + string = truncated_string;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3060 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3061 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3062 + /* Copied from toplev.c */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3063 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3064 + putc ('\"', asm_file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3065 + while ((c = *string++) != 0) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3066 + if (ISPRINT (c)) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3067 + if (c == '\"' \|\| c == '\\')
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3068 + putc ('\\', asm_file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3069 + putc (c, asm_file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3070 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3071 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3072 + fprintf (asm_file, "\\%03o", (unsigned char) c);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3073 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3074 + putc ('\"', asm_file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3075 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3076 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3077 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3078 +/** Output the assembly code for a shift instruction where the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3079 + * shift count is not constant. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3080 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3081 +m6809_output_shift_insn (int rtx_code, rtx *operands)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3082 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3083 + struct shift_opcode *op;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3084 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3085 + if (GET_CODE (operands[2]) == CONST_INT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3086 + abort ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3087 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3088 + if (optimize_size && GET_MODE (operands[0]) == HImode)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3089 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3090 + switch (rtx_code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3091 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3092 + case ASHIFT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3093 + output_asm_insn ("jsr\t_ashlhi3", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3094 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3095 + case ASHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3096 + output_asm_insn ("jsr\t_ashrhi3", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3097 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3098 + case LSHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3099 + output_asm_insn ("jsr\t_lshrhi3", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3100 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3101 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3102 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3103 + else if (GET_MODE (operands[0]) == HImode)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3104 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3105 + switch (rtx_code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3106 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3107 + case ASHIFT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3108 + m6809_gen_register_shift (operands, "aslb", "rola");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3109 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3110 + case ASHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3111 + m6809_gen_register_shift (operands, "asra", "rorb");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3112 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3113 + case LSHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3114 + m6809_gen_register_shift (operands, "lsra", "rorb");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3115 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3116 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3117 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3118 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3119 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3120 + switch (rtx_code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3121 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3122 + case ASHIFT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3123 + m6809_gen_register_shift (operands, "aslb", NULL);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3124 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3125 + case ASHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3126 + m6809_gen_register_shift (operands, "asrb", NULL);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3127 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3128 + case LSHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3129 + m6809_gen_register_shift (operands, "lsrb", NULL);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3130 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3131 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3132 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3133 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3134 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3135 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3136 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3137 +m6809_emit_move_insn (rtx dst, rtx src)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3138 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3139 + emit_insn (gen_rtx_SET (VOIDmode, dst, src));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3140 + if (ACC_A_REG_P (dst))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3141 + emit_insn (gen_rtx_USE (VOIDmode, dst));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3142 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3143 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3144 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3145 +/** Split a complex shift instruction into multiple CPU
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3146 + * shift instructions. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3147 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3148 +m6809_split_shift (enum rtx_code code, rtx *operands)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3149 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3150 + enum machine_mode mode;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3151 + int count;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3152 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3153 + mode = GET_MODE (operands[0]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3154 + count = INTVAL (operands[2]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3155 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3156 + /* Handle a shift count outside the range of 0 .. N-1, where
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3157 + * N is the mode size in bits. We normalize the count, and
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3158 + * for negative counts we also invert the direction of the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3159 + * shift. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3160 + if ((count < 0) \|\| (count >= 8 * GET_MODE_SIZE (mode)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3161 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3162 + if (count < 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3163 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3164 + count = -count;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3165 + code = (code == ASHIFT) ? ASHIFTRT : ASHIFT;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3166 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3167 + count %= (8 * GET_MODE_SIZE (mode));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3168 + m6809_emit_move_insn (operands[0],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3169 + gen_rtx_fmt_ee (code, mode, operands[1],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3170 + gen_rtx_CONST_INT (VOIDmode, count)));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3171 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3172 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3173 + /* Handle shift by zero explicitly as a no-op. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3174 + if (count == 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3175 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3176 + emit_insn (gen_nop ());
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3177 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3178 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3179 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3180 + /* Decompose the shift by a constant N > 8 into two
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3181 + * shifts, first by 8 and then by N-8.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3182 + * This "speeds up" the process for large shifts that would be
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3183 + * handled below, but allows for some optimization.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3184 + * In some cases shift by 8 can be implemented fast. If an
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3185 + * instruction to shift by 8 is defined, it will be used here;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3186 + * otherwise it will be further decomposed as below. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3187 + if (mode == HImode && count > 8)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3188 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3189 + rtx output = operands[0];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3190 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3191 + m6809_emit_move_insn (operands[0],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3192 + gen_rtx_fmt_ee (code, mode, operands[1],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3193 + gen_rtx_CONST_INT (VOIDmode, 8)));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3194 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3195 + /* Unsigned shifts always produce a zero in either the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3196 + * upper or lower half of the output; then, that part
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3197 + * does not need to be shifted anymore. We modify the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3198 + * output and the subsequent instructions to operate in
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3199 + * QImode only on the relevant part. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3200 + if (REG_P (output))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3201 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3202 + if (code == ASHIFT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3203 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3204 + output = gen_rtx_REG (QImode, HARD_A_REGNUM);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3205 + mode = QImode;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3206 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3207 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3208 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3209 + output = gen_rtx_REG (QImode, HARD_D_REGNUM);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3210 + mode = QImode;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3211 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3212 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3213 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3214 + m6809_emit_move_insn (output,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3215 + gen_rtx_fmt_ee (code, mode, copy_rtx (output),
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3216 + gen_rtx_CONST_INT (VOIDmode, count-8)));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3217 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3218 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3219 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3220 + /* Rewrite the unsigned shift of an 8-bit register by a large constant N
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3221 + * (near to the maximum of 8) as a rotate and mask. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3222 + if (mode == QImode && REG_P (operands[0]) && count >= ((code == ASHIFTRT) ? 7 : 6))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3223 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3224 + unsigned int mask;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3225 + unsigned int was_signed = (code == ASHIFTRT);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3226 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3227 + code = (code == ASHIFT) ? ROTATERT : ROTATE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3228 + if (code == ROTATE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3229 + mask = (count == 6) ? 0x03 : 0x01;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3230 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3231 + mask = (count == 6) ? 0xC0 - 0x100 : 0x80 - 0x100;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3232 + count = 9 - count;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3233 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3234 + do {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3235 + m6809_emit_move_insn (operands[0],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3236 + gen_rtx_fmt_ee (code, QImode, operands[1], const1_rtx));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3237 + } while (--count != 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3238 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3239 + m6809_emit_move_insn (operands[0],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3240 + gen_rtx_fmt_ee (AND, QImode, operands[1],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3241 + gen_rtx_CONST_INT (VOIDmode, mask)));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3242 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3243 + if (was_signed)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3244 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3245 + emit_insn (gen_negqi2 (operands[0], copy_rtx (operands[0])));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3246 + if (ACC_A_REG_P (operands[0]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3247 + emit_insn (gen_rtx_USE (VOIDmode, operands[0]));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3248 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3249 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3250 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3251 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3252 + /* Decompose the shift by any constant N > 1 into a sequence
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3253 + * of N shifts.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3254 + * This is done recursively, by creating a shift by 1 and a
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3255 + * shift by N-1, as long as N>1. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3256 + if (count > 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3257 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3258 + m6809_emit_move_insn (operands[0],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3259 + gen_rtx_fmt_ee (code, mode, operands[1], const1_rtx));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3260 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3261 + m6809_emit_move_insn (operands[0],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3262 + gen_rtx_fmt_ee (code, mode, operands[1],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3263 + gen_rtx_CONST_INT (VOIDmode, count-1)));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3264 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3265 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3266 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3267 + /* Decompose the single shift of a 16-bit quantity into two
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3268 + * CPU instructions, one for each 8-bit half.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3269 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3270 + if (mode == HImode && count == 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3271 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3272 + rtx first, second;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3273 + enum rtx_code rotate_code;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3274 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3275 + rotate_code = (code == ASHIFT) ? ROTATE : ROTATERT;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3276 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3277 + /* Split the operand into two 8-bit entities.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3278 + * FIRST is the one that will get shifted via a regular CPU
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3279 + * instruction.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3280 + * SECOND is the one that will have the result of the first shift
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3281 + * rotated in.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3282 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3283 + * We initialize first and second as if we are doing a left shift,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3284 + * then swap the operands if it's a right shift.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3285 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3286 + if (REG_P (operands[0]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3287 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3288 + first = gen_rtx_REG (QImode, HARD_D_REGNUM); /* HARD_B_REGNUM? */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3289 + second = gen_rtx_REG (QImode, HARD_A_REGNUM);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3290 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3291 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3292 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3293 + first = adjust_address (operands[0], QImode, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3294 + second = adjust_address (operands[0], QImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3295 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3296 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3297 + if (rotate_code == ROTATERT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3298 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3299 + rtx tmp; tmp = first; first = second; second = tmp;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3300 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3301 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3302 + /* Decompose into a shift and a rotate instruction. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3303 + m6809_emit_move_insn (first,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3304 + gen_rtx_fmt_ee (code, QImode, copy_rtx (first), const1_rtx));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3305 + m6809_emit_move_insn (second,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3306 + gen_rtx_fmt_ee (rotate_code, QImode, copy_rtx (second), const1_rtx));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3307 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3308 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3309 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3310 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3311 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3312 +/** Adjust register usage based on compile-time flags. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3313 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3314 +m6809_conditional_register_usage (void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3315 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3316 + unsigned int soft_regno;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3317 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3318 +#ifdef CONFIG_SOFT_REGS_ALWAYS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3319 + m6809_soft_regs = CONFIG_SOFT_REGS_ALWAYS;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3320 +#else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3321 + if (!m6809_soft_reg_count)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3322 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3323 + m6809_soft_regs = atoi (m6809_soft_reg_count);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3324 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3325 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3326 + if (m6809_soft_regs == 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3327 + return;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3328 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3329 + if (m6809_soft_regs > NUM_M_REGS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3330 + m6809_soft_regs = NUM_M_REGS;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3331 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3332 + /* Registers are marked FIXED by default. Free up if
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3333 + the user wishes. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3334 + for (soft_regno = 1; soft_regno < m6809_soft_regs; soft_regno++)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3335 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3336 + fixed_regs[SOFT_M0_REGNUM + soft_regno] = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3337 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3338 + /* Mark the softregs as call-clobbered, so that they need
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3339 + * not be saved/restored on function entry/exit. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3340 + call_used_regs[SOFT_M0_REGNUM + soft_regno] = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3341 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3342 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3343 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3344 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3345 +/** Return a RTX representing how to return a value from a function.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3346 + VALTYPE gives the type of the value, FUNC identifies the function
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3347 + itself.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3348 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3349 + In general, we only care about the width of the result. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3350 +rtx
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3351 +m6809_function_value (const tree valtype, const tree func ATTRIBUTE_UNUSED)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3352 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3353 + unsigned int regno;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3354 + enum machine_mode mode;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3355 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3356 + /* Get the mode (i.e. width) of the result. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3357 + mode = TYPE_MODE (valtype);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3358 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3359 + if (lookup_attribute ("boolean", TYPE_ATTRIBUTES (valtype)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3360 + regno = HARD_Z_REGNUM;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3361 + else if (mode == QImode \|\| (TARGET_DRET && mode == HImode))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3362 + regno = HARD_D_REGNUM;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3363 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3364 + regno = HARD_X_REGNUM;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3365 + return gen_rtx_REG (mode, regno);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3366 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3367 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3368 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3369 +/** Return 1 if REGNO is possibly needed to return the result
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3370 +of a function, 0 otherwise. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3371 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3372 +m6809_function_value_regno_p (unsigned int regno)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3373 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3374 + if (regno == HARD_Z_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3375 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3376 + else if ((TARGET_BYTE_INT \|\| TARGET_DRET) && regno == HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3377 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3378 + else if (!TARGET_DRET && regno == HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3379 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3380 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3381 + return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3382 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3383 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3384 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3385 +#ifdef TRACE_PEEPHOLE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3386 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3387 +m6809_match_peephole2 (unsigned int peephole_id, unsigned int stage)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3388 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3389 + if (stage == PEEP_END)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3390 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3391 + printf ("%s: peephole %d pattern and predicate matched\n",
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3392 + main_input_filename, peephole_id);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3393 + fflush (stdout);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3394 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3395 + else if (stage == PEEP_COND)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3396 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3397 + printf ("%s: peephole %d? at least pattern matched\n",
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3398 + main_input_filename, peephole_id);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3399 + fflush (stdout);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3400 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3401 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3402 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3403 +#else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3404 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3405 +m6809_match_peephole2 (unsigned int peephole_id ATTRIBUTE_UNUSED,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3406 + unsigned int stage ATTRIBUTE_UNUSED)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3407 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3408 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3409 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3410 +#endif /* TRACE_PEEPHOLE */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3411 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3412 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3413 +/** Return 1 if it is OK to store a value of MODE in REGNO. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3414 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3415 +m6809_hard_regno_mode_ok (unsigned int regno, enum machine_mode mode)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3416 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3417 + /* Soft registers, as they are just memory, can really hold
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3418 + values of any type. However we restrict them to values of
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3419 + size HImode or QImode to prevent exhausting them for larger
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3420 + values.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3421 + Word values cannot be placed into the first soft register,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3422 + as it is the low byte that is being placed there, which
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3423 + corrupts the (non-soft) register before it. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3424 + if (M_REGNO_P (regno))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3425 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3426 + switch (GET_MODE_SIZE (mode))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3427 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3428 + case 1:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3429 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3430 + case 2:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3431 + return regno != SOFT_M0_REGNUM;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3432 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3433 + return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3434 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3435 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3436 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3437 + /* VOIDmode can be stored anywhere */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3438 + else if (mode == VOIDmode)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3439 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3440 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3441 + /* Zero is a reserved register, but problems occur if we don't
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3442 + say yes here??? */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3443 + else if (regno == 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3444 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3445 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3446 + /* For other registers, return true only if the requested size
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3447 + exactly matches the hardware size. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3448 + else if ((G_REGNO_P (regno)) && (GET_MODE_SIZE (mode) == 2))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3449 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3450 + else if ((BYTE_REGNO_P (regno)) && (GET_MODE_SIZE (mode) == 1))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3451 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3452 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3453 + return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3454 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3455 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3456 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3457 +/* exp is the call expression. DECL is the called function,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3458 + * or NULL for an indirect call */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3459 +bool
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3460 +m6809_function_ok_for_sibcall (tree decl, tree exp ATTRIBUTE_UNUSED)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3461 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3462 + tree type, arg;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3463 + const char *name;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3464 + bool result = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3465 + int argcount = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3466 + int step = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3467 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3468 + /* If there is no DECL, it is an indirect call.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3469 + * Never optimize this??? */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3470 + if (decl == NULL)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3471 + goto done;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3472 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3473 + /* Never allow an interrupt handler to be optimized this way. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3474 + if (m6809_function_has_type_attr_p (decl, "interrupt"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3475 + goto done;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3476 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3477 + /* Skip sibcall if the type can't be found for
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3478 + * some reason */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3479 + step++;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3480 + name = IDENTIFIER_POINTER (DECL_NAME (decl));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3481 + type = TREE_TYPE (decl);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3482 + if (type == NULL)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3483 + goto done;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3484 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3485 + /* Skip sibcall if the target is a far function */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3486 + step++;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3487 + if (far_function_type_p (type) != NULL)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3488 + goto done;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3489 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3490 + /* Skip sibcall if the called function's arguments are
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3491 + * variable */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3492 + step++;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3493 + if (TYPE_ARG_TYPES (type) == NULL)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3494 + goto done;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3495 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3496 + /* Allow sibcalls in other cases. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3497 + result = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3498 +done:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3499 + /* printf ("%s ok for sibcall? %s, step %d, args %d\n", name, result ? "yes" : "no", step, argcount); */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3500 + return result;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3501 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3502 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3503 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3504 +/** Emit code for the 'casesi' pattern.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3505 + * This pattern is only used in 8-bit mode, and can be disabled
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3506 + * with -mold-case there as well. The rationale for this is to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3507 + * do a better job than the simpler but well-tested 'tablejump'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3508 + * method.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3509 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3510 + * For small jumptables, where the switch expression is an
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3511 + * 8-bit value, the lookup can be done more efficiently
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3512 + * using the "B,X" style index mode. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3513 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3514 +m6809_do_casesi (rtx index, rtx lower_bound, rtx range,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3515 + rtx table_label, rtx default_label)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3516 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3517 + enum machine_mode mode;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3518 + rtx scaled;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3519 + rtx table_in_reg;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3520 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3521 + /* expr.c has to be patched so that it does not promote
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3522 + * the expression to SImode, but rather to HImode.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3523 + * Fail now if that isn't the case. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3524 + if (GET_MODE_SIZE (GET_MODE (index)) > GET_MODE_SIZE (HImode))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3525 + error ("try_casesi promotion bug");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3526 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3527 + /* Determine whether or not we are going to work primarily in
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3528 + * QImode or HImode. This depends on the size of the index
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3529 + * into the lookup table. QImode can only be used when the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3530 + * index is less than 0x40, since it will be doubled but
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3531 + * must remain unsigned. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3532 + if ((GET_CODE (range) == CONST_INT) && (INTVAL (range) < 0x40))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3533 + mode = QImode;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3534 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3535 + mode = HImode;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3536 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3537 + /* Convert to QImode if necessary */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3538 + if (mode == QImode)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3539 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3540 + index = gen_lowpart_general (mode, index);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3541 + lower_bound = gen_lowpart_general (mode, lower_bound);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3542 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3543 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3544 + /* Translate from case value to table index by subtraction */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3545 + if (lower_bound != const0_rtx)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3546 + index = expand_binop (mode, sub_optab, index, lower_bound,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3547 + NULL_RTX, 0, OPTAB_LIB_WIDEN);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3548 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3549 + /* Emit compare-and-jump to test for index out-of-range */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3550 + emit_cmp_and_jump_insns (index, range, GTU, NULL_RTX, mode, 1,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3551 + default_label);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3552 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3553 + /* Put the table address is in a register */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3554 + table_in_reg = gen_reg_rtx (Pmode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3555 + emit_move_insn (table_in_reg, gen_rtx_LABEL_REF (Pmode, table_label));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3556 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3557 + /* Emit table lookup and jump */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3558 + if (mode == QImode)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3559 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3560 + /* Scale the index */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3561 + scaled = gen_reg_rtx (QImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3562 + emit_insn (gen_ashlqi3 (scaled, index, const1_rtx));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3563 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3564 + /* Emit the jump */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3565 + emit_jump_insn (gen_tablejump_short_offset (scaled, table_in_reg));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3566 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3567 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3568 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3569 + /* Scale the index */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3570 + emit_insn (gen_ashlhi3 (index, index, const1_rtx));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3571 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3572 + /* Emit the jump */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3573 + emit_jump_insn (gen_tablejump_long_offset (index, table_in_reg));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3574 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3575 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3576 + /* Copied from expr.c */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3577 + if (!CASE_VECTOR_PC_RELATIVE && !flag_pic)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3578 + emit_barrier ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3579 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3580 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3581 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3582 +/** Output the assembly code for a 32-bit add/subtract. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3583 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3584 +m6809_output_addsi3 (int rtx_code, rtx *operands)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3585 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3586 + rtx xoperands[8];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3587 + rtx dst = operands[0];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3588 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3589 + /* Prepare the operands by splitting each SImode into two HImodes
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3590 + that can be operated independently. The high word of operand 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3591 + is further divided into two QImode components for use with 'adc'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3592 + style instructions. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3593 + xoperands[7] = operands[3];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3594 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3595 + xoperands[0] = adjust_address (dst, HImode, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3596 + xoperands[3] = adjust_address (dst, HImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3597 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3598 +#if 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3599 + xoperands[2] = adjust_address (operands[1], HImode, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3600 + xoperands[6] = adjust_address (operands[1], HImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3601 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3602 + /* Operand 2 may be a MEM or a CONST_INT */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3603 + if (GET_CODE (operands[2]) == CONST_INT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3604 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3605 + xoperands[1] = gen_int_mode (INTVAL (operands[2]) & 0xFFFF, HImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3606 + xoperands[4] = gen_int_mode ((INTVAL (operands[2]) >> 24) & 0xFF, QImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3607 + xoperands[5] = gen_int_mode ((INTVAL (operands[2]) >> 16) & 0xFF, QImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3608 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3609 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3610 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3611 + xoperands[1] = adjust_address (operands[2], HImode, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3612 + xoperands[4] = adjust_address (operands[2], QImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3613 + xoperands[5] = adjust_address (operands[2], QImode, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3614 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3615 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3616 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3617 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3618 +#if 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3619 + xoperands[1] = adjust_address (operands[1], HImode, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3620 + xoperands[4] = adjust_address (operands[1], QImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3621 + xoperands[5] = adjust_address (operands[1], QImode, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3622 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3623 + /* Operand 2 may be a MEM or a CONST_INT */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3624 + if (GET_CODE (operands[2]) == CONST_INT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3625 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3626 + xoperands[2] = gen_int_mode ((INTVAL (operands[2])) & 0xFFFF, HImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3627 + xoperands[6] = gen_int_mode ((INTVAL (operands[2]) >> 16) & 0xFFFF, HImode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3628 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3629 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3630 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3631 + xoperands[2] = adjust_address (operands[2], HImode, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3632 + xoperands[6] = adjust_address (operands[2], HImode, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3633 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3634 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3635 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3636 + /* Output the assembly code. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3637 + if (rtx_code == PLUS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3638 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3639 + output_asm_insn ("ld%7\t%2", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3640 + output_asm_insn ("add%7\t%1", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3641 + output_asm_insn ("st%7\t%0", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3642 + output_asm_insn ("ld%7\t%6", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3643 + output_asm_insn ("adcb\t%5", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3644 + output_asm_insn ("adca\t%4", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3645 + output_asm_insn ("st%7\t%3", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3646 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3647 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3648 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3649 + output_asm_insn ("ld%7\t%2", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3650 + output_asm_insn ("sub%7\t%1", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3651 + output_asm_insn ("st%7\t%0", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3652 + output_asm_insn ("ld%7\t%6", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3653 + output_asm_insn ("sbcb\t%5", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3654 + output_asm_insn ("sbca\t%4", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3655 + output_asm_insn ("st%7\t%3", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3656 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3657 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3658 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3659 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3660 +#if 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3661 +/** Output the assembly code for a 32-bit shift.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3662 +Operands 0 and 1 must be the same rtx, forced by a matching
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3663 +constraint. Operand 2 must be a CONST_INT. Operand 3 is
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3664 +"d" in case a temporary reg is needed. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3665 +void
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3666 +m6809_output_shiftsi3 (int rtx_code, rtx *operands)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3667 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3668 + unsigned int count = INTVAL (operands[2]) % 32;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3669 + unsigned int size = 4; /* sizeof (SImode) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3670 + int s;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3671 + rtx xoperands[4];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3672 + int op;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3673 + int start, end, step;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3674 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3675 + /* Initialize */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3676 + if (rtx_code == ASHIFT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3677 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3678 + start = size-1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3679 + end = -1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3680 + step = -1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3681 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3682 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3683 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3684 + start = 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3685 + end = size;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3686 + step = 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3687 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3688 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3689 + xoperands[2] = operands[2];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3690 + xoperands[3] = operands[3];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3691 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3692 + if (count <= 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3693 + abort ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3694 + if (rtx_code == ROTATE \|\| rtx_code == ROTATERT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3695 + abort ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3696 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3697 + /* Extract bit shifts over 16 bits by HImode moves. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3698 + if (count >= 16)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3699 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3700 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3701 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3702 + /* Extract bit shifts over 8 bits by QImode moves. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3703 + if (count >= 8)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3704 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3705 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3706 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3707 + /* Iterate over the number of bits to be shifted. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3708 + while (count > 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3709 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3710 + /* Each bit to be shifted requires 1 proper bit shift
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3711 + and 3 rotates. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3712 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3713 + /* First, do the arithmetic/logical shift. Left shifts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3714 + start from the LSB; right shifts start from the MSB. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3715 + xoperands[0] = adjust_address (operands[0], QImode, start);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3716 + switch (rtx_code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3717 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3718 + case ASHIFT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3719 + output_asm_insn ("asl\t%0", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3720 + start--;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3721 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3722 + case ASHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3723 + output_asm_insn ("asr\t%0", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3724 + start++;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3725 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3726 + case LSHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3727 + output_asm_insn ("lsr\t%0", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3728 + start++;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3729 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3730 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3731 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3732 + /* Next, rotate the other bytes */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3733 + for (s = start; s != end; s += step)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3734 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3735 + xoperands[0] = adjust_address (operands[0], QImode, s);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3736 + switch (rtx_code)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3737 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3738 + case ASHIFT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3739 + output_asm_insn ("rol\t%0", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3740 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3741 + case ASHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3742 + case LSHIFTRT:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3743 + output_asm_insn ("ror\t%0", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3744 + break;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3745 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3746 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3747 + count--;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3748 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3749 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3750 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3751 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3752 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3753 +power_of_two_p (unsigned int n)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3754 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3755 + return (n & (n-1)) == 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3756 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3757 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3758 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3759 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3760 +m6809_can_eliminate (int from, int to)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3761 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3762 + if (from == ARG_POINTER_REGNUM && to == STACK_POINTER_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3763 + return !frame_pointer_needed;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3764 + return 1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3765 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3766 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3767 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3768 +int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3769 +m6809_initial_elimination_offset (int from, int to)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3770 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3771 + switch (from)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3772 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3773 + case ARG_POINTER_REGNUM:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3774 + return get_frame_size () + m6809_get_regs_size (m6809_get_live_regs ());
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3775 + case FRAME_POINTER_REGNUM:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3776 + return get_frame_size ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3777 + default:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3778 + gcc_unreachable ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3779 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3780 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3781 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3782 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3783 +bool
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3784 +m6809_frame_pointer_required (void)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3785 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3786 + return false;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3787 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3788 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3789 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3790 +/* Defines the target-specific hooks structure. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3791 +struct gcc_target targetm = TARGET_INITIALIZER;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3792 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.h gcc-4.6.4/gcc/config/m6809/m6809.h
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3793 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.h 1969-12-31 17:00:00.000000000 -0700
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3794 +++ gcc-4.6.4/gcc/config/m6809/m6809.h 2015-07-20 21:56:53.518727644 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3795 @@ -0,0 +1,1352 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3796 +/* Definitions of target machine for GNU compiler. MC6809 version.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3797 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3798 + MC6809 Version by Tom Jones (jones@sal.wisc.edu)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3799 + Space Astronomy Laboratory
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3800 + University of Wisconsin at Madison
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3801 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3802 + minor changes to adapt it to gcc-2.5.8 by Matthias Doerfel
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3803 + ( msdoerfe@informatik.uni-erlangen.de )
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3804 + also added #pragma interrupt (inspired by gcc-6811)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3805 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3806 + minor changes to adapt it to gcc-2.8.0 by Eric Botcazou
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3807 + (ebotcazou@multimania.com)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3808 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3809 + minor changes to adapt it to egcs-1.1.2 by Eric Botcazou
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3810 + (ebotcazou@multimania.com)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3811 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3812 + minor changes to adapt it to gcc-2.95.3 by Eric Botcazou
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3813 + (ebotcazou@multimania.com)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3814 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3815 + changes for gcc-3.1.1 by ???
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3816 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3817 + further changes for gcc-3.1.1 and beyond by Brian Dominy
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3818 + (brian@oddchange.com)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3819 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3820 + even more changes for gcc-4.6.1 by William Astle (lost@l-w.ca)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3821 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3822 +This file is part of GCC.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3823 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3824 +GCC is free software; you can redistribute it and/or modify
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3825 +it under the terms of the GNU General Public License as published by
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3826 +the Free Software Foundation; either version 3, or (at your option)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3827 +any later version.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3828 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3829 +GCC is distributed in the hope that it will be useful,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3830 +but WITHOUT ANY WARRANTY; without even the implied warranty of
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3831 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3832 +GNU General Public License for more details.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3833 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3834 +You should have received a copy of the GNU General Public License
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3835 +along with GCC; see the file COPYING3. If not see
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3836 +<http://www.gnu.org/licenses/>. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3837 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3838 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3839 +/* Helper macros for creating strings with macros */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3840 +#define C_STRING(x) C_STR(x)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3841 +#define C_STR(x) #x
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3842 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3843 +/* Certain parts of GCC include host-side includes, which is bad.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3844 + * Some things that get pulled in need to be undone.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3845 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3846 +#undef HAVE_GAS_HIDDEN
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3847 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3848 +/* Names to predefine in the preprocessor for this target machine. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3849 +/#define TARGET_CPU_CPP_BUILTINS() m6809_cpu_cpp_builtins () /
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3850 +#define TARGET_CPU_CPP_BUILTINS() do \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3851 + { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3852 + if (TARGET_6309) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3853 + { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3854 + builtin_define_std ("__M6309__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3855 + builtin_define_std ("__m6309__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3856 + } \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3857 + else \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3858 + { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3859 + builtin_define_std ("__M6809__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3860 + builtin_define_std ("__m6809__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3861 + } \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3862 + \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3863 + if (TARGET_BYTE_INT) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3864 + builtin_define_std ("__int8__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3865 + else \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3866 + builtin_define_std ("__int16__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3867 + \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3868 + switch (m6809_abi_version) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3869 + { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3870 + case M6809_ABI_VERSION_STACK: \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3871 + builtin_define_std ("__regargs__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3872 + builtin_define_std ("__ABI_STACK__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3873 + break; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3874 + case M6809_ABI_VERSION_REGS: \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3875 + builtin_define_std ("__ABI_REGS__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3876 + break; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3877 + case M6809_ABI_VERSION_BX: \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3878 + builtin_define_std ("__ABI_BX__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3879 + break; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3880 + default: \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3881 + break; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3882 + } \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3883 + \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3884 + if (TARGET_WPC) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3885 + builtin_define_std ("__WPC__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3886 + \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3887 + if (TARGET_DRET) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3888 + builtin_define_std ("__DRET__"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3889 + } while (0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3890 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3891 +/* As an embedded target, we have no libc. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3892 +#ifndef inhibit_libc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3893 +#define inhibit_libc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3894 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3895 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3896 +/* Print subsidiary information on the compiler version in use. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3897 +#define TARGET_VERSION fprintf (stderr, " (MC6809)");
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3898 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3899 +/* Run-time compilation parameters selecting different hardware subsets. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3900 +/extern int target_flags; /
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3901 +extern short reg_renumber; / def in local_alloc.c */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3902 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3903 +/* Runtime current values of section names */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3904 +extern int section_changed;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3905 +extern char code_section_op[], data_section_op[], bss_section_op[];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3906 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3907 +#define WARNING_OPT 0,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3908 +/extern const char m6809_abi_version_ptr; */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3909 +extern unsigned int m6809_soft_regs;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3910 +extern unsigned int m6809_abi_version;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3911 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3912 +/* ABI versions */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3913 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3914 +#define M6809_ABI_VERSION_STACK 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3915 +#define M6809_ABI_VERSION_REGS 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3916 +#define M6809_ABI_VERSION_BX 2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3917 +#define M6809_ABI_VERSION_LATEST (M6809_ABI_VERSION_BX)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3918 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3919 +/* Allow $ in identifiers */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3920 +#define DOLLARS_IN_IDENTIFIERS 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3921 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3922 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3923 + Target machine storage layout
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3924 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3925 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3926 +/* Define this if most significant bit is lowest numbered
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3927 + in instructions that operate on numbered bit-fields. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3928 +#define BITS_BIG_ENDIAN 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3929 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3930 +/* Define to 1 if most significant byte of a word is the lowest numbered. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3931 +#define BYTES_BIG_ENDIAN 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3932 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3933 +/* Define to 1 if most significant word of a multiword value is the lowest numbered. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3934 +#define WORDS_BIG_ENDIAN 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3935 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3936 +/* Number of bits in an addressible storage unit */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3937 +#define BITS_PER_UNIT 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3938 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3939 +/* Width in bits of a "word", or the contents of a machine register.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3940 + * Although the 6809 has a few byte registers, define this to 16-bits
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3941 + * since this is the natural size of most registers. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3942 +#define BITS_PER_WORD 16
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3943 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3944 +/* Width of a word, in units (bytes). */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3945 +#define UNITS_PER_WORD (BITS_PER_WORD/8)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3946 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3947 +/* Width in bits of a pointer. See also the macro `Pmode' defined below. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3948 +#define POINTER_SIZE 16
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3949 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3950 +/* Allocation boundary (bits) for storing pointers in memory. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3951 +#define POINTER_BOUNDARY 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3952 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3953 +/* Allocation boundary (bits) for storing arguments in argument list. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3954 +/* PARM_BOUNDARY is divided by BITS_PER_WORD in expr.c -- tej */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3955 +#define PARM_BOUNDARY 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3956 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3957 +/* Boundary (bits) on which stack pointer should be aligned. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3958 +#define STACK_BOUNDARY 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3959 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3960 +/* Allocation boundary (bits) for the code of a function. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3961 +#define FUNCTION_BOUNDARY 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3962 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3963 +/* Alignment of field after `int : 0' in a structure. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3964 +#define EMPTY_FIELD_BOUNDARY 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3965 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3966 +/* Every structure's size must be a multiple of this. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3967 +#define STRUCTURE_SIZE_BOUNDARY 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3968 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3969 +/* Largest mode size to use when putting an object, including
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3970 + * a structure, into a register. By limiting this to 16, no
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3971 + * 32-bit objects will ever be allocated to a pair of hard
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3972 + * registers. This is a good thing, since there aren't that
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3973 + * many of them. 32-bit objects are only needed for floats
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3974 + * and "long long"s. Larger values have been tried and did not
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3975 + * work. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3976 +#define MAX_FIXED_MODE_SIZE 16
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3977 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3978 +/* No data type wants to be aligned rounder than this. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3979 +#define BIGGEST_ALIGNMENT 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3980 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3981 +/* Define this if move instructions will actually fail to work
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3982 + when given unaligned data. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3983 +#define STRICT_ALIGNMENT 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3984 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3985 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3986 + Standard register usage.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3987 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3988 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3989 +/* Register values as bitmasks.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3990 + * TODO : merge D_REGBIT and B_REGBIT, and treat this as the same
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3991 + * register. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3992 +#define RSVD1_REGBIT (1 << HARD_RSVD1_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3993 +#define D_REGBIT (1 << HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3994 +#define X_REGBIT (1 << HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3995 +#define Y_REGBIT (1 << HARD_Y_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3996 +#define U_REGBIT (1 << HARD_U_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3997 +#define S_REGBIT (1 << HARD_S_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3998 +#define PC_REGBIT (1 << HARD_PC_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	3999 +#define Z_REGBIT (1 << HARD_Z_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4000 +#define A_REGBIT (1 << HARD_A_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4001 +#define B_REGBIT (1 << HARD_B_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4002 +#define CC_REGBIT (1 << HARD_CC_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4003 +#define DP_REGBIT (1 << HARD_DP_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4004 +#define SOFT_FP_REGBIT (1 << SOFT_FP_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4005 +#define SOFT_AP_REGBIT (1 << SOFT_AP_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4006 +#define M_REGBIT(n) (1 << (SOFT_M0_REGNUM + n))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4007 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4008 +/* Macros for dealing with set of registers.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4009 + * A register set is just a bitwise-OR of all the register
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4010 + * bitmask values. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4011 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4012 +/* Which registers can hold 8-bits */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4013 +#define BYTE_REGSET \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4014 + (Z_REGBIT \| A_REGBIT \| D_REGBIT \| CC_REGBIT \| DP_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4015 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4016 +/* Which registers can hold 16-bits.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4017 + * Note: D_REGBIT is defined as both an 8-bit and 16-bit register */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4018 +#define WORD_REGSET \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4019 + (D_REGBIT \| X_REGBIT \| Y_REGBIT \| U_REGBIT \| S_REGBIT \| PC_REGBIT \| SOFT_FP_REGBIT \| SOFT_AP_REGBIT \| RSVD1_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4020 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4021 +/* Returns nonzero if a given REGNO is in the REGSET. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4022 +#define REGSET_CONTAINS_P(regno, regset) (((1 << (regno)) & (regset)) != 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4023 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4024 +/* Defines related to the number of soft registers supported.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4025 + * The actual number used may be less depending on -msoft-reg-count.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4026 + * If you change one of these, you should change them all. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4027 +#define NUM_M_REGS 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4028 +#define M_REGS_FIXED 1, 1, 1, 1, 1, 1, 1, 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4029 +#define M_REGS_CALL_USED 1, 1, 1, 1, 1, 1, 1, 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4030 +#define HARD_M_REGNUMS \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4031 + SOFT_M0_REGNUM+0, SOFT_M0_REGNUM+1, SOFT_M0_REGNUM+2, SOFT_M0_REGNUM+3, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4032 + SOFT_M0_REGNUM+4, SOFT_M0_REGNUM+5, SOFT_M0_REGNUM+6, SOFT_M0_REGNUM+7
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4033 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4034 +#define SOFT_M_REGBITS (((1UL << NUM_M_REGS) - 1) << (SOFT_M0_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4035 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4036 +/* Number of actual hardware registers.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4037 + The hardware registers are assigned numbers for the compiler
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4038 + from 0 to just below FIRST_PSEUDO_REGISTER.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4039 + All registers that the compiler knows about must be given numbers,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4040 + even those that are not normally considered general registers.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4041 + Make sure the constant below matches the value of SOFT_M0_REGNUM;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4042 + for some reason, GCC won't compile if that name is used here directly. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4043 +#ifdef SOFT_M0_REGNUM
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4044 +#if (SOFT_M0_REGNUM != 14)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4045 +#error "bad register numbering"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4046 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4047 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4048 +#define FIRST_PSEUDO_REGISTER (14 + NUM_M_REGS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4049 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4050 +/* 1 for registers that have pervasive standard uses
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4051 + and are not available for the register allocator.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4052 + The psuedoregisters (M_REGS) are declared fixed here, but
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4053 + will be unfixed if -msoft-reg-count is seen later. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4054 +#define FIXED_REGISTERS \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4055 + {1, 0, 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, M_REGS_FIXED, }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4056 + /* -, X, Y, U, S, PC,D, Z, A, B, C, DP,FP,AP,M... */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4057 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4058 +/* 1 for registers not available across function calls.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4059 + These must include the FIXED_REGISTERS and also any
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4060 + registers that can be used without being saved.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4061 + The latter must include the registers where values are returned
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4062 + and the register where structure-value addresses are passed.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4063 + Aside from that, you can include as many other registers as you like. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4064 +#define CALL_USED_REGISTERS \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4065 + {1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, M_REGS_CALL_USED, }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4066 + /* -, X, Y, U, S, PC,D, Z, A, B, C, DP,FP,AP,M... */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4067 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4068 +/* Return number of consecutive hard regs needed starting at reg REGNO
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4069 + to hold something of mode MODE.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4070 + For the 6809, we distinguish between word-length and byte-length
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4071 + registers. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4072 +#define HARD_REGNO_NREGS(REGNO, MODE) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4073 + (REGSET_CONTAINS_P (REGNO, WORD_REGSET) ? \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4074 + ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4075 + (GET_MODE_SIZE (MODE)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4076 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4077 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4078 +/* Value is 1 if hard register REGNO can hold a value
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4079 +of machine-mode MODE. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4080 +#define HARD_REGNO_MODE_OK(REGNO, MODE) m6809_hard_regno_mode_ok (REGNO, MODE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4081 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4082 +/* Value is 1 if it is a good idea to tie two pseudo registers
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4083 + when one has mode MODE1 and one has mode MODE2.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4084 + If HARD_REGNO_MODE_OK could produce different values for MODE1 and MODE2,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4085 + for any hard reg, then this must be 0 for correct output. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4086 +#define MODES_TIEABLE_P(MODE1, MODE2) 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4087 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4088 +/* Specify the registers used for certain standard purposes.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4089 + The values of these macros are register numbers. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4090 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4091 +/* program counter if referenced as a register */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4092 +#define PC_REGNUM HARD_PC_REGNUM
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4093 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4094 +/* Register to use for pushing function arguments. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4095 +#define STACK_POINTER_REGNUM HARD_S_REGNUM
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4096 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4097 +/* Base register for access to local variables of the function.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4098 + * Before reload, FRAME_POINTER_REGNUM will be used. Later,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4099 + * the elimination pass will convert these to STACK_POINTER_REGNUM
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4100 + * if possible, or else HARD_FRAME_POINTER_REGNUM. The idea is to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4101 + * avoid tying up a hard register (U) for the frame pointer if
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4102 + * it can be eliminated entirely, making it available for use as
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4103 + * a general register. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4104 +#define FRAME_POINTER_REGNUM SOFT_FP_REGNUM
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4105 +#define HARD_FRAME_POINTER_REGNUM HARD_U_REGNUM
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4106 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4107 +/* Define a table of possible eliminations.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4108 + * The idea is to try to avoid using hard registers for the argument
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4109 + * and frame pointers if they can be derived from the stack pointer
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4110 + * instead, which already has a hard register reserved for it.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4111 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4112 + * The order of entries in this table will try to convert
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4113 + * ARG_POINTER_REGNUM and FRAME_POINTER_REGNUM into stack pointer
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4114 + * references first, but if that fails, they will be converted to use
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4115 + * HARD_FRAME_POINTER_REGNUM.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4116 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4117 +#define ELIMINABLE_REGS \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4118 +{{ ARG_POINTER_REGNUM, STACK_POINTER_REGNUM }, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4119 + { ARG_POINTER_REGNUM, HARD_FRAME_POINTER_REGNUM }, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4120 + { FRAME_POINTER_REGNUM, STACK_POINTER_REGNUM }, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4121 + { FRAME_POINTER_REGNUM, HARD_FRAME_POINTER_REGNUM }}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4122 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4123 +/* #define CAN_ELIMINATE(FROM, TO) m6809_can_eliminate (FROM, TO) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4124 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4125 +/* Define how to offset the frame or argument pointer to turn it
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4126 + * into a stack pointer reference. This is based on the way that
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4127 + * the frame is constructed in the function prologue. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4128 +#define INITIAL_ELIMINATION_OFFSET(FROM, TO, OFFSET) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4129 + (OFFSET) = m6809_initial_elimination_offset (FROM, TO)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4130 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4131 +/* Base register for access to arguments of the function.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4132 + * This is only used prior to reload; no instructions will ever
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4133 + * be output referring to this register. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4134 +#define ARG_POINTER_REGNUM SOFT_AP_REGNUM
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4135 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4136 +/* Register in which static-chain is passed to a function. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4137 +#define STATIC_CHAIN_REGNUM HARD_Y_REGNUM
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4138 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4139 +/* #define CONDITIONAL_REGISTER_USAGE (m6809_conditional_register_usage ()) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4140 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4141 +/* Order in which hard registers are allocated to pseudos.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4142 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4143 + * Since the D register is the only valid reg for 8-bit values
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4144 + * now, avoid using it for 16-bit values by putting it after all
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4145 + * other 16-bits.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4146 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4147 + * Prefer X first since the first 16-bit function argument goes
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4148 + * there. We may be able to pass in to a subroutine without
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4149 + * a copy.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4150 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4151 + * Prefer U over Y since instructions using Y take one extra
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4152 + * byte, and thus one extra cycle to execute.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4153 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4154 +#define REG_ALLOC_ORDER \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4155 + { HARD_X_REGNUM, HARD_U_REGNUM, HARD_Y_REGNUM, HARD_D_REGNUM, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4156 + HARD_M_REGNUMS, HARD_S_REGNUM, HARD_PC_REGNUM, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4157 + HARD_B_REGNUM, HARD_A_REGNUM, HARD_CC_REGNUM, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4158 + HARD_DP_REGNUM, SOFT_FP_REGNUM, SOFT_AP_REGNUM, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4159 + 6, HARD_Z_REGNUM }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4160 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4161 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4162 + classes of registers
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4163 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4164 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4165 +/* Define the classes of registers for register constraints in the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4166 + machine description. Also define ranges of constants.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4167 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4168 + One of the classes must always be named ALL_REGS and include all hard regs.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4169 + If there is more than one class, another class must be named NO_REGS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4170 + and contain no registers.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4171 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4172 + The name GENERAL_REGS must be the name of a class (or an alias for
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4173 + another name such as ALL_REGS). This is the class of registers
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4174 + that is allowed by "g" or "r" in a register constraint.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4175 + Also, registers outside this class are allocated only when
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4176 + instructions express preferences for them.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4177 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4178 + The classes must be numbered in nondecreasing order; that is,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4179 + a larger-numbered class must never be contained completely
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4180 + in a smaller-numbered class.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4181 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4182 + For any two classes, it is very desirable that there be another
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4183 + class that represents their union. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4184 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4185 +enum reg_class {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4186 + NO_REGS, /* The trivial class with no registers in it */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4187 + D_REGS, /* 16-bit (word (HI)) data (D) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4188 + ACC_A_REGS, /* The A register */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4189 + ACC_B_REGS, /* The B register */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4190 + X_REGS, /* The X register */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4191 + Z_REGS, /* The Z (zero-bit) register */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4192 + Q_REGS, /* 8-bit (byte (QI)) data (A,B) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4193 + M_REGS, /* 8-bit (byte (QI)) soft registers */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4194 + CC_REGS, /* 8-bit condition code register */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4195 + I_REGS, /* An index register (A,B,D) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4196 + T_REGS, /* 16-bit addresses, not including stack or PC (X,Y,U) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4197 + A_REGS, /* 16-bit addresses (X,Y,U,S,PC) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4198 + S_REGS, /* 16-bit soft registers (FP, AP) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4199 + P_REGS, /* 16-bit pushable registers (D,X,Y,U); omit PC and S */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4200 + G_REGS, /* 16-bit data and address (D,X,Y,U,S,PC) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4201 + ALL_REGS, /* All registers */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4202 + LIM_REG_CLASSES
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4203 +};
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4204 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4205 +#define N_REG_CLASSES (int) LIM_REG_CLASSES
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4206 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4207 +/* Since GENERAL_REGS is a smaller class than ALL_REGS,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4208 + it is not an alias to ALL_REGS, but to G_REGS. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4209 +#define GENERAL_REGS G_REGS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4210 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4211 +/* Give names of register classes as strings for dump file. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4212 +#define REG_CLASS_NAMES \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4213 + { "NO_REGS", "D_REGS", "ACC_A_REGS", "ACC_B_REGS", "X_REGS", "Z_REGS", "Q_REGS", "M_REGS", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4214 + "CC_REGS", "I_REGS", "T_REGS", "A_REGS", "S_REGS", "P_REGS", "G_REGS", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4215 + "ALL_REGS" }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4216 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4217 +/* Define which registers fit in which classes.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4218 + This is an initializer for a vector of HARD_REG_SET
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4219 + of length N_REG_CLASSES. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4220 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4221 +#define D_REGSET (D_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4222 +#define ACC_A_REGSET (A_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4223 +#define ACC_B_REGSET (D_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4224 +#define X_REGSET (X_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4225 +#define Z_REGSET (Z_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4226 +#define Q_REGSET (D_REGBIT \| A_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4227 +#define M_REGSET (SOFT_M_REGBITS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4228 +#define CC_REGSET (CC_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4229 +#define I_REGSET (A_REGBIT \| B_REGBIT \| D_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4230 +#define T_REGSET (X_REGBIT \| Y_REGBIT \| U_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4231 +#define A_REGSET (X_REGBIT \| Y_REGBIT \| U_REGBIT \| S_REGBIT \| PC_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4232 +#define S_REGSET (SOFT_FP_REGBIT \| SOFT_AP_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4233 +#define P_REGSET (D_REGBIT \| X_REGBIT \| Y_REGBIT \| U_REGBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4234 +#define G_REGSET \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4235 + (D_REGSET \| Q_REGSET \| I_REGSET \| A_REGSET \| M_REGSET \| S_REGSET)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4236 +#define ALL_REGSET (G_REGSET)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4237 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4238 +#define REG_CLASS_CONTENTS { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4239 + {0}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4240 + {D_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4241 + {ACC_A_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4242 + {ACC_B_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4243 + {X_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4244 + {Z_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4245 + {Q_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4246 + {M_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4247 + {CC_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4248 + {I_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4249 + {T_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4250 + {A_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4251 + {S_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4252 + {P_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4253 + {G_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4254 + {ALL_REGSET}, \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4255 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4256 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4257 +/* The same information, inverted.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4258 + * This is defined to use the REG_CLASS_CONTENTS defines above, so that
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4259 + * these two sets of definitions are always consistent. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4260 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4261 +#define REGNO_REG_CLASS(REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4262 + (D_REGNO_P (REGNO) ? D_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4263 + (Z_REGNO_P (REGNO) ? Z_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4264 + (ACC_A_REGNO_P (REGNO) ? ACC_A_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4265 + (ACC_B_REGNO_P (REGNO) ? ACC_B_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4266 + (X_REGNO_P (REGNO) ? X_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4267 + (Q_REGNO_P (REGNO) ? Q_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4268 + (M_REGNO_P (REGNO) ? M_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4269 + (CC_REGNO_P (REGNO) ? CC_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4270 + (I_REGNO_P (REGNO) ? I_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4271 + (T_REGNO_P (REGNO) ? T_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4272 + (A_REGNO_P (REGNO) ? A_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4273 + (S_REGNO_P (REGNO) ? S_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4274 + (P_REGNO_P (REGNO) ? P_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4275 + (G_REGNO_P (REGNO) ? G_REGS : ALL_REGS))))))))))))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4276 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4277 +#define D_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, D_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4278 +#define ACC_A_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, ACC_A_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4279 +#define ACC_B_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, ACC_B_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4280 +#define X_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, X_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4281 +#define Z_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, Z_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4282 +#define Q_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, Q_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4283 +#define M_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, M_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4284 +#define CC_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, CC_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4285 +#define I_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, I_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4286 +#define T_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, T_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4287 +#define A_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, A_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4288 +#define S_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, S_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4289 +#define P_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, P_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4290 +#define G_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, G_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4291 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4292 +/* Macros that test an rtx 'X' to see if it's in a particular
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4293 + * register class. 'X' need not be a REG necessarily. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4294 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4295 +#define D_REG_P(X) (REG_P (X) && D_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4296 +#define ACC_A_REG_P(X) (REG_P (X) && ACC_A_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4297 +#define ACC_B_REG_P(X) (REG_P (X) && ACC_B_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4298 +#define X_REG_P(X) (REG_P (X) && X_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4299 +#define Z_REG_P(X) (REG_P (X) && Z_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4300 +#define I_REG_P(X) (REG_P (X) && I_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4301 +#define T_REG_P(X) (REG_P (X) && T_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4302 +#define A_REG_P(X) (REG_P (X) && A_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4303 +#define S_REG_P(X) (REG_P (X) && S_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4304 +#define P_REG_P(X) (REG_P (X) && P_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4305 +#define Q_REG_P(X) (REG_P (X) && Q_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4306 +#define M_REG_P(X) (REG_P (X) && M_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4307 +#define CC_REG_P(X) (REG_P (X) && CC_REGNO_P (REGNO (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4308 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4309 +/* Redefine this in terms of BYTE_REGSET */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4310 +#define BYTE_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, BYTE_REGSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4311 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4312 +/* The class value for index registers, and the one for base regs. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4313 +#define INDEX_REG_CLASS I_REGS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4314 +#define BASE_REG_CLASS A_REGS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4315 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4316 +/* Get reg_class from a letter in the machine description. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4317 +#define REG_CLASS_FROM_LETTER(C) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4318 + (((C) == 'a' ? A_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4319 + ((C) == 'd' ? D_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4320 + ((C) == 'x' ? I_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4321 + ((C) == 't' ? M_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4322 + ((C) == 'c' ? CC_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4323 + ((C) == 'A' ? ACC_A_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4324 + ((C) == 'B' ? ACC_B_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4325 + ((C) == 'v' ? X_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4326 + ((C) == 'u' ? S_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4327 + ((C) == 'U' ? P_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4328 + ((C) == 'T' ? T_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4329 + ((C) == 'z' ? Z_REGS : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4330 + ((C) == 'q' ? Q_REGS : NO_REGS))))))))))))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4331 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4332 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4333 + The letters I through O in a register constraint string
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4334 + can be used to stand for particular ranges of immediate operands.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4335 + This macro defines what the ranges are.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4336 + C is the letter, and VALUE is a constant value.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4337 + Return 1 if VALUE is in the range specified by C.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4338 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4339 + For the 6809, J, K, L are used for indexed addressing.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4340 + `I' is used for the constant 1.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4341 + `J' is used for the 5-bit offsets.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4342 + `K' is used for the 8-bit offsets.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4343 + `L' is used for the range of signed numbers that fit in 16 bits.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4344 + `M' is used for the exact value '8'.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4345 + `N' is used for the constant -1.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4346 + `O' is used for the constant 0.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4347 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4348 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4349 +#define CONST_OK_FOR_LETTER_P(VALUE, C) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4350 + ((C) == 'I' ? ((VALUE) == 1) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4351 + (C) == 'J' ? ((VALUE) >= -16 && (VALUE) <= 15) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4352 + (C) == 'K' ? ((VALUE) >= -128 && (VALUE) <= 127) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4353 + (C) == 'L' ? ((VALUE) >= -32768 && (VALUE) <= 32767) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4354 + (C) == 'M' ? ((VALUE) == 8) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4355 + (C) == 'N' ? ((VALUE) == -1) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4356 + (C) == 'O' ? ((VALUE) == 0) : 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4357 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4358 +/* Similar, but for floating constants, and defining letters G and H.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4359 + No floating-point constants are valid on MC6809. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4360 +#define CONST_DOUBLE_OK_FOR_LETTER_P(VALUE, C) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4361 + ((C) == 'G' ? (GET_MODE_CLASS (GET_MODE (VALUE)) == MODE_FLOAT \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4362 + && VALUE == CONST0_RTX (GET_MODE (VALUE))) : 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4363 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4364 +/* Given an rtx X being reloaded into a reg required to be
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4365 + in class CLASS, return the class of reg to actually use.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4366 + In general this is just CLASS; but on some machines
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4367 + in some cases it is preferable to use a more restrictive class. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4368 +#define PREFERRED_RELOAD_CLASS(X,CLASS) m6809_preferred_reload_class(X,CLASS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4369 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4370 +#define SMALL_REGISTER_CLASSES 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4371 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4372 +/* Return the maximum number of consecutive registers
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4373 + needed to represent mode MODE in a register of class CLASS. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4374 +#define CLASS_MAX_NREGS(CLASS, MODE) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4375 + ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4376 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4377 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4378 + Stack layout; function entry, exit and calling.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4379 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4380 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4381 +/* Define this if pushing a word on the stack
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4382 + makes the stack pointer a smaller address. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4383 +#define STACK_GROWS_DOWNWARD
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4384 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4385 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4386 +/* Define this if the nominal address of the stack frame
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4387 + is at the high-address end of the local variables;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4388 + that is, each additional local variable allocated
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4389 + goes at a more negative offset in the frame. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4390 +#define FRAME_GROWS_DOWNWARD 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4391 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4392 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4393 +/* Offset within stack frame to start allocating local variables at.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4394 + If FRAME_GROWS_DOWNWARD, this is the offset to the END of the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4395 + first local allocated. Otherwise, it is the offset to the BEGINNING
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4396 + of the first local allocated. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4397 +#define STARTING_FRAME_OFFSET 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4398 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4399 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4400 +/* Always push stack arguments for now. Accumulation is not yet working. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4401 +#define PUSH_ROUNDING(BYTES) (BYTES)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4402 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4403 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4404 +/* Offset of first parameter from the argument pointer register value.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4405 + * ARG_POINTER_REGNUM is defined to point to the return address pushed
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4406 + * onto the stack, so we must offset by 2 bytes to get to the arguments. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4407 +#define FIRST_PARM_OFFSET(FNDECL) 2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4408 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4409 +/* Value is 1 if returning from a function call automatically
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4410 + pops the arguments described by the number-of-args field in the call.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4411 + FUNTYPE is the data type of the function (as a tree),
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4412 + or for a library call it is an identifier node for the subroutine name. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4413 +/* #define RETURN_POPS_ARGS(FUNDECL,FUNTYPE,SIZE) 0 */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4414 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4415 +/* Define how to find the value returned by a function.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4416 + VALTYPE is the data type of the value (as a tree).
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4417 + If the precise function being called is known, FUNC is its FUNCTION_DECL;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4418 + otherwise, FUNC is 0. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4419 +#define FUNCTION_VALUE(VALTYPE, FUNC) m6809_function_value (VALTYPE, FUNC)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4420 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4421 +/* Define how to find the value returned by a library function
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4422 + assuming the value has mode MODE. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4423 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4424 +/* All return values are in the X-register. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4425 +#define LIBCALL_VALUE(MODE) gen_rtx_REG (MODE, HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4426 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4427 +/* Define this if using the nonreentrant convention for returning
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4428 + structure and union values. No; it is inefficient and buggy. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4429 +#undef PCC_STATIC_STRUCT_RETURN
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4430 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4431 +/* 1 if N is a possible register number for a function value. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4432 +#define FUNCTION_VALUE_REGNO_P(N) m6809_function_value_regno_p (N)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4433 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4434 +/* Define this to be true when FUNCTION_VALUE_REGNO_P is true for
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4435 + more than one register. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4436 +#define NEEDS_UNTYPED_CALL 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4437 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4438 +/* 1 if N is a possible register number for function argument passing. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4439 +#define FUNCTION_ARG_REGNO_P(N) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4440 + ((m6809_abi_version != M6809_ABI_VERSION_STACK) ? \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4441 + (((N) == HARD_D_REGNUM) \|\| ((N) == HARD_X_REGNUM)) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4442 + 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4443 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4444 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4445 + Argument Lists
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4446 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4447 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4448 +/* Cumulative arguments are tracked in a single integer,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4449 + * which is the number of bytes of arguments scanned so far,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4450 + * plus which registers have already been used. The register
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4451 + * info is kept in some of the upper bits */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4452 +#define CUMULATIVE_ARGS unsigned int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4453 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4454 +#define CUM_STACK_ONLY 0x80000000
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4455 +#define CUM_X_MASK 0x40000000
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4456 +#define CUM_B_MASK 0x20000000
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4457 +#define CUM_STACK_INVALID 0x10000000
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4458 +#define CUM_STACK_MASK 0xFFFFFFF
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4459 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4460 +#define CUM_ADVANCE_8BIT(cum) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4461 + (((cum) & CUM_B_MASK) ? (cum)++ : ((cum) \|= CUM_B_MASK))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4462 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4463 +#define CUM_ADVANCE_16BIT(cum) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4464 + (((cum) & CUM_X_MASK) ? (cum) += 2 : ((cum) \|= CUM_X_MASK))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4465 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4466 +/* Initialize a variable CUM of type CUMULATIVE_ARGS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4467 + for a call to a function whose data type is FNTYPE.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4468 + For a library call, FNTYPE is 0.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4469 + N_NAMED was added in gcc 3.4 and is not used currently. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4470 +#define INIT_CUMULATIVE_ARGS(CUM,FNTYPE,LIBNAME,INDIRECT,N_NAMED) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4471 + ((CUM) = m6809_init_cumulative_args (CUM, FNTYPE, LIBNAME))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4472 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4473 +#define FUNCTION_ARG_SIZE(MODE, TYPE) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4474 + ((MODE) != BLKmode ? GET_MODE_SIZE (MODE) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4475 + : (unsigned) int_size_in_bytes (TYPE))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4476 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4477 +/* Update the data in CUM to advance over an argument
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4478 + of mode MODE and data type TYPE.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4479 + (TYPE is null for libcalls where that information may not be available.) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4480 +#define FUNCTION_ARG_ADVANCE(CUM, MODE, TYPE, NAMED) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4481 + (((MODE == QImode) && !((CUM) & CUM_STACK_ONLY)) ? \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4482 + CUM_ADVANCE_8BIT (CUM) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4483 + ((MODE == HImode) && !((CUM) & CUM_STACK_ONLY)) ? \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4484 + CUM_ADVANCE_16BIT (CUM) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4485 + ((CUM) = ((CUM) + (TYPE ? int_size_in_bytes (TYPE) : 2))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4486 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4487 +/* Define where to put the arguments to a function.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4488 + Value is zero to push the argument on the stack,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4489 + or a hard register rtx in which to store the argument.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4490 + This macro is used _before_ FUNCTION_ARG_ADVANCE.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4491 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4492 + For the 6809, the first 8-bit function argument can be placed into B,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4493 + and the first 16-bit arg can go into X. All other arguments
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4494 + will be pushed onto the stack.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4495 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4496 + Command-line options can adjust this behavior somewhat.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4497 + */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4498 +#define FUNCTION_ARG(CUM, MODE, TYPE, NAMED) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4499 + ((MODE == VOIDmode) ? NULL_RTX : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4500 + ((MODE == BLKmode) \|\| (GET_MODE_SIZE (MODE) > 2)) ? NULL_RTX : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4501 + ((MODE == QImode) && !((CUM) & (CUM_STACK_ONLY \| CUM_B_MASK))) ? \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4502 + gen_rtx_REG (QImode, HARD_D_REGNUM) : \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4503 + ((MODE == HImode) && !((CUM) & (CUM_STACK_ONLY \| CUM_X_MASK))) ? \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4504 + gen_rtx_REG (HImode, HARD_X_REGNUM) : m6809_function_arg_on_stack (&CUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4505 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4506 +/* Output assembler code to FILE to increment profiler label # LABELNO
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4507 + for profiling a function entry. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4508 +#define FUNCTION_PROFILER(FILE, LABELNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4509 + fprintf (FILE, "\tldd\t#LP%u\n\tjsr\tmcount\n", (LABELNO));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4510 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4511 +/* Stack pointer must be correct on function exit */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4512 +#define EXIT_IGNORE_STACK 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4513 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4514 +/*****************************************************************************
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4515 +**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4516 +** Trampolines for Nested Functions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4517 +**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4518 +*****************************************************************************/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4519 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4520 +/* Length in units of the trampoline for entering a nested function. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4521 +#define TRAMPOLINE_SIZE 7
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4522 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4523 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4524 + Addressing modes,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4525 + and classification of registers for them.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4526 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4527 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4528 +/* 6809 has postincrement and predecrement addressing modes */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4529 +#define HAVE_POST_INCREMENT 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4530 +#define HAVE_PRE_DECREMENT 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4531 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4532 +/* Whether or not to use index registers is configurable.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4533 + * Experiments show that things work better when this is off, so
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4534 + * that's the way it is for now. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4535 +#undef USE_INDEX_REGISTERS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4536 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4537 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4538 +/* Macros to check register numbers against specific register classes. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4539 +#define REG_VALID_FOR_BASE_P(REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4540 + (((REGNO) < FIRST_PSEUDO_REGISTER) && A_REGNO_P (REGNO))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4541 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4542 +/* MC6809 index registers do not allow scaling, */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4543 +/* but there is "accumulator-offset" mode. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4544 +#ifdef USE_INDEX_REGISTERS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4545 +#define REG_VALID_FOR_INDEX_P(REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4546 + (((REGNO) < FIRST_PSEUDO_REGISTER) && I_REGNO_P (REGNO))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4547 +#else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4548 +#define REG_VALID_FOR_INDEX_P(REGNO) 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4549 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4550 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4551 +/* Internal macro, the nonstrict definition for REGNO_OK_FOR_BASE_P */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4552 +#define REGNO_OK_FOR_BASE_NONSTRICT_P(REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4553 + ((REGNO) >= FIRST_PSEUDO_REGISTER \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4554 + \|\| REG_VALID_FOR_BASE_P (REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4555 + \|\| (REGNO) == FRAME_POINTER_REGNUM \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4556 + \|\| (REGNO) == HARD_FRAME_POINTER_REGNUM \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4557 + \|\| (REGNO) == ARG_POINTER_REGNUM \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4558 + \|\| (reg_renumber && REG_VALID_FOR_BASE_P (reg_renumber[REGNO])))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4559 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4560 +/* Internal macro, the nonstrict definition for REGNO_OK_FOR_INDEX_P */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4561 +#define REGNO_OK_FOR_INDEX_NONSTRICT_P(REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4562 + ((REGNO) >= FIRST_PSEUDO_REGISTER \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4563 + \|\| REG_VALID_FOR_INDEX_P (REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4564 + \|\| (reg_renumber && REG_VALID_FOR_INDEX_P (reg_renumber[REGNO])))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4565 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4566 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4567 +/* Internal macro, the strict definition for REGNO_OK_FOR_BASE_P */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4568 +#define REGNO_OK_FOR_BASE_STRICT_P(REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4569 + ((REGNO) < FIRST_PSEUDO_REGISTER ? REG_VALID_FOR_BASE_P (REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4570 + : (reg_renumber && REG_VALID_FOR_BASE_P (reg_renumber[REGNO])))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4571 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4572 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4573 +/* Internal macro, the strict definition for REGNO_OK_FOR_INDEX_P */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4574 +#define REGNO_OK_FOR_INDEX_STRICT_P(REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4575 + ((REGNO) < FIRST_PSEUDO_REGISTER ? REG_VALID_FOR_INDEX_P (REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4576 + : (reg_renumber && REG_VALID_FOR_INDEX_P (reg_renumber[REGNO])))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4577 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4578 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4579 +#define REGNO_OK_FOR_BASE_P(REGNO) REGNO_OK_FOR_BASE_STRICT_P (REGNO)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4580 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4581 +#define REGNO_OK_FOR_INDEX_P(REGNO) REGNO_OK_FOR_INDEX_STRICT_P (REGNO)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4582 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4583 +#define REG_OK_FOR_BASE_STRICT_P(X) REGNO_OK_FOR_BASE_STRICT_P (REGNO (X))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4584 +#define REG_OK_FOR_BASE_NONSTRICT_P(X) REGNO_OK_FOR_BASE_NONSTRICT_P (REGNO (X))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4585 +#define REG_OK_FOR_INDEX_STRICT_P(X) REGNO_OK_FOR_INDEX_STRICT_P (REGNO (X))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4586 +#define REG_OK_FOR_INDEX_NONSTRICT_P(X) REGNO_OK_FOR_INDEX_NONSTRICT_P (REGNO (X))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4587 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4588 +#ifndef REG_OK_STRICT
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4589 +#define REG_OK_FOR_BASE_P(X) REG_OK_FOR_BASE_NONSTRICT_P(X)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4590 +#ifdef USE_INDEX_REGISTERS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4591 +#define REG_OK_FOR_INDEX_P(X) REG_OK_FOR_INDEX_NONSTRICT_P(X)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4592 +#else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4593 +#define REG_OK_FOR_INDEX_P(X) 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4594 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4595 +#else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4596 +#define REG_OK_FOR_BASE_P(X) REG_OK_FOR_BASE_STRICT_P (X)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4597 +#ifdef USE_INDEX_REGISTERS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4598 +#define REG_OK_FOR_INDEX_P(X) REG_OK_FOR_INDEX_STRICT_P (X)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4599 +#else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4600 +#define REG_OK_FOR_INDEX_P(X) 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4601 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4602 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4603 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4604 +/* Maximum number of registers that can appear in a valid memory address */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4605 +#ifdef USE_INDEX_REGISTERS
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4606 +#define MAX_REGS_PER_ADDRESS 2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4607 +#else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4608 +#define MAX_REGS_PER_ADDRESS 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4609 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4610 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4611 +/* 1 if X is an rtx for a constant that is a valid address.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4612 + * We allow any constant, plus the sum of any two constants (this allows
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4613 + * offsetting a symbol ref) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4614 +#define CONSTANT_ADDRESS_P(X) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4615 + ((CONSTANT_P (X)) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4616 + \|\| ((GET_CODE (X) == PLUS) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4617 + && (CONSTANT_P (XEXP (X, 0))) && (CONSTANT_P (XEXP (X, 1)))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4618 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4619 +/* Nonzero if the constant value X is a legitimate general operand.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4620 + It is given that X satisfies CONSTANT_P or is a CONST_DOUBLE. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4621 +/* Any single-word constant is ok; the only contexts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4622 + allowing general_operand of mode DI or DF are movdi and movdf. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4623 +#define LEGITIMATE_CONSTANT_P(X) (GET_CODE (X) != CONST_DOUBLE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4624 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4625 +/* Nonzero if the X is a legitimate immediate operand in PIC mode. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4626 +#define LEGITIMATE_PIC_OPERAND_P(X) !symbolic_operand (X, VOIDmode)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4627 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4628 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4629 + Test for valid memory addresses
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4630 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4631 +/* GO_IF_LEGITIMATE_ADDRESS recognizes an RTL expression
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4632 + that is a valid memory address for an instruction.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4633 + The MODE argument is the machine mode for the MEM expression
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4634 + that wants to use this address. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4635 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4636 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4637 + Valid addresses are either direct or indirect (MEM) versions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4638 + of the following forms.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4639 + constant N
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4640 + register ,X
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4641 + constant indexed N,X
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4642 + accumulator indexed D,X
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4643 + auto_increment ,X++
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4644 + auto_decrement ,--X
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4645 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4646 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4647 +#define REGISTER_ADDRESS_P(X) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4648 + (REG_P (X) && REG_OK_FOR_BASE_P (X))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4649 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4650 +#define EXTENDED_ADDRESS_P(X) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4651 + CONSTANT_ADDRESS_P (X) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4652 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4653 +#define LEGITIMATE_BASE_P(X) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4654 + ((REG_P (X) && REG_OK_FOR_BASE_P (X)) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4655 + \|\| (GET_CODE (X) == SIGN_EXTEND \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4656 + && GET_CODE (XEXP (X, 0)) == REG \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4657 + && GET_MODE (XEXP (X, 0)) == HImode \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4658 + && REG_OK_FOR_BASE_P (XEXP (X, 0))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4659 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4660 +#define LEGITIMATE_OFFSET_P(X) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4661 + (CONSTANT_ADDRESS_P (X) \|\| (REG_P (X) && REG_OK_FOR_INDEX_P (X)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4662 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4663 +/* 1 if X is the sum of a base register and an offset. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4664 +#define INDEXED_ADDRESS(X) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4665 + ((GET_CODE (X) == PLUS \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4666 + && LEGITIMATE_BASE_P (XEXP (X, 0)) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4667 + && LEGITIMATE_OFFSET_P (XEXP (X, 1))) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4668 + \|\| (GET_CODE (X) == PLUS \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4669 + && LEGITIMATE_BASE_P (XEXP (X, 1)) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4670 + && LEGITIMATE_OFFSET_P (XEXP (X, 0))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4671 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4672 +#define STACK_REG_P(X) (REG_P(X) && REGNO(X) == HARD_S_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4673 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4674 +#define STACK_PUSH_P(X) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4675 + (MEM_P (X) && GET_CODE (XEXP (X, 0)) == PRE_DEC && STACK_REG_P (XEXP (XEXP (X, 0), 0)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4676 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4677 +#define STACK_POP_P(X) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4678 + (MEM_P (X) && GET_CODE (XEXP (X, 0)) == POST_INC && STACK_REG_P (XEXP (XEXP (X, 0), 0)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4679 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4680 +#define PUSH_POP_ADDRESS_P(X) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4681 + (((GET_CODE (X) == PRE_DEC) \|\| (GET_CODE (X) == POST_INC)) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4682 + && (LEGITIMATE_BASE_P (XEXP (X, 0))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4683 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4684 +/* Go to ADDR if X is a valid address. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4685 +#define GO_IF_LEGITIMATE_ADDRESS(MODE, X, ADDR) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4686 +{ \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4687 + if (REGISTER_ADDRESS_P(X)) goto ADDR; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4688 + if (PUSH_POP_ADDRESS_P (X)) goto ADDR; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4689 + if (EXTENDED_ADDRESS_P (X)) goto ADDR; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4690 + if (INDEXED_ADDRESS (X)) goto ADDR; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4691 + if (MEM_P (X) && REGISTER_ADDRESS_P(XEXP (X, 0))) goto ADDR; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4692 + if (MEM_P (X) && PUSH_POP_ADDRESS_P (XEXP (X, 0))) goto ADDR; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4693 + if (MEM_P (X) && EXTENDED_ADDRESS_P (XEXP (X, 0))) goto ADDR; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4694 + if (MEM_P (X) && INDEXED_ADDRESS (XEXP (X, 0))) goto ADDR; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4695 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4696 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4697 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4698 + Address Fix-up
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4699 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4700 +/* Go to LABEL if ADDR (a legitimate address expression)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4701 + has an effect that depends on the machine mode it is used for.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4702 + In the latest GCC, this case is already handled by the core code
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4703 + so no action is required here. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4704 +#define GO_IF_MODE_DEPENDENT_ADDRESS(ADDR,LABEL) {}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4705 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4706 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4707 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4708 + Miscellaneous Parameters
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4709 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4710 +/* Specify the machine mode that this machine uses
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4711 + for the index in the tablejump instruction. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4712 +#define CASE_VECTOR_MODE Pmode
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4713 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4714 +/* Define this as 1 if `char' should by default be signed; else as 0. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4715 +#define DEFAULT_SIGNED_CHAR 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4716 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4717 +/* This flag, if defined, says the same insns that convert to a signed fixnum
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4718 + also convert validly to an unsigned one. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4719 +#define FIXUNS_TRUNC_LIKE_FIX_TRUNC
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4720 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4721 +/* Max number of bytes we can move from memory to memory/register
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4722 + in one reasonably fast instruction. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4723 +#define MOVE_MAX 2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4724 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4725 +/* Int can be 8 or 16 bits (default is 16) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4726 +#define INT_TYPE_SIZE (TARGET_BYTE_INT ? 8 : 16)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4727 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4728 +/* Short is always 16 bits */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4729 +#define SHORT_TYPE_SIZE (TARGET_BYTE_INT ? 8 : 16)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4730 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4731 +/* Size (bits) of the type "long" on target machine */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4732 +#define LONG_TYPE_SIZE (TARGET_BYTE_INT ? 16 : 32)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4733 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4734 +/* Size (bits) of the type "long long" on target machine */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4735 +#define LONG_LONG_TYPE_SIZE 32
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4736 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4737 +/* Size (bits) of the type "char" on target machine */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4738 +#define CHAR_TYPE_SIZE 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4739 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4740 +/* Size (bits) of the type "float" on target machine */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4741 +#define FLOAT_TYPE_SIZE 32
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4742 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4743 +/* Size (bits) of the type "double" on target machine.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4744 + * Note that the C standard does not require that doubles
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4745 + * hold any more bits than float. Since the 6809 has so few
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4746 + * registers, we cannot really support more than 32-bits. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4747 +#define DOUBLE_TYPE_SIZE 32
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4748 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4749 +/* Size (bits) of the type "long double" on target machine */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4750 +#define LONG_DOUBLE_TYPE_SIZE 32
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4751 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4752 +/* Define the type used for "size_t". With a 64KB address space,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4753 + * only a 16-bit value here makes sense. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4754 +#define SIZE_TYPE (TARGET_BYTE_INT ? "long unsigned int" : "unsigned int")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4755 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4756 +/* Likewise, the difference between two pointers is also a 16-bit
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4757 + * signed value. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4758 +#define PTRDIFF_TYPE (TARGET_BYTE_INT ? "long int" : "int")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4759 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4760 +/* Nonzero if access to memory by bytes is slow and undesirable. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4761 +#define SLOW_BYTE_ACCESS 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4762 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4763 +/* Define if shifts truncate the shift count
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4764 + which implies one can omit a sign-extension or zero-extension
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4765 + of a shift count. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4766 +#define SHIFT_COUNT_TRUNCATED 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4767 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4768 +/* Value is 1 if truncating an integer of INPREC bits to OUTPREC bits
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4769 + is done just by pretending it is already truncated. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4770 +#define TRULY_NOOP_TRUNCATION(OUTPREC, INPREC) 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4771 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4772 +/* It is as good to call a constant function address as to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4773 + call an address kept in a register. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4774 +#define NO_FUNCTION_CSE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4775 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4776 +/* Specify the machine mode that pointers have.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4777 + After generation of rtl, the compiler makes no further distinction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4778 + between pointers and any other objects of this machine mode. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4779 +#define Pmode HImode
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4780 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4781 +/* A function address in a call instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4782 + is a byte address (for indexing purposes)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4783 + so give the MEM rtx a byte's mode. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4784 +#define FUNCTION_MODE HImode
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4785 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4786 +/* Define the cost of moving a value from a register in CLASS1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4787 + * to CLASS2, of a given MODE.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4788 + *
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4789 + * On the 6809, hard register transfers are all basically equivalent.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4790 + * But soft register moves are treated more like memory moves. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4791 +#define REGISTER_MOVE_COST(MODE, CLASS1, CLASS2) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4792 + (((CLASS1 == M_REGS) \|\| (CLASS2 == M_REGS)) ? 4 : 7)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4793 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4794 +/* Define the cost of moving a value between a register and memory. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4795 +#define MEMORY_MOVE_COST(MODE, CLASS, IN) 5
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4796 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4797 +/* Check a `double' value for validity for a particular machine mode. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4798 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4799 +#define CHECK_FLOAT_VALUE(MODE, D, OVERFLOW) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4800 + ((OVERFLOW) = check_float_value (MODE, &D, OVERFLOW))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4801 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4802 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4803 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4804 + machine-dependent
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4805 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4806 +/* Tell final.c how to eliminate redundant test instructions. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4807 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4808 +/* Here we define machine-dependent flags and fields in cc_status
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4809 + (see `conditions.h'). */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4810 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4811 +/* Store in cc_status the expressions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4812 + that the condition codes will describe
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4813 + after execution of an instruction whose pattern is EXP.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4814 + Do not alter them if the instruction would not alter the cc's. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4815 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4816 +/* On the 6809, most of the insns to store in an address register
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4817 + fail to set the cc's. However, in some cases these instructions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4818 + can make it possibly invalid to use the saved cc's. In those
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4819 + cases we clear out some or all of the saved cc's so they won't be used. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4820 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4821 +#define NOTICE_UPDATE_CC(EXP, INSN) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4822 + notice_update_cc((EXP), (INSN))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4823 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4824 +/*****************************************************************************
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4825 +**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4826 +** pragma support
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4827 +**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4828 +*****************************************************************************/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4829 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4830 +#if 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4831 +#define REGISTER_TARGET_PRAGMAS() \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4832 +do { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4833 + extern void pragma_section PARAMS ((cpp_reader *)); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4834 + c_register_pragma (0, "section", pragma_section); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4835 +} while (0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4836 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4837 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4838 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4839 +/*--------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4840 + ASSEMBLER FORMAT
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4841 +--------------------------------------------------------------*/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4842 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4843 +#define FMT_HOST_WIDE_INT "%ld"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4844 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4845 +/* Output to assembler file text saying following lines
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4846 + may contain character constants, extra white space, comments, etc. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4847 +#define ASM_APP_ON ";----- asm -----\n"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4848 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4849 +/* Output to assembler file text saying following lines
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4850 + no longer contain unusual constructs. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4851 +#define ASM_APP_OFF ";--- end asm ---\n"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4852 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4853 +/* Use a semicolon to begin a comment. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4854 +#define ASM_COMMENT_START "; "
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4855 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4856 +/* Output assembly directives to switch to section 'name' */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4857 +#undef TARGET_ASM_NAMED_SECTION
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4858 +#define TARGET_ASM_NAMED_SECTION m6809_asm_named_section
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4859 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4860 +#undef TARGET_HAVE_NAMED_SECTION
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4861 +#define TARGET_HAVE_NAMED_SECTION m6809_have_named_section
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4862 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4863 +/* Output before read-only data. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4864 +#define TEXT_SECTION_ASM_OP (code_section_op)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4865 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4866 +/* Output before writable data. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4867 +#define DATA_SECTION_ASM_OP (data_section_op)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4868 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4869 +/* Output before uninitialized data. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4870 +#define BSS_SECTION_ASM_OP (bss_section_op)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4871 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4872 +/* Support the ctors and dtors sections for g++. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4873 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4874 +#undef CTORS_SECTION_ASM_OP
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4875 +#define CTORS_SECTION_ASM_OP "\t.area .ctors"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4876 +#undef DTORS_SECTION_ASM_OP
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4877 +#define DTORS_SECTION_ASM_OP "\t.area .dtors"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4878 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4879 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4880 +#undef DO_GLOBAL_CTORS_BODY
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4881 +#undef DO_GLOBAL_DTORS_BODY
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4882 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4883 +#define HAS_INIT_SECTION
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4884 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4885 +/* This is how to output an assembler line
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4886 + that says to advance the location counter
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4887 + to a multiple of 2*LOG bytes. /
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4888 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4889 +#define ASM_OUTPUT_ALIGN(FILE,LOG) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4890 + if ((LOG) > 1) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4891 + fprintf (FILE, "\t.bndry %u\n", 1 << (LOG))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4892 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4893 +/* The .set foo,bar construct doesn't work by default */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4894 +#undef SET_ASM_OP
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4895 +#define ASM_OUTPUT_DEF(FILE, LABEL1, LABEL2) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4896 + do \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4897 + { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4898 + fputc ('\t', FILE); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4899 + assemble_name (FILE, LABEL1); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4900 + fputs (" = ", FILE); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4901 + assemble_name (FILE, LABEL2); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4902 + fputc ('\n', FILE); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4903 + } \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4904 + while (0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4905 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4906 +/* How to refer to registers in assembler output.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4907 + This sequence is indexed by compiler's hard-register-number (see above). */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4908 +#define MNAME(x) [SOFT_M0_REGNUM+(x)] = "*m" C_STRING(x) ,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4909 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4910 +#define REGISTER_NAMES { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4911 + [HARD_D_REGNUM]= "d", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4912 + [HARD_X_REGNUM]= "x", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4913 + [HARD_Y_REGNUM]= "y", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4914 + [HARD_U_REGNUM]= "u", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4915 + [HARD_S_REGNUM]= "s", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4916 + [HARD_PC_REGNUM]= "pc", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4917 + [HARD_A_REGNUM]= "a", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4918 + [HARD_B_REGNUM]= "b", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4919 + [HARD_CC_REGNUM]= "cc",\
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4920 + [HARD_DP_REGNUM]= "dp", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4921 + [SOFT_FP_REGNUM]= "soft_fp", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4922 + [SOFT_AP_REGNUM]= "soft_ap", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4923 + MNAME(0) MNAME(1) MNAME(2) MNAME(3) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4924 + MNAME(4) MNAME(5) MNAME(6) MNAME(7) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4925 + [HARD_RSVD1_REGNUM] = "-", \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4926 + [HARD_Z_REGNUM] = "z" /* bit 2 of CC */ }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4927 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4928 +/*****************************************************************************
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4929 +**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4930 +** Debug Support
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4931 +**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4932 +*****************************************************************************/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4933 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4934 +/* Default to DBX-style debugging */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4935 +#define PREFERRED_DEBUGGING_TYPE DBX_DEBUG
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4936 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4937 +#define DBX_DEBUGGING_INFO
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4938 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4939 +#define DEFAULT_GDB_EXTENSIONS 0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4940 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4941 +#define ASM_STABS_OP ";\t.stabs\t"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4942 +#define ASM_STABD_OP ";\t.stabd\t"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4943 +#define ASM_STABN_OP ";\t.stabn\t"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4944 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4945 +#define DBX_CONTIN_LENGTH 54
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4946 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4947 +#define DBX_OUTPUT_MAIN_SOURCE_FILENAME(ASMFILE, FILENAME) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4948 +do { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4949 + const char *p = FILENAME; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4950 + while ((p = strchr (p, '/')) != NULL) { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4951 + p = FILENAME = p+1; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4952 + } \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4953 + fprintf (ASMFILE, "%s", ASM_STABS_OP); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4954 + output_quoted_string (ASMFILE, FILENAME); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4955 + fprintf (ASMFILE, ",%d,0,0,", N_SO); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4956 + assemble_name (ASMFILE, ltext_label_name); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4957 + fputc ('\n', ASMFILE); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4958 + switch_to_section (text_section); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4959 + (*targetm.asm_out.internal_label) (ASMFILE, "Ltext", 0); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4960 +} while (0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4961 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4962 +/* With -g, GCC sometimes outputs string literals that are longer than
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4963 + * the assembler can handle. Without actual debug support, these are
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4964 + * not really required. Redefine the function to output strings to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4965 + * output as much as possible. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4966 +#define OUTPUT_QUOTED_STRING(FILE, STR) m6809_output_quoted_string (FILE, STR)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4967 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4968 +/*****************************************************************************
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4969 +**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4970 +** Output and Generation of Labels
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4971 +**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4972 +*****************************************************************************/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4973 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4974 +/* Prefixes for various assembly-time objects */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4975 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4976 +#define REGISTER_PREFIX ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4977 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4978 +#define LOCAL_LABEL_PREFIX ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4979 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4980 +#define USER_LABEL_PREFIX "_"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4981 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4982 +#define IMMEDIATE_PREFIX "#"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4983 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4984 +/* This is how to output the definition of a user-level label named NAME,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4985 + such as the label on a static function or variable NAME. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4986 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4987 +#define ASM_OUTPUT_LABEL(FILE,NAME) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4988 +do { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4989 + if (section_changed) { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4990 + fprintf (FILE, "\n%s\n\n", code_section_op); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4991 + section_changed = 0; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4992 + } \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4993 + assemble_name (FILE, NAME); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4994 + fputs (":\n", FILE); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4995 +} while (0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4996 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4997 +/* This is how to output the label for a function definition. It
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4998 + invokes ASM_OUTPUT_LABEL, but may examine the DECL tree node for
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	4999 + other properties. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5000 +#define ASM_DECLARE_FUNCTION_NAME(FILE,NAME,DECL) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5001 + m6809_declare_function_name (FILE,NAME,DECL)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5002 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5003 +/* This is how to output a command to make the user-level label
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5004 + named NAME defined for reference from other files. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5005 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5006 +#define GLOBAL_ASM_OP "\t.globl "
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5007 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5008 +/* This is how to output a reference to a user label named NAME. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5009 +#define ASM_OUTPUT_LABELREF(FILE,NAME) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5010 + fprintf (FILE, "_%s", NAME)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5011 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5012 +/* This is how to output a reference to a symbol ref
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5013 + * Check to see if the symbol is in the direct page */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5014 +#define ASM_OUTPUT_SYMBOL_REF(FILE,sym) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5015 +{ \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5016 + print_direct_prefix (FILE, sym); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5017 + assemble_name (FILE, XSTR (sym, 0)); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5018 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5019 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5020 +/* External references aren't necessary, so don't emit anything */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5021 +#define ASM_OUTPUT_EXTERNAL(FILE,DECL,NAME)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5022 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5023 +/* This is how to store into the string LABEL
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5024 + the symbol_ref name of an internal numbered label where
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5025 + PREFIX is the class of label and NUM is the number within the class.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5026 + This is suitable for output with `assemble_name'. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5027 +#define ASM_GENERATE_INTERNAL_LABEL(LABEL,PREFIX,NUM) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5028 + sprintf (LABEL, "*%s%lu", PREFIX, (unsigned long int)NUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5029 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5030 +/* This is how to output an assembler line defining an `int' constant. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5031 +#define ASM_OUTPUT_INT(FILE,VALUE) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5032 +( fprintf (FILE, "\t.word "), \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5033 + output_addr_const (FILE, (VALUE)), \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5034 + fprintf (FILE, "\n"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5035 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5036 +/* Likewise for `char' and `short' constants. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5037 +#define ASM_OUTPUT_SHORT(FILE,VALUE) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5038 +( fprintf (FILE, "\t.word "), \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5039 + output_addr_const (FILE, (VALUE)), \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5040 + fprintf (FILE, "\n"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5041 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5042 +/* This is how to output a string. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5043 +#define ASM_OUTPUT_ASCII(FILE,STR,SIZE) m6809_output_ascii (FILE, STR, SIZE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5044 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5045 +/* This is how to output an insn to push a register on the stack.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5046 + It need not be very fast code. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5047 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5048 +#define ASM_OUTPUT_REG_PUSH(FILE,REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5049 + fprintf (FILE, "\tpshs\t%s\n", reg_names[REGNO])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5050 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5051 +/* This is how to output an insn to pop a register from the stack.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5052 + It need not be very fast code. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5053 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5054 +#define ASM_OUTPUT_REG_POP(FILE,REGNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5055 + fprintf (FILE, "\tpuls\t%s\n", reg_names[REGNO])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5056 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5057 +/* This is how to output an element of a case-vector that is absolute. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5058 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5059 +#define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5060 + fprintf (FILE, "\t.word L%u\n", VALUE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5061 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5062 +/* This is how to output an element of a case-vector that is relative. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5063 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5064 +#define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, BODY, VALUE, REL) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5065 + fprintf (FILE, "\t.word L%u-L%u\n", VALUE, REL)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5066 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5067 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5068 +/*****************************************************************************
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5069 +**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5070 +** Assembler Commands for Alignment
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5071 +**
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5072 +*****************************************************************************/
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5073 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5074 +/* ASM_OUTPUT_SKIP is supposed to zero initialize the data.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5075 + * So use the .byte and .word directives instead of .blkb */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5076 +#define ASM_OUTPUT_SKIP(FILE,SIZE) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5077 + do { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5078 + int __size = SIZE; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5079 + while (__size > 0) { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5080 + if (__size >= 2) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5081 + { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5082 + fprintf (FILE, "\t.word\t0\t;skip space %d\n", __size); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5083 + __size -= 2; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5084 + } \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5085 + else \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5086 + { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5087 + fprintf (FILE, "\t.byte\t0\t;skip space\n"); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5088 + __size--; \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5089 + } \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5090 + } \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5091 + } while (0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5092 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5093 +/* This says how to output an assembler line
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5094 + to define a global common symbol. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5095 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5096 +#define ASM_OUTPUT_COMMON(FILE, NAME, SIZE, ROUNDED) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5097 + do { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5098 + switch_to_section (bss_section); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5099 + fputs ("\t.globl\t", FILE); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5100 + assemble_name ((FILE), (NAME)); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5101 + fputs ("\n", FILE); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5102 + assemble_name ((FILE), (NAME)); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5103 + fprintf ((FILE), ":\t.blkb\t" FMT_HOST_WIDE_INT "\n", (ROUNDED));} while(0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5104 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5105 +/* This says how to output an assembler line
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5106 + to define a local common symbol. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5107 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5108 +#define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5109 +do { \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5110 + switch_to_section (bss_section); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5111 + assemble_name ((FILE), (NAME)); \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5112 + fprintf ((FILE), ":\t.blkb\t" FMT_HOST_WIDE_INT "\n", (ROUNDED));} while(0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5113 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5114 +/* Store in OUTPUT a string (made with alloca) containing
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5115 + an assembler-name for a local static variable named NAME.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5116 + LABELNO is an integer which is different for each call. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5117 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5118 +#define ASM_FORMAT_PRIVATE_NAME(OUTPUT, NAME, LABELNO) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5119 +( (OUTPUT) = (char *) alloca (strlen ((NAME)) + 10), \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5120 + sprintf ((OUTPUT), "%s.%lu", (NAME), (unsigned long int)(LABELNO)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5121 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5122 +/* Print an instruction operand X on file FILE.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5123 + CODE is the code from the %-spec for printing this operand.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5124 + If `%z3' was used to print operand 3, then CODE is 'z'. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5125 +#define PRINT_OPERAND(FILE, X, CODE) print_operand (FILE, X, CODE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5126 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5127 +/* Print a memory operand whose address is X, on file FILE. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5128 +#define PRINT_OPERAND_ADDRESS(FILE, ADDR) print_operand_address (FILE, ADDR)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5129 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5130 +/* Don't let stack pushes build up too much. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5131 +#define MAX_PENDING_STACK 8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5132 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5133 +/* Define values for builtin operations */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5134 +enum m6809_builtins
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5135 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5136 + M6809_SWI,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5137 + M6809_SWI2,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5138 + M6809_SWI3,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5139 + M6809_CWAI,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5140 + M6809_SYNC,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5141 + M6809_ADD_CARRY,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5142 + M6809_SUB_CARRY,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5143 + M6809_ADD_DECIMAL,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5144 + M6809_NOP,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5145 + M6809_BLOCKAGE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5146 +};
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5147 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5148 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.md gcc-4.6.4/gcc/config/m6809/m6809.md
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5149 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.md 1969-12-31 17:00:00.000000000 -0700
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5150 +++ gcc-4.6.4/gcc/config/m6809/m6809.md 2015-07-20 22:05:21.702720231 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5151 @@ -0,0 +1,2358 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5152 +;; GCC machine description for Motorola 6809
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5153 +;; Copyright (C) 1989, 2005, 2006, 2007, 2008,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5154 +;; 2009 Free Software Foundation, Inc.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5155 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5156 +;; Mostly by Brian Dominy (brian@oddchange.com) with substantial renovations
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5157 +;; by William Astle (lost@l-w.ca).
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5158 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5159 +;; Based on earlier work by Tom Jones (jones@sal.wisc.edu) and
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5160 +;; Matthias Doerfel (msdoerfe@informatik.uni-erlangen.de)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5161 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5162 +;; This file is part of GCC.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5163 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5164 +;; GCC is free software; you can redistribute it and/or modify
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5165 +;; it under the terms of the GNU General Public License as published by
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5166 +;; the Free Software Foundation; either version 3, or (at your option)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5167 +;; any later version.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5168 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5169 +;; GCC is distributed in the hope that it will be useful,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5170 +;; but WITHOUT ANY WARRANTY; without even the implied warranty of
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5171 +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5172 +;; GNU General Public License for more details.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5173 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5174 +;; You should have received a copy of the GNU General Public License
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5175 +;; along with GCC; see the file COPYING3. If not see
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5176 +;; <http://www.gnu.org/licenses/>.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5177 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5178 +;; General information:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5179 +;; --------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5180 +;; * This backend is mostly a rewrite from earlier (3.1.1 and before)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5181 +;; versions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5182 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5183 +;; * The 'A' and 'B' registers are treated as a single register by the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5184 +;; register allocator; hence, the instruction templates assume that
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5185 +;; both can be modified if either one is available for use. No
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5186 +;; attempt is made to split instructions to refer to a particular half
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5187 +;; of the register. It is always referred to as the 'D' register, even
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5188 +;; in QImode (when it will be displayed as 'B').
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5189 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5190 +;; * There is full support for proper branch instruction generation,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5191 +;; based on instruction lengths. However, many instruction patterns
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5192 +;; are still overloaded to emit lots of real instructions, which can
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5193 +;; make the length calculation difficult; in those cases, I've tried
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5194 +;; to be pessimistic and assume the worst-case.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5195 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5196 +;; * The instruction type attributes are only defined for branch
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5197 +;; vs. non branch instructions for now, since there is seemingly no
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5198 +;; reason to define these for other types anyway.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5199 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5200 +;; * The limited number of total registers presents the greatest
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5201 +;; challenge. There are 'soft registers' -- memory locations
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5202 +;; used to simulate real regs -- which can be helpful.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5203 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5204 +;; * Position-independent code (PIC) is supported and has been tested
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5205 +;; but not to the extent of absolute code generation.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5206 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5207 +;; * All of the 6809 special opcodes, e.g. SWI and SYNC, are defined
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5208 +;; as UNSPEC instructions, and can be accessed from C code using
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5209 +;; __builtin_xxxx() style functions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5210 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5211 +;; What still needs to be done:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5212 +;; ----------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5213 +;; * Replace remaining instances of (define_peephole) with
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5214 +;; (define_peephole2), or remove them completely if they are not
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5215 +;; matching anyway. Add more peepholes for things actually encountered.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5216 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5217 +;; * Indexing addressing can lead to crashes in complex functions when
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5218 +;; register pressure is high. Only the 'D' register can actually be
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5219 +;; used as an index register, and its demand by other instructions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5220 +;; can sometimes mean that it is impossible to satisfy constraints.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5221 +;; Currently, indexing is completely disabled to avoid these types
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5222 +;; of problems, although code is slightly more inefficient in some
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5223 +;; working cases.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5224 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5225 +;; * 32-bit math is terribly inefficient.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5226 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5227 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5228 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5229 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5230 +;;- Constants
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5231 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5232 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5233 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5234 +; Define constants for hard register numbers.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5235 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5236 +(define_constants [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5237 + (HARD_RSVD1_REGNUM 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5238 + (HARD_X_REGNUM 1) (HARD_Y_REGNUM 2) (HARD_U_REGNUM 3)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5239 + (HARD_S_REGNUM 4) (HARD_PC_REGNUM 5) (HARD_D_REGNUM 6)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5240 + (HARD_Z_REGNUM 7)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5241 + (HARD_A_REGNUM 8) (HARD_B_REGNUM 9)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5242 + (HARD_CC_REGNUM 10) (HARD_DP_REGNUM 11)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5243 + (SOFT_FP_REGNUM 12) (SOFT_AP_REGNUM 13)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5244 + (SOFT_M0_REGNUM 14) (SOFT_M1_REGNUM 15)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5245 + (SOFT_M2_REGNUM 16) (SOFT_M3_REGNUM 17)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5246 +])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5247 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5248 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5249 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5250 +; The range in which a short branch insn can be used.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5251 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5252 +(define_constants [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5253 + (MIN_SHORT_BRANCH_OFFSET -127)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5254 + (MAX_SHORT_BRANCH_OFFSET 128)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5255 +])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5256 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5257 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5258 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5259 +; The lengths of various types of real 6809 instructions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5260 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5261 +; By default, ordinary insns are 4 bytes long. This is often not
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5262 +; right, and the insn patterns below will redefine this to the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5263 +; correct value.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5264 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5265 +; Branch instruction lengths (conditional and unconditionals) are
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5266 +; well known and declared here. The short insns are used when the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5267 +; offset is within the range declared above (between MIN_SHORT
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5268 +; and MAX_SHORT) ; otherwise the long form is used.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5269 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5270 +(define_constants [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5271 + (DEFAULT_INSN_LENGTH 4)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5272 + (SHORT_CBRANCH_LENGTH 2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5273 + (LONG_CBRANCH_LENGTH 4)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5274 + (SHORT_BRANCH_LENGTH 2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5275 + (LONG_BRANCH_LENGTH 3)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5276 +])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5277 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5278 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5279 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5280 +; Constants for insn cycle counts.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5281 +; Note that these counts all assume 1-byte opcodes. 2-byte
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5282 +; opcodes require 1 extra cycles for fetching the extra byte.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5283 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5284 +(define_constants [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5285 + ;; The default insn length, when it cannot be calculated.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5286 + ;; Take a conservative approach and estimate high.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5287 + (DEFAULT_INSN_CYCLES 10)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5288 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5289 + ;; Cycle counts for ALU and load operations.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5290 + (ALU_INHERENT_CYCLES 2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5291 + (ALU_IMMED_CYCLES 2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5292 + (ALU_DIRECT_CYCLES 4)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5293 + (ALU_INDEXED_BASE_CYCLES 4)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5294 + (ALU_EXTENDED_CYCLES 5)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5295 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5296 + ;; If an ALU operation is on a 16-bit register (D), then
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5297 + ;; add this number of cycles to the total count.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5298 + (ALU_16BIT_CYCLES 2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5299 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5300 + ;; A load of a 16-bit register incurs this extra amount.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5301 + (LOAD_16BIT_CYCLES 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5302 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5303 + ;; Cycle counts for memory-only operations (bit shifts, clear, test)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5304 + (MEM_DIRECT_CYCLES 6)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5305 + (MEM_INDEXED_BASE_CYCLES 6)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5306 + (MEM_EXTENDED_CYCLES 7)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5307 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5308 + ;; Cycle count for any reg-reg transfer (regardless of size)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5309 + (EXG_CYCLES 8)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5310 + (TFR_CYCLES 6)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5311 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5312 + ;; Cycle count for a condition code update (andcc/orcc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5313 + (CC_CYCLES 3)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5314 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5315 + (JMP_DIRECT_CYCLES 3)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5316 + (JMP_INDEXED_BASE_CYCLES 3)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5317 + (JMP_EXTENDED_CYCLES 4)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5318 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5319 + (JSR_DIRECT_CYCLES 7)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5320 + (JSR_INDEXED_BASE_CYCLES 7)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5321 + (JSR_EXTENDED_CYCLES 8)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5322 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5323 + (LEA_BASE_CYCLES 4)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5324 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5325 + ;; Cycle count for a psh/pul operations. Add to this the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5326 + ;; total number of bytes moved for the correct count.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5327 + (PSH_PUL_CYCLES 5)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5328 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5329 + ;; Miscellaneous cycle counts
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5330 + (CWAI_CYCLES 20)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5331 + (MUL_CYCLES 11)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5332 + (NOP_CYCLES 2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5333 + (RTI_CYCLES 15)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5334 + (RTS_CYCLES 5)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5335 + (SWI_CYCLES 20)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5336 + (SYNC_CYCLES 4)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5337 +])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5338 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5339 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5340 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5341 +; An enumeration of values for each "unspec"; i.e. unspecified
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5342 +; instruction. These represent insns that are meaningful on the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5343 +; 6809 but which have no intrinsic meaning to GCC itself.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5344 +; These insns can be generated explicitly using the __builtin_xxx
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5345 +; syntax; they are also implicitly generated by the backend
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5346 +; as needed to implement other insns.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5347 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5348 +(define_constants [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5349 + (UNSPEC_BLOCKAGE 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5350 + (UNSPEC_PUSH_RS 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5351 + (UNSPEC_POP_RS 2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5352 + (UNSPEC_SWI 3)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5353 + (UNSPEC_CWAI 4)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5354 + (UNSPEC_ADD_CARRY 5)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5355 + (UNSPEC_SUB_CARRY 6)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5356 + (UNSPEC_SYNC 7)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5357 + (UNSPEC_ADD_DECIMAL 8)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5358 +])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5359 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5360 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5361 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5362 +;;- Predicates
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5363 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5364 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5365 +(include "predicates.md")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5366 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5367 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5368 +;;- Attributes
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5369 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5370 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5371 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5372 +;; The type attribute is used to distinguish between different
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5373 +;; types of branch instructions, so that their lengths can be
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5374 +;; calculated correctly.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5375 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5376 +(define_attr "type" "branch,cbranch,unknown" (const_string "unknown"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5377 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5378 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5379 +;; The length of a branch instruction is calculated based on how
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5380 +;; far away the branch target is. Lengths of other insns default
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5381 +;; to 4. set_attr is used in instruction templates to specify
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5382 +;; the length when it is known exactly. When not sure, err on
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5383 +;; the high side to avoid compile errors.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5384 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5385 +(define_attr "length" ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5386 + (cond [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5387 + (eq_attr "type" "branch")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5388 + (if_then_else (lt (minus (match_dup 0) (pc))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5389 + (const_int MIN_SHORT_BRANCH_OFFSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5390 + (const_int LONG_BRANCH_LENGTH)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5391 + (if_then_else (gt (minus (match_dup 0) (pc))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5392 + (const_int MAX_SHORT_BRANCH_OFFSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5393 + (const_int LONG_BRANCH_LENGTH)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5394 + (const_int SHORT_BRANCH_LENGTH)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5395 + (eq_attr "type" "cbranch")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5396 + (if_then_else (lt (minus (match_dup 0) (pc))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5397 + (const_int MIN_SHORT_BRANCH_OFFSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5398 + (const_int LONG_CBRANCH_LENGTH)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5399 + (if_then_else (gt (minus (match_dup 0) (pc))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5400 + (const_int MAX_SHORT_BRANCH_OFFSET))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5401 + (const_int LONG_CBRANCH_LENGTH)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5402 + (const_int SHORT_CBRANCH_LENGTH)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5403 + ] (const_int DEFAULT_INSN_LENGTH)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5404 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5405 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5406 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5407 +;; The default attributes for 'asm' statements.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5408 +;; The default length is the longest possible single 6809 instruction,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5409 +;; which is 5 bytes. GCC will automatically multiply this by the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5410 +;; number of real insns contained in an asm statement.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5411 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5412 +(define_asm_attributes
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5413 + [(set_attr "length" "5")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5414 + (set_attr "type" "unknown")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5415 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5416 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5417 +;; An attribute for the number of cycles that it takes an instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5418 +;; to execute.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5419 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5420 +(define_attr "cycles" "" (const_int DEFAULT_INSN_CYCLES))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5421 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5422 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5423 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5424 +;;- Instruction patterns. When multiple patterns apply,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5425 +;;- the first one in the file is chosen.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5426 +;;-
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5427 +;;- See file "rtl.def" for documentation on define_insn, match_*, et. al.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5428 +;;-
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5429 +;;- Note: NOTICE_UPDATE_CC in m6809.h handles condition code updates
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5430 +;;- for most instructions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5431 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5432 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5433 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5434 +;;- Test
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5435 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5436 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5437 +;; cmpx is 3 bytes, not 4
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5438 +(define_insn "*tsthi_x"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5439 + [(set (cc0) (match_operand:HI 0 "register_operand_x" "v"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5440 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5441 + "cmpx\t#0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5442 + [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5443 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5444 +;; subd #0 is 3 bytes, better than cmpd #0 which is 4 bytes
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5445 +(define_insn "*tsthi_d"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5446 + [(set (cc0) (match_operand:HI 0 "register_operand_d" "d"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5447 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5448 + "subd\t#0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5449 + [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5450 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5451 +(define_insn "*tsthi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5452 + [(set (cc0) (match_operand:HI 0 "register_operand" "a"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5453 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5454 + "cmp%0\t#0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5455 + [(set_attr "length" "4")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5456 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5457 +(define_insn "*bitqi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5458 + [(set (cc0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5459 + (and:QI (match_operand:QI 0 "register_operand" "%q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5460 + (match_operand:QI 1 "general_operand" "mi")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5461 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5462 + "bit%0\t%1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5463 + [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5464 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5465 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5466 +(define_insn "tstqi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5467 + [(set (cc0) (match_operand:QI 0 "nonimmediate_operand" "q,mt"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5468 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5469 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5470 + tst%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5471 + tst\t%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5472 + [(set_attr "length" "1,3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5473 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5474 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5475 +;;- Compare instructions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5476 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5477 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5478 +;; - cmphi for register to memory or register compares
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5479 +(define_insn "cmphi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5480 + [(set (cc0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5481 + (compare
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5482 + (match_operand:HI 0 "general_operand" "da, mi, ??Ud")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5483 + (match_operand:HI 1 "general_operand" "mi, da, dU")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5484 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5485 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5486 + if ((REG_P (operands[0])) && (REG_P (operands[1]))) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5487 + output_asm_insn ("pshs\t%1\t;cmphi: R:%1 with R:%0", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5488 + return "cmp%0\t,s++\t;cmphi:";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5489 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5490 + if (GET_CODE (operands[0]) == REG)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5491 + return "cmp%0\t%1\t;cmphi:";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5492 + else {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5493 + cc_status.flags \|= CC_REVERSED;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5494 + return "cmp%1\t%0\t;cmphi:(R)";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5495 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5496 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5497 + [(set_attr "length" "5,5,7")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5498 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5499 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5500 +(define_insn "cmpqi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5501 + [(set (cc0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5502 + (compare (match_operand:QI 0 "whole_general_operand" "q,q, q,O,mt,K")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5503 + (match_operand:QI 1 "whole_general_operand" "O,mt,K,q,q, q")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5504 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5505 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5506 + if (REG_P (operands[0]) && !M_REG_P (operands[0]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5507 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5508 + if (operands[1] == const0_rtx)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5509 + return "tst%0\t;cmpqi:(ZERO)";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5510 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5511 + return "cmp%0\t%1\t;cmpqi:";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5512 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5513 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5514 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5515 + cc_status.flags \|= CC_REVERSED;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5516 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5517 + if (operands[0] == const0_rtx)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5518 + return "tst%1\t;cmpqi:(RZERO)";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5519 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5520 + return "cmp%1\t%0\t;cmpqi:(R)";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5521 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5522 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5523 + [(set_attr "length" "1,3,2,1,3,2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5524 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5525 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5526 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5527 +;;- Compare/branch pattern
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5528 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5529 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5530 +(define_expand "cbranchhi4"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5531 + [(set (cc0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5532 + (compare
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5533 + (match_operand:HI 1 "general_operand" "da, mi, ??Ud")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5534 + (match_operand:HI 2 "general_operand" "mi, da, dU")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5535 + (set (pc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5536 + (if_then_else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5537 + (match_operator 0 "ordered_comparison_operator" [(cc0) (const_int 0)])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5538 + (label_ref (match_operand 3 "" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5539 + (pc)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5540 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5541 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5542 +)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5543 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5544 +(define_expand "cbranchqi4"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5545 + [(set (cc0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5546 + (compare
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5547 + (match_operand:QI 1 "whole_general_operand" "q,q, q,O,mt,K")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5548 + (match_operand:QI 2 "whole_general_operand" "O,mt,K,q,q, q")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5549 + (set (pc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5550 + (if_then_else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5551 + (match_operator 0 "ordered_comparison_operator" [(cc0) (const_int 0)])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5552 + (label_ref (match_operand 3 "" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5553 + (pc)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5554 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5555 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5556 +)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5557 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5558 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5559 +;;- Move
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5560 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5561 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5562 +; this looks good (obviously not finished) but I still see 'movsi'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5563 +; places in udivsi3 where it's broken
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5564 +; (define_insn "pushsi1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5565 +; [(set (mem:SI (pre_dec (reg:HI HARD_S_REGNUM)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5566 +; (match_operand:SI 0 "general_operand" "o"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5567 +; (set (reg:HI HARD_S_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5568 +; (plus:HI (reg:HI HARD_S_REGNUM) (const_int -4))) ]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5569 +; ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5570 +; "; pushsi %0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5571 +; [(set_attr "length" "12")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5572 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5573 +; (define_insn "popsi1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5574 +; [(set (match_operand:SI 0 "general_operand" "=o")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5575 +; (mem:SI (post_inc (reg:HI HARD_S_REGNUM))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5576 +; (set (reg:HI HARD_S_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5577 +; (plus:HI (reg:HI HARD_S_REGNUM) (const_int 4))) ]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5578 +; ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5579 +; "; popsi %0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5580 +; [(set_attr "length" "12")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5581 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5582 +; (define_insn "movsi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5583 +; [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5584 +; (match_operand:SI 1 "general_operand" " oi"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5585 +; ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5586 +; "; movsi %0 <- %1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5587 +; [(set_attr "length" "1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5588 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5589 +; this doesn't work
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5590 +; (define_expand "movsi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5591 +; [(parallel [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5592 +; (set (match_operand:SI 0 "nonimmediate_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5593 +; (match_operand:SI 1 "general_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5594 +; (clobber (match_scratch:HI 2 ""))])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5595 +; ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5596 +; {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5597 +; rtx insn;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5598 +; if (STACK_PUSH_P (operands[0]) \|\| STACK_POP_P (operands[1]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5599 +; {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5600 +; REG_NOTES (insn) = alloc_EXPR_LIST (REG_INC, stack_pointer_rtx, REG_NOTES (insn));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5601 +; }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5602 +; insn = emit_move_multi_word (SImode, operands[0], operands[1]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5603 +; DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5604 +; })
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5605 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5606 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5607 +(define_expand "movhi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5608 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5609 + (match_operand:HI 1 "general_operand" ""))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5610 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5611 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5612 + /* One of the ops has to be in a register prior to reload */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5613 + if (!register_operand (operand0, HImode) &&
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5614 + !register_operand (operand1, HImode))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5615 + operands[1] = copy_to_mode_reg (HImode, operand1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5616 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5617 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5618 +;;; Try a splitter to handle failure cases where we try to move
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5619 +;;; an immediate constant (zero usually) directly to memory.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5620 +;;; This absolutely requires an intermediate register.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5621 +(define_split
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5622 + [(set (match_operand:HI 0 "memory_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5623 + (match_operand:HI 1 "immediate_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5624 + (clobber (match_operand:HI 2 "register_operand" ""))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5625 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5626 + [(set (match_dup 2) (match_dup 1))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5627 + (set (match_dup 0) (match_dup 2))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5628 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5629 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5630 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5631 +;;; This would be a nice method for loading from a word array,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5632 +;;; but it is never generated because the combiner cannot merge
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5633 +;;; more than 3 instructions (there are four here). This is
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5634 +;;; perhaps better done via a peephole.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5635 +(define_insn "*movhi_array_load"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5636 + [(set (match_operand:HI 0 "nonimmediate_operand" "=da")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5637 + (mem:HI (plus:HI (ashift:HI (zero_extend:HI (match_operand:QI 1 "register_operand" "%B")) (const_int 1))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5638 + (match_operand:HI 2 "immediate_operand" "i"))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5639 + (clobber (match_scratch:HI 3 "=X"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5640 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5641 + "ldx\t%2\;abx\;abx\;ld%0\t,x"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5642 + [(set_attr "length" "7")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5643 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5644 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5645 +;;; Optimize the move of a byte to the stack using the pshs instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5646 +;;; instead of a store with pre-increment.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5647 +(define_insn "movhi_push"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5648 + [(set (match_operand:HI 0 "push_operand" "=m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5649 + (match_operand:HI 1 "register_operand" "U"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5650 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5651 + "pshs\t%1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5652 + [(set_attr "length" "2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5653 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5654 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5655 +(define_insn "*movhi_pic_symbolref"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5656 + [(set (match_operand:HI 0 "register_operand" "=a")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5657 + (match_operand:HI 1 "symbolic_operand" ""))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5658 + "flag_pic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5659 + "lea%0\t%c1,pcr"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5660 + [(set_attr "length" "4")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5661 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5662 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5663 +(define_insn "*movhi_1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5664 + [(set (match_operand:HI 0 "nonimmediate_operand" "=a,d,a,ad,mu")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5665 + (match_operand:HI 1 "general_operand" " a,a,d,miu,ad"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5666 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5667 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5668 + lea%0\t,%1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5669 + tfr\t%1,%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5670 + tfr\t%1,%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5671 + ld%0\t%1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5672 + st%1\t%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5673 + [(set_attr "length" "2,2,2,,")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5674 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5675 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5676 +;;; Generated by the combiner to merge an address calculation with
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5677 +;;; a byte load. We can use the 'abx' instruction here.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5678 +(define_insn "*movqi_array_load"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5679 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5680 + (mem:QI (plus:HI (zero_extend:HI (match_operand:QI 1 "register_operand" "%B"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5681 + (match_operand:HI 2 "immediate_operand" "i"))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5682 + (clobber (match_scratch:HI 3 "=X"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5683 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5684 + "ldx\t%2\;abx\;ld%0\t,x"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5685 + [(set_attr "length" "6")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5686 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5687 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5688 +;;; Optimize the move of a byte to the stack using the pshs instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5689 +;;; instead of a store with pre-increment.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5690 +(define_insn "movqi_push"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5691 + [(set (match_operand:QI 0 "push_operand" "=m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5692 + (match_operand:QI 1 "register_operand" " q"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5693 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5694 + "pshs\t%1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5695 + [(set_attr "length" "2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5696 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5697 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5698 +;;; Optimize the move of a byte from the stack using the puls instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5699 +;;; instead of a store with post-decrement.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5700 +(define_insn "movqi_pop"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5701 + [(set (match_operand:QI 0 "register_operand" "=q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5702 + (match_operand:QI 1 "pop_operand" "m"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5703 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5704 + "puls\t%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5705 + [(set_attr "length" "2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5706 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5707 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5708 +;;- load low byte of 16-bit data into 8-bit register/memory
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5709 +(define_insn "*mov_lsb"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5710 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,m,!q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5711 + (subreg:QI (match_operand:HI 1 "general_operand" "d,m,a,d, U") 1))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5712 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5713 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5714 + \t;movlsbqihi: D->B
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5715 + ld%0\t%L1\t;movlsbqihi: msb:%1 -> R:%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5716 + tfr\t%1,d\t;movlsbqihi: R:%1 -> R:%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5717 + stb\t%0\t;movlsbqihi: R:%1 -> %0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5718 + pshs\t%1\t;movlsbqihi: R:%1 -> R:%0\;leas\t1,s\;puls\t%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5719 + [(set_attr "length" "0,,2,,6")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5720 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5721 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5722 +;;- load high byte of 16-bit data into 8-bit register/memory
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5723 +(define_insn "*mov_msb"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5724 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,q,m,!q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5725 + (subreg:QI (match_operand:HI 1 "general_operand" "d,O,a,m,d, U") 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5726 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5727 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5728 + tfr\ta,b\t;movmsbqihi: D->B
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5729 + clr%0\t\t;movmsbqihi: ZERO -> R:%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5730 + tfr\t%1,d\t;movmsbqihi: R:%1 -> R:%0\;tfr\ta,b
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5731 + ld%0\t%L1\t;movmsbqihi: lsb:%1 -> R:%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5732 + sta\t%0\t;movmsbqihi: R:%1 -> %0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5733 + pshs\t%1\t;movmsbqihi: R:%1 -> R:%0\;puls\t%0\;leas\t1,s"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5734 + [(set_attr "length" "2,1,4,,,6")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5735 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5736 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5737 +(define_insn "*movqi_boolean"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5738 + [(set (reg:QI HARD_Z_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5739 + (match_operand:QI 0 "general_operand" "q,O,i,m"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5740 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5741 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5742 + tst%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5743 + andcc\t#~4
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5744 + orcc\t#4
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5745 + tst\t%0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5746 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5747 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5748 +(define_insn "movqi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5749 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,m,q,m,q,z")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5750 + (match_operand:QI 1 "general_operand" " q,O,O,mi,q,z,q"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5751 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5752 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5753 + tfr\t%1,%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5754 + clr%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5755 + clr\t%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5756 + ld%0\t%1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5757 + st%1\t%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5758 + tfr\tcc,%0\;and%0\t#4
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5759 + tst%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5760 + [(set_attr "length" "2,1,3,,,4,1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5761 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5762 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5763 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5764 +;;- Swap registers
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5765 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5766 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5767 +; Note: 8-bit swap is never needed so it is not defined.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5768 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5769 +(define_insn "swaphi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5770 + [(set (match_operand:HI 0 "register_operand" "+r")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5771 + (match_operand:HI 1 "register_operand" "+r"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5772 + (set (match_dup 1) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5773 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5774 + "exg\t%1,%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5775 + [(set_attr "length" "2")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5776 + (set (attr "cycles") (const_int EXG_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5777 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5778 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5779 +(define_insn "bswaphi2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5780 + [(set (match_operand:HI 0 "register_operand" "=d")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5781 + (bswap:HI (match_operand:HI 1 "register_operand" "0")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5782 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5783 + "exg\ta,b"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5784 + [(set_attr "length" "2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5785 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5786 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5787 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5788 +;;- Extension and truncation insns.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5789 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5790 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5791 +(define_insn "extendqihi2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5792 + [(set (match_operand:HI 0 "register_operand" "=d")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5793 + (sign_extend:HI (match_operand:QI 1 "general_operand" "B")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5794 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5795 + "sex\t\t;extendqihi2: R:%1 -> R:%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5796 + [(set_attr "length" "1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5797 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5798 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5799 +(define_insn "zero_extendqihi2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5800 + [(set (match_operand:HI 0 "register_operand" "=d")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5801 + (zero_extend:HI (match_operand:QI 1 "general_operand" "B")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5802 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5803 + "clra\t\t;zero_extendqihi: R:%1 -> R:%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5804 + [(set_attr "length" "1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5805 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5806 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5807 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5808 +;;- All kinds of add instructions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5809 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5810 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5811 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5812 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5813 +;; gcc's automatic version of addsi3 doesn't know about adcb,adca
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5814 +;; so it is MUCH less efficient. Define this one ourselves.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5815 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5816 +;; TODO - can't always get 'd' for the clobber... allow other registers
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5817 +;; as well and use exg d,R ... exg R,d around the code sequence to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5818 +;; use others, at a price. Also consider libcall for this when
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5819 +;; optimizing for size.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5820 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5821 +(define_insn "addsi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5822 + [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5823 + (plus:SI (match_operand:SI 1 "general_operand" "%o")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5824 + (match_operand:SI 2 "general_operand" " oi")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5825 + (clobber (match_scratch:HI 3 "=d"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5826 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5827 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5828 + m6809_output_addsi3 (PLUS, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5829 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5830 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5831 + [(set_attr "length" "21")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5832 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5833 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5834 +; Increment of a 16-bit MEM by 1 can be done without a register.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5835 +(define_insn "*addhi_mem_1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5836 + [(set (match_operand:HI 0 "memory_operand" "=m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5837 + (plus:HI (match_dup 0) (const_int 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5838 + "GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5839 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5840 + rtx xoperands[2];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5841 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5842 + xoperands[0] = operands[0];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5843 + xoperands[1] = adjust_address (operands[0], QImode, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5844 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5845 + output_asm_insn ("inc\t%1", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5846 + output_asm_insn ("bne\t__IL%=", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5847 + output_asm_insn ("inc\t%0\;__IL%=:", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5848 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5849 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5850 + [(set_attr "length" "7")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5851 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5852 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5853 +; Decrement of a 16-bit MEM by 1 can be done without a register.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5854 +(define_insn "*addhi_mem_minus1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5855 + [(set (match_operand:HI 0 "memory_operand" "=m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5856 + (plus:HI (match_dup 0) (const_int -1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5857 + "GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5858 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5859 + rtx xoperands[2];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5860 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5861 + xoperands[0] = operands[0];
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5862 + xoperands[1] = adjust_address (operands[0], QImode, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5863 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5864 + output_asm_insn ("tst\t%1", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5865 + output_asm_insn ("bne\t__IL%=", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5866 + output_asm_insn ("dec\t%0", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5867 + output_asm_insn ("__IL%=:", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5868 + output_asm_insn ("dec\t%1", xoperands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5869 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5870 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5871 + [(set_attr "length" "7")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5872 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5873 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5874 +; Allow the addition of an 8-bit quantity to a 16-bit quantity
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5875 +; using the LEAX B,Y addressing mode, where X and Y are both
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5876 +; index registers. This will only get generated via the peephole
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5877 +; which removes a sign extension.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5878 +(define_insn "*addhi_b"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5879 + [(set (match_operand:HI 0 "index_register_operand" "=a")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5880 + (plus:HI(match_operand:HI 1 "index_register_operand" "%a")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5881 + (match_operand:QI 2 "register_operand" "q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5882 + ))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5883 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5884 + "lea%0\t%2,%1\t;addhi_b: R:%0 = R:%2 + R:%1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5885 + [(set_attr "length" "*")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5886 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5887 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5888 +; Splitter for addhi pattern #5 below
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5889 +(define_split
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5890 + [(set (match_operand:HI 0 "index_register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5891 + (plus:HI (match_dup 0) (match_operand:HI 1 "memory_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5892 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5893 + [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5894 + (parallel [(set (match_dup 0) (reg:HI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5895 + (set (reg:HI HARD_D_REGNUM) (match_dup 0))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5896 + (set (reg:HI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5897 + (plus:HI (reg:HI HARD_D_REGNUM) (match_dup 1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5898 + (parallel [(set (match_dup 0) (reg:HI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5899 + (set (reg:HI HARD_D_REGNUM) (match_dup 0))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5900 + ]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5901 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5902 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5903 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5904 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5905 +; Splitter for addhi pattern #7 below
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5906 +(define_split
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5907 + [(set (match_operand:HI 0 "index_register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5908 + (plus:HI (match_dup 0) (match_operand:HI 1 "index_register_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5909 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5910 + [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5911 + (parallel [(set (match_dup 1) (reg:HI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5912 + (set (reg:HI HARD_D_REGNUM) (match_dup 1))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5913 + (set (match_dup 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5914 + (plus:HI (reg:HI HARD_D_REGNUM) (match_dup 0)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5915 + (parallel [(set (match_dup 1) (reg:HI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5916 + (set (reg:HI HARD_D_REGNUM) (match_dup 1))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5917 + ]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5918 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5919 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5920 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5921 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5922 +; TODO - this is ugly. During RTL generation, we don't know what registers
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5923 +; are available, so the multiple-insn sequences can only be solved
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5924 +; via 'define_split's during matching. See andhi3 for an example.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5925 +; Keep the constraints with ? modifiers to help reload pick the right
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5926 +; registers.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5927 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5928 +; The forms are:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5929 +; 1. D += D, expand this into a shift instead. (rtx costs should be corrected
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5930 +; to avoid this even happening...)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5931 +; 2. D += U, require U to be pushed to memory. (Lots of patterns do this
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5932 +; now, is this a better way?)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5933 +; 3. Best choice: 'addd'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5934 +; 4. Next best choice: 'lea'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5935 +; 5. Hybrid of 3 and 4
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5936 +; 6. Same as 4, not bad
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5937 +; 7. BAD, no D register at all
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5938 +; 8. 'lea', as good as 4.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5939 +(define_insn "addhi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5940 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d, d, d, a,?a, a,???T,a")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5941 + (plus:HI(match_operand:HI 1 "add_general_operand" "%0, 0, 0, d, 0, a, 0, a")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5942 + (match_operand:HI 2 "general_operand" " 0, !U, mi, a, m, d, T, i")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5943 + ))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5944 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5945 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5946 + lslb\t\t;addhi: R:%0 += R:%2\;rola\t\t;also R:%0 *= 2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5947 + pshs\t%2\t;addhi: R:%0 += R:%2\;add%0\t,s++
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5948 + add%0\t%2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5949 + lea%0\t%1,%2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5950 + #
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5951 + lea%0\t%2,%1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5952 + #
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5953 + lea%0\t%a2,%1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5954 + [(set_attr "length" "2,6,,,7,,7,")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5955 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5956 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5957 +(define_insn "addqi3_carry"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5958 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5959 + (unspec:QI [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5960 + (match_operand:QI 1 "whole_general_operand" "%0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5961 + (match_operand:QI 2 "whole_general_operand" "tmi")] UNSPEC_ADD_CARRY))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5962 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5963 + "adc%0\t%2\t;addqi_carry: R:%0 += %2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5964 + [(set_attr "length" "*")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5965 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5966 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5967 +; TODO: specifying 'A' for the first constraint, to force into the A register
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5968 +; is not working because of the way registers are currently set up. This will
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5969 +; take some work to get right. Thus the second alternative as a backup.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5970 +(define_insn "addqi3_decimal"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5971 + [(set (match_operand:QI 0 "nonimmediate_operand" "=A,?q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5972 + (unspec:QI [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5973 + (match_operand:QI 1 "general_operand" "%0,0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5974 + (match_operand:QI 2 "general_operand" "mi,mi")] UNSPEC_ADD_DECIMAL))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5975 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5976 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5977 + adda\t%2\;daa
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5978 + tfr\t%0,a\;adda\t%2\;daa\;tfr\ta,%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5979 + [(set_attr "length" "5,9")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5980 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5981 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5982 +(define_insn "addqi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5983 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,m,m,q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5984 + (plus:QI (match_operand:QI 1 "whole_general_operand" "%0,0,0,0,0,0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5985 + (match_operand:QI 2 "whole_general_operand" " 0,I,N,I,N,mi")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5986 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5987 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5988 + asl%0\t\t;addqi: R:%0 = R:%0 + R:%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5989 + inc%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5990 + dec%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5991 + inc\t%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5992 + dec\t%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5993 + add%0\t%2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5994 + [(set_attr "length" "1,1,1,3,3,*")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5995 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5996 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5997 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5998 +;;- Subtract instructions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	5999 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6000 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6001 +(define_insn "subsi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6002 + [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6003 + (minus:SI (match_operand:SI 1 "general_operand" " o")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6004 + (match_operand:SI 2 "general_operand" " oi")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6005 + (clobber (match_scratch:HI 3 "=d"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6006 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6007 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6008 + m6809_output_addsi3 (MINUS, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6009 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6010 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6011 + [(set_attr "length" "21")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6012 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6013 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6014 +(define_insn "subhi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6015 + [(set (match_operand:HI 0 "register_operand" "=d, d, a")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6016 + (minus:HI (match_operand:HI 1 "register_operand" "0, 0, 0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6017 + (match_operand:HI 2 "general_operand" "mi, ?U,n")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6018 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6019 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6020 + sub%0\t%2\t;subhi: R:%0 -= %2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6021 + pshs\t%2\t;subhi: R:%0 -= R:%2\;sub%0\t,s++
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6022 + lea%0\t%n2,%1\t;subhi: R:%0 = R:%1 + %n2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6023 + [(set_attr "length" "*,5,3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6024 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6025 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6026 +(define_insn "subqi3_carry"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6027 + [(set (match_operand:QI 0 "register_operand" "=q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6028 + (unspec:QI [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6029 + (match_operand:QI 1 "whole_general_operand" "%0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6030 + (match_operand:QI 2 "whole_general_operand" "tmi")] UNSPEC_SUB_CARRY))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6031 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6032 + "sbc%0\t%2\t;subqi_carry: R:%0 += %2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6033 + [(set_attr "length" "*")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6034 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6035 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6036 +(define_insn "subqi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6037 + [(set (match_operand:QI 0 "register_operand" "=q, q, !q, q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6038 + (minus:QI (match_operand:QI 1 "whole_register_operand" "0, 0, I, 0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6039 + (match_operand:QI 2 "whole_general_operand" "I, mi, 0, t")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6040 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6041 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6042 + dec%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6043 + sub%0\t%2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6044 + dec%0\;neg%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6045 + sub%0\t%2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6046 + [(set_attr "length" "1,3,2,3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6047 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6048 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6049 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6050 +;;- Multiply instructions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6051 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6052 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6053 +; TODO - merge these two instructions, using 'extend_operator' to match
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6054 +; either signed or zero extension. Everything else is the same.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6055 +(define_insn "mulqihi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6056 + [(set (match_operand:HI 0 "register_operand" "=d")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6057 + (mult:HI (sign_extend:HI (match_operand:QI 1 "general_operand" "%q"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6058 + (match_operand:QI 2 "general_operand" "tmK")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6059 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6060 + "lda\t%2\t;mulqihi3\;mul"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6061 + [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6062 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6063 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6064 +(define_insn "umulqihi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6065 + [(set (match_operand:HI 0 "register_operand" "=d")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6066 + (mult:HI (zero_extend:HI (match_operand:QI 1 "general_operand" "%q"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6067 + (match_operand:QI 2 "general_operand" "tmK")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6068 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6069 + "lda\t%2\t;umulqihi3\;mul"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6070 + [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6071 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6072 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6073 +; Expand a 16x16 multiplication into either a libcall or a shift.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6074 +; If the second operand is a small constant, use the above form.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6075 +; Otherwise, do a libcall.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6076 +(define_expand "mulhi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6077 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6078 + (mult:HI (match_operand:HI 1 "general_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6079 + (match_operand:HI 2 "nonmemory_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6080 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6081 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6082 + emit_libcall_insns (HImode, "mulhi3", operands, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6083 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6084 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6085 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6086 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6087 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6088 +;;- Divide instructions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6089 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6090 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6091 +(define_expand "divhi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6092 + [(set (match_operand:HI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6093 + (div:HI (match_operand:HI 1 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6094 + (match_operand:HI 2 "register_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6095 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6096 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6097 + emit_libcall_insns (HImode, "divhi3", operands, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6098 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6099 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6100 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6101 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6102 +(define_expand "divqi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6103 + [(set (match_operand:QI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6104 + (div:QI (match_operand:QI 1 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6105 + (match_operand:QI 2 "register_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6106 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6107 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6108 + emit_libcall_insns (QImode, "divqi3", operands, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6109 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6110 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6111 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6112 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6113 +(define_expand "udivhi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6114 + [(set (match_operand:HI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6115 + (udiv:HI (match_operand:HI 1 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6116 + (match_operand:HI 2 "register_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6117 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6118 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6119 + emit_libcall_insns (HImode, "udivhi3", operands, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6120 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6121 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6122 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6123 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6124 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6125 +;;- mod
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6126 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6127 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6128 +(define_expand "modhi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6129 + [(set (match_operand:HI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6130 + (mod:HI (match_operand:HI 1 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6131 + (match_operand:HI 2 "register_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6132 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6133 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6134 + emit_libcall_insns (HImode, "modhi3", operands, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6135 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6136 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6137 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6138 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6139 +(define_expand "modqi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6140 + [(set (match_operand:QI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6141 + (mod:QI (match_operand:QI 1 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6142 + (match_operand:QI 2 "register_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6143 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6144 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6145 + emit_libcall_insns (QImode, "modqi3", operands, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6146 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6147 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6148 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6149 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6150 +(define_expand "umodhi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6151 + [(set (match_operand:HI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6152 + (umod:HI (match_operand:HI 1 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6153 + (match_operand:HI 2 "register_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6154 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6155 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6156 + emit_libcall_insns (HImode, "umodhi3", operands, 2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6157 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6158 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6159 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6160 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6161 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6162 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6163 +;;- and, or, xor common patterns
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6164 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6165 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6166 +; Split a bitwise HImode into two QImode instructions, with one of
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6167 +; the sources in a pushable register. The register is pushed onto
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6168 +; the stack and memory pop operands (,s+) are used in the QI forms.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6169 +(define_split
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6170 + [(set (match_operand:HI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6171 + (match_operator:HI 3 "logical_bit_operator"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6172 + [(match_operand:HI 1 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6173 + (match_operand:HI 2 "register_operand" "")]))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6174 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6175 + [(set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 2))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6176 + (set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6177 + [(reg:QI HARD_A_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6178 + (mem:QI (post_inc:QI (reg:HI HARD_S_REGNUM)))]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6179 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6180 + [(reg:QI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6181 + (mem:QI (post_inc:QI (reg:HI HARD_S_REGNUM)))]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6182 + (use (reg:QI HARD_A_REGNUM))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6183 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6184 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6185 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6186 +; Split a bitwise HImode into two QImode instructions, with one
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6187 +; of the sources being a (MEM (MEM (...)); i.e. an indirect memory
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6188 +; reference. This requires dereferencing the pointer into a
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6189 +; temporary register (X), which must be saved/restored around the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6190 +; compute instructions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6191 +(define_split
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6192 + [(set (match_operand:HI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6193 + (match_operator:HI 3 "logical_bit_operator"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6194 + [(match_operand:HI 1 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6195 + (mem:HI (match_operand:HI 2 "memory_operand" ""))]))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6196 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6197 + [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6198 + (set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 4))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6199 + (set (match_dup 4) (match_dup 2))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6200 + (set (match_dup 4) (mem:HI (match_dup 4)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6201 + (set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6202 + [(reg:QI HARD_A_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6203 + (mem:QI (post_inc:QI (match_dup 4)))]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6204 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6205 + [(reg:QI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6206 + (mem:QI (post_inc:QI (match_dup 4)))]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6207 + (use (reg:QI HARD_A_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6208 + (set (match_dup 4) (mem:HI (post_inc:HI (reg:HI HARD_S_REGNUM))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6209 + ]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6210 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6211 + /* Use X for a temporary index register */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6212 + operands[4] = gen_rtx_REG (HImode, HARD_X_REGNUM);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6213 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6214 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6215 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6216 +; Split a bitwise HImode into two QImode instructions. This is
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6217 +; the common case. This handles splitting when neither of the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6218 +; above two cases applies.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6219 +(define_split
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6220 + [(set (match_operand:HI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6221 + (match_operator:HI 3 "logical_bit_operator"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6222 + [(match_operand:HI 1 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6223 + (match_operand:HI 2 "general_operand" "")]))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6224 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6225 + [(set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6226 + [(reg:QI HARD_A_REGNUM) (match_dup 4)]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6227 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6228 + [(reg:QI HARD_D_REGNUM) (match_dup 5)]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6229 + (use (reg:QI HARD_A_REGNUM))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6230 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6231 + if (GET_CODE (operands[2]) == CONST_INT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6232 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6233 + operands[4] = gen_rtx_const_high (operands[2]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6234 + operands[5] = gen_rtx_const_low (operands[2]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6235 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6236 + else if ((GET_CODE (operands[2]) == MEM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6237 + && (GET_CODE (XEXP (operands[2], 0)) == MEM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6238 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6239 + FAIL;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6240 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6241 + else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6242 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6243 + operands[4] = gen_highpart (QImode, operands[2]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6244 + operands[5] = gen_lowpart (QImode, operands[2]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6245 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6246 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6247 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6248 +; Below are the specific cases for each of the operators.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6249 +; The QImode versions are the simplest and can be implemented
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6250 +; directly on the hardware. The HImode cases are all output
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6251 +; using one of the above splitting techniques.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6252 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6253 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6254 +;;- and
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6255 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6256 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6257 +(define_insn "andhi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6258 + [(set (match_operand:HI 0 "register_operand" "=d")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6259 + (and:HI (match_operand:HI 1 "register_operand" "%0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6260 + (match_operand:HI 2 "general_operand" "mnU")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6261 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6262 + "#")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6263 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6264 +;; it is not clear that this is correct
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6265 +(define_insn "*andqi_2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6266 + [(set
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6267 + (match_operand:QI 0 "register_operand" "=q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6268 + (and:QI (match_operand:QI 1 "register_operand" "q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6269 + (match_operand 2 "const_int_operand" "i")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6270 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6271 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6272 + if (GET_CODE (operands[2]) == CONST_INT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6273 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6274 + operands[3] = GEN_INT(INTVAL(operands[2]) & 0xff);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6275 + return "and%0 %3";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6276 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6277 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6278 + return "and%0 %2";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6279 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6280 + [(set_attr "length" "2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6281 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6282 +(define_insn "andqi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6283 + [(set (match_operand:QI 0 "register_operand" "=q,q,q,qc")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6284 + (and:QI (match_operand:QI 1 "whole_register_operand" "%0,0,0,0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6285 + (match_operand:QI 2 "whole_general_operand" " O,N,m,i")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6286 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6287 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6288 + clr%0\t;andqi(ZERO)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6289 + \t;andqi(-1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6290 + and%0\t%2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6291 + and%0\t%2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6292 + [(set_attr "length" "1,0,3,2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6293 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6294 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6295 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6296 +;;- or
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6297 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6298 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6299 +(define_insn "iorhi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6300 + [(set (match_operand:HI 0 "register_operand" "=d")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6301 + (ior:HI (match_operand:HI 1 "register_operand" "%0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6302 + (match_operand:HI 2 "general_operand" "mnU")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6303 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6304 + "#")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6305 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6306 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6307 +(define_insn "iorqi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6308 + [(set (match_operand:QI 0 "register_operand" "=q,q, qc")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6309 + (ior:QI (match_operand:QI 1 "whole_register_operand" "%0,0, 0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6310 + (match_operand:QI 2 "whole_general_operand" " O,m,i")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6311 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6312 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6313 + \t;iorqi(ZERO)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6314 + or%0\t%2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6315 + or%0\t%2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6316 + [(set_attr "length" "0,3,2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6317 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6318 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6319 +;;- xor
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6320 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6321 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6322 +(define_insn "xorhi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6323 + [(set (match_operand:HI 0 "register_operand" "=d")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6324 + (xor:HI (match_operand:HI 1 "register_operand" "%0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6325 + (match_operand:HI 2 "general_operand" "mnU")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6326 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6327 + "#")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6328 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6329 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6330 +(define_insn "xorqi3"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6331 + [(set (match_operand:QI 0 "register_operand" "=q,q,q,q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6332 + (xor:QI (match_operand:QI 1 "whole_register_operand" "%0,0,0,0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6333 + (match_operand:QI 2 "whole_general_operand" " O,N,m,i")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6334 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6335 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6336 + \t;xorqi(ZERO)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6337 + com%0\t;xorqi(-1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6338 + eor%0\t%2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6339 + eor%0\t%2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6340 + [(set_attr "length" "0,1,3,2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6341 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6342 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6343 +;;- Two's Complements
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6344 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6345 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6346 +(define_insn "neghi2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6347 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d,!a")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6348 + (neg:HI (match_operand:HI 1 "general_operand" "0, 0")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6349 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6350 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6351 + nega\;negb\;sbca\t#0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6352 + exg\td,%0\;nega\;negb\;sbca\t#0\;exg\td,%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6353 + [(set_attr "length" "5,9")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6354 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6355 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6356 +(define_insn "negqi2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6357 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6358 + (neg:QI (match_operand:QI 1 "nonimmediate_operand" "0,0")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6359 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6360 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6361 + neg%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6362 + neg\t%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6363 + [(set_attr "length" "1,3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6364 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6365 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6366 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6367 +;;- One's Complements
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6368 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6369 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6370 +(define_insn "one_cmplhi2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6371 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d,?tm,???a")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6372 + (not:HI (match_operand:HI 1 "general_operand" "0, 0, 0")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6373 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6374 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6375 + coma\;comb
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6376 + com\t%0\;com\t%L0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6377 + exg\td,%0\;coma\;comb\;exg\td,%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6378 + [(set_attr "length" "2,6,6")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6379 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6380 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6381 +(define_insn "one_cmplqi2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6382 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6383 + (not:QI (match_operand:QI 1 "nonimmediate_operand" "0,0")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6384 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6385 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6386 + com%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6387 + com\t%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6388 + [(set_attr "length" "1,3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6389 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6390 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6391 +;;- Shifts/rotates
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6392 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6393 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6394 +(define_code_iterator bit_code [ashift ashiftrt lshiftrt])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6395 +(define_code_attr bit_code_name [(ashift "ashl") (ashiftrt "ashr") (lshiftrt "lshr")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6396 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6397 +(define_mode_iterator bit_mode [QI HI])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6398 +(define_mode_attr bit_mode_name [(QI "qi3") (HI "hi3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6399 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6400 +;; Emit RTL for any shift (handles all 3 opcodes and 2 mode sizes)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6401 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6402 +(define_expand "<bit_code:bit_code_name><bit_mode:bit_mode_name>"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6403 + [(set (match_operand:bit_mode 0 "nonimmediate_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6404 + (bit_code:bit_mode (match_operand:bit_mode 1 "general_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6405 + (match_operand:bit_mode 2 "nonmemory_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6406 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6407 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6408 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6409 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6410 +; Individual instructions implemented in the CPU.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6411 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6412 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6413 +(define_insn "*ashift1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6414 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6415 + (ashift:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6416 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6417 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6418 + asl\t%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6419 + asl%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6420 + [(set_attr "length" "3,1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6421 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6422 +(define_insn "*lshiftrt1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6423 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6424 + (lshiftrt:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6425 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6426 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6427 + lsr\t%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6428 + lsr%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6429 + [(set_attr "length" "3,1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6430 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6431 +(define_insn "*ashiftrt1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6432 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6433 + (ashiftrt:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6434 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6435 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6436 + asr\t%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6437 + asr%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6438 + [(set_attr "length" "3,1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6439 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6440 +(define_insn "*rotate1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6441 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6442 + (rotate:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6443 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6444 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6445 + rol\t%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6446 + rol%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6447 + [(set_attr "length" "3,1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6448 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6449 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6450 +(define_insn "*rotatert1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6451 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6452 + (rotatert:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6453 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6454 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6455 + ror\t%0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6456 + ror%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6457 + [(set_attr "length" "3,1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6458 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6459 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6460 +; A shift by 8 for D reg can be optimized by just moving
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6461 +; between the A/B halves, and then zero/sign extending or
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6462 +; filling in zeroes.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6463 +; Because GCC does not understand that 'A' and 'D' refer to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6464 +; the same storage location, we must use 'USE' throughout
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6465 +; to prevent deletion of 'unnecessary' instructions.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6466 +; Similar optimization for MEM would require a scratch register
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6467 +; so is not done here.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6468 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6469 +(define_split
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6470 + [(set (reg:HI HARD_D_REGNUM) (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 8)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6471 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6472 + [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6473 + (use (reg:HI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6474 + (set (reg:QI HARD_A_REGNUM) (reg:QI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6475 + (use (reg:QI HARD_A_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6476 + (set (reg:QI HARD_D_REGNUM) (const_int 0))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6477 + ]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6478 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6479 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6480 +(define_split
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6481 + [(set (reg:HI HARD_D_REGNUM) (lshiftrt:HI (reg:HI HARD_D_REGNUM) (const_int 8)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6482 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6483 + [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6484 + (use (reg:HI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6485 + (set (reg:QI HARD_D_REGNUM) (reg:QI HARD_A_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6486 + (use (reg:QI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6487 + (set (reg:HI HARD_D_REGNUM) (zero_extend:HI (reg:QI HARD_D_REGNUM)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6488 + ]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6489 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6490 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6491 +(define_split
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6492 + [(set (reg:HI HARD_D_REGNUM) (ashiftrt:HI (reg:HI HARD_D_REGNUM) (const_int 8)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6493 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6494 + [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6495 + (use (reg:HI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6496 + (set (reg:QI HARD_D_REGNUM) (reg:QI HARD_A_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6497 + (use (reg:QI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6498 + (set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6499 + ]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6500 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6501 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6502 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6503 +; On the WPC hardware, there is a shift register that can be used
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6504 +; to compute (1<<n) efficiently in two instructions. Note that this
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6505 +; form only works when using -mint8 though, because C will promote
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6506 +; to 'int' when doing this operation. TODO : we need a 16-bit form too.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6507 +(define_insn "ashlqi3_wpc"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6508 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6509 + (ashift:QI (match_operand:QI 1 "immediate_operand" "I")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6510 + (match_operand:QI 2 "general_operand" "q")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6511 + "TARGET_WPC"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6512 + "st%2\t0x3FF7\;ld%0\t0x3FF7"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6513 + [(set_attr "length" "6")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6514 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6515 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6516 +; Internal instructions for shifting by a constant.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6517 +; Two forms are provided, one for QImode, one for HImode.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6518 +; These are always split into the above instructions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6519 +; (except for QImode forms that directly match one of the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6520 +; above instructions, in which the condition will not
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6521 +; allow the splitter to match).
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6522 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6523 +(define_insn_and_split "<bit_code:bit_code_name>hi3_const"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6524 + [(set (match_operand:HI 0 "nonimmediate_operand" "=dm")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6525 + (bit_code:HI (match_operand:HI 1 "general_operand" "0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6526 + (match_operand:HI 2 "immediate_operand" "n")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6527 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6528 + "#"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6529 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6530 + [(const_int 0)]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6531 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6532 + m6809_split_shift (<bit_code:CODE>, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6533 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6534 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6535 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6536 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6537 +(define_insn_and_split "<bit_code:bit_code_name>qi3_const"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6538 + [(set (match_operand:QI 0 "nonimmediate_operand" "=qm")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6539 + (bit_code:QI (match_operand:QI 1 "general_operand" "0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6540 + (match_operand:QI 2 "immediate_operand" "n")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6541 + "INTVAL (operands[2]) > 1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6542 + "#"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6543 + "&& reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6544 + [(const_int 0)]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6545 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6546 + m6809_split_shift (<bit_code:CODE>, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6547 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6548 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6549 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6550 +; Internal instructions for shifting by a nonconstant.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6551 +; These expand into complex assembly.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6552 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6553 +(define_insn "<bit_code:bit_code_name>hi3_reg"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6554 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6555 + (bit_code:HI (match_operand:HI 1 "general_operand" "0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6556 + (match_operand:HI 2 "nonimmediate_operand" "v")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6557 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6558 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6559 + m6809_output_shift_insn (<bit_code:CODE>, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6560 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6561 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6562 + [(set_attr "length" "20")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6563 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6564 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6565 +(define_insn "<bit_code:bit_code_name>qi3_reg"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6566 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6567 + (bit_code:QI (match_operand:QI 1 "general_operand" "0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6568 + (match_operand:QI 2 "nonimmediate_operand" "v")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6569 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6570 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6571 + m6809_output_shift_insn (<bit_code:CODE>, operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6572 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6573 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6574 + [(set_attr "length" "16")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6575 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6576 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6577 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6578 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6579 +;;- Jumps and transfers
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6580 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6581 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6582 +;;; The casesi pattern is normally not defined; see 'tablejump' instead.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6583 +(define_expand "casesi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6584 + [(match_operand:HI 0 "register_operand" "") ; index to jump on
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6585 + (match_operand:HI 1 "immediate_operand" "") ; lower bound
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6586 + (match_operand:HI 2 "immediate_operand" "") ; total range
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6587 + (match_operand 3 "" "") ; table label
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6588 + (match_operand 4 "" "")] ; out of range label
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6589 + "TARGET_BYTE_INT && TARGET_CASESI"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6590 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6591 + m6809_do_casesi (operands[0], operands[1], operands[2],
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6592 + operands[3], operands[4]);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6593 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6594 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6595 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6596 +(define_insn "tablejump_short_offset"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6597 + [(set (pc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6598 + (mem:HI (plus:HI (match_operand:HI 1 "register_operand" "U")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6599 + (zero_extend:HI (match_operand:QI 0 "register_operand" "q")))))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6600 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6601 + "jmp\t[b,x]\t;tablejump_short_offset"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6602 + [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6603 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6604 +(define_insn "tablejump_long_offset"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6605 + [(set (pc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6606 + (mem:HI (plus:HI (match_operand:HI 1 "register_operand" "U")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6607 + (match_operand:HI 0 "register_operand" "d"))))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6608 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6609 + "jmp\t[d,x]\t;tablejump_long_offset"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6610 + [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6611 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6612 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6613 + ;; A tablejump operation gives the address in operand 0, with the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6614 + ;; CODE_LABEL for the table in operand 1. The 'define_expand'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6615 + ;; shows the arguments as GCC presents them. For a register
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6616 + ;; operand, the assembly code is straightforward. For a MEM,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6617 + ;; assumed to be a SYMBOL_REF, two forms are given, one normal
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6618 + ;; and one for PIC mode.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6619 + (define_expand "tablejump"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6620 + [(parallel [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6621 + (set (pc) (match_operand:HI 0 "" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6622 + (use (label_ref (match_operand 1 "" "")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6623 + (clobber (match_scratch:HI 2 ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6624 + ])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6625 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6626 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6627 + })
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6628 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6629 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6630 +(define_insn "*tablejump_reg"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6631 + [(parallel [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6632 + (set (pc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6633 + (match_operand:HI 0 "register_operand" "a"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6634 + (use (label_ref (match_operand 1 "" "")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6635 + (clobber (match_scratch:HI 2 ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6636 + ])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6637 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6638 + "jmp\t,%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6639 + [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6640 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6641 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6642 +(define_insn "*tablejump_symbol"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6643 + [(parallel [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6644 + (set (pc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6645 + (mem:HI
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6646 + (plus:HI (match_operand:HI 0 "register_operand" "a")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6647 + (label_ref (match_operand 1 "" "")))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6648 + (use (label_ref (match_dup 1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6649 + (clobber (match_scratch:HI 2 ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6650 + ])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6651 + "!flag_pic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6652 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6653 + output_asm_insn ("jmp\t[%a1,%0]", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6654 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6655 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6656 + [(set_attr "length" "4")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6657 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6658 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6659 +(define_insn "*tablejump_symbol_pic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6660 + [(parallel [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6661 + (set (pc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6662 + (mem:HI
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6663 + (plus:HI (match_operand:HI 0 "register_operand" "d")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6664 + (label_ref (match_operand 1 "" "")))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6665 + (use (label_ref (match_dup 1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6666 + (clobber (match_scratch:HI 2 "=&a"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6667 + ])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6668 + "flag_pic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6669 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6670 + output_asm_insn ("lea%2\t%a1,pcr", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6671 + output_asm_insn ("ld%0\t%0,%2", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6672 + output_asm_insn ("jmp\t%0,%2", operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6673 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6674 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6675 + [(set_attr "length" "8")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6676 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6677 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6678 +(define_insn "indirect_jump"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6679 + [(set (pc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6680 + (match_operand:HI 0 "register_operand" "a"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6681 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6682 + "jmp\t,%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6683 + [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6684 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6685 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6686 +(define_insn "jump"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6687 + [(set (pc) (label_ref (match_operand 0 "" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6688 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6689 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6690 + return output_branch_insn ( LABEL_REF, operands, get_attr_length (insn));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6691 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6692 + [(set (attr "type") (const_string "branch"))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6693 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6694 +; Output assembly for a condition branch instruction.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6695 +(define_insn "*cond_branch"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6696 + [(set (pc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6697 + (if_then_else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6698 + (match_operator 1 "comparison_operator" [(cc0) (const_int 0)])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6699 + (label_ref (match_operand 0 "" "")) (pc)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6700 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6701 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6702 + return output_branch_insn ( GET_CODE(operands[1]),
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6703 + operands, get_attr_length (insn));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6704 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6705 + [(set (attr "type") (const_string "cbranch"))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6706 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6707 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6708 +; Similar to above, but for a condition branch instruction that
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6709 +; had its operands reversed at some point.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6710 +(define_insn "*cond_branch_reverse"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6711 + [(set (pc)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6712 + (if_then_else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6713 + (match_operator 1 "comparison_operator" [(cc0) (const_int 0)])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6714 + (pc) (label_ref (match_operand 0 "" ""))))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6715 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6716 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6717 + return output_branch_insn ( reverse_condition (GET_CODE(operands[1])),
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6718 + operands, get_attr_length (insn));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6719 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6720 + [(set (attr "type") (const_string "cbranch"))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6721 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6722 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6723 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6724 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6725 +;;- Calls
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6726 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6727 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6728 +;; Generate a call instruction for a function that does not
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6729 +;; return a value. The expander is used during RTL generation.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6730 +;; The instructions below are used during matching; only one
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6731 +;; of them will be used, depending on the type of function
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6732 +;; being called. The different conditions are:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6733 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6734 +;; 1) far_functionp - is this a far function? Those need
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6735 +;; to be output as indirect calls through a far-function
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6736 +;; handler.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6737 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6738 +;; 2) noreturn_functionp - if the function does not return,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6739 +;; we can use a 'jmp' instead of a 'jsr' to call it.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6740 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6741 +;; 3) is PIC mode enabled? If so, we'll always use
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6742 +;; relative calls (lbsr or lbra).
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6743 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6744 +;; Note: not all combinations are fully supported, especially
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6745 +;; relating to PIC.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6746 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6747 +;; The 'bsr' instruction is never generated.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6748 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6749 +(define_expand "call"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6750 + [(call (match_operand:HI 0 "memory_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6751 + (match_operand:HI 1 "general_operand" ""))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6752 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6753 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6754 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6755 +(define_insn "*call_nopic_far"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6756 + [(call (match_operand:HI 0 "memory_operand" "m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6757 + (match_operand:HI 1 "general_operand" "g"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6758 + "far_functionp (operands[0])"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6759 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6760 + output_far_call_insn (operands, 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6761 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6762 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6763 + [(set_attr "length" "6")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6764 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6765 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6766 +; PIC forms come first, and should only match
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6767 +; (MEM (SYMBOL_REF)). Other MEM forms are treated as usual.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6768 +(define_insn "*call_pic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6769 + [(call (mem:HI (match_operand:HI 0 "symbolic_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6770 + (match_operand:HI 1 "general_operand" "g"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6771 + "flag_pic && !noreturn_functionp (operands[0])"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6772 + "lbsr\t%C0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6773 + [(set_attr "length" "4")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6774 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6775 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6776 +(define_insn "*call_nopic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6777 + [(call (match_operand:HI 0 "memory_operand" "m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6778 + (match_operand:HI 1 "general_operand" "g"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6779 + "!noreturn_functionp (operands[0])"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6780 + "jsr\t%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6781 + [(set_attr "length" "3")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6782 + (set (attr "cycles") (const_int JSR_EXTENDED_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6783 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6784 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6785 +(define_insn "*call_noreturn_pic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6786 + [(call (mem:HI (match_operand:HI 0 "symbolic_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6787 + (match_operand:HI 1 "general_operand" "g"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6788 + "flag_pic && noreturn_functionp (operands[0])"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6789 + "lbra\t%C0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6790 + [(set_attr "length" "4")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6791 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6792 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6793 +(define_insn "*call_noreturn_nopic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6794 + [(call (match_operand:HI 0 "memory_operand" "m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6795 + (match_operand:HI 1 "general_operand" "g"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6796 + "noreturn_functionp (operands[0])"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6797 + "jmp\t%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6798 + [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6799 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6800 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6801 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6802 +;; Same as above, but for functions that do return a value.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6803 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6804 +(define_expand "call_value"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6805 + [(set (match_operand 0 "" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6806 + (call (match_operand:HI 1 "memory_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6807 + (match_operand:HI 2 "general_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6808 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6809 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6810 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6811 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6812 +(define_insn "*call_value_far"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6813 + [(set (match_operand 0 "" "=gz")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6814 + (call (match_operand:HI 1 "memory_operand" "m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6815 + (match_operand:HI 2 "general_operand" "g")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6816 + "far_functionp (operands[1])"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6817 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6818 + output_far_call_insn (operands, 1);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6819 + return "";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6820 +}
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6821 + [(set_attr "length" "6")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6822 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6823 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6824 +(define_insn "*call_value_pic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6825 + [(set (match_operand 0 "" "=gz")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6826 + (call (mem:HI (match_operand:HI 1 "symbolic_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6827 + (match_operand:HI 2 "general_operand" "g")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6828 + "flag_pic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6829 + "lbsr\t%C1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6830 + [(set_attr "length" "4")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6831 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6832 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6833 +(define_insn "*call_value_nopic"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6834 + [(set (match_operand 0 "" "=gz")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6835 + (call (match_operand:HI 1 "memory_operand" "m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6836 + (match_operand:HI 2 "general_operand" "g")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6837 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6838 + "jsr\t%1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6839 + [(set_attr "length" "3")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6840 + (set (attr "cycles") (const_int JSR_EXTENDED_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6841 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6842 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6843 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6844 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6845 +;; How to generate an untyped call.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6846 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6847 +(define_expand "untyped_call"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6848 + [(parallel [(call (match_operand 0 "" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6849 + (const_int 0))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6850 + (match_operand 1 "" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6851 + (match_operand 2 "" "")])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6852 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6853 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6854 + int i;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6855 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6856 + emit_call_insn (GEN_CALL (operands[0], const0_rtx, NULL, const0_rtx));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6857 + for (i=0; i < XVECLEN (operands[2], 0); i++)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6858 + {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6859 + rtx set = XVECEXP (operands[2], 0, i);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6860 + emit_move_insn (SET_DEST (set), SET_SRC (set));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6861 + }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6862 + emit_insn (gen_blockage ());
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6863 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6864 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6865 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6866 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6867 +(define_expand "sibcall"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6868 + [(parallel
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6869 + [(call (match_operand:HI 0 "memory_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6870 + (match_operand:HI 1 "immediate_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6871 + (use (reg:HI HARD_PC_REGNUM))])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6872 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6873 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6874 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6875 +(define_insn "*sibcall_1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6876 + [(parallel
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6877 + [(call (match_operand:HI 0 "memory_operand" "m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6878 + (match_operand:HI 1 "immediate_operand" "i"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6879 + (use (reg:HI HARD_PC_REGNUM))])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6880 + "SIBLING_CALL_P(insn)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6881 + "jmp\t%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6882 + [(set_attr "length" "4")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6883 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6884 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6885 +(define_expand "sibcall_value"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6886 + [(parallel
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6887 + [(set (match_operand 0 "" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6888 + (call (match_operand:HI 1 "memory_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6889 + (match_operand:HI 2 "immediate_operand" "")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6890 + (use (reg:HI HARD_PC_REGNUM))])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6891 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6892 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6893 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6894 +(define_insn "*sibcall_value_1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6895 + [(parallel
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6896 + [(set (match_operand 0 "" "=gz")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6897 + (call (match_operand:HI 1 "memory_operand" "m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6898 + (match_operand:HI 2 "immediate_operand" "i")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6899 + (use (reg:HI HARD_PC_REGNUM))])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6900 + "SIBLING_CALL_P(insn)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6901 + "jmp\t%1"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6902 + [(set_attr "length" "4")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6903 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6904 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6905 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6906 +;;- Function Entry and Exit
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6907 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6908 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6909 +;; On entry to a function, the stack frame looks as follows:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6910 +;; - return address (pushed by the caller)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6911 +;; - saved registers
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6912 +;; - local variable storage
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6913 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6914 +;; If the function does not modify the stack after that, then
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6915 +;; any of these can be accessed directly as an offset from
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6916 +;; STACK_POINTER_REGNUM. Otherwise, a frame pointer is required.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6917 +;; In that case, the prologue must also initialize HARD_FRAME_POINTER_REGNUM
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6918 +;; and all references to the stack frame will use that as a base instead.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6919 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6920 +(define_expand "prologue"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6921 + [(const_int 0)]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6922 + "prologue_epilogue_required ()"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6923 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6924 + emit_prologue_insns ();
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6925 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6926 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6927 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6928 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6929 +;; The function epilogue does exactly the reverse of the prologue,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6930 +;; deallocating local variable space, restoring saved registers,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6931 +;; and returning.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6932 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6933 +;; For the 6809, the return may be 'rti' if the function was
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6934 +;; declared as an interrupt function, but is normally 'rts'.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6935 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6936 +;; Also, as an optimization, the register restore and the 'rts'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6937 +;; can be combined into a single instruction, by adding 'PC' to the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6938 +;; list of registers to be restored. This is only done if there are
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6939 +;; any saved registers, as 'rts' is more efficient by itself.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6940 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6941 +(define_expand "epilogue"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6942 + [(const_int 0)]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6943 + "prologue_epilogue_required ()"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6944 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6945 + emit_epilogue_insns (false);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6946 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6947 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6948 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6949 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6950 +(define_expand "sibcall_epilogue"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6951 + [(const_int 0)]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6952 + "prologue_epilogue_required ()"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6953 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6954 + emit_epilogue_insns (true);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6955 + DONE;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6956 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6957 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6958 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6959 +;; The RTS instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6960 +(define_insn "return_rts"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6961 + [(return)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6962 + (use (reg:HI HARD_PC_REGNUM))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6963 + "!m6809_current_function_has_type_attr_p (\"interrupt\")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6964 + && m6809_get_live_regs () == 0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6965 + "rts"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6966 + [(set_attr "length" "1")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6967 + (set (attr "cycles") (const_int RTS_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6968 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6969 +(define_insn "return_puls_pc"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6970 + [(return)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6971 + (use (reg:HI HARD_PC_REGNUM))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6972 + "!m6809_current_function_has_type_attr_p (\"interrupt\")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6973 + && m6809_get_live_regs () != 0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6974 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6975 + [(set_attr "length" "1")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6976 + (set (attr "cycles") (const_int RTS_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6977 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6978 +;; The RTI instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6979 +(define_insn "return_rti"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6980 + [(return)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6981 + (use (reg:HI HARD_PC_REGNUM))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6982 + "m6809_current_function_has_type_attr_p (\"interrupt\")"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6983 + "rti"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6984 + [(set_attr "length" "1")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6985 + (set (attr "cycles") (const_int RTI_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6986 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6987 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6988 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6989 +;;- Unspecified instructions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6990 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6991 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6992 +;; An instruction that has the effect of an unspec_volatile, but
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6993 +;; which doesn't require emitting any assembly code.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6994 +(define_insn "blockage"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6995 + [(unspec_volatile [(const_int 0)] UNSPEC_BLOCKAGE)]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6996 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6997 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6998 + [(set_attr "length" "0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	6999 + (set (attr "cycles") (const_int 0))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7000 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7001 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7002 +;; Say how to push multiple registers onto the stack, using
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7003 +;; the 6809 'pshs' instruction. The operand is a regset
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7004 +;; specifying which registers to push.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7005 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7006 +;; The operand mode is not given intentionally, so as to allow
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7007 +;; any possible integer mode for the regset.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7008 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7009 +;; See below for a peephole that can combine consecutive push
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7010 +;; instructions that qualify for merging.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7011 +(define_insn "register_push"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7012 + [(use (reg:HI HARD_S_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7013 + (unspec_volatile
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7014 + [(match_operand 0 "immediate_operand" "")] UNSPEC_PUSH_RS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7015 + (clobber (reg:HI HARD_S_REGNUM))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7016 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7017 + "pshs\t%R0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7018 + [(set_attr "length" "2")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7019 + (set (attr "cycles") (const_int PSH_PUL_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7020 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7021 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7022 +;; Say how to pop multiple registers from the stack, using
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7023 +;; the 6809 'puls' instruction. The operand is the register
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7024 +;; bitset value.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7025 +(define_insn "register_pop"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7026 + [(use (reg:HI HARD_S_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7027 + (unspec_volatile
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7028 + [(match_operand 0 "immediate_operand" "")] UNSPEC_POP_RS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7029 + (clobber (reg:HI HARD_S_REGNUM))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7030 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7031 + "puls\t%R0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7032 + [(set_attr "length" "2")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7033 + (set (attr "cycles") (const_int PSH_PUL_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7034 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7035 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7036 +(define_insn "m6809_swi"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7037 + [(unspec_volatile
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7038 + [(match_operand:QI 0 "immediate_operand" "I,n")] UNSPEC_SWI)]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7039 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7040 + "@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7041 + swi
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7042 + swi%c0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7043 + [(set_attr "length" "1,2")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7044 + (set (attr "cycles") (const_int SWI_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7045 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7046 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7047 +;; Generate the CWAI instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7048 +(define_insn "m6809_cwai"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7049 + [(unspec_volatile
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7050 + [(match_operand:QI 0 "immediate_operand" "")] UNSPEC_CWAI)]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7051 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7052 + "cwai\t%0"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7053 + [(set_attr "length" "2")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7054 + (set (attr "cycles") (const_int CWAI_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7055 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7056 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7057 +;; Generate the SYNC instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7058 +(define_insn "m6809_sync"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7059 + [(unspec_volatile [(const_int 0)] UNSPEC_SYNC)]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7060 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7061 + "sync"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7062 + [(set_attr "length" "1")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7063 + (set (attr "cycles") (const_int SYNC_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7064 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7065 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7066 +;; Generate the NOP instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7067 +(define_insn "nop"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7068 + [(const_int 0)]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7069 + ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7070 + "nop"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7071 + [(set_attr "length" "1")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7072 + (set (attr "cycles") (const_int NOP_CYCLES))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7073 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7074 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7075 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7076 +;;- Peepholes
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7077 +;;--------------------------------------------------------------------
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7078 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7079 +;;; Each peephole has an ID that is used for debugging.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7080 +;;; Each peephole condition is bracketed by calls to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7081 +;;; m6809_match_peephole2() also for debugging.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7082 +(define_constants [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7083 + (PEEP_END 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7084 + (PEEP_COND 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7085 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7086 + (PEEP_STACK_STORE_INC 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7087 + (PEEP_STACK_CLEAR_INC 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7088 + (PEEP_LSRB_ADCB 2)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7089 + (PEEP_ABX 3)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7090 + (PEEP_ABX2 4)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7091 + (PEEP_INDEXED_INC 5)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7092 + (PEEP_MEM_DEC 6)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7093 + (PEEP_MEM_INC 7)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7094 + (PEEP_MEM_DEC_CMP 8)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7095 + (PEEP_PUSH2 9)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7096 + (PEEP_STORE_IMPLIES_CC 10)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7097 + (PEEP_DEC_IMPLIES_CC 11)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7098 + (PEEP_LEAB 12)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7099 + (PEEP_LDX_INDIRECT 13)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7100 + (PEEP_POP_JUNK 14)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7101 +])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7102 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7103 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7104 +;;; Optimize 'leas -1,s' followed by 'stb ,s'. This can happen if the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7105 +;;; function prologue needs to allocate stack space and 'b' is placed
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7106 +;;; into that local right away. Combine the stack allocation with the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7107 +;;; store using preincrement mode.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7108 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7109 + [(set (reg:HI HARD_S_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7110 + (plus:HI (reg:HI HARD_S_REGNUM) (const_int -1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7111 + (set (mem:QI (reg:HI HARD_S_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7112 + (match_operand:QI 0 "register_operand" ""))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7113 + "m6809_match_peephole2 (PEEP_STACK_STORE_INC, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7114 + [(set (mem:QI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7115 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7116 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7117 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7118 +;;; Same as above, but for a 'clr ,s' that follows the prologue.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7119 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7120 + [(set (reg:HI HARD_S_REGNUM) (plus:HI (reg:HI HARD_S_REGNUM) (const_int -1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7121 + (set (mem:QI (reg:HI HARD_S_REGNUM)) (const_int 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7122 + "m6809_match_peephole2 (PEEP_STACK_CLEAR_INC, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7123 + [(set (mem:QI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (const_int 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7124 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7125 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7126 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7127 +;;; Merge two consecutive push instructions into a single register_push.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7128 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7129 + [(set (match_operand 0 "push_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7130 + (match_operand 1 "register_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7131 + (set (match_operand 2 "push_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7132 + (match_operand 3 "register_operand" ""))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7133 + "m6809_match_peephole2 (PEEP_PUSH2, PEEP_COND)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7134 + && reload_completed
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7135 + && GET_MODE (operands[1]) == GET_MODE (operands[3])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7136 + && m6809_can_merge_pushpop_p (UNSPEC_PUSH_RS, 1 << REGNO (operands[1]), 1 << REGNO (operands[3]))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7137 + && m6809_match_peephole2 (PEEP_PUSH2, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7138 + [(parallel [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7139 + (use (reg:HI HARD_S_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7140 + (unspec_volatile [(match_dup 4)] UNSPEC_PUSH_RS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7141 + (clobber (reg:HI HARD_S_REGNUM))])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7142 + (use (match_dup 1))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7143 + (use (match_dup 3))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7144 +{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7145 + operands[4] = gen_rtx_CONST_INT (QImode,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7146 + (1 << REGNO (operands[1])) \| (1 << REGNO (operands[3])));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7147 +})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7148 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7149 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7150 +;;; Convert 'stX ,--s' into a push instruction. Use the regset
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7151 +;;; notation, so that it may be combined with an adjacent regset.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7152 +;;; TBD - this doesn't compile some code cleanly.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7153 +;(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7154 +; [(set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7155 +; (reg:HI HARD_X_REGNUM))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7156 +; "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7157 +; [(parallel [
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7158 +; (use (reg:HI HARD_S_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7159 +; (unspec_volatile [(match_dup 0)] UNSPEC_PUSH_RS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7160 +; (clobber (reg:HI HARD_S_REGNUM))])]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7161 +;{
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7162 +; operands[0] = gen_rtx_CONST_INT (HImode, X_REGBIT);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7163 +;})
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7164 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7165 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7166 +;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7167 +;;; q = (q+1)/2 can be optimized as "lsrb; adcb". This also
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7168 +;;; won't overflow when q=0xFF.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7169 +;;; TODO : this form isn't accounting for promotion when
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7170 +;;; using 16-bit ints.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7171 +;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7172 +(define_peephole
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7173 + [(set (reg:QI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7174 + (lshiftrt:QI (plus:HI (match_dup 0) (const_int 1)) (const_int 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7175 + "m6809_match_peephole2 (PEEP_LSRB_ADCB, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7176 + "lsrb\;adcb\t#0; peephole"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7177 + [(set_attr "length" "2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7178 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7179 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7180 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7181 +;; Optimize the case of following a register store with a test
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7182 +;; of reg or mem just moved.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7183 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7184 +(define_peephole
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7185 + [(set (match_operand:HI 0 "memory_operand" "=m")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7186 + (match_operand:HI 1 "register_operand" "r"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7187 + (set (cc0) (match_operand:HI 2 "general_operand" "g"))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7188 + "m6809_match_peephole2 (PEEP_STORE_IMPLIES_CC, PEEP_COND)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7189 + && (operands[2] == operands[0] \|\| operands[2] == operands[1])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7190 + && m6809_match_peephole2 (PEEP_STORE_IMPLIES_CC, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7191 + "st%1\t%0\t;movhi: R:%1 -> %0 w/ implied test of %2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7192 + [(set_attr "length" "4")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7193 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7194 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7195 +;; Optimize a pair of SET instructions in which the second insn
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7196 +;; is the reverse of the first one. I.e.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7197 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7198 +;; A = B
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7199 +;; ----> A = B
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7200 +;; B = A
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7201 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7202 +;; The second insn is redundant. Define two patterns, one for QI, one for HI.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7203 +;; But don't do this if either is a VOLATILE MEM.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7204 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7205 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7206 + (match_operand:HI 1 "nonimmediate_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7207 + (set (match_dup 1) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7208 + "!MEM_P (operands[0]) \|\| !MEM_P (operands[1]) \|\| (!MEM_VOLATILE_P (operands[0]) && !MEM_VOLATILE_P (operands[1]))"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7209 + [(set (match_dup 0) (match_dup 1))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7210 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7211 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7212 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7213 + [(set (match_operand:QI 0 "nonimmediate_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7214 + (match_operand:QI 1 "nonimmediate_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7215 + (set (match_dup 1) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7216 + "!MEM_P (operands[0]) \|\| !MEM_P (operands[1]) \|\| (!MEM_VOLATILE_P (operands[0]) && !MEM_VOLATILE_P (operands[1]))"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7217 + [(set (match_dup 0) (match_dup 1))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7218 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7219 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7220 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7221 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7222 +;; Optimize the sum of an 8-bit and 16-bit using the 'abx' instruction
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7223 +;; if B and X can be used. Two patterns are provided to catch both
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7224 +;; X=X+D and X=D+X.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7225 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7226 +(define_peephole
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7227 + [(set (reg:HI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7228 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7229 + (set (reg:HI HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7230 + (plus:HI (reg:HI HARD_D_REGNUM) (reg:HI HARD_X_REGNUM)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7231 + "m6809_match_peephole2 (PEEP_ABX, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7232 + "abx"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7233 + [(set_attr "length" "1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7234 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7235 +(define_peephole
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7236 + [(set (reg:HI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7237 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7238 + (set (reg:HI HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7239 + (plus:HI (reg:HI HARD_X_REGNUM) (reg:HI HARD_D_REGNUM)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7240 + "m6809_match_peephole2 (PEEP_ABX, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7241 + "abx"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7242 + [(set_attr "length" "1")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7243 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7244 +;;; Likewise, handle when B is scaled by 2 prior to the add.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7245 +;;; Instead of shifting B in 4 cycles, just do the ABX a second
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7246 +;;; time, in only 3 cycles.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7247 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7248 +(define_peephole
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7249 + [(set (reg:HI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7250 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7251 + (set (reg:HI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7252 + (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7253 + (set (reg:HI HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7254 + (plus:HI (reg:HI HARD_D_REGNUM) (reg:HI HARD_X_REGNUM)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7255 + "m6809_match_peephole2 (PEEP_ABX2, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7256 + "abx\;abx"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7257 + [(set_attr "length" "2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7258 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7259 +(define_peephole
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7260 + [(set (reg:HI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7261 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7262 + (set (reg:HI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7263 + (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7264 + (set (reg:HI HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7265 + (plus:HI (reg:HI HARD_X_REGNUM) (reg:HI HARD_D_REGNUM)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7266 + "m6809_match_peephole2 (PEEP_ABX2, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7267 + "abx\;abx"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7268 + [(set_attr "length" "2")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7269 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7270 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7271 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7272 +;; Work around a compiler bug that generates bad code when copying
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7273 +;; between 32-bit memory addresses after a libcall. The problem seen is
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7274 +;; that the source is MEM (REG X), but X is used as the reload register.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7275 +;; The second half of the copy therefore fails.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7276 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7277 +;; The solution is to switch the reload register to D, since that is guaranteed
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7278 +;; not to be in use right after a libcall.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7279 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7280 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7281 + [(set (reg:HI HARD_X_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7282 + (set (match_operand:HI 0 "nonimmediate_operand" "") (reg:HI HARD_X_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7283 + (set (reg:HI HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7284 + (mem:HI (plus:HI (reg:HI HARD_X_REGNUM) (const_int 2))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7285 + (set (match_operand:HI 1 "nonimmediate_operand" "") (reg:HI HARD_X_REGNUM))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7286 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7287 + [(set (reg:HI HARD_D_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7288 + (set (match_dup 0) (reg:HI HARD_D_REGNUM))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7289 + (set (reg:HI HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7290 + (mem:HI (plus:HI (reg:HI HARD_X_REGNUM) (const_int 2))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7291 + (set (match_dup 1) (reg:HI HARD_X_REGNUM))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7292 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7293 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7294 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7295 +;; Turn "and then test" into a "bit test" operation.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7296 +;; Provide variants for immediate and memory sources
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7297 +;; This is the most used peephople.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7298 +; (define_peephole
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7299 +; [(set (match_operand:QI 0 "register_operand" "=q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7300 +; (and:QI (match_operand:QI 1 "register_operand" "0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7301 +; (match_operand:QI 2 "immediate_operand" "i")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7302 +; (set (cc0) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7303 +; ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7304 +; "bit%0\t%2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7305 +; [(set_attr "length" "3")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7306 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7307 +; (define_peephole
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7308 +; [(set (match_operand:QI 0 "register_operand" "=q")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7309 +; (and:QI (match_operand:QI 1 "register_operand" "0")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7310 +; (match_operand:QI 2 "memory_operand" "m")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7311 +; (set (cc0) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7312 +; ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7313 +; "bit%0\t%2"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7314 +; [(set_attr "length" "4")])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7315 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7316 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7317 +;; Turn a "decrement, then test" sequence into just a "decrement".
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7318 +;; The test can be omitted, since it is implicitly done.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7319 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7320 + [(set (match_operand:QI 0 "nonimmediate_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7321 + (plus:QI (match_operand:QI 1 "whole_general_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7322 + (match_operand:QI 2 "immediate_operand" "")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7323 + (set (cc0) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7324 + "m6809_match_peephole2 (PEEP_DEC_IMPLIES_CC, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7325 + [(set (match_dup 0) (plus:QI (match_dup 1) (match_dup 2)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7326 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7327 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7328 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7329 +;; Merge an indexed register increment with a previous usage.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7330 +;; This is usually done automatically, but not always
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7331 +;; The 'use' should be optional; in all cases where this has been
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7332 +;; seen, it is required though.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7333 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7334 + [(set (match_operand:QI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7335 + (mem:QI (match_operand:HI 1 "index_register_operand" "")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7336 + (use (match_dup 0))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7337 + (set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7338 + "m6809_match_peephole2 (PEEP_INDEXED_INC, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7339 + [(set (match_dup 0) (mem:QI (post_inc:HI (match_dup 1))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7340 + (use (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7341 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7342 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7343 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7344 +;;; Merge "ldX MEM; ldX ,X" into a single instruction using
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7345 +;;; the indirect mode.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7346 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7347 + [(set (reg:HI HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7348 + (mem:HI (match_operand:HI 0 "general_operand" "")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7349 + (set (reg:HI HARD_X_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7350 + "reload_completed && m6809_match_peephole2 (PEEP_LDX_INDIRECT, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7351 + [(set (reg:HI HARD_X_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7352 + (mem:HI (mem:HI (match_dup 0))))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7353 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7354 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7355 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7356 +;;; Reorder a store followed by a unary operation on that memory
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7357 +;;; so that the unary is performed and then the store. Consider
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7358 +;;; a binary shift operation, which will be decomposed into
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7359 +;;; identical single shifts, also.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7360 +;;; TODO - recognize more than just 'ashift' here.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7361 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7362 + [(set (match_operand:QI 0 "memory_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7363 + (match_operand:QI 1 "register_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7364 + (set (match_dup 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7365 + (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7366 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7367 + [(set (match_dup 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7368 + (ashift:QI (match_dup 1) (match_operand:QI 2 "immediate_operand")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7369 + (set (match_dup 0) (match_dup 1))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7370 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7371 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7372 +;;; Likewise, reorder a unary MEM followed by a load, so that the load
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7373 +;;; is done first, then use the REG instead of the MEM.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7374 +;;;(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7375 +;;; [(set (match_dup 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7376 +;;; (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7377 +;;; (set (match_operand:QI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7378 +;;; (match_operand:QI 1 "memory_operand" ""))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7379 +;;; "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7380 +;;; [(set (match_dup 0) (match_dup 1))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7381 +;;; (set (match_dup 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7382 +;;; (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7383 +;;; "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7384 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7385 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7386 +;;; Replace sex; leaX d,Y with leaX b,Y.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7387 +;;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7388 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7389 + [(set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7390 + (set (match_operand:HI 0 "index_register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7391 + (plus:HI (match_operand:HI 1 "index_register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7392 + (reg:HI HARD_D_REGNUM)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7393 + "reload_completed && m6809_match_peephole2 (PEEP_LEAB, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7394 + [(set (match_dup 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7395 + (plus:HI (match_dup 1) (reg:QI HARD_D_REGNUM)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7396 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7397 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7398 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7399 + [(set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7400 + (set (match_operand:HI 0 "index_register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7401 + (plus:HI (reg:HI HARD_D_REGNUM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7402 + (match_operand:HI 1 "index_register_operand" "")))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7403 + "reload_completed && m6809_match_peephole2 (PEEP_LEAB, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7404 + [(set (match_dup 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7405 + (plus:HI (match_dup 1) (reg:QI HARD_D_REGNUM)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7406 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7407 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7408 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7409 +;;; Replace ldb; decb; stb; tstb with dec(mem). If the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7410 +;;; register is not needed, then the load will get deleted
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7411 +;;; automatically, but it may be needed for comparisons.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7412 +;;; Same for incb/inc.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7413 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7414 + [(set (match_operand:QI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7415 + (match_operand:QI 1 "nonimmediate_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7416 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int -1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7417 + (set (match_dup 1) (match_dup 0))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7418 + (set (cc0) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7419 + "m6809_match_peephole2 (PEEP_MEM_DEC_CMP, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7420 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int -1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7421 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7422 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7423 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7424 +;;; Replace ldb; decb; stb with dec(mem); ldb. If the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7425 +;;; register is not needed, then the load will get deleted
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7426 +;;; automatically, but it may be needed for comparisons.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7427 +;;; Same for incb/inc.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7428 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7429 + [(set (match_operand:QI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7430 + (match_operand:QI 1 "nonimmediate_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7431 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int -1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7432 + (set (match_dup 1) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7433 + "m6809_match_peephole2 (PEEP_MEM_DEC, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7434 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int -1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7435 + (set (match_dup 0) (match_dup 1))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7436 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7437 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7438 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7439 + [(set (match_operand:QI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7440 + (match_operand:QI 1 "nonimmediate_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7441 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int 1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7442 + (set (match_dup 1) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7443 + "m6809_match_peephole2 (PEEP_MEM_INC, PEEP_END)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7444 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int 1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7445 + (set (match_dup 0) (match_dup 1))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7446 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7447 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7448 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7449 +;;; Replace "andb #N; cmpb #N; bhi" with "andb #N", if it can be proven
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7450 +;;; that the branch can never occur because of the limited range of B.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7451 +;;; N must be a power of two for this to make sense. This helps with
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7452 +;;; the default cases of switch statements on a value (x & N).
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7453 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7454 + [(set (match_operand:QI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7455 + (and:QI (match_dup 0) (match_operand:QI 1 "immediate_operand" "")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7456 + (set (cc0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7457 + (compare (match_dup 0) (match_dup 1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7458 + (set (pc) (if_then_else (gtu (cc0) (const_int 0)) (match_operand 2 "" "") (match_operand 3 "" "")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7459 + ]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7460 + "reload_completed && power_of_two_p (INTVAL (operands[1]) + 1)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7461 + [(set (match_dup 0) (and:QI (match_dup 0) (match_dup 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7462 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7463 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7464 +;;; Replace ldd <mem>; addd #1; std <mem> with 16-bit increment
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7465 +;;; of the mem, but only if D is dead. Same for 16-bit decrement.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7466 +;;; <mem> must be offsettable for the instruction to match.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7467 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7468 + [(set (match_operand:HI 0 "register_operand" "") (match_operand:HI 1 "memory_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7469 + (set (match_dup 0) (plus:HI (match_dup 0) (const_int 1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7470 + (set (match_dup 1) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7471 + "reload_completed
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7472 + && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7473 + && peep2_reg_dead_p (3, operands[0])"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7474 + [(set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7475 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7476 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7477 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7478 + [(set (match_operand:HI 0 "register_operand" "") (match_operand:HI 1 "memory_operand" ""))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7479 + (set (match_dup 0) (plus:HI (match_dup 0) (const_int -1)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7480 + (set (match_dup 1) (match_dup 0))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7481 + "reload_completed
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7482 + && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7483 + && peep2_reg_dead_p (3, operands[0])"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7484 + [(set (match_dup 1) (plus:HI (match_dup 1) (const_int -1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7485 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7486 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7487 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7488 +;;; Replace a load or store using an indexed register, followed by an increment of that
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7489 +;;; register, with the combined form using autoincrement.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7490 +(define_peephole2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7491 + [(set (match_operand:QI 0 "register_operand" "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7492 + (mem:QI (match_operand:HI 1 "index_register_operand" "")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7493 + (set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7494 + "reload_completed"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7495 + [(set (match_dup 0) (mem:QI (post_inc (match_dup 1))))]
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7496 + "")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7497 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7498 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7499 +;;- mode:emacs-lisp
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7500 +;;- comment-start: ";;- "
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7501 +;;- eval: (set-syntax-table (copy-sequence (syntax-table)))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7502 +;;- eval: (modify-syntax-entry ?[ "(]")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7503 +;;- eval: (modify-syntax-entry ?] ")[")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7504 +;;- eval: (modify-syntax-entry ?{ "(}")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7505 +;;- eval: (modify-syntax-entry ?} "){")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7506 +;-; vim: set ts=2:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7507 +;-; vim: set expandtab:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7508 +;-; vim: set filetype=lisp:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7509 +;;- End:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7510 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.opt gcc-4.6.4/gcc/config/m6809/m6809.opt
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7511 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.opt 1969-12-31 17:00:00.000000000 -0700
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7512 +++ gcc-4.6.4/gcc/config/m6809/m6809.opt 2015-07-20 19:44:52.770843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7513 @@ -0,0 +1,98 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7514 +; Options for the M6809 port of the compiler
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7515 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7516 +; Copyright (C) 2005 Free Software Foundation, Inc.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7517 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7518 +; This file is part of GCC.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7519 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7520 +; GCC is free software; you can redistribute it and/or modify it under
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7521 +; the terms of the GNU General Public License as published by the Free
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7522 +; Software Foundation; either version 2, or (at your option) any later
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7523 +; version.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7524 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7525 +; GCC is distributed in the hope that it will be useful, but WITHOUT
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7526 +; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7527 +; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7528 +; License for more details.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7529 +;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7530 +; You should have received a copy of the GNU General Public License
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7531 +; along with GCC; see the file COPYING. If not, write to the Free
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7532 +; Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7533 +; 02110-1301, USA.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7534 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7535 +margcount
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7536 +Target Mask(ARGCOUNT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7537 +Push argument count
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7538 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7539 +mint8
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7540 +Target RejectNegative Mask(BYTE_INT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7541 +Use 8-bit integers
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7542 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7543 +mint16
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7544 +Target RejectNegative
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7545 +Use 16-bit integers InverseMask(BYTE_INT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7546 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7547 +mreg-args
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7548 +Target Mask(REG_ARGS)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7549 +Use registers for function arguments
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7550 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7551 +mshort_size
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7552 +Target RejectNegative Mask(SMALL_SIZE_T)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7553 +Use 8-bit size_t
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7554 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7555 +mlong_size
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7556 +Target RejectNegative InverseMask(SMALL_SIZE_T)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7557 +Use 16-bit size_t
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7558 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7559 +mdirect
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7560 +Target Mask(DIRECT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7561 +Enable direct addressing
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7562 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7563 +mwpc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7564 +Target RejectNegative Mask(WPC)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7565 +Enable WPC platform extensions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7566 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7567 +mexperiment
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7568 +Target RejectNegative Mask(EXPERIMENT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7569 +Enable current experimental feature
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7570 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7571 +m6309
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7572 +Target RejectNegative Mask(6309)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7573 +Enable Hitachi 6309 extensions
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7574 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7575 +mcasesi
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7576 +Target RejectNegative Mask(CASESI)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7577 +Enable the casesi pattern
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7578 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7579 +mfar-code-page=
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7580 +Target RejectNegative Joined Var(far_code_page_option)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7581 +Sets the far code page value for this compilation unit
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7582 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7583 +mcode-section=
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7584 +Target RejectNegative Joined Var(code_section_ptr)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7585 +Sets the name of the section for code
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7586 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7587 +mdata-section=
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7588 +Target RejectNegative Joined Var(data_section_ptr)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7589 +Sets the name of the section for initialized data
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7590 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7591 +mbss-section=
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7592 +Target RejectNegative Joined Var(bss_section_ptr)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7593 +Sets the name of the section for uninitialized data
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7594 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7595 +mabi_version=
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7596 +Target RejectNegative Joined Var(m6809_abi_version_ptr)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7597 +Sets the calling convention
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7598 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7599 +msoft-reg-count=
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7600 +Target RejectNegative Joined Var(m6809_soft_reg_count)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7601 +Sets the number of soft registers that can be used
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7602 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7603 +mdret
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7604 +Target RejectNegative Mask(DRET)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7605 +Put function call results in D, not X
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7606 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7607 +mfar-stack-param
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7608 +Target Mask(FAR_STACK_PARAM)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7609 +Enable stack parameters to a farcall
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7610 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7611 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7612 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809-protos.h gcc-4.6.4/gcc/config/m6809/m6809-protos.h
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7613 --- gcc-4.6.4-clean/gcc/config/m6809/m6809-protos.h 1969-12-31 17:00:00.000000000 -0700
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7614 +++ gcc-4.6.4/gcc/config/m6809/m6809-protos.h 2015-07-20 19:44:52.770843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7615 @@ -0,0 +1,94 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7616 +/* GCC for 6809 : machine-specific function prototypes
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7617 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7618 +This file is part of GCC.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7619 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7620 +GCC is free software; you can redistribute it and/or modify
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7621 +it under the terms of the GNU General Public License as published by
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7622 +the Free Software Foundation; either version 3, or (at your option)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7623 +any later version.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7624 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7625 +GCC is distributed in the hope that it will be useful,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7626 +but WITHOUT ANY WARRANTY; without even the implied warranty of
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7627 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7628 +GNU General Public License for more details.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7629 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7630 +You should have received a copy of the GNU General Public License
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7631 +along with GCC; see the file COPYING3. If not see
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7632 +<http://www.gnu.org/licenses/>. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7633 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7634 +#ifndef __M6809_PROTOS_H__
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7635 +#define __M6809_PROTOS_H__
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7636 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7637 +void print_options (FILE *file);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7638 +void m6809_cpu_cpp_builtins (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7639 +void m6809_override_options (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7640 +void m6809_init_builtins (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7641 +unsigned int m6809_get_live_regs (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7642 +const char * m6809_get_regs_printable (unsigned int regs);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7643 +unsigned int m6809_get_regs_size (unsigned int regs);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7644 +int m6809_function_has_type_attr_p (tree decl, const char *);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7645 +int m6809_current_function_has_type_attr_p (const char *);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7646 +int prologue_epilogue_required (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7647 +int noreturn_functionp (rtx x);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7648 +void output_function_prologue (FILE *file, int size);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7649 +void output_function_epilogue (FILE *file, int size);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7650 +int check_float_value (enum machine_mode mode, double *d, int overflow);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7651 +void m6809_asm_named_section (const char *name, unsigned int flags, tree decl);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7652 +void m6809_asm_file_start (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7653 +void m6809_output_ascii (FILE fp, const char str, unsigned long size);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7654 +void m6809_declare_function_name (FILE asm_out_file, const char name, tree decl);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7655 +void m6809_reorg (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7656 +int m6809_current_function_is_void (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7657 +int m6809_can_merge_pushpop_p (int op, int regs1, int regs2);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7658 +int m6809_function_value_regno_p (unsigned int regno);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7659 +void emit_prologue_insns (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7660 +void emit_epilogue_insns (bool);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7661 +void m6809_conditional_register_usage (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7662 +void m6809_output_quoted_string (FILE asm_file, const char string);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7663 +int m6809_match_peephole2 (unsigned int peephole_id, unsigned int stage);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7664 +int m6809_hard_regno_mode_ok (unsigned int regno, enum machine_mode mode);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7665 +int power_of_two_p (unsigned int n);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7666 +void m6809_do_casesi (rtx index, rtx lower_bound, rtx range, rtx table_label, rtx default_label);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7667 +void m6809_output_addsi3 (int rtx_code, rtx *operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7668 +rtx m6809_function_arg_on_stack (CUMULATIVE_ARGS *cump);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7669 +void expand_constant_shift (int code, rtx dst, rtx src, rtx count);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7670 +int m6809_single_operand_operator (rtx exp);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7671 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7672 +#ifdef TREE_CODE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7673 +int m6809_init_cumulative_args (CUMULATIVE_ARGS cum, tree fntype, rtx libname);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7674 +#endif /* TREE_CODE */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7675 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7676 +#ifdef RTX_CODE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7677 +void print_direct_prefix (FILE *file, rtx addr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7678 +void print_operand (FILE *file, rtx x, int code);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7679 +void print_operand_address (FILE *file, rtx addr);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7680 +void notice_update_cc (rtx exp, rtx insn);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7681 +enum reg_class m6809_preferred_reload_class (rtx x, enum reg_class regclass);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7682 +rtx gen_rtx_const_high (rtx r);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7683 +rtx gen_rtx_const_low (rtx r);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7684 +rtx gen_rtx_register_pushpop (int pop_flag, int regs);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7685 +void emit_libcall_insns (enum machine_mode mode, const char name, rtx operands, int count);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7686 +const char * output_branch_insn (enum rtx_code code, rtx *operands, int length);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7687 +void output_far_call_insn (rtx *operands, int has_return);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7688 +void m6809_initialize_trampoline (rtx tramp, tree fndecl, rtx cxt);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7689 +rtx m6809_expand_builtin (tree exp, rtx target, rtx subtarget, enum machine_mode mode, int ignore);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7690 +const char * far_functionp (rtx x);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7691 +rtx m6809_function_value (const tree valtype, const tree func);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7692 +void m6809_output_shift_insn (int rtx_code, rtx *operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7693 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7694 +const char * m6809_get_decl_bank (tree decl);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7695 +void output_branch_insn1 (const char opcode, rtx operands, int long_p);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7696 +rtx m6809_builtin_operand (tree arglist, enum machine_mode mode, int opnum);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7697 +const char * far_function_type_p (tree type);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7698 +void m6809_asm_trampoline_template(FILE *f);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7699 +bool m6809_frame_pointer_required (void);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7700 +int m6809_can_eliminate (int from, int to);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7701 +int m6809_initial_elimination_offset (int from, int to);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7702 +void m6809_emit_move_insn (rtx dst, rtx src);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7703 +void m6809_split_shift (enum rtx_code code, rtx *operands);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7704 +bool m6809_function_ok_for_sibcall (tree decl, tree exp ATTRIBUTE_UNUSED);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7705 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7706 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7707 +#endif /* RTX_CODE */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7708 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7709 +#endif /* __M6809_PROTOS_H__ */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7710 diff -urN gcc-4.6.4-clean/gcc/config/m6809/predicates.md gcc-4.6.4/gcc/config/m6809/predicates.md
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7711 --- gcc-4.6.4-clean/gcc/config/m6809/predicates.md 1969-12-31 17:00:00.000000000 -0700
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7712 +++ gcc-4.6.4/gcc/config/m6809/predicates.md 2015-07-20 19:44:52.770843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7713 @@ -0,0 +1,78 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7714 +;; Predicate definitions for Motorola 6809
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7715 +;; Copyright (C) 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7716 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7717 +;; This file is part of GCC.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7718 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7719 +;; GCC is free software; you can redistribute it and/or modify
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7720 +;; it under the terms of the GNU General Public License as published by
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7721 +;; the Free Software Foundation; either version 3, or (at your option)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7722 +;; any later version.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7723 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7724 +;; GCC is distributed in the hope that it will be useful,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7725 +;; but WITHOUT ANY WARRANTY; without even the implied warranty of
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7726 +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7727 +;; GNU General Public License for more details.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7728 +;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7729 +;; You should have received a copy of the GNU General Public License
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7730 +;; along with GCC; see the file COPYING3. If not see
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7731 +;; <http://www.gnu.org/licenses/>.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7732 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7733 +;; whole_register_operand is like register_operand, but it
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7734 +;; does not allow SUBREGs.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7735 +(define_predicate "whole_register_operand"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7736 + (and (match_code "reg")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7737 + (match_operand 0 "register_operand")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7738 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7739 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7740 +;; A predicate that matches any index register. This can be used in nameless
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7741 +;; patterns and peepholes which need a 16-bit reg, but not D.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7742 +(define_predicate "index_register_operand"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7743 + (and (match_code "reg")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7744 + (match_test "REGNO (op) == HARD_X_REGNUM \|\| REGNO (op) == HARD_Y_REGNUM \|\| REGNO (op) == HARD_U_REGNUM")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7745 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7746 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7747 +;; match only X
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7748 +(define_predicate "register_operand_x"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7749 + (and (match_code "reg")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7750 + (match_test "REGNO (op) == HARD_X_REGNUM")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7751 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7752 +;; match only D
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7753 +(define_predicate "register_operand_d"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7754 + (and (match_code "reg")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7755 + (match_test "REGNO (op) == HARD_D_REGNUM")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7756 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7757 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7758 +;; Likwise, a replacement for general_operand which excludes
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7759 +;; SUBREGs.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7760 +(define_predicate "whole_general_operand"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7761 + (and (match_code "const_int,const_double,const,symbol_ref,label_ref,reg,mem")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7762 + (match_operand 0 "general_operand")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7763 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7764 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7765 +(define_predicate "add_general_operand"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7766 + (and (match_code "const_int,const_double,const,symbol_ref,label_ref,reg,mem")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7767 + (match_operand 0 "general_operand")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7768 + (match_test "REGNO (op) != SOFT_AP_REGNUM")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7769 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7770 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7771 +(define_predicate "shift_count_operand"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7772 + (and (match_code "const_int")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7773 + (and (match_operand 0 "const_int_operand")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7774 + (match_test "INTVAL (op) == 1 \|\| INTVAL (op) == 8"))))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7775 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7776 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7777 +;; A predicate that matches any bitwise logical operator. This
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7778 +;; allows for a single RTL pattern to be used for multiple operations.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7779 +(define_predicate "logical_bit_operator"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7780 + (ior (match_code "and") (match_code "ior") (match_code "xor")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7781 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7782 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7783 +;; A predicate that matches any shift or rotate operator. This
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7784 +;; allows for a single RTL pattern to be used for multiple operations.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7785 +(define_predicate "shift_rotate_operator"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7786 + (ior (match_code "ashift") (match_code "ashiftrt") (match_code "lshiftrt")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7787 + (match_code "rotate") (match_code "rotatert")))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7788 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7789 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7790 +(define_predicate "symbolic_operand" (match_code "symbol_ref"))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7791 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7792 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-coco gcc-4.6.4/gcc/config/m6809/t-coco
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7793 --- gcc-4.6.4-clean/gcc/config/m6809/t-coco 1969-12-31 17:00:00.000000000 -0700
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7794 +++ gcc-4.6.4/gcc/config/m6809/t-coco 2015-07-20 19:44:52.770843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7795 @@ -0,0 +1,6 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7796 +# For a few minor differences in code generation on the CoCo...
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7797 +T_CFLAGS = -DTARGET_COCO
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7798 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7799 +# For doing the startup differently on the CoCo...
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7800 +CRT0STUFF_T_CFLAGS += -Wa,--globalize-symbols -DTARGET_COCO
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7801 +# vim: set filetype=make:
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7802 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-m6809 gcc-4.6.4/gcc/config/m6809/t-m6809
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7803 --- gcc-4.6.4-clean/gcc/config/m6809/t-m6809 1969-12-31 17:00:00.000000000 -0700
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7804 +++ gcc-4.6.4/gcc/config/m6809/t-m6809 2015-07-20 19:44:52.770843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7805 @@ -0,0 +1,64 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7806 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7807 +# ranlib doesn't exist, so define it to 'true' to make it a no-op
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7808 +RANLIB_FOR_TARGET = true
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7809 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7810 +# Stubs for libgcc defined by m6809 are here
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7811 +LIB1ASMSRC = m6809/libgcc1.s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7812 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7813 +# Here are the functions that are implemented within libgcc1.s
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7814 +LIB1ASMFUNCS = _mulhi3 _divhi3 _modhi3 _udivhi3 _umodhi3 \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7815 + _euclid _seuclid _clzsi2 _clzdi2 _ctzsi2 _ctzdi2 _softregs \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7816 + _ashlhi3 _ashrhi3 _lshrhi3
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7817 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7818 +# Flags to use when building libgcc. IN_GCC does not seem necessary,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7819 +# although the compile breaks without it. -DDF=SF is required to set
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7820 +# the size of "double" to the same as the size of a "float".
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7821 +TARGET_LIBGCC2_CFLAGS =-DIN_GCC -Dinhibit_libc -DDF=SF -DLIBGCC2_HAS_SF_MODE=0 -DLIBGCC2_HAS_DF_MODE=0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7822 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7823 +LIB2ADDEH =
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7824 +LIB2ADDEHSTATIC =
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7825 +LIB2ADDEHSHARED =
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7826 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7827 +LIBGCC2_DEBUG_CFLAGS =
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7828 +LIBGCC2_CFLAGS = -Os $(LIBGCC2_INCLUDES) $(TARGET_LIBGCC2_CFLAGS) $(LIBGCC2_DEBUG_CFLAGS) $(GTHREAD_FLAGS) -DIN_LIBGCC2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7829 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7830 +# Multilib information
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7831 +# This creates multiple versions of libgcc.a for each set of incompatible
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7832 +# -mxxx options.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7833 +MULTILIB_OPTIONS = fpic mdret
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7834 +MULTILIB_DIRNAMES =
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7835 +MULTILIB_MATCHES =
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7836 +MULTILIB_EXCEPTIONS =
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7837 +EXTRA_MULTILIB_PARTS = crt0.o
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7838 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7839 +LIBGCC = stmp-multilib
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7840 +INSTALL_LIBGCC = install-multilib
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7841 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7842 +# We want fine grained libraries, so use the new code to build the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7843 +# floating point emulation libraries.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7844 +FPBIT = fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7845 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7846 +fp-bit.c: $(srcdir)/config/fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7847 + echo '#define FLOAT' > fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7848 + echo '#define FLOAT_ONLY' >> fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7849 + echo '#define CMPtype HItype' >> fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7850 + echo '#define SMALL_MACHINE' >> fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7851 + echo '#ifdef __LITTLE_ENDIAN__' >> fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7852 + echo '#define FLOAT_BIT_ORDER_MISMATCH' >>fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7853 + echo '#endif' >> fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7854 + echo '#define DI SI' >> fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7855 + cat $(srcdir)/config/fp-bit.c >> fp-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7856 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7857 +# crt0.o is built from the following source file
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7858 +CRT0_S = $(srcdir)/config/m6809/crt0.S
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7859 +MCRT0_S = $(srcdir)/config/m6809/crt0.S
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7860 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7861 +# Flags to use when building crt0.o
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7862 +CRT0STUFF_T_CFLAGS += -fno-builtin -nostartfiles -nostdlib
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7863 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7864 +# Assemble startup files.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7865 +$(T)crt0.o: $(CRT0_S) $(GCC_PASSES)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7866 + $(GCC_FOR_TARGET) $(CRT0STUFF_T_CFLAGS) $(MULTILIB_CFLAGS) -c -o $(T)crt0.o -x assembler-with-cpp $(CRT0_S)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7867 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7868 +$(T)mcrt0.o: $(MCRT0_S) $(GCC_PASSES)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7869 + $(GCC_FOR_TARGET) $(CRT0STUFF_T_CFLAGS) $(MULTILIB_CFLAGS) -c -o $(T)mcrt0.o -x assembler-with-cpp $(MCRT0_S)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7870 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-sim gcc-4.6.4/gcc/config/m6809/t-sim
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7871 --- gcc-4.6.4-clean/gcc/config/m6809/t-sim 1969-12-31 17:00:00.000000000 -0700
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7872 +++ gcc-4.6.4/gcc/config/m6809/t-sim 2015-07-20 19:44:52.770843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7873 @@ -0,0 +1 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7874 +CRT0STUFF_T_CFLAGS += -DTARGET_SIM
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7875 diff -urN gcc-4.6.4-clean/gcc/config.gcc gcc-4.6.4/gcc/config.gcc
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7876 --- gcc-4.6.4-clean/gcc/config.gcc 2013-03-06 10:40:07.000000000 -0700
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7877 +++ gcc-4.6.4/gcc/config.gcc 2015-07-20 19:44:52.770843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7878 @@ -375,6 +375,9 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7879 cpu_type=m32r
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7880 extra_options="${extra_options} g.opt"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7881 ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7882 +m6809--)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7883 + cpu_type=m6809
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7884 + ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7885 m68k--)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7886 extra_headers=math-68881.h
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7887 ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7888 @@ -1706,6 +1709,12 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7889 thread_file='posix'
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7890 fi
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7891 ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7892 +m6809-coco-*)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7893 + tmake_file="${tmake_file} m6809/t-m6809 m6809/t-coco"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7894 + ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7895 +m6809--)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7896 + tmake_file="${tmake_file} m6809/t-m6809 m6809/t-sim"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7897 + ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7898 # m68hc11 and m68hc12 share the same machine description.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7899 m68hc11--\|m6811--)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7900 tm_file="dbxelf.h elfos.h usegas.h newlib-stdint.h m68hc11/m68hc11.h"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7901 diff -urN gcc-4.6.4-clean/gcc/gcse.c gcc-4.6.4/gcc/gcse.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7902 --- gcc-4.6.4-clean/gcc/gcse.c 2011-02-02 23:04:04.000000000 -0700
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7903 +++ gcc-4.6.4/gcc/gcse.c 2015-07-20 19:44:52.770843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7904 @@ -833,7 +833,6 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7905 max_distance = (GCSE_COST_DISTANCE_RATIO * cost) / 10;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7906 if (max_distance == 0)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7907 return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7908 -
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7909 gcc_assert (max_distance > 0);
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7910 }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7911 else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7912 diff -urN gcc-4.6.4-clean/gcc/libgcc2.c gcc-4.6.4/gcc/libgcc2.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7913 --- gcc-4.6.4-clean/gcc/libgcc2.c 2011-01-03 13:52:22.000000000 -0700
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7914 +++ gcc-4.6.4/gcc/libgcc2.c 2015-07-20 19:44:52.770843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7915 @@ -485,6 +485,7 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7916 #endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7917
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7918 #ifdef L_bswapsi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7919 +#if MIN_UNITS_PER_WORD > 1
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7920 SItype
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7921 __bswapsi2 (SItype u)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7922 {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7923 @@ -494,7 +495,9 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7924 \| (((u) & 0x000000ff) << 24));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7925 }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7926 #endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7927 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7928 #ifdef L_bswapdi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7929 +#if LONG_LONG_TYPE_SIZE > 32
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7930 DItype
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7931 __bswapdi2 (DItype u)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7932 {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7933 @@ -508,6 +511,7 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7934 \| (((u) & 0x00000000000000ffull) << 56));
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7935 }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7936 #endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7937 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7938 #ifdef L_ffssi2
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7939 #undef int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7940 int
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7941 @@ -1280,7 +1284,7 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7942 UDWtype
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7943 __fixunssfDI (SFtype a)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7944 {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7945 -#if LIBGCC2_HAS_DF_MODE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7946 +#if LIBGCC2_HAS_DF_MODE \|\| (FLT_MANT_DIG >= W_TYPE_SIZE)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7947 /* Convert the SFtype to a DFtype, because that is surely not going
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7948 to lose any bits. Some day someone else can write a faster version
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7949 that avoids converting to DFtype, and verify it really works right. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7950 @@ -1298,7 +1302,7 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7951
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7952 /* Assemble result from the two parts. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7953 return ((UDWtype) hi << W_TYPE_SIZE) \| lo;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7954 -#elif FLT_MANT_DIG < W_TYPE_SIZE
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7955 +#else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7956 if (a < 1)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7957 return 0;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7958 if (a < Wtype_MAXp1_F)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7959 @@ -1334,8 +1338,6 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7960 return (DWtype)counter << shift;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7961 }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7962 return -1;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7963 -#else
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7964 -# error
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7965 #endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7966 }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7967 #endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7968 diff -urN gcc-4.6.4-clean/gcc/longlong.h gcc-4.6.4/gcc/longlong.h
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7969 --- gcc-4.6.4-clean/gcc/longlong.h 2011-10-04 01:28:50.000000000 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7970 +++ gcc-4.6.4/gcc/longlong.h 2015-07-20 19:44:52.770843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7971 @@ -528,6 +528,11 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7972 : "cbit")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7973 #endif /* __M32R__ */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7974
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7975 +#if defined (__m6309__) \|\| defined (__m6809__)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7976 +#define count_leading_zeros(COUNT,X) ((COUNT) = __builtin_clz (X))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7977 +#define count_trailing_zeros(COUNT,X) ((COUNT) = __builtin_ctz (X))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7978 +#endif
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7979 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7980 #if defined (__mc68000__) && W_TYPE_SIZE == 32
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7981 #define add_ssaaaa(sh, sl, ah, al, bh, bl) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7982 __asm__ ("add%.l %5,%1\n\taddx%.l %3,%0" \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7983 diff -urN gcc-4.6.4-clean/gcc/Makefile.in gcc-4.6.4/gcc/Makefile.in
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7984 --- gcc-4.6.4-clean/gcc/Makefile.in 2013-04-01 02:32:34.000000000 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7985 +++ gcc-4.6.4/gcc/Makefile.in 2015-07-20 19:44:52.770843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7986 @@ -2003,14 +2003,14 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7987
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7988 # Compile the start modules crt0.o and mcrt0.o that are linked with
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7989 # every program
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7990 -$(T)crt0.o: s-crt0 ; @true
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7991 -$(T)mcrt0.o: s-crt0; @true
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7992 +crt0.o: s-crt0 ; @true
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7993 +mcrt0.o: s-crt0; @true
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7994
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7995 s-crt0: $(CRT0_S) $(MCRT0_S) $(GCC_PASSES) $(CONFIG_H)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7996 $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(CRT0STUFF_T_CFLAGS) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7997 - -o $(T)crt0.o -c $(CRT0_S)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7998 + -o crt0.o -c $(CRT0_S)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	7999 $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(CRT0STUFF_T_CFLAGS) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8000 - -o $(T)mcrt0.o -c $(MCRT0_S)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8001 + -o mcrt0.o -c $(MCRT0_S)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8002 $(STAMP) s-crt0
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8003 #
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8004 # Compiling object files from source files.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8005 diff -urN gcc-4.6.4-clean/gcc/opth-gen.awk gcc-4.6.4/gcc/opth-gen.awk
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8006 --- gcc-4.6.4-clean/gcc/opth-gen.awk 2011-02-08 10:41:00.000000000 -0700
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8007 +++ gcc-4.6.4/gcc/opth-gen.awk 2015-07-20 19:44:52.774843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8008 @@ -121,7 +121,7 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8009 END {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8010 print "/* This file is auto-generated by opth-gen.awk. */"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8011 print ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8012 -print "#ifndef OPTIONS_H"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8013 +print "#if !defined(OPTIONS_H) && !defined(IN_LIBGCC2)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8014 print "#define OPTIONS_H"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8015 print ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8016 print "#include \"flag-types.h\""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8017 @@ -432,18 +432,9 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8018
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8019 for (i = 0; i < n_opts; i++) {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8020 opt = opt_args("InverseMask", flags[i])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8021 - if (opt ~ ",") {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8022 - vname = var_name(flags[i])
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8023 - macro = "OPTION_"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8024 - mask = "OPTION_MASK_"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8025 - if (vname == "") {
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8026 - vname = "target_flags"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8027 - macro = "TARGET_"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8028 - mask = "MASK_"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8029 - }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8030 - print "#define " macro nth_arg(1, opt) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8031 - " ((" vname " & " mask nth_arg(0, opt) ") == 0)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8032 - }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8033 + if (opt ~ ",")
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8034 + print "#define TARGET_" nth_arg(1, opt) \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8035 + " ((target_flags & MASK_" nth_arg(0, opt) ") == 0)"
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8036 }
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8037 print ""
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8038
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8039 diff -urN gcc-4.6.4-clean/gcc/tree.h gcc-4.6.4/gcc/tree.h
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8040 --- gcc-4.6.4-clean/gcc/tree.h 2011-10-06 13:57:52.000000000 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8041 +++ gcc-4.6.4/gcc/tree.h 2015-07-20 19:44:52.774843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8042 @@ -3563,6 +3563,8 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8043 TI_UINTDI_TYPE,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8044 TI_UINTTI_TYPE,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8045
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8046 + TI_UINT8_TYPE,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8047 + TI_UINT16_TYPE,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8048 TI_UINT32_TYPE,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8049 TI_UINT64_TYPE,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8050
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8051 diff -urN gcc-4.6.4-clean/gcc/version.c gcc-4.6.4/gcc/version.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8052 --- gcc-4.6.4-clean/gcc/version.c 2009-04-21 13:03:23.000000000 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8053 +++ gcc-4.6.4/gcc/version.c 2015-07-20 19:44:52.774843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8054 @@ -21,16 +21,16 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8055
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8056 /* This is the location of the online document giving instructions for
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8057 reporting bugs. If you distribute a modified version of GCC,
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8058 - please configure with --with-bugurl pointing to a document giving
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8059 - instructions for reporting bugs to you, not us. (You are of course
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8060 - welcome to forward us bugs reported to you, if you determine that
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8061 - they are not bugs in your modifications.) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8062 + please change this to refer to a document giving instructions for
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8063 + reporting bugs to you, not us. (You are of course welcome to
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8064 + forward us bugs reported to you, if you determine that they are
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8065 + not bugs in your modifications.) */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8066
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8067 -const char bug_report_url[] = BUGURL;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8068 +const char bug_report_url[] = "<URL:http://lost.l-w.ca/coco/lwtools/>";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8069
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8070 /* The complete version string, assembled from several pieces.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8071 BASEVER, DATESTAMP, DEVPHASE, and REVISION are defined by the
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8072 Makefile. */
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8073
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8074 -const char version_string[] = BASEVER DATESTAMP DEVPHASE REVISION;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8075 +const char version_string[] = BASEVER DATESTAMP DEVPHASE REVISION " (gcc6809lw pl6)";
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8076 const char pkgversion_string[] = PKGVERSION;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8077 diff -urN gcc-4.6.4-clean/libgcc/config.host gcc-4.6.4/libgcc/config.host
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8078 --- gcc-4.6.4-clean/libgcc/config.host 2011-11-23 15:15:54.000000000 -0700
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8079 +++ gcc-4.6.4/libgcc/config.host 2015-07-20 19:44:52.774843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8080 @@ -371,6 +371,8 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8081 ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8082 m32rle--linux)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8083 ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8084 +m6809*)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8085 + ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8086 m68hc11--\|m6811--)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8087 ;;
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8088 m68hc12--\|m6812--)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8089 diff -urN gcc-4.6.4-clean/libgcc/fixed-obj.mk gcc-4.6.4/libgcc/fixed-obj.mk
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8090 --- gcc-4.6.4-clean/libgcc/fixed-obj.mk 2007-09-17 16:18:13.000000000 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8091 +++ gcc-4.6.4/libgcc/fixed-obj.mk 2015-07-20 19:44:52.774843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8092 @@ -23,7 +23,7 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8093 #$(info $o$(objext): -DL$($o-label) $($o-opt))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8094
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8095 $o$(objext): %$(objext): $(gcc_srcdir)/config/fixed-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8096 - $(gcc_compile) -DL$($-label) $($-opt) -c $(gcc_srcdir)/config/fixed-bit.c $(vis_hide)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8097 + $(gcc_compile) -DL$($-label) $($-opt) -c $(gcc_srcdir)/config/fixed-bit.c $(vis_hide) -save-temps
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8098
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8099 ifeq ($(enable_shared),yes)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8100 $(o)_s$(objext): %_s$(objext): $(gcc_srcdir)/config/fixed-bit.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8101 diff -urN gcc-4.6.4-clean/libgcc/Makefile.in gcc-4.6.4/libgcc/Makefile.in
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8102 --- gcc-4.6.4-clean/libgcc/Makefile.in 2012-12-04 12:11:33.000000000 -0700
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8103 +++ gcc-4.6.4/libgcc/Makefile.in 2015-07-20 19:44:52.774843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8104 @@ -374,8 +374,8 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8105 # Build lib2funcs. For the static library also include LIB2FUNCS_ST.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8106 lib2funcs-o = $(patsubst %,%$(objext),$(lib2funcs) $(LIB2FUNCS_ST))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8107 $(lib2funcs-o): %$(objext): $(gcc_srcdir)/libgcc2.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8108 - $(gcc_compile) -DL$* -c $(gcc_srcdir)/libgcc2.c \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8109 - $(vis_hide)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8110 + ln -sf $(gcc_srcdir)/libgcc2.c $*.c && \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8111 + $(gcc_compile) -DL$* -c $*.c $(vis_hide) -save-temps
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8112 libgcc-objects += $(lib2funcs-o)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8113
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8114 ifeq ($(enable_shared),yes)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8115 @@ -410,8 +410,9 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8116 # Build LIB2_DIVMOD_FUNCS.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8117 lib2-divmod-o = $(patsubst %,%$(objext),$(LIB2_DIVMOD_FUNCS))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8118 $(lib2-divmod-o): %$(objext): $(gcc_srcdir)/libgcc2.c
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8119 - $(gcc_compile) -DL$* -c $(gcc_srcdir)/libgcc2.c \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8120 - -fexceptions -fnon-call-exceptions $(vis_hide)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8121 + ln -sf $(gcc_srcdir)/libgcc2.c $*.c && \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8122 + $(gcc_compile) -DL$* -c $*.c \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8123 + -fexceptions -fnon-call-exceptions $(vis_hide) -save-temps
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8124 libgcc-objects += $(lib2-divmod-o)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8125
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8126 ifeq ($(enable_shared),yes)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8127 @@ -443,7 +444,8 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8128 ifneq ($(FPBIT),)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8129 fpbit-o = $(patsubst %,%$(objext),$(FPBIT_FUNCS))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8130 $(fpbit-o): %$(objext): $(FPBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8131 - $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $(FPBIT) $(vis_hide)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8132 + ln -sf $(FPBIT) $*.c && \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8133 + $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $*.c $(vis_hide) -save-temps
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8134 libgcc-objects += $(fpbit-o)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8135
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8136 ifeq ($(enable_shared),yes)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8137 @@ -458,7 +460,8 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8138 ifneq ($(DPBIT),)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8139 dpbit-o = $(patsubst %,%$(objext),$(DPBIT_FUNCS))
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8140 $(dpbit-o): %$(objext): $(DPBIT)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8141 - $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $(DPBIT) $(vis_hide)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8142 + ln -sf $(DPBIT) $*.c && \
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8143 + $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $*.c $(vis_hide) -save-temps
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8144 libgcc-objects += $(dpbit-o)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8145
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8146 ifeq ($(enable_shared),yes)
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8147 diff -urN gcc-4.6.4-clean/README.LW gcc-4.6.4/README.LW
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8148 --- gcc-4.6.4-clean/README.LW 1969-12-31 17:00:00.000000000 -0700
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8149 +++ gcc-4.6.4/README.LW 2015-07-20 19:44:52.774843181 -0600
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8150 @@ -0,0 +1,14 @@
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8151 +This is a port of gcc6809 which is designed to work with the lwtools
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8152 +cross-assembler and linker package. You will need several scripts from that
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8153 +package, available at http://lost.l-w.ca/coco/lwtools/, in order to use
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8154 +this. Instructions for building are present in the lwtools package.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8155 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8156 +This work is based extensively on the gcc6809 4.3.4-3 release by Brian
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8157 +Dominy (brian@oddchange.com) with some significant renovations to make it
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8158 +work with gcc 4.6.1.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8159 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8160 +There is no guarantee that it will work for any particular purpose you
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8161 +choose to put it to.
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8162 +
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8163 +If you run into any problems, contact William Astle (lost@l-w.ca). DO NOT
3832a68d83ef Fix internal compiler error on "var2 = var1 + 1" patterns William Astle <lost@l-w.ca> parents: diff changeset	8164 +contact the main GCC developers!

Mercurial > hg > index.cgi

annotate extra/gcc6809lw-4.6.4-7.patch @ 467:a6c9129e5948