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

annotate extra/gcc6809lw-4.6.4-9.patch @ 473:8181ddd707f1

Add "nooutput" pragma Add the "nooutput" pragma which causes assembly to proceed as normal for code with the exception that no output is generated for any instructions under this pragma. The current address is increased as usual and the symbol table is still constructed. However, no actual output is generated for lines operating under this pragma.

author	William Astle <lost@l-w.ca>
date	Thu, 01 Nov 2018 23:07:03 -0600
parents	639d19f5fb8e
children

rev	line source
447 639d19f5fb8e Source cleanups and "prototype" target for gcc6809 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
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 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
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3 +++ gcc-4.6.4/config.sub 2017-11-28 21:12:11.136911706 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4 @@ -313,7 +313,7 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5 c6x)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6 basic_machine=tic6x-unknown
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7 ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8 - m6811 \| m68hc11 \| m6812 \| m68hc12 \| picochip)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	9 + m6809 \| m6811 \| m68hc11 \| m6812 \| m68hc12 \| picochip)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	10 # Motorola 68HC11/12.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	11 basic_machine=$basic_machine-unknown
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	12 os=-none
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	13 @@ -354,7 +354,7 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	14 \| i86- \| i860-* \| i960-* \| ia64-* \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	15 \| ip2k-* \| iq2000-* \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	16 \| lm32-* \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	17 - \| m32c-* \| m32r-* \| m32rle-* \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	18 + \| m32c-* \| m32r-* \| m32rle-* \| m6809-* \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	19 \| m68000-* \| m680[012346]0-* \| m68360-* \| m683?2-* \| m68k-* \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	20 \| m88110-* \| m88k-* \| maxq-* \| mcore-* \| metag-* \| microblaze-* \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	21 \| mips-* \| mipsbe-* \| mipseb-* \| mipsel-* \| mipsle-* \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	22 @@ -509,6 +509,10 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	23 basic_machine=arm-unknown
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	24 os=-cegcc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	25 ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	26 + coco)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	27 + basic_machine=coco
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	28 + os=-none
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	29 + ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	30 convex-c1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	31 basic_machine=c1-convex
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	32 os=-bsd
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	33 diff -urN gcc-4.6.4-clean/configure gcc-4.6.4/configure
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	34 --- gcc-4.6.4-clean/configure 2011-12-18 03:03:44.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	35 +++ gcc-4.6.4/configure 2017-11-28 21:12:11.136911706 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	36 @@ -3439,6 +3439,9 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	37 m32r--)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	38 noconfigdirs="$noconfigdirs ${libgcj}"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	39 ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	40 + m6809*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	41 + noconfigdirs="$noconfigdirs target-libiberty target-libstdc++-v3 target-libgloss ${libgcj}"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	42 + ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	43 m68hc11--\|m6811--\|m68hc12--\|m6812--)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	44 noconfigdirs="$noconfigdirs target-libstdc++-v3 ${libgcj}"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	45 libgloss_dir=m68hc11
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 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
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 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
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	48 +++ gcc-4.6.4/configure.ac 2017-11-28 21:12:11.140911685 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	49 @@ -885,6 +885,9 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	50 m32r--)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	51 noconfigdirs="$noconfigdirs ${libgcj}"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	52 ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	53 + m6809*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	54 + noconfigdirs="$noconfigdirs target-libiberty target-libstdc++-v3 target-libgloss ${libgcj}"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	55 + ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	56 m68hc11--\|m6811--\|m68hc12--\|m6812--)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	57 noconfigdirs="$noconfigdirs target-libstdc++-v3 ${libgcj}"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	58 libgloss_dir=m68hc11
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 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
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 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
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	61 +++ gcc-4.6.4/gcc/calls.c 2017-11-28 21:12:11.140911685 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	62 @@ -2561,7 +2561,7 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	63 call sequence.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	64 Also do the adjustments before a throwing call, otherwise
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	65 exception handling can fail; PR 19225. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	66 - if (pending_stack_adjust >= 32
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	67 + if (pending_stack_adjust >= 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	68 \|\| (pending_stack_adjust > 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	69 && (flags & ECF_MAY_BE_ALLOCA))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	70 \|\| (pending_stack_adjust > 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 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
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 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
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	73 +++ gcc-4.6.4/gcc/config/m6809/crt0.S 2017-11-29 17:11:09.221248469 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	74 @@ -0,0 +1,182 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	75 +;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	76 +;;; Copyright 2006, 2007, 2008, 2009 by Brian Dominy <brian@oddchange.com>
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	77 +;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	78 +;;; This file is part of GCC.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	79 +;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	80 +;;; GCC is free software; you can redistribute it and/or modify
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	81 +;;; it under the terms of the GNU General Public License as published by
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	82 +;;; the Free Software Foundation; either version 3, or (at your option)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	83 +;;; any later version.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	84 +;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	85 +;;; GCC is distributed in the hope that it will be useful,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	86 +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	87 +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	88 +;;; GNU General Public License for more details.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	89 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	90 +;;; You should have received a copy of the GNU General Public License
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	91 +;;; along with GCC; see the file COPYING3. If not see
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	92 +;;; <http://www.gnu.org/licenses/>.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	93 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	94 + /* Declare external for main() */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	95 + .globl _main
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	96 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	97 +/* The startup is heavily dependent on the type of machine and
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	98 +OS environment that is available at the start point.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	99 +For the most part, the general idea is the same across machines,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	100 +but the implementation is vastly different. This is managed via
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	101 +conditional compiles throughout the startup code for each of the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	102 +supported machines. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	103 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	104 +#if defined(TARGET_COCO) /* CoCo memory map */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	105 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	106 +#define COCO_RAMROM_MODE 0xFFDE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	107 +#define COCO_ALLRAM_MODE 0xFFDF
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	108 +#define COCO_PAGE1 0xFFD5
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	109 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	110 +/* SAM M1 and M0 adjusts the memory size */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	111 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	112 +#define BASIC_WARMSTART_FLAG 0x0071
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	113 +#define BASIC_START 0xA027
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	114 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	115 +#define __STACK_TOP 0x6800
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	116 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	117 +#elif defined(TARGET_PROTO) /* Prototype hardware. Customisation of this section is expected! */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	118 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	119 +#define __STACK_TOP 0x8000
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	120 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	121 +#else /* Simulator (default) memory map */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	122 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	123 +#define SIM_EXIT_REG 0xFF01
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	124 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	125 +#define __STACK_TOP 0xFE00
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	126 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	127 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	128 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	129 + .area .data
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	130 + .area .ctors
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	131 + .area .dtors
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	132 + .area .bss
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	133 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	134 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	135 + ;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	136 + ;;; __exit : Exit point from the program
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	137 + ;;; For simulation, this writes to a special I/O register that
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	138 + ;;; the simulator interprets as end-of-program.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	139 + ;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	140 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	141 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	142 + .globl __exit
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	143 +__exit:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	144 +#if defined(TARGET_COCO)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	145 + ;; Go back to ROM/RAM mode
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	146 + sta COCO_RAMROM_MODE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	147 + clr BASIC_WARMSTART_FLAG
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	148 + jmp BASIC_START
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	149 +#elif defined(TARGET_PROTO) /* Prototype hardware. Customisation of this section is expected! */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	150 + tfr x,d
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	151 +__ex@0 bra __ex@0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	152 +#else /* Simulator */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	153 + tfr x,d
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	154 + stb SIM_EXIT_REG
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	155 + bra __exit
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	156 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	157 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	158 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	159 + ;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	160 + ;;; __start : Entry point to the program
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	161 + ;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	162 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	163 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	164 + .globl __start
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	165 +__start:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	166 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	167 +#if defined(HAVE_DIRECT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	168 + ;; Initialize the direct page pointer
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	169 + lda #<s_.direct
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	170 + tfr a,dp
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	171 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	172 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	173 +#if defined(TARGET_COCO)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	174 + ;; Turn off interrupts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	175 + orcc #(0x10\|0x40)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	176 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	177 + ;; Setup All RAM Mode
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	178 + sta COCO_ALLRAM_MODE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	179 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	180 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	181 + ;; Initialize the stack. NMI works after this point.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	182 + lds #__STACK_TOP - 2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	183 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	184 + ;; Set up hardware; console device, video etc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	185 +#if defined(TARGET_PROTO) /* Prototype hardware. Customisation of this section is expected! */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	186 + lbsr _initialise_hardware
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	187 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	188 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	189 + ;; Call any constructors that may be present
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	190 + ldu #s_.ctors
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	191 +__ctors_loop:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	192 + ldy ,u++
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	193 + cmpy #0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	194 + beq __ctors_done
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	195 + jsr ,y
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	196 + bra __ctors_loop
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	197 +__ctors_done:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	198 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	199 + ;; Enable interrupts if not on COCO
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	200 +#if !defined(TARGET_COCO)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	201 + andcc #~(0x10\|0x40)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	202 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	203 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	204 + ;; Set up the environment
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	205 + ldu #s_.bss
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	206 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	207 + ;; Set up argc/argv arrays
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	208 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	209 + ;; Call the main function. The exit code will
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	210 + ;; be returned in the X register, unless compiled
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	211 + ;; with -mdret, in which case it comes back in D.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	212 + jsr _main
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	213 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	214 + ;; Call any destructors
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	215 + ldu #s_.dtors
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	216 +__dtors_loop:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	217 + ldy ,u++
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	218 + cmpy #0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	219 + beq __dtors_done
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	220 + jsr ,y
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	221 + bra __dtors_loop
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	222 +__dtors_done:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	223 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	224 + ;; If main returns, then invoke _*exit() to stop the program
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	225 + ;; The C library doesn't support -mdret yet, so move the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	226 + ;; argument first.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	227 +#if defined(__DRET__)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	228 + tfr d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	229 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	230 + ;; The newlib exit() is an absolute pig. In calling __call_exitprocs(), it brings with
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	231 + ;; it the kitchen sink, notably malloc() and friends which are enormous.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	232 + jmp __exit
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	233 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	234 + ;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	235 + ;;; __crt0_vector : Default handler for interrupts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	236 + ;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	237 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	238 +___crt0_vector:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	239 + ;; The default behavior is to simply ignore all
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	240 + ;; non-reset interrupts.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	241 + rti
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	242 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	243 + ;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	244 + ;;; vector : The interrupt vector table
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	245 + ;;; The linker will ensure that this gets loaded at address 0xFFF0.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	246 + ;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	247 + .area vector
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	248 +vectors:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	249 + .word ___crt0_vector
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	250 + .word ___crt0_vector
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	251 + .word ___crt0_vector
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	252 + .word ___crt0_vector
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	253 + .word ___crt0_vector
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	254 + .word ___crt0_vector
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	255 + .word ___crt0_vector
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	256 + .word __start
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	257 diff -urN gcc-4.6.4-clean/gcc/config/m6809/libgcc1.s gcc-4.6.4/gcc/config/m6809/libgcc1.s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	258 --- gcc-4.6.4-clean/gcc/config/m6809/libgcc1.s 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	259 +++ gcc-4.6.4/gcc/config/m6809/libgcc1.s 2017-11-28 21:12:11.152911619 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	260 @@ -0,0 +1,511 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	261 +/* libgcc routines for m6809
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	262 + Copyright (C) 2006 Free Software Foundation, Inc.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	263 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	264 +This file is part of GCC.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	265 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	266 +GCC is free software; you can redistribute it and/or modify
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	267 +it under the terms of the GNU General Public License as published by
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	268 +the Free Software Foundation; either version 3, or (at your option)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	269 +any later version.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	270 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	271 +GCC is distributed in the hope that it will be useful,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	272 +but WITHOUT ANY WARRANTY; without even the implied warranty of
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	273 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	274 +GNU General Public License for more details.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	275 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	276 +You should have received a copy of the GNU General Public License
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	277 +along with GCC; see the file COPYING3. If not see
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	278 +<http://www.gnu.org/licenses/>. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	279 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	280 +/* As a special exception, if you link this library with other files,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	281 + some of which are compiled with GCC, to produce an executable,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	282 + this library does not by itself cause the resulting executable
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	283 + to be covered by the GNU General Public License.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	284 + This exception does not however invalidate any other reasons why
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	285 + the executable file might be covered by the GNU General Public License. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	286 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	287 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	288 +#define SIGFPE jmp _abort
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	289 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	290 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	291 + ; Shift functions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	292 + ; On input, D is value to be shifted, and X has shift count.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	293 + ; Result is also in D.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	294 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	295 +#ifdef L_ashlhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	296 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	297 + .globl _ashlhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	298 +_ashlhi3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	299 + pshs x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	300 +1$:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	301 + leax -1,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	302 + cmpx #-1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	303 + beq 2$
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	304 + aslb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	305 + rola
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	306 + bra 1$
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	307 +2$:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	308 + puls x,pc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	309 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	310 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	311 +#ifdef L_ashrhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	312 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	313 + .globl _ashrhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	314 +_ashrhi3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	315 + pshs x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	316 +1$:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	317 + leax -1,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	318 + cmpx #-1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	319 + beq 2$
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	320 + asra
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	321 + rorb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	322 + bra 1$
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	323 +2$:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	324 + puls x,pc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	325 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	326 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	327 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	328 +#ifdef L_lshrhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	329 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	330 + .globl _lshrhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	331 +_lshrhi3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	332 + pshs x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	333 +1$:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	334 + leax -1,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	335 + cmpx #-1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	336 + beq 2$
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	337 + lsra
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	338 + rorb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	339 + bra 1$
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	340 +2$:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	341 + puls x,pc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	342 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	343 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	344 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	345 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	346 +#ifdef L_softregs
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	347 + .area direct
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	348 + .globl m0, m1, m2, m3, m4, m5, m6, m7
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	349 + .globl m8, m9, m10, m11, m12, m13, m14, m15
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	350 +m0: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	351 +m1: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	352 +m2: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	353 +m3: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	354 +m4: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	355 +m5: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	356 +m6: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	357 +m7: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	358 +m8: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	359 +m9: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	360 +m10: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	361 +m11: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	362 +m12: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	363 +m13: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	364 +m14: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	365 +m15: .blkb 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	366 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	367 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	368 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	369 +#ifdef L_ashlsi3_one
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	370 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	371 + .globl _ashlsi3_one
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	372 +_ashlsi3_one:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	373 + asl 3,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	374 + rol 2,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	375 + rol 1,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	376 + rol ,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	377 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	378 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	379 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	380 +#ifdef L_ashlsi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	381 + /* X points to the SImode (source/dest)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	382 + B is the count */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	383 +_ashlsi3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	384 + pshs u
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	385 + cmpb #16
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	386 + blt try8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	387 + subb #16
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	388 + ; Shift by 16
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	389 + ldu 2,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	390 + stu ,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	391 +try8:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	392 + cmpb #8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	393 + blt try_rest
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	394 + subb #8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	395 + ; Shift by 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	396 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	397 +try_rest:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	398 + tstb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	399 + beq done
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	400 +do_rest:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	401 + ; Shift by 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	402 + asl 3,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	403 + rol 2,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	404 + rol 1,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	405 + rol ,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	406 + decb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	407 + bne do_rest
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	408 +done:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	409 + puls u,pc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	410 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	411 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	412 +#ifdef L_ashrsi3_one
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	413 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	414 + .globl _ashlsi3_one
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	415 +_ashrsi3_one:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	416 + asr ,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	417 + ror 1,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	418 + ror 2,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	419 + ror 3,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	420 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	421 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	422 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	423 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	424 +#ifdef L_lshrsi3_one
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	425 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	426 + .globl _lshrsi3_one
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	427 +_lshrsi3_one:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	428 + lsr ,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	429 + ror 1,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	430 + ror 2,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	431 + ror 3,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	432 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	433 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	434 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	435 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	436 +#ifdef L_clzsi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	437 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	438 + .globl ___clzhi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	439 + ; Input: X = 16-bit unsigned integer
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	440 + ; Output: X = number of leading zeros
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	441 + ; This function destroys the value in D.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	442 +___clzhi2:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	443 + pshs x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	444 + ; Find the offset of the leftmost '1' bit in
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	445 + ; the left half of the word.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	446 + ;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	447 + ; Bits are numbered in the table with 1 meaning the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	448 + ; LSB and 8 meaning the MSB.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	449 + ;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	450 + ; If nonzero, then clz is 8-a.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	451 + tfr x,d
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	452 + ldx #___clz_tab
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	453 + tfr a,b
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	454 + clra
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	455 + ldb d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	456 + bne upper_bit_set
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	457 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	458 +lower_bit_set:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	459 + ; If the upper byte is zero, then check the lower
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	460 + ; half of the word. Return 16-a.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	461 + puls d
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	462 + clra
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	463 + ldb d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	464 + negb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	465 + addb #16
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	466 + bra done
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	467 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	468 +upper_bit_set:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	469 + negb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	470 + addb #8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	471 + puls x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	472 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	473 +done:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	474 + tfr d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	475 + puls pc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	476 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	477 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	478 +#ifdef L_clzdi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	479 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	480 + .globl ___clzsi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	481 + ; Input: 32-bit unsigned integer is on the stack, just
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	482 + ; above the return address
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	483 + ; Output: X = number of leading zeros
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	484 +___clzsi2:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	485 + ; Check the upper 16-bit word
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	486 + ; If it is not zero, then return clzhi2(X).
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	487 + ; A branch can be used instead of a call since no
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	488 + ; postprocessing is needed. Use long branch form
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	489 + ; though since functions may not be near each other.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	490 + ldx 2,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	491 + lbne ___clzhi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	492 + ldx 4,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	493 + jsr ___clzhi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	494 + leax 16,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	495 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	496 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	497 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	498 +#ifdef L_ctzsi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	499 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	500 + .globl ___ctzhi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	501 + ; Input: X = 16-bit unsigned integer
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	502 + ; Output: X = number of trailing zeros
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	503 + ; F(x) = 15 - clzhi2(X & -x)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	504 + ; This function destroys the value in D.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	505 +___ctzhi2:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	506 + tfr x,d
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	507 + coma
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	508 + comb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	509 + addd #1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	510 + pshs a
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	511 + pshs b
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	512 + tfr x,d
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	513 + andb ,s+
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	514 + anda ,s+
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	515 + tfr d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	516 + jsr ___clzhi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	517 + tfr x,d
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	518 + subd #16
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	519 + coma
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	520 + comb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	521 + tfr d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	522 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	523 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	524 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	525 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	526 +#ifdef L_ctzdi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	527 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	528 + .globl ___ctzsi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	529 + ; Input: 32-bit unsigned integer is on the stack, just
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	530 + ; above the return address
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	531 + ; Output: X = number of leading zeros
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	532 +___ctzsi2:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	533 + ; Check the lower 16-bit word
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	534 + ; If it is not zero, then return ctzhi2(X).
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	535 + ; A branch can be used instead of a call since no
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	536 + ; postprocessing is needed. Use long branch form
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	537 + ; though since functions may not be near each other.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	538 + ldx 4,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	539 + lbne ___ctzhi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	540 + ldx 2,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	541 + jsr ___ctzhi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	542 + leax 16,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	543 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	544 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	545 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	546 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	547 +#ifdef L_mulhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	548 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	549 +;;; ___mulhi3 - signed/unsigned multiply
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	550 +;;; Called by GCC to implement 16x16 multiplication
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	551 +;;; Arguments: Two 16-bit values, one in stack, one in X.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	552 +;;; Result: 16-bit result in X
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	553 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	554 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	555 + .globl _mulhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	556 +_mulhi3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	557 + pshs x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	558 + lda 5,s ; left msb * right lsb * 256
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	559 + ldb ,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	560 + mul
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	561 + tfr b,a
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	562 + clrb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	563 + tfr d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	564 + ldb 1,s ; left lsb * right msb * 256
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	565 + lda 4,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	566 + mul
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	567 + tfr b,a
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	568 + clrb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	569 + leax d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	570 + ldb 1,s ; left lsb * right lsb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	571 + lda 5,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	572 + mul
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	573 + leax d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	574 + puls d,pc ; kill D to remove initial push
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	575 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	576 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	577 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	578 +#ifdef L_divhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	579 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	580 +;;; ___divhi3 - signed division
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	581 +;;; Arguments: Dividend in X, divisor on the stack
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	582 +;;; Returns result in X.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	583 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	584 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	585 + .globl _divhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	586 +_divhi3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	587 + ldd 2,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	588 + bne do_div ; check dividend
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	589 + SIGFPE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	590 +do_div:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	591 + pshs x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	592 + jsr _seuclid
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	593 + puls x,pc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	594 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	595 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	596 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	597 +#ifdef L_modhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	598 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	599 +;;; ___modhi3 - signed modulo
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	600 +;;; Arguments: Dividend in X, divisor on the stack
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	601 +;;; Returns result in X.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	602 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	603 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	604 + .globl _modhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	605 +_modhi3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	606 + ldd 2,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	607 + bne do_mod ; check dividend
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	608 + SIGFPE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	609 +do_mod:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	610 + pshs x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	611 + jsr _seuclid
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	612 + leas 2,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	613 + tfr d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	614 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	615 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	616 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	617 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	618 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	619 +#ifdef L_udivhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	620 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	621 +;;; ___udivhi3 - unsigned division
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	622 +;;; Arguments: Dividend in X, divisor on the stack
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	623 +;;; Returns result in X.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	624 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	625 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	626 + .globl _udivhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	627 +_udivhi3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	628 + ldd 2,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	629 + bne do_udiv ; check dividend
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	630 + SIGFPE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	631 +do_udiv:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	632 + pshs x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	633 + jsr _euclid
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	634 + puls x,pc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	635 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	636 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	637 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	638 +#ifdef L_umodhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	639 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	640 +;;; ___umodhi3 - unsigned modulo
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	641 +;;; Arguments: Dividend in X, divisor on the stack
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	642 +;;; Returns result in X.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	643 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	644 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	645 + .globl _umodhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	646 +_umodhi3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	647 + ldd 2,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	648 + bne do_umod ; check dividend
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	649 + SIGFPE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	650 +do_umod:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	651 + pshs x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	652 + jsr _euclid
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	653 + leas 2,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	654 + tfr d,x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	655 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	656 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	657 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	658 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	659 +#ifdef L_euclid
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	660 +; unsigned euclidean division
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	661 +; calling: (left / right)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	662 +; push left
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	663 +; ldd right
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	664 +; jsr _euclid
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	665 +; quotient on the stack (left)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	666 +; modulus in d
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	667 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	668 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	669 + .globl _euclid
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	670 + left=5
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	671 + right=1 ; word
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	672 + count=0 ; byte
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	673 + CARRY=1 ; alias
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	674 +_euclid:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	675 + leas -3,s ; 2 local variables
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	676 + clr count,s ; prescale divisor
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	677 + inc count,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	678 + tsta
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	679 +presc:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	680 + bmi presc_done
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	681 + inc count,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	682 + aslb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	683 + rola
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	684 + bra presc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	685 +presc_done:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	686 + std right,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	687 + ldd left,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	688 + clr left,s ; quotient = 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	689 + clr left+1,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	690 +mod1:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	691 + subd right,s ; check subtract
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	692 + bcc mod2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	693 + addd right,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	694 + andcc #~CARRY
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	695 + bra mod3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	696 +mod2:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	697 + orcc #CARRY
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	698 +mod3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	699 + rol left+1,s ; roll in carry
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	700 + rol left,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	701 + lsr right,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	702 + ror right+1,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	703 + dec count,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	704 + bne mod1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	705 + leas 3,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	706 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	707 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	708 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	709 +#ifdef L_seuclid
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	710 +; signed euclidean division
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	711 +; calling: (left / right)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	712 +; push left
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	713 +; ldd right
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	714 +; jsr _seuclid
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	715 +; quotient on the stack (left)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	716 +; modulus in d
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	717 + .area .text
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	718 + .globl _seuclid
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	719 + left=6
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	720 + right=2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	721 + quot_sign=1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	722 + mod_sign=0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	723 +_seuclid:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	724 + leas -4,s ; 3 local variables
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	725 + std right,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	726 + clr mod_sign,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	727 + clr quot_sign,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	728 + ldd left,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	729 + bge mod_abs
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	730 + inc mod_sign,s ; sign(mod) = sign(left)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	731 + inc quot_sign,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	732 + bsr negd ; abs(left) -> D
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	733 +mod_abs:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	734 + pshs b,a ; push abs(left)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	735 + ldd right+2,s ; all references shifted by 2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	736 + bge quot_abs
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	737 + dec quot_sign+2,s ; sign(quot) = sign(left) XOR sign(right)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	738 + bsr negd ; abs(right) -> D
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	739 +quot_abs:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	740 + jsr _euclid ; call (unsigned) euclidean division
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	741 + std right+2,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	742 + puls a,b ; quot -> D
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	743 + tst quot_sign,s ; all references no longer shifted
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	744 + beq quot_done
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	745 + bsr negd
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	746 +quot_done:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	747 + std left,s ; quot -> left
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	748 + ldd right,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	749 + tst mod_sign,s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	750 + beq mod_done
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	751 + bsr negd
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	752 +mod_done:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	753 + leas 4,s ; destroy stack frame
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	754 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	755 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	756 +negd: ; self-explanatory !
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	757 + nega
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	758 + negb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	759 + sbca #0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	760 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	761 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	762 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	763 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	764 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	765 +#ifdef L_pending_addsi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	766 +_addsi3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	767 + rts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	768 +#endif /* L_pending_addsi3 */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	769 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	770 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	771 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	772 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.c gcc-4.6.4/gcc/config/m6809/m6809.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	773 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.c 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	774 +++ gcc-4.6.4/gcc/config/m6809/m6809.c 2017-11-29 17:11:09.221248469 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	775 @@ -0,0 +1,3027 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	776 +/*-------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	777 + FILE: m6809.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	778 +-------------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	779 +/* Subroutines for insn-output.c for MC6809.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	780 + Copyright (C) 1989-2007 Free Software Foundation, Inc.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	781 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	782 + MC6809 Version by Tom Jones (jones@sal.wisc.edu)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	783 + Space Astronomy Laboratory
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	784 + University of Wisconsin at Madison
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	785 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	786 + minor changes to adapt it to gcc-2.5.8 by Matthias Doerfel
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	787 + ( msdoerfe@informatik.uni-erlangen.de )
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	788 + also added #pragma interrupt (inspired by gcc-6811)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	789 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	790 + minor changes to adapt it to gcc-2.8.0 by Eric Botcazou
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	791 + (ebotcazou@multimania.com)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	792 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	793 + minor changes to adapt it to gcc-2.95.3 by Eric Botcazou
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	794 + (ebotcazou@multimania.com)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	795 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	796 + major cleanup, improvements, and upgrade to gcc 3.4 by Brian Dominy
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	797 + (brian@oddchange.com)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	798 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	799 + additional adjustments, etc., for gcc 4.6.1 by William Astle (lost@l-w.ca)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	800 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	801 +This file is part of GCC.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	802 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	803 +GCC is free software; you can redistribute it and/or modify
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	804 +it under the terms of the GNU General Public License as published by
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	805 +the Free Software Foundation; either version 3, or (at your option)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	806 +any later version.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	807 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	808 +GCC is distributed in the hope that it will be useful,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	809 +but WITHOUT ANY WARRANTY; without even the implied warranty of
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	810 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	811 +GNU General Public License for more details.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	812 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	813 +You should have received a copy of the GNU General Public License
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	814 +along with GCC; see the file COPYING3. If not see
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	815 +<http://www.gnu.org/licenses/>. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	816 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	817 +#include <string.h>
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	818 +#include <time.h>
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	819 +#include <sys/types.h>
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	820 +#include <sys/timeb.h>
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	821 +#include <stdio.h>
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	822 +#include "config.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	823 +#include "system.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	824 +#include "coretypes.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	825 +#include "tm.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	826 +#include "tree.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	827 +#include "rtl.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	828 +#include "tm_p.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	829 +#include "regs.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	830 +#include "flags.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	831 +#include "hard-reg-set.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	832 +#include "real.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	833 +#include "tree.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	834 +#include "insn-config.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	835 +#include "conditions.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	836 +#include "insn-flags.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	837 +#include "output.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	838 +#include "insn-attr.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	839 +#include "function.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	840 +#include "target.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	841 +#include "target-def.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	842 +#include "expr.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	843 +#include "recog.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	844 +#include "cpplib.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	845 +#include "c-family/c-pragma.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	846 +#include "c-family/c-common.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	847 +#include "toplev.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	848 +#include "optabs.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	849 +#include "version.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	850 +#include "df.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	851 +#include "rtlhooks-def.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	852 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	853 +/* macro to return TRUE if length of operand mode is one byte */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	854 +#define BYTE_MODE(X) ((GET_MODE_SIZE (GET_MODE (X))) == 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	855 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	856 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	857 +/* REAL_REG_P(x) is a true if the rtx 'x' represents a real CPU
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	858 +register and not a fake one that is emulated in software. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	859 +#define REAL_REG_P(x) (REG_P(x) && !M_REG_P(x))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	860 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	861 +/*-------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	862 + Target hooks, moved from target.h
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	863 +-------------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	864 +static void m6809_encode_section_info (tree decl, rtx rtl, int new_decl_p ATTRIBUTE_UNUSED);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	865 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	866 +#undef TARGET_ENCODE_SECTION_INFO
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	867 +#define TARGET_ENCODE_SECTION_INFO m6809_encode_section_info
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	868 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	869 +#undef TARGET_ASM_FILE_START
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	870 +#define TARGET_ASM_FILE_START m6809_asm_file_start
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	871 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	872 +#undef TARGET_ASM_ALIGNED_HI_OP
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	873 +#define TARGET_ASM_ALIGNED_HI_OP "\t.word\t"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	874 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	875 +#undef TARGET_ASM_ALIGNED_SI_OP
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	876 +#define TARGET_ASM_ALIGNED_SI_OP NULL
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	877 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	878 +#undef TARGET_ASM_UNALIGNED_HI_OP
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	879 +#define TARGET_ASM_UNALIGNED_HI_OP "\t.word\t"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	880 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	881 +#undef TARGET_ASM_UNALIGNED_SI_OP
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	882 +#define TARGET_ASM_UNALIGNED_SI_OP NULL
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	883 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	884 +#undef TARGET_RTX_COSTS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	885 +#define TARGET_RTX_COSTS m6809_rtx_costs
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	886 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	887 +#undef TARGET_ATTRIBUTE_TABLE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	888 +#define TARGET_ATTRIBUTE_TABLE m6809_attribute_table
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	889 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	890 +#undef TARGET_INIT_BUILTINS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	891 +#define TARGET_INIT_BUILTINS m6809_init_builtins
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	892 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	893 +#undef TARGET_EXPAND_BUILTIN
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	894 +#define TARGET_EXPAND_BUILTIN m6809_expand_builtin
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	895 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	896 +#undef TARGET_DEFAULT_TARGET_FLAGS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	897 +#define TARGET_DEFAULT_TARGET_FLAGS (MASK_REG_ARGS \| MASK_DIRECT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	898 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	899 +#undef TARGET_FUNCTION_OK_FOR_SIBCALL
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	900 +#define TARGET_FUNCTION_OK_FOR_SIBCALL m6809_function_ok_for_sibcall
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	901 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	902 +#undef TARGET_ASM_TRAMPOLINE_TEMPLATE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	903 +#define TARGET_ASM_TRAMPOLINE_TEMPLATE m6809_asm_trampoline_template
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	904 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	905 +#undef TARGET_TRAMPOLINE_INIT
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	906 +#define TARGET_TRAMPOLINE_INIT m6809_initialize_trampoline
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	907 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	908 +#undef TARGET_FRAME_POINTER_REQUIRED
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	909 +#define TARGET_FRAME_POINTER_REQUIRED m6809_frame_pointer_required
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	910 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	911 +#undef TARGET_OPTION_OVERRIDE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	912 +#define TARGET_OPTION_OVERRIDE m6809_override_options
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	913 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	914 +/* External variables used */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	915 +extern int reload_completed; /* set in toplev.c */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	916 +extern FILE *asm_out_file;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	917 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	918 +static int last_mem_size; /* operand size (bytes) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	919 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	920 +/* True if the section was recently changed and another .area
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	921 + * directive needs to be output before emitting the next label. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	922 +int section_changed = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	923 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	924 +/* Section names. The defaults here are used until an
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	925 + * __attribute__((section)) is seen that changes it. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	926 +char code_section_op[128] = "\n\t.area\t.text";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	927 +char data_section_op[128] = "\n\t.area\t.data";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	928 +char bss_section_op[128] = "\n\t.area\t.bss";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	929 +const char *code_bank_option = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	930 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	931 +/* TRUE if the direct mode prefix might be valid in this context.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	932 + * This is set by 'print_address' prior to calling output_addr_const,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	933 + * which performs into 'print_direct_prefix' to do the final checks. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	934 +static int check_direct_prefix_flag;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	935 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	936 +/* Nonzero if an address is being printed in a context which does not
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	937 + * permit any PIC modifications to the address */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	938 +static int pic_ok_for_addr_p = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	939 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	940 +/* Current code page. This supports machines which can do bank
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	941 + * switching to allow for more than 64KB of code/data. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	942 +char far_code_page[64];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	943 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	944 +/* Current bank name */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	945 +static char current_bank_name[8] = "-1";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	946 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	947 +/* Default bank name */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	948 +static char default_code_bank_name[8] = "-1";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	949 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	950 +/* Direct memory reserved as soft registers */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	951 +unsigned int m6809_soft_regs = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	952 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	953 +/* ABI version */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	954 +unsigned int m6809_abi_version = M6809_ABI_VERSION_REGS;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	955 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	956 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	957 +/**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	958 + * Called after options have been parsed.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	959 + * If overrides have been specified on the command-line, then
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	960 + * these values are copied into the main storage variables.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	961 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	962 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	963 +m6809_override_options (void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	964 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	965 + /* Handle -mfar-code-page */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	966 + if (far_code_page_option == 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	967 + far_code_page_option = "__default_code_page";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	968 + strcpy (far_code_page, far_code_page_option);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	969 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	970 + /* Handle -mcode-section, -mdata-section, and -mbss-section */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	971 + if (code_section_ptr != 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	972 + sprintf (code_section_op, "\t.area\t%s", code_section_ptr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	973 + if (data_section_ptr != 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	974 + sprintf (data_section_op, "\t.area\t%s", data_section_ptr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	975 + if (bss_section_ptr != 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	976 + sprintf (bss_section_op, "\t.area\t%s", bss_section_ptr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	977 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	978 + /* Handle -mcode-bank */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	979 + if (code_bank_option != 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	980 + sprintf (default_code_bank_name, "%s", code_bank_option);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	981 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	982 + /* Handle -mabi-version or -mno-reg-args */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	983 + if (m6809_abi_version_ptr != 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	984 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	985 + if (!strcmp (m6809_abi_version_ptr, "stack"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	986 + m6809_abi_version = M6809_ABI_VERSION_STACK;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	987 + else if (!strcmp (m6809_abi_version_ptr, "regs"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	988 + m6809_abi_version = M6809_ABI_VERSION_REGS;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	989 + else if (!strcmp (m6809_abi_version_ptr, "bx"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	990 + m6809_abi_version = M6809_ABI_VERSION_BX;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	991 + else if (!strcmp (m6809_abi_version_ptr, "latest"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	992 + m6809_abi_version = M6809_ABI_VERSION_LATEST;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	993 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	994 + m6809_abi_version = atoi (m6809_abi_version_ptr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	995 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	996 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	997 + /* The older -mno-reg-args option is deprecated, and treated
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	998 + as -mabi=stack. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	999 + if (!TARGET_REG_ARGS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1000 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1001 + warning (WARNING_OPT "-mno-reg-args deprecated; use -mabi=stack instead.");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1002 + m6809_abi_version = M6809_ABI_VERSION_STACK;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1003 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1004 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1005 + /* -fexceptions is unsupported */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1006 + flag_exceptions = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1007 + flag_non_call_exceptions = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1008 + flag_unwind_tables = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1009 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1010 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1011 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1012 +/**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1013 + * Output prefix that directs the assembler to use a direct-mode
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1014 + * instruction if globally enabled, address is a symbol, and symbol
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1015 + * has been marked as in direct page. Also, never do this if
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1016 + * using the indirect mode. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1017 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1018 +print_direct_prefix (FILE * file, rtx addr)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1019 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1020 + if (TARGET_DIRECT &&
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1021 + (GET_CODE (addr) == SYMBOL_REF) &&
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1022 + SYMBOL_REF_FLAG (addr) &&
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1023 + check_direct_prefix_flag)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1024 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1025 + putc ('*', file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1026 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1027 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1028 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1029 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1030 +/** Prints an operand (that is not an address) in assembly from RTL. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1031 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1032 +print_operand (FILE * file, rtx x, int code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1033 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1034 + if (REG_P (x)) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1035 + /* gcc currently allocates the entire 16-bit 'd' register
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1036 + * even when it only needs an 8-bit value. So here it
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1037 + * is tricked into printing only the lower 8-bit 'b'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1038 + * register into the assembly output.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1039 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1040 + * Eventually gcc should be modified to allocate a/b
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1041 + * independently and this hack can be removed.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1042 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1043 + * Occasionally, we may want to do an operation using
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1044 + * the 'a' register instead of 'b'; use the 'A' code
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1045 + * to specify that.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1046 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1047 + if (code == 'A')
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1048 + fputs ("a", file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1049 + else if ((BYTE_MODE (x)) && (REGNO (x) == HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1050 + fputs ("b", file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1051 + else if (M_REG_P (x) && code == 'L')
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1052 + /* Soft registers can be treated like memory and accessed
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1053 + * at a particular offset. TODO : handle 'W' */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1054 + fputs (reg_names[REGNO (x)+1], file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1055 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1056 + fputs (reg_names[REGNO (x)], file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1057 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1058 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1059 + else if (MEM_P (x)) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1060 + last_mem_size = GET_MODE_SIZE (GET_MODE (x));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1061 + if (code == 'L') { /* LSH of word address */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1062 + if (GET_CODE (XEXP (x, 0)) == MEM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1063 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1064 + /* Offseting an indirect addressing mode is not supported */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1065 + error ("expression too complex for 6809 (offset indirect mode)");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1066 + debug_rtx (x);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1067 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1068 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1069 + x = adjust_address (x, QImode, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1070 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1071 + else if (code == 'M') { /* MSH of word address */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1072 + if (GET_CODE (XEXP (x, 0)) == MEM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1073 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1074 + /* Offseting an indirect addressing mode is not supported */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1075 + error ("expression too complex for 6809 (offset indirect mode)");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1076 + debug_rtx (x);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1077 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1078 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1079 + x = adjust_address (x, QImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1080 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1081 + else if (code == 'W') { /* least significant half of 32-bit */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1082 + x = adjust_address (x, HImode, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1083 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1084 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1085 + pic_ok_for_addr_p = (code != 'C');
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1086 + output_address (XEXP (x, 0));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1087 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1088 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1089 + else if (GET_CODE (x) == CONST_DOUBLE && GET_MODE (x) != DImode) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1090 + union { double d; int i[2]; } u;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1091 + u.i[0] = CONST_DOUBLE_LOW (x);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1092 + u.i[1] = CONST_DOUBLE_HIGH (x);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1093 + fprintf (file, "#%#9.9g", u.d);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1094 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1095 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1096 + else if (code == 'R') {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1097 + fprintf (file, "%s",
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1098 + m6809_get_regs_printable (INTVAL (x)));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1099 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1100 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1101 + else {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1102 + if (code == 'L') { /* LSH of word address */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1103 + x = gen_rtx_CONST_INT (VOIDmode, (INTVAL(x) & 0xff));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1104 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1105 + else if (code == 'M') { /* MSH of word address */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1106 + x = gen_rtx_CONST_INT (VOIDmode, ((INTVAL(x) >> 8) & 0xff));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1107 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1108 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1109 + putc ('#', file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1110 + output_addr_const (file, x);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1111 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1112 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1113 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1114 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1115 +/** Prints an address operand to assembler from its RTL representation. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1116 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1117 +print_operand_address (FILE *file, rtx addr)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1118 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1119 + register rtx base = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1120 + register rtx offset = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1121 + int regno;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1122 + int indirect_flag = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1123 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1124 + check_direct_prefix_flag = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1125 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1126 + /* check for indirect addressing */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1127 + if (MEM_P (addr)) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1128 + last_mem_size = GET_MODE_SIZE (GET_MODE (addr));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1129 + addr = XEXP (addr, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1130 + if (pic_ok_for_addr_p)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1131 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1132 + indirect_flag = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1133 + fprintf (file, "[");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1134 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1135 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1136 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1137 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1138 + switch (GET_CODE (addr)) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1139 + case REG:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1140 + regno = REGNO (addr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1141 + fprintf (file, ",%s", reg_names[regno]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1142 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1143 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1144 + case PRE_DEC:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1145 + regno = REGNO (XEXP (addr, 0));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1146 + fputs (((last_mem_size == 1) ? ",-" : ",--"), file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1147 + fprintf (file, "%s", reg_names[regno]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1148 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1149 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1150 + case POST_INC:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1151 + regno = REGNO (XEXP (addr, 0));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1152 + fprintf (file, ",%s", reg_names[regno]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1153 + fputs (((last_mem_size == 1) ? "+" : "++"), file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1154 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1155 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1156 + case PLUS:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1157 + base = XEXP (addr, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1158 + if (MEM_P (base))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1159 + base = XEXP (base, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1160 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1161 + offset = XEXP (addr, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1162 + if (MEM_P (offset))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1163 + offset = XEXP (offset, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1164 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1165 + if ((CONSTANT_ADDRESS_P (base)) && (CONSTANT_ADDRESS_P (offset))) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1166 + if (!indirect_flag)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1167 + check_direct_prefix_flag = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1168 + output_addr_const (file, base);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1169 + check_direct_prefix_flag = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1170 + fputs ("+", file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1171 + output_addr_const (file, offset);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1172 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1173 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1174 + else if ((CONSTANT_ADDRESS_P (base)) && (A_REG_P (offset))) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1175 + output_addr_const (file, base);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1176 + fprintf (file, ",%s", reg_names[REGNO (offset)]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1177 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1178 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1179 + else if ((CONSTANT_ADDRESS_P (offset)) && (A_REG_P (base))) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1180 + output_addr_const (file, offset);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1181 + fprintf (file, ",%s", reg_names[REGNO (base)]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1182 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1183 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1184 + /* accumulator offset */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1185 + else if (((D_REG_P (offset)) \|\| (Q_REG_P (offset)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1186 + && (A_REG_P (base))) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1187 + fprintf (file, "%s,%s",
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1188 + reg_names[REGNO (offset)], reg_names[REGNO (base)]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1189 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1190 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1191 + else if (((D_REG_P (base)) \|\| (Q_REG_P (base)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1192 + && (A_REG_P (offset))) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1193 + fprintf (file, "%s,%s",
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1194 + reg_names[REGNO (base)], reg_names[REGNO (offset)]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1195 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1196 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1197 + else if (GET_CODE (base) == PRE_DEC) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1198 + regno = REGNO (XEXP (base, 0));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1199 + fputs (((last_mem_size == 1) ? ",-" : ",--"), file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1200 + fprintf (file, "%s", reg_names[regno]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1201 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1202 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1203 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1204 + abort ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1205 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1206 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1207 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1208 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1209 + /* Set this global before calling output_addr_const() */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1210 + if (!indirect_flag)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1211 + check_direct_prefix_flag = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1212 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1213 + /* When printing a SYMBOL_REF in PIC mode, do not print the leading
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1214 + * '#' and follow it by ',pcr' to enable relative addressing. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1215 + if (flag_pic && pic_ok_for_addr_p && GET_CODE (addr) == SYMBOL_REF)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1216 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1217 + ASM_OUTPUT_SYMBOL_REF (file, addr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1218 + fputs (",pcr", file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1219 + pic_ok_for_addr_p = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1220 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1221 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1222 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1223 + output_addr_const (file, addr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1224 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1225 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1226 + check_direct_prefix_flag = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1227 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1228 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1229 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1230 + if (indirect_flag)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1231 + fprintf (file, "]");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1232 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1233 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1234 +/*-------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1235 + Update the CC Status
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1236 +---------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1237 + Set the cc_status for the results of an insn whose pattern is EXP.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1238 + We assume that jumps don't affect the condition codes.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1239 + All else, clobbers the condition codes, by assumption.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1240 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1241 + We assume that ALL add, minus, etc. instructions effect the condition
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1242 + codes.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1243 +-------------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1244 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1245 +notice_update_cc (rtx exp, rtx insn ATTRIBUTE_UNUSED)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1246 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1247 + int src_code;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1248 + int dst_code;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1249 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1250 + /* recognize SET insn's */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1251 + if (GET_CODE (exp) == SET)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1252 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1253 + src_code = GET_CODE (SET_SRC (exp));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1254 + dst_code = GET_CODE (SET_DEST (exp));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1255 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1256 + /* Jumps do not alter the cc's. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1257 + if (SET_DEST (exp) == pc_rtx)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1258 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1259 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1260 + /* Moving one register into another register (tfr):
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1261 + Doesn't alter the cc's. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1262 + if (REG_P (SET_DEST (exp)) && (REG_P (SET_SRC (exp))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1263 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1264 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1265 + /* Moving memory into a register (load): Sets cc's. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1266 + if (REG_P (SET_DEST (exp)) && src_code == MEM) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1267 + cc_status.value1 = SET_SRC (exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1268 + cc_status.value2 = SET_DEST (exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1269 + cc_status.flags \|= CC_NO_OVERFLOW;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1270 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1271 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1272 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1273 + /* Moving register into memory (store): Sets cc's. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1274 + if (dst_code == MEM && REG_P (SET_SRC (exp))) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1275 + cc_status.value1 = SET_SRC (exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1276 + cc_status.value2 = SET_DEST (exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1277 + cc_status.flags \|= CC_NO_OVERFLOW;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1278 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1279 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1280 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1281 + /* Function calls clobber the cc's. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1282 + else if (GET_CODE (SET_SRC (exp)) == CALL) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1283 + CC_STATUS_INIT;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1284 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1285 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1286 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1287 + /* Tests and compares set the cc's in predictable ways. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1288 + else if (SET_DEST (exp) == cc0_rtx)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1289 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1290 + cc_status.flags = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1291 + cc_status.value1 = SET_SRC (exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1292 + cc_status.value2 = SET_DEST (exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1293 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1294 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1295 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1296 + else if (A_REG_P (SET_DEST (exp)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1297 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1298 + CC_STATUS_INIT;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1299 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1300 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1301 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1302 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1303 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1304 + /* Certain instructions affect the condition codes. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1305 + switch (src_code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1306 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1307 + case PLUS:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1308 + case MINUS:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1309 + case NEG:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1310 + case ASHIFT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1311 + /* These instructions set the condition codes,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1312 + * and may modify the V bit. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1313 + cc_status.flags \|= CC_NO_OVERFLOW;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1314 + /* FALLTHRU */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1315 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1316 + case AND:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1317 + case IOR:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1318 + case XOR:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1319 + case ASHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1320 + case LSHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1321 + /* These instructions set the condition codes,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1322 + * but cannot overflow (V=0). */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1323 + cc_status.value1 = SET_SRC (exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1324 + cc_status.value2 = SET_DEST (exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1325 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1326 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1327 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1328 + /* Everything else is clobbered */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1329 + CC_STATUS_INIT;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1330 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1331 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1332 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1333 + } /* SET */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1334 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1335 + else if (GET_CODE (exp) == PARALLEL
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1336 + && GET_CODE (XVECEXP (exp, 0, 0)) == SET)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1337 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1338 + if (SET_DEST (XVECEXP (exp, 0, 0)) == pc_rtx)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1339 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1340 + if (SET_DEST (XVECEXP (exp, 0, 0)) == cc0_rtx)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1341 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1342 + CC_STATUS_INIT;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1343 + cc_status.value1 = SET_SRC (XVECEXP (exp, 0, 0));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1344 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1345 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1346 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1347 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1348 + /*** default action if we haven't recognized something
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1349 + and returned earlier ***/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1350 + CC_STATUS_INIT;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1351 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1352 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1353 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1354 +/** Returns nonzero if the expression EXP can be implemented using one
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1355 + * of the 6809's single operand instructions. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1356 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1357 +m6809_single_operand_operator (rtx exp)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1358 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1359 + rtx op1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1360 + HOST_WIDE_INT val;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1361 + enum rtx_code code;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1362 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1363 + debug_rtx(exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1364 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1365 + code = GET_CODE (exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1366 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1367 + /* Unary operators always qualify */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1368 + switch (code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1369 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1370 + case NEG:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1371 + case NOT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1372 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1373 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1374 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1375 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1376 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1377 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1378 + /* Binary operators can only qualify if the second
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1379 + * argument is a CONST_INT of certain value. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1380 + op1 = XEXP (exp, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1381 + if (GET_CODE (op1) != CONST_INT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1382 + return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1383 + val = INTVAL (op1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1384 + switch (code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1385 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1386 + case PLUS:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1387 + case MINUS:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1388 + if (val == -1 \|\| val == 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1389 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1390 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1391 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1392 + case ASHIFT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1393 + case ASHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1394 + case LSHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1395 + case ROTATE:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1396 + case ROTATERT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1397 + if (val == 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1398 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1399 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1400 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1401 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1402 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1403 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1404 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1405 + return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1406 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1407 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1408 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1409 +/** Return a bitarray of the hard registers which are used by a function. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1410 +unsigned int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1411 +m6809_get_live_regs (void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1412 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1413 + unsigned int regs = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1414 + int regno;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1415 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1416 + if (frame_pointer_needed)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1417 + regs \|= (1 << HARD_FRAME_POINTER_REGNUM);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1418 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1419 + for (regno = HARD_X_REGNUM; regno <= HARD_U_REGNUM; regno++)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1420 + if (df_regs_ever_live_p (regno) && ! call_used_regs[regno])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1421 + regs \|= (1 << regno);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1422 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1423 + return regs;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1424 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1425 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1426 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1427 +/** Return a printable version of a list of hard registers, suitable
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1428 + * for use in a PSHx or PULx insn. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1429 +const char *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1430 +m6809_get_regs_printable (unsigned int regs)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1431 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1432 + static char list[64];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1433 + char *listp = list;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1434 + unsigned int regno;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1435 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1436 + for (regno=0; regno < FIRST_PSEUDO_REGISTER; regno++)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1437 + if ((regs & (1 << regno)) && !S_REGNO_P (regno))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1438 + listp += sprintf (listp,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1439 + (listp == list) ? "%s" : ",%s", reg_names[regno]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1440 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1441 + return list;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1442 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1443 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1444 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1445 +/** Return the total number of bytes covered by a set of hard registers. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1446 +unsigned int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1447 +m6809_get_regs_size (unsigned int regs)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1448 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1449 + unsigned int regno;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1450 + unsigned int size = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1451 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1452 + for (regno=0; regno < FIRST_PSEUDO_REGISTER; regno++)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1453 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1454 + /* Only count register in the given register set */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1455 + if (REGSET_CONTAINS_P (regno, regs))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1456 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1457 + /* Add 1 or 2 byte, depending on the size of the register.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1458 + * Since 'D' may be in both sets, check for WORD_REGSET first. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1459 + if (REGSET_CONTAINS_P(regno, WORD_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1460 + size += 2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1461 + else if (REGSET_CONTAINS_P(regno, BYTE_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1462 + size++;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1463 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1464 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1465 + return size;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1466 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1467 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1468 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1469 +/* Given the target of call instruction in X,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1470 + * return the tree node that contains the function declaration for
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1471 + * that target.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1472 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1473 + * If the rtx or the tree do not appear valid for any reason,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1474 + * then return NULL_TREE.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1475 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1476 +static tree call_target_decl (rtx x)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1477 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1478 + tree decl;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1479 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1480 + /* Make sure the target is really a MEM. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1481 + if (!x \|\| !MEM_P (x))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1482 + return NULL_TREE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1483 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1484 + /* Make sure the address is a SYMBOL_REF. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1485 + x = XEXP (x, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1486 + if (!x \|\| (GET_CODE (x) != SYMBOL_REF))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1487 + return NULL_TREE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1488 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1489 + /* Get the declaration of this symbol */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1490 + decl = SYMBOL_REF_DECL (x);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1491 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1492 + /* Make sure the declaration is really a function. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1493 + if (!decl \|\| (TREE_CODE(decl) != FUNCTION_DECL))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1494 + return NULL_TREE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1495 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1496 + return decl;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1497 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1498 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1499 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1500 +/** Returns nonzero if a function, whose declaration is in DECL,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1501 + * was declared to have the attribute given by ATTR_NAME. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1502 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1503 +m6809_function_has_type_attr_p (tree decl, const char *attr_name)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1504 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1505 + tree type;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1506 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1507 + type = TREE_TYPE (decl);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1508 + return lookup_attribute (attr_name, TYPE_ATTRIBUTES (type)) != NULL;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1509 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1510 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1511 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1512 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1513 +/** Returns nonzero if the current function was declared to have the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1514 + * attribute given by ATTR_NAME. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1515 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1516 +m6809_current_function_has_type_attr_p (const char *attr_name)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1517 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1518 + return m6809_function_has_type_attr_p (current_function_decl, attr_name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1519 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1520 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1521 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1522 +/** Return nonzero if the current function has no return value. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1523 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1524 +m6809_current_function_is_void (void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1525 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1526 + return (VOID_TYPE_P (TREE_TYPE (TREE_TYPE (current_function_decl))));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1527 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1528 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1529 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1530 +/** Get the value of a declaration's 'bank', as set by the 'bank'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1531 + * attribute. If no bank was declared, it returns NULL by default. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1532 +const char *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1533 +m6809_get_decl_bank (tree decl)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1534 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1535 + tree attr;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1536 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1537 + /* Lookup the 'bank' attribute. If it does not exist, then
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1538 + * return NULL */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1539 + attr = lookup_attribute ("bank", DECL_ATTRIBUTES (decl));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1540 + if (attr == NULL_TREE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1541 + return NULL;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1542 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1543 + /* Make sure it has a value assigned to it */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1544 + attr = TREE_VALUE (attr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1545 + if (attr == NULL_TREE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1546 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1547 + warning (WARNING_OPT "banked function did not declare a bank number");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1548 + return NULL;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1549 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1550 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1551 + /* Return the bank name */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1552 + attr = TREE_VALUE (attr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1553 + return TREE_STRING_POINTER (attr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1554 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1555 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1556 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1557 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1558 +m6809_declare_function_name (FILE asm_out_file, const char name, tree decl)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1559 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1560 + /* Check the function declaration for special properties.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1561 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1562 + * If the function was declare with __attribute__((bank)), output
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1563 + * assembler definitions to force the function to go into the named
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1564 + * bank.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1565 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1566 + const char *bank_name = m6809_get_decl_bank (decl);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1567 + if (bank_name != NULL)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1568 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1569 + fprintf (asm_out_file, "\n");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1570 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1571 + /* Declare __self_bank as a local assembler value that denotes
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1572 + * which bank the current function is in. This is required only
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1573 + * when the bank actually changes. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1574 + if (strcmp (bank_name, current_bank_name))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1575 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1576 + fprintf (asm_out_file, "__self_bank\t.equ\t%s\n", bank_name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1577 + strcpy (current_bank_name, bank_name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1578 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1579 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1580 + /* Declare a global assembler value that denotes which bank the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1581 + * named function is in. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1582 + fprintf (asm_out_file, "__%s_bank\t.gblequ\t%s\n", name, bank_name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1583 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1584 + /* Force the current function into a new area */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1585 + fprintf (asm_out_file, "\t.bank\tbank_%s (FSFX=_%s)\n",
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1586 + bank_name, bank_name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1587 + fprintf (asm_out_file, "\t.area\tbank_%s (BANK=bank_%s)\n",
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1588 + bank_name, bank_name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1589 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1590 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1591 + /* Emit the label for the function's name */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1592 + ASM_OUTPUT_LABEL (asm_out_file, name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1593 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1594 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1595 +#if 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1596 +/**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1597 + * Handle pragmas. Note that only the last branch pragma seen in the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1598 + * source has any affect on code generation.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1599 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1600 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1601 +#define BAD_PRAGMA(msgid, arg) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1602 + do { warning (WARNING_OPT msgid, arg); return -1; } while (0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1603 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1604 +static int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1605 +pragma_parse (const char name, tree sect)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1606 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1607 + tree s, x;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1608 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1609 + if (pragma_lex (&x) != CPP_OPEN_PAREN)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1610 + BAD_PRAGMA ("missing '(' after '#pragma %s' - ignored", name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1611 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1612 + if (pragma_lex (&s) != CPP_STRING)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1613 + BAD_PRAGMA ("missing section name in '#pragma %s' - ignored", name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1614 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1615 + if (pragma_lex (&x) != CPP_CLOSE_PAREN)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1616 + BAD_PRAGMA ("missing ')' for '#pragma %s' - ignored", name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1617 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1618 + if (pragma_lex (&x) != CPP_EOF)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1619 + warning (WARNING_OPT "junk at end of '#pragma %s'", name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1620 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1621 + *sect = s;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1622 + return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1623 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1624 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1625 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1626 +/*
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1627 + * Handle #pragma section.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1628 + * This is deprecated; code should use __attribute__(section("name"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1629 + * instead.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1630 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1631 +void pragma_section (cpp_reader *pfile ATTRIBUTE_UNUSED)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1632 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1633 + tree sect;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1634 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1635 + if (pragma_parse ("section", &sect))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1636 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1637 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1638 + snprintf (code_section_op, 6+TREE_STRING_LENGTH (sect),
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1639 + ".area\t%s", TREE_STRING_POINTER (sect));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1640 + snprintf (data_section_op, 6+TREE_STRING_LENGTH (sect),
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1641 + ".area\t%s", TREE_STRING_POINTER (sect));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1642 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1643 + /* Mark a flag that sections have changed. Upon emitting another
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1644 + * declaration, the new .area directive will be written. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1645 + section_changed++;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1646 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1647 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1648 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1649 +/**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1650 + * Check a `double' value for validity for a particular machine mode.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1651 + * Called by the CHECK_FLOAT_VALUE() machine-dependent macro.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1652 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1653 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1654 +check_float_value (enum machine_mode mode, double *d, int overflow)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1655 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1656 + if (mode == SFmode) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1657 + if (*d > 1.7014117331926443e+38) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1658 + error("magnitude of constant too large for `float'");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1659 + *d = 1.7014117331926443e+38;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1660 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1661 + else if (*d < -1.7014117331926443e+38) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1662 + error("magnitude of constant too large for `float'");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1663 + *d = -1.7014117331926443e+38;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1664 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1665 + else if ((d > 0) && (d < 2.9387358770557188e-39)) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1666 + warning(WARNING_OPT "`float' constant truncated to zero");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1667 + *d = 0.0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1668 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1669 + else if ((d < 0) && (d > -2.9387358770557188e-39)) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1670 + warning(WARNING_OPT "`float' constant truncated to zero");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1671 + *d = 0.0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1672 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1673 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1674 + return overflow;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1675 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1676 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1677 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1678 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1679 +/** Declare that the target supports named output sections. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1680 +bool m6809_have_named_section = (bool)1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1681 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1682 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1683 +/** Write to the assembler file a directive to place
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1684 + * subsequent objects to a different section in the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1685 + * object file. ASxxxx uses the "area" directive for
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1686 + * this purpose. It does not however support generalized
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1687 + * alignment, and can only place items on an odd/even
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1688 + * boundary. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1689 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1690 +m6809_asm_named_section (
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1691 + const char *name,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1692 + unsigned int flags ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1693 + tree decl)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1694 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1695 + fprintf (asm_out_file, "\n\t.area\t%s\n", name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1696 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1697 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1698 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1699 +enum reg_class
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1700 +m6809_preferred_reload_class (rtx x, enum reg_class regclass)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1701 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1702 + /* Check cases based on type code of rtx */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1703 + switch (GET_CODE(x))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1704 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1705 + /*
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1706 + * Observation, 2015-07-19, William Astle
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1707 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1708 + * The original comparison for range for 16 bits was wrong, adding 0x80
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1709 + * instead of 0x8000. Replaced both 8 bit and 16 bit comparisions with
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1710 + * a more straight forward range comparison - excessive cleverness isn't
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1711 + * really required here.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1712 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1713 + case CONST_INT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1714 + /* Constants that can fit into 1 byte should be
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1715 + * loaded into a Q_REGS reg */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1716 + if ((INTVAL(x) >= -128 && INTVAL(x) <= 127) &&
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1717 +// if (((unsigned) (INTVAL(x) + 0x80) < 0x100) &&
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1718 + (regclass > A_REGS))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1719 + return Q_REGS;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1720 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1721 + /* 16-bit constants should be loaded into A_REGS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1722 + * when possible. gcc may already require A_REGS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1723 + * or D_REGS for certain types of instructions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1724 + * This case applies mostly to simple copy operations
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1725 + * to/from memory when any register will do, but
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1726 + * it's best to avoid using D register since it is
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1727 + * needed for other things.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1728 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1729 + else if ((INTVAL(x) >= -32768 && INTVAL(x) <= 32767) &&
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1730 +// else if (((unsigned) (INTVAL(x) + 0x80) < 0x10000) &&
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1731 + (regclass > A_REGS))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1732 + return A_REGS;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1733 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1734 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1735 + case SYMBOL_REF:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1736 + case LABEL_REF:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1737 + /* Addresses should always be loaded into A_REGS */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1738 + if (regclass >= A_REGS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1739 + return (A_REGS);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1740 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1741 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1742 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1743 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1744 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1745 + /* Check cases based on mode of rtx */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1746 + if ((GET_MODE(x) == QImode) && (regclass != A_REGS))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1747 + return Q_REGS;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1748 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1749 + /* Default: return whatever class reload suggested */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1750 + return regclass;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1751 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1752 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1753 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1754 +/**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1755 + * Check a new declaration for the "section" attribute.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1756 + * If it exists, and the target section is "direct", then mark
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1757 + * the declaration (in RTL) to indicate special treatment.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1758 + * When the variable is referenced later, we test for this flag
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1759 + * and can emit special asm text to force the assembler to use
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1760 + * short instructions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1761 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1762 +static void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1763 +m6809_encode_section_info (tree decl, rtx rtl, int new_decl_p ATTRIBUTE_UNUSED)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1764 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1765 + tree attr, id;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1766 + const char *name;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1767 + const char *decl_name;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1768 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1769 + /* We only care about variable declarations, not functions */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1770 + if (TREE_CODE (decl) != VAR_DECL)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1771 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1772 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1773 + /* For debugging purposes only; grab the decl's name */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1774 + decl_name = IDENTIFIER_POINTER (DECL_NAME (decl));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1775 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1776 + /* Give up if the decl doesn't have any RTL */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1777 + if (!DECL_RTL (decl))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1778 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1779 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1780 + /* See if it has a section attribute */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1781 + attr = lookup_attribute ("section", DECL_ATTRIBUTES (decl));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1782 + if (!attr)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1783 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1784 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1785 + /* See if the section attribute has a value */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1786 + id = TREE_VALUE (TREE_VALUE (attr));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1787 + if (!id)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1788 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1789 + name = TREE_STRING_POINTER (id);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1790 + if (!name)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1791 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1792 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1793 + /* See if the value is 'direct'. If so, mark it. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1794 + if (!strcmp (name, "direct"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1795 + SYMBOL_REF_FLAG (XEXP (DECL_RTL (decl), 0)) = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1796 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1797 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1798 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1799 +/**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1800 + * Output code to perform a complex shift, for which there is no
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1801 + * direct support in the instruction set.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1802 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1803 + * shift1 is an instruction pattern for performing a 1-bit modification.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1804 + * This code wraps that pattern in a loop to perform the shift N times,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1805 + * where N is given by the address register in operands[2].
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1806 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1807 + * To support 16-bit shifts, shift2 can also be provided: it is
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1808 + * a second instruction to be included in the loop. 8-bit shift
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1809 + * insns will pass NULL here.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1810 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1811 + * The insn length of shift1/shift2 is assumed to be 1 byte,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1812 + * which works in all of the cases it is needed so far.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1813 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1814 +static void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1815 +m6809_gen_register_shift (
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1816 + rtx *operands,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1817 + const char *shift1,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1818 + const char *shift2 )
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1819 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1820 + char beq_pattern[32];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1821 + char bra_pattern[32];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1822 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1823 + int shiftlen = (shift1 && shift2) ? 2 : 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1824 + int cmplen = (REGNO (operands[2]) == HARD_X_REGNUM) ? 3 : 4;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1825 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1826 + int beq_offset = 2 + shiftlen + 2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1827 + int bra_offset = shiftlen + 2 + cmplen + 2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1828 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1829 + sprintf (beq_pattern, "beq\t.+%d", beq_offset);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1830 + sprintf (bra_pattern, "bra\t.-%d", bra_offset);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1831 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1832 + output_asm_insn ("pshs\t%2", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1833 + output_asm_insn ("lea%2\t-1,%2", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1834 + output_asm_insn ("cmp%2\t#-1", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1835 + output_asm_insn (beq_pattern, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1836 + if (shift1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1837 + output_asm_insn (shift1, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1838 + if (shift2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1839 + output_asm_insn (shift2, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1840 + output_asm_insn (bra_pattern, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1841 + output_asm_insn ("puls\t%2", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1842 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1843 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1844 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1845 +/** Generate RTL for the upper 8-bits of a 16-bit constant. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1846 +rtx
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1847 +gen_rtx_const_high (rtx r)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1848 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1849 + unsigned char v = (INTVAL (r) >> 8) & 0xFF;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1850 + signed char s = (signed char)v;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1851 + return gen_int_mode (s, QImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1852 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1853 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1854 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1855 +/** Generate RTL for the lower 8-bits of a 16-bit constant. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1856 +rtx
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1857 +gen_rtx_const_low (rtx r)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1858 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1859 + unsigned char v = INTVAL (r) & 0xFF;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1860 + signed char s = (signed char)v;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1861 + return gen_int_mode (s, QImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1862 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1863 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1864 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1865 +/** Generate RTL to allocate/free bytes on the stack.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1866 + * CODE is given as MINUS when allocating and PLUS when freeing,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1867 + * to match the semantics of a downward-growing stack. SIZE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1868 + * is always given as a positive integer.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1869 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1870 +static rtx
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1871 +gen_rtx_stack_adjust (enum rtx_code code, int size)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1872 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1873 + if (size <= 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1874 + return NULL_RTX;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1875 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1876 + if (code == MINUS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1877 + size = -size;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1878 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1879 + return gen_rtx_SET (Pmode, stack_pointer_rtx,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1880 + gen_rtx_PLUS (Pmode, stack_pointer_rtx,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1881 + gen_int_mode (size, HImode)));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1882 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1883 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1884 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1885 +/** Generate RTL to push/pop a set of registers. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1886 +rtx
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1887 +gen_rtx_register_pushpop (int op, int regs)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1888 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1889 + rtx nregs = gen_int_mode (regs, QImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1890 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1891 + if (op == UNSPEC_PUSH_RS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1892 + return gen_register_push (nregs);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1893 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1894 + return gen_register_pop (nregs);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1895 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1896 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1897 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1898 +/* Given a register set REGS, where the bit positions correspond to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1899 + * hard register numbers, return another bitmask that represents the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1900 + * order in which those registers would be pushed/popped.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1901 + * Registers that are pushed first have higher bit positions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1902 + * The pop order is just the reverse bitmask.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1903 + * These values are the same as the bitmasks actually used in the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1904 + * machine instructions. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1905 +static unsigned int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1906 +register_push_order (int regs)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1907 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1908 + unsigned int order = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1909 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1910 + if (REGSET_CONTAINS_P (HARD_PC_REGNUM, regs))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1911 + order \|= 0x80;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1912 + if (REGSET_CONTAINS_P (HARD_U_REGNUM, regs))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1913 + order \|= 0x40;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1914 + if (REGSET_CONTAINS_P (HARD_Y_REGNUM, regs))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1915 + order \|= 0x20;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1916 + if (REGSET_CONTAINS_P (HARD_X_REGNUM, regs))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1917 + order \|= 0x10;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1918 + if (REGSET_CONTAINS_P (HARD_DP_REGNUM, regs))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1919 + order \|= 0x8;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1920 + if (REGSET_CONTAINS_P (HARD_B_REGNUM, regs))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1921 + order \|= 0x4;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1922 + if (REGSET_CONTAINS_P (HARD_A_REGNUM, regs))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1923 + order \|= 0x2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1924 + if (REGSET_CONTAINS_P (HARD_CC_REGNUM, regs))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1925 + order \|= 0x1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1926 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1927 + if (REGSET_CONTAINS_P (HARD_D_REGNUM, regs))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1928 + order \|= (0x4 \| 0x2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1929 + return order;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1930 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1931 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1932 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1933 +/* Returns nonzero if two consecutive push or pop instructions,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1934 + * as determined by the OP, can be merged into a single instruction.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1935 + * The first instruction in the sequence pushes/pops REGS1; the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1936 + * second applies to REGS2.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1937 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1938 + * If true, the resulting instruction can use (regs1 \| regs2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1939 + * safely.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1940 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1941 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1942 +m6809_can_merge_pushpop_p (int op, int regs1, int regs2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1943 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1944 + /* Register sets must not overlap */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1945 + if (regs1 & regs2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1946 + return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1947 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1948 + if (op == UNSPEC_PUSH_RS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1949 + return (register_push_order (regs1) > register_push_order (regs2));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1950 + else if (op == UNSPEC_POP_RS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1951 + return (register_push_order (regs1) < register_push_order (regs2));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1952 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1953 + return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1954 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1955 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1956 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1957 +/** Emit instructions for making a library call.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1958 + * MODE is the mode of the operation.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1959 + * NAME is the library function name.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1960 + * OPERANDS is the rtx array provided by the recognizer.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1961 + * COUNT is the number of input operands to the call, and
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1962 + * should be 1 for a unary op or 2 for a binary op.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1963 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1964 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1965 +emit_libcall_insns (enum machine_mode mode,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1966 + const char *name,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1967 + rtx *operands,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1968 + int count)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1969 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1970 + /* Generate an rtx for the call target. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1971 + rtx symbol = gen_rtx_SYMBOL_REF (Pmode, name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1972 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1973 + /* Emit the library call. Slightly different based
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1974 + on the number of operands */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1975 + if (count == 2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1976 + emit_library_call (symbol, LCT_NORMAL, mode,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1977 + 2, operands[1], mode, operands[2], mode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1978 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1979 + emit_library_call (symbol, LCT_NORMAL, mode,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1980 + 1, operands[1], mode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1981 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1982 + /* The library call is expected to put its result
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1983 + in LIBCALL_VALUE, so need to copy it into the destination. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1984 + emit_move_insn (operands[0], LIBCALL_VALUE(mode));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1985 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1986 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1987 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1988 +/**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1989 + * A small helper function that writes out a single branch instruction.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1990 + * OPCODE is the short name, e.g. "ble".
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1991 + * OPERANDS has the rtx for the target label.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1992 + * LONG_P is nonzero if we are emitting a long branch, and need to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1993 + * prepend an 'l' to the opcode name.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1994 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1995 +void output_branch_insn1 (const char opcode, rtx operands, int long_p)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1996 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1997 + char pattern[64];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1998 + sprintf (pattern, "%s%s\t%%l0", long_p ? "l" : "", opcode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	1999 + output_asm_insn (pattern, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2000 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2001 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2002 +/**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2003 + * Output a branch/conditional branch insn of the proper
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2004 + * length. code identifies the particular branch insn.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2005 + * operands holds the branch target in operands[0].
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2006 + * length says what the size of this insn should be.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2007 + * Based on the length, we know whether it should be a
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2008 + * short (8-bit) or long (16-bit) branch.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2009 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2010 +const char *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2011 +output_branch_insn (enum rtx_code code, rtx *operands, int length)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2012 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2013 + int shortform;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2014 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2015 + /* Decide whether or not to use the long or short form.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2016 + * Calculate automatically based on insn lengths. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2017 + shortform = ((length > 2) ? 0 : 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2018 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2019 + /* Determine the proper opcode.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2020 + * Use the short (2-byte) opcode if the target is within
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2021 + * reach. Otherwise, use jmp (3-byte opcode), unless
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2022 + * compiling with -fpic, in which case we'll need to use
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2023 + * lbra (4-byte opcode).
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2024 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2025 + switch (code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2026 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2027 + case LABEL_REF:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2028 + if (shortform)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2029 + output_branch_insn1 ("bra", operands, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2030 + else if (flag_pic)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2031 + output_branch_insn1 ("bra", operands, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2032 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2033 + output_branch_insn1 ("jmp", operands, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2034 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2035 + case EQ:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2036 + output_branch_insn1 ("beq", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2037 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2038 + case NE:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2039 + output_branch_insn1 ("bne", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2040 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2041 + case GT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2042 + output_branch_insn1 ("bgt", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2043 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2044 + case GTU:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2045 + output_branch_insn1 ("bhi", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2046 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2047 + case LT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2048 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2049 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2050 + output_branch_insn1 ("bmi", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2051 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2052 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2053 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2054 + output_branch_insn1 ("blt", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2055 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2056 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2057 + case LTU:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2058 + output_branch_insn1 ("blo", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2059 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2060 + case GE:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2061 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2062 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2063 + output_branch_insn1 ("bpl", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2064 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2065 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2066 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2067 + output_branch_insn1 ("bge", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2068 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2069 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2070 + case GEU:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2071 + output_branch_insn1 ("bhs", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2072 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2073 + case LE:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2074 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2075 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2076 + output_branch_insn1 ("bmi", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2077 + output_branch_insn1 ("beq", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2078 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2079 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2080 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2081 + output_branch_insn1 ("ble", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2082 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2083 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2084 + case LEU:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2085 + output_branch_insn1 ("bls", operands, !shortform);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2086 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2087 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2088 + abort();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2089 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2090 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2091 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2092 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2093 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2094 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2095 +/** Returns the "cost" of an RTL expression.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2096 + * In general, the expression "COSTS_N_INSNS(1)" is used to represent
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2097 + * the cost of a fast 8-bit arithmetic instruction that operates on
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2098 + * a reg/mem or a reg/immed. Other costs are relative to this.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2099 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2100 + * Notes:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2101 + * - The cost of a REG is always zero; this cannot be changed.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2102 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2103 + * - On the 6809, instructions on two registers will nearly always take
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2104 + * longer than those that operate on a register and a constant/memory,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2105 + * because of the way the instruction set is structured.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2106 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2107 + * TODO: multiply HImode by 2 should be done via shifts, instead of add.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2108 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2109 +static bool
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2110 +m6809_rtx_costs (rtx X, int code, int outer_code ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2111 + int *total, bool speed)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2112 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2113 + int has_const_arg = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2114 + HOST_WIDE_INT const_arg;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2115 + enum machine_mode mode;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2116 + int nargs = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2117 + rtx op0, op1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2118 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2119 + /* Data RTXs return a value between 0-3, depending on complexity.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2120 + All of these are less than COSTS_N_INSNS(1). */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2121 + switch (code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2122 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2123 + case CC0:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2124 + case PC:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2125 + *total = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2126 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2127 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2128 + case CONST_INT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2129 + if (X == const0_rtx)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2130 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2131 + *total = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2132 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2133 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2134 + else if ((unsigned) INTVAL (X) < 077)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2135 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2136 + *total = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2137 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2138 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2139 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2140 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2141 + *total = 2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2142 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2143 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2144 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2145 + case LABEL_REF: case CONST:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2146 + *total = 2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2147 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2148 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2149 + case SYMBOL_REF:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2150 + /* References to memory are made cheaper if they have
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2151 + * the 'direct' mode attribute set */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2152 + *total = (SYMBOL_REF_FLAG (X)) ? 1 : 2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2153 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2154 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2155 + case MEM:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2156 + /* See what form of address was given */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2157 + X = XEXP (X, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2158 + switch (GET_CODE (X))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2159 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2160 + case SYMBOL_REF:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2161 + *total = (SYMBOL_REF_FLAG (X)) ? 1 : 2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2162 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2163 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2164 + case CONST_INT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2165 + *total = 2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2166 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2167 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2168 + case MEM:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2169 + *total = COSTS_N_INSNS (1) + 2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2170 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2171 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2172 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2173 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2174 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2175 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2176 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2177 + case CONST_DOUBLE:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2178 + /* TODO : not sure about this value. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2179 + *total = 3;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2180 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2181 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2182 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2183 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2184 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2185 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2186 + /* Decode the rtx */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2187 + mode = GET_MODE (X);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2188 + op0 = XEXP (X, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2189 + op1 = XEXP (X, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2190 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2191 + /* We don't implement anything in SImode or greater. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2192 + if (GET_MODE_SIZE (mode) >= GET_MODE_SIZE (SImode))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2193 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2194 + *total = COSTS_N_INSNS (100);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2195 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2196 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2197 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2198 + /* Figure out if there is a constant argument, and its value. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2199 + if (GET_RTX_CLASS (code) == RTX_BIN_ARITH
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2200 + \|\| GET_RTX_CLASS (code) == RTX_COMM_ARITH)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2201 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2202 + nargs = 2;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2203 + if (GET_CODE (op1) == CONST_INT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2204 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2205 + has_const_arg = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2206 + const_arg = INTVAL (op1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2207 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2208 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2209 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2210 + /* Penalize a reg/reg operation by adding MEMORY_MOVE_COST,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2211 + * Ignore soft registers, since these are really in memory.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2212 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2213 + * TODO: penalize HImode reg/reg for most operations, except maybe
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2214 + * additions since index registers allow for that.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2215 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2216 + * TODO: shifts by constant N do not always require N instructions;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2217 + * some of this can be done cheaper. The number of actual insns can be
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2218 + * predicted well.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2219 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2220 + if (nargs == 2 && REAL_REG_P (op0) && REAL_REG_P (op1))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2221 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2222 + *total = MEMORY_MOVE_COST (mode, Q_REGS, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2223 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2224 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2225 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2226 + *total = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2227 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2228 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2229 + /* Operator RTXs are counted as COSTS_N_INSNS(N), where N is
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2230 + the estimated number of actual machine instructions needed to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2231 + perform the computation. Some small adjustments are made since
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2232 + some "instructions" are more complex than others. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2233 + switch (code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2234 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2235 + case PLUS: case MINUS: case COMPARE:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2236 + /* 6809 handles these natively in QImode, and in HImode as long
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2237 + * as operand 1 is constant. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2238 + if (mode == QImode \|\| (mode == HImode && has_const_arg))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2239 + *total += COSTS_N_INSNS (1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2240 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2241 + *total += COSTS_N_INSNS (GET_MODE_SIZE (mode));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2242 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2243 + /* -1, 0, and 1 can be done using inherent instructions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2244 + * for PLUS and MINUS in QImode, so don't add extra cost. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2245 + if (has_const_arg
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2246 + && (mode == QImode \|\| mode == HImode)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2247 + && (const_arg == -1 \|\| const_arg == 0 \|\| const_arg == 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2248 + && (code == PLUS \|\| code == MINUS))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2249 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2250 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2251 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2252 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2253 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2254 + case AND: case IOR: case XOR:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2255 + case NEG: case NOT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2256 + /* 6809 handles these natively in QImode, but requires
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2257 + * splitting in HImode. Treat these as 2 insns. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2258 + total += COSTS_N_INSNS (1) GET_MODE_SIZE (mode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2259 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2260 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2261 + case ASHIFT: case ASHIFTRT: case LSHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2262 + case ROTATE: case ROTATERT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2263 + /* 6809 can do shift/rotates of a QImode by a constant in
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2264 + * 1 insn times the shift count, or in HImode by a constant
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2265 + * by splitting to 2 insns.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2266 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2267 + * Shift by a nonconstant will take significantly longer
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2268 + * than any of these. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2269 + if (has_const_arg)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2270 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2271 + const_arg %= (GET_MODE_SIZE (mode) * 8);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2272 + if (const_arg == 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2273 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2274 + *total += COSTS_N_INSNS(1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2275 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2276 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2277 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2278 + /* HImode shifts greater than 8 get optimized due
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2279 + * to register transfer from b to a; this cuts down the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2280 + * cost. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2281 + if (const_arg >= 8)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2282 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2283 + *total += COSTS_N_INSNS (1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2284 + const_arg -= 8;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2285 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2286 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2287 + /* The computed cost is 'const_arg' 1-bit shifts, doubled
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2288 + if in HImode, minus the cost of the constant itself which
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2289 + will be added in later but really shouldn't be. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2290 + total += COSTS_N_INSNS (const_arg) GET_MODE_SIZE (mode) - 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2291 + return true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2292 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2293 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2294 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2295 + /* It may take up to 7 iterations of about 6-7 real
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2296 + * instructions, so make this expensive. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2297 + *total += COSTS_N_INSNS (50);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2298 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2299 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2300 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2301 + case MULT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2302 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2303 + /* Multiply is cheap when both arguments are 8-bits. They
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2304 + could be QImode, or QImode widened to HImode, or a constant
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2305 + that fits into 8-bits. As long as both operands qualify,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2306 + we can use a single mul instruction.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2307 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2308 + Assume that fast multiply can be used, and change this if we find
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2309 + differently... */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2310 + int ok_for_qihi3 = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2311 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2312 + /* Check the first operand */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2313 + switch (GET_MODE (op0))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2314 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2315 + case QImode:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2316 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2317 + case HImode:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2318 + if (GET_CODE (op0) != SIGN_EXTEND && GET_CODE (op0) != ZERO_EXTEND)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2319 + ok_for_qihi3 = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2320 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2321 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2322 + ok_for_qihi3 = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2323 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2324 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2325 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2326 + /* Likewise, check the second operand. This is where constants may appear. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2327 + switch (GET_MODE (op1))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2328 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2329 + case QImode:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2330 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2331 + case HImode:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2332 + if (GET_CODE (op1) != SIGN_EXTEND && GET_CODE (op1) != ZERO_EXTEND)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2333 + ok_for_qihi3 = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2334 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2335 + case VOIDmode:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2336 + if (!CONST_OK_FOR_LETTER_P (const_arg, 'K'))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2337 + ok_for_qihi3 = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2338 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2339 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2340 + ok_for_qihi3 = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2341 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2342 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2343 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2344 + /* Fast multiply takes about 4 times as many cycles as a normal
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2345 + arithmetic operation. Otherwise, it will take an expensive libcall. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2346 + if (ok_for_qihi3)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2347 + *total += COSTS_N_INSNS (4);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2348 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2349 + *total = COSTS_N_INSNS (50);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2350 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2351 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2352 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2353 + case DIV: case UDIV: case MOD: case UMOD:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2354 + /* These all require more expensive libcalls. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2355 + *total += COSTS_N_INSNS (100);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2356 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2357 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2358 + /* TODO : TRUNCATE, SIGN_EXTEND, and ZERO_EXTEND */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2359 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2360 + /* These can normally be done with autoincrement, etc., so
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2361 + * don't charge for them. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2362 + case PRE_DEC:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2363 + case PRE_INC:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2364 + case POST_DEC:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2365 + case POST_INC:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2366 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2367 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2368 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2369 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2370 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2371 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2372 + /* Always return false, and let the caller gather the costs
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2373 + * of the operands */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2374 + return false;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2375 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2376 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2377 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2378 +static tree
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2379 +m6809_handle_fntype_attribute (tree *node, tree name,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2380 + tree args ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2381 + int flags ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2382 + bool *no_add_attrs)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2383 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2384 + if (TREE_CODE (*node) != FUNCTION_TYPE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2385 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2386 + warning (WARNING_OPT "'%s' only valid for functions",
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2387 + IDENTIFIER_POINTER (name));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2388 + *no_add_attrs = TRUE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2389 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2390 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2391 + return NULL_TREE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2392 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2393 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2394 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2395 +static tree
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2396 +m6809_handle_data_type_attribute (tree *node ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2397 + tree name ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2398 + tree args ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2399 + int flags ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2400 + bool *no_add_attrs ATTRIBUTE_UNUSED)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2401 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2402 + return NULL_TREE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2403 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2404 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2405 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2406 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2407 +static tree
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2408 +m6809_handle_default_attribute (tree *node ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2409 + tree name ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2410 + tree args ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2411 + int flags ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2412 + bool *no_add_attrs ATTRIBUTE_UNUSED )
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2413 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2414 + return NULL_TREE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2415 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2416 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2417 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2418 +/* Table of valid machine attributes */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2419 +const struct attribute_spec m6809_attribute_table[] = { /*
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2420 +{ name, min, max, decl, type, fntype, handler } */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2421 +{ "interrupt", 0, 0, false, true, true, m6809_handle_fntype_attribute },
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2422 +{ "naked", 0, 0, false, true, true, m6809_handle_fntype_attribute },
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2423 +{ "far", 0, 1, false, true, true, m6809_handle_fntype_attribute },
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2424 +{ "bank", 0, 1, true, false, false, m6809_handle_default_attribute },
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2425 +{ "boolean", 0, 0, false, true, false, m6809_handle_data_type_attribute },
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2426 +{ NULL, 0, 0, false, true, false, NULL },
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2427 +};
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2428 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2429 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2430 +/** Initialize builtin routines for the 6809. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2431 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2432 +m6809_init_builtins (void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2433 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2434 + /* Create type trees for each function signature required.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2435 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2436 + * void_ftype_void = void f(void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2437 + * void_ftype_uchar = void f(unsigned char)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2438 + * uchar_ftype_uchar2 = unsigned char f (unsigned char, unsigned char)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2439 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2440 + tree void_ftype_void =
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2441 + build_function_type (void_type_node, void_list_node);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2442 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2443 + tree void_ftype_uchar =
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2444 + build_function_type (void_type_node,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2445 + tree_cons (NULL_TREE, unsigned_char_type_node, void_list_node));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2446 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2447 + tree uchar_ftype_uchar2 =
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2448 + build_function_type (unsigned_char_type_node,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2449 + tree_cons (NULL_TREE, unsigned_char_type_node,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2450 + tree_cons (NULL_TREE, unsigned_char_type_node, void_list_node)));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2451 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2452 + /* Register each builtin function. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2453 + add_builtin_function ("__builtin_swi", void_ftype_void,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2454 + M6809_SWI, BUILT_IN_MD, NULL, NULL_TREE);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2455 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2456 + add_builtin_function ("__builtin_swi2", void_ftype_void,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2457 + M6809_SWI2, BUILT_IN_MD, NULL, NULL_TREE);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2458 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2459 + add_builtin_function ("__builtin_swi3", void_ftype_void,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2460 + M6809_SWI3, BUILT_IN_MD, NULL, NULL_TREE);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2461 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2462 + add_builtin_function ("__builtin_cwai", void_ftype_uchar,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2463 + M6809_CWAI, BUILT_IN_MD, NULL, NULL_TREE);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2464 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2465 + add_builtin_function ("__builtin_sync", void_ftype_void,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2466 + M6809_SYNC, BUILT_IN_MD, NULL, NULL_TREE);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2467 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2468 + add_builtin_function ("__builtin_nop", void_ftype_void,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2469 + M6809_NOP, BUILT_IN_MD, NULL, NULL_TREE);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2470 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2471 + add_builtin_function ("__builtin_blockage", void_ftype_void,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2472 + M6809_BLOCKAGE, BUILT_IN_MD, NULL, NULL_TREE);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2473 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2474 + add_builtin_function ("__builtin_add_decimal", uchar_ftype_uchar2,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2475 + M6809_ADD_DECIMAL, BUILT_IN_MD, NULL, NULL_TREE);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2476 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2477 + add_builtin_function ("__builtin_add_carry", uchar_ftype_uchar2,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2478 + M6809_ADD_CARRY, BUILT_IN_MD, NULL, NULL_TREE);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2479 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2480 + add_builtin_function ("__builtin_sub_carry", uchar_ftype_uchar2,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2481 + M6809_SUB_CARRY, BUILT_IN_MD, NULL, NULL_TREE);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2482 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2483 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2484 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2485 +/** Used by m6809_expand_builtin, given a tree ARGLIST which
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2486 + * refers to the operands of a builtin call, return an rtx
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2487 + * that represents the nth operand, as denoted by OPNUM, which
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2488 + * is a zero-based integer. MODE gives the expected mode
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2489 + * of the operand.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2490 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2491 + * This rtx is suitable for use in the emitted RTL for the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2492 + * builtin instruction. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2493 +rtx
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2494 +m6809_builtin_operand (tree arglist, enum machine_mode mode, int opnum)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2495 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2496 + tree arg;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2497 + rtx r;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2498 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2499 + arg = CALL_EXPR_ARG (arglist, opnum);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2500 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2501 + /* Convert the tree to RTL */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2502 + r = expand_expr (arg, NULL_RTX, mode, EXPAND_NORMAL);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2503 + if (r == NULL_RTX)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2504 + return NULL_RTX;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2505 + return r;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2506 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2507 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2508 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2509 +/** Expand a builtin that was registered in init_builtins into
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2510 + * RTL. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2511 +rtx
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2512 +m6809_expand_builtin (tree exp,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2513 + rtx target,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2514 + rtx subtarget ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2515 + enum machine_mode mode ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2516 + int ignore ATTRIBUTE_UNUSED )
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2517 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2518 + tree fndecl = TREE_OPERAND (CALL_EXPR_FN (exp), 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2519 + tree arglist = exp;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2520 + unsigned int fcode = DECL_FUNCTION_CODE (fndecl);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2521 + rtx r0, r1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2522 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2523 + switch (fcode)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2524 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2525 + case M6809_SWI:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2526 + r0 = gen_rtx_CONST_INT (VOIDmode, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2527 + emit_insn (target = gen_m6809_swi (r0));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2528 + return target;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2529 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2530 + case M6809_SWI2:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2531 + r0 = gen_rtx_CONST_INT (VOIDmode, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2532 + emit_insn (target = gen_m6809_swi (r0));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2533 + return target;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2534 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2535 + case M6809_SWI3:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2536 + r0 = gen_rtx_CONST_INT (VOIDmode, 3);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2537 + emit_insn (target = gen_m6809_swi (r0));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2538 + return target;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2539 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2540 + case M6809_CWAI:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2541 + r0 = m6809_builtin_operand (arglist, QImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2542 + emit_insn (target = gen_m6809_cwai (r0));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2543 + return target;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2544 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2545 + case M6809_SYNC:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2546 + emit_insn (target = gen_m6809_sync ());
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2547 + return target;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2548 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2549 + case M6809_ADD_CARRY:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2550 + r0 = m6809_builtin_operand (arglist, QImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2551 + r1 = m6809_builtin_operand (arglist, QImode, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2552 + if (!target)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2553 + target = gen_reg_rtx (QImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2554 + emit_insn (gen_addqi3_carry (target, r0, r1));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2555 + return target;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2556 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2557 + case M6809_SUB_CARRY:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2558 + r0 = m6809_builtin_operand (arglist, QImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2559 + r1 = m6809_builtin_operand (arglist, QImode, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2560 + if (!target)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2561 + target = gen_reg_rtx (QImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2562 + emit_insn (gen_subqi3_carry (target, r0, r1));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2563 + return target;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2564 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2565 + case M6809_NOP:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2566 + emit_insn (target = gen_nop ());
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2567 + return target;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2568 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2569 + case M6809_BLOCKAGE:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2570 + emit_insn (target = gen_blockage ());
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2571 + return target;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2572 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2573 + case M6809_ADD_DECIMAL:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2574 + r0 = m6809_builtin_operand (arglist, QImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2575 + r1 = m6809_builtin_operand (arglist, QImode, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2576 + if (!target)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2577 + target = gen_reg_rtx (QImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2578 + emit_insn (gen_addqi3_decimal (target, r0, r1));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2579 + return target;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2580 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2581 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2582 + warning (WARNING_OPT "unknown builtin expansion ignored");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2583 + return NULL_RTX;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2584 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2585 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2586 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2587 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2588 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2589 +/* Returns nonzero if 'x' represents a function that was declared
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2590 + * as __noreturn__. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2591 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2592 +noreturn_functionp (rtx x)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2593 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2594 + tree decl = call_target_decl (x);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2595 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2596 + if (decl == NULL_TREE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2597 + return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2598 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2599 + return TREE_THIS_VOLATILE (decl);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2600 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2601 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2602 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2603 +const char *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2604 +far_function_type_p (tree type)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2605 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2606 + tree attr;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2607 + const char *page;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2608 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2609 + /* Return whether or not this decl has the far attribute */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2610 + attr = lookup_attribute ("far", TYPE_ATTRIBUTES (type));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2611 + if (attr == NULL_TREE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2612 + return NULL;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2613 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2614 + /* If it is far, check for a value */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2615 + attr = TREE_VALUE (attr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2616 + if (attr == NULL_TREE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2617 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2618 + warning (WARNING_OPT "far code page not specified, using local value");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2619 + return far_code_page;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2620 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2621 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2622 + /* We have a TREE_LIST of attribute values, get the first one.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2623 + * It should be an INTEGER_CST. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2624 + attr = TREE_VALUE (attr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2625 + page = TREE_STRING_POINTER (attr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2626 + return page;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2627 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2628 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2629 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2630 +/* For a far function, returns the identifier that states which page
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2631 + * it resides in. Otherwise, returns NULL for ordinary functions. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2632 +const char *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2633 +far_functionp (rtx x)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2634 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2635 + tree decl, decl_type;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2636 + const char *page;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2637 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2638 + /* Find the FUNCTION_DECL corresponding to the rtx being called. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2639 + decl = call_target_decl (x);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2640 + if (decl == NULL_TREE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2641 + return NULL;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2642 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2643 + /* See if the function has the new 'banked' attribute. These
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2644 + * are numeric instead of text */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2645 + page = m6809_get_decl_bank (decl);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2646 + if (page)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2647 + return page;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2648 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2649 + /* No, lookup the type of the function and see if the type
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2650 + * specifies far or not. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2651 + decl_type = TREE_TYPE (decl);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2652 + if (decl_type == NULL_TREE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2653 + return NULL;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2654 + return far_function_type_p (decl_type);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2655 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2656 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2657 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2658 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2659 +/** Outputs the assembly language for a far call. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2660 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2661 +output_far_call_insn (rtx *operands, int has_return)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2662 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2663 + static char page_data[64];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2664 + const char *called_page;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2665 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2666 + /* The logic is the same for functions whether or not there
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2667 + * is a return value. Skip over the return value in this
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2668 + * case, so that the call location is always operands[0]. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2669 + if (has_return)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2670 + operands++;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2671 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2672 + /* Get the name of the page being called */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2673 + called_page = far_functionp (operands[0]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2674 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2675 +#if 0 /* TODO : broken logic */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2676 + /* See if the called page name is a 'bank' */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2677 + if (isdigit (*called_page))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2678 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2679 + /* New style banking */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2680 + if (!strcmp (called_page, current_bank_name))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2681 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2682 + /* Same page */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2683 + output_asm_insn ("jsr\t%0", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2684 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2685 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2686 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2687 + /* Different page */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2688 + output_asm_insn ("jsr\t__far_call_handler\t;new style", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2689 + output_asm_insn ("\t.dw\t%0", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2690 + sprintf (page_data, "\t.db\t%s", called_page);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2691 + output_asm_insn (page_data, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2692 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2693 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2694 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2695 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2696 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2697 + /* Are we calling a different page than we are running in? */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2698 + if (!strcmp (called_page, far_code_page))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2699 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2700 + /* Same page : no need to execute a far call */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2701 + if (flag_pic)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2702 + output_asm_insn ("lbsr\t%C0", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2703 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2704 + output_asm_insn ("jsr\t%0", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2705 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2706 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2707 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2708 + /* Different page : need to emit far call thunk */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2709 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2710 + /* First output a call to the thunk for making far calls. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2711 + if (flag_pic)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2712 + output_asm_insn ("lbsr\t__far_call_handler", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2713 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2714 + output_asm_insn ("jsr\t__far_call_handler\t;old style", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2715 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2716 + /* Now output the name of the call site */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2717 + output_asm_insn ("\t.dw\t%C0", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2718 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2719 + /* Finally output the page number */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2720 + sprintf (page_data, "\t.db\t%s", far_functionp (operands[0]));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2721 + output_asm_insn (page_data, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2722 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2723 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2724 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2725 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2726 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2727 +m6809_init_cumulative_args (CUMULATIVE_ARGS cum ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2728 + tree fntype,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2729 + rtx libname ATTRIBUTE_UNUSED)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2730 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2731 + cum = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2732 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2733 + /* For far functions, the current implementation does not allow for
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2734 + * stack parameters. So note whenever the called function is far
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2735 + * and in a different page than the current one; such a function
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2736 + * should give an error if a stack parameter is generated. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2737 + if (fntype)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2738 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2739 + const char *called_page = far_function_type_p (fntype);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2740 + if (called_page && strcmp (called_page, far_code_page) && !TARGET_FAR_STACK_PARAM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2741 + cum \|= CUM_STACK_INVALID;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2742 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2743 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2744 + if (fntype && TYPE_ARG_TYPES (fntype) != 0 &&
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2745 + (TREE_VALUE (tree_last (TYPE_ARG_TYPES (fntype))) != void_type_node))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2746 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2747 + /* has variable arguments, cannot use registers */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2748 + cum \|= (CUM_X_MASK \| CUM_B_MASK \| CUM_STACK_ONLY);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2749 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2750 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2751 + if (m6809_abi_version == M6809_ABI_VERSION_STACK)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2752 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2753 + /* cannot use registers ; only use the stack */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2754 + cum \|= (CUM_STACK_ONLY \| CUM_X_MASK \| CUM_B_MASK);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2755 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2756 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2757 + return cum;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2758 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2759 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2760 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2761 +rtx
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2762 +m6809_function_arg_on_stack (CUMULATIVE_ARGS *cump)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2763 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2764 + if (*cump & CUM_STACK_INVALID)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2765 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2766 + *cump &= ~CUM_STACK_INVALID;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2767 + error ("far function needs stack, will not work");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2768 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2769 + return NULL_RTX;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2770 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2771 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2772 +void m6809_asm_trampoline_template(FILE *f)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2773 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2774 + fprintf(f, "ldy #0000\n");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2775 + fprintf(f, "jmp 0x0000\n");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2776 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2777 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2778 +/*
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2779 + * Trampoline output:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2780 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2781 + * ldu #&cxt 4 bytes --LDY- ?? ??
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2782 + * jmp fnaddr 3 bytes JMP ?? ??
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2783 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2784 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2785 +m6809_initialize_trampoline (rtx tramp, tree fndecl, rtx cxt)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2786 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2787 + rtx fnaddr = XEXP (DECL_RTL (fndecl), 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2788 + /* TODO - optimize by generating the entire trampoline code here,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2789 + * and removing the template altogether, since there are only two
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2790 + * bytes there that matter. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2791 + emit_move_insn (gen_rtx_MEM (HImode, plus_constant (tramp, 2)), cxt);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2792 + emit_move_insn (gen_rtx_MEM (HImode, plus_constant (tramp, 5)), fnaddr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2793 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2794 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2795 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2796 +/** Echo the version of the compiler and the name of the source file
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2797 + * at the beginning of each assembler output file. asm_out_file
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2798 + * is a global FILE * pointing to the output stream. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2799 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2800 +m6809_asm_file_start (void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2801 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2802 + const char *module_name;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2803 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2804 + fprintf (asm_out_file, "\n;;; gcc for m6809 : %s %s\n",
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2805 + __DATE__, __TIME__);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2806 + fprintf (asm_out_file, ";;; %s\n", version_string);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2807 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2808 + fprintf (asm_out_file, ";;; ABI version %d\n", m6809_abi_version);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2809 + fprintf (asm_out_file, ";;; %s\n",
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2810 + (TARGET_BYTE_INT ? "-mint8" : "-mint16"));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2811 + if (TARGET_EXPERIMENT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2812 + fprintf (asm_out_file, ";;; -mexperiment\n");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2813 + if (TARGET_WPC)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2814 + fprintf (asm_out_file, ";;; -mwpc\n");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2815 + if (TARGET_6309)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2816 + fprintf (asm_out_file, ";;; -m6309\n");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2817 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2818 + /* Print the name of the module, which is taken as the base name
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2819 + * of the input file.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2820 + * See the 'User-Defined Symbols' section of the assembler
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2821 + * documentation for the rules on valid symbols.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2822 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2823 + module_name = lbasename (main_input_filename);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2824 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2825 + fprintf (asm_out_file, "\t.module\t");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2826 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2827 + if (module_name >= '0' && module_name <= '9')
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2828 + fprintf (asm_out_file, "_");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2829 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2830 + while (*module_name)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2831 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2832 + if ((module_name >= '0' && module_name <= '9')
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2833 + \|\| (module_name >= 'A' && module_name <= 'Z')
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2834 + \|\| (module_name >= 'a' && module_name <= 'z')
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2835 + \|\| *module_name == '$'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2836 + \|\| *module_name == '.'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2837 + \|\| *module_name == '_')
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2838 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2839 + fprintf (asm_out_file, "%c", *module_name);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2840 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2841 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2842 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2843 + fprintf (asm_out_file, "_");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2844 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2845 + module_name++;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2846 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2847 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2848 + fprintf (asm_out_file, "\n");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2849 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2850 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2851 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2852 +/** Returns true if prologue/epilogue code is required for the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2853 + * current function being compiled.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2854 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2855 + * This is just the inverse of whether the function is declared as
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2856 + * 'naked'.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2857 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2858 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2859 +prologue_epilogue_required (void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2860 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2861 + return !m6809_current_function_has_type_attr_p ("naked")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2862 + && !m6809_current_function_has_type_attr_p ("noreturn");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2863 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2864 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2865 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2866 +/** Expand RTL for function entry */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2867 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2868 +emit_prologue_insns (void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2869 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2870 + rtx insn;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2871 + unsigned int live_regs = m6809_get_live_regs ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2872 + unsigned int frame_size = get_frame_size ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2873 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2874 + /* Save all registers used, including the frame pointer */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2875 + if (live_regs && !m6809_current_function_has_type_attr_p ("interrupt"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2876 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2877 + insn = emit_insn (
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2878 + gen_rtx_register_pushpop (UNSPEC_PUSH_RS, live_regs));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2879 + RTX_FRAME_RELATED_P (insn) = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2880 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2881 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2882 + /* Allocate space for local variables */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2883 + if (frame_size != 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2884 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2885 + insn = emit_insn (gen_rtx_stack_adjust (MINUS, frame_size));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2886 + RTX_FRAME_RELATED_P (insn) = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2887 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2888 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2889 + /* Set the frame pointer if it is needed */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2890 + if (frame_pointer_needed)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2891 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2892 + insn = emit_move_insn (hard_frame_pointer_rtx, stack_pointer_rtx);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2893 + RTX_FRAME_RELATED_P (insn) = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2894 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2895 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2896 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2897 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2898 +/** Expand RTL for function exit */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2899 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2900 +emit_epilogue_insns (bool sibcall_p)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2901 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2902 + unsigned int live_regs = m6809_get_live_regs ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2903 + unsigned int frame_size = get_frame_size ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2904 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2905 + if (frame_size != 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2906 + emit_insn (gen_rtx_stack_adjust (PLUS, frame_size));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2907 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2908 + if (sibcall_p)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2909 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2910 + if (live_regs)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2911 + emit_insn (gen_rtx_register_pushpop (UNSPEC_POP_RS, live_regs));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2912 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2913 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2914 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2915 + if (live_regs && !m6809_current_function_has_type_attr_p ("interrupt"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2916 + emit_insn (
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2917 + gen_rtx_register_pushpop (UNSPEC_POP_RS, PC_REGBIT \| live_regs));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2918 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2919 + if (m6809_current_function_has_type_attr_p ("interrupt"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2920 + emit_jump_insn (gen_return_rti ());
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2921 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2922 + emit_jump_insn (gen_return_rts ());
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2923 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2924 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2925 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2926 +#if 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2927 +/** Predefine some preprocessor names according to the currently
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2928 + * selected compiler options */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2929 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2930 +m6809_cpu_cpp_builtins (void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2931 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2932 + if (TARGET_6309)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2933 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2934 + builtin_define_std ("__M6309__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2935 + builtin_define_std ("__m6309__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2936 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2937 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2938 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2939 + builtin_define_std ("__M6809__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2940 + builtin_define_std ("__m6809__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2941 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2942 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2943 + if (TARGET_BYTE_INT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2944 + builtin_define_std ("__int8__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2945 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2946 + builtin_define_std ("__int16__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2947 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2948 + switch (m6809_abi_version)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2949 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2950 + case M6809_ABI_VERSION_STACK:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2951 + builtin_define_std ("__regargs__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2952 + builtin_define_std ("__ABI_STACK__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2953 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2954 + case M6809_ABI_VERSION_REGS:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2955 + builtin_define_std ("__ABI_REGS__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2956 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2957 + case M6809_ABI_VERSION_BX:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2958 + builtin_define_std ("__ABI_BX__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2959 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2960 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2961 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2962 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2963 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2964 + if (TARGET_WPC)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2965 + builtin_define_std ("__WPC__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2966 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2967 + if (TARGET_DRET)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2968 + builtin_define_std ("__DRET__");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2969 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2970 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2971 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2972 +#define MAX_ASM_ASCII_STRING 48
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2973 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2974 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2975 +m6809_output_ascii (FILE fp, const char str, unsigned long size)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2976 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2977 + unsigned long i;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2978 + bool use_ascii = true;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2979 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2980 + /* If the size is too large, then break this up into multiple
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2981 + outputs. The assembler can only output roughly 48 bytes at a
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2982 + time. Note that if there are lots of escape sequences in
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2983 + the string, this may fail. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2984 + if (size > MAX_ASM_ASCII_STRING)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2985 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2986 + m6809_output_ascii (fp, str, MAX_ASM_ASCII_STRING);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2987 + m6809_output_ascii (fp, str + MAX_ASM_ASCII_STRING,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2988 + size - MAX_ASM_ASCII_STRING);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2989 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2990 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2991 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2992 + /* Check for 8-bit codes, which cannot be embedded in an .ascii */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2993 + for (i = 0; i < size; i++)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2994 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2995 + int c = str[i] & 0377;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2996 + if (c >= 0x80)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2997 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2998 + use_ascii = false;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	2999 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3000 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3001 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3002 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3003 + if (use_ascii)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3004 + fprintf (fp, "\t.ascii \"");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3005 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3006 + for (i = 0; i < size; i++)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3007 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3008 + int c = str[i] & 0377;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3009 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3010 + if (use_ascii)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3011 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3012 + /* Just output the plain character if it is printable,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3013 + otherwise output the escape code for the character.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3014 + The assembler recognizes the same C-style octal escape sequences,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3015 + except that it only supports 7-bit codes. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3016 + if (c >= ' ' && c < 0177 && c != '\\' && c != '"')
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3017 + putc (c, fp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3018 + else switch (c)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3019 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3020 + case '\n':
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3021 +#ifndef TARGET_COCO
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3022 + fputs ("\\n", fp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3023 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3024 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3025 + /* On the CoCo, we fallthrough and treat '\n' like '\r'. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3026 + case '\r':
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3027 + fputs ("\\r", fp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3028 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3029 + case '\t':
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3030 + fputs ("\\t", fp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3031 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3032 + case '\f':
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3033 + fputs ("\\f", fp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3034 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3035 + case 0:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3036 + fputs ("\\0", fp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3037 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3038 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3039 + fprintf (fp, "\\%03o", c);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3040 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3041 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3042 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3043 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3044 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3045 + fprintf (fp, "\t.byte\t0x%02X\n", c);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3046 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3047 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3048 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3049 + if (use_ascii)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3050 + fprintf (fp, "\"\n");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3051 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3052 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3053 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3054 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3055 +m6809_output_quoted_string (FILE asm_file, const char string)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3056 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3057 + char c;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3058 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3059 + if (strlen (string) > MAX_ASM_ASCII_STRING)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3060 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3061 + /* The string length is too large. We'll have to truncate it.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3062 + This is only called from debugging functions, so it's usually
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3063 + not critical. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3064 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3065 + char truncated_string[MAX_ASM_ASCII_STRING+1];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3066 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3067 + /* Copy as many characters as we can. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3068 + strncpy (truncated_string, string, MAX_ASM_ASCII_STRING);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3069 + truncated_string[MAX_ASM_ASCII_STRING] = '\0';
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3070 + string = truncated_string;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3071 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3072 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3073 + /* Copied from toplev.c */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3074 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3075 + putc ('\"', asm_file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3076 + while ((c = *string++) != 0) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3077 + if (ISPRINT (c)) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3078 + if (c == '\"' \|\| c == '\\')
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3079 + putc ('\\', asm_file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3080 + putc (c, asm_file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3081 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3082 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3083 + fprintf (asm_file, "\\%03o", (unsigned char) c);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3084 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3085 + putc ('\"', asm_file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3086 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3087 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3088 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3089 +/** Output the assembly code for a shift instruction where the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3090 + * shift count is not constant. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3091 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3092 +m6809_output_shift_insn (int rtx_code, rtx *operands)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3093 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3094 + struct shift_opcode *op;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3095 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3096 + if (GET_CODE (operands[2]) == CONST_INT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3097 + abort ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3098 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3099 + if (optimize_size && GET_MODE (operands[0]) == HImode)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3100 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3101 + switch (rtx_code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3102 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3103 + case ASHIFT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3104 + output_asm_insn ("jsr\t_ashlhi3", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3105 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3106 + case ASHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3107 + output_asm_insn ("jsr\t_ashrhi3", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3108 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3109 + case LSHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3110 + output_asm_insn ("jsr\t_lshrhi3", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3111 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3112 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3113 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3114 + else if (GET_MODE (operands[0]) == HImode)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3115 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3116 + switch (rtx_code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3117 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3118 + case ASHIFT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3119 + m6809_gen_register_shift (operands, "aslb", "rola");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3120 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3121 + case ASHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3122 + m6809_gen_register_shift (operands, "asra", "rorb");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3123 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3124 + case LSHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3125 + m6809_gen_register_shift (operands, "lsra", "rorb");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3126 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3127 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3128 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3129 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3130 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3131 + switch (rtx_code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3132 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3133 + case ASHIFT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3134 + m6809_gen_register_shift (operands, "aslb", NULL);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3135 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3136 + case ASHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3137 + m6809_gen_register_shift (operands, "asrb", NULL);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3138 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3139 + case LSHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3140 + m6809_gen_register_shift (operands, "lsrb", NULL);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3141 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3142 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3143 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3144 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3145 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3146 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3147 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3148 +m6809_emit_move_insn (rtx dst, rtx src)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3149 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3150 + emit_insn (gen_rtx_SET (VOIDmode, dst, src));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3151 + if (ACC_A_REG_P (dst))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3152 + emit_insn (gen_rtx_USE (VOIDmode, dst));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3153 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3154 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3155 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3156 +/** Split a complex shift instruction into multiple CPU
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3157 + * shift instructions. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3158 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3159 +m6809_split_shift (enum rtx_code code, rtx *operands)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3160 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3161 + enum machine_mode mode;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3162 + int count;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3163 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3164 + mode = GET_MODE (operands[0]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3165 + count = INTVAL (operands[2]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3166 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3167 + /* Handle a shift count outside the range of 0 .. N-1, where
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3168 + * N is the mode size in bits. We normalize the count, and
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3169 + * for negative counts we also invert the direction of the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3170 + * shift. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3171 + if ((count < 0) \|\| (count >= 8 * GET_MODE_SIZE (mode)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3172 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3173 + if (count < 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3174 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3175 + count = -count;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3176 + code = (code == ASHIFT) ? ASHIFTRT : ASHIFT;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3177 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3178 + count %= (8 * GET_MODE_SIZE (mode));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3179 + m6809_emit_move_insn (operands[0],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3180 + gen_rtx_fmt_ee (code, mode, operands[1],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3181 + gen_rtx_CONST_INT (VOIDmode, count)));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3182 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3183 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3184 + /* Handle shift by zero explicitly as a no-op. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3185 + if (count == 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3186 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3187 + emit_insn (gen_nop ());
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3188 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3189 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3190 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3191 + /* Decompose the shift by a constant N > 8 into two
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3192 + * shifts, first by 8 and then by N-8.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3193 + * This "speeds up" the process for large shifts that would be
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3194 + * handled below, but allows for some optimization.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3195 + * In some cases shift by 8 can be implemented fast. If an
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3196 + * instruction to shift by 8 is defined, it will be used here;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3197 + * otherwise it will be further decomposed as below. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3198 + if (mode == HImode && count > 8)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3199 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3200 + rtx output = operands[0];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3201 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3202 + m6809_emit_move_insn (operands[0],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3203 + gen_rtx_fmt_ee (code, mode, operands[1],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3204 + gen_rtx_CONST_INT (VOIDmode, 8)));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3205 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3206 + /* Unsigned shifts always produce a zero in either the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3207 + * upper or lower half of the output; then, that part
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3208 + * does not need to be shifted anymore. We modify the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3209 + * output and the subsequent instructions to operate in
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3210 + * QImode only on the relevant part. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3211 + if (REG_P (output))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3212 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3213 + if (code == ASHIFT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3214 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3215 + output = gen_rtx_REG (QImode, HARD_A_REGNUM);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3216 + mode = QImode;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3217 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3218 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3219 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3220 + output = gen_rtx_REG (QImode, HARD_D_REGNUM);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3221 + mode = QImode;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3222 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3223 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3224 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3225 + m6809_emit_move_insn (output,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3226 + gen_rtx_fmt_ee (code, mode, copy_rtx (output),
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3227 + gen_rtx_CONST_INT (VOIDmode, count-8)));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3228 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3229 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3230 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3231 + /* Rewrite the unsigned shift of an 8-bit register by a large constant N
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3232 + * (near to the maximum of 8) as a rotate and mask. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3233 + if (mode == QImode && REG_P (operands[0]) && count >= ((code == ASHIFTRT) ? 7 : 6))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3234 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3235 + unsigned int mask;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3236 + unsigned int was_signed = (code == ASHIFTRT);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3237 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3238 + code = (code == ASHIFT) ? ROTATERT : ROTATE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3239 + if (code == ROTATE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3240 + mask = (count == 6) ? 0x03 : 0x01;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3241 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3242 + mask = (count == 6) ? 0xC0 - 0x100 : 0x80 - 0x100;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3243 + count = 9 - count;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3244 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3245 + do {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3246 + m6809_emit_move_insn (operands[0],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3247 + gen_rtx_fmt_ee (code, QImode, operands[1], const1_rtx));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3248 + } while (--count != 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3249 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3250 + m6809_emit_move_insn (operands[0],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3251 + gen_rtx_fmt_ee (AND, QImode, operands[1],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3252 + gen_rtx_CONST_INT (VOIDmode, mask)));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3253 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3254 + if (was_signed)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3255 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3256 + emit_insn (gen_negqi2 (operands[0], copy_rtx (operands[0])));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3257 + if (ACC_A_REG_P (operands[0]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3258 + emit_insn (gen_rtx_USE (VOIDmode, operands[0]));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3259 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3260 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3261 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3262 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3263 + /* Decompose the shift by any constant N > 1 into a sequence
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3264 + * of N shifts.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3265 + * This is done recursively, by creating a shift by 1 and a
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3266 + * shift by N-1, as long as N>1. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3267 + if (count > 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3268 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3269 + m6809_emit_move_insn (operands[0],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3270 + gen_rtx_fmt_ee (code, mode, operands[1], const1_rtx));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3271 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3272 + m6809_emit_move_insn (operands[0],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3273 + gen_rtx_fmt_ee (code, mode, operands[1],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3274 + gen_rtx_CONST_INT (VOIDmode, count-1)));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3275 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3276 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3277 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3278 + /* Decompose the single shift of a 16-bit quantity into two
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3279 + * CPU instructions, one for each 8-bit half.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3280 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3281 + if (mode == HImode && count == 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3282 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3283 + rtx first, second;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3284 + enum rtx_code rotate_code;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3285 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3286 + rotate_code = (code == ASHIFT) ? ROTATE : ROTATERT;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3287 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3288 + /* Split the operand into two 8-bit entities.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3289 + * FIRST is the one that will get shifted via a regular CPU
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3290 + * instruction.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3291 + * SECOND is the one that will have the result of the first shift
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3292 + * rotated in.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3293 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3294 + * We initialize first and second as if we are doing a left shift,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3295 + * then swap the operands if it's a right shift.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3296 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3297 + if (REG_P (operands[0]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3298 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3299 + first = gen_rtx_REG (QImode, HARD_D_REGNUM); /* HARD_B_REGNUM? */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3300 + second = gen_rtx_REG (QImode, HARD_A_REGNUM);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3301 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3302 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3303 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3304 + first = adjust_address (operands[0], QImode, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3305 + second = adjust_address (operands[0], QImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3306 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3307 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3308 + if (rotate_code == ROTATERT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3309 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3310 + rtx tmp; tmp = first; first = second; second = tmp;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3311 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3312 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3313 + /* Decompose into a shift and a rotate instruction. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3314 + m6809_emit_move_insn (first,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3315 + gen_rtx_fmt_ee (code, QImode, copy_rtx (first), const1_rtx));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3316 + m6809_emit_move_insn (second,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3317 + gen_rtx_fmt_ee (rotate_code, QImode, copy_rtx (second), const1_rtx));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3318 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3319 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3320 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3321 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3322 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3323 +/** Adjust register usage based on compile-time flags. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3324 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3325 +m6809_conditional_register_usage (void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3326 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3327 + unsigned int soft_regno;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3328 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3329 +#ifdef CONFIG_SOFT_REGS_ALWAYS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3330 + m6809_soft_regs = CONFIG_SOFT_REGS_ALWAYS;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3331 +#else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3332 + if (!m6809_soft_reg_count)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3333 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3334 + m6809_soft_regs = atoi (m6809_soft_reg_count);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3335 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3336 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3337 + if (m6809_soft_regs == 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3338 + return;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3339 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3340 + if (m6809_soft_regs > NUM_M_REGS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3341 + m6809_soft_regs = NUM_M_REGS;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3342 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3343 + /* Registers are marked FIXED by default. Free up if
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3344 + the user wishes. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3345 + for (soft_regno = 1; soft_regno < m6809_soft_regs; soft_regno++)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3346 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3347 + fixed_regs[SOFT_M0_REGNUM + soft_regno] = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3348 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3349 + /* Mark the softregs as call-clobbered, so that they need
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3350 + * not be saved/restored on function entry/exit. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3351 + call_used_regs[SOFT_M0_REGNUM + soft_regno] = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3352 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3353 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3354 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3355 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3356 +/** Return a RTX representing how to return a value from a function.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3357 + VALTYPE gives the type of the value, FUNC identifies the function
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3358 + itself.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3359 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3360 + In general, we only care about the width of the result. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3361 +rtx
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3362 +m6809_function_value (const tree valtype, const tree func ATTRIBUTE_UNUSED)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3363 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3364 + unsigned int regno;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3365 + enum machine_mode mode;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3366 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3367 + /* Get the mode (i.e. width) of the result. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3368 + mode = TYPE_MODE (valtype);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3369 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3370 + if (lookup_attribute ("boolean", TYPE_ATTRIBUTES (valtype)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3371 + regno = HARD_Z_REGNUM;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3372 + else if (mode == QImode \|\| (TARGET_DRET && mode == HImode))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3373 + regno = HARD_D_REGNUM;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3374 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3375 + regno = HARD_X_REGNUM;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3376 + return gen_rtx_REG (mode, regno);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3377 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3378 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3379 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3380 +/** Return 1 if REGNO is possibly needed to return the result
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3381 +of a function, 0 otherwise. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3382 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3383 +m6809_function_value_regno_p (unsigned int regno)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3384 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3385 + if (regno == HARD_Z_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3386 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3387 + else if ((TARGET_BYTE_INT \|\| TARGET_DRET) && regno == HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3388 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3389 + else if (!TARGET_DRET && regno == HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3390 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3391 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3392 + return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3393 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3394 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3395 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3396 +#ifdef TRACE_PEEPHOLE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3397 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3398 +m6809_match_peephole2 (unsigned int peephole_id, unsigned int stage)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3399 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3400 + if (stage == PEEP_END)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3401 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3402 + printf ("%s: peephole %d pattern and predicate matched\n",
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3403 + main_input_filename, peephole_id);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3404 + fflush (stdout);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3405 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3406 + else if (stage == PEEP_COND)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3407 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3408 + printf ("%s: peephole %d? at least pattern matched\n",
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3409 + main_input_filename, peephole_id);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3410 + fflush (stdout);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3411 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3412 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3413 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3414 +#else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3415 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3416 +m6809_match_peephole2 (unsigned int peephole_id ATTRIBUTE_UNUSED,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3417 + unsigned int stage ATTRIBUTE_UNUSED)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3418 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3419 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3420 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3421 +#endif /* TRACE_PEEPHOLE */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3422 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3423 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3424 +/** Return 1 if it is OK to store a value of MODE in REGNO. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3425 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3426 +m6809_hard_regno_mode_ok (unsigned int regno, enum machine_mode mode)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3427 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3428 + /* Soft registers, as they are just memory, can really hold
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3429 + values of any type. However we restrict them to values of
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3430 + size HImode or QImode to prevent exhausting them for larger
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3431 + values.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3432 + Word values cannot be placed into the first soft register,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3433 + as it is the low byte that is being placed there, which
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3434 + corrupts the (non-soft) register before it. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3435 + if (M_REGNO_P (regno))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3436 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3437 + switch (GET_MODE_SIZE (mode))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3438 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3439 + case 1:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3440 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3441 + case 2:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3442 + return regno != SOFT_M0_REGNUM;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3443 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3444 + return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3445 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3446 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3447 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3448 + /* VOIDmode can be stored anywhere */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3449 + else if (mode == VOIDmode)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3450 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3451 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3452 + /* Zero is a reserved register, but problems occur if we don't
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3453 + say yes here??? */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3454 + else if (regno == 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3455 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3456 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3457 + /* For other registers, return true only if the requested size
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3458 + exactly matches the hardware size. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3459 + else if ((G_REGNO_P (regno)) && (GET_MODE_SIZE (mode) == 2))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3460 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3461 + else if ((BYTE_REGNO_P (regno)) && (GET_MODE_SIZE (mode) == 1))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3462 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3463 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3464 + return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3465 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3466 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3467 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3468 +/* exp is the call expression. DECL is the called function,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3469 + * or NULL for an indirect call */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3470 +bool
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3471 +m6809_function_ok_for_sibcall (tree decl, tree exp ATTRIBUTE_UNUSED)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3472 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3473 + tree type, arg;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3474 + const char *name;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3475 + bool result = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3476 + int argcount = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3477 + int step = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3478 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3479 + /* If there is no DECL, it is an indirect call.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3480 + * Never optimize this??? */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3481 + if (decl == NULL)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3482 + goto done;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3483 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3484 + /* Never allow an interrupt handler to be optimized this way. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3485 + if (m6809_function_has_type_attr_p (decl, "interrupt"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3486 + goto done;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3487 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3488 + /* Skip sibcall if the type can't be found for
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3489 + * some reason */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3490 + step++;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3491 + name = IDENTIFIER_POINTER (DECL_NAME (decl));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3492 + type = TREE_TYPE (decl);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3493 + if (type == NULL)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3494 + goto done;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3495 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3496 + /* Skip sibcall if the target is a far function */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3497 + step++;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3498 + if (far_function_type_p (type) != NULL)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3499 + goto done;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3500 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3501 + /* Skip sibcall if the called function's arguments are
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3502 + * variable */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3503 + step++;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3504 + if (TYPE_ARG_TYPES (type) == NULL)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3505 + goto done;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3506 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3507 + /* Allow sibcalls in other cases. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3508 + result = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3509 +done:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3510 + /* printf ("%s ok for sibcall? %s, step %d, args %d\n", name, result ? "yes" : "no", step, argcount); */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3511 + return result;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3512 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3513 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3514 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3515 +/** Emit code for the 'casesi' pattern.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3516 + * This pattern is only used in 8-bit mode, and can be disabled
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3517 + * with -mold-case there as well. The rationale for this is to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3518 + * do a better job than the simpler but well-tested 'tablejump'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3519 + * method.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3520 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3521 + * For small jumptables, where the switch expression is an
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3522 + * 8-bit value, the lookup can be done more efficiently
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3523 + * using the "B,X" style index mode. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3524 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3525 +m6809_do_casesi (rtx index, rtx lower_bound, rtx range,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3526 + rtx table_label, rtx default_label)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3527 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3528 + enum machine_mode mode;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3529 + rtx scaled;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3530 + rtx table_in_reg;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3531 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3532 + /* expr.c has to be patched so that it does not promote
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3533 + * the expression to SImode, but rather to HImode.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3534 + * Fail now if that isn't the case. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3535 + if (GET_MODE_SIZE (GET_MODE (index)) > GET_MODE_SIZE (HImode))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3536 + error ("try_casesi promotion bug");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3537 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3538 + /* Determine whether or not we are going to work primarily in
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3539 + * QImode or HImode. This depends on the size of the index
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3540 + * into the lookup table. QImode can only be used when the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3541 + * index is less than 0x40, since it will be doubled but
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3542 + * must remain unsigned. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3543 + if ((GET_CODE (range) == CONST_INT) && (INTVAL (range) < 0x40))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3544 + mode = QImode;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3545 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3546 + mode = HImode;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3547 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3548 + /* Convert to QImode if necessary */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3549 + if (mode == QImode)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3550 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3551 + index = gen_lowpart_general (mode, index);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3552 + lower_bound = gen_lowpart_general (mode, lower_bound);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3553 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3554 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3555 + /* Translate from case value to table index by subtraction */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3556 + if (lower_bound != const0_rtx)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3557 + index = expand_binop (mode, sub_optab, index, lower_bound,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3558 + NULL_RTX, 0, OPTAB_LIB_WIDEN);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3559 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3560 + /* Emit compare-and-jump to test for index out-of-range */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3561 + emit_cmp_and_jump_insns (index, range, GTU, NULL_RTX, mode, 1,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3562 + default_label);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3563 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3564 + /* Put the table address is in a register */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3565 + table_in_reg = gen_reg_rtx (Pmode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3566 + emit_move_insn (table_in_reg, gen_rtx_LABEL_REF (Pmode, table_label));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3567 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3568 + /* Emit table lookup and jump */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3569 + if (mode == QImode)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3570 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3571 + /* Scale the index */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3572 + scaled = gen_reg_rtx (QImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3573 + emit_insn (gen_ashlqi3 (scaled, index, const1_rtx));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3574 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3575 + /* Emit the jump */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3576 + emit_jump_insn (gen_tablejump_short_offset (scaled, table_in_reg));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3577 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3578 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3579 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3580 + /* Scale the index */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3581 + emit_insn (gen_ashlhi3 (index, index, const1_rtx));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3582 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3583 + /* Emit the jump */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3584 + emit_jump_insn (gen_tablejump_long_offset (index, table_in_reg));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3585 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3586 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3587 + /* Copied from expr.c */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3588 + if (!CASE_VECTOR_PC_RELATIVE && !flag_pic)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3589 + emit_barrier ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3590 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3591 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3592 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3593 +/** Output the assembly code for a 32-bit add/subtract. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3594 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3595 +m6809_output_addsi3 (int rtx_code, rtx *operands)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3596 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3597 + rtx xoperands[8];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3598 + rtx dst = operands[0];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3599 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3600 + /* Prepare the operands by splitting each SImode into two HImodes
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3601 + that can be operated independently. The high word of operand 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3602 + is further divided into two QImode components for use with 'adc'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3603 + style instructions. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3604 + xoperands[7] = operands[3];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3605 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3606 + xoperands[0] = adjust_address (dst, HImode, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3607 + xoperands[3] = adjust_address (dst, HImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3608 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3609 +#if 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3610 + xoperands[2] = adjust_address (operands[1], HImode, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3611 + xoperands[6] = adjust_address (operands[1], HImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3612 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3613 + /* Operand 2 may be a MEM or a CONST_INT */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3614 + if (GET_CODE (operands[2]) == CONST_INT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3615 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3616 + xoperands[1] = gen_int_mode (INTVAL (operands[2]) & 0xFFFF, HImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3617 + xoperands[4] = gen_int_mode ((INTVAL (operands[2]) >> 24) & 0xFF, QImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3618 + xoperands[5] = gen_int_mode ((INTVAL (operands[2]) >> 16) & 0xFF, QImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3619 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3620 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3621 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3622 + xoperands[1] = adjust_address (operands[2], HImode, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3623 + xoperands[4] = adjust_address (operands[2], QImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3624 + xoperands[5] = adjust_address (operands[2], QImode, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3625 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3626 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3627 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3628 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3629 +#if 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3630 + xoperands[1] = adjust_address (operands[1], HImode, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3631 + xoperands[4] = adjust_address (operands[1], QImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3632 + xoperands[5] = adjust_address (operands[1], QImode, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3633 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3634 + /* Operand 2 may be a MEM or a CONST_INT */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3635 + if (GET_CODE (operands[2]) == CONST_INT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3636 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3637 + xoperands[2] = gen_int_mode ((INTVAL (operands[2])) & 0xFFFF, HImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3638 + xoperands[6] = gen_int_mode ((INTVAL (operands[2]) >> 16) & 0xFFFF, HImode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3639 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3640 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3641 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3642 + xoperands[2] = adjust_address (operands[2], HImode, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3643 + xoperands[6] = adjust_address (operands[2], HImode, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3644 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3645 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3646 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3647 + /* Output the assembly code. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3648 + if (rtx_code == PLUS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3649 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3650 + output_asm_insn ("ld%7\t%2", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3651 + output_asm_insn ("add%7\t%1", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3652 + output_asm_insn ("st%7\t%0", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3653 + output_asm_insn ("ld%7\t%6", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3654 + output_asm_insn ("adcb\t%5", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3655 + output_asm_insn ("adca\t%4", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3656 + output_asm_insn ("st%7\t%3", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3657 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3658 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3659 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3660 + output_asm_insn ("ld%7\t%2", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3661 + output_asm_insn ("sub%7\t%1", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3662 + output_asm_insn ("st%7\t%0", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3663 + output_asm_insn ("ld%7\t%6", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3664 + output_asm_insn ("sbcb\t%5", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3665 + output_asm_insn ("sbca\t%4", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3666 + output_asm_insn ("st%7\t%3", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3667 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3668 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3669 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3670 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3671 +#if 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3672 +/** Output the assembly code for a 32-bit shift.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3673 +Operands 0 and 1 must be the same rtx, forced by a matching
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3674 +constraint. Operand 2 must be a CONST_INT. Operand 3 is
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3675 +"d" in case a temporary reg is needed. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3676 +void
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3677 +m6809_output_shiftsi3 (int rtx_code, rtx *operands)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3678 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3679 + unsigned int count = INTVAL (operands[2]) % 32;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3680 + unsigned int size = 4; /* sizeof (SImode) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3681 + int s;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3682 + rtx xoperands[4];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3683 + int op;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3684 + int start, end, step;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3685 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3686 + /* Initialize */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3687 + if (rtx_code == ASHIFT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3688 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3689 + start = size-1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3690 + end = -1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3691 + step = -1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3692 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3693 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3694 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3695 + start = 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3696 + end = size;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3697 + step = 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3698 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3699 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3700 + xoperands[2] = operands[2];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3701 + xoperands[3] = operands[3];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3702 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3703 + if (count <= 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3704 + abort ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3705 + if (rtx_code == ROTATE \|\| rtx_code == ROTATERT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3706 + abort ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3707 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3708 + /* Extract bit shifts over 16 bits by HImode moves. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3709 + if (count >= 16)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3710 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3711 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3712 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3713 + /* Extract bit shifts over 8 bits by QImode moves. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3714 + if (count >= 8)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3715 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3716 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3717 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3718 + /* Iterate over the number of bits to be shifted. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3719 + while (count > 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3720 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3721 + /* Each bit to be shifted requires 1 proper bit shift
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3722 + and 3 rotates. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3723 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3724 + /* First, do the arithmetic/logical shift. Left shifts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3725 + start from the LSB; right shifts start from the MSB. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3726 + xoperands[0] = adjust_address (operands[0], QImode, start);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3727 + switch (rtx_code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3728 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3729 + case ASHIFT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3730 + output_asm_insn ("asl\t%0", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3731 + start--;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3732 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3733 + case ASHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3734 + output_asm_insn ("asr\t%0", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3735 + start++;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3736 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3737 + case LSHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3738 + output_asm_insn ("lsr\t%0", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3739 + start++;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3740 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3741 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3742 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3743 + /* Next, rotate the other bytes */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3744 + for (s = start; s != end; s += step)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3745 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3746 + xoperands[0] = adjust_address (operands[0], QImode, s);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3747 + switch (rtx_code)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3748 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3749 + case ASHIFT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3750 + output_asm_insn ("rol\t%0", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3751 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3752 + case ASHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3753 + case LSHIFTRT:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3754 + output_asm_insn ("ror\t%0", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3755 + break;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3756 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3757 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3758 + count--;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3759 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3760 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3761 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3762 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3763 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3764 +power_of_two_p (unsigned int n)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3765 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3766 + return (n & (n-1)) == 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3767 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3768 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3769 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3770 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3771 +m6809_can_eliminate (int from, int to)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3772 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3773 + if (from == ARG_POINTER_REGNUM && to == STACK_POINTER_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3774 + return !frame_pointer_needed;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3775 + return 1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3776 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3777 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3778 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3779 +int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3780 +m6809_initial_elimination_offset (int from, int to)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3781 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3782 + switch (from)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3783 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3784 + case ARG_POINTER_REGNUM:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3785 + return get_frame_size () + m6809_get_regs_size (m6809_get_live_regs ());
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3786 + case FRAME_POINTER_REGNUM:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3787 + return get_frame_size ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3788 + default:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3789 + gcc_unreachable ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3790 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3791 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3792 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3793 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3794 +bool
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3795 +m6809_frame_pointer_required (void)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3796 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3797 + return false;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3798 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3799 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3800 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3801 +/* Defines the target-specific hooks structure. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3802 +struct gcc_target targetm = TARGET_INITIALIZER;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3803 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.h gcc-4.6.4/gcc/config/m6809/m6809.h
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3804 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.h 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3805 +++ gcc-4.6.4/gcc/config/m6809/m6809.h 2017-11-29 17:11:09.221248469 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3806 @@ -0,0 +1,1336 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3807 +/* Definitions of target machine for GNU compiler. MC6809 version.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3808 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3809 + MC6809 Version by Tom Jones (jones@sal.wisc.edu)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3810 + Space Astronomy Laboratory
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3811 + University of Wisconsin at Madison
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3812 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3813 + minor changes to adapt it to gcc-2.5.8 by Matthias Doerfel
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3814 + ( msdoerfe@informatik.uni-erlangen.de )
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3815 + also added #pragma interrupt (inspired by gcc-6811)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3816 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3817 + minor changes to adapt it to gcc-2.8.0 by Eric Botcazou
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3818 + (ebotcazou@multimania.com)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3819 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3820 + minor changes to adapt it to egcs-1.1.2 by Eric Botcazou
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3821 + (ebotcazou@multimania.com)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3822 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3823 + minor changes to adapt it to gcc-2.95.3 by Eric Botcazou
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3824 + (ebotcazou@multimania.com)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3825 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3826 + changes for gcc-3.1.1 by ???
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3827 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3828 + further changes for gcc-3.1.1 and beyond by Brian Dominy
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3829 + (brian@oddchange.com)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3830 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3831 + even more changes for gcc-4.6.1 by William Astle (lost@l-w.ca)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3832 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3833 +This file is part of GCC.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3834 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3835 +GCC is free software; you can redistribute it and/or modify
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3836 +it under the terms of the GNU General Public License as published by
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3837 +the Free Software Foundation; either version 3, or (at your option)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3838 +any later version.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3839 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3840 +GCC is distributed in the hope that it will be useful,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3841 +but WITHOUT ANY WARRANTY; without even the implied warranty of
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3842 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3843 +GNU General Public License for more details.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3844 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3845 +You should have received a copy of the GNU General Public License
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3846 +along with GCC; see the file COPYING3. If not see
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3847 +<http://www.gnu.org/licenses/>. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3848 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3849 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3850 +/* Helper macros for creating strings with macros */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3851 +#define C_STRING(x) C_STR(x)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3852 +#define C_STR(x) #x
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3853 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3854 +/* Certain parts of GCC include host-side includes, which is bad.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3855 + * Some things that get pulled in need to be undone.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3856 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3857 +#undef HAVE_GAS_HIDDEN
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3858 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3859 +/* Names to predefine in the preprocessor for this target machine. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3860 +/#define TARGET_CPU_CPP_BUILTINS() m6809_cpu_cpp_builtins () /
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3861 +#define TARGET_CPU_CPP_BUILTINS() do \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3862 + { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3863 + if (TARGET_6309) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3864 + { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3865 + builtin_define_std ("__M6309__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3866 + builtin_define_std ("__m6309__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3867 + } \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3868 + else \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3869 + { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3870 + builtin_define_std ("__M6809__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3871 + builtin_define_std ("__m6809__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3872 + } \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3873 + \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3874 + if (TARGET_BYTE_INT) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3875 + builtin_define_std ("__int8__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3876 + else \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3877 + builtin_define_std ("__int16__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3878 + \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3879 + switch (m6809_abi_version) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3880 + { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3881 + case M6809_ABI_VERSION_STACK: \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3882 + builtin_define_std ("__regargs__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3883 + builtin_define_std ("__ABI_STACK__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3884 + break; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3885 + case M6809_ABI_VERSION_REGS: \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3886 + builtin_define_std ("__ABI_REGS__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3887 + break; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3888 + case M6809_ABI_VERSION_BX: \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3889 + builtin_define_std ("__ABI_BX__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3890 + break; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3891 + default: \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3892 + break; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3893 + } \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3894 + \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3895 + if (TARGET_WPC) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3896 + builtin_define_std ("__WPC__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3897 + \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3898 + if (TARGET_DRET) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3899 + builtin_define_std ("__DRET__"); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3900 + } while (0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3901 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3902 +/* As an embedded target, we have no libc. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3903 +#ifndef inhibit_libc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3904 +#define inhibit_libc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3905 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3906 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3907 +/* Print subsidiary information on the compiler version in use. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3908 +#define TARGET_VERSION fprintf (stderr, " (MC6809)");
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3909 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3910 +/* Run-time compilation parameters selecting different hardware subsets. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3911 +/extern int target_flags; /
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3912 +extern short reg_renumber; / def in local_alloc.c */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3913 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3914 +/* Runtime current values of section names */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3915 +extern int section_changed;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3916 +extern char code_section_op[], data_section_op[], bss_section_op[];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3917 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3918 +#define WARNING_OPT 0,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3919 +/extern const char m6809_abi_version_ptr; */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3920 +extern unsigned int m6809_soft_regs;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3921 +extern unsigned int m6809_abi_version;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3922 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3923 +/* ABI versions */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3924 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3925 +#define M6809_ABI_VERSION_STACK 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3926 +#define M6809_ABI_VERSION_REGS 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3927 +#define M6809_ABI_VERSION_BX 2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3928 +#define M6809_ABI_VERSION_LATEST (M6809_ABI_VERSION_BX)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3929 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3930 +/* Allow $ in identifiers */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3931 +#define DOLLARS_IN_IDENTIFIERS 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3932 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3933 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3934 + Target machine storage layout
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3935 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3936 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3937 +/* Define this if most significant bit is lowest numbered
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3938 + in instructions that operate on numbered bit-fields. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3939 +#define BITS_BIG_ENDIAN 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3940 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3941 +/* Define to 1 if most significant byte of a word is the lowest numbered. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3942 +#define BYTES_BIG_ENDIAN 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3943 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3944 +/* Define to 1 if most significant word of a multiword value is the lowest numbered. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3945 +#define WORDS_BIG_ENDIAN 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3946 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3947 +/* Number of bits in an addressible storage unit */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3948 +#define BITS_PER_UNIT 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3949 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3950 +/* Width in bits of a "word", or the contents of a machine register.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3951 + * Although the 6809 has a few byte registers, define this to 16-bits
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3952 + * since this is the natural size of most registers. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3953 +#define BITS_PER_WORD 16
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3954 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3955 +/* Width of a word, in units (bytes). */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3956 +#define UNITS_PER_WORD (BITS_PER_WORD/8)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3957 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3958 +/* Width in bits of a pointer. See also the macro `Pmode' defined below. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3959 +#define POINTER_SIZE 16
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3960 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3961 +/* Allocation boundary (bits) for storing pointers in memory. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3962 +#define POINTER_BOUNDARY 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3963 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3964 +/* Allocation boundary (bits) for storing arguments in argument list. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3965 +/* PARM_BOUNDARY is divided by BITS_PER_WORD in expr.c -- tej */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3966 +#define PARM_BOUNDARY 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3967 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3968 +/* Boundary (bits) on which stack pointer should be aligned. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3969 +#define STACK_BOUNDARY 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3970 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3971 +/* Allocation boundary (bits) for the code of a function. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3972 +#define FUNCTION_BOUNDARY 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3973 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3974 +/* Alignment of field after `int : 0' in a structure. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3975 +#define EMPTY_FIELD_BOUNDARY 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3976 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3977 +/* Every structure's size must be a multiple of this. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3978 +#define STRUCTURE_SIZE_BOUNDARY 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3979 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3980 +/* Largest mode size to use when putting an object, including
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3981 + * a structure, into a register. By limiting this to 16, no
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3982 + * 32-bit objects will ever be allocated to a pair of hard
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3983 + * registers. This is a good thing, since there aren't that
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3984 + * many of them. 32-bit objects are only needed for floats
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3985 + * and "long long"s. Larger values have been tried and did not
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3986 + * work. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3987 +#define MAX_FIXED_MODE_SIZE 16
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3988 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3989 +/* No data type wants to be aligned rounder than this. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3990 +#define BIGGEST_ALIGNMENT 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3991 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3992 +/* Define this if move instructions will actually fail to work
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3993 + when given unaligned data. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3994 +#define STRICT_ALIGNMENT 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3995 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3996 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3997 + Standard register usage.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3998 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	3999 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4000 +/* Register values as bitmasks.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4001 + * TODO : merge D_REGBIT and B_REGBIT, and treat this as the same
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4002 + * register. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4003 +#define RSVD1_REGBIT (1 << HARD_RSVD1_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4004 +#define D_REGBIT (1 << HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4005 +#define X_REGBIT (1 << HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4006 +#define Y_REGBIT (1 << HARD_Y_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4007 +#define U_REGBIT (1 << HARD_U_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4008 +#define S_REGBIT (1 << HARD_S_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4009 +#define PC_REGBIT (1 << HARD_PC_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4010 +#define Z_REGBIT (1 << HARD_Z_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4011 +#define A_REGBIT (1 << HARD_A_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4012 +#define B_REGBIT (1 << HARD_B_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4013 +#define CC_REGBIT (1 << HARD_CC_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4014 +#define DP_REGBIT (1 << HARD_DP_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4015 +#define SOFT_FP_REGBIT (1 << SOFT_FP_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4016 +#define SOFT_AP_REGBIT (1 << SOFT_AP_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4017 +#define M_REGBIT(n) (1 << (SOFT_M0_REGNUM + n))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4018 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4019 +/* Macros for dealing with set of registers.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4020 + * A register set is just a bitwise-OR of all the register
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4021 + * bitmask values. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4022 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4023 +/* Which registers can hold 8-bits */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4024 +#define BYTE_REGSET \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4025 + (Z_REGBIT \| A_REGBIT \| D_REGBIT \| CC_REGBIT \| DP_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4026 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4027 +/* Which registers can hold 16-bits.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4028 + * Note: D_REGBIT is defined as both an 8-bit and 16-bit register */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4029 +#define WORD_REGSET \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4030 + (D_REGBIT \| X_REGBIT \| Y_REGBIT \| U_REGBIT \| S_REGBIT \| PC_REGBIT \| SOFT_FP_REGBIT \| SOFT_AP_REGBIT \| RSVD1_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4031 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4032 +/* Returns nonzero if a given REGNO is in the REGSET. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4033 +#define REGSET_CONTAINS_P(regno, regset) (((1 << (regno)) & (regset)) != 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4034 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4035 +/* Defines related to the number of soft registers supported.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4036 + * The actual number used may be less depending on -msoft-reg-count.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4037 + * If you change one of these, you should change them all. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4038 +#define NUM_M_REGS 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4039 +#define M_REGS_FIXED 1, 1, 1, 1, 1, 1, 1, 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4040 +#define M_REGS_CALL_USED 1, 1, 1, 1, 1, 1, 1, 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4041 +#define HARD_M_REGNUMS \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4042 + SOFT_M0_REGNUM+0, SOFT_M0_REGNUM+1, SOFT_M0_REGNUM+2, SOFT_M0_REGNUM+3, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4043 + SOFT_M0_REGNUM+4, SOFT_M0_REGNUM+5, SOFT_M0_REGNUM+6, SOFT_M0_REGNUM+7
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4044 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4045 +#define SOFT_M_REGBITS (((1UL << NUM_M_REGS) - 1) << (SOFT_M0_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4046 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4047 +/* Number of actual hardware registers.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4048 + The hardware registers are assigned numbers for the compiler
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4049 + from 0 to just below FIRST_PSEUDO_REGISTER.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4050 + All registers that the compiler knows about must be given numbers,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4051 + even those that are not normally considered general registers.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4052 + Make sure the constant below matches the value of SOFT_M0_REGNUM;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4053 + for some reason, GCC won't compile if that name is used here directly. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4054 +#ifdef SOFT_M0_REGNUM
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4055 +#if (SOFT_M0_REGNUM != 14)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4056 +#error "bad register numbering"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4057 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4058 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4059 +#define FIRST_PSEUDO_REGISTER (14 + NUM_M_REGS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4060 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4061 +/* 1 for registers that have pervasive standard uses
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4062 + and are not available for the register allocator.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4063 + The psuedoregisters (M_REGS) are declared fixed here, but
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4064 + will be unfixed if -msoft-reg-count is seen later. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4065 +#define FIXED_REGISTERS \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4066 + {1, 0, 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, M_REGS_FIXED, }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4067 + /* -, X, Y, U, S, PC,D, Z, A, B, C, DP,FP,AP,M... */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4068 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4069 +/* 1 for registers not available across function calls.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4070 + These must include the FIXED_REGISTERS and also any
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4071 + registers that can be used without being saved.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4072 + The latter must include the registers where values are returned
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4073 + and the register where structure-value addresses are passed.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4074 + Aside from that, you can include as many other registers as you like. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4075 +#define CALL_USED_REGISTERS \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4076 + {1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, M_REGS_CALL_USED, }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4077 + /* -, X, Y, U, S, PC,D, Z, A, B, C, DP,FP,AP,M... */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4078 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4079 +/* Return number of consecutive hard regs needed starting at reg REGNO
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4080 + to hold something of mode MODE.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4081 + For the 6809, we distinguish between word-length and byte-length
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4082 + registers. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4083 +#define HARD_REGNO_NREGS(REGNO, MODE) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4084 + (REGSET_CONTAINS_P (REGNO, WORD_REGSET) ? \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4085 + ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4086 + (GET_MODE_SIZE (MODE)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4087 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4088 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4089 +/* Value is 1 if hard register REGNO can hold a value
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4090 +of machine-mode MODE. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4091 +#define HARD_REGNO_MODE_OK(REGNO, MODE) m6809_hard_regno_mode_ok (REGNO, MODE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4092 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4093 +/* Value is 1 if it is a good idea to tie two pseudo registers
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4094 + when one has mode MODE1 and one has mode MODE2.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4095 + If HARD_REGNO_MODE_OK could produce different values for MODE1 and MODE2,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4096 + for any hard reg, then this must be 0 for correct output. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4097 +#define MODES_TIEABLE_P(MODE1, MODE2) 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4098 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4099 +/* Specify the registers used for certain standard purposes.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4100 + The values of these macros are register numbers. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4101 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4102 +/* program counter if referenced as a register */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4103 +#define PC_REGNUM HARD_PC_REGNUM
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4104 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4105 +/* Register to use for pushing function arguments. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4106 +#define STACK_POINTER_REGNUM HARD_S_REGNUM
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4107 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4108 +/* Base register for access to local variables of the function.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4109 + * Before reload, FRAME_POINTER_REGNUM will be used. Later,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4110 + * the elimination pass will convert these to STACK_POINTER_REGNUM
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4111 + * if possible, or else HARD_FRAME_POINTER_REGNUM. The idea is to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4112 + * avoid tying up a hard register (U) for the frame pointer if
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4113 + * it can be eliminated entirely, making it available for use as
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4114 + * a general register. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4115 +#define FRAME_POINTER_REGNUM SOFT_FP_REGNUM
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4116 +#define HARD_FRAME_POINTER_REGNUM HARD_U_REGNUM
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4117 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4118 +/* Define a table of possible eliminations.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4119 + * The idea is to try to avoid using hard registers for the argument
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4120 + * and frame pointers if they can be derived from the stack pointer
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4121 + * instead, which already has a hard register reserved for it.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4122 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4123 + * The order of entries in this table will try to convert
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4124 + * ARG_POINTER_REGNUM and FRAME_POINTER_REGNUM into stack pointer
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4125 + * references first, but if that fails, they will be converted to use
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4126 + * HARD_FRAME_POINTER_REGNUM.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4127 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4128 +#define ELIMINABLE_REGS \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4129 +{{ ARG_POINTER_REGNUM, STACK_POINTER_REGNUM }, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4130 + { ARG_POINTER_REGNUM, HARD_FRAME_POINTER_REGNUM }, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4131 + { FRAME_POINTER_REGNUM, STACK_POINTER_REGNUM }, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4132 + { FRAME_POINTER_REGNUM, HARD_FRAME_POINTER_REGNUM }}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4133 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4134 +/* #define CAN_ELIMINATE(FROM, TO) m6809_can_eliminate (FROM, TO) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4135 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4136 +/* Define how to offset the frame or argument pointer to turn it
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4137 + * into a stack pointer reference. This is based on the way that
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4138 + * the frame is constructed in the function prologue. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4139 +#define INITIAL_ELIMINATION_OFFSET(FROM, TO, OFFSET) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4140 + (OFFSET) = m6809_initial_elimination_offset (FROM, TO)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4141 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4142 +/* Base register for access to arguments of the function.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4143 + * This is only used prior to reload; no instructions will ever
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4144 + * be output referring to this register. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4145 +#define ARG_POINTER_REGNUM SOFT_AP_REGNUM
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4146 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4147 +/* Register in which static-chain is passed to a function. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4148 +#define STATIC_CHAIN_REGNUM HARD_Y_REGNUM
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4149 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4150 +/* #define CONDITIONAL_REGISTER_USAGE (m6809_conditional_register_usage ()) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4151 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4152 +/* Order in which hard registers are allocated to pseudos.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4153 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4154 + * Since the D register is the only valid reg for 8-bit values
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4155 + * now, avoid using it for 16-bit values by putting it after all
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4156 + * other 16-bits.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4157 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4158 + * Prefer X first since the first 16-bit function argument goes
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4159 + * there. We may be able to pass in to a subroutine without
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4160 + * a copy.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4161 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4162 + * Prefer U over Y since instructions using Y take one extra
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4163 + * byte, and thus one extra cycle to execute.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4164 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4165 +#define REG_ALLOC_ORDER \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4166 + { HARD_X_REGNUM, HARD_U_REGNUM, HARD_Y_REGNUM, HARD_D_REGNUM, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4167 + HARD_M_REGNUMS, HARD_S_REGNUM, HARD_PC_REGNUM, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4168 + HARD_B_REGNUM, HARD_A_REGNUM, HARD_CC_REGNUM, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4169 + HARD_DP_REGNUM, SOFT_FP_REGNUM, SOFT_AP_REGNUM, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4170 + 6, HARD_Z_REGNUM }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4171 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4172 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4173 + classes of registers
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4174 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4175 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4176 +/* Define the classes of registers for register constraints in the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4177 + machine description. Also define ranges of constants.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4178 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4179 + One of the classes must always be named ALL_REGS and include all hard regs.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4180 + If there is more than one class, another class must be named NO_REGS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4181 + and contain no registers.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4182 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4183 + The name GENERAL_REGS must be the name of a class (or an alias for
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4184 + another name such as ALL_REGS). This is the class of registers
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4185 + that is allowed by "g" or "r" in a register constraint.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4186 + Also, registers outside this class are allocated only when
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4187 + instructions express preferences for them.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4188 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4189 + The classes must be numbered in nondecreasing order; that is,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4190 + a larger-numbered class must never be contained completely
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4191 + in a smaller-numbered class.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4192 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4193 + For any two classes, it is very desirable that there be another
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4194 + class that represents their union. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4195 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4196 +enum reg_class {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4197 + NO_REGS, /* The trivial class with no registers in it */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4198 + D_REGS, /* 16-bit (word (HI)) data (D) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4199 + ACC_A_REGS, /* The A register */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4200 + ACC_B_REGS, /* The B register */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4201 + X_REGS, /* The X register */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4202 + Z_REGS, /* The Z (zero-bit) register */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4203 + Q_REGS, /* 8-bit (byte (QI)) data (A,B) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4204 + M_REGS, /* 8-bit (byte (QI)) soft registers */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4205 + CC_REGS, /* 8-bit condition code register */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4206 + I_REGS, /* An index register (A,B,D) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4207 + T_REGS, /* 16-bit addresses, not including stack or PC (X,Y,U) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4208 + A_REGS, /* 16-bit addresses (X,Y,U,S,PC) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4209 + S_REGS, /* 16-bit soft registers (FP, AP) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4210 + P_REGS, /* 16-bit pushable registers (D,X,Y,U); omit PC and S */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4211 + G_REGS, /* 16-bit data and address (D,X,Y,U,S,PC) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4212 + ALL_REGS, /* All registers */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4213 + LIM_REG_CLASSES
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4214 +};
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4215 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4216 +#define N_REG_CLASSES (int) LIM_REG_CLASSES
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4217 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4218 +/* Since GENERAL_REGS is a smaller class than ALL_REGS,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4219 + it is not an alias to ALL_REGS, but to G_REGS. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4220 +#define GENERAL_REGS G_REGS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4221 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4222 +/* Give names of register classes as strings for dump file. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4223 +#define REG_CLASS_NAMES \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4224 + { "NO_REGS", "D_REGS", "ACC_A_REGS", "ACC_B_REGS", "X_REGS", "Z_REGS", "Q_REGS", "M_REGS", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4225 + "CC_REGS", "I_REGS", "T_REGS", "A_REGS", "S_REGS", "P_REGS", "G_REGS", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4226 + "ALL_REGS" }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4227 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4228 +/* Define which registers fit in which classes.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4229 + This is an initializer for a vector of HARD_REG_SET
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4230 + of length N_REG_CLASSES. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4231 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4232 +#define D_REGSET (D_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4233 +#define ACC_A_REGSET (A_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4234 +#define ACC_B_REGSET (D_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4235 +#define X_REGSET (X_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4236 +#define Z_REGSET (Z_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4237 +#define Q_REGSET (D_REGBIT \| A_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4238 +#define M_REGSET (SOFT_M_REGBITS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4239 +#define CC_REGSET (CC_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4240 +#define I_REGSET (A_REGBIT \| B_REGBIT \| D_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4241 +#define T_REGSET (X_REGBIT \| Y_REGBIT \| U_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4242 +#define A_REGSET (X_REGBIT \| Y_REGBIT \| U_REGBIT \| S_REGBIT \| PC_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4243 +#define S_REGSET (SOFT_FP_REGBIT \| SOFT_AP_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4244 +#define P_REGSET (D_REGBIT \| X_REGBIT \| Y_REGBIT \| U_REGBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4245 +#define G_REGSET \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4246 + (D_REGSET \| Q_REGSET \| I_REGSET \| A_REGSET \| M_REGSET \| S_REGSET)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4247 +#define ALL_REGSET (G_REGSET)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4248 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4249 +#define REG_CLASS_CONTENTS { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4250 + {0}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4251 + {D_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4252 + {ACC_A_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4253 + {ACC_B_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4254 + {X_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4255 + {Z_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4256 + {Q_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4257 + {M_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4258 + {CC_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4259 + {I_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4260 + {T_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4261 + {A_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4262 + {S_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4263 + {P_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4264 + {G_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4265 + {ALL_REGSET}, \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4266 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4267 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4268 +/* The same information, inverted.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4269 + * This is defined to use the REG_CLASS_CONTENTS defines above, so that
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4270 + * these two sets of definitions are always consistent. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4271 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4272 +#define REGNO_REG_CLASS(REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4273 + (D_REGNO_P (REGNO) ? D_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4274 + (Z_REGNO_P (REGNO) ? Z_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4275 + (ACC_A_REGNO_P (REGNO) ? ACC_A_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4276 + (ACC_B_REGNO_P (REGNO) ? ACC_B_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4277 + (X_REGNO_P (REGNO) ? X_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4278 + (Q_REGNO_P (REGNO) ? Q_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4279 + (M_REGNO_P (REGNO) ? M_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4280 + (CC_REGNO_P (REGNO) ? CC_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4281 + (I_REGNO_P (REGNO) ? I_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4282 + (T_REGNO_P (REGNO) ? T_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4283 + (A_REGNO_P (REGNO) ? A_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4284 + (S_REGNO_P (REGNO) ? S_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4285 + (P_REGNO_P (REGNO) ? P_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4286 + (G_REGNO_P (REGNO) ? G_REGS : ALL_REGS))))))))))))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4287 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4288 +#define D_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, D_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4289 +#define ACC_A_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, ACC_A_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4290 +#define ACC_B_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, ACC_B_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4291 +#define X_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, X_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4292 +#define Z_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, Z_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4293 +#define Q_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, Q_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4294 +#define M_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, M_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4295 +#define CC_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, CC_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4296 +#define I_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, I_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4297 +#define T_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, T_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4298 +#define A_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, A_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4299 +#define S_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, S_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4300 +#define P_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, P_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4301 +#define G_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, G_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4302 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4303 +/* Macros that test an rtx 'X' to see if it's in a particular
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4304 + * register class. 'X' need not be a REG necessarily. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4305 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4306 +#define D_REG_P(X) (REG_P (X) && D_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4307 +#define ACC_A_REG_P(X) (REG_P (X) && ACC_A_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4308 +#define ACC_B_REG_P(X) (REG_P (X) && ACC_B_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4309 +#define X_REG_P(X) (REG_P (X) && X_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4310 +#define Z_REG_P(X) (REG_P (X) && Z_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4311 +#define I_REG_P(X) (REG_P (X) && I_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4312 +#define T_REG_P(X) (REG_P (X) && T_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4313 +#define A_REG_P(X) (REG_P (X) && A_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4314 +#define S_REG_P(X) (REG_P (X) && S_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4315 +#define P_REG_P(X) (REG_P (X) && P_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4316 +#define Q_REG_P(X) (REG_P (X) && Q_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4317 +#define M_REG_P(X) (REG_P (X) && M_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4318 +#define CC_REG_P(X) (REG_P (X) && CC_REGNO_P (REGNO (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4319 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4320 +/* Redefine this in terms of BYTE_REGSET */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4321 +#define BYTE_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, BYTE_REGSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4322 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4323 +/* The class value for index registers, and the one for base regs. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4324 +#define INDEX_REG_CLASS I_REGS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4325 +#define BASE_REG_CLASS A_REGS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4326 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4327 +/* Get reg_class from a letter in the machine description. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4328 +#define REG_CLASS_FROM_LETTER(C) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4329 + (((C) == 'a' ? A_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4330 + ((C) == 'd' ? D_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4331 + ((C) == 'x' ? I_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4332 + ((C) == 't' ? M_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4333 + ((C) == 'c' ? CC_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4334 + ((C) == 'A' ? ACC_A_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4335 + ((C) == 'B' ? ACC_B_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4336 + ((C) == 'v' ? X_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4337 + ((C) == 'u' ? S_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4338 + ((C) == 'U' ? P_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4339 + ((C) == 'T' ? T_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4340 + ((C) == 'z' ? Z_REGS : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4341 + ((C) == 'q' ? Q_REGS : NO_REGS))))))))))))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4342 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4343 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4344 + The letters I through O in a register constraint string
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4345 + can be used to stand for particular ranges of immediate operands.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4346 + This macro defines what the ranges are.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4347 + C is the letter, and VALUE is a constant value.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4348 + Return 1 if VALUE is in the range specified by C.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4349 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4350 + For the 6809, J, K, L are used for indexed addressing.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4351 + `I' is used for the constant 1.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4352 + `J' is used for the 5-bit offsets.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4353 + `K' is used for the 8-bit offsets.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4354 + `L' is used for the range of signed numbers that fit in 16 bits.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4355 + `M' is used for the exact value '8'.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4356 + `N' is used for the constant -1.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4357 + `O' is used for the constant 0.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4358 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4359 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4360 +#define CONST_OK_FOR_LETTER_P(VALUE, C) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4361 + ((C) == 'I' ? ((VALUE) == 1) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4362 + (C) == 'J' ? ((VALUE) >= -16 && (VALUE) <= 15) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4363 + (C) == 'K' ? ((VALUE) >= -128 && (VALUE) <= 127) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4364 + (C) == 'L' ? ((VALUE) >= -32768 && (VALUE) <= 32767) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4365 + (C) == 'M' ? ((VALUE) == 8) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4366 + (C) == 'N' ? ((VALUE) == -1) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4367 + (C) == 'O' ? ((VALUE) == 0) : 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4368 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4369 +/* Similar, but for floating constants, and defining letters G and H.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4370 + No floating-point constants are valid on MC6809. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4371 +#define CONST_DOUBLE_OK_FOR_LETTER_P(VALUE, C) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4372 + ((C) == 'G' ? (GET_MODE_CLASS (GET_MODE (VALUE)) == MODE_FLOAT \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4373 + && VALUE == CONST0_RTX (GET_MODE (VALUE))) : 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4374 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4375 +/* Given an rtx X being reloaded into a reg required to be
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4376 + in class CLASS, return the class of reg to actually use.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4377 + In general this is just CLASS; but on some machines
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4378 + in some cases it is preferable to use a more restrictive class. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4379 +#define PREFERRED_RELOAD_CLASS(X,CLASS) m6809_preferred_reload_class(X,CLASS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4380 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4381 +#define SMALL_REGISTER_CLASSES 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4382 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4383 +/* Return the maximum number of consecutive registers
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4384 + needed to represent mode MODE in a register of class CLASS. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4385 +#define CLASS_MAX_NREGS(CLASS, MODE) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4386 + ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4387 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4388 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4389 + Stack layout; function entry, exit and calling.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4390 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4391 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4392 +/* Define this if pushing a word on the stack
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4393 + makes the stack pointer a smaller address. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4394 +#define STACK_GROWS_DOWNWARD
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4395 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4396 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4397 +/* Define this if the nominal address of the stack frame
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4398 + is at the high-address end of the local variables;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4399 + that is, each additional local variable allocated
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4400 + goes at a more negative offset in the frame. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4401 +#define FRAME_GROWS_DOWNWARD 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4402 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4403 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4404 +/* Offset within stack frame to start allocating local variables at.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4405 + If FRAME_GROWS_DOWNWARD, this is the offset to the END of the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4406 + first local allocated. Otherwise, it is the offset to the BEGINNING
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4407 + of the first local allocated. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4408 +#define STARTING_FRAME_OFFSET 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4409 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4410 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4411 +/* Always push stack arguments for now. Accumulation is not yet working. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4412 +#define PUSH_ROUNDING(BYTES) (BYTES)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4413 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4414 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4415 +/* Offset of first parameter from the argument pointer register value.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4416 + * ARG_POINTER_REGNUM is defined to point to the return address pushed
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4417 + * onto the stack, so we must offset by 2 bytes to get to the arguments. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4418 +#define FIRST_PARM_OFFSET(FNDECL) 2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4419 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4420 +/* Value is 1 if returning from a function call automatically
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4421 + pops the arguments described by the number-of-args field in the call.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4422 + FUNTYPE is the data type of the function (as a tree),
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4423 + or for a library call it is an identifier node for the subroutine name. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4424 +/* #define RETURN_POPS_ARGS(FUNDECL,FUNTYPE,SIZE) 0 */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4425 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4426 +/* Define how to find the value returned by a function.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4427 + VALTYPE is the data type of the value (as a tree).
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4428 + If the precise function being called is known, FUNC is its FUNCTION_DECL;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4429 + otherwise, FUNC is 0. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4430 +#define FUNCTION_VALUE(VALTYPE, FUNC) m6809_function_value (VALTYPE, FUNC)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4431 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4432 +/* Define how to find the value returned by a library function
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4433 + assuming the value has mode MODE. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4434 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4435 +/* All return values are in the X-register. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4436 +#define LIBCALL_VALUE(MODE) gen_rtx_REG (MODE, HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4437 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4438 +/* Define this if using the nonreentrant convention for returning
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4439 + structure and union values. No; it is inefficient and buggy. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4440 +#undef PCC_STATIC_STRUCT_RETURN
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4441 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4442 +/* 1 if N is a possible register number for a function value. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4443 +#define FUNCTION_VALUE_REGNO_P(N) m6809_function_value_regno_p (N)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4444 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4445 +/* Define this to be true when FUNCTION_VALUE_REGNO_P is true for
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4446 + more than one register. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4447 +#define NEEDS_UNTYPED_CALL 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4448 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4449 +/* 1 if N is a possible register number for function argument passing. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4450 +#define FUNCTION_ARG_REGNO_P(N) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4451 + ((m6809_abi_version != M6809_ABI_VERSION_STACK) ? \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4452 + (((N) == HARD_D_REGNUM) \|\| ((N) == HARD_X_REGNUM)) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4453 + 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4454 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4455 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4456 + Argument Lists
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4457 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4458 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4459 +/* Cumulative arguments are tracked in a single integer,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4460 + * which is the number of bytes of arguments scanned so far,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4461 + * plus which registers have already been used. The register
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4462 + * info is kept in some of the upper bits */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4463 +#define CUMULATIVE_ARGS unsigned int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4464 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4465 +#define CUM_STACK_ONLY 0x80000000
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4466 +#define CUM_X_MASK 0x40000000
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4467 +#define CUM_B_MASK 0x20000000
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4468 +#define CUM_STACK_INVALID 0x10000000
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4469 +#define CUM_STACK_MASK 0xFFFFFFF
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4470 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4471 +#define CUM_ADVANCE_8BIT(cum) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4472 + (((cum) & CUM_B_MASK) ? (cum)++ : ((cum) \|= CUM_B_MASK))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4473 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4474 +#define CUM_ADVANCE_16BIT(cum) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4475 + (((cum) & CUM_X_MASK) ? (cum) += 2 : ((cum) \|= CUM_X_MASK))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4476 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4477 +/* Initialize a variable CUM of type CUMULATIVE_ARGS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4478 + for a call to a function whose data type is FNTYPE.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4479 + For a library call, FNTYPE is 0.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4480 + N_NAMED was added in gcc 3.4 and is not used currently. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4481 +#define INIT_CUMULATIVE_ARGS(CUM,FNTYPE,LIBNAME,INDIRECT,N_NAMED) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4482 + ((CUM) = m6809_init_cumulative_args (CUM, FNTYPE, LIBNAME))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4483 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4484 +#define FUNCTION_ARG_SIZE(MODE, TYPE) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4485 + ((MODE) != BLKmode ? GET_MODE_SIZE (MODE) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4486 + : (unsigned) int_size_in_bytes (TYPE))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4487 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4488 +/* Update the data in CUM to advance over an argument
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4489 + of mode MODE and data type TYPE.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4490 + (TYPE is null for libcalls where that information may not be available.) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4491 +#define FUNCTION_ARG_ADVANCE(CUM, MODE, TYPE, NAMED) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4492 + (((MODE == QImode) && !((CUM) & CUM_STACK_ONLY)) ? \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4493 + CUM_ADVANCE_8BIT (CUM) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4494 + ((MODE == HImode) && !((CUM) & CUM_STACK_ONLY)) ? \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4495 + CUM_ADVANCE_16BIT (CUM) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4496 + ((CUM) = ((CUM) + (TYPE ? int_size_in_bytes (TYPE) : 2))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4497 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4498 +/* Define where to put the arguments to a function.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4499 + Value is zero to push the argument on the stack,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4500 + or a hard register rtx in which to store the argument.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4501 + This macro is used _before_ FUNCTION_ARG_ADVANCE.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4502 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4503 + For the 6809, the first 8-bit function argument can be placed into B,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4504 + and the first 16-bit arg can go into X. All other arguments
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4505 + will be pushed onto the stack.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4506 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4507 + Command-line options can adjust this behavior somewhat.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4508 + */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4509 +#define FUNCTION_ARG(CUM, MODE, TYPE, NAMED) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4510 + ((MODE == VOIDmode) ? NULL_RTX : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4511 + ((MODE == BLKmode) \|\| (GET_MODE_SIZE (MODE) > 2)) ? NULL_RTX : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4512 + ((MODE == QImode) && !((CUM) & (CUM_STACK_ONLY \| CUM_B_MASK))) ? \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4513 + gen_rtx_REG (QImode, HARD_D_REGNUM) : \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4514 + ((MODE == HImode) && !((CUM) & (CUM_STACK_ONLY \| CUM_X_MASK))) ? \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4515 + gen_rtx_REG (HImode, HARD_X_REGNUM) : m6809_function_arg_on_stack (&CUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4516 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4517 +/* Output assembler code to FILE to increment profiler label # LABELNO
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4518 + for profiling a function entry. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4519 +#define FUNCTION_PROFILER(FILE, LABELNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4520 + fprintf (FILE, "\tldd\t#LP%u\n\tjsr\tmcount\n", (LABELNO));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4521 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4522 +/* Stack pointer must be correct on function exit */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4523 +#define EXIT_IGNORE_STACK 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4524 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4525 +/*****************************************************************************
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4526 +**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4527 +** Trampolines for Nested Functions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4528 +**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4529 +*****************************************************************************/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4530 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4531 +/* Length in units of the trampoline for entering a nested function. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4532 +#define TRAMPOLINE_SIZE 7
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4533 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4534 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4535 + Addressing modes,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4536 + and classification of registers for them.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4537 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4538 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4539 +/* 6809 has postincrement and predecrement addressing modes */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4540 +#define HAVE_POST_INCREMENT 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4541 +#define HAVE_PRE_DECREMENT 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4542 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4543 +/* Whether or not to use index registers is configurable.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4544 + * Experiments show that things work better when this is off, so
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4545 + * that's the way it is for now. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4546 +#undef USE_INDEX_REGISTERS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4547 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4548 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4549 +/* Macros to check register numbers against specific register classes. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4550 +#define REG_VALID_FOR_BASE_P(REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4551 + (((REGNO) < FIRST_PSEUDO_REGISTER) && A_REGNO_P (REGNO))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4552 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4553 +/* MC6809 index registers do not allow scaling, */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4554 +/* but there is "accumulator-offset" mode. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4555 +#ifdef USE_INDEX_REGISTERS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4556 +#define REG_VALID_FOR_INDEX_P(REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4557 + (((REGNO) < FIRST_PSEUDO_REGISTER) && I_REGNO_P (REGNO))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4558 +#else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4559 +#define REG_VALID_FOR_INDEX_P(REGNO) 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4560 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4561 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4562 +/* Internal macro, the nonstrict definition for REGNO_OK_FOR_BASE_P */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4563 +#define REGNO_OK_FOR_BASE_NONSTRICT_P(REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4564 + ((REGNO) >= FIRST_PSEUDO_REGISTER \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4565 + \|\| REG_VALID_FOR_BASE_P (REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4566 + \|\| (REGNO) == FRAME_POINTER_REGNUM \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4567 + \|\| (REGNO) == HARD_FRAME_POINTER_REGNUM \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4568 + \|\| (REGNO) == ARG_POINTER_REGNUM \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4569 + \|\| (reg_renumber && REG_VALID_FOR_BASE_P (reg_renumber[REGNO])))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4570 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4571 +/* Internal macro, the nonstrict definition for REGNO_OK_FOR_INDEX_P */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4572 +#define REGNO_OK_FOR_INDEX_NONSTRICT_P(REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4573 + ((REGNO) >= FIRST_PSEUDO_REGISTER \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4574 + \|\| REG_VALID_FOR_INDEX_P (REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4575 + \|\| (reg_renumber && REG_VALID_FOR_INDEX_P (reg_renumber[REGNO])))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4576 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4577 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4578 +/* Internal macro, the strict definition for REGNO_OK_FOR_BASE_P */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4579 +#define REGNO_OK_FOR_BASE_STRICT_P(REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4580 + ((REGNO) < FIRST_PSEUDO_REGISTER ? REG_VALID_FOR_BASE_P (REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4581 + : (reg_renumber && REG_VALID_FOR_BASE_P (reg_renumber[REGNO])))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4582 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4583 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4584 +/* Internal macro, the strict definition for REGNO_OK_FOR_INDEX_P */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4585 +#define REGNO_OK_FOR_INDEX_STRICT_P(REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4586 + ((REGNO) < FIRST_PSEUDO_REGISTER ? REG_VALID_FOR_INDEX_P (REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4587 + : (reg_renumber && REG_VALID_FOR_INDEX_P (reg_renumber[REGNO])))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4588 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4589 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4590 +#define REGNO_OK_FOR_BASE_P(REGNO) REGNO_OK_FOR_BASE_STRICT_P (REGNO)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4591 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4592 +#define REGNO_OK_FOR_INDEX_P(REGNO) REGNO_OK_FOR_INDEX_STRICT_P (REGNO)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4593 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4594 +#define REG_OK_FOR_BASE_STRICT_P(X) REGNO_OK_FOR_BASE_STRICT_P (REGNO (X))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4595 +#define REG_OK_FOR_BASE_NONSTRICT_P(X) REGNO_OK_FOR_BASE_NONSTRICT_P (REGNO (X))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4596 +#define REG_OK_FOR_INDEX_STRICT_P(X) REGNO_OK_FOR_INDEX_STRICT_P (REGNO (X))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4597 +#define REG_OK_FOR_INDEX_NONSTRICT_P(X) REGNO_OK_FOR_INDEX_NONSTRICT_P (REGNO (X))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4598 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4599 +#ifndef REG_OK_STRICT
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4600 +#define REG_OK_FOR_BASE_P(X) REG_OK_FOR_BASE_NONSTRICT_P(X)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4601 +#ifdef USE_INDEX_REGISTERS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4602 +#define REG_OK_FOR_INDEX_P(X) REG_OK_FOR_INDEX_NONSTRICT_P(X)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4603 +#else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4604 +#define REG_OK_FOR_INDEX_P(X) 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4605 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4606 +#else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4607 +#define REG_OK_FOR_BASE_P(X) REG_OK_FOR_BASE_STRICT_P (X)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4608 +#ifdef USE_INDEX_REGISTERS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4609 +#define REG_OK_FOR_INDEX_P(X) REG_OK_FOR_INDEX_STRICT_P (X)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4610 +#else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4611 +#define REG_OK_FOR_INDEX_P(X) 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4612 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4613 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4614 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4615 +/* Maximum number of registers that can appear in a valid memory address */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4616 +#ifdef USE_INDEX_REGISTERS
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4617 +#define MAX_REGS_PER_ADDRESS 2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4618 +#else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4619 +#define MAX_REGS_PER_ADDRESS 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4620 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4621 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4622 +/* 1 if X is an rtx for a constant that is a valid address.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4623 + * We allow any constant, plus the sum of any two constants (this allows
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4624 + * offsetting a symbol ref) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4625 +#define CONSTANT_ADDRESS_P(X) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4626 + ((CONSTANT_P (X)) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4627 + \|\| ((GET_CODE (X) == PLUS) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4628 + && (CONSTANT_P (XEXP (X, 0))) && (CONSTANT_P (XEXP (X, 1)))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4629 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4630 +/* Nonzero if the constant value X is a legitimate general operand.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4631 + It is given that X satisfies CONSTANT_P or is a CONST_DOUBLE. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4632 +/* Any single-word constant is ok; the only contexts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4633 + allowing general_operand of mode DI or DF are movdi and movdf. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4634 +#define LEGITIMATE_CONSTANT_P(X) (GET_CODE (X) != CONST_DOUBLE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4635 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4636 +/* Nonzero if the X is a legitimate immediate operand in PIC mode. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4637 +#define LEGITIMATE_PIC_OPERAND_P(X) !symbolic_operand (X, VOIDmode)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4638 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4639 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4640 + Test for valid memory addresses
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4641 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4642 +/* GO_IF_LEGITIMATE_ADDRESS recognizes an RTL expression
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4643 + that is a valid memory address for an instruction.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4644 + The MODE argument is the machine mode for the MEM expression
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4645 + that wants to use this address. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4646 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4647 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4648 + Valid addresses are either direct or indirect (MEM) versions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4649 + of the following forms.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4650 + constant N
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4651 + register ,X
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4652 + constant indexed N,X
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4653 + accumulator indexed D,X
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4654 + auto_increment ,X++
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4655 + auto_decrement ,--X
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4656 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4657 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4658 +#define REGISTER_ADDRESS_P(X) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4659 + (REG_P (X) && REG_OK_FOR_BASE_P (X))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4660 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4661 +#define EXTENDED_ADDRESS_P(X) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4662 + CONSTANT_ADDRESS_P (X) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4663 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4664 +#define LEGITIMATE_BASE_P(X) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4665 + ((REG_P (X) && REG_OK_FOR_BASE_P (X)) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4666 + \|\| (GET_CODE (X) == SIGN_EXTEND \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4667 + && GET_CODE (XEXP (X, 0)) == REG \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4668 + && GET_MODE (XEXP (X, 0)) == HImode \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4669 + && REG_OK_FOR_BASE_P (XEXP (X, 0))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4670 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4671 +#define LEGITIMATE_OFFSET_P(X) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4672 + (CONSTANT_ADDRESS_P (X) \|\| (REG_P (X) && REG_OK_FOR_INDEX_P (X)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4673 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4674 +/* 1 if X is the sum of a base register and an offset. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4675 +#define INDEXED_ADDRESS(X) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4676 + ((GET_CODE (X) == PLUS \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4677 + && LEGITIMATE_BASE_P (XEXP (X, 0)) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4678 + && LEGITIMATE_OFFSET_P (XEXP (X, 1))) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4679 + \|\| (GET_CODE (X) == PLUS \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4680 + && LEGITIMATE_BASE_P (XEXP (X, 1)) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4681 + && LEGITIMATE_OFFSET_P (XEXP (X, 0))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4682 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4683 +#define STACK_REG_P(X) (REG_P(X) && REGNO(X) == HARD_S_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4684 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4685 +#define STACK_PUSH_P(X) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4686 + (MEM_P (X) && GET_CODE (XEXP (X, 0)) == PRE_DEC && STACK_REG_P (XEXP (XEXP (X, 0), 0)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4687 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4688 +#define STACK_POP_P(X) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4689 + (MEM_P (X) && GET_CODE (XEXP (X, 0)) == POST_INC && STACK_REG_P (XEXP (XEXP (X, 0), 0)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4690 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4691 +#define PUSH_POP_ADDRESS_P(X) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4692 + (((GET_CODE (X) == PRE_DEC) \|\| (GET_CODE (X) == POST_INC)) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4693 + && (LEGITIMATE_BASE_P (XEXP (X, 0))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4694 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4695 +/* Go to ADDR if X is a valid address. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4696 +#define GO_IF_LEGITIMATE_ADDRESS(MODE, X, ADDR) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4697 +{ \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4698 + if (REGISTER_ADDRESS_P(X)) goto ADDR; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4699 + if (PUSH_POP_ADDRESS_P (X)) goto ADDR; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4700 + if (EXTENDED_ADDRESS_P (X)) goto ADDR; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4701 + if (INDEXED_ADDRESS (X)) goto ADDR; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4702 + if (MEM_P (X) && REGISTER_ADDRESS_P(XEXP (X, 0))) goto ADDR; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4703 + if (MEM_P (X) && PUSH_POP_ADDRESS_P (XEXP (X, 0))) goto ADDR; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4704 + if (MEM_P (X) && EXTENDED_ADDRESS_P (XEXP (X, 0))) goto ADDR; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4705 + if (MEM_P (X) && INDEXED_ADDRESS (XEXP (X, 0))) goto ADDR; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4706 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4707 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4708 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4709 + Address Fix-up
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4710 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4711 +/* Go to LABEL if ADDR (a legitimate address expression)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4712 + has an effect that depends on the machine mode it is used for.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4713 + In the latest GCC, this case is already handled by the core code
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4714 + so no action is required here. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4715 +#define GO_IF_MODE_DEPENDENT_ADDRESS(ADDR,LABEL) {}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4716 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4717 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4718 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4719 + Miscellaneous Parameters
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4720 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4721 +/* Specify the machine mode that this machine uses
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4722 + for the index in the tablejump instruction. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4723 +#define CASE_VECTOR_MODE Pmode
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4724 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4725 +/* Define this as 1 if `char' should by default be signed; else as 0. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4726 +#define DEFAULT_SIGNED_CHAR 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4727 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4728 +/* This flag, if defined, says the same insns that convert to a signed fixnum
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4729 + also convert validly to an unsigned one. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4730 +#define FIXUNS_TRUNC_LIKE_FIX_TRUNC
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4731 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4732 +/* Max number of bytes we can move from memory to memory/register
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4733 + in one reasonably fast instruction. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4734 +#define MOVE_MAX 2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4735 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4736 +/* Int can be 8 or 16 bits (default is 16) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4737 +#define INT_TYPE_SIZE (TARGET_BYTE_INT ? 8 : 16)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4738 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4739 +/* Short is always 16 bits */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4740 +#define SHORT_TYPE_SIZE (TARGET_BYTE_INT ? 8 : 16)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4741 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4742 +/* Size (bits) of the type "long" on target machine */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4743 +#define LONG_TYPE_SIZE (TARGET_BYTE_INT ? 16 : 32)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4744 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4745 +/* Size (bits) of the type "long long" on target machine */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4746 +#define LONG_LONG_TYPE_SIZE 32
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4747 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4748 +/* Size (bits) of the type "char" on target machine */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4749 +#define CHAR_TYPE_SIZE 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4750 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4751 +/* Size (bits) of the type "float" on target machine */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4752 +#define FLOAT_TYPE_SIZE 32
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4753 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4754 +/* Size (bits) of the type "double" on target machine.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4755 + * Note that the C standard does not require that doubles
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4756 + * hold any more bits than float. Since the 6809 has so few
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4757 + * registers, we cannot really support more than 32-bits. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4758 +#define DOUBLE_TYPE_SIZE 32
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4759 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4760 +/* Size (bits) of the type "long double" on target machine */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4761 +#define LONG_DOUBLE_TYPE_SIZE 32
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4762 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4763 +/* Define the type used for "size_t". With a 64KB address space,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4764 + * only a 16-bit value here makes sense. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4765 +#define SIZE_TYPE (TARGET_BYTE_INT ? "long unsigned int" : "unsigned int")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4766 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4767 +/* Likewise, the difference between two pointers is also a 16-bit
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4768 + * signed value. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4769 +#define PTRDIFF_TYPE (TARGET_BYTE_INT ? "long int" : "int")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4770 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4771 +/* Nonzero if access to memory by bytes is slow and undesirable. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4772 +#define SLOW_BYTE_ACCESS 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4773 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4774 +/* Define if shifts truncate the shift count
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4775 + which implies one can omit a sign-extension or zero-extension
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4776 + of a shift count. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4777 +#define SHIFT_COUNT_TRUNCATED 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4778 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4779 +/* Value is 1 if truncating an integer of INPREC bits to OUTPREC bits
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4780 + is done just by pretending it is already truncated. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4781 +#define TRULY_NOOP_TRUNCATION(OUTPREC, INPREC) 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4782 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4783 +/* It is as good to call a constant function address as to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4784 + call an address kept in a register. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4785 +#define NO_FUNCTION_CSE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4786 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4787 +/* Specify the machine mode that pointers have.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4788 + After generation of rtl, the compiler makes no further distinction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4789 + between pointers and any other objects of this machine mode. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4790 +#define Pmode HImode
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4791 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4792 +/* A function address in a call instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4793 + is a byte address (for indexing purposes)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4794 + so give the MEM rtx a byte's mode. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4795 +#define FUNCTION_MODE HImode
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4796 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4797 +/* Define the cost of moving a value from a register in CLASS1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4798 + * to CLASS2, of a given MODE.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4799 + *
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4800 + * On the 6809, hard register transfers are all basically equivalent.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4801 + * But soft register moves are treated more like memory moves. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4802 +#define REGISTER_MOVE_COST(MODE, CLASS1, CLASS2) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4803 + (((CLASS1 == M_REGS) \|\| (CLASS2 == M_REGS)) ? 4 : 7)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4804 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4805 +/* Define the cost of moving a value between a register and memory. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4806 +#define MEMORY_MOVE_COST(MODE, CLASS, IN) 5
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4807 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4808 +/* Check a `double' value for validity for a particular machine mode. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4809 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4810 +#define CHECK_FLOAT_VALUE(MODE, D, OVERFLOW) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4811 + ((OVERFLOW) = check_float_value (MODE, &D, OVERFLOW))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4812 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4813 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4814 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4815 + machine-dependent
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4816 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4817 +/* Tell final.c how to eliminate redundant test instructions. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4818 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4819 +/* Here we define machine-dependent flags and fields in cc_status
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4820 + (see `conditions.h'). */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4821 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4822 +/* Store in cc_status the expressions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4823 + that the condition codes will describe
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4824 + after execution of an instruction whose pattern is EXP.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4825 + Do not alter them if the instruction would not alter the cc's. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4826 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4827 +/* On the 6809, most of the insns to store in an address register
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4828 + fail to set the cc's. However, in some cases these instructions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4829 + can make it possibly invalid to use the saved cc's. In those
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4830 + cases we clear out some or all of the saved cc's so they won't be used. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4831 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4832 +#define NOTICE_UPDATE_CC(EXP, INSN) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4833 + notice_update_cc((EXP), (INSN))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4834 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4835 +/*****************************************************************************
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4836 +**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4837 +** pragma support
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4838 +**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4839 +*****************************************************************************/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4840 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4841 +#if 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4842 +#define REGISTER_TARGET_PRAGMAS() \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4843 +do { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4844 + extern void pragma_section PARAMS ((cpp_reader *)); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4845 + c_register_pragma (0, "section", pragma_section); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4846 +} while (0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4847 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4848 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4849 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4850 +/*--------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4851 + ASSEMBLER FORMAT
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4852 +--------------------------------------------------------------*/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4853 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4854 +#define FMT_HOST_WIDE_INT "%ld"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4855 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4856 +/* Output to assembler file text saying following lines
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4857 + may contain character constants, extra white space, comments, etc. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4858 +#define ASM_APP_ON ";----- asm -----\n"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4859 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4860 +/* Output to assembler file text saying following lines
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4861 + no longer contain unusual constructs. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4862 +#define ASM_APP_OFF ";--- end asm ---\n"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4863 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4864 +/* Use a semicolon to begin a comment. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4865 +#define ASM_COMMENT_START "; "
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4866 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4867 +/* Output assembly directives to switch to section 'name' */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4868 +#undef TARGET_ASM_NAMED_SECTION
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4869 +#define TARGET_ASM_NAMED_SECTION m6809_asm_named_section
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4870 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4871 +#undef TARGET_HAVE_NAMED_SECTION
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4872 +#define TARGET_HAVE_NAMED_SECTION m6809_have_named_section
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4873 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4874 +/* Output before read-only data. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4875 +#define TEXT_SECTION_ASM_OP (code_section_op)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4876 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4877 +/* Output before writable data. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4878 +#define DATA_SECTION_ASM_OP (data_section_op)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4879 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4880 +/* Output before uninitialized data. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4881 +#define BSS_SECTION_ASM_OP (bss_section_op)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4882 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4883 +/* Support the ctors and dtors sections for g++. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4884 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4885 +#undef CTORS_SECTION_ASM_OP
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4886 +#define CTORS_SECTION_ASM_OP "\t.area\t.ctors"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4887 +#undef DTORS_SECTION_ASM_OP
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4888 +#define DTORS_SECTION_ASM_OP "\t.area\t.dtors"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4889 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4890 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4891 +#undef DO_GLOBAL_CTORS_BODY
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4892 +#undef DO_GLOBAL_DTORS_BODY
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4893 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4894 +#define HAS_INIT_SECTION
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4895 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4896 +/* This is how to output an assembler line
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4897 + that says to advance the location counter
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4898 + to a multiple of 2*LOG bytes. /
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4899 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4900 +#define ASM_OUTPUT_ALIGN(FILE,LOG) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4901 + if ((LOG) > 1) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4902 + fprintf (FILE, "\t.bndry\t%u\n", 1 << (LOG))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4903 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4904 +/* The .set foo,bar construct doesn't work by default */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4905 +#undef SET_ASM_OP
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4906 +#define ASM_OUTPUT_DEF(FILE, LABEL1, LABEL2) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4907 + do { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4908 + assemble_name (FILE, LABEL1); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4909 + fputs ("\tequ\t", FILE); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4910 + assemble_name (FILE, LABEL2); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4911 + fputc ('\n', FILE); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4912 + } while (0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4913 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4914 +/* How to refer to registers in assembler output.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4915 + This sequence is indexed by compiler's hard-register-number (see above). */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4916 +#define MNAME(x) [SOFT_M0_REGNUM+(x)] = "*m" C_STRING(x) ,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4917 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4918 +#define REGISTER_NAMES { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4919 + [HARD_D_REGNUM]= "d", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4920 + [HARD_X_REGNUM]= "x", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4921 + [HARD_Y_REGNUM]= "y", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4922 + [HARD_U_REGNUM]= "u", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4923 + [HARD_S_REGNUM]= "s", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4924 + [HARD_PC_REGNUM]= "pc", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4925 + [HARD_A_REGNUM]= "a", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4926 + [HARD_B_REGNUM]= "b", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4927 + [HARD_CC_REGNUM]= "cc",\
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4928 + [HARD_DP_REGNUM]= "dp", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4929 + [SOFT_FP_REGNUM]= "soft_fp", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4930 + [SOFT_AP_REGNUM]= "soft_ap", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4931 + MNAME(0) MNAME(1) MNAME(2) MNAME(3) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4932 + MNAME(4) MNAME(5) MNAME(6) MNAME(7) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4933 + [HARD_RSVD1_REGNUM] = "-", \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4934 + [HARD_Z_REGNUM] = "z" /* bit 2 of CC */ }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4935 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4936 +/*****************************************************************************
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4937 +**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4938 +** Debug Support
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4939 +**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4940 +*****************************************************************************/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4941 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4942 +/* Default to DBX-style debugging */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4943 +#define PREFERRED_DEBUGGING_TYPE DBX_DEBUG
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4944 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4945 +#define DBX_DEBUGGING_INFO
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4946 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4947 +#define DEFAULT_GDB_EXTENSIONS 0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4948 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4949 +#define ASM_STABS_OP ";\t.stabs\t"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4950 +#define ASM_STABD_OP ";\t.stabd\t"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4951 +#define ASM_STABN_OP ";\t.stabn\t"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4952 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4953 +#define DBX_CONTIN_LENGTH 54
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4954 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4955 +#define DBX_OUTPUT_MAIN_SOURCE_FILENAME(ASMFILE, FILENAME) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4956 +do { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4957 + const char *p = FILENAME; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4958 + while ((p = strchr (p, '/')) != NULL) { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4959 + p = FILENAME = p+1; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4960 + } \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4961 + fprintf (ASMFILE, "%s", ASM_STABS_OP); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4962 + output_quoted_string (ASMFILE, FILENAME); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4963 + fprintf (ASMFILE, ",%d,0,0,", N_SO); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4964 + assemble_name (ASMFILE, ltext_label_name); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4965 + fputc ('\n', ASMFILE); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4966 + switch_to_section (text_section); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4967 + (*targetm.asm_out.internal_label) (ASMFILE, "Ltext", 0); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4968 +} while (0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4969 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4970 +/* With -g, GCC sometimes outputs string literals that are longer than
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4971 + * the assembler can handle. Without actual debug support, these are
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4972 + * not really required. Redefine the function to output strings to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4973 + * output as much as possible. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4974 +#define OUTPUT_QUOTED_STRING(FILE, STR) m6809_output_quoted_string (FILE, STR)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4975 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4976 +/*****************************************************************************
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4977 +**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4978 +** Output and Generation of Labels
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4979 +**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4980 +*****************************************************************************/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4981 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4982 +/* Prefixes for various assembly-time objects */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4983 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4984 +#define REGISTER_PREFIX ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4985 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4986 +#define LOCAL_LABEL_PREFIX ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4987 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4988 +#define USER_LABEL_PREFIX "_"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4989 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4990 +#define IMMEDIATE_PREFIX "#"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4991 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4992 +/* This is how to output the definition of a user-level label named NAME,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4993 + such as the label on a static function or variable NAME. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4994 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4995 +#define ASM_OUTPUT_LABEL(FILE,NAME) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4996 +do { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4997 + if (section_changed) { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4998 + fprintf (FILE, "\n%s\n\n", code_section_op); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	4999 + section_changed = 0; \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5000 + } \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5001 + assemble_name (FILE, NAME); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5002 + fputs (":\n", FILE); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5003 +} while (0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5004 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5005 +/* This is how to output the label for a function definition. It
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5006 + invokes ASM_OUTPUT_LABEL, but may examine the DECL tree node for
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5007 + other properties. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5008 +#define ASM_DECLARE_FUNCTION_NAME(FILE,NAME,DECL) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5009 + m6809_declare_function_name (FILE,NAME,DECL)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5010 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5011 +/* This is how to output a command to make the user-level label
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5012 + named NAME defined for reference from other files. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5013 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5014 +#define GLOBAL_ASM_OP "\n\t.globl\t"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5015 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5016 +/* This is how to output a reference to a user label named NAME. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5017 +#define ASM_OUTPUT_LABELREF(FILE,NAME) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5018 + fprintf (FILE, "_%s", NAME)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5019 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5020 +/* This is how to output a reference to a symbol ref
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5021 + * Check to see if the symbol is in the direct page */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5022 +#define ASM_OUTPUT_SYMBOL_REF(FILE,sym) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5023 +{ \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5024 + print_direct_prefix (FILE, sym); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5025 + assemble_name (FILE, XSTR (sym, 0)); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5026 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5027 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5028 +/* External references aren't necessary, so don't emit anything */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5029 +#define ASM_OUTPUT_EXTERNAL(FILE,DECL,NAME)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5030 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5031 +/* This is how to store into the string LABEL
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5032 + the symbol_ref name of an internal numbered label where
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5033 + PREFIX is the class of label and NUM is the number within the class.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5034 + This is suitable for output with `assemble_name'. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5035 +#define ASM_GENERATE_INTERNAL_LABEL(LABEL,PREFIX,NUM) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5036 + sprintf (LABEL, "*%s%lu", PREFIX, (unsigned long int)NUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5037 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5038 +/* This is how to output an assembler line defining an `int' constant. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5039 +#define ASM_OUTPUT_INT(FILE,VALUE) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5040 +( fprintf (FILE, "\t.word\t"), \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5041 + output_addr_const (FILE, (VALUE)), \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5042 + fprintf (FILE, "\n"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5043 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5044 +/* Likewise for `char' and `short' constants. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5045 +#define ASM_OUTPUT_SHORT(FILE,VALUE) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5046 +( fprintf (FILE, "\t.word\t"), \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5047 + output_addr_const (FILE, (VALUE)), \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5048 + fprintf (FILE, "\n"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5049 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5050 +/* This is how to output a string. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5051 +#define ASM_OUTPUT_ASCII(FILE,STR,SIZE) m6809_output_ascii (FILE, STR, SIZE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5052 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5053 +/* This is how to output an insn to push a register on the stack.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5054 + It need not be very fast code. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5055 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5056 +#define ASM_OUTPUT_REG_PUSH(FILE,REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5057 + fprintf (FILE, "\tpshs\t%s\n", reg_names[REGNO])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5058 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5059 +/* This is how to output an insn to pop a register from the stack.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5060 + It need not be very fast code. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5061 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5062 +#define ASM_OUTPUT_REG_POP(FILE,REGNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5063 + fprintf (FILE, "\tpuls\t%s\n", reg_names[REGNO])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5064 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5065 +/* This is how to output an element of a case-vector that is absolute. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5066 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5067 +#define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5068 + fprintf (FILE, "\t.word\tL%u\n", VALUE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5069 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5070 +/* This is how to output an element of a case-vector that is relative. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5071 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5072 +#define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, BODY, VALUE, REL) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5073 + fprintf (FILE, "\t.word\tL%u-L%u\n", VALUE, REL)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5074 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5075 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5076 +/*****************************************************************************
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5077 +**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5078 +** Assembler Commands for Alignment
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5079 +**
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5080 +*****************************************************************************/
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5081 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5082 +/* ASM_OUTPUT_SKIP is supposed to zero initialize the data. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5083 +#define ASM_OUTPUT_SKIP(FILE,SIZE) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5084 + do { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5085 + fprintf (FILE, "\tzmb\t%d\t;skip space\n", SIZE); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5086 + } while (0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5087 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5088 +/* This says how to output an assembler line
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5089 + to define a global common symbol. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5090 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5091 +#define ASM_OUTPUT_COMMON(FILE, NAME, SIZE, ROUNDED) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5092 + do { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5093 + switch_to_section (bss_section); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5094 + fputs ("\n\t.globl\t", FILE); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5095 + assemble_name ((FILE), (NAME)); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5096 + fputs ("\n", FILE); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5097 + assemble_name ((FILE), (NAME)); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5098 + fprintf ((FILE), ":\t.blkb\t" FMT_HOST_WIDE_INT "\n", (ROUNDED));} while(0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5099 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5100 +/* This says how to output an assembler line
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5101 + to define a local common symbol. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5102 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5103 +#define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5104 +do { \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5105 + switch_to_section (bss_section); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5106 + assemble_name ((FILE), (NAME)); \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5107 + fprintf ((FILE), ":\t.blkb\t" FMT_HOST_WIDE_INT "\n", (ROUNDED));} while(0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5108 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5109 +/* Store in OUTPUT a string (made with alloca) containing
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5110 + an assembler-name for a local static variable named NAME.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5111 + LABELNO is an integer which is different for each call. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5112 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5113 +#define ASM_FORMAT_PRIVATE_NAME(OUTPUT, NAME, LABELNO) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5114 +( (OUTPUT) = (char *) alloca (strlen ((NAME)) + 10), \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5115 + sprintf ((OUTPUT), "%s.%lu", (NAME), (unsigned long int)(LABELNO)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5116 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5117 +/* Print an instruction operand X on file FILE.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5118 + CODE is the code from the %-spec for printing this operand.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5119 + If `%z3' was used to print operand 3, then CODE is 'z'. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5120 +#define PRINT_OPERAND(FILE, X, CODE) print_operand (FILE, X, CODE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5121 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5122 +/* Print a memory operand whose address is X, on file FILE. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5123 +#define PRINT_OPERAND_ADDRESS(FILE, ADDR) print_operand_address (FILE, ADDR)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5124 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5125 +/* Don't let stack pushes build up too much. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5126 +#define MAX_PENDING_STACK 8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5127 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5128 +/* Define values for builtin operations */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5129 +enum m6809_builtins
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5130 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5131 + M6809_SWI,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5132 + M6809_SWI2,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5133 + M6809_SWI3,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5134 + M6809_CWAI,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5135 + M6809_SYNC,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5136 + M6809_ADD_CARRY,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5137 + M6809_SUB_CARRY,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5138 + M6809_ADD_DECIMAL,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5139 + M6809_NOP,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5140 + M6809_BLOCKAGE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5141 +};
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5142 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5143 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.md gcc-4.6.4/gcc/config/m6809/m6809.md
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5144 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.md 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5145 +++ gcc-4.6.4/gcc/config/m6809/m6809.md 2017-11-29 17:11:09.221248469 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5146 @@ -0,0 +1,2358 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5147 +;; GCC machine description for Motorola 6809
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5148 +;; Copyright (C) 1989, 2005, 2006, 2007, 2008,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5149 +;; 2009 Free Software Foundation, Inc.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5150 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5151 +;; Mostly by Brian Dominy (brian@oddchange.com) with substantial renovations
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5152 +;; by William Astle (lost@l-w.ca).
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5153 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5154 +;; Based on earlier work by Tom Jones (jones@sal.wisc.edu) and
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5155 +;; Matthias Doerfel (msdoerfe@informatik.uni-erlangen.de)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5156 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5157 +;; This file is part of GCC.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5158 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5159 +;; GCC is free software; you can redistribute it and/or modify
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5160 +;; it under the terms of the GNU General Public License as published by
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5161 +;; the Free Software Foundation; either version 3, or (at your option)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5162 +;; any later version.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5163 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5164 +;; GCC is distributed in the hope that it will be useful,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5165 +;; but WITHOUT ANY WARRANTY; without even the implied warranty of
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5166 +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5167 +;; GNU General Public License for more details.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5168 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5169 +;; You should have received a copy of the GNU General Public License
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5170 +;; along with GCC; see the file COPYING3. If not see
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5171 +;; <http://www.gnu.org/licenses/>.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5172 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5173 +;; General information:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5174 +;; --------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5175 +;; * This backend is mostly a rewrite from earlier (3.1.1 and before)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5176 +;; versions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5177 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5178 +;; * The 'A' and 'B' registers are treated as a single register by the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5179 +;; register allocator; hence, the instruction templates assume that
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5180 +;; both can be modified if either one is available for use. No
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5181 +;; attempt is made to split instructions to refer to a particular half
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5182 +;; of the register. It is always referred to as the 'D' register, even
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5183 +;; in QImode (when it will be displayed as 'B').
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5184 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5185 +;; * There is full support for proper branch instruction generation,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5186 +;; based on instruction lengths. However, many instruction patterns
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5187 +;; are still overloaded to emit lots of real instructions, which can
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5188 +;; make the length calculation difficult; in those cases, I've tried
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5189 +;; to be pessimistic and assume the worst-case.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5190 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5191 +;; * The instruction type attributes are only defined for branch
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5192 +;; vs. non branch instructions for now, since there is seemingly no
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5193 +;; reason to define these for other types anyway.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5194 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5195 +;; * The limited number of total registers presents the greatest
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5196 +;; challenge. There are 'soft registers' -- memory locations
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5197 +;; used to simulate real regs -- which can be helpful.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5198 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5199 +;; * Position-independent code (PIC) is supported and has been tested
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5200 +;; but not to the extent of absolute code generation.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5201 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5202 +;; * All of the 6809 special opcodes, e.g. SWI and SYNC, are defined
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5203 +;; as UNSPEC instructions, and can be accessed from C code using
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5204 +;; __builtin_xxxx() style functions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5205 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5206 +;; What still needs to be done:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5207 +;; ----------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5208 +;; * Replace remaining instances of (define_peephole) with
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5209 +;; (define_peephole2), or remove them completely if they are not
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5210 +;; matching anyway. Add more peepholes for things actually encountered.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5211 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5212 +;; * Indexing addressing can lead to crashes in complex functions when
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5213 +;; register pressure is high. Only the 'D' register can actually be
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5214 +;; used as an index register, and its demand by other instructions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5215 +;; can sometimes mean that it is impossible to satisfy constraints.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5216 +;; Currently, indexing is completely disabled to avoid these types
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5217 +;; of problems, although code is slightly more inefficient in some
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5218 +;; working cases.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5219 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5220 +;; * 32-bit math is terribly inefficient.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5221 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5222 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5223 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5224 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5225 +;;- Constants
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5226 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5227 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5228 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5229 +; Define constants for hard register numbers.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5230 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5231 +(define_constants [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5232 + (HARD_RSVD1_REGNUM 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5233 + (HARD_X_REGNUM 1) (HARD_Y_REGNUM 2) (HARD_U_REGNUM 3)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5234 + (HARD_S_REGNUM 4) (HARD_PC_REGNUM 5) (HARD_D_REGNUM 6)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5235 + (HARD_Z_REGNUM 7)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5236 + (HARD_A_REGNUM 8) (HARD_B_REGNUM 9)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5237 + (HARD_CC_REGNUM 10) (HARD_DP_REGNUM 11)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5238 + (SOFT_FP_REGNUM 12) (SOFT_AP_REGNUM 13)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5239 + (SOFT_M0_REGNUM 14) (SOFT_M1_REGNUM 15)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5240 + (SOFT_M2_REGNUM 16) (SOFT_M3_REGNUM 17)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5241 +])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5242 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5243 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5244 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5245 +; The range in which a short branch insn can be used.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5246 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5247 +(define_constants [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5248 + (MIN_SHORT_BRANCH_OFFSET -127)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5249 + (MAX_SHORT_BRANCH_OFFSET 128)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5250 +])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5251 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5252 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5253 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5254 +; The lengths of various types of real 6809 instructions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5255 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5256 +; By default, ordinary insns are 4 bytes long. This is often not
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5257 +; right, and the insn patterns below will redefine this to the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5258 +; correct value.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5259 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5260 +; Branch instruction lengths (conditional and unconditionals) are
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5261 +; well known and declared here. The short insns are used when the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5262 +; offset is within the range declared above (between MIN_SHORT
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5263 +; and MAX_SHORT) ; otherwise the long form is used.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5264 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5265 +(define_constants [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5266 + (DEFAULT_INSN_LENGTH 4)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5267 + (SHORT_CBRANCH_LENGTH 2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5268 + (LONG_CBRANCH_LENGTH 4)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5269 + (SHORT_BRANCH_LENGTH 2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5270 + (LONG_BRANCH_LENGTH 3)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5271 +])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5272 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5273 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5274 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5275 +; Constants for insn cycle counts.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5276 +; Note that these counts all assume 1-byte opcodes. 2-byte
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5277 +; opcodes require 1 extra cycles for fetching the extra byte.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5278 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5279 +(define_constants [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5280 + ;; The default insn length, when it cannot be calculated.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5281 + ;; Take a conservative approach and estimate high.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5282 + (DEFAULT_INSN_CYCLES 10)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5283 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5284 + ;; Cycle counts for ALU and load operations.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5285 + (ALU_INHERENT_CYCLES 2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5286 + (ALU_IMMED_CYCLES 2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5287 + (ALU_DIRECT_CYCLES 4)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5288 + (ALU_INDEXED_BASE_CYCLES 4)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5289 + (ALU_EXTENDED_CYCLES 5)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5290 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5291 + ;; If an ALU operation is on a 16-bit register (D), then
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5292 + ;; add this number of cycles to the total count.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5293 + (ALU_16BIT_CYCLES 2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5294 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5295 + ;; A load of a 16-bit register incurs this extra amount.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5296 + (LOAD_16BIT_CYCLES 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5297 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5298 + ;; Cycle counts for memory-only operations (bit shifts, clear, test)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5299 + (MEM_DIRECT_CYCLES 6)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5300 + (MEM_INDEXED_BASE_CYCLES 6)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5301 + (MEM_EXTENDED_CYCLES 7)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5302 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5303 + ;; Cycle count for any reg-reg transfer (regardless of size)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5304 + (EXG_CYCLES 8)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5305 + (TFR_CYCLES 6)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5306 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5307 + ;; Cycle count for a condition code update (andcc/orcc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5308 + (CC_CYCLES 3)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5309 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5310 + (JMP_DIRECT_CYCLES 3)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5311 + (JMP_INDEXED_BASE_CYCLES 3)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5312 + (JMP_EXTENDED_CYCLES 4)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5313 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5314 + (JSR_DIRECT_CYCLES 7)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5315 + (JSR_INDEXED_BASE_CYCLES 7)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5316 + (JSR_EXTENDED_CYCLES 8)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5317 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5318 + (LEA_BASE_CYCLES 4)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5319 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5320 + ;; Cycle count for a psh/pul operations. Add to this the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5321 + ;; total number of bytes moved for the correct count.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5322 + (PSH_PUL_CYCLES 5)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5323 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5324 + ;; Miscellaneous cycle counts
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5325 + (CWAI_CYCLES 20)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5326 + (MUL_CYCLES 11)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5327 + (NOP_CYCLES 2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5328 + (RTI_CYCLES 15)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5329 + (RTS_CYCLES 5)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5330 + (SWI_CYCLES 20)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5331 + (SYNC_CYCLES 4)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5332 +])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5333 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5334 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5335 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5336 +; An enumeration of values for each "unspec"; i.e. unspecified
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5337 +; instruction. These represent insns that are meaningful on the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5338 +; 6809 but which have no intrinsic meaning to GCC itself.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5339 +; These insns can be generated explicitly using the __builtin_xxx
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5340 +; syntax; they are also implicitly generated by the backend
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5341 +; as needed to implement other insns.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5342 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5343 +(define_constants [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5344 + (UNSPEC_BLOCKAGE 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5345 + (UNSPEC_PUSH_RS 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5346 + (UNSPEC_POP_RS 2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5347 + (UNSPEC_SWI 3)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5348 + (UNSPEC_CWAI 4)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5349 + (UNSPEC_ADD_CARRY 5)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5350 + (UNSPEC_SUB_CARRY 6)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5351 + (UNSPEC_SYNC 7)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5352 + (UNSPEC_ADD_DECIMAL 8)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5353 +])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5354 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5355 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5356 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5357 +;;- Predicates
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5358 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5359 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5360 +(include "predicates.md")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5361 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5362 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5363 +;;- Attributes
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5364 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5365 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5366 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5367 +;; The type attribute is used to distinguish between different
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5368 +;; types of branch instructions, so that their lengths can be
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5369 +;; calculated correctly.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5370 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5371 +(define_attr "type" "branch,cbranch,unknown" (const_string "unknown"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5372 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5373 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5374 +;; The length of a branch instruction is calculated based on how
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5375 +;; far away the branch target is. Lengths of other insns default
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5376 +;; to 4. set_attr is used in instruction templates to specify
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5377 +;; the length when it is known exactly. When not sure, err on
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5378 +;; the high side to avoid compile errors.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5379 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5380 +(define_attr "length" ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5381 + (cond [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5382 + (eq_attr "type" "branch")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5383 + (if_then_else (lt (minus (match_dup 0) (pc))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5384 + (const_int MIN_SHORT_BRANCH_OFFSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5385 + (const_int LONG_BRANCH_LENGTH)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5386 + (if_then_else (gt (minus (match_dup 0) (pc))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5387 + (const_int MAX_SHORT_BRANCH_OFFSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5388 + (const_int LONG_BRANCH_LENGTH)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5389 + (const_int SHORT_BRANCH_LENGTH)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5390 + (eq_attr "type" "cbranch")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5391 + (if_then_else (lt (minus (match_dup 0) (pc))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5392 + (const_int MIN_SHORT_BRANCH_OFFSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5393 + (const_int LONG_CBRANCH_LENGTH)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5394 + (if_then_else (gt (minus (match_dup 0) (pc))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5395 + (const_int MAX_SHORT_BRANCH_OFFSET))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5396 + (const_int LONG_CBRANCH_LENGTH)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5397 + (const_int SHORT_CBRANCH_LENGTH)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5398 + ] (const_int DEFAULT_INSN_LENGTH)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5399 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5400 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5401 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5402 +;; The default attributes for 'asm' statements.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5403 +;; The default length is the longest possible single 6809 instruction,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5404 +;; which is 5 bytes. GCC will automatically multiply this by the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5405 +;; number of real insns contained in an asm statement.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5406 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5407 +(define_asm_attributes
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5408 + [(set_attr "length" "5")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5409 + (set_attr "type" "unknown")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5410 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5411 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5412 +;; An attribute for the number of cycles that it takes an instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5413 +;; to execute.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5414 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5415 +(define_attr "cycles" "" (const_int DEFAULT_INSN_CYCLES))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5416 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5417 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5418 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5419 +;;- Instruction patterns. When multiple patterns apply,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5420 +;;- the first one in the file is chosen.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5421 +;;-
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5422 +;;- See file "rtl.def" for documentation on define_insn, match_*, et. al.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5423 +;;-
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5424 +;;- Note: NOTICE_UPDATE_CC in m6809.h handles condition code updates
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5425 +;;- for most instructions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5426 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5427 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5428 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5429 +;;- Test
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5430 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5431 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5432 +;; cmpx is 3 bytes, not 4
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5433 +(define_insn "*tsthi_x"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5434 + [(set (cc0) (match_operand:HI 0 "register_operand_x" "v"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5435 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5436 + "cmpx\t#0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5437 + [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5438 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5439 +;; subd #0 is 3 bytes, better than cmpd #0 which is 4 bytes
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5440 +(define_insn "*tsthi_d"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5441 + [(set (cc0) (match_operand:HI 0 "register_operand_d" "d"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5442 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5443 + "subd\t#0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5444 + [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5445 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5446 +(define_insn "*tsthi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5447 + [(set (cc0) (match_operand:HI 0 "register_operand" "a"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5448 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5449 + "cmp%0\t#0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5450 + [(set_attr "length" "4")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5451 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5452 +(define_insn "*bitqi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5453 + [(set (cc0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5454 + (and:QI (match_operand:QI 0 "register_operand" "%q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5455 + (match_operand:QI 1 "general_operand" "mi")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5456 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5457 + "bit%0\t%1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5458 + [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5459 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5460 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5461 +(define_insn "tstqi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5462 + [(set (cc0) (match_operand:QI 0 "nonimmediate_operand" "q,mt"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5463 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5464 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5465 + tst%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5466 + tst\t%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5467 + [(set_attr "length" "1,3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5468 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5469 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5470 +;;- Compare instructions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5471 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5472 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5473 +;; - cmphi for register to memory or register compares
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5474 +(define_insn "cmphi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5475 + [(set (cc0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5476 + (compare
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5477 + (match_operand:HI 0 "general_operand" "da, mi, ??Ud")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5478 + (match_operand:HI 1 "general_operand" "mi, da, dU")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5479 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5480 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5481 + if ((REG_P (operands[0])) && (REG_P (operands[1]))) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5482 + output_asm_insn ("pshs\t%1\t;cmphi: R:%1 with R:%0", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5483 + return "cmp%0\t,s++\t;cmphi:";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5484 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5485 + if (GET_CODE (operands[0]) == REG)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5486 + return "cmp%0\t%1\t;cmphi:";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5487 + else {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5488 + cc_status.flags \|= CC_REVERSED;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5489 + return "cmp%1\t%0\t;cmphi:(R)";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5490 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5491 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5492 + [(set_attr "length" "5,5,7")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5493 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5494 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5495 +(define_insn "cmpqi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5496 + [(set (cc0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5497 + (compare (match_operand:QI 0 "whole_general_operand" "q,q, q,O,mt,K")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5498 + (match_operand:QI 1 "whole_general_operand" "O,mt,K,q,q, q")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5499 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5500 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5501 + if (REG_P (operands[0]) && !M_REG_P (operands[0]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5502 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5503 + if (operands[1] == const0_rtx)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5504 + return "tst%0\t;cmpqi:(ZERO)";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5505 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5506 + return "cmp%0\t%1\t;cmpqi:";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5507 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5508 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5509 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5510 + cc_status.flags \|= CC_REVERSED;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5511 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5512 + if (operands[0] == const0_rtx)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5513 + return "tst%1\t;cmpqi:(RZERO)";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5514 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5515 + return "cmp%1\t%0\t;cmpqi:(R)";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5516 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5517 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5518 + [(set_attr "length" "1,3,2,1,3,2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5519 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5520 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5521 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5522 +;;- Compare/branch pattern
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5523 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5524 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5525 +(define_expand "cbranchhi4"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5526 + [(set (cc0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5527 + (compare
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5528 + (match_operand:HI 1 "general_operand" "da, mi, ??Ud")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5529 + (match_operand:HI 2 "general_operand" "mi, da, dU")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5530 + (set (pc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5531 + (if_then_else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5532 + (match_operator 0 "ordered_comparison_operator" [(cc0) (const_int 0)])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5533 + (label_ref (match_operand 3 "" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5534 + (pc)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5535 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5536 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5537 +)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5538 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5539 +(define_expand "cbranchqi4"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5540 + [(set (cc0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5541 + (compare
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5542 + (match_operand:QI 1 "whole_general_operand" "q,q, q,O,mt,K")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5543 + (match_operand:QI 2 "whole_general_operand" "O,mt,K,q,q, q")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5544 + (set (pc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5545 + (if_then_else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5546 + (match_operator 0 "ordered_comparison_operator" [(cc0) (const_int 0)])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5547 + (label_ref (match_operand 3 "" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5548 + (pc)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5549 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5550 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5551 +)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5552 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5553 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5554 +;;- Move
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5555 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5556 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5557 +; this looks good (obviously not finished) but I still see 'movsi'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5558 +; places in udivsi3 where it's broken
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5559 +; (define_insn "pushsi1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5560 +; [(set (mem:SI (pre_dec (reg:HI HARD_S_REGNUM)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5561 +; (match_operand:SI 0 "general_operand" "o"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5562 +; (set (reg:HI HARD_S_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5563 +; (plus:HI (reg:HI HARD_S_REGNUM) (const_int -4))) ]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5564 +; ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5565 +; "; pushsi %0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5566 +; [(set_attr "length" "12")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5567 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5568 +; (define_insn "popsi1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5569 +; [(set (match_operand:SI 0 "general_operand" "=o")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5570 +; (mem:SI (post_inc (reg:HI HARD_S_REGNUM))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5571 +; (set (reg:HI HARD_S_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5572 +; (plus:HI (reg:HI HARD_S_REGNUM) (const_int 4))) ]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5573 +; ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5574 +; "; popsi %0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5575 +; [(set_attr "length" "12")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5576 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5577 +; (define_insn "movsi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5578 +; [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5579 +; (match_operand:SI 1 "general_operand" " oi"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5580 +; ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5581 +; "; movsi %0 <- %1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5582 +; [(set_attr "length" "1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5583 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5584 +; this doesn't work
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5585 +; (define_expand "movsi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5586 +; [(parallel [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5587 +; (set (match_operand:SI 0 "nonimmediate_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5588 +; (match_operand:SI 1 "general_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5589 +; (clobber (match_scratch:HI 2 ""))])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5590 +; ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5591 +; {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5592 +; rtx insn;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5593 +; if (STACK_PUSH_P (operands[0]) \|\| STACK_POP_P (operands[1]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5594 +; {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5595 +; REG_NOTES (insn) = alloc_EXPR_LIST (REG_INC, stack_pointer_rtx, REG_NOTES (insn));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5596 +; }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5597 +; insn = emit_move_multi_word (SImode, operands[0], operands[1]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5598 +; DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5599 +; })
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5600 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5601 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5602 +(define_expand "movhi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5603 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5604 + (match_operand:HI 1 "general_operand" ""))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5605 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5606 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5607 + /* One of the ops has to be in a register prior to reload */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5608 + if (!register_operand (operand0, HImode) &&
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5609 + !register_operand (operand1, HImode))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5610 + operands[1] = copy_to_mode_reg (HImode, operand1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5611 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5612 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5613 +;;; Try a splitter to handle failure cases where we try to move
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5614 +;;; an immediate constant (zero usually) directly to memory.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5615 +;;; This absolutely requires an intermediate register.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5616 +(define_split
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5617 + [(set (match_operand:HI 0 "memory_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5618 + (match_operand:HI 1 "immediate_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5619 + (clobber (match_operand:HI 2 "register_operand" ""))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5620 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5621 + [(set (match_dup 2) (match_dup 1))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5622 + (set (match_dup 0) (match_dup 2))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5623 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5624 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5625 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5626 +;;; This would be a nice method for loading from a word array,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5627 +;;; but it is never generated because the combiner cannot merge
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5628 +;;; more than 3 instructions (there are four here). This is
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5629 +;;; perhaps better done via a peephole.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5630 +(define_insn "*movhi_array_load"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5631 + [(set (match_operand:HI 0 "nonimmediate_operand" "=da")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5632 + (mem:HI (plus:HI (ashift:HI (zero_extend:HI (match_operand:QI 1 "register_operand" "%B")) (const_int 1))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5633 + (match_operand:HI 2 "immediate_operand" "i"))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5634 + (clobber (match_scratch:HI 3 "=X"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5635 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5636 + "ldx\t%2\;abx\;abx\;ld%0\t,x"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5637 + [(set_attr "length" "7")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5638 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5639 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5640 +;;; Optimize the move of a byte to the stack using the pshs instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5641 +;;; instead of a store with pre-increment.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5642 +(define_insn "movhi_push"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5643 + [(set (match_operand:HI 0 "push_operand" "=m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5644 + (match_operand:HI 1 "register_operand" "U"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5645 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5646 + "pshs\t%1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5647 + [(set_attr "length" "2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5648 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5649 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5650 +(define_insn "*movhi_pic_symbolref"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5651 + [(set (match_operand:HI 0 "register_operand" "=a")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5652 + (match_operand:HI 1 "symbolic_operand" ""))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5653 + "flag_pic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5654 + "lea%0\t%c1,pcr"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5655 + [(set_attr "length" "4")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5656 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5657 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5658 +(define_insn "*movhi_1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5659 + [(set (match_operand:HI 0 "nonimmediate_operand" "=a,d,a,ad,mu")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5660 + (match_operand:HI 1 "general_operand" " a,a,d,miu,ad"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5661 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5662 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5663 + lea%0\t,%1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5664 + tfr\t%1,%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5665 + tfr\t%1,%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5666 + ld%0\t%1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5667 + st%1\t%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5668 + [(set_attr "length" "2,2,2,,")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5669 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5670 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5671 +;;; Generated by the combiner to merge an address calculation with
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5672 +;;; a byte load. We can use the 'abx' instruction here.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5673 +(define_insn "*movqi_array_load"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5674 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5675 + (mem:QI (plus:HI (zero_extend:HI (match_operand:QI 1 "register_operand" "%B"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5676 + (match_operand:HI 2 "immediate_operand" "i"))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5677 + (clobber (match_scratch:HI 3 "=X"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5678 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5679 + "ldx\t%2\;abx\;ld%0\t,x"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5680 + [(set_attr "length" "6")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5681 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5682 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5683 +;;; Optimize the move of a byte to the stack using the pshs instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5684 +;;; instead of a store with pre-increment.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5685 +(define_insn "movqi_push"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5686 + [(set (match_operand:QI 0 "push_operand" "=m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5687 + (match_operand:QI 1 "register_operand" " q"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5688 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5689 + "pshs\t%1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5690 + [(set_attr "length" "2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5691 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5692 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5693 +;;; Optimize the move of a byte from the stack using the puls instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5694 +;;; instead of a store with post-decrement.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5695 +(define_insn "movqi_pop"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5696 + [(set (match_operand:QI 0 "register_operand" "=q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5697 + (match_operand:QI 1 "pop_operand" "m"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5698 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5699 + "puls\t%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5700 + [(set_attr "length" "2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5701 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5702 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5703 +;;- load low byte of 16-bit data into 8-bit register/memory
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5704 +(define_insn "*mov_lsb"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5705 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,m,!q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5706 + (subreg:QI (match_operand:HI 1 "general_operand" "d,m,a,d, U") 1))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5707 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5708 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5709 + \t;movlsbqihi: D->B
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5710 + ld%0\t%L1\t;movlsbqihi: msb:%1 -> R:%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5711 + tfr\t%1,d\t;movlsbqihi: R:%1 -> R:%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5712 + stb\t%0\t;movlsbqihi: R:%1 -> %0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5713 + pshs\t%1\t;movlsbqihi: R:%1 -> R:%0\;leas\t1,s\;puls\t%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5714 + [(set_attr "length" "0,,2,,6")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5715 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5716 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5717 +;;- load high byte of 16-bit data into 8-bit register/memory
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5718 +(define_insn "*mov_msb"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5719 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,q,m,!q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5720 + (subreg:QI (match_operand:HI 1 "general_operand" "d,O,a,m,d, U") 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5721 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5722 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5723 + tfr\ta,b\t;movmsbqihi: D->B
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5724 + clr%0\t\t;movmsbqihi: ZERO -> R:%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5725 + tfr\t%1,d\t;movmsbqihi: R:%1 -> R:%0\;tfr\ta,b
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5726 + ld%0\t%L1\t;movmsbqihi: lsb:%1 -> R:%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5727 + sta\t%0\t;movmsbqihi: R:%1 -> %0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5728 + pshs\t%1\t;movmsbqihi: R:%1 -> R:%0\;puls\t%0\;leas\t1,s"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5729 + [(set_attr "length" "2,1,4,,,6")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5730 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5731 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5732 +(define_insn "*movqi_boolean"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5733 + [(set (reg:QI HARD_Z_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5734 + (match_operand:QI 0 "general_operand" "q,O,i,m"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5735 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5736 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5737 + tst%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5738 + andcc\t#~4
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5739 + orcc\t#4
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5740 + tst\t%0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5741 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5742 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5743 +(define_insn "movqi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5744 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,m,q,m,q,z")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5745 + (match_operand:QI 1 "general_operand" " q,O,O,mi,q,z,q"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5746 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5747 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5748 + tfr\t%1,%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5749 + clr%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5750 + clr\t%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5751 + ld%0\t%1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5752 + st%1\t%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5753 + tfr\tcc,%0\;and%0\t#4
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5754 + tst%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5755 + [(set_attr "length" "2,1,3,,,4,1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5756 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5757 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5758 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5759 +;;- Swap registers
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5760 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5761 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5762 +; Note: 8-bit swap is never needed so it is not defined.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5763 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5764 +(define_insn "swaphi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5765 + [(set (match_operand:HI 0 "register_operand" "+r")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5766 + (match_operand:HI 1 "register_operand" "+r"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5767 + (set (match_dup 1) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5768 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5769 + "exg\t%1,%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5770 + [(set_attr "length" "2")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5771 + (set (attr "cycles") (const_int EXG_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5772 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5773 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5774 +(define_insn "bswaphi2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5775 + [(set (match_operand:HI 0 "register_operand" "=d")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5776 + (bswap:HI (match_operand:HI 1 "register_operand" "0")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5777 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5778 + "exg\ta,b"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5779 + [(set_attr "length" "2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5780 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5781 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5782 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5783 +;;- Extension and truncation insns.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5784 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5785 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5786 +(define_insn "extendqihi2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5787 + [(set (match_operand:HI 0 "register_operand" "=d")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5788 + (sign_extend:HI (match_operand:QI 1 "general_operand" "B")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5789 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5790 + "sex\t\t;extendqihi2: R:%1 -> R:%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5791 + [(set_attr "length" "1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5792 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5793 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5794 +(define_insn "zero_extendqihi2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5795 + [(set (match_operand:HI 0 "register_operand" "=d")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5796 + (zero_extend:HI (match_operand:QI 1 "general_operand" "B")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5797 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5798 + "clra\t\t;zero_extendqihi: R:%1 -> R:%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5799 + [(set_attr "length" "1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5800 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5801 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5802 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5803 +;;- All kinds of add instructions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5804 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5805 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5806 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5807 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5808 +;; gcc's automatic version of addsi3 doesn't know about adcb,adca
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5809 +;; so it is MUCH less efficient. Define this one ourselves.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5810 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5811 +;; TODO - can't always get 'd' for the clobber... allow other registers
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5812 +;; as well and use exg d,R ... exg R,d around the code sequence to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5813 +;; use others, at a price. Also consider libcall for this when
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5814 +;; optimizing for size.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5815 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5816 +(define_insn "addsi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5817 + [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5818 + (plus:SI (match_operand:SI 1 "general_operand" "%o")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5819 + (match_operand:SI 2 "general_operand" " oi")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5820 + (clobber (match_scratch:HI 3 "=d"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5821 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5822 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5823 + m6809_output_addsi3 (PLUS, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5824 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5825 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5826 + [(set_attr "length" "21")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5827 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5828 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5829 +; Increment of a 16-bit MEM by 1 can be done without a register.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5830 +(define_insn "*addhi_mem_1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5831 + [(set (match_operand:HI 0 "memory_operand" "=m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5832 + (plus:HI (match_dup 0) (const_int 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5833 + "GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5834 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5835 + rtx xoperands[2];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5836 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5837 + xoperands[0] = operands[0];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5838 + xoperands[1] = adjust_address (operands[0], QImode, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5839 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5840 + output_asm_insn ("inc\t%1", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5841 + output_asm_insn ("bne\t__IL%=", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5842 + output_asm_insn ("inc\t%0\;__IL%=:", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5843 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5844 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5845 + [(set_attr "length" "7")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5846 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5847 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5848 +; Decrement of a 16-bit MEM by 1 can be done without a register.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5849 +(define_insn "*addhi_mem_minus1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5850 + [(set (match_operand:HI 0 "memory_operand" "=m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5851 + (plus:HI (match_dup 0) (const_int -1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5852 + "GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5853 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5854 + rtx xoperands[2];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5855 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5856 + xoperands[0] = operands[0];
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5857 + xoperands[1] = adjust_address (operands[0], QImode, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5858 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5859 + output_asm_insn ("tst\t%1", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5860 + output_asm_insn ("bne\t__IL%=", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5861 + output_asm_insn ("dec\t%0", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5862 + output_asm_insn ("__IL%=:", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5863 + output_asm_insn ("dec\t%1", xoperands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5864 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5865 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5866 + [(set_attr "length" "7")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5867 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5868 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5869 +; Allow the addition of an 8-bit quantity to a 16-bit quantity
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5870 +; using the LEAX B,Y addressing mode, where X and Y are both
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5871 +; index registers. This will only get generated via the peephole
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5872 +; which removes a sign extension.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5873 +(define_insn "*addhi_b"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5874 + [(set (match_operand:HI 0 "index_register_operand" "=a")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5875 + (plus:HI(match_operand:HI 1 "index_register_operand" "%a")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5876 + (match_operand:QI 2 "register_operand" "q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5877 + ))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5878 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5879 + "lea%0\t%2,%1\t;addhi_b: R:%0 = R:%2 + R:%1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5880 + [(set_attr "length" "*")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5881 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5882 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5883 +; Splitter for addhi pattern #5 below
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5884 +(define_split
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5885 + [(set (match_operand:HI 0 "index_register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5886 + (plus:HI (match_dup 0) (match_operand:HI 1 "memory_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5887 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5888 + [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5889 + (parallel [(set (match_dup 0) (reg:HI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5890 + (set (reg:HI HARD_D_REGNUM) (match_dup 0))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5891 + (set (reg:HI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5892 + (plus:HI (reg:HI HARD_D_REGNUM) (match_dup 1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5893 + (parallel [(set (match_dup 0) (reg:HI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5894 + (set (reg:HI HARD_D_REGNUM) (match_dup 0))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5895 + ]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5896 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5897 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5898 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5899 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5900 +; Splitter for addhi pattern #7 below
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5901 +(define_split
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5902 + [(set (match_operand:HI 0 "index_register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5903 + (plus:HI (match_dup 0) (match_operand:HI 1 "index_register_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5904 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5905 + [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5906 + (parallel [(set (match_dup 1) (reg:HI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5907 + (set (reg:HI HARD_D_REGNUM) (match_dup 1))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5908 + (set (match_dup 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5909 + (plus:HI (reg:HI HARD_D_REGNUM) (match_dup 0)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5910 + (parallel [(set (match_dup 1) (reg:HI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5911 + (set (reg:HI HARD_D_REGNUM) (match_dup 1))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5912 + ]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5913 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5914 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5915 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5916 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5917 +; TODO - this is ugly. During RTL generation, we don't know what registers
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5918 +; are available, so the multiple-insn sequences can only be solved
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5919 +; via 'define_split's during matching. See andhi3 for an example.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5920 +; Keep the constraints with ? modifiers to help reload pick the right
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5921 +; registers.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5922 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5923 +; The forms are:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5924 +; 1. D += D, expand this into a shift instead. (rtx costs should be corrected
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5925 +; to avoid this even happening...)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5926 +; 2. D += U, require U to be pushed to memory. (Lots of patterns do this
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5927 +; now, is this a better way?)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5928 +; 3. Best choice: 'addd'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5929 +; 4. Next best choice: 'lea'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5930 +; 5. Hybrid of 3 and 4
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5931 +; 6. Same as 4, not bad
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5932 +; 7. BAD, no D register at all
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5933 +; 8. 'lea', as good as 4.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5934 +(define_insn "addhi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5935 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d, d, d, a,?a, a,???T,a")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5936 + (plus:HI(match_operand:HI 1 "add_general_operand" "%0, 0, 0, d, 0, a, 0, a")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5937 + (match_operand:HI 2 "general_operand" " 0, !U, mi, a, m, d, T, i")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5938 + ))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5939 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5940 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5941 + lslb\t\t;addhi: R:%0 += R:%2\;rola\t\t;also R:%0 *= 2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5942 + pshs\t%2\t;addhi: R:%0 += R:%2\;add%0\t,s++
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5943 + add%0\t%2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5944 + lea%0\t%1,%2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5945 + #
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5946 + lea%0\t%2,%1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5947 + #
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5948 + lea%0\t%a2,%1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5949 + [(set_attr "length" "2,6,,,7,,7,")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5950 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5951 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5952 +(define_insn "addqi3_carry"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5953 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5954 + (unspec:QI [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5955 + (match_operand:QI 1 "whole_general_operand" "%0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5956 + (match_operand:QI 2 "whole_general_operand" "tmi")] UNSPEC_ADD_CARRY))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5957 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5958 + "adc%0\t%2\t;addqi_carry: R:%0 += %2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5959 + [(set_attr "length" "*")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5960 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5961 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5962 +; TODO: specifying 'A' for the first constraint, to force into the A register
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5963 +; is not working because of the way registers are currently set up. This will
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5964 +; take some work to get right. Thus the second alternative as a backup.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5965 +(define_insn "addqi3_decimal"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5966 + [(set (match_operand:QI 0 "nonimmediate_operand" "=A,?q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5967 + (unspec:QI [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5968 + (match_operand:QI 1 "general_operand" "%0,0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5969 + (match_operand:QI 2 "general_operand" "mi,mi")] UNSPEC_ADD_DECIMAL))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5970 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5971 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5972 + adda\t%2\;daa
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5973 + tfr\t%0,a\;adda\t%2\;daa\;tfr\ta,%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5974 + [(set_attr "length" "5,9")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5975 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5976 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5977 +(define_insn "addqi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5978 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,m,m,q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5979 + (plus:QI (match_operand:QI 1 "whole_general_operand" "%0,0,0,0,0,0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5980 + (match_operand:QI 2 "whole_general_operand" " 0,I,N,I,N,mi")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5981 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5982 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5983 + asl%0\t\t;addqi: R:%0 = R:%0 + R:%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5984 + inc%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5985 + dec%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5986 + inc\t%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5987 + dec\t%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5988 + add%0\t%2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5989 + [(set_attr "length" "1,1,1,3,3,*")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5990 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5991 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5992 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5993 +;;- Subtract instructions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5994 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5995 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5996 +(define_insn "subsi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5997 + [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5998 + (minus:SI (match_operand:SI 1 "general_operand" " o")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	5999 + (match_operand:SI 2 "general_operand" " oi")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6000 + (clobber (match_scratch:HI 3 "=d"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6001 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6002 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6003 + m6809_output_addsi3 (MINUS, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6004 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6005 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6006 + [(set_attr "length" "21")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6007 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6008 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6009 +(define_insn "subhi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6010 + [(set (match_operand:HI 0 "register_operand" "=d, d, a")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6011 + (minus:HI (match_operand:HI 1 "register_operand" "0, 0, 0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6012 + (match_operand:HI 2 "general_operand" "mi, ?U,n")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6013 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6014 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6015 + sub%0\t%2\t;subhi: R:%0 -= %2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6016 + pshs\t%2\t;subhi: R:%0 -= R:%2\;sub%0\t,s++
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6017 + lea%0\t%n2,%1\t;subhi: R:%0 = R:%1 + %n2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6018 + [(set_attr "length" "*,5,3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6019 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6020 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6021 +(define_insn "subqi3_carry"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6022 + [(set (match_operand:QI 0 "register_operand" "=q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6023 + (unspec:QI [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6024 + (match_operand:QI 1 "whole_general_operand" "%0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6025 + (match_operand:QI 2 "whole_general_operand" "tmi")] UNSPEC_SUB_CARRY))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6026 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6027 + "sbc%0\t%2\t;subqi_carry: R:%0 += %2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6028 + [(set_attr "length" "*")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6029 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6030 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6031 +(define_insn "subqi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6032 + [(set (match_operand:QI 0 "register_operand" "=q, q, !q, q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6033 + (minus:QI (match_operand:QI 1 "whole_register_operand" "0, 0, I, 0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6034 + (match_operand:QI 2 "whole_general_operand" "I, mi, 0, t")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6035 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6036 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6037 + dec%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6038 + sub%0\t%2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6039 + dec%0\;neg%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6040 + sub%0\t%2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6041 + [(set_attr "length" "1,3,2,3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6042 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6043 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6044 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6045 +;;- Multiply instructions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6046 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6047 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6048 +; TODO - merge these two instructions, using 'extend_operator' to match
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6049 +; either signed or zero extension. Everything else is the same.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6050 +(define_insn "mulqihi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6051 + [(set (match_operand:HI 0 "register_operand" "=d")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6052 + (mult:HI (sign_extend:HI (match_operand:QI 1 "general_operand" "%q"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6053 + (match_operand:QI 2 "general_operand" "tmK")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6054 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6055 + "lda\t%2\t;mulqihi3\;mul"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6056 + [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6057 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6058 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6059 +(define_insn "umulqihi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6060 + [(set (match_operand:HI 0 "register_operand" "=d")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6061 + (mult:HI (zero_extend:HI (match_operand:QI 1 "general_operand" "%q"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6062 + (match_operand:QI 2 "general_operand" "tmK")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6063 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6064 + "lda\t%2\t;umulqihi3\;mul"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6065 + [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6066 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6067 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6068 +; Expand a 16x16 multiplication into either a libcall or a shift.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6069 +; If the second operand is a small constant, use the above form.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6070 +; Otherwise, do a libcall.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6071 +(define_expand "mulhi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6072 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6073 + (mult:HI (match_operand:HI 1 "general_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6074 + (match_operand:HI 2 "nonmemory_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6075 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6076 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6077 + emit_libcall_insns (HImode, "mulhi3", operands, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6078 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6079 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6080 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6081 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6082 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6083 +;;- Divide instructions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6084 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6085 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6086 +(define_expand "divhi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6087 + [(set (match_operand:HI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6088 + (div:HI (match_operand:HI 1 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6089 + (match_operand:HI 2 "register_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6090 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6091 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6092 + emit_libcall_insns (HImode, "divhi3", operands, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6093 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6094 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6095 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6096 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6097 +(define_expand "divqi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6098 + [(set (match_operand:QI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6099 + (div:QI (match_operand:QI 1 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6100 + (match_operand:QI 2 "register_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6101 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6102 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6103 + emit_libcall_insns (QImode, "divqi3", operands, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6104 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6105 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6106 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6107 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6108 +(define_expand "udivhi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6109 + [(set (match_operand:HI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6110 + (udiv:HI (match_operand:HI 1 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6111 + (match_operand:HI 2 "register_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6112 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6113 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6114 + emit_libcall_insns (HImode, "udivhi3", operands, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6115 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6116 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6117 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6118 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6119 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6120 +;;- mod
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6121 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6122 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6123 +(define_expand "modhi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6124 + [(set (match_operand:HI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6125 + (mod:HI (match_operand:HI 1 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6126 + (match_operand:HI 2 "register_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6127 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6128 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6129 + emit_libcall_insns (HImode, "modhi3", operands, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6130 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6131 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6132 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6133 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6134 +(define_expand "modqi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6135 + [(set (match_operand:QI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6136 + (mod:QI (match_operand:QI 1 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6137 + (match_operand:QI 2 "register_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6138 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6139 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6140 + emit_libcall_insns (QImode, "modqi3", operands, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6141 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6142 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6143 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6144 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6145 +(define_expand "umodhi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6146 + [(set (match_operand:HI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6147 + (umod:HI (match_operand:HI 1 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6148 + (match_operand:HI 2 "register_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6149 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6150 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6151 + emit_libcall_insns (HImode, "umodhi3", operands, 2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6152 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6153 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6154 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6155 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6156 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6157 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6158 +;;- and, or, xor common patterns
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6159 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6160 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6161 +; Split a bitwise HImode into two QImode instructions, with one of
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6162 +; the sources in a pushable register. The register is pushed onto
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6163 +; the stack and memory pop operands (,s+) are used in the QI forms.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6164 +(define_split
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6165 + [(set (match_operand:HI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6166 + (match_operator:HI 3 "logical_bit_operator"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6167 + [(match_operand:HI 1 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6168 + (match_operand:HI 2 "register_operand" "")]))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6169 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6170 + [(set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 2))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6171 + (set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6172 + [(reg:QI HARD_A_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6173 + (mem:QI (post_inc:QI (reg:HI HARD_S_REGNUM)))]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6174 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6175 + [(reg:QI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6176 + (mem:QI (post_inc:QI (reg:HI HARD_S_REGNUM)))]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6177 + (use (reg:QI HARD_A_REGNUM))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6178 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6179 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6180 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6181 +; Split a bitwise HImode into two QImode instructions, with one
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6182 +; of the sources being a (MEM (MEM (...)); i.e. an indirect memory
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6183 +; reference. This requires dereferencing the pointer into a
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6184 +; temporary register (X), which must be saved/restored around the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6185 +; compute instructions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6186 +(define_split
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6187 + [(set (match_operand:HI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6188 + (match_operator:HI 3 "logical_bit_operator"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6189 + [(match_operand:HI 1 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6190 + (mem:HI (match_operand:HI 2 "memory_operand" ""))]))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6191 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6192 + [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6193 + (set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 4))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6194 + (set (match_dup 4) (match_dup 2))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6195 + (set (match_dup 4) (mem:HI (match_dup 4)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6196 + (set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6197 + [(reg:QI HARD_A_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6198 + (mem:QI (post_inc:QI (match_dup 4)))]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6199 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6200 + [(reg:QI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6201 + (mem:QI (post_inc:QI (match_dup 4)))]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6202 + (use (reg:QI HARD_A_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6203 + (set (match_dup 4) (mem:HI (post_inc:HI (reg:HI HARD_S_REGNUM))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6204 + ]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6205 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6206 + /* Use X for a temporary index register */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6207 + operands[4] = gen_rtx_REG (HImode, HARD_X_REGNUM);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6208 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6209 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6210 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6211 +; Split a bitwise HImode into two QImode instructions. This is
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6212 +; the common case. This handles splitting when neither of the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6213 +; above two cases applies.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6214 +(define_split
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6215 + [(set (match_operand:HI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6216 + (match_operator:HI 3 "logical_bit_operator"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6217 + [(match_operand:HI 1 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6218 + (match_operand:HI 2 "general_operand" "")]))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6219 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6220 + [(set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6221 + [(reg:QI HARD_A_REGNUM) (match_dup 4)]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6222 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6223 + [(reg:QI HARD_D_REGNUM) (match_dup 5)]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6224 + (use (reg:QI HARD_A_REGNUM))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6225 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6226 + if (GET_CODE (operands[2]) == CONST_INT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6227 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6228 + operands[4] = gen_rtx_const_high (operands[2]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6229 + operands[5] = gen_rtx_const_low (operands[2]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6230 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6231 + else if ((GET_CODE (operands[2]) == MEM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6232 + && (GET_CODE (XEXP (operands[2], 0)) == MEM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6233 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6234 + FAIL;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6235 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6236 + else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6237 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6238 + operands[4] = gen_highpart (QImode, operands[2]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6239 + operands[5] = gen_lowpart (QImode, operands[2]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6240 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6241 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6242 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6243 +; Below are the specific cases for each of the operators.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6244 +; The QImode versions are the simplest and can be implemented
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6245 +; directly on the hardware. The HImode cases are all output
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6246 +; using one of the above splitting techniques.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6247 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6248 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6249 +;;- and
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6250 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6251 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6252 +(define_insn "andhi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6253 + [(set (match_operand:HI 0 "register_operand" "=d")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6254 + (and:HI (match_operand:HI 1 "register_operand" "%0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6255 + (match_operand:HI 2 "general_operand" "mnU")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6256 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6257 + "#")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6258 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6259 +;; it is not clear that this is correct
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6260 +(define_insn "*andqi_2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6261 + [(set
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6262 + (match_operand:QI 0 "register_operand" "=q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6263 + (and:QI (match_operand:QI 1 "register_operand" "q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6264 + (match_operand 2 "const_int_operand" "i")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6265 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6266 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6267 + if (GET_CODE (operands[2]) == CONST_INT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6268 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6269 + operands[3] = GEN_INT(INTVAL(operands[2]) & 0xff);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6270 + return "and%0\t%3";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6271 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6272 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6273 + return "and%0\t%2";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6274 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6275 + [(set_attr "length" "2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6276 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6277 +(define_insn "andqi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6278 + [(set (match_operand:QI 0 "register_operand" "=q,q,q,qc")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6279 + (and:QI (match_operand:QI 1 "whole_register_operand" "%0,0,0,0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6280 + (match_operand:QI 2 "whole_general_operand" " O,N,m,i")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6281 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6282 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6283 + clr%0\t;andqi(ZERO)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6284 + \t;andqi(-1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6285 + and%0\t%2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6286 + and%0\t%2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6287 + [(set_attr "length" "1,0,3,2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6288 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6289 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6290 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6291 +;;- or
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6292 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6293 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6294 +(define_insn "iorhi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6295 + [(set (match_operand:HI 0 "register_operand" "=d")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6296 + (ior:HI (match_operand:HI 1 "register_operand" "%0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6297 + (match_operand:HI 2 "general_operand" "mnU")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6298 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6299 + "#")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6300 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6301 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6302 +(define_insn "iorqi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6303 + [(set (match_operand:QI 0 "register_operand" "=q,q, qc")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6304 + (ior:QI (match_operand:QI 1 "whole_register_operand" "%0,0, 0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6305 + (match_operand:QI 2 "whole_general_operand" " O,m,i")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6306 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6307 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6308 + \t;iorqi(ZERO)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6309 + or%0\t%2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6310 + or%0\t%2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6311 + [(set_attr "length" "0,3,2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6312 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6313 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6314 +;;- xor
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6315 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6316 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6317 +(define_insn "xorhi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6318 + [(set (match_operand:HI 0 "register_operand" "=d")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6319 + (xor:HI (match_operand:HI 1 "register_operand" "%0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6320 + (match_operand:HI 2 "general_operand" "mnU")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6321 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6322 + "#")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6323 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6324 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6325 +(define_insn "xorqi3"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6326 + [(set (match_operand:QI 0 "register_operand" "=q,q,q,q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6327 + (xor:QI (match_operand:QI 1 "whole_register_operand" "%0,0,0,0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6328 + (match_operand:QI 2 "whole_general_operand" " O,N,m,i")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6329 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6330 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6331 + \t;xorqi(ZERO)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6332 + com%0\t;xorqi(-1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6333 + eor%0\t%2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6334 + eor%0\t%2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6335 + [(set_attr "length" "0,1,3,2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6336 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6337 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6338 +;;- Two's Complements
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6339 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6340 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6341 +(define_insn "neghi2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6342 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d,!a")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6343 + (neg:HI (match_operand:HI 1 "general_operand" "0, 0")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6344 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6345 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6346 + nega\;negb\;sbca\t#0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6347 + exg\td,%0\;nega\;negb\;sbca\t#0\;exg\td,%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6348 + [(set_attr "length" "5,9")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6349 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6350 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6351 +(define_insn "negqi2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6352 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6353 + (neg:QI (match_operand:QI 1 "nonimmediate_operand" "0,0")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6354 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6355 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6356 + neg%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6357 + neg\t%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6358 + [(set_attr "length" "1,3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6359 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6360 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6361 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6362 +;;- One's Complements
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6363 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6364 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6365 +(define_insn "one_cmplhi2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6366 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d,?tm,???a")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6367 + (not:HI (match_operand:HI 1 "general_operand" "0, 0, 0")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6368 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6369 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6370 + coma\;comb
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6371 + com\t%0\;com\t%L0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6372 + exg\td,%0\;coma\;comb\;exg\td,%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6373 + [(set_attr "length" "2,6,6")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6374 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6375 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6376 +(define_insn "one_cmplqi2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6377 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6378 + (not:QI (match_operand:QI 1 "nonimmediate_operand" "0,0")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6379 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6380 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6381 + com%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6382 + com\t%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6383 + [(set_attr "length" "1,3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6384 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6385 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6386 +;;- Shifts/rotates
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6387 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6388 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6389 +(define_code_iterator bit_code [ashift ashiftrt lshiftrt])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6390 +(define_code_attr bit_code_name [(ashift "ashl") (ashiftrt "ashr") (lshiftrt "lshr")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6391 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6392 +(define_mode_iterator bit_mode [QI HI])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6393 +(define_mode_attr bit_mode_name [(QI "qi3") (HI "hi3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6394 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6395 +;; Emit RTL for any shift (handles all 3 opcodes and 2 mode sizes)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6396 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6397 +(define_expand "<bit_code:bit_code_name><bit_mode:bit_mode_name>"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6398 + [(set (match_operand:bit_mode 0 "nonimmediate_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6399 + (bit_code:bit_mode (match_operand:bit_mode 1 "general_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6400 + (match_operand:bit_mode 2 "nonmemory_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6401 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6402 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6403 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6404 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6405 +; Individual instructions implemented in the CPU.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6406 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6407 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6408 +(define_insn "*ashift1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6409 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6410 + (ashift:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6411 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6412 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6413 + asl\t%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6414 + asl%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6415 + [(set_attr "length" "3,1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6416 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6417 +(define_insn "*lshiftrt1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6418 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6419 + (lshiftrt:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6420 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6421 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6422 + lsr\t%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6423 + lsr%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6424 + [(set_attr "length" "3,1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6425 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6426 +(define_insn "*ashiftrt1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6427 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6428 + (ashiftrt:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6429 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6430 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6431 + asr\t%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6432 + asr%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6433 + [(set_attr "length" "3,1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6434 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6435 +(define_insn "*rotate1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6436 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6437 + (rotate:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6438 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6439 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6440 + rol\t%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6441 + rol%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6442 + [(set_attr "length" "3,1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6443 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6444 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6445 +(define_insn "*rotatert1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6446 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6447 + (rotatert:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6448 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6449 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6450 + ror\t%0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6451 + ror%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6452 + [(set_attr "length" "3,1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6453 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6454 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6455 +; A shift by 8 for D reg can be optimized by just moving
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6456 +; between the A/B halves, and then zero/sign extending or
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6457 +; filling in zeroes.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6458 +; Because GCC does not understand that 'A' and 'D' refer to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6459 +; the same storage location, we must use 'USE' throughout
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6460 +; to prevent deletion of 'unnecessary' instructions.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6461 +; Similar optimization for MEM would require a scratch register
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6462 +; so is not done here.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6463 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6464 +(define_split
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6465 + [(set (reg:HI HARD_D_REGNUM) (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 8)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6466 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6467 + [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6468 + (use (reg:HI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6469 + (set (reg:QI HARD_A_REGNUM) (reg:QI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6470 + (use (reg:QI HARD_A_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6471 + (set (reg:QI HARD_D_REGNUM) (const_int 0))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6472 + ]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6473 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6474 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6475 +(define_split
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6476 + [(set (reg:HI HARD_D_REGNUM) (lshiftrt:HI (reg:HI HARD_D_REGNUM) (const_int 8)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6477 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6478 + [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6479 + (use (reg:HI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6480 + (set (reg:QI HARD_D_REGNUM) (reg:QI HARD_A_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6481 + (use (reg:QI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6482 + (set (reg:HI HARD_D_REGNUM) (zero_extend:HI (reg:QI HARD_D_REGNUM)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6483 + ]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6484 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6485 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6486 +(define_split
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6487 + [(set (reg:HI HARD_D_REGNUM) (ashiftrt:HI (reg:HI HARD_D_REGNUM) (const_int 8)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6488 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6489 + [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6490 + (use (reg:HI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6491 + (set (reg:QI HARD_D_REGNUM) (reg:QI HARD_A_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6492 + (use (reg:QI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6493 + (set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6494 + ]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6495 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6496 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6497 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6498 +; On the WPC hardware, there is a shift register that can be used
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6499 +; to compute (1<<n) efficiently in two instructions. Note that this
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6500 +; form only works when using -mint8 though, because C will promote
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6501 +; to 'int' when doing this operation. TODO : we need a 16-bit form too.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6502 +(define_insn "ashlqi3_wpc"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6503 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6504 + (ashift:QI (match_operand:QI 1 "immediate_operand" "I")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6505 + (match_operand:QI 2 "general_operand" "q")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6506 + "TARGET_WPC"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6507 + "st%2\t0x3FF7\;ld%0\t0x3FF7"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6508 + [(set_attr "length" "6")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6509 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6510 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6511 +; Internal instructions for shifting by a constant.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6512 +; Two forms are provided, one for QImode, one for HImode.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6513 +; These are always split into the above instructions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6514 +; (except for QImode forms that directly match one of the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6515 +; above instructions, in which the condition will not
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6516 +; allow the splitter to match).
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6517 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6518 +(define_insn_and_split "<bit_code:bit_code_name>hi3_const"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6519 + [(set (match_operand:HI 0 "nonimmediate_operand" "=dm")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6520 + (bit_code:HI (match_operand:HI 1 "general_operand" "0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6521 + (match_operand:HI 2 "immediate_operand" "n")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6522 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6523 + "#"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6524 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6525 + [(const_int 0)]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6526 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6527 + m6809_split_shift (<bit_code:CODE>, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6528 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6529 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6530 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6531 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6532 +(define_insn_and_split "<bit_code:bit_code_name>qi3_const"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6533 + [(set (match_operand:QI 0 "nonimmediate_operand" "=qm")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6534 + (bit_code:QI (match_operand:QI 1 "general_operand" "0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6535 + (match_operand:QI 2 "immediate_operand" "n")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6536 + "INTVAL (operands[2]) > 1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6537 + "#"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6538 + "&& reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6539 + [(const_int 0)]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6540 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6541 + m6809_split_shift (<bit_code:CODE>, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6542 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6543 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6544 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6545 +; Internal instructions for shifting by a nonconstant.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6546 +; These expand into complex assembly.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6547 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6548 +(define_insn "<bit_code:bit_code_name>hi3_reg"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6549 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6550 + (bit_code:HI (match_operand:HI 1 "general_operand" "0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6551 + (match_operand:HI 2 "nonimmediate_operand" "v")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6552 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6553 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6554 + m6809_output_shift_insn (<bit_code:CODE>, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6555 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6556 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6557 + [(set_attr "length" "20")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6558 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6559 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6560 +(define_insn "<bit_code:bit_code_name>qi3_reg"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6561 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6562 + (bit_code:QI (match_operand:QI 1 "general_operand" "0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6563 + (match_operand:QI 2 "nonimmediate_operand" "v")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6564 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6565 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6566 + m6809_output_shift_insn (<bit_code:CODE>, operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6567 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6568 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6569 + [(set_attr "length" "16")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6570 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6571 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6572 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6573 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6574 +;;- Jumps and transfers
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6575 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6576 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6577 +;;; The casesi pattern is normally not defined; see 'tablejump' instead.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6578 +(define_expand "casesi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6579 + [(match_operand:HI 0 "register_operand" "") ; index to jump on
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6580 + (match_operand:HI 1 "immediate_operand" "") ; lower bound
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6581 + (match_operand:HI 2 "immediate_operand" "") ; total range
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6582 + (match_operand 3 "" "") ; table label
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6583 + (match_operand 4 "" "")] ; out of range label
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6584 + "TARGET_BYTE_INT && TARGET_CASESI"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6585 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6586 + m6809_do_casesi (operands[0], operands[1], operands[2],
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6587 + operands[3], operands[4]);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6588 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6589 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6590 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6591 +(define_insn "tablejump_short_offset"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6592 + [(set (pc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6593 + (mem:HI (plus:HI (match_operand:HI 1 "register_operand" "U")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6594 + (zero_extend:HI (match_operand:QI 0 "register_operand" "q")))))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6595 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6596 + "jmp\t[b,x]\t;tablejump_short_offset"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6597 + [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6598 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6599 +(define_insn "tablejump_long_offset"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6600 + [(set (pc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6601 + (mem:HI (plus:HI (match_operand:HI 1 "register_operand" "U")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6602 + (match_operand:HI 0 "register_operand" "d"))))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6603 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6604 + "jmp\t[d,x]\t;tablejump_long_offset"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6605 + [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6606 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6607 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6608 + ;; A tablejump operation gives the address in operand 0, with the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6609 + ;; CODE_LABEL for the table in operand 1. The 'define_expand'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6610 + ;; shows the arguments as GCC presents them. For a register
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6611 + ;; operand, the assembly code is straightforward. For a MEM,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6612 + ;; assumed to be a SYMBOL_REF, two forms are given, one normal
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6613 + ;; and one for PIC mode.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6614 + (define_expand "tablejump"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6615 + [(parallel [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6616 + (set (pc) (match_operand:HI 0 "" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6617 + (use (label_ref (match_operand 1 "" "")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6618 + (clobber (match_scratch:HI 2 ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6619 + ])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6620 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6621 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6622 + })
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6623 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6624 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6625 +(define_insn "*tablejump_reg"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6626 + [(parallel [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6627 + (set (pc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6628 + (match_operand:HI 0 "register_operand" "a"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6629 + (use (label_ref (match_operand 1 "" "")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6630 + (clobber (match_scratch:HI 2 ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6631 + ])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6632 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6633 + "jmp\t,%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6634 + [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6635 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6636 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6637 +(define_insn "*tablejump_symbol"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6638 + [(parallel [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6639 + (set (pc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6640 + (mem:HI
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6641 + (plus:HI (match_operand:HI 0 "register_operand" "a")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6642 + (label_ref (match_operand 1 "" "")))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6643 + (use (label_ref (match_dup 1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6644 + (clobber (match_scratch:HI 2 ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6645 + ])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6646 + "!flag_pic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6647 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6648 + output_asm_insn ("jmp\t[%a1,%0]", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6649 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6650 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6651 + [(set_attr "length" "4")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6652 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6653 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6654 +(define_insn "*tablejump_symbol_pic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6655 + [(parallel [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6656 + (set (pc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6657 + (mem:HI
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6658 + (plus:HI (match_operand:HI 0 "register_operand" "d")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6659 + (label_ref (match_operand 1 "" "")))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6660 + (use (label_ref (match_dup 1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6661 + (clobber (match_scratch:HI 2 "=&a"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6662 + ])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6663 + "flag_pic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6664 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6665 + output_asm_insn ("lea%2\t%a1,pcr", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6666 + output_asm_insn ("ld%0\t%0,%2", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6667 + output_asm_insn ("jmp\t%0,%2", operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6668 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6669 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6670 + [(set_attr "length" "8")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6671 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6672 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6673 +(define_insn "indirect_jump"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6674 + [(set (pc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6675 + (match_operand:HI 0 "register_operand" "a"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6676 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6677 + "jmp\t,%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6678 + [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6679 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6680 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6681 +(define_insn "jump"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6682 + [(set (pc) (label_ref (match_operand 0 "" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6683 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6684 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6685 + return output_branch_insn ( LABEL_REF, operands, get_attr_length (insn));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6686 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6687 + [(set (attr "type") (const_string "branch"))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6688 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6689 +; Output assembly for a condition branch instruction.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6690 +(define_insn "*cond_branch"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6691 + [(set (pc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6692 + (if_then_else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6693 + (match_operator 1 "comparison_operator" [(cc0) (const_int 0)])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6694 + (label_ref (match_operand 0 "" "")) (pc)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6695 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6696 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6697 + return output_branch_insn ( GET_CODE(operands[1]),
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6698 + operands, get_attr_length (insn));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6699 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6700 + [(set (attr "type") (const_string "cbranch"))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6701 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6702 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6703 +; Similar to above, but for a condition branch instruction that
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6704 +; had its operands reversed at some point.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6705 +(define_insn "*cond_branch_reverse"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6706 + [(set (pc)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6707 + (if_then_else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6708 + (match_operator 1 "comparison_operator" [(cc0) (const_int 0)])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6709 + (pc) (label_ref (match_operand 0 "" ""))))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6710 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6711 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6712 + return output_branch_insn ( reverse_condition (GET_CODE(operands[1])),
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6713 + operands, get_attr_length (insn));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6714 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6715 + [(set (attr "type") (const_string "cbranch"))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6716 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6717 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6718 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6719 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6720 +;;- Calls
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6721 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6722 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6723 +;; Generate a call instruction for a function that does not
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6724 +;; return a value. The expander is used during RTL generation.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6725 +;; The instructions below are used during matching; only one
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6726 +;; of them will be used, depending on the type of function
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6727 +;; being called. The different conditions are:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6728 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6729 +;; 1) far_functionp - is this a far function? Those need
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6730 +;; to be output as indirect calls through a far-function
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6731 +;; handler.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6732 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6733 +;; 2) noreturn_functionp - if the function does not return,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6734 +;; we can use a 'jmp' instead of a 'jsr' to call it.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6735 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6736 +;; 3) is PIC mode enabled? If so, we'll always use
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6737 +;; relative calls (lbsr or lbra).
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6738 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6739 +;; Note: not all combinations are fully supported, especially
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6740 +;; relating to PIC.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6741 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6742 +;; The 'bsr' instruction is never generated.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6743 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6744 +(define_expand "call"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6745 + [(call (match_operand:HI 0 "memory_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6746 + (match_operand:HI 1 "general_operand" ""))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6747 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6748 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6749 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6750 +(define_insn "*call_nopic_far"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6751 + [(call (match_operand:HI 0 "memory_operand" "m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6752 + (match_operand:HI 1 "general_operand" "g"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6753 + "far_functionp (operands[0])"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6754 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6755 + output_far_call_insn (operands, 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6756 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6757 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6758 + [(set_attr "length" "6")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6759 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6760 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6761 +; PIC forms come first, and should only match
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6762 +; (MEM (SYMBOL_REF)). Other MEM forms are treated as usual.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6763 +(define_insn "*call_pic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6764 + [(call (mem:HI (match_operand:HI 0 "symbolic_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6765 + (match_operand:HI 1 "general_operand" "g"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6766 + "flag_pic && !noreturn_functionp (operands[0])"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6767 + "lbsr\t%C0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6768 + [(set_attr "length" "4")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6769 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6770 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6771 +(define_insn "*call_nopic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6772 + [(call (match_operand:HI 0 "memory_operand" "m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6773 + (match_operand:HI 1 "general_operand" "g"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6774 + "!noreturn_functionp (operands[0])"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6775 + "jsr\t%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6776 + [(set_attr "length" "3")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6777 + (set (attr "cycles") (const_int JSR_EXTENDED_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6778 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6779 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6780 +(define_insn "*call_noreturn_pic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6781 + [(call (mem:HI (match_operand:HI 0 "symbolic_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6782 + (match_operand:HI 1 "general_operand" "g"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6783 + "flag_pic && noreturn_functionp (operands[0])"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6784 + "lbra\t%C0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6785 + [(set_attr "length" "4")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6786 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6787 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6788 +(define_insn "*call_noreturn_nopic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6789 + [(call (match_operand:HI 0 "memory_operand" "m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6790 + (match_operand:HI 1 "general_operand" "g"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6791 + "noreturn_functionp (operands[0])"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6792 + "jmp\t%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6793 + [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6794 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6795 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6796 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6797 +;; Same as above, but for functions that do return a value.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6798 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6799 +(define_expand "call_value"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6800 + [(set (match_operand 0 "" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6801 + (call (match_operand:HI 1 "memory_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6802 + (match_operand:HI 2 "general_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6803 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6804 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6805 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6806 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6807 +(define_insn "*call_value_far"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6808 + [(set (match_operand 0 "" "=gz")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6809 + (call (match_operand:HI 1 "memory_operand" "m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6810 + (match_operand:HI 2 "general_operand" "g")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6811 + "far_functionp (operands[1])"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6812 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6813 + output_far_call_insn (operands, 1);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6814 + return "";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6815 +}
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6816 + [(set_attr "length" "6")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6817 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6818 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6819 +(define_insn "*call_value_pic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6820 + [(set (match_operand 0 "" "=gz")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6821 + (call (mem:HI (match_operand:HI 1 "symbolic_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6822 + (match_operand:HI 2 "general_operand" "g")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6823 + "flag_pic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6824 + "lbsr\t%C1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6825 + [(set_attr "length" "4")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6826 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6827 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6828 +(define_insn "*call_value_nopic"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6829 + [(set (match_operand 0 "" "=gz")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6830 + (call (match_operand:HI 1 "memory_operand" "m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6831 + (match_operand:HI 2 "general_operand" "g")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6832 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6833 + "jsr\t%1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6834 + [(set_attr "length" "3")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6835 + (set (attr "cycles") (const_int JSR_EXTENDED_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6836 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6837 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6838 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6839 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6840 +;; How to generate an untyped call.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6841 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6842 +(define_expand "untyped_call"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6843 + [(parallel [(call (match_operand 0 "" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6844 + (const_int 0))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6845 + (match_operand 1 "" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6846 + (match_operand 2 "" "")])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6847 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6848 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6849 + int i;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6850 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6851 + emit_call_insn (GEN_CALL (operands[0], const0_rtx, NULL, const0_rtx));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6852 + for (i=0; i < XVECLEN (operands[2], 0); i++)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6853 + {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6854 + rtx set = XVECEXP (operands[2], 0, i);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6855 + emit_move_insn (SET_DEST (set), SET_SRC (set));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6856 + }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6857 + emit_insn (gen_blockage ());
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6858 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6859 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6860 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6861 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6862 +(define_expand "sibcall"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6863 + [(parallel
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6864 + [(call (match_operand:HI 0 "memory_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6865 + (match_operand:HI 1 "immediate_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6866 + (use (reg:HI HARD_PC_REGNUM))])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6867 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6868 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6869 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6870 +(define_insn "*sibcall_1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6871 + [(parallel
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6872 + [(call (match_operand:HI 0 "memory_operand" "m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6873 + (match_operand:HI 1 "immediate_operand" "i"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6874 + (use (reg:HI HARD_PC_REGNUM))])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6875 + "SIBLING_CALL_P(insn)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6876 + "jmp\t%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6877 + [(set_attr "length" "4")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6878 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6879 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6880 +(define_expand "sibcall_value"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6881 + [(parallel
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6882 + [(set (match_operand 0 "" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6883 + (call (match_operand:HI 1 "memory_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6884 + (match_operand:HI 2 "immediate_operand" "")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6885 + (use (reg:HI HARD_PC_REGNUM))])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6886 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6887 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6888 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6889 +(define_insn "*sibcall_value_1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6890 + [(parallel
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6891 + [(set (match_operand 0 "" "=gz")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6892 + (call (match_operand:HI 1 "memory_operand" "m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6893 + (match_operand:HI 2 "immediate_operand" "i")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6894 + (use (reg:HI HARD_PC_REGNUM))])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6895 + "SIBLING_CALL_P(insn)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6896 + "jmp\t%1"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6897 + [(set_attr "length" "4")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6898 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6899 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6900 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6901 +;;- Function Entry and Exit
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6902 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6903 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6904 +;; On entry to a function, the stack frame looks as follows:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6905 +;; - return address (pushed by the caller)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6906 +;; - saved registers
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6907 +;; - local variable storage
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6908 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6909 +;; If the function does not modify the stack after that, then
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6910 +;; any of these can be accessed directly as an offset from
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6911 +;; STACK_POINTER_REGNUM. Otherwise, a frame pointer is required.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6912 +;; In that case, the prologue must also initialize HARD_FRAME_POINTER_REGNUM
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6913 +;; and all references to the stack frame will use that as a base instead.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6914 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6915 +(define_expand "prologue"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6916 + [(const_int 0)]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6917 + "prologue_epilogue_required ()"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6918 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6919 + emit_prologue_insns ();
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6920 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6921 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6922 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6923 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6924 +;; The function epilogue does exactly the reverse of the prologue,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6925 +;; deallocating local variable space, restoring saved registers,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6926 +;; and returning.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6927 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6928 +;; For the 6809, the return may be 'rti' if the function was
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6929 +;; declared as an interrupt function, but is normally 'rts'.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6930 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6931 +;; Also, as an optimization, the register restore and the 'rts'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6932 +;; can be combined into a single instruction, by adding 'PC' to the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6933 +;; list of registers to be restored. This is only done if there are
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6934 +;; any saved registers, as 'rts' is more efficient by itself.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6935 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6936 +(define_expand "epilogue"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6937 + [(const_int 0)]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6938 + "prologue_epilogue_required ()"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6939 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6940 + emit_epilogue_insns (false);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6941 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6942 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6943 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6944 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6945 +(define_expand "sibcall_epilogue"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6946 + [(const_int 0)]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6947 + "prologue_epilogue_required ()"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6948 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6949 + emit_epilogue_insns (true);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6950 + DONE;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6951 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6952 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6953 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6954 +;; The RTS instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6955 +(define_insn "return_rts"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6956 + [(return)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6957 + (use (reg:HI HARD_PC_REGNUM))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6958 + "!m6809_current_function_has_type_attr_p (\"interrupt\")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6959 + && m6809_get_live_regs () == 0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6960 + "rts"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6961 + [(set_attr "length" "1")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6962 + (set (attr "cycles") (const_int RTS_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6963 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6964 +(define_insn "return_puls_pc"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6965 + [(return)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6966 + (use (reg:HI HARD_PC_REGNUM))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6967 + "!m6809_current_function_has_type_attr_p (\"interrupt\")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6968 + && m6809_get_live_regs () != 0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6969 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6970 + [(set_attr "length" "1")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6971 + (set (attr "cycles") (const_int RTS_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6972 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6973 +;; The RTI instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6974 +(define_insn "return_rti"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6975 + [(return)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6976 + (use (reg:HI HARD_PC_REGNUM))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6977 + "m6809_current_function_has_type_attr_p (\"interrupt\")"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6978 + "rti"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6979 + [(set_attr "length" "1")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6980 + (set (attr "cycles") (const_int RTI_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6981 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6982 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6983 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6984 +;;- Unspecified instructions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6985 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6986 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6987 +;; An instruction that has the effect of an unspec_volatile, but
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6988 +;; which doesn't require emitting any assembly code.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6989 +(define_insn "blockage"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6990 + [(unspec_volatile [(const_int 0)] UNSPEC_BLOCKAGE)]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6991 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6992 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6993 + [(set_attr "length" "0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6994 + (set (attr "cycles") (const_int 0))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6995 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6996 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6997 +;; Say how to push multiple registers onto the stack, using
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6998 +;; the 6809 'pshs' instruction. The operand is a regset
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	6999 +;; specifying which registers to push.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7000 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7001 +;; The operand mode is not given intentionally, so as to allow
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7002 +;; any possible integer mode for the regset.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7003 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7004 +;; See below for a peephole that can combine consecutive push
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7005 +;; instructions that qualify for merging.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7006 +(define_insn "register_push"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7007 + [(use (reg:HI HARD_S_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7008 + (unspec_volatile
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7009 + [(match_operand 0 "immediate_operand" "")] UNSPEC_PUSH_RS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7010 + (clobber (reg:HI HARD_S_REGNUM))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7011 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7012 + "pshs\t%R0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7013 + [(set_attr "length" "2")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7014 + (set (attr "cycles") (const_int PSH_PUL_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7015 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7016 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7017 +;; Say how to pop multiple registers from the stack, using
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7018 +;; the 6809 'puls' instruction. The operand is the register
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7019 +;; bitset value.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7020 +(define_insn "register_pop"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7021 + [(use (reg:HI HARD_S_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7022 + (unspec_volatile
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7023 + [(match_operand 0 "immediate_operand" "")] UNSPEC_POP_RS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7024 + (clobber (reg:HI HARD_S_REGNUM))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7025 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7026 + "puls\t%R0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7027 + [(set_attr "length" "2")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7028 + (set (attr "cycles") (const_int PSH_PUL_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7029 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7030 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7031 +(define_insn "m6809_swi"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7032 + [(unspec_volatile
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7033 + [(match_operand:QI 0 "immediate_operand" "I,n")] UNSPEC_SWI)]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7034 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7035 + "@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7036 + swi
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7037 + swi%c0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7038 + [(set_attr "length" "1,2")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7039 + (set (attr "cycles") (const_int SWI_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7040 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7041 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7042 +;; Generate the CWAI instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7043 +(define_insn "m6809_cwai"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7044 + [(unspec_volatile
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7045 + [(match_operand:QI 0 "immediate_operand" "")] UNSPEC_CWAI)]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7046 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7047 + "cwai\t%0"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7048 + [(set_attr "length" "2")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7049 + (set (attr "cycles") (const_int CWAI_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7050 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7051 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7052 +;; Generate the SYNC instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7053 +(define_insn "m6809_sync"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7054 + [(unspec_volatile [(const_int 0)] UNSPEC_SYNC)]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7055 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7056 + "sync"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7057 + [(set_attr "length" "1")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7058 + (set (attr "cycles") (const_int SYNC_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7059 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7060 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7061 +;; Generate the NOP instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7062 +(define_insn "nop"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7063 + [(const_int 0)]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7064 + ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7065 + "nop"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7066 + [(set_attr "length" "1")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7067 + (set (attr "cycles") (const_int NOP_CYCLES))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7068 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7069 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7070 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7071 +;;- Peepholes
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7072 +;;--------------------------------------------------------------------
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7073 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7074 +;;; Each peephole has an ID that is used for debugging.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7075 +;;; Each peephole condition is bracketed by calls to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7076 +;;; m6809_match_peephole2() also for debugging.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7077 +(define_constants [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7078 + (PEEP_END 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7079 + (PEEP_COND 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7080 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7081 + (PEEP_STACK_STORE_INC 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7082 + (PEEP_STACK_CLEAR_INC 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7083 + (PEEP_LSRB_ADCB 2)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7084 + (PEEP_ABX 3)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7085 + (PEEP_ABX2 4)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7086 + (PEEP_INDEXED_INC 5)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7087 + (PEEP_MEM_DEC 6)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7088 + (PEEP_MEM_INC 7)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7089 + (PEEP_MEM_DEC_CMP 8)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7090 + (PEEP_PUSH2 9)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7091 + (PEEP_STORE_IMPLIES_CC 10)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7092 + (PEEP_DEC_IMPLIES_CC 11)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7093 + (PEEP_LEAB 12)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7094 + (PEEP_LDX_INDIRECT 13)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7095 + (PEEP_POP_JUNK 14)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7096 +])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7097 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7098 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7099 +;;; Optimize 'leas -1,s' followed by 'stb ,s'. This can happen if the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7100 +;;; function prologue needs to allocate stack space and 'b' is placed
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7101 +;;; into that local right away. Combine the stack allocation with the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7102 +;;; store using preincrement mode.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7103 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7104 + [(set (reg:HI HARD_S_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7105 + (plus:HI (reg:HI HARD_S_REGNUM) (const_int -1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7106 + (set (mem:QI (reg:HI HARD_S_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7107 + (match_operand:QI 0 "register_operand" ""))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7108 + "m6809_match_peephole2 (PEEP_STACK_STORE_INC, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7109 + [(set (mem:QI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7110 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7111 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7112 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7113 +;;; Same as above, but for a 'clr ,s' that follows the prologue.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7114 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7115 + [(set (reg:HI HARD_S_REGNUM) (plus:HI (reg:HI HARD_S_REGNUM) (const_int -1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7116 + (set (mem:QI (reg:HI HARD_S_REGNUM)) (const_int 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7117 + "m6809_match_peephole2 (PEEP_STACK_CLEAR_INC, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7118 + [(set (mem:QI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (const_int 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7119 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7120 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7121 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7122 +;;; Merge two consecutive push instructions into a single register_push.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7123 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7124 + [(set (match_operand 0 "push_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7125 + (match_operand 1 "register_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7126 + (set (match_operand 2 "push_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7127 + (match_operand 3 "register_operand" ""))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7128 + "m6809_match_peephole2 (PEEP_PUSH2, PEEP_COND)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7129 + && reload_completed
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7130 + && GET_MODE (operands[1]) == GET_MODE (operands[3])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7131 + && m6809_can_merge_pushpop_p (UNSPEC_PUSH_RS, 1 << REGNO (operands[1]), 1 << REGNO (operands[3]))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7132 + && m6809_match_peephole2 (PEEP_PUSH2, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7133 + [(parallel [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7134 + (use (reg:HI HARD_S_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7135 + (unspec_volatile [(match_dup 4)] UNSPEC_PUSH_RS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7136 + (clobber (reg:HI HARD_S_REGNUM))])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7137 + (use (match_dup 1))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7138 + (use (match_dup 3))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7139 +{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7140 + operands[4] = gen_rtx_CONST_INT (QImode,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7141 + (1 << REGNO (operands[1])) \| (1 << REGNO (operands[3])));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7142 +})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7143 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7144 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7145 +;;; Convert 'stX ,--s' into a push instruction. Use the regset
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7146 +;;; notation, so that it may be combined with an adjacent regset.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7147 +;;; TBD - this doesn't compile some code cleanly.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7148 +;(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7149 +; [(set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7150 +; (reg:HI HARD_X_REGNUM))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7151 +; "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7152 +; [(parallel [
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7153 +; (use (reg:HI HARD_S_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7154 +; (unspec_volatile [(match_dup 0)] UNSPEC_PUSH_RS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7155 +; (clobber (reg:HI HARD_S_REGNUM))])]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7156 +;{
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7157 +; operands[0] = gen_rtx_CONST_INT (HImode, X_REGBIT);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7158 +;})
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7159 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7160 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7161 +;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7162 +;;; q = (q+1)/2 can be optimized as "lsrb; adcb". This also
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7163 +;;; won't overflow when q=0xFF.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7164 +;;; TODO : this form isn't accounting for promotion when
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7165 +;;; using 16-bit ints.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7166 +;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7167 +(define_peephole
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7168 + [(set (reg:QI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7169 + (lshiftrt:QI (plus:HI (match_dup 0) (const_int 1)) (const_int 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7170 + "m6809_match_peephole2 (PEEP_LSRB_ADCB, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7171 + "lsrb\;adcb\t#0; peephole"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7172 + [(set_attr "length" "2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7173 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7174 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7175 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7176 +;; Optimize the case of following a register store with a test
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7177 +;; of reg or mem just moved.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7178 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7179 +(define_peephole
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7180 + [(set (match_operand:HI 0 "memory_operand" "=m")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7181 + (match_operand:HI 1 "register_operand" "r"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7182 + (set (cc0) (match_operand:HI 2 "general_operand" "g"))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7183 + "m6809_match_peephole2 (PEEP_STORE_IMPLIES_CC, PEEP_COND)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7184 + && (operands[2] == operands[0] \|\| operands[2] == operands[1])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7185 + && m6809_match_peephole2 (PEEP_STORE_IMPLIES_CC, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7186 + "st%1\t%0\t;movhi: R:%1 -> %0 w/ implied test of %2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7187 + [(set_attr "length" "4")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7188 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7189 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7190 +;; Optimize a pair of SET instructions in which the second insn
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7191 +;; is the reverse of the first one. I.e.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7192 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7193 +;; A = B
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7194 +;; ----> A = B
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7195 +;; B = A
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7196 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7197 +;; The second insn is redundant. Define two patterns, one for QI, one for HI.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7198 +;; But don't do this if either is a VOLATILE MEM.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7199 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7200 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7201 + (match_operand:HI 1 "nonimmediate_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7202 + (set (match_dup 1) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7203 + "!MEM_P (operands[0]) \|\| !MEM_P (operands[1]) \|\| (!MEM_VOLATILE_P (operands[0]) && !MEM_VOLATILE_P (operands[1]))"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7204 + [(set (match_dup 0) (match_dup 1))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7205 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7206 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7207 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7208 + [(set (match_operand:QI 0 "nonimmediate_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7209 + (match_operand:QI 1 "nonimmediate_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7210 + (set (match_dup 1) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7211 + "!MEM_P (operands[0]) \|\| !MEM_P (operands[1]) \|\| (!MEM_VOLATILE_P (operands[0]) && !MEM_VOLATILE_P (operands[1]))"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7212 + [(set (match_dup 0) (match_dup 1))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7213 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7214 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7215 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7216 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7217 +;; Optimize the sum of an 8-bit and 16-bit using the 'abx' instruction
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7218 +;; if B and X can be used. Two patterns are provided to catch both
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7219 +;; X=X+D and X=D+X.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7220 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7221 +(define_peephole
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7222 + [(set (reg:HI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7223 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7224 + (set (reg:HI HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7225 + (plus:HI (reg:HI HARD_D_REGNUM) (reg:HI HARD_X_REGNUM)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7226 + "m6809_match_peephole2 (PEEP_ABX, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7227 + "abx"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7228 + [(set_attr "length" "1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7229 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7230 +(define_peephole
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7231 + [(set (reg:HI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7232 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7233 + (set (reg:HI HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7234 + (plus:HI (reg:HI HARD_X_REGNUM) (reg:HI HARD_D_REGNUM)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7235 + "m6809_match_peephole2 (PEEP_ABX, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7236 + "abx"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7237 + [(set_attr "length" "1")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7238 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7239 +;;; Likewise, handle when B is scaled by 2 prior to the add.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7240 +;;; Instead of shifting B in 4 cycles, just do the ABX a second
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7241 +;;; time, in only 3 cycles.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7242 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7243 +(define_peephole
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7244 + [(set (reg:HI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7245 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7246 + (set (reg:HI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7247 + (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7248 + (set (reg:HI HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7249 + (plus:HI (reg:HI HARD_D_REGNUM) (reg:HI HARD_X_REGNUM)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7250 + "m6809_match_peephole2 (PEEP_ABX2, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7251 + "abx\;abx"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7252 + [(set_attr "length" "2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7253 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7254 +(define_peephole
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7255 + [(set (reg:HI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7256 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7257 + (set (reg:HI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7258 + (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7259 + (set (reg:HI HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7260 + (plus:HI (reg:HI HARD_X_REGNUM) (reg:HI HARD_D_REGNUM)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7261 + "m6809_match_peephole2 (PEEP_ABX2, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7262 + "abx\;abx"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7263 + [(set_attr "length" "2")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7264 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7265 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7266 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7267 +;; Work around a compiler bug that generates bad code when copying
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7268 +;; between 32-bit memory addresses after a libcall. The problem seen is
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7269 +;; that the source is MEM (REG X), but X is used as the reload register.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7270 +;; The second half of the copy therefore fails.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7271 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7272 +;; The solution is to switch the reload register to D, since that is guaranteed
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7273 +;; not to be in use right after a libcall.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7274 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7275 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7276 + [(set (reg:HI HARD_X_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7277 + (set (match_operand:HI 0 "nonimmediate_operand" "") (reg:HI HARD_X_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7278 + (set (reg:HI HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7279 + (mem:HI (plus:HI (reg:HI HARD_X_REGNUM) (const_int 2))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7280 + (set (match_operand:HI 1 "nonimmediate_operand" "") (reg:HI HARD_X_REGNUM))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7281 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7282 + [(set (reg:HI HARD_D_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7283 + (set (match_dup 0) (reg:HI HARD_D_REGNUM))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7284 + (set (reg:HI HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7285 + (mem:HI (plus:HI (reg:HI HARD_X_REGNUM) (const_int 2))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7286 + (set (match_dup 1) (reg:HI HARD_X_REGNUM))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7287 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7288 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7289 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7290 +;; Turn "and then test" into a "bit test" operation.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7291 +;; Provide variants for immediate and memory sources
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7292 +;; This is the most used peephople.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7293 +; (define_peephole
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7294 +; [(set (match_operand:QI 0 "register_operand" "=q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7295 +; (and:QI (match_operand:QI 1 "register_operand" "0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7296 +; (match_operand:QI 2 "immediate_operand" "i")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7297 +; (set (cc0) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7298 +; ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7299 +; "bit%0\t%2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7300 +; [(set_attr "length" "3")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7301 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7302 +; (define_peephole
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7303 +; [(set (match_operand:QI 0 "register_operand" "=q")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7304 +; (and:QI (match_operand:QI 1 "register_operand" "0")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7305 +; (match_operand:QI 2 "memory_operand" "m")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7306 +; (set (cc0) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7307 +; ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7308 +; "bit%0\t%2"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7309 +; [(set_attr "length" "4")])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7310 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7311 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7312 +;; Turn a "decrement, then test" sequence into just a "decrement".
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7313 +;; The test can be omitted, since it is implicitly done.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7314 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7315 + [(set (match_operand:QI 0 "nonimmediate_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7316 + (plus:QI (match_operand:QI 1 "whole_general_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7317 + (match_operand:QI 2 "immediate_operand" "")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7318 + (set (cc0) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7319 + "m6809_match_peephole2 (PEEP_DEC_IMPLIES_CC, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7320 + [(set (match_dup 0) (plus:QI (match_dup 1) (match_dup 2)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7321 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7322 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7323 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7324 +;; Merge an indexed register increment with a previous usage.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7325 +;; This is usually done automatically, but not always
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7326 +;; The 'use' should be optional; in all cases where this has been
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7327 +;; seen, it is required though.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7328 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7329 + [(set (match_operand:QI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7330 + (mem:QI (match_operand:HI 1 "index_register_operand" "")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7331 + (use (match_dup 0))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7332 + (set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7333 + "m6809_match_peephole2 (PEEP_INDEXED_INC, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7334 + [(set (match_dup 0) (mem:QI (post_inc:HI (match_dup 1))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7335 + (use (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7336 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7337 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7338 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7339 +;;; Merge "ldX MEM; ldX ,X" into a single instruction using
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7340 +;;; the indirect mode.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7341 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7342 + [(set (reg:HI HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7343 + (mem:HI (match_operand:HI 0 "general_operand" "")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7344 + (set (reg:HI HARD_X_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7345 + "reload_completed && m6809_match_peephole2 (PEEP_LDX_INDIRECT, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7346 + [(set (reg:HI HARD_X_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7347 + (mem:HI (mem:HI (match_dup 0))))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7348 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7349 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7350 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7351 +;;; Reorder a store followed by a unary operation on that memory
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7352 +;;; so that the unary is performed and then the store. Consider
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7353 +;;; a binary shift operation, which will be decomposed into
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7354 +;;; identical single shifts, also.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7355 +;;; TODO - recognize more than just 'ashift' here.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7356 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7357 + [(set (match_operand:QI 0 "memory_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7358 + (match_operand:QI 1 "register_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7359 + (set (match_dup 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7360 + (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7361 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7362 + [(set (match_dup 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7363 + (ashift:QI (match_dup 1) (match_operand:QI 2 "immediate_operand")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7364 + (set (match_dup 0) (match_dup 1))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7365 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7366 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7367 +;;; Likewise, reorder a unary MEM followed by a load, so that the load
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7368 +;;; is done first, then use the REG instead of the MEM.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7369 +;;;(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7370 +;;; [(set (match_dup 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7371 +;;; (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7372 +;;; (set (match_operand:QI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7373 +;;; (match_operand:QI 1 "memory_operand" ""))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7374 +;;; "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7375 +;;; [(set (match_dup 0) (match_dup 1))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7376 +;;; (set (match_dup 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7377 +;;; (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7378 +;;; "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7379 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7380 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7381 +;;; Replace sex; leaX d,Y with leaX b,Y.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7382 +;;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7383 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7384 + [(set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7385 + (set (match_operand:HI 0 "index_register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7386 + (plus:HI (match_operand:HI 1 "index_register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7387 + (reg:HI HARD_D_REGNUM)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7388 + "reload_completed && m6809_match_peephole2 (PEEP_LEAB, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7389 + [(set (match_dup 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7390 + (plus:HI (match_dup 1) (reg:QI HARD_D_REGNUM)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7391 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7392 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7393 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7394 + [(set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7395 + (set (match_operand:HI 0 "index_register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7396 + (plus:HI (reg:HI HARD_D_REGNUM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7397 + (match_operand:HI 1 "index_register_operand" "")))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7398 + "reload_completed && m6809_match_peephole2 (PEEP_LEAB, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7399 + [(set (match_dup 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7400 + (plus:HI (match_dup 1) (reg:QI HARD_D_REGNUM)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7401 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7402 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7403 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7404 +;;; Replace ldb; decb; stb; tstb with dec(mem). If the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7405 +;;; register is not needed, then the load will get deleted
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7406 +;;; automatically, but it may be needed for comparisons.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7407 +;;; Same for incb/inc.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7408 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7409 + [(set (match_operand:QI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7410 + (match_operand:QI 1 "nonimmediate_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7411 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int -1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7412 + (set (match_dup 1) (match_dup 0))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7413 + (set (cc0) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7414 + "m6809_match_peephole2 (PEEP_MEM_DEC_CMP, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7415 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int -1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7416 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7417 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7418 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7419 +;;; Replace ldb; decb; stb with dec(mem); ldb. If the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7420 +;;; register is not needed, then the load will get deleted
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7421 +;;; automatically, but it may be needed for comparisons.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7422 +;;; Same for incb/inc.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7423 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7424 + [(set (match_operand:QI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7425 + (match_operand:QI 1 "nonimmediate_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7426 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int -1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7427 + (set (match_dup 1) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7428 + "m6809_match_peephole2 (PEEP_MEM_DEC, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7429 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int -1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7430 + (set (match_dup 0) (match_dup 1))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7431 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7432 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7433 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7434 + [(set (match_operand:QI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7435 + (match_operand:QI 1 "nonimmediate_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7436 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int 1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7437 + (set (match_dup 1) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7438 + "m6809_match_peephole2 (PEEP_MEM_INC, PEEP_END)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7439 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int 1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7440 + (set (match_dup 0) (match_dup 1))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7441 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7442 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7443 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7444 +;;; Replace "andb #N; cmpb #N; bhi" with "andb #N", if it can be proven
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7445 +;;; that the branch can never occur because of the limited range of B.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7446 +;;; N must be a power of two for this to make sense. This helps with
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7447 +;;; the default cases of switch statements on a value (x & N).
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7448 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7449 + [(set (match_operand:QI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7450 + (and:QI (match_dup 0) (match_operand:QI 1 "immediate_operand" "")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7451 + (set (cc0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7452 + (compare (match_dup 0) (match_dup 1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7453 + (set (pc) (if_then_else (gtu (cc0) (const_int 0)) (match_operand 2 "" "") (match_operand 3 "" "")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7454 + ]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7455 + "reload_completed && power_of_two_p (INTVAL (operands[1]) + 1)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7456 + [(set (match_dup 0) (and:QI (match_dup 0) (match_dup 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7457 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7458 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7459 +;;; Replace ldd <mem>; addd #1; std <mem> with 16-bit increment
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7460 +;;; of the mem, but only if D is dead. Same for 16-bit decrement.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7461 +;;; <mem> must be offsettable for the instruction to match.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7462 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7463 + [(set (match_operand:HI 0 "register_operand" "") (match_operand:HI 1 "memory_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7464 + (set (match_dup 0) (plus:HI (match_dup 0) (const_int 1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7465 + (set (match_dup 1) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7466 + "reload_completed
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7467 + && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7468 + && peep2_reg_dead_p (3, operands[0])"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7469 + [(set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7470 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7471 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7472 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7473 + [(set (match_operand:HI 0 "register_operand" "") (match_operand:HI 1 "memory_operand" ""))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7474 + (set (match_dup 0) (plus:HI (match_dup 0) (const_int -1)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7475 + (set (match_dup 1) (match_dup 0))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7476 + "reload_completed
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7477 + && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7478 + && peep2_reg_dead_p (3, operands[0])"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7479 + [(set (match_dup 1) (plus:HI (match_dup 1) (const_int -1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7480 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7481 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7482 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7483 +;;; Replace a load or store using an indexed register, followed by an increment of that
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7484 +;;; register, with the combined form using autoincrement.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7485 +(define_peephole2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7486 + [(set (match_operand:QI 0 "register_operand" "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7487 + (mem:QI (match_operand:HI 1 "index_register_operand" "")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7488 + (set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7489 + "reload_completed"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7490 + [(set (match_dup 0) (mem:QI (post_inc (match_dup 1))))]
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7491 + "")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7492 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7493 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7494 +;;- mode:emacs-lisp
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7495 +;;- comment-start: ";;- "
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7496 +;;- eval: (set-syntax-table (copy-sequence (syntax-table)))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7497 +;;- eval: (modify-syntax-entry ?[ "(]")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7498 +;;- eval: (modify-syntax-entry ?] ")[")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7499 +;;- eval: (modify-syntax-entry ?{ "(}")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7500 +;;- eval: (modify-syntax-entry ?} "){")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7501 +;-; vim: set ts=2:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7502 +;-; vim: set expandtab:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7503 +;-; vim: set filetype=lisp:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7504 +;;- End:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7505 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.opt gcc-4.6.4/gcc/config/m6809/m6809.opt
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7506 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.opt 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7507 +++ gcc-4.6.4/gcc/config/m6809/m6809.opt 2017-11-28 21:12:11.156911596 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7508 @@ -0,0 +1,98 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7509 +; Options for the M6809 port of the compiler
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7510 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7511 +; Copyright (C) 2005 Free Software Foundation, Inc.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7512 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7513 +; This file is part of GCC.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7514 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7515 +; GCC is free software; you can redistribute it and/or modify it under
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7516 +; the terms of the GNU General Public License as published by the Free
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7517 +; Software Foundation; either version 2, or (at your option) any later
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7518 +; version.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7519 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7520 +; GCC is distributed in the hope that it will be useful, but WITHOUT
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7521 +; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7522 +; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7523 +; License for more details.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7524 +;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7525 +; You should have received a copy of the GNU General Public License
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7526 +; along with GCC; see the file COPYING. If not, write to the Free
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7527 +; Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7528 +; 02110-1301, USA.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7529 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7530 +margcount
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7531 +Target Mask(ARGCOUNT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7532 +Push argument count
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7533 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7534 +mint8
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7535 +Target RejectNegative Mask(BYTE_INT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7536 +Use 8-bit integers
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7537 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7538 +mint16
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7539 +Target RejectNegative
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7540 +Use 16-bit integers InverseMask(BYTE_INT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7541 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7542 +mreg-args
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7543 +Target Mask(REG_ARGS)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7544 +Use registers for function arguments
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7545 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7546 +mshort_size
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7547 +Target RejectNegative Mask(SMALL_SIZE_T)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7548 +Use 8-bit size_t
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7549 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7550 +mlong_size
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7551 +Target RejectNegative InverseMask(SMALL_SIZE_T)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7552 +Use 16-bit size_t
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7553 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7554 +mdirect
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7555 +Target Mask(DIRECT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7556 +Enable direct addressing
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7557 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7558 +mwpc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7559 +Target RejectNegative Mask(WPC)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7560 +Enable WPC platform extensions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7561 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7562 +mexperiment
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7563 +Target RejectNegative Mask(EXPERIMENT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7564 +Enable current experimental feature
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7565 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7566 +m6309
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7567 +Target RejectNegative Mask(6309)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7568 +Enable Hitachi 6309 extensions
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7569 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7570 +mcasesi
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7571 +Target RejectNegative Mask(CASESI)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7572 +Enable the casesi pattern
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7573 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7574 +mfar-code-page=
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7575 +Target RejectNegative Joined Var(far_code_page_option)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7576 +Sets the far code page value for this compilation unit
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7577 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7578 +mcode-section=
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7579 +Target RejectNegative Joined Var(code_section_ptr)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7580 +Sets the name of the section for code
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7581 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7582 +mdata-section=
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7583 +Target RejectNegative Joined Var(data_section_ptr)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7584 +Sets the name of the section for initialized data
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7585 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7586 +mbss-section=
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7587 +Target RejectNegative Joined Var(bss_section_ptr)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7588 +Sets the name of the section for uninitialized data
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7589 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7590 +mabi_version=
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7591 +Target RejectNegative Joined Var(m6809_abi_version_ptr)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7592 +Sets the calling convention
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7593 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7594 +msoft-reg-count=
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7595 +Target RejectNegative Joined Var(m6809_soft_reg_count)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7596 +Sets the number of soft registers that can be used
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7597 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7598 +mdret
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7599 +Target RejectNegative Mask(DRET)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7600 +Put function call results in D, not X
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7601 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7602 +mfar-stack-param
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7603 +Target Mask(FAR_STACK_PARAM)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7604 +Enable stack parameters to a farcall
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7605 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7606 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7607 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809-protos.h gcc-4.6.4/gcc/config/m6809/m6809-protos.h
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7608 --- gcc-4.6.4-clean/gcc/config/m6809/m6809-protos.h 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7609 +++ gcc-4.6.4/gcc/config/m6809/m6809-protos.h 2017-11-28 21:12:11.156911596 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7610 @@ -0,0 +1,94 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7611 +/* GCC for 6809 : machine-specific function prototypes
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7612 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7613 +This file is part of GCC.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7614 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7615 +GCC is free software; you can redistribute it and/or modify
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7616 +it under the terms of the GNU General Public License as published by
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7617 +the Free Software Foundation; either version 3, or (at your option)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7618 +any later version.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7619 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7620 +GCC is distributed in the hope that it will be useful,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7621 +but WITHOUT ANY WARRANTY; without even the implied warranty of
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7622 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7623 +GNU General Public License for more details.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7624 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7625 +You should have received a copy of the GNU General Public License
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7626 +along with GCC; see the file COPYING3. If not see
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7627 +<http://www.gnu.org/licenses/>. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7628 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7629 +#ifndef __M6809_PROTOS_H__
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7630 +#define __M6809_PROTOS_H__
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7631 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7632 +void print_options (FILE *file);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7633 +void m6809_cpu_cpp_builtins (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7634 +void m6809_override_options (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7635 +void m6809_init_builtins (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7636 +unsigned int m6809_get_live_regs (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7637 +const char * m6809_get_regs_printable (unsigned int regs);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7638 +unsigned int m6809_get_regs_size (unsigned int regs);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7639 +int m6809_function_has_type_attr_p (tree decl, const char *);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7640 +int m6809_current_function_has_type_attr_p (const char *);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7641 +int prologue_epilogue_required (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7642 +int noreturn_functionp (rtx x);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7643 +void output_function_prologue (FILE *file, int size);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7644 +void output_function_epilogue (FILE *file, int size);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7645 +int check_float_value (enum machine_mode mode, double *d, int overflow);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7646 +void m6809_asm_named_section (const char *name, unsigned int flags, tree decl);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7647 +void m6809_asm_file_start (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7648 +void m6809_output_ascii (FILE fp, const char str, unsigned long size);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7649 +void m6809_declare_function_name (FILE asm_out_file, const char name, tree decl);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7650 +void m6809_reorg (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7651 +int m6809_current_function_is_void (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7652 +int m6809_can_merge_pushpop_p (int op, int regs1, int regs2);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7653 +int m6809_function_value_regno_p (unsigned int regno);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7654 +void emit_prologue_insns (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7655 +void emit_epilogue_insns (bool);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7656 +void m6809_conditional_register_usage (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7657 +void m6809_output_quoted_string (FILE asm_file, const char string);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7658 +int m6809_match_peephole2 (unsigned int peephole_id, unsigned int stage);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7659 +int m6809_hard_regno_mode_ok (unsigned int regno, enum machine_mode mode);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7660 +int power_of_two_p (unsigned int n);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7661 +void m6809_do_casesi (rtx index, rtx lower_bound, rtx range, rtx table_label, rtx default_label);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7662 +void m6809_output_addsi3 (int rtx_code, rtx *operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7663 +rtx m6809_function_arg_on_stack (CUMULATIVE_ARGS *cump);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7664 +void expand_constant_shift (int code, rtx dst, rtx src, rtx count);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7665 +int m6809_single_operand_operator (rtx exp);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7666 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7667 +#ifdef TREE_CODE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7668 +int m6809_init_cumulative_args (CUMULATIVE_ARGS cum, tree fntype, rtx libname);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7669 +#endif /* TREE_CODE */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7670 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7671 +#ifdef RTX_CODE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7672 +void print_direct_prefix (FILE *file, rtx addr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7673 +void print_operand (FILE *file, rtx x, int code);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7674 +void print_operand_address (FILE *file, rtx addr);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7675 +void notice_update_cc (rtx exp, rtx insn);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7676 +enum reg_class m6809_preferred_reload_class (rtx x, enum reg_class regclass);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7677 +rtx gen_rtx_const_high (rtx r);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7678 +rtx gen_rtx_const_low (rtx r);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7679 +rtx gen_rtx_register_pushpop (int pop_flag, int regs);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7680 +void emit_libcall_insns (enum machine_mode mode, const char name, rtx operands, int count);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7681 +const char * output_branch_insn (enum rtx_code code, rtx *operands, int length);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7682 +void output_far_call_insn (rtx *operands, int has_return);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7683 +void m6809_initialize_trampoline (rtx tramp, tree fndecl, rtx cxt);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7684 +rtx m6809_expand_builtin (tree exp, rtx target, rtx subtarget, enum machine_mode mode, int ignore);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7685 +const char * far_functionp (rtx x);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7686 +rtx m6809_function_value (const tree valtype, const tree func);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7687 +void m6809_output_shift_insn (int rtx_code, rtx *operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7688 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7689 +const char * m6809_get_decl_bank (tree decl);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7690 +void output_branch_insn1 (const char opcode, rtx operands, int long_p);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7691 +rtx m6809_builtin_operand (tree arglist, enum machine_mode mode, int opnum);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7692 +const char * far_function_type_p (tree type);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7693 +void m6809_asm_trampoline_template(FILE *f);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7694 +bool m6809_frame_pointer_required (void);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7695 +int m6809_can_eliminate (int from, int to);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7696 +int m6809_initial_elimination_offset (int from, int to);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7697 +void m6809_emit_move_insn (rtx dst, rtx src);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7698 +void m6809_split_shift (enum rtx_code code, rtx *operands);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7699 +bool m6809_function_ok_for_sibcall (tree decl, tree exp ATTRIBUTE_UNUSED);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7700 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7701 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7702 +#endif /* RTX_CODE */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7703 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7704 +#endif /* __M6809_PROTOS_H__ */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7705 diff -urN gcc-4.6.4-clean/gcc/config/m6809/predicates.md gcc-4.6.4/gcc/config/m6809/predicates.md
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7706 --- gcc-4.6.4-clean/gcc/config/m6809/predicates.md 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7707 +++ gcc-4.6.4/gcc/config/m6809/predicates.md 2017-11-28 21:12:11.156911596 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7708 @@ -0,0 +1,78 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7709 +;; Predicate definitions for Motorola 6809
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7710 +;; Copyright (C) 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7711 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7712 +;; This file is part of GCC.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7713 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7714 +;; GCC is free software; you can redistribute it and/or modify
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7715 +;; it under the terms of the GNU General Public License as published by
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7716 +;; the Free Software Foundation; either version 3, or (at your option)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7717 +;; any later version.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7718 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7719 +;; GCC is distributed in the hope that it will be useful,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7720 +;; but WITHOUT ANY WARRANTY; without even the implied warranty of
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7721 +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7722 +;; GNU General Public License for more details.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7723 +;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7724 +;; You should have received a copy of the GNU General Public License
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7725 +;; along with GCC; see the file COPYING3. If not see
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7726 +;; <http://www.gnu.org/licenses/>.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7727 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7728 +;; whole_register_operand is like register_operand, but it
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7729 +;; does not allow SUBREGs.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7730 +(define_predicate "whole_register_operand"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7731 + (and (match_code "reg")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7732 + (match_operand 0 "register_operand")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7733 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7734 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7735 +;; A predicate that matches any index register. This can be used in nameless
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7736 +;; patterns and peepholes which need a 16-bit reg, but not D.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7737 +(define_predicate "index_register_operand"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7738 + (and (match_code "reg")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7739 + (match_test "REGNO (op) == HARD_X_REGNUM \|\| REGNO (op) == HARD_Y_REGNUM \|\| REGNO (op) == HARD_U_REGNUM")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7740 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7741 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7742 +;; match only X
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7743 +(define_predicate "register_operand_x"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7744 + (and (match_code "reg")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7745 + (match_test "REGNO (op) == HARD_X_REGNUM")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7746 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7747 +;; match only D
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7748 +(define_predicate "register_operand_d"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7749 + (and (match_code "reg")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7750 + (match_test "REGNO (op) == HARD_D_REGNUM")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7751 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7752 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7753 +;; Likwise, a replacement for general_operand which excludes
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7754 +;; SUBREGs.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7755 +(define_predicate "whole_general_operand"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7756 + (and (match_code "const_int,const_double,const,symbol_ref,label_ref,reg,mem")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7757 + (match_operand 0 "general_operand")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7758 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7759 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7760 +(define_predicate "add_general_operand"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7761 + (and (match_code "const_int,const_double,const,symbol_ref,label_ref,reg,mem")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7762 + (match_operand 0 "general_operand")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7763 + (match_test "REGNO (op) != SOFT_AP_REGNUM")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7764 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7765 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7766 +(define_predicate "shift_count_operand"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7767 + (and (match_code "const_int")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7768 + (and (match_operand 0 "const_int_operand")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7769 + (match_test "INTVAL (op) == 1 \|\| INTVAL (op) == 8"))))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7770 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7771 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7772 +;; A predicate that matches any bitwise logical operator. This
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7773 +;; allows for a single RTL pattern to be used for multiple operations.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7774 +(define_predicate "logical_bit_operator"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7775 + (ior (match_code "and") (match_code "ior") (match_code "xor")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7776 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7777 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7778 +;; A predicate that matches any shift or rotate operator. This
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7779 +;; allows for a single RTL pattern to be used for multiple operations.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7780 +(define_predicate "shift_rotate_operator"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7781 + (ior (match_code "ashift") (match_code "ashiftrt") (match_code "lshiftrt")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7782 + (match_code "rotate") (match_code "rotatert")))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7783 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7784 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7785 +(define_predicate "symbolic_operand" (match_code "symbol_ref"))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7786 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7787 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-coco gcc-4.6.4/gcc/config/m6809/t-coco
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7788 --- gcc-4.6.4-clean/gcc/config/m6809/t-coco 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7789 +++ gcc-4.6.4/gcc/config/m6809/t-coco 2017-11-29 17:11:09.221248469 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7790 @@ -0,0 +1,6 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7791 +# For a few minor differences in code generation on the CoCo...
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7792 +T_CFLAGS = -DTARGET_COCO
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7793 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7794 +# For doing the startup differently on the CoCo...
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7795 +CRT0STUFF_T_CFLAGS += -DTARGET_COCO
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7796 +# vim: set filetype=make:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7797 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-m6809 gcc-4.6.4/gcc/config/m6809/t-m6809
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7798 --- gcc-4.6.4-clean/gcc/config/m6809/t-m6809 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7799 +++ gcc-4.6.4/gcc/config/m6809/t-m6809 2017-11-28 21:12:11.156911596 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7800 @@ -0,0 +1,64 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7801 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7802 +# ranlib doesn't exist, so define it to 'true' to make it a no-op
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7803 +RANLIB_FOR_TARGET = true
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7804 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7805 +# Stubs for libgcc defined by m6809 are here
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7806 +LIB1ASMSRC = m6809/libgcc1.s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7807 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7808 +# Here are the functions that are implemented within libgcc1.s
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7809 +LIB1ASMFUNCS = _mulhi3 _divhi3 _modhi3 _udivhi3 _umodhi3 \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7810 + _euclid _seuclid _clzsi2 _clzdi2 _ctzsi2 _ctzdi2 _softregs \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7811 + _ashlhi3 _ashrhi3 _lshrhi3
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7812 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7813 +# Flags to use when building libgcc. IN_GCC does not seem necessary,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7814 +# although the compile breaks without it. -DDF=SF is required to set
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7815 +# the size of "double" to the same as the size of a "float".
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7816 +TARGET_LIBGCC2_CFLAGS =-DIN_GCC -Dinhibit_libc -DDF=SF -DLIBGCC2_HAS_SF_MODE=0 -DLIBGCC2_HAS_DF_MODE=0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7817 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7818 +LIB2ADDEH =
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7819 +LIB2ADDEHSTATIC =
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7820 +LIB2ADDEHSHARED =
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7821 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7822 +LIBGCC2_DEBUG_CFLAGS =
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7823 +LIBGCC2_CFLAGS = -Os $(LIBGCC2_INCLUDES) $(TARGET_LIBGCC2_CFLAGS) $(LIBGCC2_DEBUG_CFLAGS) $(GTHREAD_FLAGS) -DIN_LIBGCC2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7824 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7825 +# Multilib information
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7826 +# This creates multiple versions of libgcc.a for each set of incompatible
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7827 +# -mxxx options.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7828 +MULTILIB_OPTIONS = fpic mdret
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7829 +MULTILIB_DIRNAMES =
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7830 +MULTILIB_MATCHES =
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7831 +MULTILIB_EXCEPTIONS =
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7832 +EXTRA_MULTILIB_PARTS = crt0.o
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7833 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7834 +LIBGCC = stmp-multilib
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7835 +INSTALL_LIBGCC = install-multilib
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7836 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7837 +# We want fine grained libraries, so use the new code to build the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7838 +# floating point emulation libraries.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7839 +FPBIT = fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7840 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7841 +fp-bit.c: $(srcdir)/config/fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7842 + echo '#define FLOAT' > fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7843 + echo '#define FLOAT_ONLY' >> fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7844 + echo '#define CMPtype HItype' >> fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7845 + echo '#define SMALL_MACHINE' >> fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7846 + echo '#ifdef __LITTLE_ENDIAN__' >> fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7847 + echo '#define FLOAT_BIT_ORDER_MISMATCH' >>fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7848 + echo '#endif' >> fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7849 + echo '#define DI SI' >> fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7850 + cat $(srcdir)/config/fp-bit.c >> fp-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7851 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7852 +# crt0.o is built from the following source file
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7853 +CRT0_S = $(srcdir)/config/m6809/crt0.S
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7854 +MCRT0_S = $(srcdir)/config/m6809/crt0.S
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7855 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7856 +# Flags to use when building crt0.o
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7857 +CRT0STUFF_T_CFLAGS += -fno-builtin -nostartfiles -nostdlib
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7858 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7859 +# Assemble startup files.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7860 +$(T)crt0.o: $(CRT0_S) $(GCC_PASSES)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7861 + $(GCC_FOR_TARGET) $(CRT0STUFF_T_CFLAGS) $(MULTILIB_CFLAGS) -c -o $(T)crt0.o -x assembler-with-cpp $(CRT0_S)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7862 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7863 +$(T)mcrt0.o: $(MCRT0_S) $(GCC_PASSES)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7864 + $(GCC_FOR_TARGET) $(CRT0STUFF_T_CFLAGS) $(MULTILIB_CFLAGS) -c -o $(T)mcrt0.o -x assembler-with-cpp $(MCRT0_S)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7865 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-proto gcc-4.6.4/gcc/config/m6809/t-proto
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7866 --- gcc-4.6.4-clean/gcc/config/m6809/t-proto 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7867 +++ gcc-4.6.4/gcc/config/m6809/t-proto 2017-11-29 17:11:09.221248469 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7868 @@ -0,0 +1,6 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7869 +# For a few minor differences in code generation on a custom prototype.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7870 +T_CFLAGS = -DTARGET_PROTO
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7871 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7872 +# For doing the startup differently on a custom prototype.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7873 +CRT0STUFF_T_CFLAGS += -DTARGET_PROTO
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7874 +# vim: set filetype=make:
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7875 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-sim gcc-4.6.4/gcc/config/m6809/t-sim
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7876 --- gcc-4.6.4-clean/gcc/config/m6809/t-sim 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7877 +++ gcc-4.6.4/gcc/config/m6809/t-sim 2017-11-28 21:12:11.156911596 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7878 @@ -0,0 +1 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7879 +CRT0STUFF_T_CFLAGS += -DTARGET_SIM
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7880 diff -urN gcc-4.6.4-clean/gcc/config.gcc gcc-4.6.4/gcc/config.gcc
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7881 --- gcc-4.6.4-clean/gcc/config.gcc 2013-03-06 10:40:07.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7882 +++ gcc-4.6.4/gcc/config.gcc 2017-11-29 17:11:09.229248437 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7883 @@ -375,6 +375,9 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7884 cpu_type=m32r
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7885 extra_options="${extra_options} g.opt"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7886 ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7887 +m6809--)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7888 + cpu_type=m6809
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7889 + ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7890 m68k--)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7891 extra_headers=math-68881.h
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7892 ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7893 @@ -1706,6 +1709,15 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7894 thread_file='posix'
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7895 fi
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7896 ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7897 +m6809-coco-*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7898 + tmake_file="${tmake_file} m6809/t-m6809 m6809/t-coco"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7899 + ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7900 +m6809-proto-*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7901 + tmake_file="${tmake_file} m6809/t-m6809 m6809/t-proto"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7902 + ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7903 +m6809--)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7904 + tmake_file="${tmake_file} m6809/t-m6809 m6809/t-sim"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7905 + ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7906 # m68hc11 and m68hc12 share the same machine description.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7907 m68hc11--\|m6811--)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7908 tm_file="dbxelf.h elfos.h usegas.h newlib-stdint.h m68hc11/m68hc11.h"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7909 diff -urN gcc-4.6.4-clean/gcc/gcse.c gcc-4.6.4/gcc/gcse.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7910 --- gcc-4.6.4-clean/gcc/gcse.c 2011-02-02 23:04:04.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7911 +++ gcc-4.6.4/gcc/gcse.c 2017-11-28 21:12:11.156911596 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7912 @@ -833,7 +833,6 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7913 max_distance = (GCSE_COST_DISTANCE_RATIO * cost) / 10;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7914 if (max_distance == 0)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7915 return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7916 -
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7917 gcc_assert (max_distance > 0);
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7918 }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7919 else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7920 diff -urN gcc-4.6.4-clean/gcc/libgcc2.c gcc-4.6.4/gcc/libgcc2.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7921 --- gcc-4.6.4-clean/gcc/libgcc2.c 2011-01-03 13:52:22.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7922 +++ gcc-4.6.4/gcc/libgcc2.c 2017-11-28 21:12:11.156911596 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7923 @@ -485,6 +485,7 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7924 #endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7925
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7926 #ifdef L_bswapsi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7927 +#if MIN_UNITS_PER_WORD > 1
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7928 SItype
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7929 __bswapsi2 (SItype u)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7930 {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7931 @@ -494,7 +495,9 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7932 \| (((u) & 0x000000ff) << 24));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7933 }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7934 #endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7935 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7936 #ifdef L_bswapdi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7937 +#if LONG_LONG_TYPE_SIZE > 32
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7938 DItype
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7939 __bswapdi2 (DItype u)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7940 {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7941 @@ -508,6 +511,7 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7942 \| (((u) & 0x00000000000000ffull) << 56));
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7943 }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7944 #endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7945 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7946 #ifdef L_ffssi2
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7947 #undef int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7948 int
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7949 @@ -1280,7 +1284,7 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7950 UDWtype
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7951 __fixunssfDI (SFtype a)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7952 {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7953 -#if LIBGCC2_HAS_DF_MODE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7954 +#if LIBGCC2_HAS_DF_MODE \|\| (FLT_MANT_DIG >= W_TYPE_SIZE)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7955 /* Convert the SFtype to a DFtype, because that is surely not going
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7956 to lose any bits. Some day someone else can write a faster version
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7957 that avoids converting to DFtype, and verify it really works right. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7958 @@ -1298,7 +1302,7 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7959
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7960 /* Assemble result from the two parts. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7961 return ((UDWtype) hi << W_TYPE_SIZE) \| lo;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7962 -#elif FLT_MANT_DIG < W_TYPE_SIZE
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7963 +#else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7964 if (a < 1)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7965 return 0;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7966 if (a < Wtype_MAXp1_F)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7967 @@ -1334,8 +1338,6 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7968 return (DWtype)counter << shift;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7969 }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7970 return -1;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7971 -#else
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7972 -# error
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7973 #endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7974 }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7975 #endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7976 diff -urN gcc-4.6.4-clean/gcc/longlong.h gcc-4.6.4/gcc/longlong.h
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7977 --- gcc-4.6.4-clean/gcc/longlong.h 2011-10-04 01:28:50.000000000 -0600
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7978 +++ gcc-4.6.4/gcc/longlong.h 2017-11-28 21:12:11.160911575 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7979 @@ -528,6 +528,11 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7980 : "cbit")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7981 #endif /* __M32R__ */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7982
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7983 +#if defined (__m6309__) \|\| defined (__m6809__)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7984 +#define count_leading_zeros(COUNT,X) ((COUNT) = __builtin_clz (X))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7985 +#define count_trailing_zeros(COUNT,X) ((COUNT) = __builtin_ctz (X))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7986 +#endif
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7987 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7988 #if defined (__mc68000__) && W_TYPE_SIZE == 32
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7989 #define add_ssaaaa(sh, sl, ah, al, bh, bl) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7990 __asm__ ("add%.l %5,%1\n\taddx%.l %3,%0" \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7991 diff -urN gcc-4.6.4-clean/gcc/Makefile.in gcc-4.6.4/gcc/Makefile.in
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7992 --- gcc-4.6.4-clean/gcc/Makefile.in 2013-04-01 02:32:34.000000000 -0600
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7993 +++ gcc-4.6.4/gcc/Makefile.in 2017-11-28 21:12:11.160911575 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7994 @@ -2003,14 +2003,14 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7995
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7996 # Compile the start modules crt0.o and mcrt0.o that are linked with
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7997 # every program
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7998 -$(T)crt0.o: s-crt0 ; @true
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	7999 -$(T)mcrt0.o: s-crt0; @true
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8000 +crt0.o: s-crt0 ; @true
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8001 +mcrt0.o: s-crt0; @true
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8002
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8003 s-crt0: $(CRT0_S) $(MCRT0_S) $(GCC_PASSES) $(CONFIG_H)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8004 $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(CRT0STUFF_T_CFLAGS) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8005 - -o $(T)crt0.o -c $(CRT0_S)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8006 + -o crt0.o -c $(CRT0_S)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8007 $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(CRT0STUFF_T_CFLAGS) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8008 - -o $(T)mcrt0.o -c $(MCRT0_S)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8009 + -o mcrt0.o -c $(MCRT0_S)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8010 $(STAMP) s-crt0
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8011 #
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8012 # Compiling object files from source files.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8013 diff -urN gcc-4.6.4-clean/gcc/opth-gen.awk gcc-4.6.4/gcc/opth-gen.awk
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8014 --- gcc-4.6.4-clean/gcc/opth-gen.awk 2011-02-08 10:41:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8015 +++ gcc-4.6.4/gcc/opth-gen.awk 2017-11-28 21:12:11.160911575 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8016 @@ -121,7 +121,7 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8017 END {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8018 print "/* This file is auto-generated by opth-gen.awk. */"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8019 print ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8020 -print "#ifndef OPTIONS_H"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8021 +print "#if !defined(OPTIONS_H) && !defined(IN_LIBGCC2)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8022 print "#define OPTIONS_H"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8023 print ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8024 print "#include \"flag-types.h\""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8025 @@ -432,18 +432,9 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8026
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8027 for (i = 0; i < n_opts; i++) {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8028 opt = opt_args("InverseMask", flags[i])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8029 - if (opt ~ ",") {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8030 - vname = var_name(flags[i])
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8031 - macro = "OPTION_"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8032 - mask = "OPTION_MASK_"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8033 - if (vname == "") {
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8034 - vname = "target_flags"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8035 - macro = "TARGET_"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8036 - mask = "MASK_"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8037 - }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8038 - print "#define " macro nth_arg(1, opt) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8039 - " ((" vname " & " mask nth_arg(0, opt) ") == 0)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8040 - }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8041 + if (opt ~ ",")
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8042 + print "#define TARGET_" nth_arg(1, opt) \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8043 + " ((target_flags & MASK_" nth_arg(0, opt) ") == 0)"
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8044 }
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8045 print ""
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8046
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8047 diff -urN gcc-4.6.4-clean/gcc/tree.h gcc-4.6.4/gcc/tree.h
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8048 --- gcc-4.6.4-clean/gcc/tree.h 2011-10-06 13:57:52.000000000 -0600
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8049 +++ gcc-4.6.4/gcc/tree.h 2017-11-28 21:12:11.160911575 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8050 @@ -3563,6 +3563,8 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8051 TI_UINTDI_TYPE,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8052 TI_UINTTI_TYPE,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8053
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8054 + TI_UINT8_TYPE,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8055 + TI_UINT16_TYPE,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8056 TI_UINT32_TYPE,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8057 TI_UINT64_TYPE,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8058
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8059 diff -urN gcc-4.6.4-clean/gcc/version.c gcc-4.6.4/gcc/version.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8060 --- gcc-4.6.4-clean/gcc/version.c 2009-04-21 13:03:23.000000000 -0600
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8061 +++ gcc-4.6.4/gcc/version.c 2017-11-29 17:11:34.133149157 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8062 @@ -21,16 +21,16 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8063
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8064 /* This is the location of the online document giving instructions for
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8065 reporting bugs. If you distribute a modified version of GCC,
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8066 - please configure with --with-bugurl pointing to a document giving
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8067 - instructions for reporting bugs to you, not us. (You are of course
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8068 - welcome to forward us bugs reported to you, if you determine that
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8069 - they are not bugs in your modifications.) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8070 + please change this to refer to a document giving instructions for
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8071 + reporting bugs to you, not us. (You are of course welcome to
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8072 + forward us bugs reported to you, if you determine that they are
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8073 + not bugs in your modifications.) */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8074
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8075 -const char bug_report_url[] = BUGURL;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8076 +const char bug_report_url[] = "<URL:http://lost.l-w.ca/coco/lwtools/>";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8077
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8078 /* The complete version string, assembled from several pieces.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8079 BASEVER, DATESTAMP, DEVPHASE, and REVISION are defined by the
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8080 Makefile. */
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8081
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8082 -const char version_string[] = BASEVER DATESTAMP DEVPHASE REVISION;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8083 +const char version_string[] = BASEVER DATESTAMP DEVPHASE REVISION " (gcc6809lw pl9)";
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8084 const char pkgversion_string[] = PKGVERSION;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8085 diff -urN gcc-4.6.4-clean/libgcc/config.host gcc-4.6.4/libgcc/config.host
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8086 --- gcc-4.6.4-clean/libgcc/config.host 2011-11-23 15:15:54.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8087 +++ gcc-4.6.4/libgcc/config.host 2017-11-28 21:12:11.160911575 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8088 @@ -371,6 +371,8 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8089 ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8090 m32rle--linux)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8091 ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8092 +m6809*)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8093 + ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8094 m68hc11--\|m6811--)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8095 ;;
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8096 m68hc12--\|m6812--)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8097 diff -urN gcc-4.6.4-clean/libgcc/fixed-obj.mk gcc-4.6.4/libgcc/fixed-obj.mk
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8098 --- gcc-4.6.4-clean/libgcc/fixed-obj.mk 2007-09-17 16:18:13.000000000 -0600
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8099 +++ gcc-4.6.4/libgcc/fixed-obj.mk 2017-11-28 21:12:11.160911575 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8100 @@ -23,7 +23,7 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8101 #$(info $o$(objext): -DL$($o-label) $($o-opt))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8102
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8103 $o$(objext): %$(objext): $(gcc_srcdir)/config/fixed-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8104 - $(gcc_compile) -DL$($-label) $($-opt) -c $(gcc_srcdir)/config/fixed-bit.c $(vis_hide)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8105 + $(gcc_compile) -DL$($-label) $($-opt) -c $(gcc_srcdir)/config/fixed-bit.c $(vis_hide) -save-temps
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8106
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8107 ifeq ($(enable_shared),yes)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8108 $(o)_s$(objext): %_s$(objext): $(gcc_srcdir)/config/fixed-bit.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8109 diff -urN gcc-4.6.4-clean/libgcc/Makefile.in gcc-4.6.4/libgcc/Makefile.in
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8110 --- gcc-4.6.4-clean/libgcc/Makefile.in 2012-12-04 12:11:33.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8111 +++ gcc-4.6.4/libgcc/Makefile.in 2017-11-28 21:12:11.160911575 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8112 @@ -374,8 +374,8 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8113 # Build lib2funcs. For the static library also include LIB2FUNCS_ST.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8114 lib2funcs-o = $(patsubst %,%$(objext),$(lib2funcs) $(LIB2FUNCS_ST))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8115 $(lib2funcs-o): %$(objext): $(gcc_srcdir)/libgcc2.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8116 - $(gcc_compile) -DL$* -c $(gcc_srcdir)/libgcc2.c \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8117 - $(vis_hide)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8118 + ln -sf $(gcc_srcdir)/libgcc2.c $*.c && \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8119 + $(gcc_compile) -DL$* -c $*.c $(vis_hide) -save-temps
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8120 libgcc-objects += $(lib2funcs-o)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8121
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8122 ifeq ($(enable_shared),yes)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8123 @@ -410,8 +410,9 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8124 # Build LIB2_DIVMOD_FUNCS.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8125 lib2-divmod-o = $(patsubst %,%$(objext),$(LIB2_DIVMOD_FUNCS))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8126 $(lib2-divmod-o): %$(objext): $(gcc_srcdir)/libgcc2.c
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8127 - $(gcc_compile) -DL$* -c $(gcc_srcdir)/libgcc2.c \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8128 - -fexceptions -fnon-call-exceptions $(vis_hide)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8129 + ln -sf $(gcc_srcdir)/libgcc2.c $*.c && \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8130 + $(gcc_compile) -DL$* -c $*.c \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8131 + -fexceptions -fnon-call-exceptions $(vis_hide) -save-temps
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8132 libgcc-objects += $(lib2-divmod-o)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8133
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8134 ifeq ($(enable_shared),yes)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8135 @@ -443,7 +444,8 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8136 ifneq ($(FPBIT),)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8137 fpbit-o = $(patsubst %,%$(objext),$(FPBIT_FUNCS))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8138 $(fpbit-o): %$(objext): $(FPBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8139 - $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $(FPBIT) $(vis_hide)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8140 + ln -sf $(FPBIT) $*.c && \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8141 + $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $*.c $(vis_hide) -save-temps
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8142 libgcc-objects += $(fpbit-o)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8143
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8144 ifeq ($(enable_shared),yes)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8145 @@ -458,7 +460,8 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8146 ifneq ($(DPBIT),)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8147 dpbit-o = $(patsubst %,%$(objext),$(DPBIT_FUNCS))
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8148 $(dpbit-o): %$(objext): $(DPBIT)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8149 - $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $(DPBIT) $(vis_hide)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8150 + ln -sf $(DPBIT) $*.c && \
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8151 + $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $*.c $(vis_hide) -save-temps
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8152 libgcc-objects += $(dpbit-o)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8153
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8154 ifeq ($(enable_shared),yes)
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8155 diff -urN gcc-4.6.4-clean/README.LW gcc-4.6.4/README.LW
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8156 --- gcc-4.6.4-clean/README.LW 1969-12-31 17:00:00.000000000 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8157 +++ gcc-4.6.4/README.LW 2017-11-29 17:11:09.189248596 -0700
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8158 @@ -0,0 +1,14 @@
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8159 +This is a port of gcc6809 which is designed to work with the lwtools
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8160 +cross-assembler and linker package. You will need several scripts from that
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8161 +package, available at http://lost.l-w.ca/coco/lwtools/, in order to use
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8162 +this. Instructions for building are present in the lwtools package.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8163 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8164 +This work is based extensively on the gcc6809 4.3.4-3 release by Brian
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8165 +Dominy (brian@oddchange.com) with some significant renovations to make it
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8166 +work with gcc 4.6.4.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8167 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8168 +There is no guarantee that it will work for any particular purpose you
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8169 +choose to put it to.
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8170 +
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8171 +If you run into any problems, contact William Astle (lost@l-w.ca). DO NOT
639d19f5fb8e Source cleanups and "prototype" target for gcc6809 William Astle <lost@l-w.ca> parents: diff changeset	8172 +contact the main GCC developers!

Mercurial > hg > index.cgi

annotate extra/gcc6809lw-4.6.4-9.patch @ 473:8181ddd707f1