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

annotate extra/gcc6809lw-4.6.4-8.patch @ 536:33a59e232a5b

Fix basic output target to keep lines below 249 characters The line length limiter in the basic output was not properly moving to the next before 249 characters, which is the limit Color Basic can read in an ASCII basic program. Changed the line limiter to 240 from 247 to account for a possible 5 digit number plus a comma and just a bit of extra breathing space.

author	William Astle <lost@l-w.ca>
date	Thu, 16 Jun 2022 13:55:34 -0600
parents	818b096ac128
children

rev	line source
446 818b096ac128 Add a fix and an improvement to gcc6809 patch 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
818b096ac128 Add a fix and an improvement to gcc6809 patch 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
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3 +++ gcc-4.6.4/config.sub 2017-11-28 21:12:11.136911706 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4 @@ -313,7 +313,7 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5 c6x)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6 basic_machine=tic6x-unknown
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7 ;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8 - m6811 \| m68hc11 \| m6812 \| m68hc12 \| picochip)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	9 + m6809 \| m6811 \| m68hc11 \| m6812 \| m68hc12 \| picochip)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	10 # Motorola 68HC11/12.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	11 basic_machine=$basic_machine-unknown
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	12 os=-none
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	13 @@ -354,7 +354,7 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	14 \| i86- \| i860-* \| i960-* \| ia64-* \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	15 \| ip2k-* \| iq2000-* \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	16 \| lm32-* \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	17 - \| m32c-* \| m32r-* \| m32rle-* \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	18 + \| m32c-* \| m32r-* \| m32rle-* \| m6809-* \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	19 \| m68000-* \| m680[012346]0-* \| m68360-* \| m683?2-* \| m68k-* \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	20 \| m88110-* \| m88k-* \| maxq-* \| mcore-* \| metag-* \| microblaze-* \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	21 \| mips-* \| mipsbe-* \| mipseb-* \| mipsel-* \| mipsle-* \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	22 @@ -509,6 +509,10 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	23 basic_machine=arm-unknown
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	24 os=-cegcc
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	25 ;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	26 + coco)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	27 + basic_machine=coco
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	28 + os=-none
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	29 + ;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	30 convex-c1)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	31 basic_machine=c1-convex
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	32 os=-bsd
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	33 diff -urN gcc-4.6.4-clean/configure gcc-4.6.4/configure
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	34 --- gcc-4.6.4-clean/configure 2011-12-18 03:03:44.000000000 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	35 +++ gcc-4.6.4/configure 2017-11-28 21:12:11.136911706 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	36 @@ -3439,6 +3439,9 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	37 m32r--)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	38 noconfigdirs="$noconfigdirs ${libgcj}"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	39 ;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	40 + m6809*)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	41 + noconfigdirs="$noconfigdirs target-libiberty target-libstdc++-v3 target-libgloss ${libgcj}"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	42 + ;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	43 m68hc11--\|m6811--\|m68hc12--\|m6812--)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	44 noconfigdirs="$noconfigdirs target-libstdc++-v3 ${libgcj}"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	45 libgloss_dir=m68hc11
818b096ac128 Add a fix and an improvement to gcc6809 patch 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
818b096ac128 Add a fix and an improvement to gcc6809 patch 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
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	48 +++ gcc-4.6.4/configure.ac 2017-11-28 21:12:11.140911685 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	49 @@ -885,6 +885,9 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	50 m32r--)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	51 noconfigdirs="$noconfigdirs ${libgcj}"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	52 ;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	53 + m6809*)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	54 + noconfigdirs="$noconfigdirs target-libiberty target-libstdc++-v3 target-libgloss ${libgcj}"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	55 + ;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	56 m68hc11--\|m6811--\|m68hc12--\|m6812--)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	57 noconfigdirs="$noconfigdirs target-libstdc++-v3 ${libgcj}"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	58 libgloss_dir=m68hc11
818b096ac128 Add a fix and an improvement to gcc6809 patch 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
818b096ac128 Add a fix and an improvement to gcc6809 patch 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
818b096ac128 Add a fix and an improvement to gcc6809 patch 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
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	62 @@ -2561,7 +2561,7 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	63 call sequence.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	64 Also do the adjustments before a throwing call, otherwise
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	65 exception handling can fail; PR 19225. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	66 - if (pending_stack_adjust >= 32
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	67 + if (pending_stack_adjust >= 8
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	68 \|\| (pending_stack_adjust > 0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	69 && (flags & ECF_MAY_BE_ALLOCA))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	70 \|\| (pending_stack_adjust > 0
818b096ac128 Add a fix and an improvement to gcc6809 patch 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
818b096ac128 Add a fix and an improvement to gcc6809 patch 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
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	73 +++ gcc-4.6.4/gcc/config/m6809/crt0.S 2017-11-28 21:12:11.152911619 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	74 @@ -0,0 +1,173 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	75 +;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	76 +;;; Copyright 2006, 2007, 2008, 2009 by Brian Dominy <brian@oddchange.com>
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	77 +;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	78 +;;; This file is part of GCC.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	79 +;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	80 +;;; GCC is free software; you can redistribute it and/or modify
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	81 +;;; it under the terms of the GNU General Public License as published by
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	82 +;;; the Free Software Foundation; either version 3, or (at your option)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	83 +;;; any later version.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	84 +;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	85 +;;; GCC is distributed in the hope that it will be useful,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	86 +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	87 +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	88 +;;; GNU General Public License for more details.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	89 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	90 +;;; You should have received a copy of the GNU General Public License
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	91 +;;; along with GCC; see the file COPYING3. If not see
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	92 +;;; <http://www.gnu.org/licenses/>.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	93 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	94 + /* Declare external for main() */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	95 + .globl _main
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	96 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	97 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	98 +/* The startup is heavily dependent on the type of machine and
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	99 +OS environment that is available at the start point.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	100 +For the most part, the general idea is the same across machines,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	101 +but the implementation is vastly different. This is managed via
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	102 +conditional compiles throughout the startup code for each of the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	103 +supported machines. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	104 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	105 +#ifdef TARGET_COCO /* CoCo memory map */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	106 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	107 +#define COCO_RAMROM_MODE 0xFFDE
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	108 +#define COCO_ALLRAM_MODE 0xFFDF
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	109 +#define COCO_PAGE1 0xFFD5
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	110 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	111 +/* SAM M1 and M0 adjusts the memory size */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	112 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	113 +#define BASIC_WARMSTART_FLAG 0x0071
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	114 +#define BASIC_START 0xA027
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	115 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	116 +#define __STACK_TOP 0x6800
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	117 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	118 +#else /* Simulator (default) memory map */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	119 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	120 +#define SIM_EXIT_REG 0xFF01
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	121 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	122 +#define __STACK_TOP 0xFE00
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	123 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	124 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	125 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	126 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	127 + .area .data
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	128 + .area .ctors
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	129 + .area .dtors
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	130 + .area .bss
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	131 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	132 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	133 + ;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	134 + ;;; __exit : Exit point from the program
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	135 + ;;; For simulation, this writes to a special I/O register that
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	136 + ;;; the simulator interprets as end-of-program.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	137 + ;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	138 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	139 + .area .text
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	140 + .globl __exit
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	141 +__exit:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	142 +#ifdef TARGET_COCO
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	143 + ;; Go back to ROM/RAM mode
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	144 + sta COCO_RAMROM_MODE
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	145 + clr BASIC_WARMSTART_FLAG
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	146 + jmp BASIC_START
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	147 +#else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	148 + tfr x,d
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	149 + stb SIM_EXIT_REG
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	150 + bra __exit
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	151 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	152 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	153 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	154 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	155 + ;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	156 + ;;; __start : Entry point to the program
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	157 + ;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	158 + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	159 + .area .text
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	160 + .globl __start
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	161 +__start:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	162 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	163 +#ifdef HAVE_DIRECT
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	164 + ;; Initialize the direct page pointer
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	165 + lda #<s_.direct
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	166 + tfr a,dp
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	167 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	168 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	169 +#ifdef TARGET_COCO
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	170 + ;; Turn off interrupts
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	171 + orcc #(0x10\|0x40)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	172 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	173 + ;; Setup All RAM Mode
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	174 + sta COCO_ALLRAM_MODE
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	175 +#endif /* TARGET_COCO */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	176 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	177 + ;; Initialize the stack
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	178 + lds #__STACK_TOP - 2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	179 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	180 + ;; Call any "initializer" functions
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	181 + ldu #s_.ctors
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	182 +__ctors_loop:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	183 + ldy ,u++
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	184 + cmpy #0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	185 + beq __ctors_done
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	186 + jsr ,y
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	187 + bra __ctors_loop
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	188 +__ctors_done:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	189 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	190 + ;; Enable interrupts on the simulator
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	191 +#ifndef TARGET_COCO
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	192 + andcc #~(0x10\|0x40)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	193 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	194 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	195 + ;; Set up the environment
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	196 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	197 + ;; Set up argc/argv arrays
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	198 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	199 + ;; Call the main function. The exit code will
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	200 + ;; be returned in the X register, unless compiled
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	201 + ;; with -mdret, in which case it comes back in D.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	202 + jsr _main
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	203 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	204 + ;; Call any finalizer functions
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	205 + ldu #s_.dtors
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	206 +__dtors_loop:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	207 + ldy ,u++
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	208 + cmpy #0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	209 + beq __dtors_done
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	210 + jsr ,y
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	211 + bra __dtors_loop
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	212 +__dtors_done:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	213 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	214 + ;; If main returns, then invoke _exit() to stop the program
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	215 + ;; The C library doesn't support -mdret yet, so move the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	216 + ;; argument first.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	217 +#ifdef __DRET__
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	218 + tfr d,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	219 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	220 + jmp _exit
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	221 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	222 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	223 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	224 + ;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	225 + ;;; __crt0_vector : Default handler for interrupts
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	226 + ;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	227 + .area .text
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	228 +___crt0_vector:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	229 + ;; The default behavior is to simply ignore all
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	230 + ;; non-reset interrupts.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	231 + rti
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	232 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	233 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	234 + ;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	235 + ;;; vector : The interrupt vector table
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	236 + ;;; The linker will ensure that this gets loaded at address 0xFFF0.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	237 + ;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	238 + .area vector
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	239 +vectors:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	240 + .word ___crt0_vector
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	241 + .word ___crt0_vector
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	242 + .word ___crt0_vector
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	243 + .word ___crt0_vector
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	244 + .word ___crt0_vector
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	245 + .word ___crt0_vector
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	246 + .word ___crt0_vector
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	247 + .word __start
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	248 diff -urN gcc-4.6.4-clean/gcc/config/m6809/libgcc1.s gcc-4.6.4/gcc/config/m6809/libgcc1.s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	249 --- gcc-4.6.4-clean/gcc/config/m6809/libgcc1.s 1969-12-31 17:00:00.000000000 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	250 +++ gcc-4.6.4/gcc/config/m6809/libgcc1.s 2017-11-28 21:12:11.152911619 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	251 @@ -0,0 +1,511 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	252 +/* libgcc routines for m6809
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	253 + Copyright (C) 2006 Free Software Foundation, Inc.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	254 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	255 +This file is part of GCC.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	256 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	257 +GCC is free software; you can redistribute it and/or modify
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	258 +it under the terms of the GNU General Public License as published by
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	259 +the Free Software Foundation; either version 3, or (at your option)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	260 +any later version.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	261 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	262 +GCC is distributed in the hope that it will be useful,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	263 +but WITHOUT ANY WARRANTY; without even the implied warranty of
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	264 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	265 +GNU General Public License for more details.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	266 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	267 +You should have received a copy of the GNU General Public License
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	268 +along with GCC; see the file COPYING3. If not see
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	269 +<http://www.gnu.org/licenses/>. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	270 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	271 +/* As a special exception, if you link this library with other files,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	272 + some of which are compiled with GCC, to produce an executable,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	273 + this library does not by itself cause the resulting executable
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	274 + to be covered by the GNU General Public License.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	275 + This exception does not however invalidate any other reasons why
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	276 + the executable file might be covered by the GNU General Public License. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	277 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	278 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	279 +#define SIGFPE jmp _abort
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	280 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	281 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	282 + ; Shift functions
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	283 + ; On input, D is value to be shifted, and X has shift count.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	284 + ; Result is also in D.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	285 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	286 +#ifdef L_ashlhi3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	287 + .area .text
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	288 + .globl _ashlhi3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	289 +_ashlhi3:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	290 + pshs x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	291 +1$:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	292 + leax -1,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	293 + cmpx #-1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	294 + beq 2$
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	295 + aslb
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	296 + rola
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	297 + bra 1$
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	298 +2$:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	299 + puls x,pc
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	300 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	301 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	302 +#ifdef L_ashrhi3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	303 + .area .text
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	304 + .globl _ashrhi3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	305 +_ashrhi3:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	306 + pshs x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	307 +1$:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	308 + leax -1,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	309 + cmpx #-1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	310 + beq 2$
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	311 + asra
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	312 + rorb
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	313 + bra 1$
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	314 +2$:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	315 + puls x,pc
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	316 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	317 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	318 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	319 +#ifdef L_lshrhi3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	320 + .area .text
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	321 + .globl _lshrhi3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	322 +_lshrhi3:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	323 + pshs x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	324 +1$:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	325 + leax -1,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	326 + cmpx #-1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	327 + beq 2$
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	328 + lsra
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	329 + rorb
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	330 + bra 1$
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	331 +2$:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	332 + puls x,pc
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	333 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	334 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	335 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	336 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	337 +#ifdef L_softregs
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	338 + .area direct
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	339 + .globl m0, m1, m2, m3, m4, m5, m6, m7
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	340 + .globl m8, m9, m10, m11, m12, m13, m14, m15
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	341 +m0: .blkb 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	342 +m1: .blkb 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	343 +m2: .blkb 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	344 +m3: .blkb 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	345 +m4: .blkb 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	346 +m5: .blkb 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	347 +m6: .blkb 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	348 +m7: .blkb 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	349 +m8: .blkb 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	350 +m9: .blkb 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	351 +m10: .blkb 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	352 +m11: .blkb 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	353 +m12: .blkb 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	354 +m13: .blkb 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	355 +m14: .blkb 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	356 +m15: .blkb 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	357 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	358 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	359 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	360 +#ifdef L_ashlsi3_one
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	361 + .area .text
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	362 + .globl _ashlsi3_one
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	363 +_ashlsi3_one:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	364 + asl 3,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	365 + rol 2,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	366 + rol 1,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	367 + rol ,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	368 + rts
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	369 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	370 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	371 +#ifdef L_ashlsi3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	372 + /* X points to the SImode (source/dest)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	373 + B is the count */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	374 +_ashlsi3:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	375 + pshs u
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	376 + cmpb #16
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	377 + blt try8
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	378 + subb #16
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	379 + ; Shift by 16
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	380 + ldu 2,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	381 + stu ,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	382 +try8:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	383 + cmpb #8
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	384 + blt try_rest
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	385 + subb #8
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	386 + ; Shift by 8
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	387 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	388 +try_rest:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	389 + tstb
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	390 + beq done
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	391 +do_rest:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	392 + ; Shift by 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	393 + asl 3,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	394 + rol 2,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	395 + rol 1,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	396 + rol ,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	397 + decb
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	398 + bne do_rest
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	399 +done:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	400 + puls u,pc
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	401 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	402 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	403 +#ifdef L_ashrsi3_one
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	404 + .area .text
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	405 + .globl _ashlsi3_one
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	406 +_ashrsi3_one:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	407 + asr ,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	408 + ror 1,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	409 + ror 2,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	410 + ror 3,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	411 + rts
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	412 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	413 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	414 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	415 +#ifdef L_lshrsi3_one
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	416 + .area .text
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	417 + .globl _lshrsi3_one
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	418 +_lshrsi3_one:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	419 + lsr ,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	420 + ror 1,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	421 + ror 2,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	422 + ror 3,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	423 + rts
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	424 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	425 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	426 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	427 +#ifdef L_clzsi2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	428 + .area .text
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	429 + .globl ___clzhi2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	430 + ; Input: X = 16-bit unsigned integer
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	431 + ; Output: X = number of leading zeros
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	432 + ; This function destroys the value in D.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	433 +___clzhi2:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	434 + pshs x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	435 + ; Find the offset of the leftmost '1' bit in
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	436 + ; the left half of the word.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	437 + ;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	438 + ; Bits are numbered in the table with 1 meaning the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	439 + ; LSB and 8 meaning the MSB.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	440 + ;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	441 + ; If nonzero, then clz is 8-a.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	442 + tfr x,d
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	443 + ldx #___clz_tab
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	444 + tfr a,b
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	445 + clra
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	446 + ldb d,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	447 + bne upper_bit_set
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	448 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	449 +lower_bit_set:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	450 + ; If the upper byte is zero, then check the lower
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	451 + ; half of the word. Return 16-a.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	452 + puls d
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	453 + clra
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	454 + ldb d,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	455 + negb
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	456 + addb #16
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	457 + bra done
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	458 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	459 +upper_bit_set:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	460 + negb
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	461 + addb #8
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	462 + puls x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	463 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	464 +done:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	465 + tfr d,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	466 + puls pc
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	467 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	468 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	469 +#ifdef L_clzdi2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	470 + .area .text
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	471 + .globl ___clzsi2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	472 + ; Input: 32-bit unsigned integer is on the stack, just
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	473 + ; above the return address
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	474 + ; Output: X = number of leading zeros
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	475 +___clzsi2:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	476 + ; Check the upper 16-bit word
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	477 + ; If it is not zero, then return clzhi2(X).
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	478 + ; A branch can be used instead of a call since no
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	479 + ; postprocessing is needed. Use long branch form
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	480 + ; though since functions may not be near each other.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	481 + ldx 2,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	482 + lbne ___clzhi2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	483 + ldx 4,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	484 + jsr ___clzhi2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	485 + leax 16,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	486 + rts
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	487 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	488 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	489 +#ifdef L_ctzsi2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	490 + .area .text
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	491 + .globl ___ctzhi2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	492 + ; Input: X = 16-bit unsigned integer
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	493 + ; Output: X = number of trailing zeros
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	494 + ; F(x) = 15 - clzhi2(X & -x)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	495 + ; This function destroys the value in D.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	496 +___ctzhi2:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	497 + tfr x,d
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	498 + coma
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	499 + comb
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	500 + addd #1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	501 + pshs a
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	502 + pshs b
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	503 + tfr x,d
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	504 + andb ,s+
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	505 + anda ,s+
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	506 + tfr d,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	507 + jsr ___clzhi2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	508 + tfr x,d
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	509 + subd #16
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	510 + coma
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	511 + comb
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	512 + tfr d,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	513 + rts
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	514 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	515 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	516 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	517 +#ifdef L_ctzdi2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	518 + .area .text
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	519 + .globl ___ctzsi2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	520 + ; Input: 32-bit unsigned integer is on the stack, just
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	521 + ; above the return address
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	522 + ; Output: X = number of leading zeros
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	523 +___ctzsi2:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	524 + ; Check the lower 16-bit word
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	525 + ; If it is not zero, then return ctzhi2(X).
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	526 + ; A branch can be used instead of a call since no
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	527 + ; postprocessing is needed. Use long branch form
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	528 + ; though since functions may not be near each other.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	529 + ldx 4,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	530 + lbne ___ctzhi2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	531 + ldx 2,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	532 + jsr ___ctzhi2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	533 + leax 16,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	534 + rts
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	535 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	536 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	537 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	538 +#ifdef L_mulhi3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	539 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	540 +;;; ___mulhi3 - signed/unsigned multiply
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	541 +;;; Called by GCC to implement 16x16 multiplication
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	542 +;;; Arguments: Two 16-bit values, one in stack, one in X.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	543 +;;; Result: 16-bit result in X
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	544 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	545 + .area .text
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	546 + .globl _mulhi3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	547 +_mulhi3:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	548 + pshs x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	549 + lda 5,s ; left msb * right lsb * 256
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	550 + ldb ,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	551 + mul
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	552 + tfr b,a
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	553 + clrb
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	554 + tfr d,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	555 + ldb 1,s ; left lsb * right msb * 256
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	556 + lda 4,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	557 + mul
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	558 + tfr b,a
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	559 + clrb
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	560 + leax d,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	561 + ldb 1,s ; left lsb * right lsb
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	562 + lda 5,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	563 + mul
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	564 + leax d,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	565 + puls d,pc ; kill D to remove initial push
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	566 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	567 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	568 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	569 +#ifdef L_divhi3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	570 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	571 +;;; ___divhi3 - signed division
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	572 +;;; Arguments: Dividend in X, divisor on the stack
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	573 +;;; Returns result in X.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	574 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	575 + .area .text
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	576 + .globl _divhi3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	577 +_divhi3:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	578 + ldd 2,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	579 + bne do_div ; check dividend
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	580 + SIGFPE
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	581 +do_div:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	582 + pshs x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	583 + jsr _seuclid
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	584 + puls x,pc
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	585 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	586 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	587 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	588 +#ifdef L_modhi3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	589 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	590 +;;; ___modhi3 - signed modulo
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	591 +;;; Arguments: Dividend in X, divisor on the stack
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	592 +;;; Returns result in X.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	593 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	594 + .area .text
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	595 + .globl _modhi3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	596 +_modhi3:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	597 + ldd 2,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	598 + bne do_mod ; check dividend
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	599 + SIGFPE
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	600 +do_mod:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	601 + pshs x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	602 + jsr _seuclid
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	603 + leas 2,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	604 + tfr d,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	605 + rts
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	606 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	607 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	608 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	609 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	610 +#ifdef L_udivhi3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	611 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	612 +;;; ___udivhi3 - unsigned division
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	613 +;;; Arguments: Dividend in X, divisor on the stack
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	614 +;;; Returns result in X.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	615 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	616 + .area .text
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	617 + .globl _udivhi3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	618 +_udivhi3:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	619 + ldd 2,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	620 + bne do_udiv ; check dividend
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	621 + SIGFPE
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	622 +do_udiv:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	623 + pshs x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	624 + jsr _euclid
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	625 + puls x,pc
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	626 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	627 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	628 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	629 +#ifdef L_umodhi3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	630 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	631 +;;; ___umodhi3 - unsigned modulo
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	632 +;;; Arguments: Dividend in X, divisor on the stack
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	633 +;;; Returns result in X.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	634 +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	635 + .area .text
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	636 + .globl _umodhi3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	637 +_umodhi3:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	638 + ldd 2,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	639 + bne do_umod ; check dividend
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	640 + SIGFPE
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	641 +do_umod:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	642 + pshs x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	643 + jsr _euclid
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	644 + leas 2,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	645 + tfr d,x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	646 + rts
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	647 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	648 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	649 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	650 +#ifdef L_euclid
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	651 +; unsigned euclidean division
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	652 +; calling: (left / right)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	653 +; push left
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	654 +; ldd right
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	655 +; jsr _euclid
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	656 +; quotient on the stack (left)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	657 +; modulus in d
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	658 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	659 + .area .text
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	660 + .globl _euclid
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	661 + left=5
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	662 + right=1 ; word
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	663 + count=0 ; byte
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	664 + CARRY=1 ; alias
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	665 +_euclid:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	666 + leas -3,s ; 2 local variables
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	667 + clr count,s ; prescale divisor
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	668 + inc count,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	669 + tsta
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	670 +presc:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	671 + bmi presc_done
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	672 + inc count,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	673 + aslb
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	674 + rola
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	675 + bra presc
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	676 +presc_done:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	677 + std right,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	678 + ldd left,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	679 + clr left,s ; quotient = 0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	680 + clr left+1,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	681 +mod1:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	682 + subd right,s ; check subtract
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	683 + bcc mod2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	684 + addd right,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	685 + andcc #~CARRY
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	686 + bra mod3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	687 +mod2:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	688 + orcc #CARRY
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	689 +mod3:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	690 + rol left+1,s ; roll in carry
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	691 + rol left,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	692 + lsr right,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	693 + ror right+1,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	694 + dec count,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	695 + bne mod1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	696 + leas 3,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	697 + rts
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	698 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	699 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	700 +#ifdef L_seuclid
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	701 +; signed euclidean division
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	702 +; calling: (left / right)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	703 +; push left
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	704 +; ldd right
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	705 +; jsr _seuclid
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	706 +; quotient on the stack (left)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	707 +; modulus in d
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	708 + .area .text
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	709 + .globl _seuclid
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	710 + left=6
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	711 + right=2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	712 + quot_sign=1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	713 + mod_sign=0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	714 +_seuclid:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	715 + leas -4,s ; 3 local variables
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	716 + std right,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	717 + clr mod_sign,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	718 + clr quot_sign,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	719 + ldd left,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	720 + bge mod_abs
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	721 + inc mod_sign,s ; sign(mod) = sign(left)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	722 + inc quot_sign,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	723 + bsr negd ; abs(left) -> D
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	724 +mod_abs:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	725 + pshs b,a ; push abs(left)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	726 + ldd right+2,s ; all references shifted by 2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	727 + bge quot_abs
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	728 + dec quot_sign+2,s ; sign(quot) = sign(left) XOR sign(right)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	729 + bsr negd ; abs(right) -> D
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	730 +quot_abs:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	731 + jsr _euclid ; call (unsigned) euclidean division
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	732 + std right+2,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	733 + puls a,b ; quot -> D
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	734 + tst quot_sign,s ; all references no longer shifted
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	735 + beq quot_done
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	736 + bsr negd
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	737 +quot_done:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	738 + std left,s ; quot -> left
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	739 + ldd right,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	740 + tst mod_sign,s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	741 + beq mod_done
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	742 + bsr negd
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	743 +mod_done:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	744 + leas 4,s ; destroy stack frame
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	745 + rts
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	746 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	747 +negd: ; self-explanatory !
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	748 + nega
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	749 + negb
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	750 + sbca #0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	751 + rts
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	752 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	753 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	754 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	755 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	756 +#ifdef L_pending_addsi3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	757 +_addsi3:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	758 + rts
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	759 +#endif /* L_pending_addsi3 */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	760 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	761 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	762 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	763 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.c gcc-4.6.4/gcc/config/m6809/m6809.c
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	764 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.c 1969-12-31 17:00:00.000000000 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	765 +++ gcc-4.6.4/gcc/config/m6809/m6809.c 2017-11-28 21:12:11.152911619 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	766 @@ -0,0 +1,3025 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	767 +/*-------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	768 + FILE: m6809.c
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	769 +-------------------------------------------------------------------*/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	770 +/* Subroutines for insn-output.c for MC6809.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	771 + Copyright (C) 1989-2007 Free Software Foundation, Inc.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	772 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	773 + MC6809 Version by Tom Jones (jones@sal.wisc.edu)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	774 + Space Astronomy Laboratory
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	775 + University of Wisconsin at Madison
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	776 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	777 + minor changes to adapt it to gcc-2.5.8 by Matthias Doerfel
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	778 + ( msdoerfe@informatik.uni-erlangen.de )
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	779 + also added #pragma interrupt (inspired by gcc-6811)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	780 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	781 + minor changes to adapt it to gcc-2.8.0 by Eric Botcazou
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	782 + (ebotcazou@multimania.com)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	783 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	784 + minor changes to adapt it to gcc-2.95.3 by Eric Botcazou
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	785 + (ebotcazou@multimania.com)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	786 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	787 + major cleanup, improvements, and upgrade to gcc 3.4 by Brian Dominy
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	788 + (brian@oddchange.com)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	789 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	790 + additional adjustments, etc., for gcc 4.6.1 by William Astle (lost@l-w.ca)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	791 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	792 +This file is part of GCC.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	793 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	794 +GCC is free software; you can redistribute it and/or modify
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	795 +it under the terms of the GNU General Public License as published by
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	796 +the Free Software Foundation; either version 3, or (at your option)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	797 +any later version.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	798 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	799 +GCC is distributed in the hope that it will be useful,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	800 +but WITHOUT ANY WARRANTY; without even the implied warranty of
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	801 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	802 +GNU General Public License for more details.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	803 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	804 +You should have received a copy of the GNU General Public License
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	805 +along with GCC; see the file COPYING3. If not see
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	806 +<http://www.gnu.org/licenses/>. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	807 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	808 +#include <string.h>
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	809 +#include <time.h>
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	810 +#include <sys/types.h>
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	811 +#include <sys/timeb.h>
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	812 +#include <stdio.h>
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	813 +#include "config.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	814 +#include "system.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	815 +#include "coretypes.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	816 +#include "tm.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	817 +#include "tree.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	818 +#include "rtl.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	819 +#include "tm_p.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	820 +#include "regs.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	821 +#include "flags.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	822 +#include "hard-reg-set.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	823 +#include "real.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	824 +#include "tree.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	825 +#include "insn-config.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	826 +#include "conditions.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	827 +#include "insn-flags.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	828 +#include "output.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	829 +#include "insn-attr.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	830 +#include "function.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	831 +#include "target.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	832 +#include "target-def.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	833 +#include "expr.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	834 +#include "recog.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	835 +#include "cpplib.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	836 +#include "c-family/c-pragma.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	837 +#include "c-family/c-common.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	838 +#include "toplev.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	839 +#include "optabs.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	840 +#include "version.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	841 +#include "df.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	842 +#include "rtlhooks-def.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	843 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	844 +/* macro to return TRUE if length of operand mode is one byte */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	845 +#define BYTE_MODE(X) ((GET_MODE_SIZE (GET_MODE (X))) == 1)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	846 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	847 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	848 +/* REAL_REG_P(x) is a true if the rtx 'x' represents a real CPU
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	849 +register and not a fake one that is emulated in software. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	850 +#define REAL_REG_P(x) (REG_P(x) && !M_REG_P(x))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	851 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	852 +/*-------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	853 + Target hooks, moved from target.h
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	854 +-------------------------------------------------------------------*/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	855 +static void m6809_encode_section_info (tree decl, rtx rtl, int new_decl_p ATTRIBUTE_UNUSED);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	856 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	857 +#undef TARGET_ENCODE_SECTION_INFO
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	858 +#define TARGET_ENCODE_SECTION_INFO m6809_encode_section_info
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	859 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	860 +#undef TARGET_ASM_FILE_START
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	861 +#define TARGET_ASM_FILE_START m6809_asm_file_start
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	862 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	863 +#undef TARGET_ASM_ALIGNED_HI_OP
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	864 +#define TARGET_ASM_ALIGNED_HI_OP "\t.word\t"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	865 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	866 +#undef TARGET_ASM_ALIGNED_SI_OP
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	867 +#define TARGET_ASM_ALIGNED_SI_OP NULL
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	868 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	869 +#undef TARGET_ASM_UNALIGNED_HI_OP
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	870 +#define TARGET_ASM_UNALIGNED_HI_OP "\t.word\t"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	871 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	872 +#undef TARGET_ASM_UNALIGNED_SI_OP
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	873 +#define TARGET_ASM_UNALIGNED_SI_OP NULL
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	874 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	875 +#undef TARGET_RTX_COSTS
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	876 +#define TARGET_RTX_COSTS m6809_rtx_costs
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	877 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	878 +#undef TARGET_ATTRIBUTE_TABLE
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	879 +#define TARGET_ATTRIBUTE_TABLE m6809_attribute_table
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	880 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	881 +#undef TARGET_INIT_BUILTINS
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	882 +#define TARGET_INIT_BUILTINS m6809_init_builtins
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	883 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	884 +#undef TARGET_EXPAND_BUILTIN
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	885 +#define TARGET_EXPAND_BUILTIN m6809_expand_builtin
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	886 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	887 +#undef TARGET_DEFAULT_TARGET_FLAGS
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	888 +#define TARGET_DEFAULT_TARGET_FLAGS (MASK_REG_ARGS \| MASK_DIRECT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	889 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	890 +#undef TARGET_FUNCTION_OK_FOR_SIBCALL
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	891 +#define TARGET_FUNCTION_OK_FOR_SIBCALL m6809_function_ok_for_sibcall
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	892 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	893 +#undef TARGET_ASM_TRAMPOLINE_TEMPLATE
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	894 +#define TARGET_ASM_TRAMPOLINE_TEMPLATE m6809_asm_trampoline_template
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	895 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	896 +#undef TARGET_TRAMPOLINE_INIT
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	897 +#define TARGET_TRAMPOLINE_INIT m6809_initialize_trampoline
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	898 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	899 +#undef TARGET_FRAME_POINTER_REQUIRED
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	900 +#define TARGET_FRAME_POINTER_REQUIRED m6809_frame_pointer_required
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	901 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	902 +#undef TARGET_OPTION_OVERRIDE
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	903 +#define TARGET_OPTION_OVERRIDE m6809_override_options
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	904 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	905 +/* External variables used */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	906 +extern int reload_completed; /* set in toplev.c */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	907 +extern FILE *asm_out_file;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	908 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	909 +static int last_mem_size; /* operand size (bytes) */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	910 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	911 +/* True if the section was recently changed and another .area
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	912 + * directive needs to be output before emitting the next label. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	913 +int section_changed = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	914 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	915 +/* Section names. The defaults here are used until an
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	916 + * __attribute__((section)) is seen that changes it. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	917 +char code_section_op[128] = "\t.area .text";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	918 +char data_section_op[128] = "\t.area .data";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	919 +char bss_section_op[128] = "\t.area .bss";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	920 +const char *code_bank_option = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	921 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	922 +/* TRUE if the direct mode prefix might be valid in this context.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	923 + * This is set by 'print_address' prior to calling output_addr_const,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	924 + * which performs into 'print_direct_prefix' to do the final checks. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	925 +static int check_direct_prefix_flag;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	926 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	927 +/* Nonzero if an address is being printed in a context which does not
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	928 + * permit any PIC modifications to the address */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	929 +static int pic_ok_for_addr_p = 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	930 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	931 +/* Current code page. This supports machines which can do bank
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	932 + * switching to allow for more than 64KB of code/data. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	933 +char far_code_page[64];
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	934 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	935 +/* Current bank name */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	936 +static char current_bank_name[8] = "-1";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	937 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	938 +/* Default bank name */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	939 +static char default_code_bank_name[8] = "-1";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	940 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	941 +/* Direct memory reserved as soft registers */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	942 +unsigned int m6809_soft_regs = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	943 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	944 +/* ABI version */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	945 +unsigned int m6809_abi_version = M6809_ABI_VERSION_REGS;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	946 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	947 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	948 +/**
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	949 + * Called after options have been parsed.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	950 + * If overrides have been specified on the command-line, then
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	951 + * these values are copied into the main storage variables.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	952 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	953 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	954 +m6809_override_options (void)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	955 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	956 + /* Handle -mfar-code-page */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	957 + if (far_code_page_option == 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	958 + far_code_page_option = "__default_code_page";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	959 + strcpy (far_code_page, far_code_page_option);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	960 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	961 + /* Handle -mcode-section, -mdata-section, and -mbss-section */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	962 + if (code_section_ptr != 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	963 + sprintf (code_section_op, "\t.area %s", code_section_ptr);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	964 + if (data_section_ptr != 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	965 + sprintf (data_section_op, "\t.area %s", data_section_ptr);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	966 + if (bss_section_ptr != 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	967 + sprintf (bss_section_op, "\t.area %s", bss_section_ptr);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	968 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	969 + /* Handle -mcode-bank */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	970 + if (code_bank_option != 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	971 + sprintf (default_code_bank_name, "%s", code_bank_option);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	972 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	973 + /* Handle -mabi-version or -mno-reg-args */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	974 + if (m6809_abi_version_ptr != 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	975 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	976 + if (!strcmp (m6809_abi_version_ptr, "stack"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	977 + m6809_abi_version = M6809_ABI_VERSION_STACK;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	978 + else if (!strcmp (m6809_abi_version_ptr, "regs"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	979 + m6809_abi_version = M6809_ABI_VERSION_REGS;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	980 + else if (!strcmp (m6809_abi_version_ptr, "bx"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	981 + m6809_abi_version = M6809_ABI_VERSION_BX;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	982 + else if (!strcmp (m6809_abi_version_ptr, "latest"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	983 + m6809_abi_version = M6809_ABI_VERSION_LATEST;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	984 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	985 + m6809_abi_version = atoi (m6809_abi_version_ptr);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	986 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	987 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	988 + /* The older -mno-reg-args option is deprecated, and treated
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	989 + as -mabi=stack. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	990 + if (!TARGET_REG_ARGS)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	991 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	992 + warning (WARNING_OPT "-mno-reg-args deprecated; use -mabi=stack instead.");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	993 + m6809_abi_version = M6809_ABI_VERSION_STACK;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	994 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	995 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	996 + /* -fexceptions is unsupported */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	997 + flag_exceptions = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	998 + flag_non_call_exceptions = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	999 + flag_unwind_tables = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1000 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1001 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1002 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1003 +/**
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1004 + * Output prefix that directs the assembler to use a direct-mode
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1005 + * instruction if globally enabled, address is a symbol, and symbol
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1006 + * has been marked as in direct page. Also, never do this if
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1007 + * using the indirect mode. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1008 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1009 +print_direct_prefix (FILE * file, rtx addr)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1010 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1011 + if (TARGET_DIRECT &&
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1012 + (GET_CODE (addr) == SYMBOL_REF) &&
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1013 + SYMBOL_REF_FLAG (addr) &&
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1014 + check_direct_prefix_flag)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1015 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1016 + putc ('*', file);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1017 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1018 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1019 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1020 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1021 +/** Prints an operand (that is not an address) in assembly from RTL. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1022 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1023 +print_operand (FILE * file, rtx x, int code)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1024 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1025 + if (REG_P (x)) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1026 + /* gcc currently allocates the entire 16-bit 'd' register
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1027 + * even when it only needs an 8-bit value. So here it
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1028 + * is tricked into printing only the lower 8-bit 'b'
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1029 + * register into the assembly output.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1030 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1031 + * Eventually gcc should be modified to allocate a/b
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1032 + * independently and this hack can be removed.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1033 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1034 + * Occasionally, we may want to do an operation using
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1035 + * the 'a' register instead of 'b'; use the 'A' code
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1036 + * to specify that.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1037 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1038 + if (code == 'A')
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1039 + fputs ("a", file);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1040 + else if ((BYTE_MODE (x)) && (REGNO (x) == HARD_D_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1041 + fputs ("b", file);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1042 + else if (M_REG_P (x) && code == 'L')
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1043 + /* Soft registers can be treated like memory and accessed
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1044 + * at a particular offset. TODO : handle 'W' */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1045 + fputs (reg_names[REGNO (x)+1], file);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1046 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1047 + fputs (reg_names[REGNO (x)], file);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1048 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1049 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1050 + else if (MEM_P (x)) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1051 + last_mem_size = GET_MODE_SIZE (GET_MODE (x));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1052 + if (code == 'L') { /* LSH of word address */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1053 + if (GET_CODE (XEXP (x, 0)) == MEM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1054 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1055 + /* Offseting an indirect addressing mode is not supported */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1056 + error ("expression too complex for 6809 (offset indirect mode)");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1057 + debug_rtx (x);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1058 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1059 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1060 + x = adjust_address (x, QImode, 1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1061 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1062 + else if (code == 'M') { /* MSH of word address */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1063 + if (GET_CODE (XEXP (x, 0)) == MEM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1064 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1065 + /* Offseting an indirect addressing mode is not supported */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1066 + error ("expression too complex for 6809 (offset indirect mode)");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1067 + debug_rtx (x);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1068 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1069 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1070 + x = adjust_address (x, QImode, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1071 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1072 + else if (code == 'W') { /* least significant half of 32-bit */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1073 + x = adjust_address (x, HImode, 2);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1074 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1075 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1076 + pic_ok_for_addr_p = (code != 'C');
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1077 + output_address (XEXP (x, 0));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1078 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1079 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1080 + else if (GET_CODE (x) == CONST_DOUBLE && GET_MODE (x) != DImode) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1081 + union { double d; int i[2]; } u;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1082 + u.i[0] = CONST_DOUBLE_LOW (x);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1083 + u.i[1] = CONST_DOUBLE_HIGH (x);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1084 + fprintf (file, "#%#9.9g", u.d);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1085 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1086 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1087 + else if (code == 'R') {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1088 + fprintf (file, "%s",
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1089 + m6809_get_regs_printable (INTVAL (x)));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1090 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1091 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1092 + else {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1093 + if (code == 'L') { /* LSH of word address */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1094 + x = gen_rtx_CONST_INT (VOIDmode, (INTVAL(x) & 0xff));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1095 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1096 + else if (code == 'M') { /* MSH of word address */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1097 + x = gen_rtx_CONST_INT (VOIDmode, ((INTVAL(x) >> 8) & 0xff));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1098 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1099 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1100 + putc ('#', file);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1101 + output_addr_const (file, x);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1102 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1103 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1104 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1105 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1106 +/** Prints an address operand to assembler from its RTL representation. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1107 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1108 +print_operand_address (FILE *file, rtx addr)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1109 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1110 + register rtx base = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1111 + register rtx offset = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1112 + int regno;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1113 + int indirect_flag = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1114 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1115 + check_direct_prefix_flag = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1116 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1117 + /* check for indirect addressing */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1118 + if (MEM_P (addr)) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1119 + last_mem_size = GET_MODE_SIZE (GET_MODE (addr));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1120 + addr = XEXP (addr, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1121 + if (pic_ok_for_addr_p)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1122 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1123 + indirect_flag = 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1124 + fprintf (file, "[");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1125 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1126 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1127 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1128 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1129 + switch (GET_CODE (addr)) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1130 + case REG:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1131 + regno = REGNO (addr);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1132 + fprintf (file, ",%s", reg_names[regno]);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1133 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1134 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1135 + case PRE_DEC:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1136 + regno = REGNO (XEXP (addr, 0));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1137 + fputs (((last_mem_size == 1) ? ",-" : ",--"), file);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1138 + fprintf (file, "%s", reg_names[regno]);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1139 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1140 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1141 + case POST_INC:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1142 + regno = REGNO (XEXP (addr, 0));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1143 + fprintf (file, ",%s", reg_names[regno]);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1144 + fputs (((last_mem_size == 1) ? "+" : "++"), file);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1145 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1146 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1147 + case PLUS:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1148 + base = XEXP (addr, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1149 + if (MEM_P (base))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1150 + base = XEXP (base, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1151 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1152 + offset = XEXP (addr, 1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1153 + if (MEM_P (offset))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1154 + offset = XEXP (offset, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1155 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1156 + if ((CONSTANT_ADDRESS_P (base)) && (CONSTANT_ADDRESS_P (offset))) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1157 + if (!indirect_flag)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1158 + check_direct_prefix_flag = 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1159 + output_addr_const (file, base);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1160 + check_direct_prefix_flag = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1161 + fputs ("+", file);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1162 + output_addr_const (file, offset);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1163 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1164 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1165 + else if ((CONSTANT_ADDRESS_P (base)) && (A_REG_P (offset))) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1166 + output_addr_const (file, base);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1167 + fprintf (file, ",%s", reg_names[REGNO (offset)]);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1168 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1169 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1170 + else if ((CONSTANT_ADDRESS_P (offset)) && (A_REG_P (base))) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1171 + output_addr_const (file, offset);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1172 + fprintf (file, ",%s", reg_names[REGNO (base)]);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1173 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1174 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1175 + /* accumulator offset */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1176 + else if (((D_REG_P (offset)) \|\| (Q_REG_P (offset)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1177 + && (A_REG_P (base))) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1178 + fprintf (file, "%s,%s",
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1179 + reg_names[REGNO (offset)], reg_names[REGNO (base)]);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1180 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1181 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1182 + else if (((D_REG_P (base)) \|\| (Q_REG_P (base)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1183 + && (A_REG_P (offset))) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1184 + fprintf (file, "%s,%s",
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1185 + reg_names[REGNO (base)], reg_names[REGNO (offset)]);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1186 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1187 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1188 + else if (GET_CODE (base) == PRE_DEC) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1189 + regno = REGNO (XEXP (base, 0));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1190 + fputs (((last_mem_size == 1) ? ",-" : ",--"), file);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1191 + fprintf (file, "%s", reg_names[regno]);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1192 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1193 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1194 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1195 + abort ();
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1196 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1197 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1198 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1199 + default:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1200 + /* Set this global before calling output_addr_const() */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1201 + if (!indirect_flag)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1202 + check_direct_prefix_flag = 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1203 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1204 + /* When printing a SYMBOL_REF in PIC mode, do not print the leading
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1205 + * '#' and follow it by ',pcr' to enable relative addressing. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1206 + if (flag_pic && pic_ok_for_addr_p && GET_CODE (addr) == SYMBOL_REF)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1207 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1208 + ASM_OUTPUT_SYMBOL_REF (file, addr);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1209 + fputs (",pcr", file);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1210 + pic_ok_for_addr_p = 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1211 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1212 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1213 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1214 + output_addr_const (file, addr);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1215 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1216 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1217 + check_direct_prefix_flag = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1218 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1219 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1220 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1221 + if (indirect_flag)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1222 + fprintf (file, "]");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1223 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1224 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1225 +/*-------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1226 + Update the CC Status
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1227 +---------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1228 + Set the cc_status for the results of an insn whose pattern is EXP.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1229 + We assume that jumps don't affect the condition codes.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1230 + All else, clobbers the condition codes, by assumption.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1231 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1232 + We assume that ALL add, minus, etc. instructions effect the condition
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1233 + codes.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1234 +-------------------------------------------------------------------*/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1235 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1236 +notice_update_cc (rtx exp, rtx insn ATTRIBUTE_UNUSED)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1237 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1238 + int src_code;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1239 + int dst_code;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1240 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1241 + /* recognize SET insn's */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1242 + if (GET_CODE (exp) == SET)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1243 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1244 + src_code = GET_CODE (SET_SRC (exp));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1245 + dst_code = GET_CODE (SET_DEST (exp));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1246 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1247 + /* Jumps do not alter the cc's. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1248 + if (SET_DEST (exp) == pc_rtx)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1249 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1250 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1251 + /* Moving one register into another register (tfr):
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1252 + Doesn't alter the cc's. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1253 + if (REG_P (SET_DEST (exp)) && (REG_P (SET_SRC (exp))))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1254 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1255 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1256 + /* Moving memory into a register (load): Sets cc's. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1257 + if (REG_P (SET_DEST (exp)) && src_code == MEM) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1258 + cc_status.value1 = SET_SRC (exp);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1259 + cc_status.value2 = SET_DEST (exp);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1260 + cc_status.flags \|= CC_NO_OVERFLOW;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1261 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1262 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1263 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1264 + /* Moving register into memory (store): Sets cc's. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1265 + if (dst_code == MEM && REG_P (SET_SRC (exp))) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1266 + cc_status.value1 = SET_SRC (exp);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1267 + cc_status.value2 = SET_DEST (exp);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1268 + cc_status.flags \|= CC_NO_OVERFLOW;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1269 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1270 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1271 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1272 + /* Function calls clobber the cc's. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1273 + else if (GET_CODE (SET_SRC (exp)) == CALL) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1274 + CC_STATUS_INIT;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1275 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1276 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1277 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1278 + /* Tests and compares set the cc's in predictable ways. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1279 + else if (SET_DEST (exp) == cc0_rtx)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1280 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1281 + cc_status.flags = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1282 + cc_status.value1 = SET_SRC (exp);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1283 + cc_status.value2 = SET_DEST (exp);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1284 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1285 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1286 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1287 + else if (A_REG_P (SET_DEST (exp)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1288 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1289 + CC_STATUS_INIT;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1290 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1291 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1292 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1293 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1294 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1295 + /* Certain instructions affect the condition codes. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1296 + switch (src_code)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1297 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1298 + case PLUS:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1299 + case MINUS:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1300 + case NEG:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1301 + case ASHIFT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1302 + /* These instructions set the condition codes,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1303 + * and may modify the V bit. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1304 + cc_status.flags \|= CC_NO_OVERFLOW;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1305 + /* FALLTHRU */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1306 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1307 + case AND:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1308 + case IOR:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1309 + case XOR:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1310 + case ASHIFTRT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1311 + case LSHIFTRT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1312 + /* These instructions set the condition codes,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1313 + * but cannot overflow (V=0). */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1314 + cc_status.value1 = SET_SRC (exp);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1315 + cc_status.value2 = SET_DEST (exp);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1316 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1317 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1318 + default:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1319 + /* Everything else is clobbered */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1320 + CC_STATUS_INIT;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1321 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1322 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1323 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1324 + } /* SET */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1325 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1326 + else if (GET_CODE (exp) == PARALLEL
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1327 + && GET_CODE (XVECEXP (exp, 0, 0)) == SET)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1328 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1329 + if (SET_DEST (XVECEXP (exp, 0, 0)) == pc_rtx)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1330 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1331 + if (SET_DEST (XVECEXP (exp, 0, 0)) == cc0_rtx)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1332 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1333 + CC_STATUS_INIT;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1334 + cc_status.value1 = SET_SRC (XVECEXP (exp, 0, 0));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1335 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1336 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1337 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1338 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1339 + /*** default action if we haven't recognized something
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1340 + and returned earlier ***/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1341 + CC_STATUS_INIT;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1342 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1343 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1344 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1345 +/** Returns nonzero if the expression EXP can be implemented using one
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1346 + * of the 6809's single operand instructions. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1347 +int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1348 +m6809_single_operand_operator (rtx exp)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1349 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1350 + rtx op1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1351 + HOST_WIDE_INT val;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1352 + enum rtx_code code;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1353 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1354 + debug_rtx(exp);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1355 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1356 + code = GET_CODE (exp);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1357 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1358 + /* Unary operators always qualify */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1359 + switch (code)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1360 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1361 + case NEG:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1362 + case NOT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1363 + return 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1364 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1365 + default:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1366 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1367 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1368 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1369 + /* Binary operators can only qualify if the second
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1370 + * argument is a CONST_INT of certain value. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1371 + op1 = XEXP (exp, 1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1372 + if (GET_CODE (op1) != CONST_INT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1373 + return 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1374 + val = INTVAL (op1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1375 + switch (code)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1376 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1377 + case PLUS:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1378 + case MINUS:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1379 + if (val == -1 \|\| val == 1)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1380 + return 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1381 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1382 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1383 + case ASHIFT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1384 + case ASHIFTRT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1385 + case LSHIFTRT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1386 + case ROTATE:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1387 + case ROTATERT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1388 + if (val == 1)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1389 + return 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1390 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1391 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1392 + default:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1393 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1394 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1395 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1396 + return 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1397 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1398 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1399 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1400 +/** Return a bitarray of the hard registers which are used by a function. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1401 +unsigned int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1402 +m6809_get_live_regs (void)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1403 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1404 + unsigned int regs = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1405 + int regno;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1406 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1407 + if (frame_pointer_needed)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1408 + regs \|= (1 << HARD_FRAME_POINTER_REGNUM);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1409 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1410 + for (regno = HARD_X_REGNUM; regno <= HARD_U_REGNUM; regno++)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1411 + if (df_regs_ever_live_p (regno) && ! call_used_regs[regno])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1412 + regs \|= (1 << regno);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1413 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1414 + return regs;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1415 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1416 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1417 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1418 +/** Return a printable version of a list of hard registers, suitable
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1419 + * for use in a PSHx or PULx insn. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1420 +const char *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1421 +m6809_get_regs_printable (unsigned int regs)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1422 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1423 + static char list[64];
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1424 + char *listp = list;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1425 + unsigned int regno;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1426 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1427 + for (regno=0; regno < FIRST_PSEUDO_REGISTER; regno++)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1428 + if ((regs & (1 << regno)) && !S_REGNO_P (regno))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1429 + listp += sprintf (listp,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1430 + (listp == list) ? "%s" : ",%s", reg_names[regno]);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1431 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1432 + return list;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1433 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1434 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1435 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1436 +/** Return the total number of bytes covered by a set of hard registers. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1437 +unsigned int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1438 +m6809_get_regs_size (unsigned int regs)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1439 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1440 + unsigned int regno;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1441 + unsigned int size = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1442 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1443 + for (regno=0; regno < FIRST_PSEUDO_REGISTER; regno++)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1444 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1445 + /* Only count register in the given register set */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1446 + if (REGSET_CONTAINS_P (regno, regs))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1447 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1448 + /* Add 1 or 2 byte, depending on the size of the register.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1449 + * Since 'D' may be in both sets, check for WORD_REGSET first. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1450 + if (REGSET_CONTAINS_P(regno, WORD_REGSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1451 + size += 2;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1452 + else if (REGSET_CONTAINS_P(regno, BYTE_REGSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1453 + size++;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1454 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1455 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1456 + return size;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1457 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1458 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1459 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1460 +/* Given the target of call instruction in X,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1461 + * return the tree node that contains the function declaration for
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1462 + * that target.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1463 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1464 + * If the rtx or the tree do not appear valid for any reason,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1465 + * then return NULL_TREE.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1466 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1467 +static tree call_target_decl (rtx x)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1468 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1469 + tree decl;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1470 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1471 + /* Make sure the target is really a MEM. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1472 + if (!x \|\| !MEM_P (x))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1473 + return NULL_TREE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1474 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1475 + /* Make sure the address is a SYMBOL_REF. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1476 + x = XEXP (x, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1477 + if (!x \|\| (GET_CODE (x) != SYMBOL_REF))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1478 + return NULL_TREE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1479 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1480 + /* Get the declaration of this symbol */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1481 + decl = SYMBOL_REF_DECL (x);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1482 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1483 + /* Make sure the declaration is really a function. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1484 + if (!decl \|\| (TREE_CODE(decl) != FUNCTION_DECL))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1485 + return NULL_TREE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1486 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1487 + return decl;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1488 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1489 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1490 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1491 +/** Returns nonzero if a function, whose declaration is in DECL,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1492 + * was declared to have the attribute given by ATTR_NAME. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1493 +int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1494 +m6809_function_has_type_attr_p (tree decl, const char *attr_name)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1495 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1496 + tree type;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1497 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1498 + type = TREE_TYPE (decl);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1499 + return lookup_attribute (attr_name, TYPE_ATTRIBUTES (type)) != NULL;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1500 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1501 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1502 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1503 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1504 +/** Returns nonzero if the current function was declared to have the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1505 + * attribute given by ATTR_NAME. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1506 +int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1507 +m6809_current_function_has_type_attr_p (const char *attr_name)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1508 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1509 + return m6809_function_has_type_attr_p (current_function_decl, attr_name);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1510 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1511 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1512 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1513 +/** Return nonzero if the current function has no return value. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1514 +int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1515 +m6809_current_function_is_void (void)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1516 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1517 + return (VOID_TYPE_P (TREE_TYPE (TREE_TYPE (current_function_decl))));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1518 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1519 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1520 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1521 +/** Get the value of a declaration's 'bank', as set by the 'bank'
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1522 + * attribute. If no bank was declared, it returns NULL by default. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1523 +const char *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1524 +m6809_get_decl_bank (tree decl)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1525 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1526 + tree attr;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1527 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1528 + /* Lookup the 'bank' attribute. If it does not exist, then
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1529 + * return NULL */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1530 + attr = lookup_attribute ("bank", DECL_ATTRIBUTES (decl));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1531 + if (attr == NULL_TREE)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1532 + return NULL;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1533 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1534 + /* Make sure it has a value assigned to it */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1535 + attr = TREE_VALUE (attr);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1536 + if (attr == NULL_TREE)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1537 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1538 + warning (WARNING_OPT "banked function did not declare a bank number");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1539 + return NULL;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1540 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1541 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1542 + /* Return the bank name */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1543 + attr = TREE_VALUE (attr);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1544 + return TREE_STRING_POINTER (attr);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1545 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1546 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1547 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1548 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1549 +m6809_declare_function_name (FILE asm_out_file, const char name, tree decl)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1550 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1551 + /* Check the function declaration for special properties.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1552 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1553 + * If the function was declare with __attribute__((bank)), output
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1554 + * assembler definitions to force the function to go into the named
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1555 + * bank.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1556 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1557 + const char *bank_name = m6809_get_decl_bank (decl);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1558 + if (bank_name != NULL)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1559 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1560 + /* Declare __self_bank as a local assembler value that denotes
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1561 + * which bank the current function is in. This is required only
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1562 + * when the bank actually changes. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1563 + if (strcmp (bank_name, current_bank_name))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1564 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1565 + fprintf (asm_out_file, "__self_bank\t.equ %s\n", bank_name);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1566 + strcpy (current_bank_name, bank_name);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1567 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1568 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1569 + /* Declare a global assembler value that denotes which bank the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1570 + * named function is in. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1571 + fprintf (asm_out_file, "__%s_bank\t.gblequ %s\n", name, bank_name);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1572 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1573 + /* Force the current function into a new area */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1574 + fprintf (asm_out_file, "\t.bank bank_%s (FSFX=_%s)\n",
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1575 + bank_name, bank_name);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1576 + fprintf (asm_out_file, "\t.area bank_%s (BANK=bank_%s)\n",
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1577 + bank_name, bank_name);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1578 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1579 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1580 + /* Emit the label for the function's name */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1581 + ASM_OUTPUT_LABEL (asm_out_file, name);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1582 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1583 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1584 +#if 0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1585 +/**
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1586 + * Handle pragmas. Note that only the last branch pragma seen in the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1587 + * source has any affect on code generation.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1588 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1589 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1590 +#define BAD_PRAGMA(msgid, arg) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1591 + do { warning (WARNING_OPT msgid, arg); return -1; } while (0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1592 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1593 +static int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1594 +pragma_parse (const char name, tree sect)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1595 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1596 + tree s, x;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1597 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1598 + if (pragma_lex (&x) != CPP_OPEN_PAREN)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1599 + BAD_PRAGMA ("missing '(' after '#pragma %s' - ignored", name);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1600 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1601 + if (pragma_lex (&s) != CPP_STRING)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1602 + BAD_PRAGMA ("missing section name in '#pragma %s' - ignored", name);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1603 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1604 + if (pragma_lex (&x) != CPP_CLOSE_PAREN)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1605 + BAD_PRAGMA ("missing ')' for '#pragma %s' - ignored", name);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1606 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1607 + if (pragma_lex (&x) != CPP_EOF)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1608 + warning (WARNING_OPT "junk at end of '#pragma %s'", name);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1609 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1610 + *sect = s;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1611 + return 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1612 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1613 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1614 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1615 +/*
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1616 + * Handle #pragma section.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1617 + * This is deprecated; code should use __attribute__(section("name"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1618 + * instead.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1619 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1620 +void pragma_section (cpp_reader *pfile ATTRIBUTE_UNUSED)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1621 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1622 + tree sect;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1623 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1624 + if (pragma_parse ("section", &sect))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1625 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1626 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1627 + snprintf (code_section_op, 6+TREE_STRING_LENGTH (sect),
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1628 + ".area\t%s", TREE_STRING_POINTER (sect));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1629 + snprintf (data_section_op, 6+TREE_STRING_LENGTH (sect),
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1630 + ".area\t%s", TREE_STRING_POINTER (sect));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1631 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1632 + /* Mark a flag that sections have changed. Upon emitting another
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1633 + * declaration, the new .area directive will be written. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1634 + section_changed++;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1635 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1636 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1637 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1638 +/**
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1639 + * Check a `double' value for validity for a particular machine mode.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1640 + * Called by the CHECK_FLOAT_VALUE() machine-dependent macro.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1641 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1642 +int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1643 +check_float_value (enum machine_mode mode, double *d, int overflow)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1644 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1645 + if (mode == SFmode) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1646 + if (*d > 1.7014117331926443e+38) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1647 + error("magnitude of constant too large for `float'");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1648 + *d = 1.7014117331926443e+38;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1649 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1650 + else if (*d < -1.7014117331926443e+38) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1651 + error("magnitude of constant too large for `float'");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1652 + *d = -1.7014117331926443e+38;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1653 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1654 + else if ((d > 0) && (d < 2.9387358770557188e-39)) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1655 + warning(WARNING_OPT "`float' constant truncated to zero");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1656 + *d = 0.0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1657 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1658 + else if ((d < 0) && (d > -2.9387358770557188e-39)) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1659 + warning(WARNING_OPT "`float' constant truncated to zero");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1660 + *d = 0.0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1661 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1662 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1663 + return overflow;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1664 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1665 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1666 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1667 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1668 +/** Declare that the target supports named output sections. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1669 +bool m6809_have_named_section = (bool)1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1670 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1671 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1672 +/** Write to the assembler file a directive to place
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1673 + * subsequent objects to a different section in the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1674 + * object file. ASxxxx uses the "area" directive for
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1675 + * this purpose. It does not however support generalized
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1676 + * alignment, and can only place items on an odd/even
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1677 + * boundary. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1678 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1679 +m6809_asm_named_section (
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1680 + const char *name,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1681 + unsigned int flags ATTRIBUTE_UNUSED,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1682 + tree decl)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1683 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1684 + fprintf (asm_out_file, "\t.area\t%s\n", name);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1685 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1686 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1687 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1688 +enum reg_class
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1689 +m6809_preferred_reload_class (rtx x, enum reg_class regclass)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1690 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1691 + /* Check cases based on type code of rtx */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1692 + switch (GET_CODE(x))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1693 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1694 + /*
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1695 + * Observation, 2015-07-19, William Astle
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1696 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1697 + * The original comparison for range for 16 bits was wrong, adding 0x80
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1698 + * instead of 0x8000. Replaced both 8 bit and 16 bit comparisions with
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1699 + * a more straight forward range comparison - excessive cleverness isn't
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1700 + * really required here.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1701 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1702 + case CONST_INT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1703 + /* Constants that can fit into 1 byte should be
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1704 + * loaded into a Q_REGS reg */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1705 + if ((INTVAL(x) >= -128 && INTVAL(x) <= 127) &&
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1706 +// if (((unsigned) (INTVAL(x) + 0x80) < 0x100) &&
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1707 + (regclass > A_REGS))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1708 + return Q_REGS;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1709 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1710 + /* 16-bit constants should be loaded into A_REGS
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1711 + * when possible. gcc may already require A_REGS
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1712 + * or D_REGS for certain types of instructions.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1713 + * This case applies mostly to simple copy operations
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1714 + * to/from memory when any register will do, but
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1715 + * it's best to avoid using D register since it is
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1716 + * needed for other things.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1717 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1718 + else if ((INTVAL(x) >= -32768 && INTVAL(x) <= 32767) &&
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1719 +// else if (((unsigned) (INTVAL(x) + 0x80) < 0x10000) &&
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1720 + (regclass > A_REGS))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1721 + return A_REGS;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1722 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1723 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1724 + case SYMBOL_REF:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1725 + case LABEL_REF:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1726 + /* Addresses should always be loaded into A_REGS */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1727 + if (regclass >= A_REGS)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1728 + return (A_REGS);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1729 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1730 + default:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1731 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1732 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1733 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1734 + /* Check cases based on mode of rtx */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1735 + if ((GET_MODE(x) == QImode) && (regclass != A_REGS))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1736 + return Q_REGS;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1737 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1738 + /* Default: return whatever class reload suggested */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1739 + return regclass;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1740 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1741 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1742 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1743 +/**
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1744 + * Check a new declaration for the "section" attribute.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1745 + * If it exists, and the target section is "direct", then mark
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1746 + * the declaration (in RTL) to indicate special treatment.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1747 + * When the variable is referenced later, we test for this flag
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1748 + * and can emit special asm text to force the assembler to use
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1749 + * short instructions.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1750 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1751 +static void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1752 +m6809_encode_section_info (tree decl, rtx rtl, int new_decl_p ATTRIBUTE_UNUSED)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1753 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1754 + tree attr, id;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1755 + const char *name;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1756 + const char *decl_name;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1757 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1758 + /* We only care about variable declarations, not functions */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1759 + if (TREE_CODE (decl) != VAR_DECL)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1760 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1761 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1762 + /* For debugging purposes only; grab the decl's name */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1763 + decl_name = IDENTIFIER_POINTER (DECL_NAME (decl));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1764 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1765 + /* Give up if the decl doesn't have any RTL */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1766 + if (!DECL_RTL (decl))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1767 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1768 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1769 + /* See if it has a section attribute */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1770 + attr = lookup_attribute ("section", DECL_ATTRIBUTES (decl));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1771 + if (!attr)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1772 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1773 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1774 + /* See if the section attribute has a value */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1775 + id = TREE_VALUE (TREE_VALUE (attr));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1776 + if (!id)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1777 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1778 + name = TREE_STRING_POINTER (id);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1779 + if (!name)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1780 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1781 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1782 + /* See if the value is 'direct'. If so, mark it. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1783 + if (!strcmp (name, "direct"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1784 + SYMBOL_REF_FLAG (XEXP (DECL_RTL (decl), 0)) = 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1785 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1786 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1787 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1788 +/**
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1789 + * Output code to perform a complex shift, for which there is no
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1790 + * direct support in the instruction set.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1791 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1792 + * shift1 is an instruction pattern for performing a 1-bit modification.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1793 + * This code wraps that pattern in a loop to perform the shift N times,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1794 + * where N is given by the address register in operands[2].
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1795 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1796 + * To support 16-bit shifts, shift2 can also be provided: it is
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1797 + * a second instruction to be included in the loop. 8-bit shift
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1798 + * insns will pass NULL here.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1799 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1800 + * The insn length of shift1/shift2 is assumed to be 1 byte,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1801 + * which works in all of the cases it is needed so far.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1802 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1803 +static void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1804 +m6809_gen_register_shift (
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1805 + rtx *operands,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1806 + const char *shift1,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1807 + const char *shift2 )
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1808 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1809 + char beq_pattern[32];
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1810 + char bra_pattern[32];
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1811 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1812 + int shiftlen = (shift1 && shift2) ? 2 : 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1813 + int cmplen = (REGNO (operands[2]) == HARD_X_REGNUM) ? 3 : 4;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1814 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1815 + int beq_offset = 2 + shiftlen + 2;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1816 + int bra_offset = shiftlen + 2 + cmplen + 2;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1817 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1818 + sprintf (beq_pattern, "beq\t.+%d", beq_offset);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1819 + sprintf (bra_pattern, "bra\t.-%d", bra_offset);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1820 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1821 + output_asm_insn ("pshs\t%2", operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1822 + output_asm_insn ("lea%2\t-1,%2", operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1823 + output_asm_insn ("cmp%2\t#-1", operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1824 + output_asm_insn (beq_pattern, operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1825 + if (shift1)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1826 + output_asm_insn (shift1, operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1827 + if (shift2)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1828 + output_asm_insn (shift2, operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1829 + output_asm_insn (bra_pattern, operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1830 + output_asm_insn ("puls\t%2", operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1831 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1832 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1833 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1834 +/** Generate RTL for the upper 8-bits of a 16-bit constant. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1835 +rtx
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1836 +gen_rtx_const_high (rtx r)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1837 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1838 + unsigned char v = (INTVAL (r) >> 8) & 0xFF;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1839 + signed char s = (signed char)v;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1840 + return gen_int_mode (s, QImode);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1841 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1842 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1843 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1844 +/** Generate RTL for the lower 8-bits of a 16-bit constant. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1845 +rtx
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1846 +gen_rtx_const_low (rtx r)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1847 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1848 + unsigned char v = INTVAL (r) & 0xFF;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1849 + signed char s = (signed char)v;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1850 + return gen_int_mode (s, QImode);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1851 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1852 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1853 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1854 +/** Generate RTL to allocate/free bytes on the stack.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1855 + * CODE is given as MINUS when allocating and PLUS when freeing,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1856 + * to match the semantics of a downward-growing stack. SIZE
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1857 + * is always given as a positive integer.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1858 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1859 +static rtx
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1860 +gen_rtx_stack_adjust (enum rtx_code code, int size)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1861 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1862 + if (size <= 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1863 + return NULL_RTX;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1864 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1865 + if (code == MINUS)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1866 + size = -size;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1867 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1868 + return gen_rtx_SET (Pmode, stack_pointer_rtx,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1869 + gen_rtx_PLUS (Pmode, stack_pointer_rtx,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1870 + gen_int_mode (size, HImode)));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1871 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1872 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1873 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1874 +/** Generate RTL to push/pop a set of registers. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1875 +rtx
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1876 +gen_rtx_register_pushpop (int op, int regs)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1877 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1878 + rtx nregs = gen_int_mode (regs, QImode);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1879 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1880 + if (op == UNSPEC_PUSH_RS)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1881 + return gen_register_push (nregs);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1882 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1883 + return gen_register_pop (nregs);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1884 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1885 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1886 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1887 +/* Given a register set REGS, where the bit positions correspond to
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1888 + * hard register numbers, return another bitmask that represents the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1889 + * order in which those registers would be pushed/popped.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1890 + * Registers that are pushed first have higher bit positions.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1891 + * The pop order is just the reverse bitmask.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1892 + * These values are the same as the bitmasks actually used in the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1893 + * machine instructions. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1894 +static unsigned int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1895 +register_push_order (int regs)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1896 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1897 + unsigned int order = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1898 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1899 + if (REGSET_CONTAINS_P (HARD_PC_REGNUM, regs))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1900 + order \|= 0x80;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1901 + if (REGSET_CONTAINS_P (HARD_U_REGNUM, regs))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1902 + order \|= 0x40;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1903 + if (REGSET_CONTAINS_P (HARD_Y_REGNUM, regs))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1904 + order \|= 0x20;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1905 + if (REGSET_CONTAINS_P (HARD_X_REGNUM, regs))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1906 + order \|= 0x10;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1907 + if (REGSET_CONTAINS_P (HARD_DP_REGNUM, regs))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1908 + order \|= 0x8;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1909 + if (REGSET_CONTAINS_P (HARD_B_REGNUM, regs))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1910 + order \|= 0x4;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1911 + if (REGSET_CONTAINS_P (HARD_A_REGNUM, regs))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1912 + order \|= 0x2;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1913 + if (REGSET_CONTAINS_P (HARD_CC_REGNUM, regs))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1914 + order \|= 0x1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1915 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1916 + if (REGSET_CONTAINS_P (HARD_D_REGNUM, regs))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1917 + order \|= (0x4 \| 0x2);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1918 + return order;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1919 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1920 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1921 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1922 +/* Returns nonzero if two consecutive push or pop instructions,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1923 + * as determined by the OP, can be merged into a single instruction.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1924 + * The first instruction in the sequence pushes/pops REGS1; the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1925 + * second applies to REGS2.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1926 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1927 + * If true, the resulting instruction can use (regs1 \| regs2)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1928 + * safely.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1929 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1930 +int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1931 +m6809_can_merge_pushpop_p (int op, int regs1, int regs2)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1932 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1933 + /* Register sets must not overlap */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1934 + if (regs1 & regs2)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1935 + return 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1936 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1937 + if (op == UNSPEC_PUSH_RS)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1938 + return (register_push_order (regs1) > register_push_order (regs2));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1939 + else if (op == UNSPEC_POP_RS)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1940 + return (register_push_order (regs1) < register_push_order (regs2));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1941 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1942 + return 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1943 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1944 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1945 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1946 +/** Emit instructions for making a library call.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1947 + * MODE is the mode of the operation.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1948 + * NAME is the library function name.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1949 + * OPERANDS is the rtx array provided by the recognizer.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1950 + * COUNT is the number of input operands to the call, and
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1951 + * should be 1 for a unary op or 2 for a binary op.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1952 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1953 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1954 +emit_libcall_insns (enum machine_mode mode,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1955 + const char *name,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1956 + rtx *operands,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1957 + int count)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1958 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1959 + /* Generate an rtx for the call target. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1960 + rtx symbol = gen_rtx_SYMBOL_REF (Pmode, name);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1961 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1962 + /* Emit the library call. Slightly different based
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1963 + on the number of operands */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1964 + if (count == 2)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1965 + emit_library_call (symbol, LCT_NORMAL, mode,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1966 + 2, operands[1], mode, operands[2], mode);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1967 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1968 + emit_library_call (symbol, LCT_NORMAL, mode,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1969 + 1, operands[1], mode);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1970 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1971 + /* The library call is expected to put its result
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1972 + in LIBCALL_VALUE, so need to copy it into the destination. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1973 + emit_move_insn (operands[0], LIBCALL_VALUE(mode));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1974 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1975 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1976 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1977 +/**
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1978 + * A small helper function that writes out a single branch instruction.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1979 + * OPCODE is the short name, e.g. "ble".
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1980 + * OPERANDS has the rtx for the target label.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1981 + * LONG_P is nonzero if we are emitting a long branch, and need to
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1982 + * prepend an 'l' to the opcode name.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1983 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1984 +void output_branch_insn1 (const char opcode, rtx operands, int long_p)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1985 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1986 + char pattern[64];
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1987 + sprintf (pattern, "%s%s\t%%l0", long_p ? "l" : "", opcode);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1988 + output_asm_insn (pattern, operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1989 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1990 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1991 +/**
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1992 + * Output a branch/conditional branch insn of the proper
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1993 + * length. code identifies the particular branch insn.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1994 + * operands holds the branch target in operands[0].
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1995 + * length says what the size of this insn should be.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1996 + * Based on the length, we know whether it should be a
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1997 + * short (8-bit) or long (16-bit) branch.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1998 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	1999 +const char *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2000 +output_branch_insn (enum rtx_code code, rtx *operands, int length)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2001 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2002 + int shortform;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2003 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2004 + /* Decide whether or not to use the long or short form.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2005 + * Calculate automatically based on insn lengths. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2006 + shortform = ((length > 2) ? 0 : 1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2007 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2008 + /* Determine the proper opcode.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2009 + * Use the short (2-byte) opcode if the target is within
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2010 + * reach. Otherwise, use jmp (3-byte opcode), unless
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2011 + * compiling with -fpic, in which case we'll need to use
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2012 + * lbra (4-byte opcode).
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2013 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2014 + switch (code)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2015 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2016 + case LABEL_REF:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2017 + if (shortform)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2018 + output_branch_insn1 ("bra", operands, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2019 + else if (flag_pic)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2020 + output_branch_insn1 ("bra", operands, 1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2021 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2022 + output_branch_insn1 ("jmp", operands, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2023 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2024 + case EQ:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2025 + output_branch_insn1 ("beq", operands, !shortform);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2026 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2027 + case NE:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2028 + output_branch_insn1 ("bne", operands, !shortform);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2029 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2030 + case GT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2031 + output_branch_insn1 ("bgt", operands, !shortform);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2032 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2033 + case GTU:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2034 + output_branch_insn1 ("bhi", operands, !shortform);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2035 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2036 + case LT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2037 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2038 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2039 + output_branch_insn1 ("bmi", operands, !shortform);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2040 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2041 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2042 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2043 + output_branch_insn1 ("blt", operands, !shortform);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2044 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2045 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2046 + case LTU:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2047 + output_branch_insn1 ("blo", operands, !shortform);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2048 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2049 + case GE:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2050 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2051 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2052 + output_branch_insn1 ("bpl", operands, !shortform);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2053 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2054 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2055 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2056 + output_branch_insn1 ("bge", operands, !shortform);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2057 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2058 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2059 + case GEU:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2060 + output_branch_insn1 ("bhs", operands, !shortform);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2061 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2062 + case LE:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2063 + if (cc_prev_status.flags & CC_NO_OVERFLOW)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2064 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2065 + output_branch_insn1 ("bmi", operands, !shortform);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2066 + output_branch_insn1 ("beq", operands, !shortform);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2067 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2068 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2069 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2070 + output_branch_insn1 ("ble", operands, !shortform);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2071 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2072 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2073 + case LEU:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2074 + output_branch_insn1 ("bls", operands, !shortform);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2075 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2076 + default:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2077 + abort();
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2078 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2079 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2080 + return "";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2081 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2082 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2083 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2084 +/** Returns the "cost" of an RTL expression.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2085 + * In general, the expression "COSTS_N_INSNS(1)" is used to represent
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2086 + * the cost of a fast 8-bit arithmetic instruction that operates on
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2087 + * a reg/mem or a reg/immed. Other costs are relative to this.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2088 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2089 + * Notes:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2090 + * - The cost of a REG is always zero; this cannot be changed.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2091 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2092 + * - On the 6809, instructions on two registers will nearly always take
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2093 + * longer than those that operate on a register and a constant/memory,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2094 + * because of the way the instruction set is structured.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2095 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2096 + * TODO: multiply HImode by 2 should be done via shifts, instead of add.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2097 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2098 +static bool
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2099 +m6809_rtx_costs (rtx X, int code, int outer_code ATTRIBUTE_UNUSED,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2100 + int *total, bool speed)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2101 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2102 + int has_const_arg = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2103 + HOST_WIDE_INT const_arg;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2104 + enum machine_mode mode;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2105 + int nargs = 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2106 + rtx op0, op1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2107 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2108 + /* Data RTXs return a value between 0-3, depending on complexity.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2109 + All of these are less than COSTS_N_INSNS(1). */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2110 + switch (code)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2111 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2112 + case CC0:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2113 + case PC:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2114 + *total = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2115 + return true;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2116 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2117 + case CONST_INT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2118 + if (X == const0_rtx)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2119 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2120 + *total = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2121 + return true;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2122 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2123 + else if ((unsigned) INTVAL (X) < 077)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2124 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2125 + *total = 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2126 + return true;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2127 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2128 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2129 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2130 + *total = 2;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2131 + return true;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2132 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2133 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2134 + case LABEL_REF: case CONST:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2135 + *total = 2;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2136 + return true;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2137 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2138 + case SYMBOL_REF:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2139 + /* References to memory are made cheaper if they have
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2140 + * the 'direct' mode attribute set */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2141 + *total = (SYMBOL_REF_FLAG (X)) ? 1 : 2;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2142 + return true;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2143 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2144 + case MEM:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2145 + /* See what form of address was given */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2146 + X = XEXP (X, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2147 + switch (GET_CODE (X))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2148 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2149 + case SYMBOL_REF:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2150 + *total = (SYMBOL_REF_FLAG (X)) ? 1 : 2;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2151 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2152 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2153 + case CONST_INT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2154 + *total = 2;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2155 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2156 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2157 + case MEM:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2158 + *total = COSTS_N_INSNS (1) + 2;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2159 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2160 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2161 + default:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2162 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2163 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2164 + return true;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2165 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2166 + case CONST_DOUBLE:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2167 + /* TODO : not sure about this value. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2168 + *total = 3;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2169 + return true;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2170 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2171 + default:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2172 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2173 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2174 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2175 + /* Decode the rtx */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2176 + mode = GET_MODE (X);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2177 + op0 = XEXP (X, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2178 + op1 = XEXP (X, 1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2179 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2180 + /* We don't implement anything in SImode or greater. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2181 + if (GET_MODE_SIZE (mode) >= GET_MODE_SIZE (SImode))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2182 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2183 + *total = COSTS_N_INSNS (100);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2184 + return true;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2185 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2186 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2187 + /* Figure out if there is a constant argument, and its value. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2188 + if (GET_RTX_CLASS (code) == RTX_BIN_ARITH
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2189 + \|\| GET_RTX_CLASS (code) == RTX_COMM_ARITH)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2190 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2191 + nargs = 2;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2192 + if (GET_CODE (op1) == CONST_INT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2193 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2194 + has_const_arg = 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2195 + const_arg = INTVAL (op1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2196 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2197 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2198 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2199 + /* Penalize a reg/reg operation by adding MEMORY_MOVE_COST,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2200 + * Ignore soft registers, since these are really in memory.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2201 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2202 + * TODO: penalize HImode reg/reg for most operations, except maybe
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2203 + * additions since index registers allow for that.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2204 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2205 + * TODO: shifts by constant N do not always require N instructions;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2206 + * some of this can be done cheaper. The number of actual insns can be
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2207 + * predicted well.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2208 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2209 + if (nargs == 2 && REAL_REG_P (op0) && REAL_REG_P (op1))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2210 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2211 + *total = MEMORY_MOVE_COST (mode, Q_REGS, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2212 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2213 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2214 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2215 + *total = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2216 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2217 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2218 + /* Operator RTXs are counted as COSTS_N_INSNS(N), where N is
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2219 + the estimated number of actual machine instructions needed to
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2220 + perform the computation. Some small adjustments are made since
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2221 + some "instructions" are more complex than others. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2222 + switch (code)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2223 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2224 + case PLUS: case MINUS: case COMPARE:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2225 + /* 6809 handles these natively in QImode, and in HImode as long
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2226 + * as operand 1 is constant. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2227 + if (mode == QImode \|\| (mode == HImode && has_const_arg))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2228 + *total += COSTS_N_INSNS (1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2229 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2230 + *total += COSTS_N_INSNS (GET_MODE_SIZE (mode));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2231 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2232 + /* -1, 0, and 1 can be done using inherent instructions
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2233 + * for PLUS and MINUS in QImode, so don't add extra cost. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2234 + if (has_const_arg
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2235 + && (mode == QImode \|\| mode == HImode)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2236 + && (const_arg == -1 \|\| const_arg == 0 \|\| const_arg == 1)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2237 + && (code == PLUS \|\| code == MINUS))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2238 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2239 + return true;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2240 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2241 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2242 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2243 + case AND: case IOR: case XOR:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2244 + case NEG: case NOT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2245 + /* 6809 handles these natively in QImode, but requires
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2246 + * splitting in HImode. Treat these as 2 insns. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2247 + total += COSTS_N_INSNS (1) GET_MODE_SIZE (mode);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2248 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2249 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2250 + case ASHIFT: case ASHIFTRT: case LSHIFTRT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2251 + case ROTATE: case ROTATERT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2252 + /* 6809 can do shift/rotates of a QImode by a constant in
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2253 + * 1 insn times the shift count, or in HImode by a constant
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2254 + * by splitting to 2 insns.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2255 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2256 + * Shift by a nonconstant will take significantly longer
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2257 + * than any of these. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2258 + if (has_const_arg)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2259 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2260 + const_arg %= (GET_MODE_SIZE (mode) * 8);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2261 + if (const_arg == 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2262 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2263 + *total += COSTS_N_INSNS(1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2264 + return true;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2265 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2266 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2267 + /* HImode shifts greater than 8 get optimized due
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2268 + * to register transfer from b to a; this cuts down the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2269 + * cost. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2270 + if (const_arg >= 8)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2271 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2272 + *total += COSTS_N_INSNS (1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2273 + const_arg -= 8;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2274 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2275 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2276 + /* The computed cost is 'const_arg' 1-bit shifts, doubled
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2277 + if in HImode, minus the cost of the constant itself which
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2278 + will be added in later but really shouldn't be. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2279 + total += COSTS_N_INSNS (const_arg) GET_MODE_SIZE (mode) - 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2280 + return true;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2281 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2282 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2283 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2284 + /* It may take up to 7 iterations of about 6-7 real
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2285 + * instructions, so make this expensive. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2286 + *total += COSTS_N_INSNS (50);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2287 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2288 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2289 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2290 + case MULT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2291 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2292 + /* Multiply is cheap when both arguments are 8-bits. They
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2293 + could be QImode, or QImode widened to HImode, or a constant
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2294 + that fits into 8-bits. As long as both operands qualify,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2295 + we can use a single mul instruction.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2296 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2297 + Assume that fast multiply can be used, and change this if we find
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2298 + differently... */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2299 + int ok_for_qihi3 = 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2300 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2301 + /* Check the first operand */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2302 + switch (GET_MODE (op0))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2303 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2304 + case QImode:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2305 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2306 + case HImode:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2307 + if (GET_CODE (op0) != SIGN_EXTEND && GET_CODE (op0) != ZERO_EXTEND)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2308 + ok_for_qihi3 = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2309 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2310 + default:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2311 + ok_for_qihi3 = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2312 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2313 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2314 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2315 + /* Likewise, check the second operand. This is where constants may appear. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2316 + switch (GET_MODE (op1))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2317 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2318 + case QImode:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2319 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2320 + case HImode:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2321 + if (GET_CODE (op1) != SIGN_EXTEND && GET_CODE (op1) != ZERO_EXTEND)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2322 + ok_for_qihi3 = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2323 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2324 + case VOIDmode:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2325 + if (!CONST_OK_FOR_LETTER_P (const_arg, 'K'))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2326 + ok_for_qihi3 = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2327 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2328 + default:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2329 + ok_for_qihi3 = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2330 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2331 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2332 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2333 + /* Fast multiply takes about 4 times as many cycles as a normal
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2334 + arithmetic operation. Otherwise, it will take an expensive libcall. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2335 + if (ok_for_qihi3)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2336 + *total += COSTS_N_INSNS (4);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2337 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2338 + *total = COSTS_N_INSNS (50);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2339 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2340 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2341 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2342 + case DIV: case UDIV: case MOD: case UMOD:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2343 + /* These all require more expensive libcalls. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2344 + *total += COSTS_N_INSNS (100);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2345 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2346 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2347 + /* TODO : TRUNCATE, SIGN_EXTEND, and ZERO_EXTEND */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2348 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2349 + /* These can normally be done with autoincrement, etc., so
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2350 + * don't charge for them. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2351 + case PRE_DEC:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2352 + case PRE_INC:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2353 + case POST_DEC:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2354 + case POST_INC:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2355 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2356 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2357 + default:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2358 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2359 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2360 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2361 + /* Always return false, and let the caller gather the costs
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2362 + * of the operands */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2363 + return false;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2364 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2365 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2366 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2367 +static tree
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2368 +m6809_handle_fntype_attribute (tree *node, tree name,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2369 + tree args ATTRIBUTE_UNUSED,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2370 + int flags ATTRIBUTE_UNUSED,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2371 + bool *no_add_attrs)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2372 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2373 + if (TREE_CODE (*node) != FUNCTION_TYPE)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2374 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2375 + warning (WARNING_OPT "'%s' only valid for functions",
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2376 + IDENTIFIER_POINTER (name));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2377 + *no_add_attrs = TRUE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2378 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2379 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2380 + return NULL_TREE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2381 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2382 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2383 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2384 +static tree
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2385 +m6809_handle_data_type_attribute (tree *node ATTRIBUTE_UNUSED,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2386 + tree name ATTRIBUTE_UNUSED,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2387 + tree args ATTRIBUTE_UNUSED,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2388 + int flags ATTRIBUTE_UNUSED,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2389 + bool *no_add_attrs ATTRIBUTE_UNUSED)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2390 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2391 + return NULL_TREE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2392 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2393 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2394 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2395 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2396 +static tree
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2397 +m6809_handle_default_attribute (tree *node ATTRIBUTE_UNUSED,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2398 + tree name ATTRIBUTE_UNUSED,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2399 + tree args ATTRIBUTE_UNUSED,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2400 + int flags ATTRIBUTE_UNUSED,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2401 + bool *no_add_attrs ATTRIBUTE_UNUSED )
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2402 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2403 + return NULL_TREE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2404 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2405 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2406 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2407 +/* Table of valid machine attributes */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2408 +const struct attribute_spec m6809_attribute_table[] = { /*
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2409 +{ name, min, max, decl, type, fntype, handler } */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2410 +{ "interrupt", 0, 0, false, true, true, m6809_handle_fntype_attribute },
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2411 +{ "naked", 0, 0, false, true, true, m6809_handle_fntype_attribute },
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2412 +{ "far", 0, 1, false, true, true, m6809_handle_fntype_attribute },
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2413 +{ "bank", 0, 1, true, false, false, m6809_handle_default_attribute },
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2414 +{ "boolean", 0, 0, false, true, false, m6809_handle_data_type_attribute },
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2415 +{ NULL, 0, 0, false, true, false, NULL },
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2416 +};
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2417 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2418 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2419 +/** Initialize builtin routines for the 6809. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2420 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2421 +m6809_init_builtins (void)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2422 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2423 + /* Create type trees for each function signature required.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2424 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2425 + * void_ftype_void = void f(void)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2426 + * void_ftype_uchar = void f(unsigned char)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2427 + * uchar_ftype_uchar2 = unsigned char f (unsigned char, unsigned char)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2428 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2429 + tree void_ftype_void =
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2430 + build_function_type (void_type_node, void_list_node);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2431 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2432 + tree void_ftype_uchar =
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2433 + build_function_type (void_type_node,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2434 + tree_cons (NULL_TREE, unsigned_char_type_node, void_list_node));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2435 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2436 + tree uchar_ftype_uchar2 =
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2437 + build_function_type (unsigned_char_type_node,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2438 + tree_cons (NULL_TREE, unsigned_char_type_node,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2439 + tree_cons (NULL_TREE, unsigned_char_type_node, void_list_node)));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2440 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2441 + /* Register each builtin function. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2442 + add_builtin_function ("__builtin_swi", void_ftype_void,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2443 + M6809_SWI, BUILT_IN_MD, NULL, NULL_TREE);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2444 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2445 + add_builtin_function ("__builtin_swi2", void_ftype_void,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2446 + M6809_SWI2, BUILT_IN_MD, NULL, NULL_TREE);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2447 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2448 + add_builtin_function ("__builtin_swi3", void_ftype_void,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2449 + M6809_SWI3, BUILT_IN_MD, NULL, NULL_TREE);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2450 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2451 + add_builtin_function ("__builtin_cwai", void_ftype_uchar,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2452 + M6809_CWAI, BUILT_IN_MD, NULL, NULL_TREE);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2453 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2454 + add_builtin_function ("__builtin_sync", void_ftype_void,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2455 + M6809_SYNC, BUILT_IN_MD, NULL, NULL_TREE);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2456 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2457 + add_builtin_function ("__builtin_nop", void_ftype_void,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2458 + M6809_NOP, BUILT_IN_MD, NULL, NULL_TREE);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2459 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2460 + add_builtin_function ("__builtin_blockage", void_ftype_void,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2461 + M6809_BLOCKAGE, BUILT_IN_MD, NULL, NULL_TREE);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2462 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2463 + add_builtin_function ("__builtin_add_decimal", uchar_ftype_uchar2,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2464 + M6809_ADD_DECIMAL, BUILT_IN_MD, NULL, NULL_TREE);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2465 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2466 + add_builtin_function ("__builtin_add_carry", uchar_ftype_uchar2,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2467 + M6809_ADD_CARRY, BUILT_IN_MD, NULL, NULL_TREE);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2468 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2469 + add_builtin_function ("__builtin_sub_carry", uchar_ftype_uchar2,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2470 + M6809_SUB_CARRY, BUILT_IN_MD, NULL, NULL_TREE);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2471 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2472 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2473 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2474 +/** Used by m6809_expand_builtin, given a tree ARGLIST which
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2475 + * refers to the operands of a builtin call, return an rtx
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2476 + * that represents the nth operand, as denoted by OPNUM, which
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2477 + * is a zero-based integer. MODE gives the expected mode
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2478 + * of the operand.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2479 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2480 + * This rtx is suitable for use in the emitted RTL for the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2481 + * builtin instruction. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2482 +rtx
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2483 +m6809_builtin_operand (tree arglist, enum machine_mode mode, int opnum)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2484 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2485 + tree arg;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2486 + rtx r;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2487 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2488 + arg = CALL_EXPR_ARG (arglist, opnum);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2489 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2490 + /* Convert the tree to RTL */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2491 + r = expand_expr (arg, NULL_RTX, mode, EXPAND_NORMAL);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2492 + if (r == NULL_RTX)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2493 + return NULL_RTX;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2494 + return r;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2495 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2496 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2497 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2498 +/** Expand a builtin that was registered in init_builtins into
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2499 + * RTL. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2500 +rtx
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2501 +m6809_expand_builtin (tree exp,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2502 + rtx target,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2503 + rtx subtarget ATTRIBUTE_UNUSED,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2504 + enum machine_mode mode ATTRIBUTE_UNUSED,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2505 + int ignore ATTRIBUTE_UNUSED )
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2506 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2507 + tree fndecl = TREE_OPERAND (CALL_EXPR_FN (exp), 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2508 + tree arglist = exp;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2509 + unsigned int fcode = DECL_FUNCTION_CODE (fndecl);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2510 + rtx r0, r1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2511 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2512 + switch (fcode)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2513 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2514 + case M6809_SWI:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2515 + r0 = gen_rtx_CONST_INT (VOIDmode, 1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2516 + emit_insn (target = gen_m6809_swi (r0));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2517 + return target;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2518 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2519 + case M6809_SWI2:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2520 + r0 = gen_rtx_CONST_INT (VOIDmode, 2);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2521 + emit_insn (target = gen_m6809_swi (r0));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2522 + return target;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2523 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2524 + case M6809_SWI3:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2525 + r0 = gen_rtx_CONST_INT (VOIDmode, 3);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2526 + emit_insn (target = gen_m6809_swi (r0));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2527 + return target;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2528 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2529 + case M6809_CWAI:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2530 + r0 = m6809_builtin_operand (arglist, QImode, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2531 + emit_insn (target = gen_m6809_cwai (r0));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2532 + return target;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2533 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2534 + case M6809_SYNC:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2535 + emit_insn (target = gen_m6809_sync ());
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2536 + return target;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2537 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2538 + case M6809_ADD_CARRY:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2539 + r0 = m6809_builtin_operand (arglist, QImode, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2540 + r1 = m6809_builtin_operand (arglist, QImode, 1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2541 + if (!target)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2542 + target = gen_reg_rtx (QImode);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2543 + emit_insn (gen_addqi3_carry (target, r0, r1));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2544 + return target;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2545 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2546 + case M6809_SUB_CARRY:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2547 + r0 = m6809_builtin_operand (arglist, QImode, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2548 + r1 = m6809_builtin_operand (arglist, QImode, 1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2549 + if (!target)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2550 + target = gen_reg_rtx (QImode);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2551 + emit_insn (gen_subqi3_carry (target, r0, r1));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2552 + return target;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2553 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2554 + case M6809_NOP:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2555 + emit_insn (target = gen_nop ());
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2556 + return target;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2557 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2558 + case M6809_BLOCKAGE:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2559 + emit_insn (target = gen_blockage ());
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2560 + return target;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2561 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2562 + case M6809_ADD_DECIMAL:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2563 + r0 = m6809_builtin_operand (arglist, QImode, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2564 + r1 = m6809_builtin_operand (arglist, QImode, 1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2565 + if (!target)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2566 + target = gen_reg_rtx (QImode);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2567 + emit_insn (gen_addqi3_decimal (target, r0, r1));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2568 + return target;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2569 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2570 + default:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2571 + warning (WARNING_OPT "unknown builtin expansion ignored");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2572 + return NULL_RTX;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2573 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2574 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2575 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2576 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2577 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2578 +/* Returns nonzero if 'x' represents a function that was declared
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2579 + * as __noreturn__. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2580 +int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2581 +noreturn_functionp (rtx x)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2582 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2583 + tree decl = call_target_decl (x);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2584 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2585 + if (decl == NULL_TREE)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2586 + return 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2587 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2588 + return TREE_THIS_VOLATILE (decl);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2589 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2590 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2591 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2592 +const char *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2593 +far_function_type_p (tree type)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2594 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2595 + tree attr;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2596 + const char *page;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2597 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2598 + /* Return whether or not this decl has the far attribute */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2599 + attr = lookup_attribute ("far", TYPE_ATTRIBUTES (type));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2600 + if (attr == NULL_TREE)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2601 + return NULL;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2602 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2603 + /* If it is far, check for a value */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2604 + attr = TREE_VALUE (attr);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2605 + if (attr == NULL_TREE)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2606 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2607 + warning (WARNING_OPT "far code page not specified, using local value");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2608 + return far_code_page;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2609 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2610 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2611 + /* We have a TREE_LIST of attribute values, get the first one.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2612 + * It should be an INTEGER_CST. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2613 + attr = TREE_VALUE (attr);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2614 + page = TREE_STRING_POINTER (attr);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2615 + return page;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2616 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2617 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2618 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2619 +/* For a far function, returns the identifier that states which page
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2620 + * it resides in. Otherwise, returns NULL for ordinary functions. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2621 +const char *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2622 +far_functionp (rtx x)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2623 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2624 + tree decl, decl_type;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2625 + const char *page;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2626 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2627 + /* Find the FUNCTION_DECL corresponding to the rtx being called. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2628 + decl = call_target_decl (x);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2629 + if (decl == NULL_TREE)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2630 + return NULL;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2631 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2632 + /* See if the function has the new 'banked' attribute. These
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2633 + * are numeric instead of text */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2634 + page = m6809_get_decl_bank (decl);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2635 + if (page)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2636 + return page;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2637 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2638 + /* No, lookup the type of the function and see if the type
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2639 + * specifies far or not. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2640 + decl_type = TREE_TYPE (decl);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2641 + if (decl_type == NULL_TREE)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2642 + return NULL;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2643 + return far_function_type_p (decl_type);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2644 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2645 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2646 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2647 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2648 +/** Outputs the assembly language for a far call. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2649 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2650 +output_far_call_insn (rtx *operands, int has_return)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2651 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2652 + static char page_data[64];
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2653 + const char *called_page;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2654 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2655 + /* The logic is the same for functions whether or not there
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2656 + * is a return value. Skip over the return value in this
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2657 + * case, so that the call location is always operands[0]. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2658 + if (has_return)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2659 + operands++;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2660 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2661 + /* Get the name of the page being called */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2662 + called_page = far_functionp (operands[0]);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2663 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2664 +#if 0 /* TODO : broken logic */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2665 + /* See if the called page name is a 'bank' */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2666 + if (isdigit (*called_page))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2667 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2668 + /* New style banking */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2669 + if (!strcmp (called_page, current_bank_name))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2670 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2671 + /* Same page */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2672 + output_asm_insn ("jsr\t%0", operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2673 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2674 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2675 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2676 + /* Different page */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2677 + output_asm_insn ("jsr\t__far_call_handler\t;new style", operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2678 + output_asm_insn ("\t.dw\t%0", operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2679 + sprintf (page_data, "\t.db\t%s", called_page);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2680 + output_asm_insn (page_data, operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2681 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2682 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2683 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2684 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2685 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2686 + /* Are we calling a different page than we are running in? */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2687 + if (!strcmp (called_page, far_code_page))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2688 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2689 + /* Same page : no need to execute a far call */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2690 + if (flag_pic)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2691 + output_asm_insn ("lbsr\t%C0", operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2692 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2693 + output_asm_insn ("jsr\t%0", operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2694 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2695 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2696 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2697 + /* Different page : need to emit far call thunk */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2698 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2699 + /* First output a call to the thunk for making far calls. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2700 + if (flag_pic)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2701 + output_asm_insn ("lbsr\t__far_call_handler", operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2702 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2703 + output_asm_insn ("jsr\t__far_call_handler\t;old style", operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2704 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2705 + /* Now output the name of the call site */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2706 + output_asm_insn ("\t.dw\t%C0", operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2707 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2708 + /* Finally output the page number */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2709 + sprintf (page_data, "\t.db\t%s", far_functionp (operands[0]));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2710 + output_asm_insn (page_data, operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2711 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2712 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2713 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2714 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2715 +int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2716 +m6809_init_cumulative_args (CUMULATIVE_ARGS cum ATTRIBUTE_UNUSED,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2717 + tree fntype,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2718 + rtx libname ATTRIBUTE_UNUSED)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2719 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2720 + cum = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2721 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2722 + /* For far functions, the current implementation does not allow for
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2723 + * stack parameters. So note whenever the called function is far
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2724 + * and in a different page than the current one; such a function
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2725 + * should give an error if a stack parameter is generated. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2726 + if (fntype)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2727 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2728 + const char *called_page = far_function_type_p (fntype);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2729 + if (called_page && strcmp (called_page, far_code_page) && !TARGET_FAR_STACK_PARAM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2730 + cum \|= CUM_STACK_INVALID;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2731 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2732 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2733 + if (fntype && TYPE_ARG_TYPES (fntype) != 0 &&
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2734 + (TREE_VALUE (tree_last (TYPE_ARG_TYPES (fntype))) != void_type_node))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2735 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2736 + /* has variable arguments, cannot use registers */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2737 + cum \|= (CUM_X_MASK \| CUM_B_MASK \| CUM_STACK_ONLY);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2738 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2739 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2740 + if (m6809_abi_version == M6809_ABI_VERSION_STACK)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2741 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2742 + /* cannot use registers ; only use the stack */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2743 + cum \|= (CUM_STACK_ONLY \| CUM_X_MASK \| CUM_B_MASK);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2744 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2745 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2746 + return cum;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2747 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2748 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2749 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2750 +rtx
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2751 +m6809_function_arg_on_stack (CUMULATIVE_ARGS *cump)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2752 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2753 + if (*cump & CUM_STACK_INVALID)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2754 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2755 + *cump &= ~CUM_STACK_INVALID;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2756 + error ("far function needs stack, will not work");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2757 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2758 + return NULL_RTX;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2759 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2760 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2761 +void m6809_asm_trampoline_template(FILE *f)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2762 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2763 + fprintf(f, "ldy #0000\n");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2764 + fprintf(f, "jmp 0x0000\n");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2765 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2766 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2767 +/*
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2768 + * Trampoline output:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2769 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2770 + * ldu #&cxt 4 bytes --LDY- ?? ??
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2771 + * jmp fnaddr 3 bytes JMP ?? ??
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2772 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2773 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2774 +m6809_initialize_trampoline (rtx tramp, tree fndecl, rtx cxt)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2775 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2776 + rtx fnaddr = XEXP (DECL_RTL (fndecl), 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2777 + /* TODO - optimize by generating the entire trampoline code here,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2778 + * and removing the template altogether, since there are only two
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2779 + * bytes there that matter. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2780 + emit_move_insn (gen_rtx_MEM (HImode, plus_constant (tramp, 2)), cxt);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2781 + emit_move_insn (gen_rtx_MEM (HImode, plus_constant (tramp, 5)), fnaddr);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2782 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2783 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2784 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2785 +/** Echo the version of the compiler and the name of the source file
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2786 + * at the beginning of each assembler output file. asm_out_file
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2787 + * is a global FILE * pointing to the output stream. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2788 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2789 +m6809_asm_file_start (void)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2790 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2791 + const char *module_name;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2792 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2793 + fprintf (asm_out_file, "\n;;; gcc for m6809 : %s %s\n",
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2794 + __DATE__, __TIME__);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2795 + fprintf (asm_out_file, ";;; %s\n", version_string);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2796 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2797 + fprintf (asm_out_file, ";;; ABI version %d\n", m6809_abi_version);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2798 + fprintf (asm_out_file, ";;; %s\n",
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2799 + (TARGET_BYTE_INT ? "-mint8" : "-mint16"));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2800 + if (TARGET_EXPERIMENT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2801 + fprintf (asm_out_file, ";;; -mexperiment\n");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2802 + if (TARGET_WPC)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2803 + fprintf (asm_out_file, ";;; -mwpc\n");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2804 + if (TARGET_6309)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2805 + fprintf (asm_out_file, ";;; -m6309\n");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2806 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2807 + /* Print the name of the module, which is taken as the base name
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2808 + * of the input file.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2809 + * See the 'User-Defined Symbols' section of the assembler
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2810 + * documentation for the rules on valid symbols.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2811 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2812 + module_name = lbasename (main_input_filename);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2813 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2814 + fprintf (asm_out_file, "\t.module\t");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2815 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2816 + if (module_name >= '0' && module_name <= '9')
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2817 + fprintf (asm_out_file, "_");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2818 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2819 + while (*module_name)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2820 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2821 + if ((module_name >= '0' && module_name <= '9')
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2822 + \|\| (module_name >= 'A' && module_name <= 'Z')
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2823 + \|\| (module_name >= 'a' && module_name <= 'z')
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2824 + \|\| *module_name == '$'
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2825 + \|\| *module_name == '.'
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2826 + \|\| *module_name == '_')
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2827 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2828 + fprintf (asm_out_file, "%c", *module_name);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2829 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2830 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2831 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2832 + fprintf (asm_out_file, "_");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2833 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2834 + module_name++;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2835 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2836 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2837 + fprintf (asm_out_file, "\n");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2838 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2839 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2840 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2841 +/** Returns true if prologue/epilogue code is required for the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2842 + * current function being compiled.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2843 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2844 + * This is just the inverse of whether the function is declared as
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2845 + * 'naked'.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2846 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2847 +int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2848 +prologue_epilogue_required (void)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2849 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2850 + return !m6809_current_function_has_type_attr_p ("naked")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2851 + && !m6809_current_function_has_type_attr_p ("noreturn");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2852 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2853 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2854 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2855 +/** Expand RTL for function entry */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2856 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2857 +emit_prologue_insns (void)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2858 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2859 + rtx insn;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2860 + unsigned int live_regs = m6809_get_live_regs ();
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2861 + unsigned int frame_size = get_frame_size ();
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2862 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2863 + /* Save all registers used, including the frame pointer */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2864 + if (live_regs && !m6809_current_function_has_type_attr_p ("interrupt"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2865 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2866 + insn = emit_insn (
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2867 + gen_rtx_register_pushpop (UNSPEC_PUSH_RS, live_regs));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2868 + RTX_FRAME_RELATED_P (insn) = 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2869 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2870 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2871 + /* Allocate space for local variables */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2872 + if (frame_size != 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2873 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2874 + insn = emit_insn (gen_rtx_stack_adjust (MINUS, frame_size));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2875 + RTX_FRAME_RELATED_P (insn) = 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2876 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2877 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2878 + /* Set the frame pointer if it is needed */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2879 + if (frame_pointer_needed)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2880 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2881 + insn = emit_move_insn (hard_frame_pointer_rtx, stack_pointer_rtx);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2882 + RTX_FRAME_RELATED_P (insn) = 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2883 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2884 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2885 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2886 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2887 +/** Expand RTL for function exit */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2888 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2889 +emit_epilogue_insns (bool sibcall_p)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2890 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2891 + unsigned int live_regs = m6809_get_live_regs ();
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2892 + unsigned int frame_size = get_frame_size ();
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2893 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2894 + if (frame_size != 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2895 + emit_insn (gen_rtx_stack_adjust (PLUS, frame_size));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2896 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2897 + if (sibcall_p)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2898 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2899 + if (live_regs)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2900 + emit_insn (gen_rtx_register_pushpop (UNSPEC_POP_RS, live_regs));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2901 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2902 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2903 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2904 + if (live_regs && !m6809_current_function_has_type_attr_p ("interrupt"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2905 + emit_insn (
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2906 + gen_rtx_register_pushpop (UNSPEC_POP_RS, PC_REGBIT \| live_regs));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2907 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2908 + if (m6809_current_function_has_type_attr_p ("interrupt"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2909 + emit_jump_insn (gen_return_rti ());
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2910 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2911 + emit_jump_insn (gen_return_rts ());
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2912 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2913 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2914 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2915 +#if 0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2916 +/** Predefine some preprocessor names according to the currently
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2917 + * selected compiler options */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2918 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2919 +m6809_cpu_cpp_builtins (void)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2920 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2921 + if (TARGET_6309)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2922 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2923 + builtin_define_std ("__M6309__");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2924 + builtin_define_std ("__m6309__");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2925 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2926 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2927 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2928 + builtin_define_std ("__M6809__");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2929 + builtin_define_std ("__m6809__");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2930 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2931 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2932 + if (TARGET_BYTE_INT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2933 + builtin_define_std ("__int8__");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2934 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2935 + builtin_define_std ("__int16__");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2936 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2937 + switch (m6809_abi_version)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2938 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2939 + case M6809_ABI_VERSION_STACK:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2940 + builtin_define_std ("__regargs__");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2941 + builtin_define_std ("__ABI_STACK__");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2942 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2943 + case M6809_ABI_VERSION_REGS:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2944 + builtin_define_std ("__ABI_REGS__");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2945 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2946 + case M6809_ABI_VERSION_BX:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2947 + builtin_define_std ("__ABI_BX__");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2948 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2949 + default:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2950 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2951 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2952 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2953 + if (TARGET_WPC)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2954 + builtin_define_std ("__WPC__");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2955 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2956 + if (TARGET_DRET)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2957 + builtin_define_std ("__DRET__");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2958 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2959 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2960 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2961 +#define MAX_ASM_ASCII_STRING 48
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2962 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2963 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2964 +m6809_output_ascii (FILE fp, const char str, unsigned long size)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2965 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2966 + unsigned long i;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2967 + bool use_ascii = true;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2968 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2969 + /* If the size is too large, then break this up into multiple
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2970 + outputs. The assembler can only output roughly 48 bytes at a
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2971 + time. Note that if there are lots of escape sequences in
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2972 + the string, this may fail. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2973 + if (size > MAX_ASM_ASCII_STRING)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2974 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2975 + m6809_output_ascii (fp, str, MAX_ASM_ASCII_STRING);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2976 + m6809_output_ascii (fp, str + MAX_ASM_ASCII_STRING,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2977 + size - MAX_ASM_ASCII_STRING);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2978 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2979 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2980 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2981 + /* Check for 8-bit codes, which cannot be embedded in an .ascii */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2982 + for (i = 0; i < size; i++)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2983 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2984 + int c = str[i] & 0377;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2985 + if (c >= 0x80)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2986 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2987 + use_ascii = false;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2988 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2989 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2990 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2991 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2992 + if (use_ascii)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2993 + fprintf (fp, "\t.ascii \"");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2994 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2995 + for (i = 0; i < size; i++)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2996 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2997 + int c = str[i] & 0377;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2998 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	2999 + if (use_ascii)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3000 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3001 + /* Just output the plain character if it is printable,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3002 + otherwise output the escape code for the character.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3003 + The assembler recognizes the same C-style octal escape sequences,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3004 + except that it only supports 7-bit codes. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3005 + if (c >= ' ' && c < 0177 && c != '\\' && c != '"')
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3006 + putc (c, fp);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3007 + else switch (c)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3008 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3009 + case '\n':
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3010 +#ifndef TARGET_COCO
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3011 + fputs ("\\n", fp);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3012 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3013 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3014 + /* On the CoCo, we fallthrough and treat '\n' like '\r'. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3015 + case '\r':
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3016 + fputs ("\\r", fp);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3017 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3018 + case '\t':
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3019 + fputs ("\\t", fp);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3020 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3021 + case '\f':
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3022 + fputs ("\\f", fp);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3023 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3024 + case 0:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3025 + fputs ("\\0", fp);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3026 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3027 + default:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3028 + fprintf (fp, "\\%03o", c);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3029 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3030 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3031 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3032 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3033 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3034 + fprintf (fp, "\t.byte\t0x%02X\n", c);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3035 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3036 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3037 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3038 + if (use_ascii)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3039 + fprintf (fp, "\"\n");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3040 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3041 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3042 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3043 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3044 +m6809_output_quoted_string (FILE asm_file, const char string)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3045 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3046 + char c;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3047 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3048 + if (strlen (string) > MAX_ASM_ASCII_STRING)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3049 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3050 + /* The string length is too large. We'll have to truncate it.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3051 + This is only called from debugging functions, so it's usually
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3052 + not critical. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3053 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3054 + char truncated_string[MAX_ASM_ASCII_STRING+1];
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3055 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3056 + /* Copy as many characters as we can. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3057 + strncpy (truncated_string, string, MAX_ASM_ASCII_STRING);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3058 + truncated_string[MAX_ASM_ASCII_STRING] = '\0';
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3059 + string = truncated_string;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3060 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3061 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3062 + /* Copied from toplev.c */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3063 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3064 + putc ('\"', asm_file);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3065 + while ((c = *string++) != 0) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3066 + if (ISPRINT (c)) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3067 + if (c == '\"' \|\| c == '\\')
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3068 + putc ('\\', asm_file);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3069 + putc (c, asm_file);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3070 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3071 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3072 + fprintf (asm_file, "\\%03o", (unsigned char) c);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3073 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3074 + putc ('\"', asm_file);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3075 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3076 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3077 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3078 +/** Output the assembly code for a shift instruction where the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3079 + * shift count is not constant. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3080 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3081 +m6809_output_shift_insn (int rtx_code, rtx *operands)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3082 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3083 + struct shift_opcode *op;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3084 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3085 + if (GET_CODE (operands[2]) == CONST_INT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3086 + abort ();
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3087 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3088 + if (optimize_size && GET_MODE (operands[0]) == HImode)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3089 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3090 + switch (rtx_code)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3091 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3092 + case ASHIFT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3093 + output_asm_insn ("jsr\t_ashlhi3", operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3094 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3095 + case ASHIFTRT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3096 + output_asm_insn ("jsr\t_ashrhi3", operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3097 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3098 + case LSHIFTRT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3099 + output_asm_insn ("jsr\t_lshrhi3", operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3100 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3101 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3102 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3103 + else if (GET_MODE (operands[0]) == HImode)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3104 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3105 + switch (rtx_code)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3106 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3107 + case ASHIFT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3108 + m6809_gen_register_shift (operands, "aslb", "rola");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3109 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3110 + case ASHIFTRT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3111 + m6809_gen_register_shift (operands, "asra", "rorb");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3112 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3113 + case LSHIFTRT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3114 + m6809_gen_register_shift (operands, "lsra", "rorb");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3115 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3116 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3117 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3118 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3119 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3120 + switch (rtx_code)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3121 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3122 + case ASHIFT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3123 + m6809_gen_register_shift (operands, "aslb", NULL);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3124 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3125 + case ASHIFTRT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3126 + m6809_gen_register_shift (operands, "asrb", NULL);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3127 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3128 + case LSHIFTRT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3129 + m6809_gen_register_shift (operands, "lsrb", NULL);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3130 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3131 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3132 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3133 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3134 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3135 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3136 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3137 +m6809_emit_move_insn (rtx dst, rtx src)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3138 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3139 + emit_insn (gen_rtx_SET (VOIDmode, dst, src));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3140 + if (ACC_A_REG_P (dst))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3141 + emit_insn (gen_rtx_USE (VOIDmode, dst));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3142 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3143 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3144 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3145 +/** Split a complex shift instruction into multiple CPU
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3146 + * shift instructions. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3147 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3148 +m6809_split_shift (enum rtx_code code, rtx *operands)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3149 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3150 + enum machine_mode mode;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3151 + int count;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3152 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3153 + mode = GET_MODE (operands[0]);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3154 + count = INTVAL (operands[2]);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3155 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3156 + /* Handle a shift count outside the range of 0 .. N-1, where
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3157 + * N is the mode size in bits. We normalize the count, and
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3158 + * for negative counts we also invert the direction of the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3159 + * shift. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3160 + if ((count < 0) \|\| (count >= 8 * GET_MODE_SIZE (mode)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3161 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3162 + if (count < 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3163 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3164 + count = -count;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3165 + code = (code == ASHIFT) ? ASHIFTRT : ASHIFT;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3166 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3167 + count %= (8 * GET_MODE_SIZE (mode));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3168 + m6809_emit_move_insn (operands[0],
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3169 + gen_rtx_fmt_ee (code, mode, operands[1],
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3170 + gen_rtx_CONST_INT (VOIDmode, count)));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3171 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3172 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3173 + /* Handle shift by zero explicitly as a no-op. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3174 + if (count == 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3175 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3176 + emit_insn (gen_nop ());
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3177 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3178 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3179 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3180 + /* Decompose the shift by a constant N > 8 into two
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3181 + * shifts, first by 8 and then by N-8.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3182 + * This "speeds up" the process for large shifts that would be
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3183 + * handled below, but allows for some optimization.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3184 + * In some cases shift by 8 can be implemented fast. If an
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3185 + * instruction to shift by 8 is defined, it will be used here;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3186 + * otherwise it will be further decomposed as below. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3187 + if (mode == HImode && count > 8)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3188 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3189 + rtx output = operands[0];
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3190 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3191 + m6809_emit_move_insn (operands[0],
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3192 + gen_rtx_fmt_ee (code, mode, operands[1],
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3193 + gen_rtx_CONST_INT (VOIDmode, 8)));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3194 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3195 + /* Unsigned shifts always produce a zero in either the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3196 + * upper or lower half of the output; then, that part
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3197 + * does not need to be shifted anymore. We modify the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3198 + * output and the subsequent instructions to operate in
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3199 + * QImode only on the relevant part. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3200 + if (REG_P (output))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3201 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3202 + if (code == ASHIFT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3203 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3204 + output = gen_rtx_REG (QImode, HARD_A_REGNUM);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3205 + mode = QImode;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3206 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3207 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3208 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3209 + output = gen_rtx_REG (QImode, HARD_D_REGNUM);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3210 + mode = QImode;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3211 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3212 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3213 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3214 + m6809_emit_move_insn (output,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3215 + gen_rtx_fmt_ee (code, mode, copy_rtx (output),
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3216 + gen_rtx_CONST_INT (VOIDmode, count-8)));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3217 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3218 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3219 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3220 + /* Rewrite the unsigned shift of an 8-bit register by a large constant N
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3221 + * (near to the maximum of 8) as a rotate and mask. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3222 + if (mode == QImode && REG_P (operands[0]) && count >= ((code == ASHIFTRT) ? 7 : 6))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3223 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3224 + unsigned int mask;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3225 + unsigned int was_signed = (code == ASHIFTRT);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3226 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3227 + code = (code == ASHIFT) ? ROTATERT : ROTATE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3228 + if (code == ROTATE)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3229 + mask = (count == 6) ? 0x03 : 0x01;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3230 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3231 + mask = (count == 6) ? 0xC0 - 0x100 : 0x80 - 0x100;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3232 + count = 9 - count;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3233 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3234 + do {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3235 + m6809_emit_move_insn (operands[0],
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3236 + gen_rtx_fmt_ee (code, QImode, operands[1], const1_rtx));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3237 + } while (--count != 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3238 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3239 + m6809_emit_move_insn (operands[0],
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3240 + gen_rtx_fmt_ee (AND, QImode, operands[1],
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3241 + gen_rtx_CONST_INT (VOIDmode, mask)));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3242 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3243 + if (was_signed)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3244 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3245 + emit_insn (gen_negqi2 (operands[0], copy_rtx (operands[0])));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3246 + if (ACC_A_REG_P (operands[0]))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3247 + emit_insn (gen_rtx_USE (VOIDmode, operands[0]));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3248 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3249 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3250 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3251 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3252 + /* Decompose the shift by any constant N > 1 into a sequence
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3253 + * of N shifts.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3254 + * This is done recursively, by creating a shift by 1 and a
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3255 + * shift by N-1, as long as N>1. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3256 + if (count > 1)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3257 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3258 + m6809_emit_move_insn (operands[0],
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3259 + gen_rtx_fmt_ee (code, mode, operands[1], const1_rtx));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3260 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3261 + m6809_emit_move_insn (operands[0],
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3262 + gen_rtx_fmt_ee (code, mode, operands[1],
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3263 + gen_rtx_CONST_INT (VOIDmode, count-1)));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3264 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3265 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3266 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3267 + /* Decompose the single shift of a 16-bit quantity into two
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3268 + * CPU instructions, one for each 8-bit half.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3269 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3270 + if (mode == HImode && count == 1)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3271 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3272 + rtx first, second;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3273 + enum rtx_code rotate_code;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3274 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3275 + rotate_code = (code == ASHIFT) ? ROTATE : ROTATERT;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3276 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3277 + /* Split the operand into two 8-bit entities.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3278 + * FIRST is the one that will get shifted via a regular CPU
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3279 + * instruction.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3280 + * SECOND is the one that will have the result of the first shift
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3281 + * rotated in.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3282 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3283 + * We initialize first and second as if we are doing a left shift,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3284 + * then swap the operands if it's a right shift.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3285 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3286 + if (REG_P (operands[0]))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3287 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3288 + first = gen_rtx_REG (QImode, HARD_D_REGNUM); /* HARD_B_REGNUM? */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3289 + second = gen_rtx_REG (QImode, HARD_A_REGNUM);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3290 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3291 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3292 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3293 + first = adjust_address (operands[0], QImode, 1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3294 + second = adjust_address (operands[0], QImode, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3295 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3296 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3297 + if (rotate_code == ROTATERT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3298 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3299 + rtx tmp; tmp = first; first = second; second = tmp;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3300 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3301 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3302 + /* Decompose into a shift and a rotate instruction. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3303 + m6809_emit_move_insn (first,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3304 + gen_rtx_fmt_ee (code, QImode, copy_rtx (first), const1_rtx));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3305 + m6809_emit_move_insn (second,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3306 + gen_rtx_fmt_ee (rotate_code, QImode, copy_rtx (second), const1_rtx));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3307 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3308 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3309 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3310 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3311 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3312 +/** Adjust register usage based on compile-time flags. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3313 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3314 +m6809_conditional_register_usage (void)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3315 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3316 + unsigned int soft_regno;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3317 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3318 +#ifdef CONFIG_SOFT_REGS_ALWAYS
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3319 + m6809_soft_regs = CONFIG_SOFT_REGS_ALWAYS;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3320 +#else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3321 + if (!m6809_soft_reg_count)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3322 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3323 + m6809_soft_regs = atoi (m6809_soft_reg_count);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3324 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3325 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3326 + if (m6809_soft_regs == 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3327 + return;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3328 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3329 + if (m6809_soft_regs > NUM_M_REGS)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3330 + m6809_soft_regs = NUM_M_REGS;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3331 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3332 + /* Registers are marked FIXED by default. Free up if
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3333 + the user wishes. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3334 + for (soft_regno = 1; soft_regno < m6809_soft_regs; soft_regno++)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3335 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3336 + fixed_regs[SOFT_M0_REGNUM + soft_regno] = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3337 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3338 + /* Mark the softregs as call-clobbered, so that they need
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3339 + * not be saved/restored on function entry/exit. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3340 + call_used_regs[SOFT_M0_REGNUM + soft_regno] = 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3341 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3342 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3343 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3344 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3345 +/** Return a RTX representing how to return a value from a function.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3346 + VALTYPE gives the type of the value, FUNC identifies the function
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3347 + itself.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3348 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3349 + In general, we only care about the width of the result. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3350 +rtx
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3351 +m6809_function_value (const tree valtype, const tree func ATTRIBUTE_UNUSED)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3352 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3353 + unsigned int regno;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3354 + enum machine_mode mode;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3355 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3356 + /* Get the mode (i.e. width) of the result. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3357 + mode = TYPE_MODE (valtype);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3358 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3359 + if (lookup_attribute ("boolean", TYPE_ATTRIBUTES (valtype)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3360 + regno = HARD_Z_REGNUM;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3361 + else if (mode == QImode \|\| (TARGET_DRET && mode == HImode))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3362 + regno = HARD_D_REGNUM;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3363 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3364 + regno = HARD_X_REGNUM;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3365 + return gen_rtx_REG (mode, regno);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3366 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3367 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3368 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3369 +/** Return 1 if REGNO is possibly needed to return the result
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3370 +of a function, 0 otherwise. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3371 +int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3372 +m6809_function_value_regno_p (unsigned int regno)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3373 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3374 + if (regno == HARD_Z_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3375 + return 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3376 + else if ((TARGET_BYTE_INT \|\| TARGET_DRET) && regno == HARD_D_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3377 + return 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3378 + else if (!TARGET_DRET && regno == HARD_X_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3379 + return 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3380 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3381 + return 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3382 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3383 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3384 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3385 +#ifdef TRACE_PEEPHOLE
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3386 +int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3387 +m6809_match_peephole2 (unsigned int peephole_id, unsigned int stage)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3388 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3389 + if (stage == PEEP_END)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3390 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3391 + printf ("%s: peephole %d pattern and predicate matched\n",
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3392 + main_input_filename, peephole_id);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3393 + fflush (stdout);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3394 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3395 + else if (stage == PEEP_COND)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3396 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3397 + printf ("%s: peephole %d? at least pattern matched\n",
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3398 + main_input_filename, peephole_id);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3399 + fflush (stdout);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3400 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3401 + return 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3402 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3403 +#else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3404 +int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3405 +m6809_match_peephole2 (unsigned int peephole_id ATTRIBUTE_UNUSED,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3406 + unsigned int stage ATTRIBUTE_UNUSED)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3407 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3408 + return 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3409 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3410 +#endif /* TRACE_PEEPHOLE */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3411 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3412 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3413 +/** Return 1 if it is OK to store a value of MODE in REGNO. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3414 +int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3415 +m6809_hard_regno_mode_ok (unsigned int regno, enum machine_mode mode)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3416 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3417 + /* Soft registers, as they are just memory, can really hold
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3418 + values of any type. However we restrict them to values of
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3419 + size HImode or QImode to prevent exhausting them for larger
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3420 + values.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3421 + Word values cannot be placed into the first soft register,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3422 + as it is the low byte that is being placed there, which
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3423 + corrupts the (non-soft) register before it. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3424 + if (M_REGNO_P (regno))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3425 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3426 + switch (GET_MODE_SIZE (mode))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3427 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3428 + case 1:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3429 + return 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3430 + case 2:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3431 + return regno != SOFT_M0_REGNUM;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3432 + default:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3433 + return 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3434 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3435 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3436 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3437 + /* VOIDmode can be stored anywhere */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3438 + else if (mode == VOIDmode)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3439 + return 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3440 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3441 + /* Zero is a reserved register, but problems occur if we don't
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3442 + say yes here??? */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3443 + else if (regno == 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3444 + return 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3445 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3446 + /* For other registers, return true only if the requested size
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3447 + exactly matches the hardware size. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3448 + else if ((G_REGNO_P (regno)) && (GET_MODE_SIZE (mode) == 2))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3449 + return 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3450 + else if ((BYTE_REGNO_P (regno)) && (GET_MODE_SIZE (mode) == 1))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3451 + return 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3452 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3453 + return 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3454 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3455 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3456 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3457 +/* exp is the call expression. DECL is the called function,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3458 + * or NULL for an indirect call */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3459 +bool
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3460 +m6809_function_ok_for_sibcall (tree decl, tree exp ATTRIBUTE_UNUSED)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3461 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3462 + tree type, arg;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3463 + const char *name;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3464 + bool result = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3465 + int argcount = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3466 + int step = 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3467 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3468 + /* If there is no DECL, it is an indirect call.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3469 + * Never optimize this??? */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3470 + if (decl == NULL)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3471 + goto done;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3472 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3473 + /* Never allow an interrupt handler to be optimized this way. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3474 + if (m6809_function_has_type_attr_p (decl, "interrupt"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3475 + goto done;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3476 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3477 + /* Skip sibcall if the type can't be found for
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3478 + * some reason */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3479 + step++;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3480 + name = IDENTIFIER_POINTER (DECL_NAME (decl));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3481 + type = TREE_TYPE (decl);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3482 + if (type == NULL)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3483 + goto done;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3484 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3485 + /* Skip sibcall if the target is a far function */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3486 + step++;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3487 + if (far_function_type_p (type) != NULL)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3488 + goto done;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3489 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3490 + /* Skip sibcall if the called function's arguments are
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3491 + * variable */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3492 + step++;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3493 + if (TYPE_ARG_TYPES (type) == NULL)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3494 + goto done;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3495 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3496 + /* Allow sibcalls in other cases. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3497 + result = 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3498 +done:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3499 + /* printf ("%s ok for sibcall? %s, step %d, args %d\n", name, result ? "yes" : "no", step, argcount); */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3500 + return result;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3501 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3502 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3503 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3504 +/** Emit code for the 'casesi' pattern.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3505 + * This pattern is only used in 8-bit mode, and can be disabled
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3506 + * with -mold-case there as well. The rationale for this is to
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3507 + * do a better job than the simpler but well-tested 'tablejump'
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3508 + * method.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3509 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3510 + * For small jumptables, where the switch expression is an
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3511 + * 8-bit value, the lookup can be done more efficiently
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3512 + * using the "B,X" style index mode. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3513 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3514 +m6809_do_casesi (rtx index, rtx lower_bound, rtx range,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3515 + rtx table_label, rtx default_label)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3516 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3517 + enum machine_mode mode;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3518 + rtx scaled;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3519 + rtx table_in_reg;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3520 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3521 + /* expr.c has to be patched so that it does not promote
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3522 + * the expression to SImode, but rather to HImode.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3523 + * Fail now if that isn't the case. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3524 + if (GET_MODE_SIZE (GET_MODE (index)) > GET_MODE_SIZE (HImode))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3525 + error ("try_casesi promotion bug");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3526 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3527 + /* Determine whether or not we are going to work primarily in
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3528 + * QImode or HImode. This depends on the size of the index
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3529 + * into the lookup table. QImode can only be used when the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3530 + * index is less than 0x40, since it will be doubled but
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3531 + * must remain unsigned. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3532 + if ((GET_CODE (range) == CONST_INT) && (INTVAL (range) < 0x40))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3533 + mode = QImode;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3534 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3535 + mode = HImode;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3536 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3537 + /* Convert to QImode if necessary */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3538 + if (mode == QImode)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3539 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3540 + index = gen_lowpart_general (mode, index);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3541 + lower_bound = gen_lowpart_general (mode, lower_bound);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3542 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3543 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3544 + /* Translate from case value to table index by subtraction */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3545 + if (lower_bound != const0_rtx)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3546 + index = expand_binop (mode, sub_optab, index, lower_bound,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3547 + NULL_RTX, 0, OPTAB_LIB_WIDEN);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3548 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3549 + /* Emit compare-and-jump to test for index out-of-range */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3550 + emit_cmp_and_jump_insns (index, range, GTU, NULL_RTX, mode, 1,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3551 + default_label);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3552 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3553 + /* Put the table address is in a register */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3554 + table_in_reg = gen_reg_rtx (Pmode);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3555 + emit_move_insn (table_in_reg, gen_rtx_LABEL_REF (Pmode, table_label));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3556 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3557 + /* Emit table lookup and jump */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3558 + if (mode == QImode)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3559 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3560 + /* Scale the index */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3561 + scaled = gen_reg_rtx (QImode);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3562 + emit_insn (gen_ashlqi3 (scaled, index, const1_rtx));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3563 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3564 + /* Emit the jump */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3565 + emit_jump_insn (gen_tablejump_short_offset (scaled, table_in_reg));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3566 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3567 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3568 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3569 + /* Scale the index */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3570 + emit_insn (gen_ashlhi3 (index, index, const1_rtx));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3571 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3572 + /* Emit the jump */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3573 + emit_jump_insn (gen_tablejump_long_offset (index, table_in_reg));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3574 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3575 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3576 + /* Copied from expr.c */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3577 + if (!CASE_VECTOR_PC_RELATIVE && !flag_pic)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3578 + emit_barrier ();
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3579 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3580 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3581 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3582 +/** Output the assembly code for a 32-bit add/subtract. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3583 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3584 +m6809_output_addsi3 (int rtx_code, rtx *operands)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3585 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3586 + rtx xoperands[8];
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3587 + rtx dst = operands[0];
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3588 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3589 + /* Prepare the operands by splitting each SImode into two HImodes
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3590 + that can be operated independently. The high word of operand 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3591 + is further divided into two QImode components for use with 'adc'
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3592 + style instructions. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3593 + xoperands[7] = operands[3];
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3594 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3595 + xoperands[0] = adjust_address (dst, HImode, 2);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3596 + xoperands[3] = adjust_address (dst, HImode, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3597 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3598 +#if 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3599 + xoperands[2] = adjust_address (operands[1], HImode, 2);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3600 + xoperands[6] = adjust_address (operands[1], HImode, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3601 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3602 + /* Operand 2 may be a MEM or a CONST_INT */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3603 + if (GET_CODE (operands[2]) == CONST_INT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3604 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3605 + xoperands[1] = gen_int_mode (INTVAL (operands[2]) & 0xFFFF, HImode);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3606 + xoperands[4] = gen_int_mode ((INTVAL (operands[2]) >> 24) & 0xFF, QImode);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3607 + xoperands[5] = gen_int_mode ((INTVAL (operands[2]) >> 16) & 0xFF, QImode);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3608 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3609 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3610 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3611 + xoperands[1] = adjust_address (operands[2], HImode, 2);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3612 + xoperands[4] = adjust_address (operands[2], QImode, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3613 + xoperands[5] = adjust_address (operands[2], QImode, 1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3614 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3615 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3616 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3617 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3618 +#if 0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3619 + xoperands[1] = adjust_address (operands[1], HImode, 2);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3620 + xoperands[4] = adjust_address (operands[1], QImode, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3621 + xoperands[5] = adjust_address (operands[1], QImode, 1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3622 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3623 + /* Operand 2 may be a MEM or a CONST_INT */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3624 + if (GET_CODE (operands[2]) == CONST_INT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3625 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3626 + xoperands[2] = gen_int_mode ((INTVAL (operands[2])) & 0xFFFF, HImode);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3627 + xoperands[6] = gen_int_mode ((INTVAL (operands[2]) >> 16) & 0xFFFF, HImode);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3628 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3629 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3630 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3631 + xoperands[2] = adjust_address (operands[2], HImode, 2);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3632 + xoperands[6] = adjust_address (operands[2], HImode, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3633 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3634 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3635 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3636 + /* Output the assembly code. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3637 + if (rtx_code == PLUS)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3638 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3639 + output_asm_insn ("ld%7\t%2", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3640 + output_asm_insn ("add%7\t%1", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3641 + output_asm_insn ("st%7\t%0", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3642 + output_asm_insn ("ld%7\t%6", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3643 + output_asm_insn ("adcb\t%5", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3644 + output_asm_insn ("adca\t%4", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3645 + output_asm_insn ("st%7\t%3", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3646 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3647 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3648 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3649 + output_asm_insn ("ld%7\t%2", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3650 + output_asm_insn ("sub%7\t%1", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3651 + output_asm_insn ("st%7\t%0", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3652 + output_asm_insn ("ld%7\t%6", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3653 + output_asm_insn ("sbcb\t%5", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3654 + output_asm_insn ("sbca\t%4", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3655 + output_asm_insn ("st%7\t%3", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3656 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3657 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3658 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3659 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3660 +#if 0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3661 +/** Output the assembly code for a 32-bit shift.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3662 +Operands 0 and 1 must be the same rtx, forced by a matching
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3663 +constraint. Operand 2 must be a CONST_INT. Operand 3 is
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3664 +"d" in case a temporary reg is needed. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3665 +void
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3666 +m6809_output_shiftsi3 (int rtx_code, rtx *operands)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3667 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3668 + unsigned int count = INTVAL (operands[2]) % 32;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3669 + unsigned int size = 4; /* sizeof (SImode) */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3670 + int s;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3671 + rtx xoperands[4];
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3672 + int op;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3673 + int start, end, step;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3674 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3675 + /* Initialize */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3676 + if (rtx_code == ASHIFT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3677 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3678 + start = size-1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3679 + end = -1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3680 + step = -1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3681 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3682 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3683 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3684 + start = 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3685 + end = size;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3686 + step = 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3687 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3688 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3689 + xoperands[2] = operands[2];
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3690 + xoperands[3] = operands[3];
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3691 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3692 + if (count <= 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3693 + abort ();
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3694 + if (rtx_code == ROTATE \|\| rtx_code == ROTATERT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3695 + abort ();
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3696 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3697 + /* Extract bit shifts over 16 bits by HImode moves. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3698 + if (count >= 16)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3699 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3700 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3701 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3702 + /* Extract bit shifts over 8 bits by QImode moves. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3703 + if (count >= 8)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3704 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3705 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3706 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3707 + /* Iterate over the number of bits to be shifted. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3708 + while (count > 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3709 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3710 + /* Each bit to be shifted requires 1 proper bit shift
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3711 + and 3 rotates. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3712 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3713 + /* First, do the arithmetic/logical shift. Left shifts
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3714 + start from the LSB; right shifts start from the MSB. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3715 + xoperands[0] = adjust_address (operands[0], QImode, start);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3716 + switch (rtx_code)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3717 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3718 + case ASHIFT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3719 + output_asm_insn ("asl\t%0", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3720 + start--;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3721 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3722 + case ASHIFTRT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3723 + output_asm_insn ("asr\t%0", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3724 + start++;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3725 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3726 + case LSHIFTRT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3727 + output_asm_insn ("lsr\t%0", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3728 + start++;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3729 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3730 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3731 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3732 + /* Next, rotate the other bytes */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3733 + for (s = start; s != end; s += step)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3734 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3735 + xoperands[0] = adjust_address (operands[0], QImode, s);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3736 + switch (rtx_code)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3737 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3738 + case ASHIFT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3739 + output_asm_insn ("rol\t%0", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3740 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3741 + case ASHIFTRT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3742 + case LSHIFTRT:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3743 + output_asm_insn ("ror\t%0", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3744 + break;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3745 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3746 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3747 + count--;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3748 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3749 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3750 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3751 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3752 +int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3753 +power_of_two_p (unsigned int n)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3754 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3755 + return (n & (n-1)) == 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3756 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3757 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3758 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3759 +int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3760 +m6809_can_eliminate (int from, int to)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3761 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3762 + if (from == ARG_POINTER_REGNUM && to == STACK_POINTER_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3763 + return !frame_pointer_needed;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3764 + return 1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3765 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3766 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3767 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3768 +int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3769 +m6809_initial_elimination_offset (int from, int to)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3770 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3771 + switch (from)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3772 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3773 + case ARG_POINTER_REGNUM:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3774 + return get_frame_size () + m6809_get_regs_size (m6809_get_live_regs ());
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3775 + case FRAME_POINTER_REGNUM:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3776 + return get_frame_size ();
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3777 + default:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3778 + gcc_unreachable ();
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3779 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3780 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3781 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3782 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3783 +bool
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3784 +m6809_frame_pointer_required (void)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3785 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3786 + return false;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3787 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3788 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3789 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3790 +/* Defines the target-specific hooks structure. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3791 +struct gcc_target targetm = TARGET_INITIALIZER;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3792 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.h gcc-4.6.4/gcc/config/m6809/m6809.h
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3793 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.h 1969-12-31 17:00:00.000000000 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3794 +++ gcc-4.6.4/gcc/config/m6809/m6809.h 2017-11-28 21:17:43.127091341 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3795 @@ -0,0 +1,1336 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3796 +/* Definitions of target machine for GNU compiler. MC6809 version.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3797 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3798 + MC6809 Version by Tom Jones (jones@sal.wisc.edu)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3799 + Space Astronomy Laboratory
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3800 + University of Wisconsin at Madison
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3801 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3802 + minor changes to adapt it to gcc-2.5.8 by Matthias Doerfel
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3803 + ( msdoerfe@informatik.uni-erlangen.de )
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3804 + also added #pragma interrupt (inspired by gcc-6811)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3805 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3806 + minor changes to adapt it to gcc-2.8.0 by Eric Botcazou
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3807 + (ebotcazou@multimania.com)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3808 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3809 + minor changes to adapt it to egcs-1.1.2 by Eric Botcazou
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3810 + (ebotcazou@multimania.com)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3811 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3812 + minor changes to adapt it to gcc-2.95.3 by Eric Botcazou
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3813 + (ebotcazou@multimania.com)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3814 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3815 + changes for gcc-3.1.1 by ???
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3816 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3817 + further changes for gcc-3.1.1 and beyond by Brian Dominy
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3818 + (brian@oddchange.com)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3819 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3820 + even more changes for gcc-4.6.1 by William Astle (lost@l-w.ca)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3821 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3822 +This file is part of GCC.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3823 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3824 +GCC is free software; you can redistribute it and/or modify
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3825 +it under the terms of the GNU General Public License as published by
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3826 +the Free Software Foundation; either version 3, or (at your option)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3827 +any later version.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3828 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3829 +GCC is distributed in the hope that it will be useful,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3830 +but WITHOUT ANY WARRANTY; without even the implied warranty of
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3831 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3832 +GNU General Public License for more details.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3833 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3834 +You should have received a copy of the GNU General Public License
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3835 +along with GCC; see the file COPYING3. If not see
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3836 +<http://www.gnu.org/licenses/>. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3837 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3838 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3839 +/* Helper macros for creating strings with macros */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3840 +#define C_STRING(x) C_STR(x)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3841 +#define C_STR(x) #x
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3842 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3843 +/* Certain parts of GCC include host-side includes, which is bad.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3844 + * Some things that get pulled in need to be undone.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3845 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3846 +#undef HAVE_GAS_HIDDEN
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3847 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3848 +/* Names to predefine in the preprocessor for this target machine. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3849 +/#define TARGET_CPU_CPP_BUILTINS() m6809_cpu_cpp_builtins () /
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3850 +#define TARGET_CPU_CPP_BUILTINS() do \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3851 + { \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3852 + if (TARGET_6309) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3853 + { \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3854 + builtin_define_std ("__M6309__"); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3855 + builtin_define_std ("__m6309__"); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3856 + } \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3857 + else \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3858 + { \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3859 + builtin_define_std ("__M6809__"); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3860 + builtin_define_std ("__m6809__"); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3861 + } \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3862 + \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3863 + if (TARGET_BYTE_INT) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3864 + builtin_define_std ("__int8__"); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3865 + else \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3866 + builtin_define_std ("__int16__"); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3867 + \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3868 + switch (m6809_abi_version) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3869 + { \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3870 + case M6809_ABI_VERSION_STACK: \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3871 + builtin_define_std ("__regargs__"); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3872 + builtin_define_std ("__ABI_STACK__"); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3873 + break; \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3874 + case M6809_ABI_VERSION_REGS: \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3875 + builtin_define_std ("__ABI_REGS__"); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3876 + break; \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3877 + case M6809_ABI_VERSION_BX: \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3878 + builtin_define_std ("__ABI_BX__"); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3879 + break; \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3880 + default: \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3881 + break; \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3882 + } \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3883 + \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3884 + if (TARGET_WPC) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3885 + builtin_define_std ("__WPC__"); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3886 + \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3887 + if (TARGET_DRET) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3888 + builtin_define_std ("__DRET__"); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3889 + } while (0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3890 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3891 +/* As an embedded target, we have no libc. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3892 +#ifndef inhibit_libc
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3893 +#define inhibit_libc
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3894 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3895 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3896 +/* Print subsidiary information on the compiler version in use. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3897 +#define TARGET_VERSION fprintf (stderr, " (MC6809)");
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3898 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3899 +/* Run-time compilation parameters selecting different hardware subsets. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3900 +/extern int target_flags; /
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3901 +extern short reg_renumber; / def in local_alloc.c */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3902 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3903 +/* Runtime current values of section names */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3904 +extern int section_changed;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3905 +extern char code_section_op[], data_section_op[], bss_section_op[];
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3906 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3907 +#define WARNING_OPT 0,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3908 +/extern const char m6809_abi_version_ptr; */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3909 +extern unsigned int m6809_soft_regs;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3910 +extern unsigned int m6809_abi_version;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3911 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3912 +/* ABI versions */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3913 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3914 +#define M6809_ABI_VERSION_STACK 0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3915 +#define M6809_ABI_VERSION_REGS 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3916 +#define M6809_ABI_VERSION_BX 2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3917 +#define M6809_ABI_VERSION_LATEST (M6809_ABI_VERSION_BX)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3918 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3919 +/* Allow $ in identifiers */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3920 +#define DOLLARS_IN_IDENTIFIERS 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3921 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3922 +/*--------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3923 + Target machine storage layout
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3924 +--------------------------------------------------------------*/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3925 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3926 +/* Define this if most significant bit is lowest numbered
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3927 + in instructions that operate on numbered bit-fields. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3928 +#define BITS_BIG_ENDIAN 0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3929 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3930 +/* Define to 1 if most significant byte of a word is the lowest numbered. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3931 +#define BYTES_BIG_ENDIAN 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3932 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3933 +/* Define to 1 if most significant word of a multiword value is the lowest numbered. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3934 +#define WORDS_BIG_ENDIAN 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3935 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3936 +/* Number of bits in an addressible storage unit */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3937 +#define BITS_PER_UNIT 8
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3938 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3939 +/* Width in bits of a "word", or the contents of a machine register.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3940 + * Although the 6809 has a few byte registers, define this to 16-bits
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3941 + * since this is the natural size of most registers. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3942 +#define BITS_PER_WORD 16
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3943 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3944 +/* Width of a word, in units (bytes). */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3945 +#define UNITS_PER_WORD (BITS_PER_WORD/8)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3946 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3947 +/* Width in bits of a pointer. See also the macro `Pmode' defined below. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3948 +#define POINTER_SIZE 16
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3949 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3950 +/* Allocation boundary (bits) for storing pointers in memory. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3951 +#define POINTER_BOUNDARY 8
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3952 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3953 +/* Allocation boundary (bits) for storing arguments in argument list. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3954 +/* PARM_BOUNDARY is divided by BITS_PER_WORD in expr.c -- tej */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3955 +#define PARM_BOUNDARY 8
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3956 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3957 +/* Boundary (bits) on which stack pointer should be aligned. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3958 +#define STACK_BOUNDARY 8
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3959 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3960 +/* Allocation boundary (bits) for the code of a function. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3961 +#define FUNCTION_BOUNDARY 8
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3962 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3963 +/* Alignment of field after `int : 0' in a structure. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3964 +#define EMPTY_FIELD_BOUNDARY 8
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3965 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3966 +/* Every structure's size must be a multiple of this. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3967 +#define STRUCTURE_SIZE_BOUNDARY 8
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3968 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3969 +/* Largest mode size to use when putting an object, including
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3970 + * a structure, into a register. By limiting this to 16, no
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3971 + * 32-bit objects will ever be allocated to a pair of hard
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3972 + * registers. This is a good thing, since there aren't that
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3973 + * many of them. 32-bit objects are only needed for floats
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3974 + * and "long long"s. Larger values have been tried and did not
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3975 + * work. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3976 +#define MAX_FIXED_MODE_SIZE 16
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3977 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3978 +/* No data type wants to be aligned rounder than this. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3979 +#define BIGGEST_ALIGNMENT 8
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3980 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3981 +/* Define this if move instructions will actually fail to work
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3982 + when given unaligned data. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3983 +#define STRICT_ALIGNMENT 0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3984 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3985 +/*--------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3986 + Standard register usage.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3987 +--------------------------------------------------------------*/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3988 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3989 +/* Register values as bitmasks.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3990 + * TODO : merge D_REGBIT and B_REGBIT, and treat this as the same
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3991 + * register. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3992 +#define RSVD1_REGBIT (1 << HARD_RSVD1_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3993 +#define D_REGBIT (1 << HARD_D_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3994 +#define X_REGBIT (1 << HARD_X_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3995 +#define Y_REGBIT (1 << HARD_Y_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3996 +#define U_REGBIT (1 << HARD_U_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3997 +#define S_REGBIT (1 << HARD_S_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3998 +#define PC_REGBIT (1 << HARD_PC_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	3999 +#define Z_REGBIT (1 << HARD_Z_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4000 +#define A_REGBIT (1 << HARD_A_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4001 +#define B_REGBIT (1 << HARD_B_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4002 +#define CC_REGBIT (1 << HARD_CC_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4003 +#define DP_REGBIT (1 << HARD_DP_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4004 +#define SOFT_FP_REGBIT (1 << SOFT_FP_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4005 +#define SOFT_AP_REGBIT (1 << SOFT_AP_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4006 +#define M_REGBIT(n) (1 << (SOFT_M0_REGNUM + n))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4007 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4008 +/* Macros for dealing with set of registers.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4009 + * A register set is just a bitwise-OR of all the register
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4010 + * bitmask values. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4011 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4012 +/* Which registers can hold 8-bits */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4013 +#define BYTE_REGSET \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4014 + (Z_REGBIT \| A_REGBIT \| D_REGBIT \| CC_REGBIT \| DP_REGBIT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4015 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4016 +/* Which registers can hold 16-bits.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4017 + * Note: D_REGBIT is defined as both an 8-bit and 16-bit register */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4018 +#define WORD_REGSET \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4019 + (D_REGBIT \| X_REGBIT \| Y_REGBIT \| U_REGBIT \| S_REGBIT \| PC_REGBIT \| SOFT_FP_REGBIT \| SOFT_AP_REGBIT \| RSVD1_REGBIT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4020 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4021 +/* Returns nonzero if a given REGNO is in the REGSET. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4022 +#define REGSET_CONTAINS_P(regno, regset) (((1 << (regno)) & (regset)) != 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4023 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4024 +/* Defines related to the number of soft registers supported.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4025 + * The actual number used may be less depending on -msoft-reg-count.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4026 + * If you change one of these, you should change them all. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4027 +#define NUM_M_REGS 8
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4028 +#define M_REGS_FIXED 1, 1, 1, 1, 1, 1, 1, 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4029 +#define M_REGS_CALL_USED 1, 1, 1, 1, 1, 1, 1, 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4030 +#define HARD_M_REGNUMS \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4031 + SOFT_M0_REGNUM+0, SOFT_M0_REGNUM+1, SOFT_M0_REGNUM+2, SOFT_M0_REGNUM+3, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4032 + SOFT_M0_REGNUM+4, SOFT_M0_REGNUM+5, SOFT_M0_REGNUM+6, SOFT_M0_REGNUM+7
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4033 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4034 +#define SOFT_M_REGBITS (((1UL << NUM_M_REGS) - 1) << (SOFT_M0_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4035 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4036 +/* Number of actual hardware registers.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4037 + The hardware registers are assigned numbers for the compiler
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4038 + from 0 to just below FIRST_PSEUDO_REGISTER.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4039 + All registers that the compiler knows about must be given numbers,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4040 + even those that are not normally considered general registers.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4041 + Make sure the constant below matches the value of SOFT_M0_REGNUM;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4042 + for some reason, GCC won't compile if that name is used here directly. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4043 +#ifdef SOFT_M0_REGNUM
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4044 +#if (SOFT_M0_REGNUM != 14)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4045 +#error "bad register numbering"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4046 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4047 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4048 +#define FIRST_PSEUDO_REGISTER (14 + NUM_M_REGS)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4049 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4050 +/* 1 for registers that have pervasive standard uses
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4051 + and are not available for the register allocator.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4052 + The psuedoregisters (M_REGS) are declared fixed here, but
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4053 + will be unfixed if -msoft-reg-count is seen later. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4054 +#define FIXED_REGISTERS \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4055 + {1, 0, 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, M_REGS_FIXED, }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4056 + /* -, X, Y, U, S, PC,D, Z, A, B, C, DP,FP,AP,M... */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4057 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4058 +/* 1 for registers not available across function calls.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4059 + These must include the FIXED_REGISTERS and also any
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4060 + registers that can be used without being saved.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4061 + The latter must include the registers where values are returned
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4062 + and the register where structure-value addresses are passed.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4063 + Aside from that, you can include as many other registers as you like. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4064 +#define CALL_USED_REGISTERS \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4065 + {1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, M_REGS_CALL_USED, }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4066 + /* -, X, Y, U, S, PC,D, Z, A, B, C, DP,FP,AP,M... */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4067 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4068 +/* Return number of consecutive hard regs needed starting at reg REGNO
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4069 + to hold something of mode MODE.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4070 + For the 6809, we distinguish between word-length and byte-length
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4071 + registers. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4072 +#define HARD_REGNO_NREGS(REGNO, MODE) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4073 + (REGSET_CONTAINS_P (REGNO, WORD_REGSET) ? \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4074 + ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD) : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4075 + (GET_MODE_SIZE (MODE)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4076 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4077 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4078 +/* Value is 1 if hard register REGNO can hold a value
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4079 +of machine-mode MODE. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4080 +#define HARD_REGNO_MODE_OK(REGNO, MODE) m6809_hard_regno_mode_ok (REGNO, MODE)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4081 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4082 +/* Value is 1 if it is a good idea to tie two pseudo registers
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4083 + when one has mode MODE1 and one has mode MODE2.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4084 + If HARD_REGNO_MODE_OK could produce different values for MODE1 and MODE2,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4085 + for any hard reg, then this must be 0 for correct output. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4086 +#define MODES_TIEABLE_P(MODE1, MODE2) 0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4087 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4088 +/* Specify the registers used for certain standard purposes.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4089 + The values of these macros are register numbers. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4090 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4091 +/* program counter if referenced as a register */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4092 +#define PC_REGNUM HARD_PC_REGNUM
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4093 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4094 +/* Register to use for pushing function arguments. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4095 +#define STACK_POINTER_REGNUM HARD_S_REGNUM
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4096 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4097 +/* Base register for access to local variables of the function.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4098 + * Before reload, FRAME_POINTER_REGNUM will be used. Later,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4099 + * the elimination pass will convert these to STACK_POINTER_REGNUM
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4100 + * if possible, or else HARD_FRAME_POINTER_REGNUM. The idea is to
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4101 + * avoid tying up a hard register (U) for the frame pointer if
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4102 + * it can be eliminated entirely, making it available for use as
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4103 + * a general register. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4104 +#define FRAME_POINTER_REGNUM SOFT_FP_REGNUM
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4105 +#define HARD_FRAME_POINTER_REGNUM HARD_U_REGNUM
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4106 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4107 +/* Define a table of possible eliminations.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4108 + * The idea is to try to avoid using hard registers for the argument
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4109 + * and frame pointers if they can be derived from the stack pointer
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4110 + * instead, which already has a hard register reserved for it.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4111 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4112 + * The order of entries in this table will try to convert
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4113 + * ARG_POINTER_REGNUM and FRAME_POINTER_REGNUM into stack pointer
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4114 + * references first, but if that fails, they will be converted to use
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4115 + * HARD_FRAME_POINTER_REGNUM.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4116 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4117 +#define ELIMINABLE_REGS \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4118 +{{ ARG_POINTER_REGNUM, STACK_POINTER_REGNUM }, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4119 + { ARG_POINTER_REGNUM, HARD_FRAME_POINTER_REGNUM }, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4120 + { FRAME_POINTER_REGNUM, STACK_POINTER_REGNUM }, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4121 + { FRAME_POINTER_REGNUM, HARD_FRAME_POINTER_REGNUM }}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4122 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4123 +/* #define CAN_ELIMINATE(FROM, TO) m6809_can_eliminate (FROM, TO) */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4124 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4125 +/* Define how to offset the frame or argument pointer to turn it
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4126 + * into a stack pointer reference. This is based on the way that
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4127 + * the frame is constructed in the function prologue. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4128 +#define INITIAL_ELIMINATION_OFFSET(FROM, TO, OFFSET) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4129 + (OFFSET) = m6809_initial_elimination_offset (FROM, TO)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4130 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4131 +/* Base register for access to arguments of the function.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4132 + * This is only used prior to reload; no instructions will ever
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4133 + * be output referring to this register. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4134 +#define ARG_POINTER_REGNUM SOFT_AP_REGNUM
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4135 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4136 +/* Register in which static-chain is passed to a function. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4137 +#define STATIC_CHAIN_REGNUM HARD_Y_REGNUM
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4138 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4139 +/* #define CONDITIONAL_REGISTER_USAGE (m6809_conditional_register_usage ()) */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4140 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4141 +/* Order in which hard registers are allocated to pseudos.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4142 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4143 + * Since the D register is the only valid reg for 8-bit values
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4144 + * now, avoid using it for 16-bit values by putting it after all
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4145 + * other 16-bits.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4146 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4147 + * Prefer X first since the first 16-bit function argument goes
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4148 + * there. We may be able to pass in to a subroutine without
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4149 + * a copy.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4150 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4151 + * Prefer U over Y since instructions using Y take one extra
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4152 + * byte, and thus one extra cycle to execute.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4153 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4154 +#define REG_ALLOC_ORDER \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4155 + { HARD_X_REGNUM, HARD_U_REGNUM, HARD_Y_REGNUM, HARD_D_REGNUM, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4156 + HARD_M_REGNUMS, HARD_S_REGNUM, HARD_PC_REGNUM, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4157 + HARD_B_REGNUM, HARD_A_REGNUM, HARD_CC_REGNUM, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4158 + HARD_DP_REGNUM, SOFT_FP_REGNUM, SOFT_AP_REGNUM, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4159 + 6, HARD_Z_REGNUM }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4160 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4161 +/*--------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4162 + classes of registers
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4163 +--------------------------------------------------------------*/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4164 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4165 +/* Define the classes of registers for register constraints in the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4166 + machine description. Also define ranges of constants.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4167 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4168 + One of the classes must always be named ALL_REGS and include all hard regs.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4169 + If there is more than one class, another class must be named NO_REGS
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4170 + and contain no registers.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4171 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4172 + The name GENERAL_REGS must be the name of a class (or an alias for
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4173 + another name such as ALL_REGS). This is the class of registers
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4174 + that is allowed by "g" or "r" in a register constraint.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4175 + Also, registers outside this class are allocated only when
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4176 + instructions express preferences for them.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4177 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4178 + The classes must be numbered in nondecreasing order; that is,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4179 + a larger-numbered class must never be contained completely
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4180 + in a smaller-numbered class.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4181 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4182 + For any two classes, it is very desirable that there be another
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4183 + class that represents their union. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4184 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4185 +enum reg_class {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4186 + NO_REGS, /* The trivial class with no registers in it */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4187 + D_REGS, /* 16-bit (word (HI)) data (D) */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4188 + ACC_A_REGS, /* The A register */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4189 + ACC_B_REGS, /* The B register */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4190 + X_REGS, /* The X register */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4191 + Z_REGS, /* The Z (zero-bit) register */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4192 + Q_REGS, /* 8-bit (byte (QI)) data (A,B) */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4193 + M_REGS, /* 8-bit (byte (QI)) soft registers */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4194 + CC_REGS, /* 8-bit condition code register */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4195 + I_REGS, /* An index register (A,B,D) */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4196 + T_REGS, /* 16-bit addresses, not including stack or PC (X,Y,U) */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4197 + A_REGS, /* 16-bit addresses (X,Y,U,S,PC) */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4198 + S_REGS, /* 16-bit soft registers (FP, AP) */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4199 + P_REGS, /* 16-bit pushable registers (D,X,Y,U); omit PC and S */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4200 + G_REGS, /* 16-bit data and address (D,X,Y,U,S,PC) */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4201 + ALL_REGS, /* All registers */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4202 + LIM_REG_CLASSES
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4203 +};
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4204 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4205 +#define N_REG_CLASSES (int) LIM_REG_CLASSES
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4206 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4207 +/* Since GENERAL_REGS is a smaller class than ALL_REGS,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4208 + it is not an alias to ALL_REGS, but to G_REGS. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4209 +#define GENERAL_REGS G_REGS
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4210 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4211 +/* Give names of register classes as strings for dump file. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4212 +#define REG_CLASS_NAMES \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4213 + { "NO_REGS", "D_REGS", "ACC_A_REGS", "ACC_B_REGS", "X_REGS", "Z_REGS", "Q_REGS", "M_REGS", \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4214 + "CC_REGS", "I_REGS", "T_REGS", "A_REGS", "S_REGS", "P_REGS", "G_REGS", \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4215 + "ALL_REGS" }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4216 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4217 +/* Define which registers fit in which classes.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4218 + This is an initializer for a vector of HARD_REG_SET
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4219 + of length N_REG_CLASSES. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4220 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4221 +#define D_REGSET (D_REGBIT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4222 +#define ACC_A_REGSET (A_REGBIT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4223 +#define ACC_B_REGSET (D_REGBIT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4224 +#define X_REGSET (X_REGBIT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4225 +#define Z_REGSET (Z_REGBIT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4226 +#define Q_REGSET (D_REGBIT \| A_REGBIT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4227 +#define M_REGSET (SOFT_M_REGBITS)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4228 +#define CC_REGSET (CC_REGBIT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4229 +#define I_REGSET (A_REGBIT \| B_REGBIT \| D_REGBIT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4230 +#define T_REGSET (X_REGBIT \| Y_REGBIT \| U_REGBIT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4231 +#define A_REGSET (X_REGBIT \| Y_REGBIT \| U_REGBIT \| S_REGBIT \| PC_REGBIT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4232 +#define S_REGSET (SOFT_FP_REGBIT \| SOFT_AP_REGBIT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4233 +#define P_REGSET (D_REGBIT \| X_REGBIT \| Y_REGBIT \| U_REGBIT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4234 +#define G_REGSET \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4235 + (D_REGSET \| Q_REGSET \| I_REGSET \| A_REGSET \| M_REGSET \| S_REGSET)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4236 +#define ALL_REGSET (G_REGSET)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4237 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4238 +#define REG_CLASS_CONTENTS { \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4239 + {0}, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4240 + {D_REGSET}, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4241 + {ACC_A_REGSET}, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4242 + {ACC_B_REGSET}, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4243 + {X_REGSET}, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4244 + {Z_REGSET}, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4245 + {Q_REGSET}, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4246 + {M_REGSET}, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4247 + {CC_REGSET}, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4248 + {I_REGSET}, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4249 + {T_REGSET}, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4250 + {A_REGSET}, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4251 + {S_REGSET}, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4252 + {P_REGSET}, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4253 + {G_REGSET}, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4254 + {ALL_REGSET}, \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4255 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4256 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4257 +/* The same information, inverted.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4258 + * This is defined to use the REG_CLASS_CONTENTS defines above, so that
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4259 + * these two sets of definitions are always consistent. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4260 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4261 +#define REGNO_REG_CLASS(REGNO) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4262 + (D_REGNO_P (REGNO) ? D_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4263 + (Z_REGNO_P (REGNO) ? Z_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4264 + (ACC_A_REGNO_P (REGNO) ? ACC_A_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4265 + (ACC_B_REGNO_P (REGNO) ? ACC_B_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4266 + (X_REGNO_P (REGNO) ? X_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4267 + (Q_REGNO_P (REGNO) ? Q_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4268 + (M_REGNO_P (REGNO) ? M_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4269 + (CC_REGNO_P (REGNO) ? CC_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4270 + (I_REGNO_P (REGNO) ? I_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4271 + (T_REGNO_P (REGNO) ? T_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4272 + (A_REGNO_P (REGNO) ? A_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4273 + (S_REGNO_P (REGNO) ? S_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4274 + (P_REGNO_P (REGNO) ? P_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4275 + (G_REGNO_P (REGNO) ? G_REGS : ALL_REGS))))))))))))))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4276 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4277 +#define D_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, D_REGSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4278 +#define ACC_A_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, ACC_A_REGSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4279 +#define ACC_B_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, ACC_B_REGSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4280 +#define X_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, X_REGSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4281 +#define Z_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, Z_REGSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4282 +#define Q_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, Q_REGSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4283 +#define M_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, M_REGSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4284 +#define CC_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, CC_REGSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4285 +#define I_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, I_REGSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4286 +#define T_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, T_REGSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4287 +#define A_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, A_REGSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4288 +#define S_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, S_REGSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4289 +#define P_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, P_REGSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4290 +#define G_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, G_REGSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4291 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4292 +/* Macros that test an rtx 'X' to see if it's in a particular
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4293 + * register class. 'X' need not be a REG necessarily. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4294 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4295 +#define D_REG_P(X) (REG_P (X) && D_REGNO_P (REGNO (X)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4296 +#define ACC_A_REG_P(X) (REG_P (X) && ACC_A_REGNO_P (REGNO (X)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4297 +#define ACC_B_REG_P(X) (REG_P (X) && ACC_B_REGNO_P (REGNO (X)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4298 +#define X_REG_P(X) (REG_P (X) && X_REGNO_P (REGNO (X)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4299 +#define Z_REG_P(X) (REG_P (X) && Z_REGNO_P (REGNO (X)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4300 +#define I_REG_P(X) (REG_P (X) && I_REGNO_P (REGNO (X)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4301 +#define T_REG_P(X) (REG_P (X) && T_REGNO_P (REGNO (X)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4302 +#define A_REG_P(X) (REG_P (X) && A_REGNO_P (REGNO (X)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4303 +#define S_REG_P(X) (REG_P (X) && S_REGNO_P (REGNO (X)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4304 +#define P_REG_P(X) (REG_P (X) && P_REGNO_P (REGNO (X)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4305 +#define Q_REG_P(X) (REG_P (X) && Q_REGNO_P (REGNO (X)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4306 +#define M_REG_P(X) (REG_P (X) && M_REGNO_P (REGNO (X)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4307 +#define CC_REG_P(X) (REG_P (X) && CC_REGNO_P (REGNO (X)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4308 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4309 +/* Redefine this in terms of BYTE_REGSET */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4310 +#define BYTE_REGNO_P(REGNO) (REGSET_CONTAINS_P (REGNO, BYTE_REGSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4311 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4312 +/* The class value for index registers, and the one for base regs. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4313 +#define INDEX_REG_CLASS I_REGS
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4314 +#define BASE_REG_CLASS A_REGS
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4315 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4316 +/* Get reg_class from a letter in the machine description. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4317 +#define REG_CLASS_FROM_LETTER(C) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4318 + (((C) == 'a' ? A_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4319 + ((C) == 'd' ? D_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4320 + ((C) == 'x' ? I_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4321 + ((C) == 't' ? M_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4322 + ((C) == 'c' ? CC_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4323 + ((C) == 'A' ? ACC_A_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4324 + ((C) == 'B' ? ACC_B_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4325 + ((C) == 'v' ? X_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4326 + ((C) == 'u' ? S_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4327 + ((C) == 'U' ? P_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4328 + ((C) == 'T' ? T_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4329 + ((C) == 'z' ? Z_REGS : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4330 + ((C) == 'q' ? Q_REGS : NO_REGS))))))))))))))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4331 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4332 +/*--------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4333 + The letters I through O in a register constraint string
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4334 + can be used to stand for particular ranges of immediate operands.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4335 + This macro defines what the ranges are.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4336 + C is the letter, and VALUE is a constant value.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4337 + Return 1 if VALUE is in the range specified by C.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4338 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4339 + For the 6809, J, K, L are used for indexed addressing.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4340 + `I' is used for the constant 1.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4341 + `J' is used for the 5-bit offsets.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4342 + `K' is used for the 8-bit offsets.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4343 + `L' is used for the range of signed numbers that fit in 16 bits.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4344 + `M' is used for the exact value '8'.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4345 + `N' is used for the constant -1.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4346 + `O' is used for the constant 0.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4347 +--------------------------------------------------------------*/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4348 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4349 +#define CONST_OK_FOR_LETTER_P(VALUE, C) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4350 + ((C) == 'I' ? ((VALUE) == 1) : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4351 + (C) == 'J' ? ((VALUE) >= -16 && (VALUE) <= 15) : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4352 + (C) == 'K' ? ((VALUE) >= -128 && (VALUE) <= 127) : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4353 + (C) == 'L' ? ((VALUE) >= -32768 && (VALUE) <= 32767) : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4354 + (C) == 'M' ? ((VALUE) == 8) : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4355 + (C) == 'N' ? ((VALUE) == -1) : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4356 + (C) == 'O' ? ((VALUE) == 0) : 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4357 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4358 +/* Similar, but for floating constants, and defining letters G and H.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4359 + No floating-point constants are valid on MC6809. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4360 +#define CONST_DOUBLE_OK_FOR_LETTER_P(VALUE, C) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4361 + ((C) == 'G' ? (GET_MODE_CLASS (GET_MODE (VALUE)) == MODE_FLOAT \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4362 + && VALUE == CONST0_RTX (GET_MODE (VALUE))) : 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4363 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4364 +/* Given an rtx X being reloaded into a reg required to be
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4365 + in class CLASS, return the class of reg to actually use.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4366 + In general this is just CLASS; but on some machines
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4367 + in some cases it is preferable to use a more restrictive class. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4368 +#define PREFERRED_RELOAD_CLASS(X,CLASS) m6809_preferred_reload_class(X,CLASS)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4369 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4370 +#define SMALL_REGISTER_CLASSES 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4371 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4372 +/* Return the maximum number of consecutive registers
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4373 + needed to represent mode MODE in a register of class CLASS. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4374 +#define CLASS_MAX_NREGS(CLASS, MODE) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4375 + ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4376 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4377 +/*--------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4378 + Stack layout; function entry, exit and calling.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4379 +--------------------------------------------------------------*/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4380 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4381 +/* Define this if pushing a word on the stack
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4382 + makes the stack pointer a smaller address. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4383 +#define STACK_GROWS_DOWNWARD
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4384 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4385 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4386 +/* Define this if the nominal address of the stack frame
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4387 + is at the high-address end of the local variables;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4388 + that is, each additional local variable allocated
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4389 + goes at a more negative offset in the frame. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4390 +#define FRAME_GROWS_DOWNWARD 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4391 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4392 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4393 +/* Offset within stack frame to start allocating local variables at.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4394 + If FRAME_GROWS_DOWNWARD, this is the offset to the END of the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4395 + first local allocated. Otherwise, it is the offset to the BEGINNING
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4396 + of the first local allocated. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4397 +#define STARTING_FRAME_OFFSET 0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4398 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4399 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4400 +/* Always push stack arguments for now. Accumulation is not yet working. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4401 +#define PUSH_ROUNDING(BYTES) (BYTES)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4402 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4403 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4404 +/* Offset of first parameter from the argument pointer register value.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4405 + * ARG_POINTER_REGNUM is defined to point to the return address pushed
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4406 + * onto the stack, so we must offset by 2 bytes to get to the arguments. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4407 +#define FIRST_PARM_OFFSET(FNDECL) 2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4408 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4409 +/* Value is 1 if returning from a function call automatically
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4410 + pops the arguments described by the number-of-args field in the call.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4411 + FUNTYPE is the data type of the function (as a tree),
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4412 + or for a library call it is an identifier node for the subroutine name. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4413 +/* #define RETURN_POPS_ARGS(FUNDECL,FUNTYPE,SIZE) 0 */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4414 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4415 +/* Define how to find the value returned by a function.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4416 + VALTYPE is the data type of the value (as a tree).
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4417 + If the precise function being called is known, FUNC is its FUNCTION_DECL;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4418 + otherwise, FUNC is 0. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4419 +#define FUNCTION_VALUE(VALTYPE, FUNC) m6809_function_value (VALTYPE, FUNC)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4420 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4421 +/* Define how to find the value returned by a library function
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4422 + assuming the value has mode MODE. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4423 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4424 +/* All return values are in the X-register. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4425 +#define LIBCALL_VALUE(MODE) gen_rtx_REG (MODE, HARD_X_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4426 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4427 +/* Define this if using the nonreentrant convention for returning
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4428 + structure and union values. No; it is inefficient and buggy. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4429 +#undef PCC_STATIC_STRUCT_RETURN
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4430 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4431 +/* 1 if N is a possible register number for a function value. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4432 +#define FUNCTION_VALUE_REGNO_P(N) m6809_function_value_regno_p (N)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4433 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4434 +/* Define this to be true when FUNCTION_VALUE_REGNO_P is true for
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4435 + more than one register. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4436 +#define NEEDS_UNTYPED_CALL 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4437 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4438 +/* 1 if N is a possible register number for function argument passing. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4439 +#define FUNCTION_ARG_REGNO_P(N) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4440 + ((m6809_abi_version != M6809_ABI_VERSION_STACK) ? \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4441 + (((N) == HARD_D_REGNUM) \|\| ((N) == HARD_X_REGNUM)) : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4442 + 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4443 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4444 +/*--------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4445 + Argument Lists
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4446 +--------------------------------------------------------------*/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4447 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4448 +/* Cumulative arguments are tracked in a single integer,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4449 + * which is the number of bytes of arguments scanned so far,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4450 + * plus which registers have already been used. The register
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4451 + * info is kept in some of the upper bits */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4452 +#define CUMULATIVE_ARGS unsigned int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4453 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4454 +#define CUM_STACK_ONLY 0x80000000
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4455 +#define CUM_X_MASK 0x40000000
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4456 +#define CUM_B_MASK 0x20000000
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4457 +#define CUM_STACK_INVALID 0x10000000
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4458 +#define CUM_STACK_MASK 0xFFFFFFF
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4459 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4460 +#define CUM_ADVANCE_8BIT(cum) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4461 + (((cum) & CUM_B_MASK) ? (cum)++ : ((cum) \|= CUM_B_MASK))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4462 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4463 +#define CUM_ADVANCE_16BIT(cum) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4464 + (((cum) & CUM_X_MASK) ? (cum) += 2 : ((cum) \|= CUM_X_MASK))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4465 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4466 +/* Initialize a variable CUM of type CUMULATIVE_ARGS
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4467 + for a call to a function whose data type is FNTYPE.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4468 + For a library call, FNTYPE is 0.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4469 + N_NAMED was added in gcc 3.4 and is not used currently. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4470 +#define INIT_CUMULATIVE_ARGS(CUM,FNTYPE,LIBNAME,INDIRECT,N_NAMED) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4471 + ((CUM) = m6809_init_cumulative_args (CUM, FNTYPE, LIBNAME))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4472 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4473 +#define FUNCTION_ARG_SIZE(MODE, TYPE) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4474 + ((MODE) != BLKmode ? GET_MODE_SIZE (MODE) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4475 + : (unsigned) int_size_in_bytes (TYPE))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4476 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4477 +/* Update the data in CUM to advance over an argument
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4478 + of mode MODE and data type TYPE.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4479 + (TYPE is null for libcalls where that information may not be available.) */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4480 +#define FUNCTION_ARG_ADVANCE(CUM, MODE, TYPE, NAMED) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4481 + (((MODE == QImode) && !((CUM) & CUM_STACK_ONLY)) ? \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4482 + CUM_ADVANCE_8BIT (CUM) : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4483 + ((MODE == HImode) && !((CUM) & CUM_STACK_ONLY)) ? \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4484 + CUM_ADVANCE_16BIT (CUM) : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4485 + ((CUM) = ((CUM) + (TYPE ? int_size_in_bytes (TYPE) : 2))))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4486 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4487 +/* Define where to put the arguments to a function.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4488 + Value is zero to push the argument on the stack,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4489 + or a hard register rtx in which to store the argument.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4490 + This macro is used _before_ FUNCTION_ARG_ADVANCE.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4491 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4492 + For the 6809, the first 8-bit function argument can be placed into B,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4493 + and the first 16-bit arg can go into X. All other arguments
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4494 + will be pushed onto the stack.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4495 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4496 + Command-line options can adjust this behavior somewhat.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4497 + */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4498 +#define FUNCTION_ARG(CUM, MODE, TYPE, NAMED) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4499 + ((MODE == VOIDmode) ? NULL_RTX : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4500 + ((MODE == BLKmode) \|\| (GET_MODE_SIZE (MODE) > 2)) ? NULL_RTX : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4501 + ((MODE == QImode) && !((CUM) & (CUM_STACK_ONLY \| CUM_B_MASK))) ? \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4502 + gen_rtx_REG (QImode, HARD_D_REGNUM) : \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4503 + ((MODE == HImode) && !((CUM) & (CUM_STACK_ONLY \| CUM_X_MASK))) ? \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4504 + gen_rtx_REG (HImode, HARD_X_REGNUM) : m6809_function_arg_on_stack (&CUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4505 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4506 +/* Output assembler code to FILE to increment profiler label # LABELNO
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4507 + for profiling a function entry. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4508 +#define FUNCTION_PROFILER(FILE, LABELNO) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4509 + fprintf (FILE, "\tldd\t#LP%u\n\tjsr\tmcount\n", (LABELNO));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4510 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4511 +/* Stack pointer must be correct on function exit */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4512 +#define EXIT_IGNORE_STACK 0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4513 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4514 +/*****************************************************************************
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4515 +**
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4516 +** Trampolines for Nested Functions
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4517 +**
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4518 +*****************************************************************************/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4519 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4520 +/* Length in units of the trampoline for entering a nested function. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4521 +#define TRAMPOLINE_SIZE 7
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4522 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4523 +/*--------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4524 + Addressing modes,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4525 + and classification of registers for them.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4526 +--------------------------------------------------------------*/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4527 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4528 +/* 6809 has postincrement and predecrement addressing modes */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4529 +#define HAVE_POST_INCREMENT 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4530 +#define HAVE_PRE_DECREMENT 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4531 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4532 +/* Whether or not to use index registers is configurable.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4533 + * Experiments show that things work better when this is off, so
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4534 + * that's the way it is for now. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4535 +#undef USE_INDEX_REGISTERS
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4536 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4537 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4538 +/* Macros to check register numbers against specific register classes. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4539 +#define REG_VALID_FOR_BASE_P(REGNO) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4540 + (((REGNO) < FIRST_PSEUDO_REGISTER) && A_REGNO_P (REGNO))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4541 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4542 +/* MC6809 index registers do not allow scaling, */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4543 +/* but there is "accumulator-offset" mode. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4544 +#ifdef USE_INDEX_REGISTERS
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4545 +#define REG_VALID_FOR_INDEX_P(REGNO) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4546 + (((REGNO) < FIRST_PSEUDO_REGISTER) && I_REGNO_P (REGNO))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4547 +#else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4548 +#define REG_VALID_FOR_INDEX_P(REGNO) 0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4549 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4550 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4551 +/* Internal macro, the nonstrict definition for REGNO_OK_FOR_BASE_P */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4552 +#define REGNO_OK_FOR_BASE_NONSTRICT_P(REGNO) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4553 + ((REGNO) >= FIRST_PSEUDO_REGISTER \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4554 + \|\| REG_VALID_FOR_BASE_P (REGNO) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4555 + \|\| (REGNO) == FRAME_POINTER_REGNUM \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4556 + \|\| (REGNO) == HARD_FRAME_POINTER_REGNUM \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4557 + \|\| (REGNO) == ARG_POINTER_REGNUM \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4558 + \|\| (reg_renumber && REG_VALID_FOR_BASE_P (reg_renumber[REGNO])))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4559 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4560 +/* Internal macro, the nonstrict definition for REGNO_OK_FOR_INDEX_P */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4561 +#define REGNO_OK_FOR_INDEX_NONSTRICT_P(REGNO) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4562 + ((REGNO) >= FIRST_PSEUDO_REGISTER \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4563 + \|\| REG_VALID_FOR_INDEX_P (REGNO) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4564 + \|\| (reg_renumber && REG_VALID_FOR_INDEX_P (reg_renumber[REGNO])))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4565 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4566 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4567 +/* Internal macro, the strict definition for REGNO_OK_FOR_BASE_P */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4568 +#define REGNO_OK_FOR_BASE_STRICT_P(REGNO) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4569 + ((REGNO) < FIRST_PSEUDO_REGISTER ? REG_VALID_FOR_BASE_P (REGNO) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4570 + : (reg_renumber && REG_VALID_FOR_BASE_P (reg_renumber[REGNO])))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4571 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4572 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4573 +/* Internal macro, the strict definition for REGNO_OK_FOR_INDEX_P */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4574 +#define REGNO_OK_FOR_INDEX_STRICT_P(REGNO) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4575 + ((REGNO) < FIRST_PSEUDO_REGISTER ? REG_VALID_FOR_INDEX_P (REGNO) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4576 + : (reg_renumber && REG_VALID_FOR_INDEX_P (reg_renumber[REGNO])))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4577 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4578 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4579 +#define REGNO_OK_FOR_BASE_P(REGNO) REGNO_OK_FOR_BASE_STRICT_P (REGNO)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4580 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4581 +#define REGNO_OK_FOR_INDEX_P(REGNO) REGNO_OK_FOR_INDEX_STRICT_P (REGNO)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4582 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4583 +#define REG_OK_FOR_BASE_STRICT_P(X) REGNO_OK_FOR_BASE_STRICT_P (REGNO (X))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4584 +#define REG_OK_FOR_BASE_NONSTRICT_P(X) REGNO_OK_FOR_BASE_NONSTRICT_P (REGNO (X))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4585 +#define REG_OK_FOR_INDEX_STRICT_P(X) REGNO_OK_FOR_INDEX_STRICT_P (REGNO (X))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4586 +#define REG_OK_FOR_INDEX_NONSTRICT_P(X) REGNO_OK_FOR_INDEX_NONSTRICT_P (REGNO (X))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4587 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4588 +#ifndef REG_OK_STRICT
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4589 +#define REG_OK_FOR_BASE_P(X) REG_OK_FOR_BASE_NONSTRICT_P(X)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4590 +#ifdef USE_INDEX_REGISTERS
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4591 +#define REG_OK_FOR_INDEX_P(X) REG_OK_FOR_INDEX_NONSTRICT_P(X)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4592 +#else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4593 +#define REG_OK_FOR_INDEX_P(X) 0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4594 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4595 +#else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4596 +#define REG_OK_FOR_BASE_P(X) REG_OK_FOR_BASE_STRICT_P (X)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4597 +#ifdef USE_INDEX_REGISTERS
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4598 +#define REG_OK_FOR_INDEX_P(X) REG_OK_FOR_INDEX_STRICT_P (X)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4599 +#else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4600 +#define REG_OK_FOR_INDEX_P(X) 0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4601 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4602 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4603 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4604 +/* Maximum number of registers that can appear in a valid memory address */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4605 +#ifdef USE_INDEX_REGISTERS
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4606 +#define MAX_REGS_PER_ADDRESS 2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4607 +#else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4608 +#define MAX_REGS_PER_ADDRESS 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4609 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4610 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4611 +/* 1 if X is an rtx for a constant that is a valid address.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4612 + * We allow any constant, plus the sum of any two constants (this allows
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4613 + * offsetting a symbol ref) */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4614 +#define CONSTANT_ADDRESS_P(X) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4615 + ((CONSTANT_P (X)) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4616 + \|\| ((GET_CODE (X) == PLUS) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4617 + && (CONSTANT_P (XEXP (X, 0))) && (CONSTANT_P (XEXP (X, 1)))))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4618 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4619 +/* Nonzero if the constant value X is a legitimate general operand.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4620 + It is given that X satisfies CONSTANT_P or is a CONST_DOUBLE. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4621 +/* Any single-word constant is ok; the only contexts
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4622 + allowing general_operand of mode DI or DF are movdi and movdf. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4623 +#define LEGITIMATE_CONSTANT_P(X) (GET_CODE (X) != CONST_DOUBLE)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4624 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4625 +/* Nonzero if the X is a legitimate immediate operand in PIC mode. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4626 +#define LEGITIMATE_PIC_OPERAND_P(X) !symbolic_operand (X, VOIDmode)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4627 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4628 +/*--------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4629 + Test for valid memory addresses
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4630 +--------------------------------------------------------------*/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4631 +/* GO_IF_LEGITIMATE_ADDRESS recognizes an RTL expression
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4632 + that is a valid memory address for an instruction.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4633 + The MODE argument is the machine mode for the MEM expression
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4634 + that wants to use this address. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4635 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4636 +/*--------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4637 + Valid addresses are either direct or indirect (MEM) versions
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4638 + of the following forms.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4639 + constant N
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4640 + register ,X
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4641 + constant indexed N,X
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4642 + accumulator indexed D,X
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4643 + auto_increment ,X++
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4644 + auto_decrement ,--X
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4645 +--------------------------------------------------------------*/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4646 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4647 +#define REGISTER_ADDRESS_P(X) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4648 + (REG_P (X) && REG_OK_FOR_BASE_P (X))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4649 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4650 +#define EXTENDED_ADDRESS_P(X) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4651 + CONSTANT_ADDRESS_P (X) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4652 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4653 +#define LEGITIMATE_BASE_P(X) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4654 + ((REG_P (X) && REG_OK_FOR_BASE_P (X)) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4655 + \|\| (GET_CODE (X) == SIGN_EXTEND \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4656 + && GET_CODE (XEXP (X, 0)) == REG \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4657 + && GET_MODE (XEXP (X, 0)) == HImode \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4658 + && REG_OK_FOR_BASE_P (XEXP (X, 0))))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4659 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4660 +#define LEGITIMATE_OFFSET_P(X) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4661 + (CONSTANT_ADDRESS_P (X) \|\| (REG_P (X) && REG_OK_FOR_INDEX_P (X)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4662 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4663 +/* 1 if X is the sum of a base register and an offset. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4664 +#define INDEXED_ADDRESS(X) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4665 + ((GET_CODE (X) == PLUS \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4666 + && LEGITIMATE_BASE_P (XEXP (X, 0)) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4667 + && LEGITIMATE_OFFSET_P (XEXP (X, 1))) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4668 + \|\| (GET_CODE (X) == PLUS \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4669 + && LEGITIMATE_BASE_P (XEXP (X, 1)) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4670 + && LEGITIMATE_OFFSET_P (XEXP (X, 0))))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4671 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4672 +#define STACK_REG_P(X) (REG_P(X) && REGNO(X) == HARD_S_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4673 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4674 +#define STACK_PUSH_P(X) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4675 + (MEM_P (X) && GET_CODE (XEXP (X, 0)) == PRE_DEC && STACK_REG_P (XEXP (XEXP (X, 0), 0)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4676 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4677 +#define STACK_POP_P(X) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4678 + (MEM_P (X) && GET_CODE (XEXP (X, 0)) == POST_INC && STACK_REG_P (XEXP (XEXP (X, 0), 0)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4679 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4680 +#define PUSH_POP_ADDRESS_P(X) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4681 + (((GET_CODE (X) == PRE_DEC) \|\| (GET_CODE (X) == POST_INC)) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4682 + && (LEGITIMATE_BASE_P (XEXP (X, 0))))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4683 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4684 +/* Go to ADDR if X is a valid address. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4685 +#define GO_IF_LEGITIMATE_ADDRESS(MODE, X, ADDR) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4686 +{ \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4687 + if (REGISTER_ADDRESS_P(X)) goto ADDR; \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4688 + if (PUSH_POP_ADDRESS_P (X)) goto ADDR; \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4689 + if (EXTENDED_ADDRESS_P (X)) goto ADDR; \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4690 + if (INDEXED_ADDRESS (X)) goto ADDR; \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4691 + if (MEM_P (X) && REGISTER_ADDRESS_P(XEXP (X, 0))) goto ADDR; \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4692 + if (MEM_P (X) && PUSH_POP_ADDRESS_P (XEXP (X, 0))) goto ADDR; \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4693 + if (MEM_P (X) && EXTENDED_ADDRESS_P (XEXP (X, 0))) goto ADDR; \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4694 + if (MEM_P (X) && INDEXED_ADDRESS (XEXP (X, 0))) goto ADDR; \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4695 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4696 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4697 +/*--------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4698 + Address Fix-up
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4699 +--------------------------------------------------------------*/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4700 +/* Go to LABEL if ADDR (a legitimate address expression)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4701 + has an effect that depends on the machine mode it is used for.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4702 + In the latest GCC, this case is already handled by the core code
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4703 + so no action is required here. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4704 +#define GO_IF_MODE_DEPENDENT_ADDRESS(ADDR,LABEL) {}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4705 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4706 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4707 +/*--------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4708 + Miscellaneous Parameters
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4709 +--------------------------------------------------------------*/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4710 +/* Specify the machine mode that this machine uses
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4711 + for the index in the tablejump instruction. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4712 +#define CASE_VECTOR_MODE Pmode
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4713 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4714 +/* Define this as 1 if `char' should by default be signed; else as 0. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4715 +#define DEFAULT_SIGNED_CHAR 0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4716 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4717 +/* This flag, if defined, says the same insns that convert to a signed fixnum
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4718 + also convert validly to an unsigned one. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4719 +#define FIXUNS_TRUNC_LIKE_FIX_TRUNC
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4720 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4721 +/* Max number of bytes we can move from memory to memory/register
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4722 + in one reasonably fast instruction. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4723 +#define MOVE_MAX 2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4724 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4725 +/* Int can be 8 or 16 bits (default is 16) */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4726 +#define INT_TYPE_SIZE (TARGET_BYTE_INT ? 8 : 16)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4727 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4728 +/* Short is always 16 bits */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4729 +#define SHORT_TYPE_SIZE (TARGET_BYTE_INT ? 8 : 16)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4730 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4731 +/* Size (bits) of the type "long" on target machine */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4732 +#define LONG_TYPE_SIZE (TARGET_BYTE_INT ? 16 : 32)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4733 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4734 +/* Size (bits) of the type "long long" on target machine */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4735 +#define LONG_LONG_TYPE_SIZE 32
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4736 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4737 +/* Size (bits) of the type "char" on target machine */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4738 +#define CHAR_TYPE_SIZE 8
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4739 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4740 +/* Size (bits) of the type "float" on target machine */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4741 +#define FLOAT_TYPE_SIZE 32
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4742 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4743 +/* Size (bits) of the type "double" on target machine.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4744 + * Note that the C standard does not require that doubles
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4745 + * hold any more bits than float. Since the 6809 has so few
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4746 + * registers, we cannot really support more than 32-bits. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4747 +#define DOUBLE_TYPE_SIZE 32
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4748 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4749 +/* Size (bits) of the type "long double" on target machine */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4750 +#define LONG_DOUBLE_TYPE_SIZE 32
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4751 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4752 +/* Define the type used for "size_t". With a 64KB address space,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4753 + * only a 16-bit value here makes sense. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4754 +#define SIZE_TYPE (TARGET_BYTE_INT ? "long unsigned int" : "unsigned int")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4755 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4756 +/* Likewise, the difference between two pointers is also a 16-bit
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4757 + * signed value. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4758 +#define PTRDIFF_TYPE (TARGET_BYTE_INT ? "long int" : "int")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4759 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4760 +/* Nonzero if access to memory by bytes is slow and undesirable. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4761 +#define SLOW_BYTE_ACCESS 0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4762 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4763 +/* Define if shifts truncate the shift count
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4764 + which implies one can omit a sign-extension or zero-extension
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4765 + of a shift count. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4766 +#define SHIFT_COUNT_TRUNCATED 0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4767 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4768 +/* Value is 1 if truncating an integer of INPREC bits to OUTPREC bits
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4769 + is done just by pretending it is already truncated. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4770 +#define TRULY_NOOP_TRUNCATION(OUTPREC, INPREC) 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4771 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4772 +/* It is as good to call a constant function address as to
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4773 + call an address kept in a register. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4774 +#define NO_FUNCTION_CSE
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4775 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4776 +/* Specify the machine mode that pointers have.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4777 + After generation of rtl, the compiler makes no further distinction
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4778 + between pointers and any other objects of this machine mode. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4779 +#define Pmode HImode
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4780 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4781 +/* A function address in a call instruction
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4782 + is a byte address (for indexing purposes)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4783 + so give the MEM rtx a byte's mode. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4784 +#define FUNCTION_MODE HImode
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4785 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4786 +/* Define the cost of moving a value from a register in CLASS1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4787 + * to CLASS2, of a given MODE.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4788 + *
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4789 + * On the 6809, hard register transfers are all basically equivalent.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4790 + * But soft register moves are treated more like memory moves. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4791 +#define REGISTER_MOVE_COST(MODE, CLASS1, CLASS2) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4792 + (((CLASS1 == M_REGS) \|\| (CLASS2 == M_REGS)) ? 4 : 7)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4793 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4794 +/* Define the cost of moving a value between a register and memory. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4795 +#define MEMORY_MOVE_COST(MODE, CLASS, IN) 5
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4796 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4797 +/* Check a `double' value for validity for a particular machine mode. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4798 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4799 +#define CHECK_FLOAT_VALUE(MODE, D, OVERFLOW) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4800 + ((OVERFLOW) = check_float_value (MODE, &D, OVERFLOW))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4801 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4802 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4803 +/*--------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4804 + machine-dependent
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4805 +--------------------------------------------------------------*/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4806 +/* Tell final.c how to eliminate redundant test instructions. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4807 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4808 +/* Here we define machine-dependent flags and fields in cc_status
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4809 + (see `conditions.h'). */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4810 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4811 +/* Store in cc_status the expressions
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4812 + that the condition codes will describe
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4813 + after execution of an instruction whose pattern is EXP.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4814 + Do not alter them if the instruction would not alter the cc's. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4815 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4816 +/* On the 6809, most of the insns to store in an address register
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4817 + fail to set the cc's. However, in some cases these instructions
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4818 + can make it possibly invalid to use the saved cc's. In those
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4819 + cases we clear out some or all of the saved cc's so they won't be used. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4820 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4821 +#define NOTICE_UPDATE_CC(EXP, INSN) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4822 + notice_update_cc((EXP), (INSN))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4823 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4824 +/*****************************************************************************
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4825 +**
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4826 +** pragma support
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4827 +**
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4828 +*****************************************************************************/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4829 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4830 +#if 0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4831 +#define REGISTER_TARGET_PRAGMAS() \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4832 +do { \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4833 + extern void pragma_section PARAMS ((cpp_reader *)); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4834 + c_register_pragma (0, "section", pragma_section); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4835 +} while (0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4836 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4837 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4838 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4839 +/*--------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4840 + ASSEMBLER FORMAT
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4841 +--------------------------------------------------------------*/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4842 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4843 +#define FMT_HOST_WIDE_INT "%ld"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4844 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4845 +/* Output to assembler file text saying following lines
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4846 + may contain character constants, extra white space, comments, etc. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4847 +#define ASM_APP_ON ";----- asm -----\n"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4848 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4849 +/* Output to assembler file text saying following lines
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4850 + no longer contain unusual constructs. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4851 +#define ASM_APP_OFF ";--- end asm ---\n"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4852 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4853 +/* Use a semicolon to begin a comment. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4854 +#define ASM_COMMENT_START "; "
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4855 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4856 +/* Output assembly directives to switch to section 'name' */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4857 +#undef TARGET_ASM_NAMED_SECTION
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4858 +#define TARGET_ASM_NAMED_SECTION m6809_asm_named_section
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4859 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4860 +#undef TARGET_HAVE_NAMED_SECTION
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4861 +#define TARGET_HAVE_NAMED_SECTION m6809_have_named_section
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4862 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4863 +/* Output before read-only data. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4864 +#define TEXT_SECTION_ASM_OP (code_section_op)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4865 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4866 +/* Output before writable data. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4867 +#define DATA_SECTION_ASM_OP (data_section_op)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4868 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4869 +/* Output before uninitialized data. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4870 +#define BSS_SECTION_ASM_OP (bss_section_op)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4871 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4872 +/* Support the ctors and dtors sections for g++. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4873 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4874 +#undef CTORS_SECTION_ASM_OP
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4875 +#define CTORS_SECTION_ASM_OP "\t.area .ctors"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4876 +#undef DTORS_SECTION_ASM_OP
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4877 +#define DTORS_SECTION_ASM_OP "\t.area .dtors"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4878 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4879 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4880 +#undef DO_GLOBAL_CTORS_BODY
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4881 +#undef DO_GLOBAL_DTORS_BODY
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4882 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4883 +#define HAS_INIT_SECTION
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4884 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4885 +/* This is how to output an assembler line
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4886 + that says to advance the location counter
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4887 + to a multiple of 2*LOG bytes. /
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4888 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4889 +#define ASM_OUTPUT_ALIGN(FILE,LOG) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4890 + if ((LOG) > 1) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4891 + fprintf (FILE, "\t.bndry %u\n", 1 << (LOG))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4892 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4893 +/* The .set foo,bar construct doesn't work by default */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4894 +#undef SET_ASM_OP
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4895 +#define ASM_OUTPUT_DEF(FILE, LABEL1, LABEL2) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4896 + do { \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4897 + assemble_name (FILE, LABEL1); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4898 + fputs ("\tequ\t", FILE); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4899 + assemble_name (FILE, LABEL2); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4900 + fputc ('\n', FILE); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4901 + } while (0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4902 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4903 +/* How to refer to registers in assembler output.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4904 + This sequence is indexed by compiler's hard-register-number (see above). */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4905 +#define MNAME(x) [SOFT_M0_REGNUM+(x)] = "*m" C_STRING(x) ,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4906 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4907 +#define REGISTER_NAMES { \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4908 + [HARD_D_REGNUM]= "d", \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4909 + [HARD_X_REGNUM]= "x", \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4910 + [HARD_Y_REGNUM]= "y", \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4911 + [HARD_U_REGNUM]= "u", \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4912 + [HARD_S_REGNUM]= "s", \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4913 + [HARD_PC_REGNUM]= "pc", \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4914 + [HARD_A_REGNUM]= "a", \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4915 + [HARD_B_REGNUM]= "b", \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4916 + [HARD_CC_REGNUM]= "cc",\
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4917 + [HARD_DP_REGNUM]= "dp", \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4918 + [SOFT_FP_REGNUM]= "soft_fp", \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4919 + [SOFT_AP_REGNUM]= "soft_ap", \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4920 + MNAME(0) MNAME(1) MNAME(2) MNAME(3) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4921 + MNAME(4) MNAME(5) MNAME(6) MNAME(7) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4922 + [HARD_RSVD1_REGNUM] = "-", \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4923 + [HARD_Z_REGNUM] = "z" /* bit 2 of CC */ }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4924 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4925 +/*****************************************************************************
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4926 +**
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4927 +** Debug Support
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4928 +**
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4929 +*****************************************************************************/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4930 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4931 +/* Default to DBX-style debugging */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4932 +#define PREFERRED_DEBUGGING_TYPE DBX_DEBUG
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4933 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4934 +#define DBX_DEBUGGING_INFO
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4935 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4936 +#define DEFAULT_GDB_EXTENSIONS 0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4937 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4938 +#define ASM_STABS_OP ";\t.stabs\t"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4939 +#define ASM_STABD_OP ";\t.stabd\t"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4940 +#define ASM_STABN_OP ";\t.stabn\t"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4941 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4942 +#define DBX_CONTIN_LENGTH 54
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4943 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4944 +#define DBX_OUTPUT_MAIN_SOURCE_FILENAME(ASMFILE, FILENAME) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4945 +do { \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4946 + const char *p = FILENAME; \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4947 + while ((p = strchr (p, '/')) != NULL) { \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4948 + p = FILENAME = p+1; \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4949 + } \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4950 + fprintf (ASMFILE, "%s", ASM_STABS_OP); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4951 + output_quoted_string (ASMFILE, FILENAME); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4952 + fprintf (ASMFILE, ",%d,0,0,", N_SO); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4953 + assemble_name (ASMFILE, ltext_label_name); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4954 + fputc ('\n', ASMFILE); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4955 + switch_to_section (text_section); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4956 + (*targetm.asm_out.internal_label) (ASMFILE, "Ltext", 0); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4957 +} while (0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4958 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4959 +/* With -g, GCC sometimes outputs string literals that are longer than
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4960 + * the assembler can handle. Without actual debug support, these are
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4961 + * not really required. Redefine the function to output strings to
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4962 + * output as much as possible. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4963 +#define OUTPUT_QUOTED_STRING(FILE, STR) m6809_output_quoted_string (FILE, STR)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4964 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4965 +/*****************************************************************************
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4966 +**
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4967 +** Output and Generation of Labels
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4968 +**
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4969 +*****************************************************************************/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4970 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4971 +/* Prefixes for various assembly-time objects */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4972 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4973 +#define REGISTER_PREFIX ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4974 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4975 +#define LOCAL_LABEL_PREFIX ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4976 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4977 +#define USER_LABEL_PREFIX "_"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4978 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4979 +#define IMMEDIATE_PREFIX "#"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4980 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4981 +/* This is how to output the definition of a user-level label named NAME,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4982 + such as the label on a static function or variable NAME. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4983 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4984 +#define ASM_OUTPUT_LABEL(FILE,NAME) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4985 +do { \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4986 + if (section_changed) { \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4987 + fprintf (FILE, "\n%s\n\n", code_section_op); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4988 + section_changed = 0; \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4989 + } \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4990 + assemble_name (FILE, NAME); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4991 + fputs (":\n", FILE); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4992 +} while (0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4993 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4994 +/* This is how to output the label for a function definition. It
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4995 + invokes ASM_OUTPUT_LABEL, but may examine the DECL tree node for
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4996 + other properties. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4997 +#define ASM_DECLARE_FUNCTION_NAME(FILE,NAME,DECL) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4998 + m6809_declare_function_name (FILE,NAME,DECL)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	4999 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5000 +/* This is how to output a command to make the user-level label
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5001 + named NAME defined for reference from other files. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5002 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5003 +#define GLOBAL_ASM_OP "\t.globl "
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5004 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5005 +/* This is how to output a reference to a user label named NAME. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5006 +#define ASM_OUTPUT_LABELREF(FILE,NAME) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5007 + fprintf (FILE, "_%s", NAME)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5008 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5009 +/* This is how to output a reference to a symbol ref
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5010 + * Check to see if the symbol is in the direct page */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5011 +#define ASM_OUTPUT_SYMBOL_REF(FILE,sym) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5012 +{ \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5013 + print_direct_prefix (FILE, sym); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5014 + assemble_name (FILE, XSTR (sym, 0)); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5015 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5016 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5017 +/* External references aren't necessary, so don't emit anything */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5018 +#define ASM_OUTPUT_EXTERNAL(FILE,DECL,NAME)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5019 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5020 +/* This is how to store into the string LABEL
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5021 + the symbol_ref name of an internal numbered label where
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5022 + PREFIX is the class of label and NUM is the number within the class.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5023 + This is suitable for output with `assemble_name'. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5024 +#define ASM_GENERATE_INTERNAL_LABEL(LABEL,PREFIX,NUM) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5025 + sprintf (LABEL, "*%s%lu", PREFIX, (unsigned long int)NUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5026 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5027 +/* This is how to output an assembler line defining an `int' constant. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5028 +#define ASM_OUTPUT_INT(FILE,VALUE) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5029 +( fprintf (FILE, "\t.word "), \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5030 + output_addr_const (FILE, (VALUE)), \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5031 + fprintf (FILE, "\n"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5032 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5033 +/* Likewise for `char' and `short' constants. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5034 +#define ASM_OUTPUT_SHORT(FILE,VALUE) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5035 +( fprintf (FILE, "\t.word "), \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5036 + output_addr_const (FILE, (VALUE)), \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5037 + fprintf (FILE, "\n"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5038 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5039 +/* This is how to output a string. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5040 +#define ASM_OUTPUT_ASCII(FILE,STR,SIZE) m6809_output_ascii (FILE, STR, SIZE)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5041 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5042 +/* This is how to output an insn to push a register on the stack.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5043 + It need not be very fast code. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5044 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5045 +#define ASM_OUTPUT_REG_PUSH(FILE,REGNO) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5046 + fprintf (FILE, "\tpshs\t%s\n", reg_names[REGNO])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5047 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5048 +/* This is how to output an insn to pop a register from the stack.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5049 + It need not be very fast code. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5050 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5051 +#define ASM_OUTPUT_REG_POP(FILE,REGNO) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5052 + fprintf (FILE, "\tpuls\t%s\n", reg_names[REGNO])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5053 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5054 +/* This is how to output an element of a case-vector that is absolute. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5055 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5056 +#define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5057 + fprintf (FILE, "\t.word L%u\n", VALUE)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5058 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5059 +/* This is how to output an element of a case-vector that is relative. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5060 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5061 +#define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, BODY, VALUE, REL) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5062 + fprintf (FILE, "\t.word L%u-L%u\n", VALUE, REL)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5063 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5064 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5065 +/*****************************************************************************
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5066 +**
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5067 +** Assembler Commands for Alignment
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5068 +**
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5069 +*****************************************************************************/
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5070 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5071 +/* ASM_OUTPUT_SKIP is supposed to zero initialize the data. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5072 +#define ASM_OUTPUT_SKIP(FILE,SIZE) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5073 + do { \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5074 + fprintf (FILE, "\tzmb\t%d\t;skip space\n", SIZE); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5075 + } while (0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5076 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5077 +/* This says how to output an assembler line
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5078 + to define a global common symbol. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5079 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5080 +#define ASM_OUTPUT_COMMON(FILE, NAME, SIZE, ROUNDED) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5081 + do { \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5082 + switch_to_section (bss_section); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5083 + fputs ("\t.globl\t", FILE); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5084 + assemble_name ((FILE), (NAME)); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5085 + fputs ("\n", FILE); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5086 + assemble_name ((FILE), (NAME)); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5087 + fprintf ((FILE), ":\t.blkb\t" FMT_HOST_WIDE_INT "\n", (ROUNDED));} while(0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5088 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5089 +/* This says how to output an assembler line
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5090 + to define a local common symbol. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5091 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5092 +#define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5093 +do { \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5094 + switch_to_section (bss_section); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5095 + assemble_name ((FILE), (NAME)); \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5096 + fprintf ((FILE), ":\t.blkb\t" FMT_HOST_WIDE_INT "\n", (ROUNDED));} while(0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5097 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5098 +/* Store in OUTPUT a string (made with alloca) containing
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5099 + an assembler-name for a local static variable named NAME.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5100 + LABELNO is an integer which is different for each call. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5101 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5102 +#define ASM_FORMAT_PRIVATE_NAME(OUTPUT, NAME, LABELNO) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5103 +( (OUTPUT) = (char *) alloca (strlen ((NAME)) + 10), \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5104 + sprintf ((OUTPUT), "%s.%lu", (NAME), (unsigned long int)(LABELNO)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5105 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5106 +/* Print an instruction operand X on file FILE.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5107 + CODE is the code from the %-spec for printing this operand.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5108 + If `%z3' was used to print operand 3, then CODE is 'z'. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5109 +#define PRINT_OPERAND(FILE, X, CODE) print_operand (FILE, X, CODE)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5110 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5111 +/* Print a memory operand whose address is X, on file FILE. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5112 +#define PRINT_OPERAND_ADDRESS(FILE, ADDR) print_operand_address (FILE, ADDR)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5113 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5114 +/* Don't let stack pushes build up too much. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5115 +#define MAX_PENDING_STACK 8
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5116 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5117 +/* Define values for builtin operations */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5118 +enum m6809_builtins
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5119 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5120 + M6809_SWI,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5121 + M6809_SWI2,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5122 + M6809_SWI3,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5123 + M6809_CWAI,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5124 + M6809_SYNC,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5125 + M6809_ADD_CARRY,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5126 + M6809_SUB_CARRY,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5127 + M6809_ADD_DECIMAL,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5128 + M6809_NOP,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5129 + M6809_BLOCKAGE
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5130 +};
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5131 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5132 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.md gcc-4.6.4/gcc/config/m6809/m6809.md
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5133 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.md 1969-12-31 17:00:00.000000000 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5134 +++ gcc-4.6.4/gcc/config/m6809/m6809.md 2017-11-28 21:12:11.156911596 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5135 @@ -0,0 +1,2358 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5136 +;; GCC machine description for Motorola 6809
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5137 +;; Copyright (C) 1989, 2005, 2006, 2007, 2008,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5138 +;; 2009 Free Software Foundation, Inc.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5139 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5140 +;; Mostly by Brian Dominy (brian@oddchange.com) with substantial renovations
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5141 +;; by William Astle (lost@l-w.ca).
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5142 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5143 +;; Based on earlier work by Tom Jones (jones@sal.wisc.edu) and
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5144 +;; Matthias Doerfel (msdoerfe@informatik.uni-erlangen.de)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5145 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5146 +;; This file is part of GCC.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5147 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5148 +;; GCC is free software; you can redistribute it and/or modify
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5149 +;; it under the terms of the GNU General Public License as published by
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5150 +;; the Free Software Foundation; either version 3, or (at your option)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5151 +;; any later version.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5152 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5153 +;; GCC is distributed in the hope that it will be useful,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5154 +;; but WITHOUT ANY WARRANTY; without even the implied warranty of
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5155 +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5156 +;; GNU General Public License for more details.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5157 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5158 +;; You should have received a copy of the GNU General Public License
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5159 +;; along with GCC; see the file COPYING3. If not see
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5160 +;; <http://www.gnu.org/licenses/>.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5161 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5162 +;; General information:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5163 +;; --------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5164 +;; * This backend is mostly a rewrite from earlier (3.1.1 and before)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5165 +;; versions.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5166 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5167 +;; * The 'A' and 'B' registers are treated as a single register by the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5168 +;; register allocator; hence, the instruction templates assume that
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5169 +;; both can be modified if either one is available for use. No
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5170 +;; attempt is made to split instructions to refer to a particular half
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5171 +;; of the register. It is always referred to as the 'D' register, even
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5172 +;; in QImode (when it will be displayed as 'B').
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5173 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5174 +;; * There is full support for proper branch instruction generation,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5175 +;; based on instruction lengths. However, many instruction patterns
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5176 +;; are still overloaded to emit lots of real instructions, which can
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5177 +;; make the length calculation difficult; in those cases, I've tried
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5178 +;; to be pessimistic and assume the worst-case.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5179 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5180 +;; * The instruction type attributes are only defined for branch
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5181 +;; vs. non branch instructions for now, since there is seemingly no
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5182 +;; reason to define these for other types anyway.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5183 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5184 +;; * The limited number of total registers presents the greatest
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5185 +;; challenge. There are 'soft registers' -- memory locations
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5186 +;; used to simulate real regs -- which can be helpful.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5187 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5188 +;; * Position-independent code (PIC) is supported and has been tested
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5189 +;; but not to the extent of absolute code generation.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5190 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5191 +;; * All of the 6809 special opcodes, e.g. SWI and SYNC, are defined
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5192 +;; as UNSPEC instructions, and can be accessed from C code using
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5193 +;; __builtin_xxxx() style functions.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5194 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5195 +;; What still needs to be done:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5196 +;; ----------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5197 +;; * Replace remaining instances of (define_peephole) with
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5198 +;; (define_peephole2), or remove them completely if they are not
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5199 +;; matching anyway. Add more peepholes for things actually encountered.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5200 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5201 +;; * Indexing addressing can lead to crashes in complex functions when
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5202 +;; register pressure is high. Only the 'D' register can actually be
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5203 +;; used as an index register, and its demand by other instructions
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5204 +;; can sometimes mean that it is impossible to satisfy constraints.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5205 +;; Currently, indexing is completely disabled to avoid these types
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5206 +;; of problems, although code is slightly more inefficient in some
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5207 +;; working cases.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5208 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5209 +;; * 32-bit math is terribly inefficient.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5210 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5211 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5212 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5213 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5214 +;;- Constants
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5215 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5216 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5217 +;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5218 +; Define constants for hard register numbers.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5219 +;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5220 +(define_constants [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5221 + (HARD_RSVD1_REGNUM 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5222 + (HARD_X_REGNUM 1) (HARD_Y_REGNUM 2) (HARD_U_REGNUM 3)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5223 + (HARD_S_REGNUM 4) (HARD_PC_REGNUM 5) (HARD_D_REGNUM 6)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5224 + (HARD_Z_REGNUM 7)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5225 + (HARD_A_REGNUM 8) (HARD_B_REGNUM 9)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5226 + (HARD_CC_REGNUM 10) (HARD_DP_REGNUM 11)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5227 + (SOFT_FP_REGNUM 12) (SOFT_AP_REGNUM 13)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5228 + (SOFT_M0_REGNUM 14) (SOFT_M1_REGNUM 15)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5229 + (SOFT_M2_REGNUM 16) (SOFT_M3_REGNUM 17)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5230 +])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5231 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5232 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5233 +;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5234 +; The range in which a short branch insn can be used.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5235 +;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5236 +(define_constants [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5237 + (MIN_SHORT_BRANCH_OFFSET -127)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5238 + (MAX_SHORT_BRANCH_OFFSET 128)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5239 +])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5240 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5241 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5242 +;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5243 +; The lengths of various types of real 6809 instructions.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5244 +;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5245 +; By default, ordinary insns are 4 bytes long. This is often not
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5246 +; right, and the insn patterns below will redefine this to the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5247 +; correct value.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5248 +;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5249 +; Branch instruction lengths (conditional and unconditionals) are
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5250 +; well known and declared here. The short insns are used when the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5251 +; offset is within the range declared above (between MIN_SHORT
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5252 +; and MAX_SHORT) ; otherwise the long form is used.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5253 +;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5254 +(define_constants [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5255 + (DEFAULT_INSN_LENGTH 4)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5256 + (SHORT_CBRANCH_LENGTH 2)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5257 + (LONG_CBRANCH_LENGTH 4)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5258 + (SHORT_BRANCH_LENGTH 2)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5259 + (LONG_BRANCH_LENGTH 3)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5260 +])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5261 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5262 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5263 +;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5264 +; Constants for insn cycle counts.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5265 +; Note that these counts all assume 1-byte opcodes. 2-byte
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5266 +; opcodes require 1 extra cycles for fetching the extra byte.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5267 +;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5268 +(define_constants [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5269 + ;; The default insn length, when it cannot be calculated.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5270 + ;; Take a conservative approach and estimate high.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5271 + (DEFAULT_INSN_CYCLES 10)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5272 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5273 + ;; Cycle counts for ALU and load operations.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5274 + (ALU_INHERENT_CYCLES 2)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5275 + (ALU_IMMED_CYCLES 2)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5276 + (ALU_DIRECT_CYCLES 4)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5277 + (ALU_INDEXED_BASE_CYCLES 4)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5278 + (ALU_EXTENDED_CYCLES 5)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5279 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5280 + ;; If an ALU operation is on a 16-bit register (D), then
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5281 + ;; add this number of cycles to the total count.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5282 + (ALU_16BIT_CYCLES 2)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5283 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5284 + ;; A load of a 16-bit register incurs this extra amount.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5285 + (LOAD_16BIT_CYCLES 1)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5286 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5287 + ;; Cycle counts for memory-only operations (bit shifts, clear, test)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5288 + (MEM_DIRECT_CYCLES 6)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5289 + (MEM_INDEXED_BASE_CYCLES 6)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5290 + (MEM_EXTENDED_CYCLES 7)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5291 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5292 + ;; Cycle count for any reg-reg transfer (regardless of size)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5293 + (EXG_CYCLES 8)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5294 + (TFR_CYCLES 6)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5295 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5296 + ;; Cycle count for a condition code update (andcc/orcc)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5297 + (CC_CYCLES 3)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5298 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5299 + (JMP_DIRECT_CYCLES 3)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5300 + (JMP_INDEXED_BASE_CYCLES 3)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5301 + (JMP_EXTENDED_CYCLES 4)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5302 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5303 + (JSR_DIRECT_CYCLES 7)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5304 + (JSR_INDEXED_BASE_CYCLES 7)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5305 + (JSR_EXTENDED_CYCLES 8)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5306 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5307 + (LEA_BASE_CYCLES 4)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5308 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5309 + ;; Cycle count for a psh/pul operations. Add to this the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5310 + ;; total number of bytes moved for the correct count.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5311 + (PSH_PUL_CYCLES 5)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5312 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5313 + ;; Miscellaneous cycle counts
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5314 + (CWAI_CYCLES 20)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5315 + (MUL_CYCLES 11)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5316 + (NOP_CYCLES 2)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5317 + (RTI_CYCLES 15)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5318 + (RTS_CYCLES 5)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5319 + (SWI_CYCLES 20)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5320 + (SYNC_CYCLES 4)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5321 +])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5322 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5323 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5324 +;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5325 +; An enumeration of values for each "unspec"; i.e. unspecified
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5326 +; instruction. These represent insns that are meaningful on the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5327 +; 6809 but which have no intrinsic meaning to GCC itself.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5328 +; These insns can be generated explicitly using the __builtin_xxx
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5329 +; syntax; they are also implicitly generated by the backend
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5330 +; as needed to implement other insns.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5331 +;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5332 +(define_constants [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5333 + (UNSPEC_BLOCKAGE 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5334 + (UNSPEC_PUSH_RS 1)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5335 + (UNSPEC_POP_RS 2)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5336 + (UNSPEC_SWI 3)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5337 + (UNSPEC_CWAI 4)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5338 + (UNSPEC_ADD_CARRY 5)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5339 + (UNSPEC_SUB_CARRY 6)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5340 + (UNSPEC_SYNC 7)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5341 + (UNSPEC_ADD_DECIMAL 8)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5342 +])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5343 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5344 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5345 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5346 +;;- Predicates
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5347 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5348 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5349 +(include "predicates.md")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5350 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5351 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5352 +;;- Attributes
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5353 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5354 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5355 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5356 +;; The type attribute is used to distinguish between different
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5357 +;; types of branch instructions, so that their lengths can be
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5358 +;; calculated correctly.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5359 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5360 +(define_attr "type" "branch,cbranch,unknown" (const_string "unknown"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5361 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5362 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5363 +;; The length of a branch instruction is calculated based on how
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5364 +;; far away the branch target is. Lengths of other insns default
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5365 +;; to 4. set_attr is used in instruction templates to specify
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5366 +;; the length when it is known exactly. When not sure, err on
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5367 +;; the high side to avoid compile errors.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5368 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5369 +(define_attr "length" ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5370 + (cond [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5371 + (eq_attr "type" "branch")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5372 + (if_then_else (lt (minus (match_dup 0) (pc))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5373 + (const_int MIN_SHORT_BRANCH_OFFSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5374 + (const_int LONG_BRANCH_LENGTH)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5375 + (if_then_else (gt (minus (match_dup 0) (pc))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5376 + (const_int MAX_SHORT_BRANCH_OFFSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5377 + (const_int LONG_BRANCH_LENGTH)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5378 + (const_int SHORT_BRANCH_LENGTH)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5379 + (eq_attr "type" "cbranch")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5380 + (if_then_else (lt (minus (match_dup 0) (pc))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5381 + (const_int MIN_SHORT_BRANCH_OFFSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5382 + (const_int LONG_CBRANCH_LENGTH)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5383 + (if_then_else (gt (minus (match_dup 0) (pc))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5384 + (const_int MAX_SHORT_BRANCH_OFFSET))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5385 + (const_int LONG_CBRANCH_LENGTH)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5386 + (const_int SHORT_CBRANCH_LENGTH)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5387 + ] (const_int DEFAULT_INSN_LENGTH)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5388 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5389 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5390 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5391 +;; The default attributes for 'asm' statements.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5392 +;; The default length is the longest possible single 6809 instruction,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5393 +;; which is 5 bytes. GCC will automatically multiply this by the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5394 +;; number of real insns contained in an asm statement.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5395 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5396 +(define_asm_attributes
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5397 + [(set_attr "length" "5")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5398 + (set_attr "type" "unknown")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5399 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5400 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5401 +;; An attribute for the number of cycles that it takes an instruction
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5402 +;; to execute.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5403 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5404 +(define_attr "cycles" "" (const_int DEFAULT_INSN_CYCLES))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5405 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5406 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5407 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5408 +;;- Instruction patterns. When multiple patterns apply,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5409 +;;- the first one in the file is chosen.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5410 +;;-
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5411 +;;- See file "rtl.def" for documentation on define_insn, match_*, et. al.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5412 +;;-
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5413 +;;- Note: NOTICE_UPDATE_CC in m6809.h handles condition code updates
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5414 +;;- for most instructions.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5415 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5416 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5417 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5418 +;;- Test
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5419 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5420 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5421 +;; cmpx is 3 bytes, not 4
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5422 +(define_insn "*tsthi_x"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5423 + [(set (cc0) (match_operand:HI 0 "register_operand_x" "v"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5424 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5425 + "cmpx\t#0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5426 + [(set_attr "length" "3")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5427 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5428 +;; subd #0 is 3 bytes, better than cmpd #0 which is 4 bytes
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5429 +(define_insn "*tsthi_d"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5430 + [(set (cc0) (match_operand:HI 0 "register_operand_d" "d"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5431 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5432 + "subd\t#0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5433 + [(set_attr "length" "3")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5434 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5435 +(define_insn "*tsthi"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5436 + [(set (cc0) (match_operand:HI 0 "register_operand" "a"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5437 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5438 + "cmp%0\t#0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5439 + [(set_attr "length" "4")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5440 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5441 +(define_insn "*bitqi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5442 + [(set (cc0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5443 + (and:QI (match_operand:QI 0 "register_operand" "%q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5444 + (match_operand:QI 1 "general_operand" "mi")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5445 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5446 + "bit%0\t%1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5447 + [(set_attr "length" "3")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5448 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5449 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5450 +(define_insn "tstqi"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5451 + [(set (cc0) (match_operand:QI 0 "nonimmediate_operand" "q,mt"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5452 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5453 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5454 + tst%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5455 + tst\t%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5456 + [(set_attr "length" "1,3")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5457 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5458 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5459 +;;- Compare instructions
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5460 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5461 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5462 +;; - cmphi for register to memory or register compares
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5463 +(define_insn "cmphi"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5464 + [(set (cc0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5465 + (compare
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5466 + (match_operand:HI 0 "general_operand" "da, mi, ??Ud")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5467 + (match_operand:HI 1 "general_operand" "mi, da, dU")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5468 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5469 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5470 + if ((REG_P (operands[0])) && (REG_P (operands[1]))) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5471 + output_asm_insn ("pshs\t%1\t;cmphi: R:%1 with R:%0", operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5472 + return "cmp%0\t,s++\t;cmphi:";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5473 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5474 + if (GET_CODE (operands[0]) == REG)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5475 + return "cmp%0\t%1\t;cmphi:";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5476 + else {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5477 + cc_status.flags \|= CC_REVERSED;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5478 + return "cmp%1\t%0\t;cmphi:(R)";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5479 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5480 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5481 + [(set_attr "length" "5,5,7")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5482 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5483 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5484 +(define_insn "cmpqi"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5485 + [(set (cc0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5486 + (compare (match_operand:QI 0 "whole_general_operand" "q,q, q,O,mt,K")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5487 + (match_operand:QI 1 "whole_general_operand" "O,mt,K,q,q, q")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5488 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5489 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5490 + if (REG_P (operands[0]) && !M_REG_P (operands[0]))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5491 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5492 + if (operands[1] == const0_rtx)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5493 + return "tst%0\t;cmpqi:(ZERO)";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5494 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5495 + return "cmp%0\t%1\t;cmpqi:";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5496 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5497 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5498 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5499 + cc_status.flags \|= CC_REVERSED;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5500 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5501 + if (operands[0] == const0_rtx)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5502 + return "tst%1\t;cmpqi:(RZERO)";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5503 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5504 + return "cmp%1\t%0\t;cmpqi:(R)";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5505 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5506 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5507 + [(set_attr "length" "1,3,2,1,3,2")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5508 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5509 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5510 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5511 +;;- Compare/branch pattern
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5512 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5513 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5514 +(define_expand "cbranchhi4"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5515 + [(set (cc0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5516 + (compare
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5517 + (match_operand:HI 1 "general_operand" "da, mi, ??Ud")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5518 + (match_operand:HI 2 "general_operand" "mi, da, dU")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5519 + (set (pc)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5520 + (if_then_else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5521 + (match_operator 0 "ordered_comparison_operator" [(cc0) (const_int 0)])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5522 + (label_ref (match_operand 3 "" ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5523 + (pc)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5524 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5525 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5526 +)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5527 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5528 +(define_expand "cbranchqi4"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5529 + [(set (cc0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5530 + (compare
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5531 + (match_operand:QI 1 "whole_general_operand" "q,q, q,O,mt,K")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5532 + (match_operand:QI 2 "whole_general_operand" "O,mt,K,q,q, q")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5533 + (set (pc)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5534 + (if_then_else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5535 + (match_operator 0 "ordered_comparison_operator" [(cc0) (const_int 0)])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5536 + (label_ref (match_operand 3 "" ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5537 + (pc)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5538 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5539 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5540 +)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5541 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5542 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5543 +;;- Move
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5544 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5545 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5546 +; this looks good (obviously not finished) but I still see 'movsi'
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5547 +; places in udivsi3 where it's broken
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5548 +; (define_insn "pushsi1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5549 +; [(set (mem:SI (pre_dec (reg:HI HARD_S_REGNUM)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5550 +; (match_operand:SI 0 "general_operand" "o"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5551 +; (set (reg:HI HARD_S_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5552 +; (plus:HI (reg:HI HARD_S_REGNUM) (const_int -4))) ]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5553 +; ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5554 +; "; pushsi %0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5555 +; [(set_attr "length" "12")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5556 +;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5557 +; (define_insn "popsi1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5558 +; [(set (match_operand:SI 0 "general_operand" "=o")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5559 +; (mem:SI (post_inc (reg:HI HARD_S_REGNUM))))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5560 +; (set (reg:HI HARD_S_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5561 +; (plus:HI (reg:HI HARD_S_REGNUM) (const_int 4))) ]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5562 +; ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5563 +; "; popsi %0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5564 +; [(set_attr "length" "12")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5565 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5566 +; (define_insn "movsi"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5567 +; [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5568 +; (match_operand:SI 1 "general_operand" " oi"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5569 +; ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5570 +; "; movsi %0 <- %1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5571 +; [(set_attr "length" "1")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5572 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5573 +; this doesn't work
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5574 +; (define_expand "movsi"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5575 +; [(parallel [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5576 +; (set (match_operand:SI 0 "nonimmediate_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5577 +; (match_operand:SI 1 "general_operand" ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5578 +; (clobber (match_scratch:HI 2 ""))])]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5579 +; ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5580 +; {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5581 +; rtx insn;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5582 +; if (STACK_PUSH_P (operands[0]) \|\| STACK_POP_P (operands[1]))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5583 +; {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5584 +; REG_NOTES (insn) = alloc_EXPR_LIST (REG_INC, stack_pointer_rtx, REG_NOTES (insn));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5585 +; }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5586 +; insn = emit_move_multi_word (SImode, operands[0], operands[1]);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5587 +; DONE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5588 +; })
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5589 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5590 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5591 +(define_expand "movhi"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5592 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5593 + (match_operand:HI 1 "general_operand" ""))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5594 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5595 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5596 + /* One of the ops has to be in a register prior to reload */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5597 + if (!register_operand (operand0, HImode) &&
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5598 + !register_operand (operand1, HImode))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5599 + operands[1] = copy_to_mode_reg (HImode, operand1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5600 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5601 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5602 +;;; Try a splitter to handle failure cases where we try to move
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5603 +;;; an immediate constant (zero usually) directly to memory.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5604 +;;; This absolutely requires an intermediate register.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5605 +(define_split
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5606 + [(set (match_operand:HI 0 "memory_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5607 + (match_operand:HI 1 "immediate_operand" ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5608 + (clobber (match_operand:HI 2 "register_operand" ""))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5609 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5610 + [(set (match_dup 2) (match_dup 1))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5611 + (set (match_dup 0) (match_dup 2))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5612 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5613 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5614 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5615 +;;; This would be a nice method for loading from a word array,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5616 +;;; but it is never generated because the combiner cannot merge
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5617 +;;; more than 3 instructions (there are four here). This is
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5618 +;;; perhaps better done via a peephole.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5619 +(define_insn "*movhi_array_load"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5620 + [(set (match_operand:HI 0 "nonimmediate_operand" "=da")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5621 + (mem:HI (plus:HI (ashift:HI (zero_extend:HI (match_operand:QI 1 "register_operand" "%B")) (const_int 1))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5622 + (match_operand:HI 2 "immediate_operand" "i"))))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5623 + (clobber (match_scratch:HI 3 "=X"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5624 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5625 + "ldx\t%2\;abx\;abx\;ld%0\t,x"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5626 + [(set_attr "length" "7")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5627 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5628 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5629 +;;; Optimize the move of a byte to the stack using the pshs instruction
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5630 +;;; instead of a store with pre-increment.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5631 +(define_insn "movhi_push"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5632 + [(set (match_operand:HI 0 "push_operand" "=m")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5633 + (match_operand:HI 1 "register_operand" "U"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5634 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5635 + "pshs\t%1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5636 + [(set_attr "length" "2")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5637 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5638 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5639 +(define_insn "*movhi_pic_symbolref"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5640 + [(set (match_operand:HI 0 "register_operand" "=a")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5641 + (match_operand:HI 1 "symbolic_operand" ""))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5642 + "flag_pic"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5643 + "lea%0\t%c1,pcr"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5644 + [(set_attr "length" "4")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5645 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5646 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5647 +(define_insn "*movhi_1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5648 + [(set (match_operand:HI 0 "nonimmediate_operand" "=a,d,a,ad,mu")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5649 + (match_operand:HI 1 "general_operand" " a,a,d,miu,ad"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5650 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5651 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5652 + lea%0\t,%1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5653 + tfr\t%1,%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5654 + tfr\t%1,%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5655 + ld%0\t%1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5656 + st%1\t%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5657 + [(set_attr "length" "2,2,2,,")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5658 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5659 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5660 +;;; Generated by the combiner to merge an address calculation with
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5661 +;;; a byte load. We can use the 'abx' instruction here.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5662 +(define_insn "*movqi_array_load"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5663 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5664 + (mem:QI (plus:HI (zero_extend:HI (match_operand:QI 1 "register_operand" "%B"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5665 + (match_operand:HI 2 "immediate_operand" "i"))))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5666 + (clobber (match_scratch:HI 3 "=X"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5667 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5668 + "ldx\t%2\;abx\;ld%0\t,x"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5669 + [(set_attr "length" "6")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5670 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5671 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5672 +;;; Optimize the move of a byte to the stack using the pshs instruction
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5673 +;;; instead of a store with pre-increment.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5674 +(define_insn "movqi_push"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5675 + [(set (match_operand:QI 0 "push_operand" "=m")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5676 + (match_operand:QI 1 "register_operand" " q"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5677 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5678 + "pshs\t%1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5679 + [(set_attr "length" "2")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5680 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5681 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5682 +;;; Optimize the move of a byte from the stack using the puls instruction
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5683 +;;; instead of a store with post-decrement.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5684 +(define_insn "movqi_pop"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5685 + [(set (match_operand:QI 0 "register_operand" "=q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5686 + (match_operand:QI 1 "pop_operand" "m"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5687 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5688 + "puls\t%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5689 + [(set_attr "length" "2")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5690 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5691 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5692 +;;- load low byte of 16-bit data into 8-bit register/memory
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5693 +(define_insn "*mov_lsb"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5694 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,m,!q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5695 + (subreg:QI (match_operand:HI 1 "general_operand" "d,m,a,d, U") 1))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5696 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5697 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5698 + \t;movlsbqihi: D->B
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5699 + ld%0\t%L1\t;movlsbqihi: msb:%1 -> R:%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5700 + tfr\t%1,d\t;movlsbqihi: R:%1 -> R:%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5701 + stb\t%0\t;movlsbqihi: R:%1 -> %0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5702 + pshs\t%1\t;movlsbqihi: R:%1 -> R:%0\;leas\t1,s\;puls\t%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5703 + [(set_attr "length" "0,,2,,6")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5704 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5705 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5706 +;;- load high byte of 16-bit data into 8-bit register/memory
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5707 +(define_insn "*mov_msb"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5708 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,q,m,!q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5709 + (subreg:QI (match_operand:HI 1 "general_operand" "d,O,a,m,d, U") 0))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5710 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5711 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5712 + tfr\ta,b\t;movmsbqihi: D->B
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5713 + clr%0\t\t;movmsbqihi: ZERO -> R:%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5714 + tfr\t%1,d\t;movmsbqihi: R:%1 -> R:%0\;tfr\ta,b
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5715 + ld%0\t%L1\t;movmsbqihi: lsb:%1 -> R:%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5716 + sta\t%0\t;movmsbqihi: R:%1 -> %0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5717 + pshs\t%1\t;movmsbqihi: R:%1 -> R:%0\;puls\t%0\;leas\t1,s"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5718 + [(set_attr "length" "2,1,4,,,6")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5719 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5720 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5721 +(define_insn "*movqi_boolean"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5722 + [(set (reg:QI HARD_Z_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5723 + (match_operand:QI 0 "general_operand" "q,O,i,m"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5724 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5725 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5726 + tst%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5727 + andcc\t#~4
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5728 + orcc\t#4
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5729 + tst\t%0")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5730 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5731 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5732 +(define_insn "movqi"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5733 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,m,q,m,q,z")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5734 + (match_operand:QI 1 "general_operand" " q,O,O,mi,q,z,q"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5735 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5736 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5737 + tfr\t%1,%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5738 + clr%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5739 + clr\t%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5740 + ld%0\t%1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5741 + st%1\t%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5742 + tfr\tcc,%0\;and%0\t#4
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5743 + tst%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5744 + [(set_attr "length" "2,1,3,,,4,1")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5745 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5746 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5747 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5748 +;;- Swap registers
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5749 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5750 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5751 +; Note: 8-bit swap is never needed so it is not defined.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5752 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5753 +(define_insn "swaphi"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5754 + [(set (match_operand:HI 0 "register_operand" "+r")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5755 + (match_operand:HI 1 "register_operand" "+r"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5756 + (set (match_dup 1) (match_dup 0))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5757 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5758 + "exg\t%1,%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5759 + [(set_attr "length" "2")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5760 + (set (attr "cycles") (const_int EXG_CYCLES))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5761 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5762 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5763 +(define_insn "bswaphi2"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5764 + [(set (match_operand:HI 0 "register_operand" "=d")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5765 + (bswap:HI (match_operand:HI 1 "register_operand" "0")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5766 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5767 + "exg\ta,b"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5768 + [(set_attr "length" "2")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5769 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5770 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5771 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5772 +;;- Extension and truncation insns.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5773 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5774 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5775 +(define_insn "extendqihi2"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5776 + [(set (match_operand:HI 0 "register_operand" "=d")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5777 + (sign_extend:HI (match_operand:QI 1 "general_operand" "B")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5778 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5779 + "sex\t\t;extendqihi2: R:%1 -> R:%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5780 + [(set_attr "length" "1")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5781 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5782 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5783 +(define_insn "zero_extendqihi2"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5784 + [(set (match_operand:HI 0 "register_operand" "=d")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5785 + (zero_extend:HI (match_operand:QI 1 "general_operand" "B")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5786 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5787 + "clra\t\t;zero_extendqihi: R:%1 -> R:%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5788 + [(set_attr "length" "1")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5789 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5790 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5791 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5792 +;;- All kinds of add instructions.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5793 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5794 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5795 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5796 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5797 +;; gcc's automatic version of addsi3 doesn't know about adcb,adca
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5798 +;; so it is MUCH less efficient. Define this one ourselves.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5799 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5800 +;; TODO - can't always get 'd' for the clobber... allow other registers
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5801 +;; as well and use exg d,R ... exg R,d around the code sequence to
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5802 +;; use others, at a price. Also consider libcall for this when
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5803 +;; optimizing for size.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5804 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5805 +(define_insn "addsi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5806 + [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5807 + (plus:SI (match_operand:SI 1 "general_operand" "%o")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5808 + (match_operand:SI 2 "general_operand" " oi")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5809 + (clobber (match_scratch:HI 3 "=d"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5810 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5811 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5812 + m6809_output_addsi3 (PLUS, operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5813 + return "";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5814 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5815 + [(set_attr "length" "21")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5816 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5817 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5818 +; Increment of a 16-bit MEM by 1 can be done without a register.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5819 +(define_insn "*addhi_mem_1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5820 + [(set (match_operand:HI 0 "memory_operand" "=m")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5821 + (plus:HI (match_dup 0) (const_int 1)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5822 + "GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5823 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5824 + rtx xoperands[2];
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5825 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5826 + xoperands[0] = operands[0];
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5827 + xoperands[1] = adjust_address (operands[0], QImode, 1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5828 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5829 + output_asm_insn ("inc\t%1", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5830 + output_asm_insn ("bne\t__IL%=", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5831 + output_asm_insn ("inc\t%0\;__IL%=:", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5832 + return "";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5833 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5834 + [(set_attr "length" "7")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5835 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5836 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5837 +; Decrement of a 16-bit MEM by 1 can be done without a register.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5838 +(define_insn "*addhi_mem_minus1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5839 + [(set (match_operand:HI 0 "memory_operand" "=m")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5840 + (plus:HI (match_dup 0) (const_int -1)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5841 + "GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5842 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5843 + rtx xoperands[2];
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5844 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5845 + xoperands[0] = operands[0];
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5846 + xoperands[1] = adjust_address (operands[0], QImode, 1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5847 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5848 + output_asm_insn ("tst\t%1", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5849 + output_asm_insn ("bne\t__IL%=", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5850 + output_asm_insn ("dec\t%0", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5851 + output_asm_insn ("__IL%=:", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5852 + output_asm_insn ("dec\t%1", xoperands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5853 + return "";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5854 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5855 + [(set_attr "length" "7")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5856 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5857 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5858 +; Allow the addition of an 8-bit quantity to a 16-bit quantity
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5859 +; using the LEAX B,Y addressing mode, where X and Y are both
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5860 +; index registers. This will only get generated via the peephole
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5861 +; which removes a sign extension.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5862 +(define_insn "*addhi_b"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5863 + [(set (match_operand:HI 0 "index_register_operand" "=a")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5864 + (plus:HI(match_operand:HI 1 "index_register_operand" "%a")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5865 + (match_operand:QI 2 "register_operand" "q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5866 + ))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5867 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5868 + "lea%0\t%2,%1\t;addhi_b: R:%0 = R:%2 + R:%1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5869 + [(set_attr "length" "*")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5870 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5871 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5872 +; Splitter for addhi pattern #5 below
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5873 +(define_split
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5874 + [(set (match_operand:HI 0 "index_register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5875 + (plus:HI (match_dup 0) (match_operand:HI 1 "memory_operand" "")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5876 + "reload_completed"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5877 + [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5878 + (parallel [(set (match_dup 0) (reg:HI HARD_D_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5879 + (set (reg:HI HARD_D_REGNUM) (match_dup 0))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5880 + (set (reg:HI HARD_D_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5881 + (plus:HI (reg:HI HARD_D_REGNUM) (match_dup 1)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5882 + (parallel [(set (match_dup 0) (reg:HI HARD_D_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5883 + (set (reg:HI HARD_D_REGNUM) (match_dup 0))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5884 + ]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5885 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5886 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5887 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5888 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5889 +; Splitter for addhi pattern #7 below
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5890 +(define_split
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5891 + [(set (match_operand:HI 0 "index_register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5892 + (plus:HI (match_dup 0) (match_operand:HI 1 "index_register_operand" "")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5893 + "reload_completed"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5894 + [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5895 + (parallel [(set (match_dup 1) (reg:HI HARD_D_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5896 + (set (reg:HI HARD_D_REGNUM) (match_dup 1))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5897 + (set (match_dup 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5898 + (plus:HI (reg:HI HARD_D_REGNUM) (match_dup 0)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5899 + (parallel [(set (match_dup 1) (reg:HI HARD_D_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5900 + (set (reg:HI HARD_D_REGNUM) (match_dup 1))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5901 + ]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5902 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5903 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5904 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5905 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5906 +; TODO - this is ugly. During RTL generation, we don't know what registers
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5907 +; are available, so the multiple-insn sequences can only be solved
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5908 +; via 'define_split's during matching. See andhi3 for an example.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5909 +; Keep the constraints with ? modifiers to help reload pick the right
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5910 +; registers.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5911 +;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5912 +; The forms are:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5913 +; 1. D += D, expand this into a shift instead. (rtx costs should be corrected
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5914 +; to avoid this even happening...)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5915 +; 2. D += U, require U to be pushed to memory. (Lots of patterns do this
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5916 +; now, is this a better way?)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5917 +; 3. Best choice: 'addd'
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5918 +; 4. Next best choice: 'lea'
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5919 +; 5. Hybrid of 3 and 4
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5920 +; 6. Same as 4, not bad
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5921 +; 7. BAD, no D register at all
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5922 +; 8. 'lea', as good as 4.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5923 +(define_insn "addhi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5924 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d, d, d, a,?a, a,???T,a")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5925 + (plus:HI(match_operand:HI 1 "add_general_operand" "%0, 0, 0, d, 0, a, 0, a")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5926 + (match_operand:HI 2 "general_operand" " 0, !U, mi, a, m, d, T, i")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5927 + ))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5928 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5929 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5930 + lslb\t\t;addhi: R:%0 += R:%2\;rola\t\t;also R:%0 *= 2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5931 + pshs\t%2\t;addhi: R:%0 += R:%2\;add%0\t,s++
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5932 + add%0\t%2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5933 + lea%0\t%1,%2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5934 + #
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5935 + lea%0\t%2,%1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5936 + #
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5937 + lea%0\t%a2,%1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5938 + [(set_attr "length" "2,6,,,7,,7,")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5939 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5940 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5941 +(define_insn "addqi3_carry"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5942 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5943 + (unspec:QI [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5944 + (match_operand:QI 1 "whole_general_operand" "%0")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5945 + (match_operand:QI 2 "whole_general_operand" "tmi")] UNSPEC_ADD_CARRY))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5946 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5947 + "adc%0\t%2\t;addqi_carry: R:%0 += %2"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5948 + [(set_attr "length" "*")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5949 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5950 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5951 +; TODO: specifying 'A' for the first constraint, to force into the A register
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5952 +; is not working because of the way registers are currently set up. This will
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5953 +; take some work to get right. Thus the second alternative as a backup.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5954 +(define_insn "addqi3_decimal"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5955 + [(set (match_operand:QI 0 "nonimmediate_operand" "=A,?q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5956 + (unspec:QI [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5957 + (match_operand:QI 1 "general_operand" "%0,0")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5958 + (match_operand:QI 2 "general_operand" "mi,mi")] UNSPEC_ADD_DECIMAL))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5959 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5960 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5961 + adda\t%2\;daa
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5962 + tfr\t%0,a\;adda\t%2\;daa\;tfr\ta,%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5963 + [(set_attr "length" "5,9")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5964 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5965 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5966 +(define_insn "addqi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5967 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,q,q,m,m,q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5968 + (plus:QI (match_operand:QI 1 "whole_general_operand" "%0,0,0,0,0,0")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5969 + (match_operand:QI 2 "whole_general_operand" " 0,I,N,I,N,mi")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5970 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5971 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5972 + asl%0\t\t;addqi: R:%0 = R:%0 + R:%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5973 + inc%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5974 + dec%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5975 + inc\t%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5976 + dec\t%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5977 + add%0\t%2"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5978 + [(set_attr "length" "1,1,1,3,3,*")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5979 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5980 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5981 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5982 +;;- Subtract instructions.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5983 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5984 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5985 +(define_insn "subsi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5986 + [(set (match_operand:SI 0 "nonimmediate_operand" "=o")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5987 + (minus:SI (match_operand:SI 1 "general_operand" " o")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5988 + (match_operand:SI 2 "general_operand" " oi")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5989 + (clobber (match_scratch:HI 3 "=d"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5990 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5991 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5992 + m6809_output_addsi3 (MINUS, operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5993 + return "";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5994 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5995 + [(set_attr "length" "21")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5996 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5997 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5998 +(define_insn "subhi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	5999 + [(set (match_operand:HI 0 "register_operand" "=d, d, a")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6000 + (minus:HI (match_operand:HI 1 "register_operand" "0, 0, 0")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6001 + (match_operand:HI 2 "general_operand" "mi, ?U,n")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6002 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6003 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6004 + sub%0\t%2\t;subhi: R:%0 -= %2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6005 + pshs\t%2\t;subhi: R:%0 -= R:%2\;sub%0\t,s++
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6006 + lea%0\t%n2,%1\t;subhi: R:%0 = R:%1 + %n2"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6007 + [(set_attr "length" "*,5,3")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6008 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6009 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6010 +(define_insn "subqi3_carry"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6011 + [(set (match_operand:QI 0 "register_operand" "=q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6012 + (unspec:QI [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6013 + (match_operand:QI 1 "whole_general_operand" "%0")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6014 + (match_operand:QI 2 "whole_general_operand" "tmi")] UNSPEC_SUB_CARRY))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6015 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6016 + "sbc%0\t%2\t;subqi_carry: R:%0 += %2"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6017 + [(set_attr "length" "*")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6018 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6019 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6020 +(define_insn "subqi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6021 + [(set (match_operand:QI 0 "register_operand" "=q, q, !q, q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6022 + (minus:QI (match_operand:QI 1 "whole_register_operand" "0, 0, I, 0")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6023 + (match_operand:QI 2 "whole_general_operand" "I, mi, 0, t")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6024 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6025 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6026 + dec%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6027 + sub%0\t%2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6028 + dec%0\;neg%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6029 + sub%0\t%2"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6030 + [(set_attr "length" "1,3,2,3")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6031 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6032 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6033 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6034 +;;- Multiply instructions.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6035 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6036 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6037 +; TODO - merge these two instructions, using 'extend_operator' to match
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6038 +; either signed or zero extension. Everything else is the same.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6039 +(define_insn "mulqihi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6040 + [(set (match_operand:HI 0 "register_operand" "=d")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6041 + (mult:HI (sign_extend:HI (match_operand:QI 1 "general_operand" "%q"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6042 + (match_operand:QI 2 "general_operand" "tmK")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6043 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6044 + "lda\t%2\t;mulqihi3\;mul"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6045 + [(set_attr "length" "3")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6046 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6047 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6048 +(define_insn "umulqihi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6049 + [(set (match_operand:HI 0 "register_operand" "=d")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6050 + (mult:HI (zero_extend:HI (match_operand:QI 1 "general_operand" "%q"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6051 + (match_operand:QI 2 "general_operand" "tmK")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6052 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6053 + "lda\t%2\t;umulqihi3\;mul"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6054 + [(set_attr "length" "3")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6055 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6056 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6057 +; Expand a 16x16 multiplication into either a libcall or a shift.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6058 +; If the second operand is a small constant, use the above form.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6059 +; Otherwise, do a libcall.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6060 +(define_expand "mulhi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6061 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6062 + (mult:HI (match_operand:HI 1 "general_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6063 + (match_operand:HI 2 "nonmemory_operand" "")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6064 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6065 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6066 + emit_libcall_insns (HImode, "mulhi3", operands, 2);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6067 + DONE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6068 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6069 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6070 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6071 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6072 +;;- Divide instructions.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6073 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6074 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6075 +(define_expand "divhi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6076 + [(set (match_operand:HI 0 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6077 + (div:HI (match_operand:HI 1 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6078 + (match_operand:HI 2 "register_operand" "")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6079 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6080 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6081 + emit_libcall_insns (HImode, "divhi3", operands, 2);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6082 + DONE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6083 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6084 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6085 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6086 +(define_expand "divqi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6087 + [(set (match_operand:QI 0 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6088 + (div:QI (match_operand:QI 1 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6089 + (match_operand:QI 2 "register_operand" "")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6090 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6091 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6092 + emit_libcall_insns (QImode, "divqi3", operands, 2);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6093 + DONE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6094 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6095 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6096 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6097 +(define_expand "udivhi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6098 + [(set (match_operand:HI 0 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6099 + (udiv:HI (match_operand:HI 1 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6100 + (match_operand:HI 2 "register_operand" "")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6101 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6102 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6103 + emit_libcall_insns (HImode, "udivhi3", operands, 2);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6104 + DONE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6105 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6106 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6107 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6108 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6109 +;;- mod
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6110 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6111 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6112 +(define_expand "modhi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6113 + [(set (match_operand:HI 0 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6114 + (mod:HI (match_operand:HI 1 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6115 + (match_operand:HI 2 "register_operand" "")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6116 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6117 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6118 + emit_libcall_insns (HImode, "modhi3", operands, 2);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6119 + DONE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6120 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6121 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6122 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6123 +(define_expand "modqi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6124 + [(set (match_operand:QI 0 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6125 + (mod:QI (match_operand:QI 1 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6126 + (match_operand:QI 2 "register_operand" "")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6127 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6128 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6129 + emit_libcall_insns (QImode, "modqi3", operands, 2);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6130 + DONE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6131 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6132 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6133 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6134 +(define_expand "umodhi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6135 + [(set (match_operand:HI 0 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6136 + (umod:HI (match_operand:HI 1 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6137 + (match_operand:HI 2 "register_operand" "")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6138 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6139 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6140 + emit_libcall_insns (HImode, "umodhi3", operands, 2);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6141 + DONE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6142 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6143 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6144 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6145 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6146 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6147 +;;- and, or, xor common patterns
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6148 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6149 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6150 +; Split a bitwise HImode into two QImode instructions, with one of
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6151 +; the sources in a pushable register. The register is pushed onto
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6152 +; the stack and memory pop operands (,s+) are used in the QI forms.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6153 +(define_split
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6154 + [(set (match_operand:HI 0 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6155 + (match_operator:HI 3 "logical_bit_operator"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6156 + [(match_operand:HI 1 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6157 + (match_operand:HI 2 "register_operand" "")]))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6158 + "reload_completed"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6159 + [(set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 2))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6160 + (set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6161 + [(reg:QI HARD_A_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6162 + (mem:QI (post_inc:QI (reg:HI HARD_S_REGNUM)))]))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6163 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6164 + [(reg:QI HARD_D_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6165 + (mem:QI (post_inc:QI (reg:HI HARD_S_REGNUM)))]))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6166 + (use (reg:QI HARD_A_REGNUM))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6167 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6168 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6169 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6170 +; Split a bitwise HImode into two QImode instructions, with one
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6171 +; of the sources being a (MEM (MEM (...)); i.e. an indirect memory
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6172 +; reference. This requires dereferencing the pointer into a
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6173 +; temporary register (X), which must be saved/restored around the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6174 +; compute instructions.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6175 +(define_split
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6176 + [(set (match_operand:HI 0 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6177 + (match_operator:HI 3 "logical_bit_operator"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6178 + [(match_operand:HI 1 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6179 + (mem:HI (match_operand:HI 2 "memory_operand" ""))]))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6180 + "reload_completed"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6181 + [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6182 + (set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 4))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6183 + (set (match_dup 4) (match_dup 2))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6184 + (set (match_dup 4) (mem:HI (match_dup 4)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6185 + (set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6186 + [(reg:QI HARD_A_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6187 + (mem:QI (post_inc:QI (match_dup 4)))]))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6188 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6189 + [(reg:QI HARD_D_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6190 + (mem:QI (post_inc:QI (match_dup 4)))]))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6191 + (use (reg:QI HARD_A_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6192 + (set (match_dup 4) (mem:HI (post_inc:HI (reg:HI HARD_S_REGNUM))))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6193 + ]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6194 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6195 + /* Use X for a temporary index register */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6196 + operands[4] = gen_rtx_REG (HImode, HARD_X_REGNUM);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6197 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6198 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6199 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6200 +; Split a bitwise HImode into two QImode instructions. This is
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6201 +; the common case. This handles splitting when neither of the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6202 +; above two cases applies.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6203 +(define_split
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6204 + [(set (match_operand:HI 0 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6205 + (match_operator:HI 3 "logical_bit_operator"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6206 + [(match_operand:HI 1 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6207 + (match_operand:HI 2 "general_operand" "")]))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6208 + "reload_completed"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6209 + [(set (reg:QI HARD_A_REGNUM) (match_op_dup:QI 3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6210 + [(reg:QI HARD_A_REGNUM) (match_dup 4)]))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6211 + (set (reg:QI HARD_D_REGNUM) (match_op_dup:QI 3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6212 + [(reg:QI HARD_D_REGNUM) (match_dup 5)]))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6213 + (use (reg:QI HARD_A_REGNUM))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6214 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6215 + if (GET_CODE (operands[2]) == CONST_INT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6216 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6217 + operands[4] = gen_rtx_const_high (operands[2]);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6218 + operands[5] = gen_rtx_const_low (operands[2]);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6219 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6220 + else if ((GET_CODE (operands[2]) == MEM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6221 + && (GET_CODE (XEXP (operands[2], 0)) == MEM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6222 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6223 + FAIL;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6224 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6225 + else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6226 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6227 + operands[4] = gen_highpart (QImode, operands[2]);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6228 + operands[5] = gen_lowpart (QImode, operands[2]);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6229 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6230 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6231 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6232 +; Below are the specific cases for each of the operators.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6233 +; The QImode versions are the simplest and can be implemented
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6234 +; directly on the hardware. The HImode cases are all output
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6235 +; using one of the above splitting techniques.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6236 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6237 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6238 +;;- and
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6239 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6240 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6241 +(define_insn "andhi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6242 + [(set (match_operand:HI 0 "register_operand" "=d")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6243 + (and:HI (match_operand:HI 1 "register_operand" "%0")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6244 + (match_operand:HI 2 "general_operand" "mnU")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6245 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6246 + "#")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6247 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6248 +;; it is not clear that this is correct
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6249 +(define_insn "*andqi_2"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6250 + [(set
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6251 + (match_operand:QI 0 "register_operand" "=q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6252 + (and:QI (match_operand:QI 1 "register_operand" "q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6253 + (match_operand 2 "const_int_operand" "i")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6254 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6255 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6256 + if (GET_CODE (operands[2]) == CONST_INT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6257 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6258 + operands[3] = GEN_INT(INTVAL(operands[2]) & 0xff);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6259 + return "and%0 %3";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6260 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6261 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6262 + return "and%0 %2";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6263 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6264 + [(set_attr "length" "2")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6265 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6266 +(define_insn "andqi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6267 + [(set (match_operand:QI 0 "register_operand" "=q,q,q,qc")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6268 + (and:QI (match_operand:QI 1 "whole_register_operand" "%0,0,0,0")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6269 + (match_operand:QI 2 "whole_general_operand" " O,N,m,i")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6270 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6271 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6272 + clr%0\t;andqi(ZERO)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6273 + \t;andqi(-1)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6274 + and%0\t%2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6275 + and%0\t%2"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6276 + [(set_attr "length" "1,0,3,2")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6277 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6278 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6279 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6280 +;;- or
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6281 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6282 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6283 +(define_insn "iorhi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6284 + [(set (match_operand:HI 0 "register_operand" "=d")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6285 + (ior:HI (match_operand:HI 1 "register_operand" "%0")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6286 + (match_operand:HI 2 "general_operand" "mnU")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6287 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6288 + "#")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6289 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6290 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6291 +(define_insn "iorqi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6292 + [(set (match_operand:QI 0 "register_operand" "=q,q, qc")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6293 + (ior:QI (match_operand:QI 1 "whole_register_operand" "%0,0, 0")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6294 + (match_operand:QI 2 "whole_general_operand" " O,m,i")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6295 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6296 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6297 + \t;iorqi(ZERO)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6298 + or%0\t%2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6299 + or%0\t%2"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6300 + [(set_attr "length" "0,3,2")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6301 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6302 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6303 +;;- xor
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6304 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6305 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6306 +(define_insn "xorhi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6307 + [(set (match_operand:HI 0 "register_operand" "=d")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6308 + (xor:HI (match_operand:HI 1 "register_operand" "%0")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6309 + (match_operand:HI 2 "general_operand" "mnU")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6310 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6311 + "#")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6312 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6313 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6314 +(define_insn "xorqi3"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6315 + [(set (match_operand:QI 0 "register_operand" "=q,q,q,q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6316 + (xor:QI (match_operand:QI 1 "whole_register_operand" "%0,0,0,0")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6317 + (match_operand:QI 2 "whole_general_operand" " O,N,m,i")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6318 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6319 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6320 + \t;xorqi(ZERO)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6321 + com%0\t;xorqi(-1)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6322 + eor%0\t%2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6323 + eor%0\t%2"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6324 + [(set_attr "length" "0,1,3,2")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6325 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6326 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6327 +;;- Two's Complements
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6328 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6329 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6330 +(define_insn "neghi2"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6331 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d,!a")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6332 + (neg:HI (match_operand:HI 1 "general_operand" "0, 0")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6333 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6334 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6335 + nega\;negb\;sbca\t#0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6336 + exg\td,%0\;nega\;negb\;sbca\t#0\;exg\td,%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6337 + [(set_attr "length" "5,9")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6338 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6339 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6340 +(define_insn "negqi2"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6341 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,m")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6342 + (neg:QI (match_operand:QI 1 "nonimmediate_operand" "0,0")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6343 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6344 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6345 + neg%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6346 + neg\t%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6347 + [(set_attr "length" "1,3")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6348 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6349 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6350 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6351 +;;- One's Complements
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6352 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6353 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6354 +(define_insn "one_cmplhi2"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6355 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d,?tm,???a")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6356 + (not:HI (match_operand:HI 1 "general_operand" "0, 0, 0")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6357 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6358 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6359 + coma\;comb
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6360 + com\t%0\;com\t%L0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6361 + exg\td,%0\;coma\;comb\;exg\td,%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6362 + [(set_attr "length" "2,6,6")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6363 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6364 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6365 +(define_insn "one_cmplqi2"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6366 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q,m")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6367 + (not:QI (match_operand:QI 1 "nonimmediate_operand" "0,0")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6368 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6369 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6370 + com%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6371 + com\t%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6372 + [(set_attr "length" "1,3")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6373 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6374 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6375 +;;- Shifts/rotates
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6376 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6377 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6378 +(define_code_iterator bit_code [ashift ashiftrt lshiftrt])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6379 +(define_code_attr bit_code_name [(ashift "ashl") (ashiftrt "ashr") (lshiftrt "lshr")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6380 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6381 +(define_mode_iterator bit_mode [QI HI])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6382 +(define_mode_attr bit_mode_name [(QI "qi3") (HI "hi3")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6383 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6384 +;; Emit RTL for any shift (handles all 3 opcodes and 2 mode sizes)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6385 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6386 +(define_expand "<bit_code:bit_code_name><bit_mode:bit_mode_name>"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6387 + [(set (match_operand:bit_mode 0 "nonimmediate_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6388 + (bit_code:bit_mode (match_operand:bit_mode 1 "general_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6389 + (match_operand:bit_mode 2 "nonmemory_operand" "")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6390 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6391 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6392 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6393 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6394 +; Individual instructions implemented in the CPU.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6395 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6396 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6397 +(define_insn "*ashift1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6398 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6399 + (ashift:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6400 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6401 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6402 + asl\t%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6403 + asl%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6404 + [(set_attr "length" "3,1")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6405 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6406 +(define_insn "*lshiftrt1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6407 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6408 + (lshiftrt:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6409 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6410 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6411 + lsr\t%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6412 + lsr%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6413 + [(set_attr "length" "3,1")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6414 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6415 +(define_insn "*ashiftrt1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6416 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6417 + (ashiftrt:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6418 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6419 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6420 + asr\t%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6421 + asr%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6422 + [(set_attr "length" "3,1")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6423 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6424 +(define_insn "*rotate1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6425 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6426 + (rotate:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6427 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6428 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6429 + rol\t%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6430 + rol%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6431 + [(set_attr "length" "3,1")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6432 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6433 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6434 +(define_insn "*rotatert1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6435 + [(set (match_operand:QI 0 "nonimmediate_operand" "=m,q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6436 + (rotatert:QI (match_operand:QI 1 "general_operand" "0,0") (const_int 1)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6437 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6438 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6439 + ror\t%0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6440 + ror%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6441 + [(set_attr "length" "3,1")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6442 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6443 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6444 +; A shift by 8 for D reg can be optimized by just moving
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6445 +; between the A/B halves, and then zero/sign extending or
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6446 +; filling in zeroes.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6447 +; Because GCC does not understand that 'A' and 'D' refer to
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6448 +; the same storage location, we must use 'USE' throughout
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6449 +; to prevent deletion of 'unnecessary' instructions.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6450 +; Similar optimization for MEM would require a scratch register
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6451 +; so is not done here.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6452 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6453 +(define_split
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6454 + [(set (reg:HI HARD_D_REGNUM) (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 8)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6455 + "reload_completed"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6456 + [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6457 + (use (reg:HI HARD_D_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6458 + (set (reg:QI HARD_A_REGNUM) (reg:QI HARD_D_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6459 + (use (reg:QI HARD_A_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6460 + (set (reg:QI HARD_D_REGNUM) (const_int 0))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6461 + ]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6462 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6463 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6464 +(define_split
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6465 + [(set (reg:HI HARD_D_REGNUM) (lshiftrt:HI (reg:HI HARD_D_REGNUM) (const_int 8)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6466 + "reload_completed"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6467 + [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6468 + (use (reg:HI HARD_D_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6469 + (set (reg:QI HARD_D_REGNUM) (reg:QI HARD_A_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6470 + (use (reg:QI HARD_D_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6471 + (set (reg:HI HARD_D_REGNUM) (zero_extend:HI (reg:QI HARD_D_REGNUM)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6472 + ]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6473 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6474 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6475 +(define_split
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6476 + [(set (reg:HI HARD_D_REGNUM) (ashiftrt:HI (reg:HI HARD_D_REGNUM) (const_int 8)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6477 + "reload_completed"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6478 + [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6479 + (use (reg:HI HARD_D_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6480 + (set (reg:QI HARD_D_REGNUM) (reg:QI HARD_A_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6481 + (use (reg:QI HARD_D_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6482 + (set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6483 + ]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6484 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6485 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6486 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6487 +; On the WPC hardware, there is a shift register that can be used
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6488 +; to compute (1<<n) efficiently in two instructions. Note that this
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6489 +; form only works when using -mint8 though, because C will promote
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6490 +; to 'int' when doing this operation. TODO : we need a 16-bit form too.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6491 +(define_insn "ashlqi3_wpc"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6492 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6493 + (ashift:QI (match_operand:QI 1 "immediate_operand" "I")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6494 + (match_operand:QI 2 "general_operand" "q")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6495 + "TARGET_WPC"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6496 + "st%2\t0x3FF7\;ld%0\t0x3FF7"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6497 + [(set_attr "length" "6")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6498 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6499 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6500 +; Internal instructions for shifting by a constant.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6501 +; Two forms are provided, one for QImode, one for HImode.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6502 +; These are always split into the above instructions
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6503 +; (except for QImode forms that directly match one of the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6504 +; above instructions, in which the condition will not
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6505 +; allow the splitter to match).
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6506 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6507 +(define_insn_and_split "<bit_code:bit_code_name>hi3_const"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6508 + [(set (match_operand:HI 0 "nonimmediate_operand" "=dm")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6509 + (bit_code:HI (match_operand:HI 1 "general_operand" "0")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6510 + (match_operand:HI 2 "immediate_operand" "n")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6511 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6512 + "#"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6513 + "reload_completed"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6514 + [(const_int 0)]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6515 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6516 + m6809_split_shift (<bit_code:CODE>, operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6517 + DONE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6518 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6519 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6520 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6521 +(define_insn_and_split "<bit_code:bit_code_name>qi3_const"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6522 + [(set (match_operand:QI 0 "nonimmediate_operand" "=qm")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6523 + (bit_code:QI (match_operand:QI 1 "general_operand" "0")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6524 + (match_operand:QI 2 "immediate_operand" "n")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6525 + "INTVAL (operands[2]) > 1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6526 + "#"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6527 + "&& reload_completed"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6528 + [(const_int 0)]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6529 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6530 + m6809_split_shift (<bit_code:CODE>, operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6531 + DONE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6532 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6533 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6534 +; Internal instructions for shifting by a nonconstant.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6535 +; These expand into complex assembly.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6536 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6537 +(define_insn "<bit_code:bit_code_name>hi3_reg"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6538 + [(set (match_operand:HI 0 "nonimmediate_operand" "=d")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6539 + (bit_code:HI (match_operand:HI 1 "general_operand" "0")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6540 + (match_operand:HI 2 "nonimmediate_operand" "v")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6541 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6542 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6543 + m6809_output_shift_insn (<bit_code:CODE>, operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6544 + return "";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6545 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6546 + [(set_attr "length" "20")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6547 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6548 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6549 +(define_insn "<bit_code:bit_code_name>qi3_reg"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6550 + [(set (match_operand:QI 0 "nonimmediate_operand" "=q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6551 + (bit_code:QI (match_operand:QI 1 "general_operand" "0")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6552 + (match_operand:QI 2 "nonimmediate_operand" "v")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6553 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6554 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6555 + m6809_output_shift_insn (<bit_code:CODE>, operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6556 + return "";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6557 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6558 + [(set_attr "length" "16")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6559 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6560 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6561 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6562 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6563 +;;- Jumps and transfers
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6564 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6565 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6566 +;;; The casesi pattern is normally not defined; see 'tablejump' instead.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6567 +(define_expand "casesi"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6568 + [(match_operand:HI 0 "register_operand" "") ; index to jump on
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6569 + (match_operand:HI 1 "immediate_operand" "") ; lower bound
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6570 + (match_operand:HI 2 "immediate_operand" "") ; total range
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6571 + (match_operand 3 "" "") ; table label
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6572 + (match_operand 4 "" "")] ; out of range label
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6573 + "TARGET_BYTE_INT && TARGET_CASESI"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6574 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6575 + m6809_do_casesi (operands[0], operands[1], operands[2],
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6576 + operands[3], operands[4]);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6577 + DONE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6578 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6579 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6580 +(define_insn "tablejump_short_offset"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6581 + [(set (pc)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6582 + (mem:HI (plus:HI (match_operand:HI 1 "register_operand" "U")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6583 + (zero_extend:HI (match_operand:QI 0 "register_operand" "q")))))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6584 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6585 + "jmp\t[b,x]\t;tablejump_short_offset"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6586 + [(set_attr "length" "3")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6587 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6588 +(define_insn "tablejump_long_offset"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6589 + [(set (pc)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6590 + (mem:HI (plus:HI (match_operand:HI 1 "register_operand" "U")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6591 + (match_operand:HI 0 "register_operand" "d"))))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6592 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6593 + "jmp\t[d,x]\t;tablejump_long_offset"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6594 + [(set_attr "length" "3")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6595 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6596 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6597 + ;; A tablejump operation gives the address in operand 0, with the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6598 + ;; CODE_LABEL for the table in operand 1. The 'define_expand'
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6599 + ;; shows the arguments as GCC presents them. For a register
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6600 + ;; operand, the assembly code is straightforward. For a MEM,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6601 + ;; assumed to be a SYMBOL_REF, two forms are given, one normal
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6602 + ;; and one for PIC mode.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6603 + (define_expand "tablejump"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6604 + [(parallel [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6605 + (set (pc) (match_operand:HI 0 "" ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6606 + (use (label_ref (match_operand 1 "" "")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6607 + (clobber (match_scratch:HI 2 ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6608 + ])]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6609 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6610 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6611 + })
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6612 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6613 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6614 +(define_insn "*tablejump_reg"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6615 + [(parallel [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6616 + (set (pc)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6617 + (match_operand:HI 0 "register_operand" "a"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6618 + (use (label_ref (match_operand 1 "" "")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6619 + (clobber (match_scratch:HI 2 ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6620 + ])]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6621 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6622 + "jmp\t,%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6623 + [(set_attr "length" "3")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6624 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6625 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6626 +(define_insn "*tablejump_symbol"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6627 + [(parallel [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6628 + (set (pc)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6629 + (mem:HI
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6630 + (plus:HI (match_operand:HI 0 "register_operand" "a")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6631 + (label_ref (match_operand 1 "" "")))))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6632 + (use (label_ref (match_dup 1)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6633 + (clobber (match_scratch:HI 2 ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6634 + ])]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6635 + "!flag_pic"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6636 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6637 + output_asm_insn ("jmp\t[%a1,%0]", operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6638 + return "";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6639 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6640 + [(set_attr "length" "4")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6641 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6642 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6643 +(define_insn "*tablejump_symbol_pic"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6644 + [(parallel [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6645 + (set (pc)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6646 + (mem:HI
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6647 + (plus:HI (match_operand:HI 0 "register_operand" "d")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6648 + (label_ref (match_operand 1 "" "")))))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6649 + (use (label_ref (match_dup 1)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6650 + (clobber (match_scratch:HI 2 "=&a"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6651 + ])]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6652 + "flag_pic"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6653 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6654 + output_asm_insn ("lea%2\t%a1,pcr", operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6655 + output_asm_insn ("ld%0\t%0,%2", operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6656 + output_asm_insn ("jmp\t%0,%2", operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6657 + return "";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6658 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6659 + [(set_attr "length" "8")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6660 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6661 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6662 +(define_insn "indirect_jump"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6663 + [(set (pc)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6664 + (match_operand:HI 0 "register_operand" "a"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6665 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6666 + "jmp\t,%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6667 + [(set_attr "length" "3")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6668 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6669 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6670 +(define_insn "jump"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6671 + [(set (pc) (label_ref (match_operand 0 "" "")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6672 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6673 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6674 + return output_branch_insn ( LABEL_REF, operands, get_attr_length (insn));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6675 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6676 + [(set (attr "type") (const_string "branch"))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6677 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6678 +; Output assembly for a condition branch instruction.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6679 +(define_insn "*cond_branch"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6680 + [(set (pc)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6681 + (if_then_else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6682 + (match_operator 1 "comparison_operator" [(cc0) (const_int 0)])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6683 + (label_ref (match_operand 0 "" "")) (pc)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6684 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6685 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6686 + return output_branch_insn ( GET_CODE(operands[1]),
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6687 + operands, get_attr_length (insn));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6688 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6689 + [(set (attr "type") (const_string "cbranch"))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6690 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6691 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6692 +; Similar to above, but for a condition branch instruction that
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6693 +; had its operands reversed at some point.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6694 +(define_insn "*cond_branch_reverse"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6695 + [(set (pc)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6696 + (if_then_else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6697 + (match_operator 1 "comparison_operator" [(cc0) (const_int 0)])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6698 + (pc) (label_ref (match_operand 0 "" ""))))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6699 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6700 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6701 + return output_branch_insn ( reverse_condition (GET_CODE(operands[1])),
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6702 + operands, get_attr_length (insn));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6703 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6704 + [(set (attr "type") (const_string "cbranch"))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6705 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6706 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6707 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6708 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6709 +;;- Calls
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6710 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6711 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6712 +;; Generate a call instruction for a function that does not
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6713 +;; return a value. The expander is used during RTL generation.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6714 +;; The instructions below are used during matching; only one
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6715 +;; of them will be used, depending on the type of function
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6716 +;; being called. The different conditions are:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6717 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6718 +;; 1) far_functionp - is this a far function? Those need
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6719 +;; to be output as indirect calls through a far-function
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6720 +;; handler.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6721 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6722 +;; 2) noreturn_functionp - if the function does not return,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6723 +;; we can use a 'jmp' instead of a 'jsr' to call it.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6724 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6725 +;; 3) is PIC mode enabled? If so, we'll always use
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6726 +;; relative calls (lbsr or lbra).
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6727 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6728 +;; Note: not all combinations are fully supported, especially
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6729 +;; relating to PIC.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6730 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6731 +;; The 'bsr' instruction is never generated.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6732 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6733 +(define_expand "call"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6734 + [(call (match_operand:HI 0 "memory_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6735 + (match_operand:HI 1 "general_operand" ""))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6736 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6737 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6738 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6739 +(define_insn "*call_nopic_far"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6740 + [(call (match_operand:HI 0 "memory_operand" "m")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6741 + (match_operand:HI 1 "general_operand" "g"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6742 + "far_functionp (operands[0])"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6743 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6744 + output_far_call_insn (operands, 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6745 + return "";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6746 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6747 + [(set_attr "length" "6")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6748 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6749 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6750 +; PIC forms come first, and should only match
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6751 +; (MEM (SYMBOL_REF)). Other MEM forms are treated as usual.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6752 +(define_insn "*call_pic"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6753 + [(call (mem:HI (match_operand:HI 0 "symbolic_operand" ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6754 + (match_operand:HI 1 "general_operand" "g"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6755 + "flag_pic && !noreturn_functionp (operands[0])"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6756 + "lbsr\t%C0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6757 + [(set_attr "length" "4")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6758 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6759 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6760 +(define_insn "*call_nopic"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6761 + [(call (match_operand:HI 0 "memory_operand" "m")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6762 + (match_operand:HI 1 "general_operand" "g"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6763 + "!noreturn_functionp (operands[0])"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6764 + "jsr\t%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6765 + [(set_attr "length" "3")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6766 + (set (attr "cycles") (const_int JSR_EXTENDED_CYCLES))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6767 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6768 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6769 +(define_insn "*call_noreturn_pic"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6770 + [(call (mem:HI (match_operand:HI 0 "symbolic_operand" ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6771 + (match_operand:HI 1 "general_operand" "g"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6772 + "flag_pic && noreturn_functionp (operands[0])"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6773 + "lbra\t%C0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6774 + [(set_attr "length" "4")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6775 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6776 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6777 +(define_insn "*call_noreturn_nopic"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6778 + [(call (match_operand:HI 0 "memory_operand" "m")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6779 + (match_operand:HI 1 "general_operand" "g"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6780 + "noreturn_functionp (operands[0])"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6781 + "jmp\t%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6782 + [(set_attr "length" "3")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6783 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6784 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6785 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6786 +;; Same as above, but for functions that do return a value.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6787 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6788 +(define_expand "call_value"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6789 + [(set (match_operand 0 "" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6790 + (call (match_operand:HI 1 "memory_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6791 + (match_operand:HI 2 "general_operand" "")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6792 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6793 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6794 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6795 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6796 +(define_insn "*call_value_far"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6797 + [(set (match_operand 0 "" "=gz")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6798 + (call (match_operand:HI 1 "memory_operand" "m")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6799 + (match_operand:HI 2 "general_operand" "g")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6800 + "far_functionp (operands[1])"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6801 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6802 + output_far_call_insn (operands, 1);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6803 + return "";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6804 +}
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6805 + [(set_attr "length" "6")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6806 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6807 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6808 +(define_insn "*call_value_pic"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6809 + [(set (match_operand 0 "" "=gz")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6810 + (call (mem:HI (match_operand:HI 1 "symbolic_operand" ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6811 + (match_operand:HI 2 "general_operand" "g")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6812 + "flag_pic"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6813 + "lbsr\t%C1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6814 + [(set_attr "length" "4")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6815 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6816 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6817 +(define_insn "*call_value_nopic"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6818 + [(set (match_operand 0 "" "=gz")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6819 + (call (match_operand:HI 1 "memory_operand" "m")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6820 + (match_operand:HI 2 "general_operand" "g")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6821 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6822 + "jsr\t%1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6823 + [(set_attr "length" "3")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6824 + (set (attr "cycles") (const_int JSR_EXTENDED_CYCLES))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6825 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6826 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6827 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6828 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6829 +;; How to generate an untyped call.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6830 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6831 +(define_expand "untyped_call"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6832 + [(parallel [(call (match_operand 0 "" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6833 + (const_int 0))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6834 + (match_operand 1 "" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6835 + (match_operand 2 "" "")])]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6836 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6837 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6838 + int i;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6839 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6840 + emit_call_insn (GEN_CALL (operands[0], const0_rtx, NULL, const0_rtx));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6841 + for (i=0; i < XVECLEN (operands[2], 0); i++)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6842 + {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6843 + rtx set = XVECEXP (operands[2], 0, i);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6844 + emit_move_insn (SET_DEST (set), SET_SRC (set));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6845 + }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6846 + emit_insn (gen_blockage ());
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6847 + DONE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6848 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6849 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6850 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6851 +(define_expand "sibcall"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6852 + [(parallel
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6853 + [(call (match_operand:HI 0 "memory_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6854 + (match_operand:HI 1 "immediate_operand" ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6855 + (use (reg:HI HARD_PC_REGNUM))])]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6856 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6857 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6858 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6859 +(define_insn "*sibcall_1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6860 + [(parallel
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6861 + [(call (match_operand:HI 0 "memory_operand" "m")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6862 + (match_operand:HI 1 "immediate_operand" "i"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6863 + (use (reg:HI HARD_PC_REGNUM))])]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6864 + "SIBLING_CALL_P(insn)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6865 + "jmp\t%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6866 + [(set_attr "length" "4")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6867 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6868 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6869 +(define_expand "sibcall_value"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6870 + [(parallel
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6871 + [(set (match_operand 0 "" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6872 + (call (match_operand:HI 1 "memory_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6873 + (match_operand:HI 2 "immediate_operand" "")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6874 + (use (reg:HI HARD_PC_REGNUM))])]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6875 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6876 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6877 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6878 +(define_insn "*sibcall_value_1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6879 + [(parallel
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6880 + [(set (match_operand 0 "" "=gz")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6881 + (call (match_operand:HI 1 "memory_operand" "m")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6882 + (match_operand:HI 2 "immediate_operand" "i")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6883 + (use (reg:HI HARD_PC_REGNUM))])]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6884 + "SIBLING_CALL_P(insn)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6885 + "jmp\t%1"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6886 + [(set_attr "length" "4")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6887 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6888 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6889 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6890 +;;- Function Entry and Exit
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6891 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6892 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6893 +;; On entry to a function, the stack frame looks as follows:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6894 +;; - return address (pushed by the caller)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6895 +;; - saved registers
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6896 +;; - local variable storage
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6897 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6898 +;; If the function does not modify the stack after that, then
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6899 +;; any of these can be accessed directly as an offset from
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6900 +;; STACK_POINTER_REGNUM. Otherwise, a frame pointer is required.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6901 +;; In that case, the prologue must also initialize HARD_FRAME_POINTER_REGNUM
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6902 +;; and all references to the stack frame will use that as a base instead.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6903 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6904 +(define_expand "prologue"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6905 + [(const_int 0)]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6906 + "prologue_epilogue_required ()"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6907 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6908 + emit_prologue_insns ();
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6909 + DONE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6910 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6911 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6912 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6913 +;; The function epilogue does exactly the reverse of the prologue,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6914 +;; deallocating local variable space, restoring saved registers,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6915 +;; and returning.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6916 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6917 +;; For the 6809, the return may be 'rti' if the function was
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6918 +;; declared as an interrupt function, but is normally 'rts'.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6919 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6920 +;; Also, as an optimization, the register restore and the 'rts'
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6921 +;; can be combined into a single instruction, by adding 'PC' to the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6922 +;; list of registers to be restored. This is only done if there are
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6923 +;; any saved registers, as 'rts' is more efficient by itself.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6924 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6925 +(define_expand "epilogue"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6926 + [(const_int 0)]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6927 + "prologue_epilogue_required ()"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6928 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6929 + emit_epilogue_insns (false);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6930 + DONE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6931 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6932 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6933 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6934 +(define_expand "sibcall_epilogue"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6935 + [(const_int 0)]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6936 + "prologue_epilogue_required ()"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6937 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6938 + emit_epilogue_insns (true);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6939 + DONE;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6940 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6941 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6942 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6943 +;; The RTS instruction
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6944 +(define_insn "return_rts"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6945 + [(return)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6946 + (use (reg:HI HARD_PC_REGNUM))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6947 + "!m6809_current_function_has_type_attr_p (\"interrupt\")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6948 + && m6809_get_live_regs () == 0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6949 + "rts"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6950 + [(set_attr "length" "1")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6951 + (set (attr "cycles") (const_int RTS_CYCLES))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6952 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6953 +(define_insn "return_puls_pc"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6954 + [(return)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6955 + (use (reg:HI HARD_PC_REGNUM))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6956 + "!m6809_current_function_has_type_attr_p (\"interrupt\")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6957 + && m6809_get_live_regs () != 0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6958 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6959 + [(set_attr "length" "1")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6960 + (set (attr "cycles") (const_int RTS_CYCLES))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6961 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6962 +;; The RTI instruction
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6963 +(define_insn "return_rti"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6964 + [(return)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6965 + (use (reg:HI HARD_PC_REGNUM))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6966 + "m6809_current_function_has_type_attr_p (\"interrupt\")"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6967 + "rti"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6968 + [(set_attr "length" "1")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6969 + (set (attr "cycles") (const_int RTI_CYCLES))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6970 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6971 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6972 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6973 +;;- Unspecified instructions
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6974 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6975 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6976 +;; An instruction that has the effect of an unspec_volatile, but
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6977 +;; which doesn't require emitting any assembly code.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6978 +(define_insn "blockage"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6979 + [(unspec_volatile [(const_int 0)] UNSPEC_BLOCKAGE)]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6980 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6981 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6982 + [(set_attr "length" "0")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6983 + (set (attr "cycles") (const_int 0))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6984 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6985 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6986 +;; Say how to push multiple registers onto the stack, using
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6987 +;; the 6809 'pshs' instruction. The operand is a regset
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6988 +;; specifying which registers to push.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6989 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6990 +;; The operand mode is not given intentionally, so as to allow
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6991 +;; any possible integer mode for the regset.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6992 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6993 +;; See below for a peephole that can combine consecutive push
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6994 +;; instructions that qualify for merging.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6995 +(define_insn "register_push"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6996 + [(use (reg:HI HARD_S_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6997 + (unspec_volatile
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6998 + [(match_operand 0 "immediate_operand" "")] UNSPEC_PUSH_RS)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	6999 + (clobber (reg:HI HARD_S_REGNUM))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7000 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7001 + "pshs\t%R0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7002 + [(set_attr "length" "2")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7003 + (set (attr "cycles") (const_int PSH_PUL_CYCLES))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7004 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7005 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7006 +;; Say how to pop multiple registers from the stack, using
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7007 +;; the 6809 'puls' instruction. The operand is the register
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7008 +;; bitset value.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7009 +(define_insn "register_pop"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7010 + [(use (reg:HI HARD_S_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7011 + (unspec_volatile
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7012 + [(match_operand 0 "immediate_operand" "")] UNSPEC_POP_RS)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7013 + (clobber (reg:HI HARD_S_REGNUM))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7014 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7015 + "puls\t%R0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7016 + [(set_attr "length" "2")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7017 + (set (attr "cycles") (const_int PSH_PUL_CYCLES))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7018 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7019 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7020 +(define_insn "m6809_swi"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7021 + [(unspec_volatile
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7022 + [(match_operand:QI 0 "immediate_operand" "I,n")] UNSPEC_SWI)]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7023 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7024 + "@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7025 + swi
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7026 + swi%c0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7027 + [(set_attr "length" "1,2")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7028 + (set (attr "cycles") (const_int SWI_CYCLES))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7029 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7030 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7031 +;; Generate the CWAI instruction
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7032 +(define_insn "m6809_cwai"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7033 + [(unspec_volatile
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7034 + [(match_operand:QI 0 "immediate_operand" "")] UNSPEC_CWAI)]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7035 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7036 + "cwai\t%0"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7037 + [(set_attr "length" "2")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7038 + (set (attr "cycles") (const_int CWAI_CYCLES))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7039 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7040 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7041 +;; Generate the SYNC instruction
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7042 +(define_insn "m6809_sync"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7043 + [(unspec_volatile [(const_int 0)] UNSPEC_SYNC)]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7044 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7045 + "sync"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7046 + [(set_attr "length" "1")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7047 + (set (attr "cycles") (const_int SYNC_CYCLES))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7048 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7049 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7050 +;; Generate the NOP instruction
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7051 +(define_insn "nop"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7052 + [(const_int 0)]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7053 + ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7054 + "nop"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7055 + [(set_attr "length" "1")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7056 + (set (attr "cycles") (const_int NOP_CYCLES))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7057 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7058 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7059 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7060 +;;- Peepholes
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7061 +;;--------------------------------------------------------------------
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7062 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7063 +;;; Each peephole has an ID that is used for debugging.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7064 +;;; Each peephole condition is bracketed by calls to
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7065 +;;; m6809_match_peephole2() also for debugging.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7066 +(define_constants [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7067 + (PEEP_END 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7068 + (PEEP_COND 1)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7069 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7070 + (PEEP_STACK_STORE_INC 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7071 + (PEEP_STACK_CLEAR_INC 1)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7072 + (PEEP_LSRB_ADCB 2)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7073 + (PEEP_ABX 3)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7074 + (PEEP_ABX2 4)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7075 + (PEEP_INDEXED_INC 5)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7076 + (PEEP_MEM_DEC 6)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7077 + (PEEP_MEM_INC 7)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7078 + (PEEP_MEM_DEC_CMP 8)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7079 + (PEEP_PUSH2 9)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7080 + (PEEP_STORE_IMPLIES_CC 10)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7081 + (PEEP_DEC_IMPLIES_CC 11)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7082 + (PEEP_LEAB 12)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7083 + (PEEP_LDX_INDIRECT 13)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7084 + (PEEP_POP_JUNK 14)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7085 +])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7086 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7087 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7088 +;;; Optimize 'leas -1,s' followed by 'stb ,s'. This can happen if the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7089 +;;; function prologue needs to allocate stack space and 'b' is placed
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7090 +;;; into that local right away. Combine the stack allocation with the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7091 +;;; store using preincrement mode.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7092 +(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7093 + [(set (reg:HI HARD_S_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7094 + (plus:HI (reg:HI HARD_S_REGNUM) (const_int -1)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7095 + (set (mem:QI (reg:HI HARD_S_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7096 + (match_operand:QI 0 "register_operand" ""))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7097 + "m6809_match_peephole2 (PEEP_STACK_STORE_INC, PEEP_END)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7098 + [(set (mem:QI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (match_dup 0))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7099 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7100 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7101 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7102 +;;; Same as above, but for a 'clr ,s' that follows the prologue.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7103 +(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7104 + [(set (reg:HI HARD_S_REGNUM) (plus:HI (reg:HI HARD_S_REGNUM) (const_int -1)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7105 + (set (mem:QI (reg:HI HARD_S_REGNUM)) (const_int 0))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7106 + "m6809_match_peephole2 (PEEP_STACK_CLEAR_INC, PEEP_END)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7107 + [(set (mem:QI (pre_dec:HI (reg:HI HARD_S_REGNUM))) (const_int 0))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7108 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7109 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7110 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7111 +;;; Merge two consecutive push instructions into a single register_push.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7112 +(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7113 + [(set (match_operand 0 "push_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7114 + (match_operand 1 "register_operand" ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7115 + (set (match_operand 2 "push_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7116 + (match_operand 3 "register_operand" ""))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7117 + "m6809_match_peephole2 (PEEP_PUSH2, PEEP_COND)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7118 + && reload_completed
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7119 + && GET_MODE (operands[1]) == GET_MODE (operands[3])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7120 + && m6809_can_merge_pushpop_p (UNSPEC_PUSH_RS, 1 << REGNO (operands[1]), 1 << REGNO (operands[3]))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7121 + && m6809_match_peephole2 (PEEP_PUSH2, PEEP_END)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7122 + [(parallel [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7123 + (use (reg:HI HARD_S_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7124 + (unspec_volatile [(match_dup 4)] UNSPEC_PUSH_RS)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7125 + (clobber (reg:HI HARD_S_REGNUM))])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7126 + (use (match_dup 1))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7127 + (use (match_dup 3))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7128 +{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7129 + operands[4] = gen_rtx_CONST_INT (QImode,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7130 + (1 << REGNO (operands[1])) \| (1 << REGNO (operands[3])));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7131 +})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7132 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7133 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7134 +;;; Convert 'stX ,--s' into a push instruction. Use the regset
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7135 +;;; notation, so that it may be combined with an adjacent regset.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7136 +;;; TBD - this doesn't compile some code cleanly.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7137 +;(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7138 +; [(set (mem:HI (pre_dec:HI (reg:HI HARD_S_REGNUM)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7139 +; (reg:HI HARD_X_REGNUM))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7140 +; "reload_completed"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7141 +; [(parallel [
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7142 +; (use (reg:HI HARD_S_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7143 +; (unspec_volatile [(match_dup 0)] UNSPEC_PUSH_RS)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7144 +; (clobber (reg:HI HARD_S_REGNUM))])]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7145 +;{
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7146 +; operands[0] = gen_rtx_CONST_INT (HImode, X_REGBIT);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7147 +;})
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7148 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7149 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7150 +;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7151 +;;; q = (q+1)/2 can be optimized as "lsrb; adcb". This also
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7152 +;;; won't overflow when q=0xFF.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7153 +;;; TODO : this form isn't accounting for promotion when
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7154 +;;; using 16-bit ints.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7155 +;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7156 +(define_peephole
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7157 + [(set (reg:QI HARD_D_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7158 + (lshiftrt:QI (plus:HI (match_dup 0) (const_int 1)) (const_int 1)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7159 + "m6809_match_peephole2 (PEEP_LSRB_ADCB, PEEP_END)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7160 + "lsrb\;adcb\t#0; peephole"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7161 + [(set_attr "length" "2")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7162 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7163 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7164 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7165 +;; Optimize the case of following a register store with a test
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7166 +;; of reg or mem just moved.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7167 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7168 +(define_peephole
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7169 + [(set (match_operand:HI 0 "memory_operand" "=m")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7170 + (match_operand:HI 1 "register_operand" "r"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7171 + (set (cc0) (match_operand:HI 2 "general_operand" "g"))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7172 + "m6809_match_peephole2 (PEEP_STORE_IMPLIES_CC, PEEP_COND)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7173 + && (operands[2] == operands[0] \|\| operands[2] == operands[1])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7174 + && m6809_match_peephole2 (PEEP_STORE_IMPLIES_CC, PEEP_END)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7175 + "st%1\t%0\t;movhi: R:%1 -> %0 w/ implied test of %2"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7176 + [(set_attr "length" "4")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7177 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7178 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7179 +;; Optimize a pair of SET instructions in which the second insn
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7180 +;; is the reverse of the first one. I.e.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7181 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7182 +;; A = B
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7183 +;; ----> A = B
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7184 +;; B = A
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7185 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7186 +;; The second insn is redundant. Define two patterns, one for QI, one for HI.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7187 +;; But don't do this if either is a VOLATILE MEM.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7188 +(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7189 + [(set (match_operand:HI 0 "nonimmediate_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7190 + (match_operand:HI 1 "nonimmediate_operand" ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7191 + (set (match_dup 1) (match_dup 0))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7192 + "!MEM_P (operands[0]) \|\| !MEM_P (operands[1]) \|\| (!MEM_VOLATILE_P (operands[0]) && !MEM_VOLATILE_P (operands[1]))"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7193 + [(set (match_dup 0) (match_dup 1))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7194 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7195 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7196 +(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7197 + [(set (match_operand:QI 0 "nonimmediate_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7198 + (match_operand:QI 1 "nonimmediate_operand" ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7199 + (set (match_dup 1) (match_dup 0))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7200 + "!MEM_P (operands[0]) \|\| !MEM_P (operands[1]) \|\| (!MEM_VOLATILE_P (operands[0]) && !MEM_VOLATILE_P (operands[1]))"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7201 + [(set (match_dup 0) (match_dup 1))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7202 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7203 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7204 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7205 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7206 +;; Optimize the sum of an 8-bit and 16-bit using the 'abx' instruction
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7207 +;; if B and X can be used. Two patterns are provided to catch both
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7208 +;; X=X+D and X=D+X.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7209 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7210 +(define_peephole
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7211 + [(set (reg:HI HARD_D_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7212 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7213 + (set (reg:HI HARD_X_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7214 + (plus:HI (reg:HI HARD_D_REGNUM) (reg:HI HARD_X_REGNUM)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7215 + "m6809_match_peephole2 (PEEP_ABX, PEEP_END)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7216 + "abx"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7217 + [(set_attr "length" "1")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7218 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7219 +(define_peephole
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7220 + [(set (reg:HI HARD_D_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7221 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7222 + (set (reg:HI HARD_X_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7223 + (plus:HI (reg:HI HARD_X_REGNUM) (reg:HI HARD_D_REGNUM)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7224 + "m6809_match_peephole2 (PEEP_ABX, PEEP_END)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7225 + "abx"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7226 + [(set_attr "length" "1")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7227 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7228 +;;; Likewise, handle when B is scaled by 2 prior to the add.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7229 +;;; Instead of shifting B in 4 cycles, just do the ABX a second
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7230 +;;; time, in only 3 cycles.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7231 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7232 +(define_peephole
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7233 + [(set (reg:HI HARD_D_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7234 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7235 + (set (reg:HI HARD_D_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7236 + (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 1)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7237 + (set (reg:HI HARD_X_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7238 + (plus:HI (reg:HI HARD_D_REGNUM) (reg:HI HARD_X_REGNUM)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7239 + "m6809_match_peephole2 (PEEP_ABX2, PEEP_END)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7240 + "abx\;abx"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7241 + [(set_attr "length" "2")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7242 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7243 +(define_peephole
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7244 + [(set (reg:HI HARD_D_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7245 + (zero_extend:HI (match_operand:QI 0 "general_operand" "q")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7246 + (set (reg:HI HARD_D_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7247 + (ashift:HI (reg:HI HARD_D_REGNUM) (const_int 1)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7248 + (set (reg:HI HARD_X_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7249 + (plus:HI (reg:HI HARD_X_REGNUM) (reg:HI HARD_D_REGNUM)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7250 + "m6809_match_peephole2 (PEEP_ABX2, PEEP_END)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7251 + "abx\;abx"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7252 + [(set_attr "length" "2")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7253 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7254 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7255 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7256 +;; Work around a compiler bug that generates bad code when copying
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7257 +;; between 32-bit memory addresses after a libcall. The problem seen is
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7258 +;; that the source is MEM (REG X), but X is used as the reload register.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7259 +;; The second half of the copy therefore fails.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7260 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7261 +;; The solution is to switch the reload register to D, since that is guaranteed
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7262 +;; not to be in use right after a libcall.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7263 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7264 +(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7265 + [(set (reg:HI HARD_X_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7266 + (set (match_operand:HI 0 "nonimmediate_operand" "") (reg:HI HARD_X_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7267 + (set (reg:HI HARD_X_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7268 + (mem:HI (plus:HI (reg:HI HARD_X_REGNUM) (const_int 2))))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7269 + (set (match_operand:HI 1 "nonimmediate_operand" "") (reg:HI HARD_X_REGNUM))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7270 + "reload_completed"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7271 + [(set (reg:HI HARD_D_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7272 + (set (match_dup 0) (reg:HI HARD_D_REGNUM))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7273 + (set (reg:HI HARD_X_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7274 + (mem:HI (plus:HI (reg:HI HARD_X_REGNUM) (const_int 2))))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7275 + (set (match_dup 1) (reg:HI HARD_X_REGNUM))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7276 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7277 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7278 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7279 +;; Turn "and then test" into a "bit test" operation.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7280 +;; Provide variants for immediate and memory sources
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7281 +;; This is the most used peephople.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7282 +; (define_peephole
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7283 +; [(set (match_operand:QI 0 "register_operand" "=q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7284 +; (and:QI (match_operand:QI 1 "register_operand" "0")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7285 +; (match_operand:QI 2 "immediate_operand" "i")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7286 +; (set (cc0) (match_dup 0))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7287 +; ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7288 +; "bit%0\t%2"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7289 +; [(set_attr "length" "3")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7290 +;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7291 +; (define_peephole
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7292 +; [(set (match_operand:QI 0 "register_operand" "=q")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7293 +; (and:QI (match_operand:QI 1 "register_operand" "0")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7294 +; (match_operand:QI 2 "memory_operand" "m")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7295 +; (set (cc0) (match_dup 0))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7296 +; ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7297 +; "bit%0\t%2"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7298 +; [(set_attr "length" "4")])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7299 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7300 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7301 +;; Turn a "decrement, then test" sequence into just a "decrement".
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7302 +;; The test can be omitted, since it is implicitly done.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7303 +(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7304 + [(set (match_operand:QI 0 "nonimmediate_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7305 + (plus:QI (match_operand:QI 1 "whole_general_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7306 + (match_operand:QI 2 "immediate_operand" "")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7307 + (set (cc0) (match_dup 0))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7308 + "m6809_match_peephole2 (PEEP_DEC_IMPLIES_CC, PEEP_END)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7309 + [(set (match_dup 0) (plus:QI (match_dup 1) (match_dup 2)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7310 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7311 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7312 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7313 +;; Merge an indexed register increment with a previous usage.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7314 +;; This is usually done automatically, but not always
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7315 +;; The 'use' should be optional; in all cases where this has been
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7316 +;; seen, it is required though.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7317 +(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7318 + [(set (match_operand:QI 0 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7319 + (mem:QI (match_operand:HI 1 "index_register_operand" "")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7320 + (use (match_dup 0))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7321 + (set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7322 + "m6809_match_peephole2 (PEEP_INDEXED_INC, PEEP_END)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7323 + [(set (match_dup 0) (mem:QI (post_inc:HI (match_dup 1))))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7324 + (use (match_dup 0))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7325 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7326 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7327 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7328 +;;; Merge "ldX MEM; ldX ,X" into a single instruction using
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7329 +;;; the indirect mode.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7330 +(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7331 + [(set (reg:HI HARD_X_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7332 + (mem:HI (match_operand:HI 0 "general_operand" "")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7333 + (set (reg:HI HARD_X_REGNUM) (mem:HI (reg:HI HARD_X_REGNUM)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7334 + "reload_completed && m6809_match_peephole2 (PEEP_LDX_INDIRECT, PEEP_END)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7335 + [(set (reg:HI HARD_X_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7336 + (mem:HI (mem:HI (match_dup 0))))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7337 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7338 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7339 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7340 +;;; Reorder a store followed by a unary operation on that memory
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7341 +;;; so that the unary is performed and then the store. Consider
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7342 +;;; a binary shift operation, which will be decomposed into
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7343 +;;; identical single shifts, also.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7344 +;;; TODO - recognize more than just 'ashift' here.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7345 +(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7346 + [(set (match_operand:QI 0 "memory_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7347 + (match_operand:QI 1 "register_operand" ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7348 + (set (match_dup 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7349 + (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7350 + "reload_completed"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7351 + [(set (match_dup 1)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7352 + (ashift:QI (match_dup 1) (match_operand:QI 2 "immediate_operand")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7353 + (set (match_dup 0) (match_dup 1))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7354 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7355 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7356 +;;; Likewise, reorder a unary MEM followed by a load, so that the load
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7357 +;;; is done first, then use the REG instead of the MEM.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7358 +;;;(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7359 +;;; [(set (match_dup 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7360 +;;; (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7361 +;;; (set (match_operand:QI 0 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7362 +;;; (match_operand:QI 1 "memory_operand" ""))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7363 +;;; "reload_completed"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7364 +;;; [(set (match_dup 0) (match_dup 1))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7365 +;;; (set (match_dup 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7366 +;;; (ashift:QI (match_dup 0) (match_operand:QI 2 "immediate_operand")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7367 +;;; "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7368 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7369 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7370 +;;; Replace sex; leaX d,Y with leaX b,Y.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7371 +;;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7372 +(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7373 + [(set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7374 + (set (match_operand:HI 0 "index_register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7375 + (plus:HI (match_operand:HI 1 "index_register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7376 + (reg:HI HARD_D_REGNUM)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7377 + "reload_completed && m6809_match_peephole2 (PEEP_LEAB, PEEP_END)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7378 + [(set (match_dup 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7379 + (plus:HI (match_dup 1) (reg:QI HARD_D_REGNUM)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7380 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7381 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7382 +(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7383 + [(set (reg:HI HARD_D_REGNUM) (sign_extend:HI (reg:QI HARD_D_REGNUM)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7384 + (set (match_operand:HI 0 "index_register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7385 + (plus:HI (reg:HI HARD_D_REGNUM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7386 + (match_operand:HI 1 "index_register_operand" "")))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7387 + "reload_completed && m6809_match_peephole2 (PEEP_LEAB, PEEP_END)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7388 + [(set (match_dup 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7389 + (plus:HI (match_dup 1) (reg:QI HARD_D_REGNUM)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7390 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7391 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7392 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7393 +;;; Replace ldb; decb; stb; tstb with dec(mem). If the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7394 +;;; register is not needed, then the load will get deleted
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7395 +;;; automatically, but it may be needed for comparisons.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7396 +;;; Same for incb/inc.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7397 +(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7398 + [(set (match_operand:QI 0 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7399 + (match_operand:QI 1 "nonimmediate_operand" ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7400 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int -1)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7401 + (set (match_dup 1) (match_dup 0))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7402 + (set (cc0) (match_dup 0))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7403 + "m6809_match_peephole2 (PEEP_MEM_DEC_CMP, PEEP_END)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7404 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int -1)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7405 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7406 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7407 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7408 +;;; Replace ldb; decb; stb with dec(mem); ldb. If the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7409 +;;; register is not needed, then the load will get deleted
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7410 +;;; automatically, but it may be needed for comparisons.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7411 +;;; Same for incb/inc.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7412 +(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7413 + [(set (match_operand:QI 0 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7414 + (match_operand:QI 1 "nonimmediate_operand" ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7415 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int -1)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7416 + (set (match_dup 1) (match_dup 0))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7417 + "m6809_match_peephole2 (PEEP_MEM_DEC, PEEP_END)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7418 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int -1)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7419 + (set (match_dup 0) (match_dup 1))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7420 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7421 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7422 +(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7423 + [(set (match_operand:QI 0 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7424 + (match_operand:QI 1 "nonimmediate_operand" ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7425 + (set (match_dup 0) (plus:QI (match_dup 0) (const_int 1)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7426 + (set (match_dup 1) (match_dup 0))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7427 + "m6809_match_peephole2 (PEEP_MEM_INC, PEEP_END)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7428 + [(set (match_dup 1) (plus:QI (match_dup 1) (const_int 1)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7429 + (set (match_dup 0) (match_dup 1))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7430 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7431 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7432 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7433 +;;; Replace "andb #N; cmpb #N; bhi" with "andb #N", if it can be proven
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7434 +;;; that the branch can never occur because of the limited range of B.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7435 +;;; N must be a power of two for this to make sense. This helps with
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7436 +;;; the default cases of switch statements on a value (x & N).
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7437 +(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7438 + [(set (match_operand:QI 0 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7439 + (and:QI (match_dup 0) (match_operand:QI 1 "immediate_operand" "")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7440 + (set (cc0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7441 + (compare (match_dup 0) (match_dup 1)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7442 + (set (pc) (if_then_else (gtu (cc0) (const_int 0)) (match_operand 2 "" "") (match_operand 3 "" "")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7443 + ]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7444 + "reload_completed && power_of_two_p (INTVAL (operands[1]) + 1)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7445 + [(set (match_dup 0) (and:QI (match_dup 0) (match_dup 1)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7446 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7447 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7448 +;;; Replace ldd <mem>; addd #1; std <mem> with 16-bit increment
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7449 +;;; of the mem, but only if D is dead. Same for 16-bit decrement.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7450 +;;; <mem> must be offsettable for the instruction to match.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7451 +(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7452 + [(set (match_operand:HI 0 "register_operand" "") (match_operand:HI 1 "memory_operand" ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7453 + (set (match_dup 0) (plus:HI (match_dup 0) (const_int 1)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7454 + (set (match_dup 1) (match_dup 0))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7455 + "reload_completed
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7456 + && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7457 + && peep2_reg_dead_p (3, operands[0])"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7458 + [(set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7459 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7460 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7461 +(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7462 + [(set (match_operand:HI 0 "register_operand" "") (match_operand:HI 1 "memory_operand" ""))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7463 + (set (match_dup 0) (plus:HI (match_dup 0) (const_int -1)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7464 + (set (match_dup 1) (match_dup 0))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7465 + "reload_completed
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7466 + && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7467 + && peep2_reg_dead_p (3, operands[0])"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7468 + [(set (match_dup 1) (plus:HI (match_dup 1) (const_int -1)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7469 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7470 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7471 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7472 +;;; Replace a load or store using an indexed register, followed by an increment of that
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7473 +;;; register, with the combined form using autoincrement.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7474 +(define_peephole2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7475 + [(set (match_operand:QI 0 "register_operand" "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7476 + (mem:QI (match_operand:HI 1 "index_register_operand" "")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7477 + (set (match_dup 1) (plus:HI (match_dup 1) (const_int 1)))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7478 + "reload_completed"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7479 + [(set (match_dup 0) (mem:QI (post_inc (match_dup 1))))]
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7480 + "")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7481 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7482 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7483 +;;- mode:emacs-lisp
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7484 +;;- comment-start: ";;- "
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7485 +;;- eval: (set-syntax-table (copy-sequence (syntax-table)))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7486 +;;- eval: (modify-syntax-entry ?[ "(]")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7487 +;;- eval: (modify-syntax-entry ?] ")[")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7488 +;;- eval: (modify-syntax-entry ?{ "(}")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7489 +;;- eval: (modify-syntax-entry ?} "){")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7490 +;-; vim: set ts=2:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7491 +;-; vim: set expandtab:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7492 +;-; vim: set filetype=lisp:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7493 +;;- End:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7494 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809.opt gcc-4.6.4/gcc/config/m6809/m6809.opt
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7495 --- gcc-4.6.4-clean/gcc/config/m6809/m6809.opt 1969-12-31 17:00:00.000000000 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7496 +++ gcc-4.6.4/gcc/config/m6809/m6809.opt 2017-11-28 21:12:11.156911596 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7497 @@ -0,0 +1,98 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7498 +; Options for the M6809 port of the compiler
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7499 +;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7500 +; Copyright (C) 2005 Free Software Foundation, Inc.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7501 +;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7502 +; This file is part of GCC.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7503 +;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7504 +; GCC is free software; you can redistribute it and/or modify it under
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7505 +; the terms of the GNU General Public License as published by the Free
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7506 +; Software Foundation; either version 2, or (at your option) any later
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7507 +; version.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7508 +;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7509 +; GCC is distributed in the hope that it will be useful, but WITHOUT
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7510 +; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7511 +; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7512 +; License for more details.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7513 +;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7514 +; You should have received a copy of the GNU General Public License
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7515 +; along with GCC; see the file COPYING. If not, write to the Free
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7516 +; Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7517 +; 02110-1301, USA.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7518 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7519 +margcount
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7520 +Target Mask(ARGCOUNT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7521 +Push argument count
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7522 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7523 +mint8
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7524 +Target RejectNegative Mask(BYTE_INT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7525 +Use 8-bit integers
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7526 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7527 +mint16
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7528 +Target RejectNegative
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7529 +Use 16-bit integers InverseMask(BYTE_INT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7530 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7531 +mreg-args
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7532 +Target Mask(REG_ARGS)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7533 +Use registers for function arguments
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7534 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7535 +mshort_size
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7536 +Target RejectNegative Mask(SMALL_SIZE_T)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7537 +Use 8-bit size_t
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7538 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7539 +mlong_size
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7540 +Target RejectNegative InverseMask(SMALL_SIZE_T)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7541 +Use 16-bit size_t
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7542 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7543 +mdirect
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7544 +Target Mask(DIRECT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7545 +Enable direct addressing
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7546 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7547 +mwpc
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7548 +Target RejectNegative Mask(WPC)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7549 +Enable WPC platform extensions
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7550 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7551 +mexperiment
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7552 +Target RejectNegative Mask(EXPERIMENT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7553 +Enable current experimental feature
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7554 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7555 +m6309
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7556 +Target RejectNegative Mask(6309)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7557 +Enable Hitachi 6309 extensions
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7558 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7559 +mcasesi
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7560 +Target RejectNegative Mask(CASESI)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7561 +Enable the casesi pattern
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7562 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7563 +mfar-code-page=
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7564 +Target RejectNegative Joined Var(far_code_page_option)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7565 +Sets the far code page value for this compilation unit
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7566 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7567 +mcode-section=
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7568 +Target RejectNegative Joined Var(code_section_ptr)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7569 +Sets the name of the section for code
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7570 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7571 +mdata-section=
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7572 +Target RejectNegative Joined Var(data_section_ptr)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7573 +Sets the name of the section for initialized data
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7574 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7575 +mbss-section=
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7576 +Target RejectNegative Joined Var(bss_section_ptr)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7577 +Sets the name of the section for uninitialized data
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7578 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7579 +mabi_version=
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7580 +Target RejectNegative Joined Var(m6809_abi_version_ptr)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7581 +Sets the calling convention
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7582 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7583 +msoft-reg-count=
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7584 +Target RejectNegative Joined Var(m6809_soft_reg_count)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7585 +Sets the number of soft registers that can be used
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7586 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7587 +mdret
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7588 +Target RejectNegative Mask(DRET)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7589 +Put function call results in D, not X
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7590 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7591 +mfar-stack-param
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7592 +Target Mask(FAR_STACK_PARAM)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7593 +Enable stack parameters to a farcall
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7594 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7595 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7596 diff -urN gcc-4.6.4-clean/gcc/config/m6809/m6809-protos.h gcc-4.6.4/gcc/config/m6809/m6809-protos.h
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7597 --- gcc-4.6.4-clean/gcc/config/m6809/m6809-protos.h 1969-12-31 17:00:00.000000000 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7598 +++ gcc-4.6.4/gcc/config/m6809/m6809-protos.h 2017-11-28 21:12:11.156911596 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7599 @@ -0,0 +1,94 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7600 +/* GCC for 6809 : machine-specific function prototypes
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7601 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7602 +This file is part of GCC.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7603 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7604 +GCC is free software; you can redistribute it and/or modify
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7605 +it under the terms of the GNU General Public License as published by
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7606 +the Free Software Foundation; either version 3, or (at your option)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7607 +any later version.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7608 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7609 +GCC is distributed in the hope that it will be useful,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7610 +but WITHOUT ANY WARRANTY; without even the implied warranty of
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7611 +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7612 +GNU General Public License for more details.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7613 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7614 +You should have received a copy of the GNU General Public License
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7615 +along with GCC; see the file COPYING3. If not see
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7616 +<http://www.gnu.org/licenses/>. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7617 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7618 +#ifndef __M6809_PROTOS_H__
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7619 +#define __M6809_PROTOS_H__
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7620 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7621 +void print_options (FILE *file);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7622 +void m6809_cpu_cpp_builtins (void);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7623 +void m6809_override_options (void);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7624 +void m6809_init_builtins (void);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7625 +unsigned int m6809_get_live_regs (void);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7626 +const char * m6809_get_regs_printable (unsigned int regs);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7627 +unsigned int m6809_get_regs_size (unsigned int regs);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7628 +int m6809_function_has_type_attr_p (tree decl, const char *);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7629 +int m6809_current_function_has_type_attr_p (const char *);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7630 +int prologue_epilogue_required (void);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7631 +int noreturn_functionp (rtx x);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7632 +void output_function_prologue (FILE *file, int size);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7633 +void output_function_epilogue (FILE *file, int size);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7634 +int check_float_value (enum machine_mode mode, double *d, int overflow);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7635 +void m6809_asm_named_section (const char *name, unsigned int flags, tree decl);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7636 +void m6809_asm_file_start (void);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7637 +void m6809_output_ascii (FILE fp, const char str, unsigned long size);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7638 +void m6809_declare_function_name (FILE asm_out_file, const char name, tree decl);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7639 +void m6809_reorg (void);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7640 +int m6809_current_function_is_void (void);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7641 +int m6809_can_merge_pushpop_p (int op, int regs1, int regs2);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7642 +int m6809_function_value_regno_p (unsigned int regno);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7643 +void emit_prologue_insns (void);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7644 +void emit_epilogue_insns (bool);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7645 +void m6809_conditional_register_usage (void);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7646 +void m6809_output_quoted_string (FILE asm_file, const char string);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7647 +int m6809_match_peephole2 (unsigned int peephole_id, unsigned int stage);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7648 +int m6809_hard_regno_mode_ok (unsigned int regno, enum machine_mode mode);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7649 +int power_of_two_p (unsigned int n);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7650 +void m6809_do_casesi (rtx index, rtx lower_bound, rtx range, rtx table_label, rtx default_label);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7651 +void m6809_output_addsi3 (int rtx_code, rtx *operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7652 +rtx m6809_function_arg_on_stack (CUMULATIVE_ARGS *cump);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7653 +void expand_constant_shift (int code, rtx dst, rtx src, rtx count);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7654 +int m6809_single_operand_operator (rtx exp);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7655 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7656 +#ifdef TREE_CODE
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7657 +int m6809_init_cumulative_args (CUMULATIVE_ARGS cum, tree fntype, rtx libname);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7658 +#endif /* TREE_CODE */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7659 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7660 +#ifdef RTX_CODE
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7661 +void print_direct_prefix (FILE *file, rtx addr);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7662 +void print_operand (FILE *file, rtx x, int code);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7663 +void print_operand_address (FILE *file, rtx addr);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7664 +void notice_update_cc (rtx exp, rtx insn);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7665 +enum reg_class m6809_preferred_reload_class (rtx x, enum reg_class regclass);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7666 +rtx gen_rtx_const_high (rtx r);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7667 +rtx gen_rtx_const_low (rtx r);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7668 +rtx gen_rtx_register_pushpop (int pop_flag, int regs);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7669 +void emit_libcall_insns (enum machine_mode mode, const char name, rtx operands, int count);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7670 +const char * output_branch_insn (enum rtx_code code, rtx *operands, int length);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7671 +void output_far_call_insn (rtx *operands, int has_return);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7672 +void m6809_initialize_trampoline (rtx tramp, tree fndecl, rtx cxt);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7673 +rtx m6809_expand_builtin (tree exp, rtx target, rtx subtarget, enum machine_mode mode, int ignore);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7674 +const char * far_functionp (rtx x);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7675 +rtx m6809_function_value (const tree valtype, const tree func);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7676 +void m6809_output_shift_insn (int rtx_code, rtx *operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7677 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7678 +const char * m6809_get_decl_bank (tree decl);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7679 +void output_branch_insn1 (const char opcode, rtx operands, int long_p);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7680 +rtx m6809_builtin_operand (tree arglist, enum machine_mode mode, int opnum);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7681 +const char * far_function_type_p (tree type);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7682 +void m6809_asm_trampoline_template(FILE *f);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7683 +bool m6809_frame_pointer_required (void);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7684 +int m6809_can_eliminate (int from, int to);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7685 +int m6809_initial_elimination_offset (int from, int to);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7686 +void m6809_emit_move_insn (rtx dst, rtx src);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7687 +void m6809_split_shift (enum rtx_code code, rtx *operands);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7688 +bool m6809_function_ok_for_sibcall (tree decl, tree exp ATTRIBUTE_UNUSED);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7689 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7690 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7691 +#endif /* RTX_CODE */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7692 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7693 +#endif /* __M6809_PROTOS_H__ */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7694 diff -urN gcc-4.6.4-clean/gcc/config/m6809/predicates.md gcc-4.6.4/gcc/config/m6809/predicates.md
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7695 --- gcc-4.6.4-clean/gcc/config/m6809/predicates.md 1969-12-31 17:00:00.000000000 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7696 +++ gcc-4.6.4/gcc/config/m6809/predicates.md 2017-11-28 21:12:11.156911596 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7697 @@ -0,0 +1,78 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7698 +;; Predicate definitions for Motorola 6809
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7699 +;; Copyright (C) 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7700 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7701 +;; This file is part of GCC.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7702 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7703 +;; GCC is free software; you can redistribute it and/or modify
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7704 +;; it under the terms of the GNU General Public License as published by
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7705 +;; the Free Software Foundation; either version 3, or (at your option)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7706 +;; any later version.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7707 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7708 +;; GCC is distributed in the hope that it will be useful,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7709 +;; but WITHOUT ANY WARRANTY; without even the implied warranty of
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7710 +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7711 +;; GNU General Public License for more details.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7712 +;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7713 +;; You should have received a copy of the GNU General Public License
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7714 +;; along with GCC; see the file COPYING3. If not see
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7715 +;; <http://www.gnu.org/licenses/>.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7716 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7717 +;; whole_register_operand is like register_operand, but it
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7718 +;; does not allow SUBREGs.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7719 +(define_predicate "whole_register_operand"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7720 + (and (match_code "reg")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7721 + (match_operand 0 "register_operand")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7722 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7723 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7724 +;; A predicate that matches any index register. This can be used in nameless
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7725 +;; patterns and peepholes which need a 16-bit reg, but not D.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7726 +(define_predicate "index_register_operand"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7727 + (and (match_code "reg")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7728 + (match_test "REGNO (op) == HARD_X_REGNUM \|\| REGNO (op) == HARD_Y_REGNUM \|\| REGNO (op) == HARD_U_REGNUM")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7729 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7730 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7731 +;; match only X
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7732 +(define_predicate "register_operand_x"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7733 + (and (match_code "reg")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7734 + (match_test "REGNO (op) == HARD_X_REGNUM")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7735 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7736 +;; match only D
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7737 +(define_predicate "register_operand_d"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7738 + (and (match_code "reg")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7739 + (match_test "REGNO (op) == HARD_D_REGNUM")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7740 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7741 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7742 +;; Likwise, a replacement for general_operand which excludes
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7743 +;; SUBREGs.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7744 +(define_predicate "whole_general_operand"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7745 + (and (match_code "const_int,const_double,const,symbol_ref,label_ref,reg,mem")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7746 + (match_operand 0 "general_operand")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7747 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7748 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7749 +(define_predicate "add_general_operand"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7750 + (and (match_code "const_int,const_double,const,symbol_ref,label_ref,reg,mem")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7751 + (match_operand 0 "general_operand")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7752 + (match_test "REGNO (op) != SOFT_AP_REGNUM")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7753 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7754 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7755 +(define_predicate "shift_count_operand"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7756 + (and (match_code "const_int")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7757 + (and (match_operand 0 "const_int_operand")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7758 + (match_test "INTVAL (op) == 1 \|\| INTVAL (op) == 8"))))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7759 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7760 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7761 +;; A predicate that matches any bitwise logical operator. This
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7762 +;; allows for a single RTL pattern to be used for multiple operations.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7763 +(define_predicate "logical_bit_operator"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7764 + (ior (match_code "and") (match_code "ior") (match_code "xor")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7765 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7766 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7767 +;; A predicate that matches any shift or rotate operator. This
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7768 +;; allows for a single RTL pattern to be used for multiple operations.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7769 +(define_predicate "shift_rotate_operator"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7770 + (ior (match_code "ashift") (match_code "ashiftrt") (match_code "lshiftrt")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7771 + (match_code "rotate") (match_code "rotatert")))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7772 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7773 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7774 +(define_predicate "symbolic_operand" (match_code "symbol_ref"))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7775 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7776 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-coco gcc-4.6.4/gcc/config/m6809/t-coco
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7777 --- gcc-4.6.4-clean/gcc/config/m6809/t-coco 1969-12-31 17:00:00.000000000 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7778 +++ gcc-4.6.4/gcc/config/m6809/t-coco 2017-11-28 21:12:11.156911596 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7779 @@ -0,0 +1,6 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7780 +# For a few minor differences in code generation on the CoCo...
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7781 +T_CFLAGS = -DTARGET_COCO
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7782 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7783 +# For doing the startup differently on the CoCo...
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7784 +CRT0STUFF_T_CFLAGS += -Wa,--globalize-symbols -DTARGET_COCO
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7785 +# vim: set filetype=make:
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7786 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-m6809 gcc-4.6.4/gcc/config/m6809/t-m6809
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7787 --- gcc-4.6.4-clean/gcc/config/m6809/t-m6809 1969-12-31 17:00:00.000000000 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7788 +++ gcc-4.6.4/gcc/config/m6809/t-m6809 2017-11-28 21:12:11.156911596 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7789 @@ -0,0 +1,64 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7790 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7791 +# ranlib doesn't exist, so define it to 'true' to make it a no-op
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7792 +RANLIB_FOR_TARGET = true
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7793 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7794 +# Stubs for libgcc defined by m6809 are here
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7795 +LIB1ASMSRC = m6809/libgcc1.s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7796 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7797 +# Here are the functions that are implemented within libgcc1.s
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7798 +LIB1ASMFUNCS = _mulhi3 _divhi3 _modhi3 _udivhi3 _umodhi3 \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7799 + _euclid _seuclid _clzsi2 _clzdi2 _ctzsi2 _ctzdi2 _softregs \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7800 + _ashlhi3 _ashrhi3 _lshrhi3
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7801 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7802 +# Flags to use when building libgcc. IN_GCC does not seem necessary,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7803 +# although the compile breaks without it. -DDF=SF is required to set
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7804 +# the size of "double" to the same as the size of a "float".
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7805 +TARGET_LIBGCC2_CFLAGS =-DIN_GCC -Dinhibit_libc -DDF=SF -DLIBGCC2_HAS_SF_MODE=0 -DLIBGCC2_HAS_DF_MODE=0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7806 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7807 +LIB2ADDEH =
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7808 +LIB2ADDEHSTATIC =
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7809 +LIB2ADDEHSHARED =
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7810 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7811 +LIBGCC2_DEBUG_CFLAGS =
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7812 +LIBGCC2_CFLAGS = -Os $(LIBGCC2_INCLUDES) $(TARGET_LIBGCC2_CFLAGS) $(LIBGCC2_DEBUG_CFLAGS) $(GTHREAD_FLAGS) -DIN_LIBGCC2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7813 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7814 +# Multilib information
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7815 +# This creates multiple versions of libgcc.a for each set of incompatible
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7816 +# -mxxx options.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7817 +MULTILIB_OPTIONS = fpic mdret
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7818 +MULTILIB_DIRNAMES =
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7819 +MULTILIB_MATCHES =
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7820 +MULTILIB_EXCEPTIONS =
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7821 +EXTRA_MULTILIB_PARTS = crt0.o
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7822 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7823 +LIBGCC = stmp-multilib
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7824 +INSTALL_LIBGCC = install-multilib
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7825 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7826 +# We want fine grained libraries, so use the new code to build the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7827 +# floating point emulation libraries.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7828 +FPBIT = fp-bit.c
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7829 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7830 +fp-bit.c: $(srcdir)/config/fp-bit.c
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7831 + echo '#define FLOAT' > fp-bit.c
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7832 + echo '#define FLOAT_ONLY' >> fp-bit.c
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7833 + echo '#define CMPtype HItype' >> fp-bit.c
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7834 + echo '#define SMALL_MACHINE' >> fp-bit.c
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7835 + echo '#ifdef __LITTLE_ENDIAN__' >> fp-bit.c
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7836 + echo '#define FLOAT_BIT_ORDER_MISMATCH' >>fp-bit.c
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7837 + echo '#endif' >> fp-bit.c
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7838 + echo '#define DI SI' >> fp-bit.c
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7839 + cat $(srcdir)/config/fp-bit.c >> fp-bit.c
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7840 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7841 +# crt0.o is built from the following source file
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7842 +CRT0_S = $(srcdir)/config/m6809/crt0.S
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7843 +MCRT0_S = $(srcdir)/config/m6809/crt0.S
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7844 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7845 +# Flags to use when building crt0.o
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7846 +CRT0STUFF_T_CFLAGS += -fno-builtin -nostartfiles -nostdlib
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7847 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7848 +# Assemble startup files.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7849 +$(T)crt0.o: $(CRT0_S) $(GCC_PASSES)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7850 + $(GCC_FOR_TARGET) $(CRT0STUFF_T_CFLAGS) $(MULTILIB_CFLAGS) -c -o $(T)crt0.o -x assembler-with-cpp $(CRT0_S)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7851 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7852 +$(T)mcrt0.o: $(MCRT0_S) $(GCC_PASSES)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7853 + $(GCC_FOR_TARGET) $(CRT0STUFF_T_CFLAGS) $(MULTILIB_CFLAGS) -c -o $(T)mcrt0.o -x assembler-with-cpp $(MCRT0_S)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7854 diff -urN gcc-4.6.4-clean/gcc/config/m6809/t-sim gcc-4.6.4/gcc/config/m6809/t-sim
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7855 --- gcc-4.6.4-clean/gcc/config/m6809/t-sim 1969-12-31 17:00:00.000000000 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7856 +++ gcc-4.6.4/gcc/config/m6809/t-sim 2017-11-28 21:12:11.156911596 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7857 @@ -0,0 +1 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7858 +CRT0STUFF_T_CFLAGS += -DTARGET_SIM
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7859 diff -urN gcc-4.6.4-clean/gcc/config.gcc gcc-4.6.4/gcc/config.gcc
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7860 --- gcc-4.6.4-clean/gcc/config.gcc 2013-03-06 10:40:07.000000000 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7861 +++ gcc-4.6.4/gcc/config.gcc 2017-11-28 21:12:11.156911596 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7862 @@ -375,6 +375,9 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7863 cpu_type=m32r
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7864 extra_options="${extra_options} g.opt"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7865 ;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7866 +m6809--)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7867 + cpu_type=m6809
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7868 + ;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7869 m68k--)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7870 extra_headers=math-68881.h
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7871 ;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7872 @@ -1706,6 +1709,12 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7873 thread_file='posix'
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7874 fi
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7875 ;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7876 +m6809-coco-*)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7877 + tmake_file="${tmake_file} m6809/t-m6809 m6809/t-coco"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7878 + ;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7879 +m6809--)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7880 + tmake_file="${tmake_file} m6809/t-m6809 m6809/t-sim"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7881 + ;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7882 # m68hc11 and m68hc12 share the same machine description.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7883 m68hc11--\|m6811--)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7884 tm_file="dbxelf.h elfos.h usegas.h newlib-stdint.h m68hc11/m68hc11.h"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7885 diff -urN gcc-4.6.4-clean/gcc/gcse.c gcc-4.6.4/gcc/gcse.c
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7886 --- gcc-4.6.4-clean/gcc/gcse.c 2011-02-02 23:04:04.000000000 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7887 +++ gcc-4.6.4/gcc/gcse.c 2017-11-28 21:12:11.156911596 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7888 @@ -833,7 +833,6 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7889 max_distance = (GCSE_COST_DISTANCE_RATIO * cost) / 10;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7890 if (max_distance == 0)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7891 return 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7892 -
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7893 gcc_assert (max_distance > 0);
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7894 }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7895 else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7896 diff -urN gcc-4.6.4-clean/gcc/libgcc2.c gcc-4.6.4/gcc/libgcc2.c
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7897 --- gcc-4.6.4-clean/gcc/libgcc2.c 2011-01-03 13:52:22.000000000 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7898 +++ gcc-4.6.4/gcc/libgcc2.c 2017-11-28 21:12:11.156911596 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7899 @@ -485,6 +485,7 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7900 #endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7901
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7902 #ifdef L_bswapsi2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7903 +#if MIN_UNITS_PER_WORD > 1
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7904 SItype
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7905 __bswapsi2 (SItype u)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7906 {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7907 @@ -494,7 +495,9 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7908 \| (((u) & 0x000000ff) << 24));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7909 }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7910 #endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7911 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7912 #ifdef L_bswapdi2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7913 +#if LONG_LONG_TYPE_SIZE > 32
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7914 DItype
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7915 __bswapdi2 (DItype u)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7916 {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7917 @@ -508,6 +511,7 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7918 \| (((u) & 0x00000000000000ffull) << 56));
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7919 }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7920 #endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7921 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7922 #ifdef L_ffssi2
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7923 #undef int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7924 int
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7925 @@ -1280,7 +1284,7 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7926 UDWtype
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7927 __fixunssfDI (SFtype a)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7928 {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7929 -#if LIBGCC2_HAS_DF_MODE
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7930 +#if LIBGCC2_HAS_DF_MODE \|\| (FLT_MANT_DIG >= W_TYPE_SIZE)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7931 /* Convert the SFtype to a DFtype, because that is surely not going
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7932 to lose any bits. Some day someone else can write a faster version
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7933 that avoids converting to DFtype, and verify it really works right. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7934 @@ -1298,7 +1302,7 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7935
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7936 /* Assemble result from the two parts. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7937 return ((UDWtype) hi << W_TYPE_SIZE) \| lo;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7938 -#elif FLT_MANT_DIG < W_TYPE_SIZE
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7939 +#else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7940 if (a < 1)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7941 return 0;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7942 if (a < Wtype_MAXp1_F)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7943 @@ -1334,8 +1338,6 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7944 return (DWtype)counter << shift;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7945 }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7946 return -1;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7947 -#else
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7948 -# error
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7949 #endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7950 }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7951 #endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7952 diff -urN gcc-4.6.4-clean/gcc/longlong.h gcc-4.6.4/gcc/longlong.h
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7953 --- gcc-4.6.4-clean/gcc/longlong.h 2011-10-04 01:28:50.000000000 -0600
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7954 +++ gcc-4.6.4/gcc/longlong.h 2017-11-28 21:12:11.160911575 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7955 @@ -528,6 +528,11 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7956 : "cbit")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7957 #endif /* __M32R__ */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7958
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7959 +#if defined (__m6309__) \|\| defined (__m6809__)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7960 +#define count_leading_zeros(COUNT,X) ((COUNT) = __builtin_clz (X))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7961 +#define count_trailing_zeros(COUNT,X) ((COUNT) = __builtin_ctz (X))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7962 +#endif
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7963 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7964 #if defined (__mc68000__) && W_TYPE_SIZE == 32
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7965 #define add_ssaaaa(sh, sl, ah, al, bh, bl) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7966 __asm__ ("add%.l %5,%1\n\taddx%.l %3,%0" \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7967 diff -urN gcc-4.6.4-clean/gcc/Makefile.in gcc-4.6.4/gcc/Makefile.in
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7968 --- gcc-4.6.4-clean/gcc/Makefile.in 2013-04-01 02:32:34.000000000 -0600
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7969 +++ gcc-4.6.4/gcc/Makefile.in 2017-11-28 21:12:11.160911575 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7970 @@ -2003,14 +2003,14 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7971
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7972 # Compile the start modules crt0.o and mcrt0.o that are linked with
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7973 # every program
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7974 -$(T)crt0.o: s-crt0 ; @true
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7975 -$(T)mcrt0.o: s-crt0; @true
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7976 +crt0.o: s-crt0 ; @true
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7977 +mcrt0.o: s-crt0; @true
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7978
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7979 s-crt0: $(CRT0_S) $(MCRT0_S) $(GCC_PASSES) $(CONFIG_H)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7980 $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(CRT0STUFF_T_CFLAGS) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7981 - -o $(T)crt0.o -c $(CRT0_S)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7982 + -o crt0.o -c $(CRT0_S)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7983 $(GCC_FOR_TARGET) $(GCC_CFLAGS) $(CRT0STUFF_T_CFLAGS) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7984 - -o $(T)mcrt0.o -c $(MCRT0_S)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7985 + -o mcrt0.o -c $(MCRT0_S)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7986 $(STAMP) s-crt0
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7987 #
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7988 # Compiling object files from source files.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7989 diff -urN gcc-4.6.4-clean/gcc/opth-gen.awk gcc-4.6.4/gcc/opth-gen.awk
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7990 --- gcc-4.6.4-clean/gcc/opth-gen.awk 2011-02-08 10:41:00.000000000 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7991 +++ gcc-4.6.4/gcc/opth-gen.awk 2017-11-28 21:12:11.160911575 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7992 @@ -121,7 +121,7 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7993 END {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7994 print "/* This file is auto-generated by opth-gen.awk. */"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7995 print ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7996 -print "#ifndef OPTIONS_H"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7997 +print "#if !defined(OPTIONS_H) && !defined(IN_LIBGCC2)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7998 print "#define OPTIONS_H"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	7999 print ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8000 print "#include \"flag-types.h\""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8001 @@ -432,18 +432,9 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8002
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8003 for (i = 0; i < n_opts; i++) {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8004 opt = opt_args("InverseMask", flags[i])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8005 - if (opt ~ ",") {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8006 - vname = var_name(flags[i])
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8007 - macro = "OPTION_"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8008 - mask = "OPTION_MASK_"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8009 - if (vname == "") {
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8010 - vname = "target_flags"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8011 - macro = "TARGET_"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8012 - mask = "MASK_"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8013 - }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8014 - print "#define " macro nth_arg(1, opt) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8015 - " ((" vname " & " mask nth_arg(0, opt) ") == 0)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8016 - }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8017 + if (opt ~ ",")
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8018 + print "#define TARGET_" nth_arg(1, opt) \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8019 + " ((target_flags & MASK_" nth_arg(0, opt) ") == 0)"
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8020 }
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8021 print ""
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8022
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8023 diff -urN gcc-4.6.4-clean/gcc/tree.h gcc-4.6.4/gcc/tree.h
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8024 --- gcc-4.6.4-clean/gcc/tree.h 2011-10-06 13:57:52.000000000 -0600
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8025 +++ gcc-4.6.4/gcc/tree.h 2017-11-28 21:12:11.160911575 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8026 @@ -3563,6 +3563,8 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8027 TI_UINTDI_TYPE,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8028 TI_UINTTI_TYPE,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8029
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8030 + TI_UINT8_TYPE,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8031 + TI_UINT16_TYPE,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8032 TI_UINT32_TYPE,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8033 TI_UINT64_TYPE,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8034
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8035 diff -urN gcc-4.6.4-clean/gcc/version.c gcc-4.6.4/gcc/version.c
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8036 --- gcc-4.6.4-clean/gcc/version.c 2009-04-21 13:03:23.000000000 -0600
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8037 +++ gcc-4.6.4/gcc/version.c 2017-11-28 21:20:44.918095673 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8038 @@ -21,16 +21,16 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8039
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8040 /* This is the location of the online document giving instructions for
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8041 reporting bugs. If you distribute a modified version of GCC,
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8042 - please configure with --with-bugurl pointing to a document giving
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8043 - instructions for reporting bugs to you, not us. (You are of course
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8044 - welcome to forward us bugs reported to you, if you determine that
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8045 - they are not bugs in your modifications.) */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8046 + please change this to refer to a document giving instructions for
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8047 + reporting bugs to you, not us. (You are of course welcome to
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8048 + forward us bugs reported to you, if you determine that they are
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8049 + not bugs in your modifications.) */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8050
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8051 -const char bug_report_url[] = BUGURL;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8052 +const char bug_report_url[] = "<URL:http://lost.l-w.ca/coco/lwtools/>";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8053
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8054 /* The complete version string, assembled from several pieces.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8055 BASEVER, DATESTAMP, DEVPHASE, and REVISION are defined by the
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8056 Makefile. */
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8057
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8058 -const char version_string[] = BASEVER DATESTAMP DEVPHASE REVISION;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8059 +const char version_string[] = BASEVER DATESTAMP DEVPHASE REVISION " (gcc6809lw pl8)";
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8060 const char pkgversion_string[] = PKGVERSION;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8061 diff -urN gcc-4.6.4-clean/libgcc/config.host gcc-4.6.4/libgcc/config.host
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8062 --- gcc-4.6.4-clean/libgcc/config.host 2011-11-23 15:15:54.000000000 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8063 +++ gcc-4.6.4/libgcc/config.host 2017-11-28 21:12:11.160911575 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8064 @@ -371,6 +371,8 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8065 ;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8066 m32rle--linux)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8067 ;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8068 +m6809*)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8069 + ;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8070 m68hc11--\|m6811--)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8071 ;;
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8072 m68hc12--\|m6812--)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8073 diff -urN gcc-4.6.4-clean/libgcc/fixed-obj.mk gcc-4.6.4/libgcc/fixed-obj.mk
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8074 --- gcc-4.6.4-clean/libgcc/fixed-obj.mk 2007-09-17 16:18:13.000000000 -0600
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8075 +++ gcc-4.6.4/libgcc/fixed-obj.mk 2017-11-28 21:12:11.160911575 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8076 @@ -23,7 +23,7 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8077 #$(info $o$(objext): -DL$($o-label) $($o-opt))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8078
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8079 $o$(objext): %$(objext): $(gcc_srcdir)/config/fixed-bit.c
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8080 - $(gcc_compile) -DL$($-label) $($-opt) -c $(gcc_srcdir)/config/fixed-bit.c $(vis_hide)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8081 + $(gcc_compile) -DL$($-label) $($-opt) -c $(gcc_srcdir)/config/fixed-bit.c $(vis_hide) -save-temps
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8082
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8083 ifeq ($(enable_shared),yes)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8084 $(o)_s$(objext): %_s$(objext): $(gcc_srcdir)/config/fixed-bit.c
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8085 diff -urN gcc-4.6.4-clean/libgcc/Makefile.in gcc-4.6.4/libgcc/Makefile.in
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8086 --- gcc-4.6.4-clean/libgcc/Makefile.in 2012-12-04 12:11:33.000000000 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8087 +++ gcc-4.6.4/libgcc/Makefile.in 2017-11-28 21:12:11.160911575 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8088 @@ -374,8 +374,8 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8089 # Build lib2funcs. For the static library also include LIB2FUNCS_ST.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8090 lib2funcs-o = $(patsubst %,%$(objext),$(lib2funcs) $(LIB2FUNCS_ST))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8091 $(lib2funcs-o): %$(objext): $(gcc_srcdir)/libgcc2.c
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8092 - $(gcc_compile) -DL$* -c $(gcc_srcdir)/libgcc2.c \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8093 - $(vis_hide)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8094 + ln -sf $(gcc_srcdir)/libgcc2.c $*.c && \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8095 + $(gcc_compile) -DL$* -c $*.c $(vis_hide) -save-temps
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8096 libgcc-objects += $(lib2funcs-o)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8097
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8098 ifeq ($(enable_shared),yes)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8099 @@ -410,8 +410,9 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8100 # Build LIB2_DIVMOD_FUNCS.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8101 lib2-divmod-o = $(patsubst %,%$(objext),$(LIB2_DIVMOD_FUNCS))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8102 $(lib2-divmod-o): %$(objext): $(gcc_srcdir)/libgcc2.c
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8103 - $(gcc_compile) -DL$* -c $(gcc_srcdir)/libgcc2.c \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8104 - -fexceptions -fnon-call-exceptions $(vis_hide)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8105 + ln -sf $(gcc_srcdir)/libgcc2.c $*.c && \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8106 + $(gcc_compile) -DL$* -c $*.c \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8107 + -fexceptions -fnon-call-exceptions $(vis_hide) -save-temps
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8108 libgcc-objects += $(lib2-divmod-o)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8109
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8110 ifeq ($(enable_shared),yes)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8111 @@ -443,7 +444,8 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8112 ifneq ($(FPBIT),)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8113 fpbit-o = $(patsubst %,%$(objext),$(FPBIT_FUNCS))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8114 $(fpbit-o): %$(objext): $(FPBIT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8115 - $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $(FPBIT) $(vis_hide)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8116 + ln -sf $(FPBIT) $*.c && \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8117 + $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $*.c $(vis_hide) -save-temps
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8118 libgcc-objects += $(fpbit-o)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8119
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8120 ifeq ($(enable_shared),yes)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8121 @@ -458,7 +460,8 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8122 ifneq ($(DPBIT),)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8123 dpbit-o = $(patsubst %,%$(objext),$(DPBIT_FUNCS))
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8124 $(dpbit-o): %$(objext): $(DPBIT)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8125 - $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $(DPBIT) $(vis_hide)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8126 + ln -sf $(DPBIT) $*.c && \
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8127 + $(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -c $*.c $(vis_hide) -save-temps
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8128 libgcc-objects += $(dpbit-o)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8129
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8130 ifeq ($(enable_shared),yes)
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8131 diff -urN gcc-4.6.4-clean/README.LW gcc-4.6.4/README.LW
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8132 --- gcc-4.6.4-clean/README.LW 1969-12-31 17:00:00.000000000 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8133 +++ gcc-4.6.4/README.LW 2017-11-28 21:12:11.160911575 -0700
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8134 @@ -0,0 +1,14 @@
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8135 +This is a port of gcc6809 which is designed to work with the lwtools
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8136 +cross-assembler and linker package. You will need several scripts from that
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8137 +package, available at http://lost.l-w.ca/coco/lwtools/, in order to use
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8138 +this. Instructions for building are present in the lwtools package.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8139 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8140 +This work is based extensively on the gcc6809 4.3.4-3 release by Brian
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8141 +Dominy (brian@oddchange.com) with some significant renovations to make it
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8142 +work with gcc 4.6.1.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8143 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8144 +There is no guarantee that it will work for any particular purpose you
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8145 +choose to put it to.
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8146 +
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8147 +If you run into any problems, contact William Astle (lost@l-w.ca). DO NOT
818b096ac128 Add a fix and an improvement to gcc6809 patch William Astle <lost@l-w.ca> parents: diff changeset	8148 +contact the main GCC developers!

Mercurial > hg > index.cgi

annotate extra/gcc6809lw-4.6.4-8.patch @ 536:33a59e232a5b